Sorry your browser is not supported!

rem First open the image select screen
ok = ShowChooseImageScreen()

if ok = 1
    rem now wait for the image to be chosen
    while IsChoosingImage() = 1
        sync()
    endwhile

    rem get the image but check that one was chosen
    imageID = GetChosenImage()
    if imageID = 0
        message( "No image chosen" )
    else
        message( "Image ID: " + str(imageID) )
    endif
endif

rem First open the device camera
ok = ShowImageCaptureScreen()

if ok = 1
    rem now wait for the image to be captured
    while IsCapturingImage() = 1
        sync()
    endwhile

    rem get the image but check that one was captured
    imageID = GetCapturedImage()
    if imageID = 0
        message( "No image captured" )
    else
        message( "Image ID: " + str(imageID) )
    endif
endif

rem first pass your app ID from facebook
`Facebook commands are currently only
`supported on iOS
`(example ID given below)
FacebookSetup( "123456789012345" )

rem then log in
FacebookLogin()

rem check that the user has logged in
`check for a timeout in case there is
`a network problem
timeout# = timer() + 5.0
repeat
    
    print( "Logging in" )
    
    sync()
    
until GetFacebookLoggedIn() > 0 or timer() > timeout#

rem check for successful login
if GetFacebookLoggedIn() <= 0
    
    rem display error message
    message( "Could not log in to Facebook!" )
    
else
    
    rem display connected message
    message( "Connected to Facebook!" )
    
endif

rem set up advert provider using your app ID
`admob is currently only available on iOS
`example of Admob ID code given is not real
myAdmobID$ = "a111a111111111a"
SetAdMobDetails ( myAdmobID$ )

rem or if using inneractive use a similar setup
myInneractiveID$ = "a111a111111111a"
SetInneractiveDetails ( myInneractiveID$ )

rem display the advert
` 0=left, 1=center, 2=right
horz = 1
` 0=top, 1=center, 2=bottom
vert = 2
`test adverts can be used to ensure an ad is
`served as sometimes no advert is sent by
`the provider 1=test ad, 0=real ad
test = 1
CreateAdvert( 0, horz, vert, test )

rem occasionally you might want to refresh the
`advert so the same advert is not constantly shown
RequestAdvertRefresh()

rem to show or hide an advert use this command
`0=hidden, 1=shown
SetAdvertVisible ( 1 )

rem or to delete it entirely use this command
DeleteAdvert()

rem Landscape App
SetDisplayAspect( 4.0/3.0 )

rem create a particle emitter
particlesID = CreateParticles( 50, 50 )

rem set the emitter creating particles
`freq is the number of particles created per second
freq = 50
size# = 2.0
SetParticlesFrequency( particlesID, freq )
SetParticlesSize( particlesID, size# )

rem set particles to fade out over 3 seconds from red to blue
SetParticlesLife( particlesID, 3.0 )
`Start color
red = 255 : green = 0 : blue = 0 : alpha = 255
AddParticlesColorKeyFrame( particlesID, 0.0, red, green, blue, alpha )
`Finish color
red = 0 : green = 0 : blue = 255 : alpha = 0
AddParticlesColorKeyFrame( particlesID, 3.0, red, green, blue, alpha )

rem Main game loop
do
    rem set to the mouse / touch position
    setParticlesPosition( particlesID, getPointerX(), getPointerY() )
    
    rem update the emitter using the length
    `of the previous frame
    UpdateParticles( particlesID, getFrameTime() )
    
    rem update and render the scene
    Sync()
loop

rem print time data to screen
print("Date: "+GetCurrentDate())
day = GetDayOfWeek()
select day
    case 0 : dayAsString$ = "Sunday"    : endcase
    case 1 : dayAsString$ = "Monday"    : endcase
    case 2 : dayAsString$ = "Tuesday"   : endcase
    case 3 : dayAsString$ = "Wednesday" : endcase
    case 4 : dayAsString$ = "Thursday"  : endcase
    case 5 : dayAsString$ = "Friday"    : endcase
    case 6 : dayAsString$ = "Saturday"  : endcase
endselect
print("Day : "+dayAsString$)
print("Time: "+GetCurrentTime())

rem Landscape App
SetDisplayAspect( 4.0/3.0 )

rem create a string containing the URL
url$ = "http://www.thegamecreators.com/"

rem create a text object
textID = createText( url$ )

rem Main game loop
do
    rem wait for a click / tap event
    if getPointerPressed()>0
        
        rem now check if the text is under the click event
        if getTextHitTest( textID, getPointerX(), getPointerY() ) > 0
            
            rem open the browser using the url text string
            openBrowser( getTextString( textID ) )
            
        endif
        
    endif
    
    rem update and render
    Sync()
loop

rem detecting when the back button has been pressed
rem is as simple as this!
if getRawKeyPressed(27)>0
    message("Back button pressed!")
endif

rem Landscape App
SetVirtualResolution( getDeviceWidth(), getDeviceHeight() )

rem create a sprite
spr = createSprite( 0 )
setSpriteSize( spr, 10, 50 )
setSpriteOffset( spr, 5, 50 )

rem position in the screen centre
centreX = getDeviceWidth()/2
centreY = getDeviceHeight()/2
setSpritePositionByOffset( spr, centreX, centreY )

rem Main game loop
do
    rem get mouse pointer position
    px# = getPointerX()
    py# = getPointerY()
    
    rem calculate angle between mouse and sprite
    dx# = px# - centreX
    dy# = py# - centreY
    angle# = atanfull( dx#, dy# )
    
    rem set the sprite angle
    setSpriteAngle( spr, angle# )
    
    rem update and render
    Sync()
loop

rem create a sprite
` using loadSprite saves the need for loading
` the image seperately using loadImage
spr = loadSprite( "ball.png" )

rem set the size 10 percent of screen width by
` "-1" which sets the height to the correct
` size without stretching the image
setSpriteSize( spr, 10, -1)

rem initiate physics for the sprite using a value
` of 2 makes this a "dynamic" sprite which reacts
` to forces and other objects
setSpritePhysicsOn( spr, 2 )

rem make the sprite bouncy like a rubber ball
` a value of 0.0 to 1.0 is required where 1.0
` would be extremely bouncy
setSpritePhysicsRestitution( spr, 0.8 )

rem finally set the shape of the ball to circular
` 1 = circular, 2 = box, 3 = polygon (automatically created)
setSpriteShape( spr, 1 )

rem 'Virtual' controls can be used on touchscreen
` devices and tested using the mouse

rem add a joystick to the bottom left of the screen
index = 1
x = 15
y = 85
size = 12
AddVirtualJoystick( index, x, y, size )

rem add a button to the bottom right of the screen
index = 1
x = 85
y = 85
size = 10
AddVirtualButton( index, x, y, size )

rem get ambient light level
if GetLightSensorExists()>0
    print( "Ambient Light: " + str( GetRawLightLevel() ) )
endif

rem get geolocation data
if GetGeolocationExists()>0
    print( "Geolocation" )
    print( "City     : " + GetRawGeoCity() )
    print( "State    : " + GetRawGeoState() )
    print( "Country  : " + GetRawGeoCountry() )
    print( "Postcode : " + GetRawGeoPostalCode() )
    print( "Latitude : " + str( GetRawGeoLatitude() ) )
    print( "Longitude: " + str( GetRawGeoLongitude() ) )
endif

rem get NFC data
if GetNFCExists()>0
    count = GetRawNFCCount()
    if count>0
        print( "NFC devices" )
    endif
    id = GetRawFirstNFCDevice()
    while id>0
        print( "Device " + GetRawNFCName( id ) + " is in range" )
        if GetRawNFCDataState( id )>0
            message( "Recieved data: " + GetRawNFCData( id ) )
        endif
        id = GetRawNextNFCDevice()
    endwhile
endif

rem get Gyrometer data
if GetGyrometerExists()>0
    print( "Gyrometer" )
    print( "Gyro X : " + str( GetRawGyroVelocityX() ) )
    print( "Gyro Y : " + str( GetRawGyroVelocityY() ) )
    print( "Gyro Z : " + str( GetRawGyroVelocityZ() ) )
endif

rem get inclinometer data
if GetInclinometerExists()>0
    print( "Inclinometer" )
    print( "Pitch  : " + str( GetRawInclinoPitch() ) )
    print( "Roll   : " + str( GetRawInclinoRoll() ) )
    print( "Yaw    : " + str( GetRawInclinoYaw() ) )
endif

rem get Orientation
if GetOrientationSensorExists()>0
    print( "Orientation" )
    print( "W  : " + str( GetRawOrientationW() ) )
    print( "X  : " + str( GetRawOrientationX() ) )
    print( "Y  : " + str( GetRawOrientationY() ) )
    print( "Z  : " + str( GetRawOrientationZ() ) )
endif

rem set up display
setVirtualResolution( 640, 480 )

rem first pass your app ID from facebook
`Facebook commands are currently only
`supported on iOS
`(example ID given below)
FacebookSetup( "123456789012345" )

rem then log in
FacebookLogin()

rem check that the user has logged in
`check for a timeout in case there is
`a network problem
timeout# = timer() + 5.0
repeat
    
    print( "Logging in" )
    
    sync()
    
until GetFacebookLoggedIn() > 0 or timer() > timeout#

rem check for successful login
if GetFacebookLoggedIn() <= 0
    
    rem display error message
    message( "Could not log in to Facebook!" )
    
    rem quit the app
    end
    
endif

rem get a list of friends
`first download the data
FacebookGetFriends()
while FacebookGetFriendsState()=0
    
    print( "Downloading friend list..." )
    
    sync()
    
endwhile
`now save a list of names
friendCount = FacebookGetFriendsCount()

`create an array
dim friend[friendCount] as string

`fill the array
for i=0 to friendCount-1
    
    friend[i] = FacebookGetFriendsName( i )
    
next

do
    print( "Logged in!" )
    
    rem display name list
    if friendCount>0
        
        print("Your friend/s:")
        
        for i=0 to friendCount-1
            
            print( friend[i] )
            
        next
        
    else
        
        print("You have no friends to display")
        
    endif
    
    sync()
loop

rem
rem AGK Application 1.08B8
rem MR

rem image selection

MainLoop()
end

function MainLoop()

    image=SelectImage()
    if image=0
        //was canceled
    else
        //make a Background sprite
        sprite = CreateSprite( image )
        SetSpritesize( sprite, -1,100 )
        setspritepositionbyoffset(sprite,50,50)
    endif

    bntend=1
    AddVirtualButton( bntend,10,10,10 )
    SetVirtualButtonText( bntend, "Exit" )

    do

     if GetVirtualButtonPressed( bntend ) then exit

     Sync()
    loop

    deleteVirtualButton(bntend)

endfunction

function SelectImage()

    if ShowChooseImageScreen()=1 //Ok

     while IsChoosingImage()=1 //Dialog is Open, Wait
       sync()
     endwhile

     image = GetChosenImage() //Get the image

    endif

endfunction image

//Accelerometer functions written by Daniel Foreman
//www.teachyourselfstuff.com
//
//This program allows you to control a sprite by tilting your phone or tablet.
//
//Three functions are included, SetSensor() asks the user to 
//hold their tablet in a natural position for calibration.
//SensorY and SensorX returns a -x to x range value, normal 
//commands on their own only return -1 to 1, sensorX and Y
//allow you to extend that range to whatever you need, this
//program amplifies the output by 5
//
//SensorY is where the most happens, this function works by 
//limiting the Y range to a specific range, then outputs a value
//based on that range. So if you set your tablet to a center 
//position of 0.5, then SensorY will convert values between 0.25 //and 0.5 to -1 and 1, then multiply that by a defined amount.
//The deadzone makes it easier to hold the tablet or phone without
//moving the sprite.
//
//For greater explanation please see Teach Yourself Game 
//Programming for Windows and Android on amazon kindle.

Type Sensor_Type
    fCentre as Float
    iSet as Integer
EndType

Global Sensor as Sensor_Type

SetVirtualResolution( 480, 480 )

Box = CreateSprite( 0 )
SetSpriteSize( Box, 50, 50 )
SetSpriteOffset( Box, 25, 25 )
SetSpritePositionByOffset( Box, 240, 240)

Sensor.iSet = 1

Do

    SetSensor( Sensor.iSet )
    SetSpritePositionByOffset( Box, GetSpriteXByOffset( Box ) + SensorX( 0.25, 0.05, 5 ), GetSpriteYByOffset( Box ) + SensorY( 0.25, 0.05, 5 ) )
    BackEnd()

Sync()
Loop

Function BackEnd()

    If GetRawKeyPressed( 27 ) then End

EndFunction

Function SetSensor( mode )

    Select mode

        Case 1

            Repeat
                Print( "Tap screen to set sensor.")
                Sensor.fCentre = GetDirectionY()
                Sync()
            Until GetPointerPressed() = 1
            Sensor.iSet = 0

        EndCase

    EndSelect
EndFunction

Function SensorY( s#, dz#, amp# )

    dY# = GetDirectionY()

    If dY# > Sensor.fCentre + s# then dY# = Sensor.fCentre + s#
    If dY# < Sensor.fCentre - s# then dY# = Sensor.fCentre - s#
    If dY# > Sensor.fCentre - dz# And dY# < Sensor.fCentre + dz# then dY# = Sensor.fCentre

    s# = 1 / s#

    dY# = dY# - Sensor.fCentre
    dY# = dY# * s#

    dY# = dY# * amp#

 EndFunction dY#

 Function SensorX( s#, dz#, amp# )

    dX# = GetDirectionX()

    If dX# > 0 - dz# And dX# < dz# then dX# = 0

    s# = 1 / s#
    dX# = dX# * s#

    dX# = dX# * amp#

 EndFunction dX#

rem
rem AGK Application 1.08B8
rem MR

rem HTTP example

rem Landscape App
SetDisplayAspect( 4.0/3.0 )

MainLoop()
end

function MainLoop()

    Response$=GetFromWeb("www.google.de","index.html")

    do
     Print("hello internet")
     Print(Response$)
     if getpointerpressed()=1 then exit
     Sync()
    loop

endfunction

function GetFromWeb(Host$,URLPath$)

    Response$=""

    if GetInternetState()=1
        iHTTP=CreateHTTPConnection()
        iSecure=0
        szUser$=""
        szPass$=""
        if SetHTTPHost( iHTTP, Host$, iSecure, szUser$, szPass$ )=1
            if SendHTTPRequestASync( iHTTP, URLPath$ )=1
                do
                    ret=GetHTTPResponseReady( iHTTP )
                    if ret=-1 then exit   //Cancel
                    if ret=1 then exit    //Ready
                    print("wait ...")
                    sync()
                loop
                if ret=1
                    Response$=GetHTTPResponse( iHTTP )
                endif
            endif //Get
            CloseHTTPConnection( iHTTP )
        endif   //Host
        DeleteHTTPConnection( iHTTP )
    endif //Internet

endfunction Response$

rem
rem AGK Application 1.08 Beta 8
rem

Test()
end

Function Test()

    bench=1
    do

     if bench then ShowBenchmarking()

     if getpointerpressed()=1 then exit

     Sync()
    loop

endfunction

function ShowBenchmarking()

    print ("FPS "+str(screenfps()))
    print ("Drawing Setup Time "+str(GetDrawingSetupTime()))
    print ("Drawing Time "+str(GetDrawingTime()))
    print ("Pixels Drawn "+str(GetPixelsDrawn()))
    print ("Update Time "+str(GetUpdateTime()))
    print ("Physics Time "+str(GetPhysicsTime()))

    print ("Managed Sprite Count "+str(GetManagedSpriteCount()))
    print ("Managed Sprite Draw Calls "+str(GetManagedSpriteDrawCalls()))
    print ("Managed Sprite Drawn Count "+str(GetManagedSpriteDrawnCount()))
    print ("Managed Sprite Sorted Count "+str(GetManagedSpriteSortedCount()))
    print ("Particle Drawn Point Count "+str(GetParticleDrawnPointCount()))
    print ("Particle Drawn Quad Count "+str(GetParticleDrawnQuadCount()))

    print ("Loaded Images "+str(GetLoadedImages()))
    UnassignedImages=GetUnassignedImages()
    print ("Unassigned Images "+str(UnassignedImages))
    for i=1 to UnassignedImages
     print ("Unassigned Image FileName "+GetUnassignedImageFileName(i))
    next

endfunction

// Rotate a sprite to face a location		


dx# = endX - startX
dy# = endY - startY

angle# = atanfull ( dx# , dy# )

setSpriteAngle ( mySprite , angle )

// This takes the desired resolution height of the app,
// and then adjusts the width to match the ratio of the device being
// run on. This means - no borders.


global virtualWidth
global virtualHeight

function initDisplay ( height# )
    device_width#  = GetDeviceWidth  ( )
    device_height# = GetDeviceHeight ( )

    virtual_width_multiplier# = device_width# / device_height#

    if ( device_width# < device_height# )
        virtual_width_multiplier# = device_height# / device_width#
    endif

    SetVirtualResolution ( height# * virtual_width_multiplier#, height# )

    virtualWidth = height# * virtual_width_multiplier#
    virtualHeight = height#
endfunction

// This shows how to place a sprite in the center of the screen when the display
// has been set up using the previous code


setSpritePosition ( mySprite , ( virtualWidth / 2 ) - ( getSpriteWidth ( mySprite ) / 2 ) , ( virtualHeight / 2 ) - ( getSpriteHeight ( mySprite ) / 2 ) )

// Takes a value and the range is belongs to and returns the result from a different range


function AdjustValue ( value#, minFrom#, maxFrom#, minTo#, maxTo# )

    mappedValue# = minTo# + ( maxTo# - minTo# ) * ( ( value# - minFrom# ) / ( maxFrom# - minFrom# ) )

endfunction mappedValue#

// Get Distance


distanceX# = newX# - oldX#
distanceY# = newY# - oldY#
distance#  = sqrt ( ( distanceX# * distanceX# ) + ( distanceY# * distanceY# ) )

// Interpolate between to numbers, useful to smooth movement for network play etc.
// mu# is 0.0 - 1.0 to set the interpolation


function CosineInterpolate ( y1#, y2#, mu# )

   mu2# = ( 1 - cos ( mu# * 3.141 ) ) / 2
   value# = y1# * ( 1 - mu2# ) + y2# * mu2#

endfunction value#

// Make a QR code


qrImage = EncodeQRCode ( "http://www.yourSite.com?id=" + str ( random ( 1, 500 ) ), 1 )
saveImage ( qrImage , "myQRcode.png" )

// Grab an image from the screen


SetClearColor ( 255, 255, 255 )
ClearScreen ( )
DrawSprite ( temp )
image = GetImage ( 0, 0, 1024, 768 )
ClearScreen ( )

SaveImage ( image, "myImage.jpg" )

gun = 102
SetVirtualResolution(GetDeviceWidth(),GetDeviceHeight())
AddVirtualJoystick( 2, GetDeviceWidth()-100, GetDeviceHeight()-100, 200 )

CreateObjectCone(gun,0.5,0.5,3)
type bullettype
x y z alive anglex angley anglez objectid
endtype
dim bullet[100] as bullettype

spr = 0
firerate = 10
fire = 0

do
shootangle# = wrap180(atanfull(GetVirtualJoystickX(2),GetVirtualJoystickY(2)))

if GetVirtualJoystickX(2) <> 0 or GetVirtualJoystickY(2) <> 0
        if fire = firerate
            SetObjectRotation(gun,0,shootangle#,0)
            rem create a bullet
            if spr = 100 then spr = 0
            spr = spr + 1
            createObjectBox(spr,0.1,0.1,0.1)
            setObjectPosition(spr,GetObjectX(gun),GetObjectY(gun),GetObjectZ(gun))
            SetObjectRotation(spr,GetObjectAngleX(gun),GetObjectAngleY(gun),GetObjectAngleZ(gun))
            bullet[spr].alive = 1
            bullet[spr].x = GetObjectX(gun)
            bullet[spr].y = GetObjectY(gun)
            bullet[spr].z = GetObjectZ(gun)
            bullet[spr].anglex = GetObjectAngleX(spr)
            bullet[spr].angley = GetObjectAngleY(spr)
            bullet[spr].anglez = GetObjectAngleZ(spr)
            fire = 0
        else
            fire = fire + 1
        endif
    endif
rem control bullet
    for b=0 to 100
        if bullet[b].alive=1
            MoveObjectLocalZ(b,-0.5)
            print (GetObjectX(b)-bullet[b].x)
            print (GetObjectZ(b)-bullet[b].y)
            if (GetObjectX(b)-bullet[b].x) > 20 then bullet[b].alive=0
            if (GetObjectX(b)-bullet[b].x) < -20 then bullet[b].alive=0
            if (GetObjectZ(b)-bullet[b].z) > 20 then bullet[b].alive=0
            if (GetObjectZ(b)-bullet[b].z) < -20 then bullet[b].alive=0
        else
            DeleteObject(b)
        endif
    next b
 Sync()
loop

function wrap180( v as float )
    while v>180
        v = v-360
    endwhile
    while v<-180
        v = v+360
    endwhile
endfunction v

rem Landscape App
SetVirtualResolution( getDeviceWidth(), getDeviceHeight() )

rem create a sprite
spr = createSprite( 0 )
setSpriteSize( spr, 10, 50 )
setSpriteOffset( spr, 5, 50 )

rem position in the screen centre
centreX = getDeviceWidth()/2
centreY = getDeviceHeight()/2
setSpritePositionByOffset( spr, centreX, centreY )

rem Main game loop
do
    rem get mouse pointer position
    px# = getPointerX()
    py# = getPointerY()
    
    rem calculate angle between mouse and sprite
    dx# = px# - centreX
    dy# = py# - centreY
    angle# = atanfull( dx#, dy# )
    
    rem set the sprite angle
    setSpriteAngle( spr, angle# )
    
    rem update and render
    Sync()
loop

rem create a sprite
` using loadSprite saves the need for loading
` the image seperately using loadImage
spr = loadSprite( "ball.png" )

rem set the size 10 percent of screen width by
` "-1" which sets the height to the correct
` size without stretching the image
setSpriteSize( spr, 10, -1)

rem initiate physics for the sprite using a value
` of 2 makes this a "dynamic" sprite which reacts
` to forces and other objects
setSpritePhysicsOn( spr, 2 )

rem make the sprite bouncy like a rubber ball
` a value of 0.0 to 1.0 is required where 1.0
` would be extremely bouncy
setSpritePhysicsRestitution( spr, 0.8 )

rem finally set the shape of the ball to circular
` 1 = circular, 2 = box, 3 = polygon (automatically created)
setSpriteShape( spr, 1 )

rem 'Virtual' controls can be used on touchscreen
` devices and tested using the mouse

rem add a joystick to the bottom left of the screen
index = 1
x = 15
y = 85
size = 12
AddVirtualJoystick( index, x, y, size )

rem add a button to the bottom right of the screen
index = 1
x = 85
y = 85
size = 10
AddVirtualButton( index, x, y, size )

rem get ambient light level
if GetLightSensorExists()>0
    print( "Ambient Light: " + str( GetRawLightLevel() ) )
endif

rem get geolocation data
if GetGeolocationExists()>0
    print( "Geolocation" )
    print( "City     : " + GetRawGeoCity() )
    print( "State    : " + GetRawGeoState() )
    print( "Country  : " + GetRawGeoCountry() )
    print( "Postcode : " + GetRawGeoPostalCode() )
    print( "Latitude : " + str( GetRawGeoLatitude() ) )
    print( "Longitude: " + str( GetRawGeoLongitude() ) )
endif

rem get NFC data
if GetNFCExists()>0
    count = GetRawNFCCount()
    if count>0
        print( "NFC devices" )
    endif
    id = GetRawFirstNFCDevice()
    while id>0
        print( "Device " + GetRawNFCName( id ) + " is in range" )
        if GetRawNFCDataState( id )>0
            message( "Recieved data: " + GetRawNFCData( id ) )
        endif
        id = GetRawNextNFCDevice()
    endwhile
endif

rem get Gyrometer data
if GetGyrometerExists()>0
    print( "Gyrometer" )
    print( "Gyro X : " + str( GetRawGyroVelocityX() ) )
    print( "Gyro Y : " + str( GetRawGyroVelocityY() ) )
    print( "Gyro Z : " + str( GetRawGyroVelocityZ() ) )
endif

rem get inclinometer data
if GetInclinometerExists()>0
    print( "Inclinometer" )
    print( "Pitch  : " + str( GetRawInclinoPitch() ) )
    print( "Roll   : " + str( GetRawInclinoRoll() ) )
    print( "Yaw    : " + str( GetRawInclinoYaw() ) )
endif

rem get Orientation
if GetOrientationSensorExists()>0
    print( "Orientation" )
    print( "W  : " + str( GetRawOrientationW() ) )
    print( "X  : " + str( GetRawOrientationX() ) )
    print( "Y  : " + str( GetRawOrientationY() ) )
    print( "Z  : " + str( GetRawOrientationZ() ) )
endif

//  Requires an image in myImage, with wrapping set on
//  setImageWrapU( myImage , 1 ) : setImageWrapV( myImage , 1 )

// Create Sprite for Background
mySprite = createSprite( myImage )
// Make it size of screen
setSpriteSize( mySprite , getVirtualWidth() , getVirtualHeight()
// Fix it to screen
fixSpriteToScreen( mySprite , 1 )
// Set it waaaay back
setSpriteDepth( mySprite , 9999 )
// Calculate Sprite Texture Scale
thisUScale# = getImageWidth( myImage ) / getSpriteWidth( mySprite )
thisVScale# = getImageHeight( myImage ) / getSpriteHeight( mySprite )
setSpriteUVScale( mySprite , thisUScale# , thisVScale# )

    Rem Move a sprite around a circle

    Rem set Your virtual resolution
setvirtualresolution(800,600)
    Rem Create a white squared sprite by using image 0
CreateSprite(1,0)
    Rem set up the variables. Variables is used here for explanation and reuseability

    rem the angle of the rotation(0 - 360)/A point around the circumference(the circle)
angle = 0
    rem the diameter of the circle (the width or height)
    ` using the same value for diameterX and DiameterY will create a circle
    ` using different values will create an oval
diameterX = 200
diameterY = 200
    rem The x Value of the centre of the circle
centreX = 400
    rem The Y Value of the centre of the circle
centreY = 300
    Rem Steps is how fast the sprite should move (a Value of 1 draws the sprite at every point around the circle)
steps = 5

do
    rem Position the sprite using the math commands Sin and Cos (Sin for x and Cos for y)

setspritePosition(1,Sin(Angle)*diameterX+centreX,Cos(angle)*diameterY+centreY)

    rem check if the sprite has moved full circle (360 degrees) then set it back to zero if it has.
    ` Use greater than -360 ( > -360 ) and subtract before steps ( angle - steps ) to move opposite direction
    ` It is possible to skip the check for 360 (full circle) and only decreas/increase the angle
    ` but then the angle value will decrease or increase forever

if angle < 360
 angle = angle + steps
else
 angle = 0
endif

 Sync()
loop

     rem Move a sprite along a sine wave

    rem set Your Virtual resolution
setVirtualResolution(800,600)

createsPrite(1,0)

    Rem CentreX is the centre of the sine wave on the x-axis
    ` getvirtualWidth()/2 gets the middle of the screen on the x-axis
centreX=getVirtualWidth()/2
    rem yPosition is where the sine wave should be placed in the y-axis of the screen
    `getvirtualheight()/2 gives you the middle point of the screen in the y-axis
yPosition = getvirtualHeight()/2
    rem amplitude is the height of the wave/How far up and down the sprite should move
amplitude=50
    Rem stepX is how fast the sprite will travel on the x-axis
speedX = 4
    Rem wavewidth is how wide the sine wave should be
WaveWidth=500
    rem pointX is the value that changes in the loop and makes the whole thing move
PointX=-0
    rem frequency is the value that decides how fast the sprite should move up and down
    `a negative or a positive number (use small steps 0.0 to 6.0)
frequency#=1.4

do
    rem xWave is a calculation that makes the sprite bounce back and forth between the left and right end of the wave
    `it is the same formula used for X in the Move Sprite around a circle snippet
    `The xwave is actually drawing a circle. Only on the x-axis. This reduces the number of if statements
    `in the loop and makes an easein-easeout movement at each end of the wave

xWave=Sin(PointX)*(wavewidth/2)+centreX

    rem yWave is the y position of the sprite on the wave
    ` Instead of using the Cos() math command as in the circle snippet we use sin()
    `

yWave=sin(xwave*frequency#)*(amplitude)+yposition

    rem Place the sprite using the two calculations
    ` if you flip the xWave and yWave you will get a vertical spine wave
    ` setSpriteposition(1,ywave,xWave)

setSpriteposition(1,xWave,yWave)


if PointX < 360
 Pointx = PointX + speedX
else
 PointX = 0
endif

sync()
loop