Sorry your browser is not supported!

Function _StopWatchMS( reset )
    Global Dim SW_Minutes[0] as integer
    Global Dim SW_Seconds[0] as integer
    Global Dim SW_Old_Time#[0] as float

    if reset = 1
        SW_Seconds[0] = 0
        SW_Minutes[0] = 0
    endif

    // increase the number of seconds
    If Timer() - SW_Old_Time#[0] > 1.0
        SW_Seconds[0] = SW_Seconds[0] + 1
        If SW_Seconds[0] > 60
            SW_Seconds[0] = 0
            SW_Minutes[0] = SW_Minutes[0] + 1
        Endif
        SW_Old_Time#[0] = Timer()
    Endif

    // Convert to string
    Time$ = str(SW_Minutes[0]) + " : " + str(SW_Seconds[0])
Endfunction Time$

Function Log( Base#, Value#, Accuracy)
    // locals
    intPower as integer = 0

    Count as integer = 0

    FracPower# as float = 0.0

    recip as integer = 0

    If Value# < 1.0
        Value# = 1.0 / Value#
        recip = 1
    Endif

    intPower = intLog(Base#, Value#)

    If Base#^IntPower = Value#
        Power# = IntPower
    Else


        HighValue# as float = 1.0
        LowValue# as float = 0.0

        FracValue# as float
        FracValue# = (Value# / (Base#^(intPower)))

        While Count < Accuracy
            FracPower# = ((HighValue# + LowValue#) / 2.0)
            // If the value is lower
            If (Base#^(FracPower#)) > FracValue#
                HighValue# = FracPower#
            Endif

            // If the value is higher
            If (Base#^(FracPower#)) < FracValue#
                LowValue# = FracPower#
            Endif

            // If it's equal
            If Base#^(FracPower#) = FracValue# then Count = Accuracy
            // end the loop

            Count = Count + 1
        Endwhile

        Power# = IntPower + FracPower#

        If recip = 1 then Power# = 0 - Power#
    Endif

Endfunction Power#

Function intLog( base as integer, Value as integer)
    // locals
    intPower = 0
    TempValue = Value

    While TempValue >= Base
        TempValue = TempValue / Base
        intPower = intPower + 1
    Endwhile

Endfunction intPower

Function WrapValue( Angle# )
    If Angle# < 0.0 then Angle# = 360.0 + Angle#

    If Angle# > 360.0 then Angle# = Angle# - 360.0
Endfunction Angle#

Function NewXValue( X#, Angle#, Speed#)
    X# = X# + (cos(Angle#) * Speed#)
Endfunction X#

Function NewYValue( Y#, Angle#, Speed#)
    Y# = Y# + (sin(Angle#) * Speed#)
Endfunction Y#

// timeToString by Steven Holding
// This will convert a timer value into a string in hours, minutes and seconds
function timeToString(timeValue#)
    secs=timeValue#
    mins=secs/60
    hrs=mins/60
    mins=mins-hrs*60
    secs=secs-mins*60
    if mins=0
        m$="0"
    else
        m$=str(mins)
    endif
    if secs<10
        s$="0"+str(secs)
    else
        s$=str(secs)
    endif
    txt$=m$+":"+s$
    if hrs>0
        txt$=str(hrs)+":"+txt$
    endif
endfunction txt$

function func_createtext( Text$, Xpos, Ypos, Size, ColorRed, ColorGreen, ColorBlue, ColorAlpha, TextDepth )
   Text = CreateText( Text$ )
   settextcolor ( Text, ColorRed, ColorGreen, Colorblue, ColorAlpha )
   settextsize ( Text, Size )
   settextposition ( Text, Xpos, Ypos )
   if TextDepth >= 1
        SetTextDepth (Text, TextDepth)
   endif
endfunction Text

txt_fps$ = "FPS: " + str(var_fps)
txt_fps = func_createtext( txt_fps$, 0, 0, 13, 255, 0, 0, 255, 0)

txt_fps = func_createtext( "FPS: " + str(var_fps), 0, 0, 13, 255, 0, 0, 255, 0 )

Text$ - The text string.
X - The X position of the text string.
Y - The Y position of the text string.
Size - The size of of the text string.
ColorRed - The red component of the color.
ColorGreen - The green component of the color.
ColorBlue - The blue component of the color.
ColorAlpha - The alpha component of the color.
TextDepth - The depth this text should be drawn at.

Function Text( X#, Y#, txt$ )
    Dim T_NumText[0] as integer

    Dim T_Texts[T_NumText[0]] as integer

    Dim OldSync[0] as float
    Dim NewSync[0] as float
    NewSync[0] = ScreenFPS()

    // if a sync has occured then delete all text
    Temp = T_NumText[0]
    If NewSync[0] <> OldSync[0]
        For n = 0 to Temp
            if GetTextExists(T_Texts[n]) = 1
                DeleteText(T_Texts[n])
                T_NumText[0] = T_NumText[0] - 1
            endif
        Next n
    Endif

    T_NumText[0] = T_NumText[0] + 1
    Dim T_Texts[T_NumText[0]] as integer

    T_Texts[T_NumText[0]] = CreateText( txt$ )
    SetTextPosition( T_Texts[T_NumText[0]], X#, Y# )
    If GetVirtualWidth() > 100
        SetTextSize(T_Texts[T_NumText[0]], (4.0 / 100.0) * 480)
    Endif
    OldSync[0] = ScreenFPS()
Endfunction

SetVirtualResolution(640, 480)
txtPhrase = CreateText("Fantastic!")
SetTextSize(txtPhrase, 48)
SetTextAlignment(txtPhrase, 1)
SetTextPosition(txtPhrase, 320, 240)
nBumpSize# = 0.5

do
    print("click to bump text, each time bumps higher")
    Sync()
    if GetPointerReleased()
        BumpText(txtPhrase, nBumpSize#)
        nBumpSize# = nBumpSize# + .5
    endif
loop

` The function requires two parameters.
` textID is the integer ID of the created text object.
` nBumpScale# is a float that is used to scale the
` distance of the bump. Values in the range of 0.5
` to 5.0 give the best results.

function BumpText(textID as integer, nBumpScale# as float)
    nBump = GetTextSize(textID) / 5
    nLength = GetTextLength(textID)
    Dim LetterCode[nLength] as integer
    Dim BumpValue[10]

    for nStep = 0 to 5
        BumpValue[nStep] = nStep * nBump * nBumpScale#
        BumpValue[10 - nStep] = nStep * nBump * nBumpScale#
    next nStep

    for nLetter = 0 to nLength
        LetterCode[nLetter] = nLetter * -1
    next nLetter

    while LetterCode[nLength-1] <= 10
        for nChar = 0 to nLength - 1
            if LetterCode[nChar] >= 0 and LetterCode[nChar] <= 10
                SetTextCharY(textID, nChar, BumpValue[LetterCode[nChar]] * -1)
            endif
            inc LetterCode[nChar]
        next nChar
        sync()
    endwhile
endfunction

Function MakeObjectBlock(x, y, sx, sy, r, g, b, a)
  ID = createSprite ( 0 )
  setSpriteSize ( ID, sx, sy )
  SetSpriteColor ( ID , r , g , b , a )
  SetSpriteOffset (ID, sx/2, sy/2)
  SetSpritePositionByOffset( ID , x , y )
EndFunction ID

SetVirtualResolution(480, 480)

spr1 = MakeObjectBlock(240, 240, 50, 50, 0, 0, 255, 255)
spr2 = MakeObjectBlock(240, 240, 20, 20, 128, 128, 128, 255)

Do

Sync()
Loop

Function MakeObjectBlock(x, y, sx, sy, r, g, b, a)
  ID = createSprite ( 0 )
  setSpriteSize ( ID, sx, sy )
  SetSpriteColor ( ID , r , g , b , a )
  SetSpriteOffset (ID, sx/2, sy/2)
  SetSpritePositionByOffset( ID , x , y )
EndFunction ID

Remstart -----------------------------------------------------------------------------------

Name            DiceRoll
Parameters
        In      numdice(Integer), sizedice(Integer), dicebonus(Integer)
       Out      total   
Pre-Condition   None
Post-Condition  None       
Description     Rolls 'sizedice' by 'numdice' amount of times adding to the previous total
                until the correct 'numdice' has been rolled before adding 'dicebonus' to
                the 'total' which is then returned by the function.
                
------------------------------------------------------------------------------------- Remend

function func_DiceRoll(numdice,sizedice,dicebonus)

    for numrolls = 1 to numdice ` 
        total = total + (random(1,sizedice)) ` add new roll to previous total
    next numrolls
    
    total = total + dicebonus ` apply any dicebonus as required
    
endfunction total

     total = DiceRoll(1,6,4)
     print ( "You rolled: " + str(total) )

Function Orbit(ID, ID2, rad as float, angle as float)
    x# = rad * cos(angle)
    y# = rad * sin(angle)
    SetSpritePositionByOffset( ID, GetSpriteXByOffset(ID2) + x#, GetSpriteYByOffset(ID2) + y# )
EndFunction

SetVirtualResolution(480, 480)
SetSyncRate(60, 0)

Planet = MakeObjectBlock(240, 240, 50, 50, 0, 0, 255, 255)
Moon = MakeObjectBlock(240, 240, 20, 20, 128, 128, 128, 255)
Astro = MakeObjectBlock(240, 240, 5, 5, 200, 200, 200, 255)

Do
angle# = angle# + 0.2
if angle# > 360 then angle# = 0
angle2# = angle2# + 0.9
if angle2# > 360 then angle2# = 0
Orbit(moon, planet, 80, angle#)
Orbit(astro, moon, 30, angle2#)
Sync()
Loop

Function MakeObjectBlock(x, y, sx, sy, r, g, b, a)
  ID = createSprite ( 0 )
  setSpriteSize ( ID, sx, sy )
  SetSpriteColor ( ID , r , g , b , a )
  SetSpriteOffset (ID, sx/2, sy/2)
  SetSpritePositionByOffset( ID , x , y )
EndFunction ID

Function Orbit(ID, ID2, rad as float, angle as float)
    x# = rad * cos(angle)
    y# = rad * sin(angle)
    SetSpritePositionByOffset( ID, GetSpriteXByOffset(ID2) + x#, GetSpriteYByOffset(ID2) + y# )
EndFunction

Function Explosion(ID, x, y, img)
        SetParticlesPosition ( ID, x, y )

        ResetParticleCount ( ID )
        SetParticlesFrequency ( ID, 250 )
        SetParticlesLife ( ID, 1.5 )
        SetParticlesSize ( ID, 32 )
        SetParticlesStartZone ( ID, -10, 0, 10, 0 )
        SetParticlesImage ( ID, img )
        SetParticlesDirection ( ID, 10, 10 )
        SetParticlesAngle ( ID, 360 )
        SetParticlesVelocityRange ( ID, 0.8, 2.5 )
        SetParticlesMax ( ID, 250 )

        AddParticlesColorKeyFrame ( ID, 0.0, 0, 0, 0, 0 )
        AddParticlesColorKeyFrame ( ID, 0.5, 255, 255, 0, 255 )
        AddParticlesColorKeyFrame ( ID, 1.5, 255, 0, 0, 0 )

        AddParticlesForce ( ID, 2.0, 2.8, 25, -25 )
EndFunction ID

// number of explosion emitters
global cycle as integer
// set a virtual resolution
SetVirtualResolution ( 320, 480 )

// display a backdrop
CreateSprite ( LoadImage ( "alien_backdrop.jpg" ) )

// load an image for the particles
LoadImage ( 1, "shrapnel3.png" )

//
cycle = 0
// main loop
do

//get the users tap screen location
//create a particle
    If cycle => 6 then cycle = 0

    // fire when ready
    if getpointerpressed() = 1
        cycle = cycle + 1
        If GetParticlesExists(cycle) = 1
            Explosion(cycle, GetPointerX(), GetPointerY(), 1)
        Else
            CreateParticles(cycle, 1, 1)
            Explosion(cycle, GetPointerX(), GetPointerY(), 1)
        EndIF
    endif


    // update the screen
    sync ( )
loop

Function Explosion(ID, x, y, img)
        SetParticlesPosition ( ID, x, y )

        ResetParticleCount ( ID )
        SetParticlesFrequency ( ID, 250 )
        SetParticlesLife ( ID, 1.5 )
        SetParticlesSize ( ID, 32 )
        SetParticlesStartZone ( ID, -10, 0, 10, 0 )
        SetParticlesImage ( ID, img )
        SetParticlesDirection ( ID, 10, 10 )
        SetParticlesAngle ( ID, 360 )
        SetParticlesVelocityRange ( ID, 0.8, 2.5 )
        SetParticlesMax ( ID, 250 )

        AddParticlesColorKeyFrame ( ID, 0.0, 0, 0, 0, 0 )
        AddParticlesColorKeyFrame ( ID, 0.5, 255, 255, 0, 255 )
        AddParticlesColorKeyFrame ( ID, 1.5, 255, 0, 0, 0 )

        AddParticlesForce ( ID, 2.0, 2.8, 25, -25 )
EndFunction ID

txt_fps$ = "FPS: " + str(var_fps)
txt_fps = func_createtext( txt_fps$, 0, 0, 13, 255, 0, 0, 255, 0)

txt_fps = func_createtext( "FPS: " + str(var_fps), 0, 0, 13, 255, 0, 0, 255, 0)

An initialisation function for the registerFont(file$) function.

Function Text( X#, Y#, txt$ )
    Dim T_NumText[0] as integer

    Dim T_Texts[T_NumText[0]] as integer

    Dim OldSync[0] as float
    Dim NewSync[0] as float
    NewSync[0] = ScreenFPS()

    // if a sync has occured then delete all text
    Temp = T_NumText[0]
    If NewSync[0] <> OldSync[0]
        For n = 0 to Temp
            if GetTextExists(T_Texts[n]) = 1
                DeleteText(T_Texts[n])
                T_NumText[0] = T_NumText[0] - 1
            endif
        Next n
    Endif

    T_NumText[0] = T_NumText[0] + 1
    Dim T_Texts[T_NumText[0]] as integer

    T_Texts[T_NumText[0]] = CreateText( txt$ )
    SetTextPosition( T_Texts[T_NumText[0]], X#, Y# )
    If GetVirtualWidth() > 100
        SetTextSize(T_Texts[T_NumText[0]], (4.0 / 100.0) * 480)
    Endif
    OldSync[0] = ScreenFPS()
Endfunction

Function CenterText( X#, Y#, txt$ )
    Dim C_NumText[0] as integer
    Dim ColorDefault[0] as integer
    Dim C_Texts[C_NumText[0]] as integer
    Dim SizeDefault[0] as integer
    Dim C_OldSync[0] as float
    Dim C_NewSync[0] as float
    C_NewSync[0] = ScreenFPS()

    // if a sync has occured then delete all text
    Temp = C_NumText[0]
    If C_NewSync[0] <> C_OldSync[0]
        For n = 0 to Temp
            if GetTextExists(C_Texts[n]) = 1
                DeleteText(C_Texts[n])
                C_NumText[0] = C_NumText[0] - 1
            endif
        Next n
    Endif

    C_NumText[0] = C_NumText[0] + 1
    Dim C_Texts[C_NumText[0]] as integer

    C_Texts[C_NumText[0]] = CreateText( txt$ )

    If SizeDefault[0] = 0
        If GetVirtualWidth() > 100
            SetTextSize(C_Texts[C_NumText[0]], (4.0 / 100.0) * 480)
        Endif
    Else
        SetTextSize(C_Texts[C_NumText[0]], T_Size[0])
    Endif

    If ColorDefault[0] = 1 then SetTextColor(C_Texts[C_NumText[0]], T_Red[0], T_Green[0], T_Blue[0], T_Alpha[0])

    SetTextPosition( C_Texts[C_NumText[0]], X#-(GetTextTotalWidth(C_Texts[C_NumText[0]]) / 2), Y# )

    C_OldSync[0] = ScreenFPS()
Endfunction

Function Ink( red, green, blue, alpha )
    Dim ColorDefault[0] as integer
    Dim T_Red[0] as integer
    Dim T_Green[0] as integer
    Dim T_Blue[0] as integer
    Dim T_Alpha[0] as integer

    T_Red[0] = red
    T_Green[0] = green
    T_Blue[0] = blue
    T_Alpha[0] = alpha

    ColorDefault[0] = 1

Endfunction

Function TextSize( size# )
    Dim SizeDefault[0] as integer
    Dim T_Size[0] as float

    T_Size[0] = size#

    SizeDefault[0] = 1

Endfunction

Function VScrollSprite(spr, u as float, v as float, speed as float, mode)
    Select mode
        Case 0
            If v <= 0 then u = 1
            v = v + speed
            SetSpriteUVOffset(spr, u, v)
        EndCase
        Case 1
            If v => 1 then v = 0
            v = v - speed
            SetSpriteUVOffset(spr, u, v)
        EndCase
    EndSelect
EndFunction v

Function HScrollSprite(spr, u as float, v as float, speed as float, mode)
    Select mode
        Case 0
            If u <= 0 then u = 1
            u = u + speed
            SetSpriteUVOffset(spr, u, v)
        EndCase
        Case 1
            If u => 1 then u = 0
            u = u - speed
            SetSpriteUVOffset(spr, u, v)
        EndCase
    EndSelect
EndFunction u

    tmpx# = HScrollSprite(sprite_number, tmpx#, tmpy#, 0.00001, 1)
    tmpy# = VScrollSprite(sprite_number, tmpx#, tmpy#, 0.00005, 1)

global ufp_global_rounded=0

function ufp_round1(value#)
	roundto#=1 //probably useless
	value#=value#/roundto#
	value#=ufp_internal_round(value#)
	value#=value*roundto#
endfunction value#

function ufp_round2(value#,roundto#)
	value#=value#/roundto#
	value#=ufp_internal_round(value#)
	value#=value*roundto#
endfunction value#

function ufp_rounded()
 //this simply returns the global value ufp_global_rounded
endfunction ufp_global_rounded

function ufp_negate(value#)
	nvalue#=value#*2
	value#=value#-nvalue#
endfunction value#

function ufp_positive(value#)
	if(value#<0) value#=ufp_internal_negate(value#);
endfunction value#

function ufp_negative(value#)
	if(value#>0) value#=ufp_internal_negate(value#);
endfunction value#

//lerp(x,y,s) - returns a value between x and y based on s, so that it returns x when s=0 and y when s=1
function ufp_resizevalue(minfrom#,maxfrom#,from#)
	minto#=0
	maxto#=1
	maxfrom#=maxfrom#-minfrom#
	divf#=(from#-minfrom#)/maxfrom#
	subt#=maxto#-minto#
	divt#=divf#*subt#
	to#=divt#+minto#
endfunction to#

function ufp_resizevalue(minfrom#,maxfrom#,from#,minto#,maxto#)
	maxfrom#=maxfrom#-minfrom#
	divf#=(from#-minfrom#)/maxfrom#
	subt#=maxto#-minto#
	divt#=divf#*subt#
	to#=divt#+minto#
endfunction to#

function ufp_distance(x1#,y1#,z1#,x2#,y2#,z2#)
	dx#=x1#-x2#
	dy#=y1#-y2#
	dz#=z1#-z2#
	distance#=sqrt(dx#*dx#+dy#*dy#+dz#*dz#)
endfunction distance#

function ufp_distance(x1#,z1#,x2#,z2#)
	y1#=0
	y2#=0
	dx#=x1#-x2#
	dy#=y1#-y2#
	dz#=z1#-z2#
	distance#=sqrt(dx#*dx#+dy#*dy#+dz#*dz#)
endfunction distance#

function ufp_distance(y1#,y2#)
	x1#=0
	z1#=0
	x2#=0
	z2#=0
	dx#=x1#-x2#
	dy#=y1#-y2#
	dz#=z1#-z2#
	distance#=sqrt(dx#*dx#+dy#*dy#+dz#*dz#)
endfunction distance#

//make a 3d version of this
function ufp_pointwithin(pointx#,pointy#,x1#,y1#,x2#,y2#)
	if pointx#>x1# and pointy#>y1#
		if pointx#<x2# and pointy#<y2# then exitfunction 1
 endif
endfunction 0

function ufp_pointerwithin(x1,y1,x2,y2)
	mousex=getpointerx()
	mousey=getpointery()
	if mousex>x1 and mousey>y1
		if mousex<x2 and mousey<y2 then exitfunction 1
 endif
endfunction 0

/*
NOT FINISHED
function ufp_getrelativemousex()
{
	int mousex=dbGetMouseX();
	//resize returns a dbpro dword not a float
	//float relx=(ufp_resizevalue2(0,screen size x1,mousex,0,1))-1;
	return *(DWORD*)&relx;
}
*/

//grabfloatpart(float) - returns only the float part of a number, eg. 1.5 = 0.5, 4.7 = 0.7, newnumber=int(number), float=number-newnumber
function ufp_floatpart(value#)
	temp=value#
	value#=value#-temp
endfunction value#

//reversevalue - in=0.6 out=-in out=out+1 out=0.4
function ufp_reversevalue(value#)
	min#=0
	max#=1
	value#=value#-min#
	max#=max#-min#
	newvalue#=-value#
	newvalue#=newvalue#+max# //default to 1
	newvalue#=newvalue#+min#
endfunction newvalue#

function ufp_reversevalue(value#,max#)
	min#=0
	value#=value#-min#
	max#=max#-min#
	newvalue#=-value#
	newvalue#=newvalue#+max#
	newvalue#=newvalue#+min#
endfunction newvalue#

function ufp_reversevalue(value#,max#,min#)
	value#=value#-min#
	max#=max#-min#
	newvalue#=-value#
	newvalue#=newvalue#+max#
	newvalue#=newvalue#+min#
endfunction newvalue#

//INTERNAL FUNCTIONS

function ufp_internal_negate(value#)
	nvalue#=value#*2
	value#=value#-nvalue#
endfunction value#

function ufp_internal_positive(value#)
	if value#<0 value#=ufp_internal_negate(value#)
endfunction value#

function ufp_internal_negative(value#)
	if value#>0 value#=ufp_internal_negate(value#)
endfunction value#

function ufp_internal_round(value#)
	flatvalue=value#
	newvalue#=value#-flatvalue
	if newvalue#>=0
		if newvalue#>=0.5
			finalvalue=flatvalue+1
			ufp_global_rounded=1
		endif
		if newvalue#<0.5
			finalvalue=value#-newvalue#
			ufp_global_rounded=2
		endif
	endif
	if newvalue#<0
		if newvalue#>=0.5
			finalvalue=flatvalue+1
			ufp_global_rounded=2
		endif
		if newvalue#<0.5
			finalvalue=value#-newvalue#
			ufp_global_rounded=1
		endif
	endif
endfunction finalvalue

rem moves a sprite to the right when not rotated using a positive value
function moveSprite(spriteID, amount#)
    rem get display data
    dw# = getVirtualWidth()
    dh# = getVirtualHeight()
    aspect# = (dw# / dh#)
    if aspect# = 1.0
        aspect# = getDisplayAspect()
    else
        aspect# = 1.0
    endif
    a# = getSpriteAngle(spriteID)
    x# = getSpriteXbyOffset(spriteID)
    y# = getSpriteYbyOffset(spriteID)
    setSpritePositionByOffset(spriteID,x#+cos(a#)*amount#,y#+sin(a#)*amount#*aspect#)
endfunction

rem moves a sprite up when not rotated using a positive value
function moveSpriteUp(spriteID, amount#)
    rem get display data
    dw# = getVirtualWidth()
    dh# = getVirtualHeight()
    aspect# = (dw# / dh#)
    if aspect# = 1.0
        aspect# = getDisplayAspect()
    else
        aspect# = 1.0
    endif
    a# = getSpriteAngle(spriteID)
    x# = getSpriteXbyOffset(spriteID)
    y# = getSpriteYbyOffset(spriteID)
    setSpritePositionByOffset(spriteID,x#+sin(a#)*amount#,y#-cos(a#)*amount#*aspect#)
endfunction

rem turns a sprite by a set angle in relation to it's current angle
function turnSprite(spriteID,degrees#)
    setSpriteAngle(spriteID,getSpriteAngle(spriteID)+degrees#)
endfunction

rem points a sprite at a particular point in space
function pointSprite(spriteID,x#,y#)
    rem get display data
    dw# = getVirtualWidth()
    dh# = getVirtualHeight()
    aspect# = (dw# / dh#)
    if aspect# = 1.0
        aspect# = getDisplayAspect()
    else
        aspect# = 1.0
    endif
    dx# = x#-getSpriteXbyOffset(spriteID)
    dy# = y#-getSpriteYbyOffset(spriteID)
    setSpriteAngle(spriteID,atanfull(dx#,dy#/aspect#))
endfunction

rem turns a sprite towards a particular point in space by a fraction higher than 0 and up to 1.0
Wrong!!!!

rem turns a sprite towards a particular point in space by a fraction higher than 0 and up to 1.0
function turnSpriteTo(spriteID,x#,y#,value#)
    rem get display data
	dw# = getVirtualWidth()
	dh# = getVirtualHeight()
	aspect# = (dw# / dh#)
	if aspect# = 1.0
        aspect# = getDisplayAspect()
	else
        aspect# = 1.0
    endif
    dx# = x#-getSpriteX(spriteID)
    dy# = y#-getSpriteY(spriteID)
    ang# = getSpriteAngle(spriteID)
    targ# = atanfull(dx#,dy#/aspect#)-90
    diff# = targ#-ang#
    while diff#>=180
        diff# = diff#-360
    endwhile
    while diff#<=-180
        diff# = diff#+360
    endwhile
    new# = ang# + diff# * value#
    setSpriteAngle(spriteID,new#)
endfunction

Function SetAccelerometer()
    Repeat
        Print("Hold your tablet in a natrual position.")
        Print("And tap the screen to finish calibration.")
        c# = GetDirectionY()
    Sync()
    Until GetPointerPressed() = 1
    accel.range = 1 - c# //this is the range of avilible movement
    accel.multi = 1 / accel.range
    accel.middle = c# //this is the resting position of the device
    accel.top = accel.middle - accel.range //this sets the upper range of movement
    accel.bottom = 1 //this sets the lower range of movement
EndFunction

Function GetDirectionYOffset()
    y# = GetDirectionY()
    //limit the overall values
    if y# < accel.top then y# = accel.top
    if y# > accel.bottom then y# = accel.bottom

    //convert the movement data into raw -1 or +1 data
    y# = y# - accel.middle
    If y# < 0
        y# = abs(y#) * accel.multi
        y# = y# - y# - y#
    Else
        y# = y# * accel.multi
    EndIf

EndFunction y#

//place at beginning of program
Type _Acc
    top as float
    middle as float
    bottom as float
    range as float
    multi as float
EndType

Global accel as _Acc

// move a sprite around using the accelerometer, platforms like
// Windows, Mac and Meego can fall back to the keyboard
Type _Acc
    top as float
    middle as float
    bottom as float
    range as float
    multi as float
EndType

Global accel as _Acc

// set a virtual resolution of 320 x 480
SetVirtualResolution ( 320, 480 )

SetAccelerometer()

// display a background
CreateSprite ( LoadImage ( "background3.jpg" ) )

// create a sprite and position it in the center of the screen
CreateSprite ( 1, LoadImage ( "peach.png" ) )
SetSpritePosition ( 1, 160, 200 )

// main loop
do
    // display instructions
    Print ( "Tilt the device to move the sprite" )
    Print ( "Or use the arrow keys if a keyboard" )
    Print ( "is present" )
    Print ( "" )

    // obtain information about the accelerometer
    x# = GetDirectionX ( )
    y# = GetDirectionYOffset()

    // print accelerometer data on screen
    Print ( x# )
    Print ( y# )

    // add accelerometer data to our sprites position
    SetSpritePosition ( 1, GetSpriteX ( 1 ) + x#, GetSpriteY ( 1 ) + y# )

    // make sure sprite can't move past the left of the screen
    if ( GetSpriteX ( 1 ) < 10 )
        SetSpriteX ( 1, 10 )
    endif

    // make sure sprite can't move past the right of the screen
    if ( GetSpriteX ( 1 ) > 260 )
        SetSpriteX ( 1, 260 )
    endif

    // make sure sprite can't move past the top of the screen
    if ( GetSpriteY ( 1 ) < 10 )
        SetSpriteY ( 1, 10 )
    endif

    // make sure sprite can't move past the bottom of the screen
    if ( GetSpriteY ( 1 ) > 430 )
        SetSpriteY ( 1, 430 )
    endif

    // update the contents of the screen
    sync ( )
loop

Function SetAccelerometer()
    Repeat
        Print("Hold your tablet in a natrual position.")
        Print("And tap the screen to finish calibration.")
        c# = GetDirectionY()
    Sync()
    Until GetPointerPressed() = 1
    accel.range = 1 - c# //this is the range of avilible movement
    accel.multi = 1 / accel.range
    accel.middle = c# //this is the resting position of the device
    accel.top = accel.middle - accel.range //this sets the upper range of movement
    accel.bottom = 1 //this sets the lower range of movement
EndFunction

Function GetDirectionYOffset()
    y# = GetDirectionY()
    //limit the overall values
    if y# < accel.top then y# = accel.top
    if y# > accel.bottom then y# = accel.bottom

    //convert the movement data into raw -1 or +1 data
    y# = y# - accel.middle
    If y# < 0
        y# = abs(y#) * accel.multi
        y# = y# - y# - y#
    Else
        y# = y# * accel.multi
    EndIf

EndFunction y#

Type _Acc
    top as float
    middle as float
    bottom as float
    range as float
    multi as float
EndType

Global accel as _Acc

Function SetAccelerometer()
    //start a loop and display this starting message
    Repeat
        Print("Hold your tablet in a natrual position.")
        Print("And tap the screen to finish calibration.")
        c# = GetDirectionY() //get the position of the device
    Sync()
    Until GetPointerPressed() = 1

    accel.range = 1 - c# //this is the range of avilible movement
    accel.multi = 1 / accel.range
    accel.middle = c# //this is the resting position of the device
    accel.top = accel.middle - accel.range //this sets the upper range of movement
    accel.bottom = 1 //this sets the lower range of movement
EndFunction

Function GetDirectionYOffset(deadzone as float, sensitivity as float)
    //get the position
    y# = GetDirectionY()
    //limit the overall values
    if y# < accel.top then y# = accel.top
    if y# > accel.bottom then y# = accel.bottom

    //adjust the adjusted data between -1 and 1
    y# = y# - accel.middle
    If y# < 0
        y# = abs(y#) * accel.multi
        //apply the dead zone
        If y# < deadzone
            y# = 0
        Else
            y# = y# * sensitivity //apply sensitivity
            y# = y# - y# - y#
        EndIf
    Else
        y# = y# * accel.multi
        If y# < deadzone then y# = 0
        y# = y# * sensitivity
    EndIf
EndFunction y#

Function GetDirectionXOffset(deadzone as float, sensitivity as float)
    x# = GetDirectionX()
    If x# < 0
        x# = abs(x#)
        If x# < deadzone
            x# = 0
        Else
            x# = x# * sensitivity
            x# = x# - x# - x#
        EndIf
    Else
        If x# < deadzone
            x# = 0
        Else
            x# = x# * sensitivity
        EndIf
    EndIf
EndFunction x#

// move a sprite around using the accelerometer, platforms like
// Windows, Mac and Meego can fall back to the keyboard
Type _Acc
    top as float
    middle as float
    bottom as float
    range as float
    multi as float
EndType

Global accel as _Acc

// set a virtual resolution of 320 x 480
SetVirtualResolution ( 320, 480 )

SetAccelerometer()

// display a background
CreateSprite ( LoadImage ( "background3.jpg" ) )

// create a sprite and position it in the center of the screen
CreateSprite ( 1, LoadImage ( "peach.png" ) )
SetSpritePosition ( 1, 160, 200 )

// main loop
do
    // display instructions
    Print ( "Tilt the device to move the sprite" )
    Print ( "Or use the arrow keys if a keyboard" )
    Print ( "is present" )
    Print ( "" )

    // obtain information about the accelerometer
    x# = GetDirectionXOffset( 0.25, 2 )
    y# = GetDirectionYOffset(0.25, 2)

    // print accelerometer data on screen
    Print ( x# )
    Print ( y# )

    // add accelerometer data to our sprites position
    SetSpritePosition ( 1, GetSpriteX ( 1 ) + x#, GetSpriteY ( 1 ) + y# )

    // make sure sprite can't move past the left of the screen
    if ( GetSpriteX ( 1 ) < 10 )
        SetSpriteX ( 1, 10 )
    endif

    // make sure sprite can't move past the right of the screen
    if ( GetSpriteX ( 1 ) > 260 )
        SetSpriteX ( 1, 260 )
    endif

    // make sure sprite can't move past the top of the screen
    if ( GetSpriteY ( 1 ) < 10 )
        SetSpriteY ( 1, 10 )
    endif

    // make sure sprite can't move past the bottom of the screen
    if ( GetSpriteY ( 1 ) > 430 )
        SetSpriteY ( 1, 430 )
    endif

    // update the contents of the screen
    sync ( )
loop

Function SetAccelerometer()
    //start a loop and display this starting message
    Repeat
        Print("Hold your tablet in a natrual position.")
        Print("And tap the screen to finish calibration.")
        c# = GetDirectionY() //get the position of the device
    Sync()
    Until GetPointerPressed() = 1

    accel.range = 1 - c# //this is the range of avilible movement
    accel.multi = 1 / accel.range
    accel.middle = c# //this is the resting position of the device
    accel.top = accel.middle - accel.range //this sets the upper range of movement
    accel.bottom = 1 //this sets the lower range of movement
EndFunction

Function GetDirectionYOffset(deadzone as float, sensitivity as float)
    //get the position
    y# = GetDirectionY()
    //limit the overall values
    if y# < accel.top then y# = accel.top
    if y# > accel.bottom then y# = accel.bottom

    //adjust the adjusted data between -1 and 1
    y# = y# - accel.middle
    If y# < 0
        y# = abs(y#) * accel.multi
        //apply the dead zone
        If y# < deadzone
            y# = 0
        Else
            y# = y# * sensitivity //apply sensitivity
            y# = y# - y# - y#
        EndIf
    Else
        y# = y# * accel.multi
        If y# < deadzone then y# = 0
        y# = y# * sensitivity
    EndIf
EndFunction y#

Function GetDirectionXOffset(deadzone as float, sensitivity as float)
    x# = GetDirectionX()
    If x# < 0
        x# = abs(x#)
        If x# < deadzone
            x# = 0
        Else
            x# = x# * sensitivity
            x# = x# - x# - x#
        EndIf
    Else
        If x# < deadzone
            x# = 0
        Else
            x# = x# * sensitivity
        EndIf
    EndIf
EndFunction x#

Type _vb
    id as integer
    up as integer
    down as integer
EndType

Dim vb[11] as _vb

For rep = 0 to 11
    vb[rep].id = rep + 1
Next rep

Function VirtualButtonCheck(max)
    output = 0
    For rep = 1 to max
        If GetVirtualButtonPressed( rep ) = 1
            output = rep
            exit
        EndIf
    Next rep
EndFunction output

Type _Acc
    top as float
    middle as float
    bottom as float
    range as float
    multi as float
EndType

Type _menu
    splash as integer
    bg as integer
    music as integer
EndType

Type _sys
    width as integer
    height as integer
EndType

Type _vb
    id as integer
    up as integer
    down as integer
EndType

Global accel as _Acc
Global menu as _menu
Global system as _sys
Dim vb[11] as _vb

system.height = 480
system.width = 320

For rep = 0 to 11
    vb[rep].id = rep + 1
Next rep

//Setup program Environment
SetVirtualResolution(system.width, system.height)
SetSyncRate(60, 0)

Function SplashScreen(time#)
    menu.splash = CreateSprite(LoadImage("splash.jpg"))
    Sync()
    sleep(time#)
    SetSpriteVisible(menu.splash, 0)
EndFunction

Function MainMenu()
    menu.bg = CreateSprite(LoadImage("background.jpg"))
    vb[0].up = LoadImage("start_up.png")
    vb[0].down = LoadImage("start_down.png")
    vb[1].up = LoadImage("options_up.png")
    vb[1].down = LoadImage("options_down.png")
    vb[2].up = LoadImage("exit_up.png")
    vb[2].down = LoadImage("exit_down.png")
    AddVirtualButton( vb[0].id, system.width / 2, 200, 64)
    AddVirtualButton( vb[1].id, system.width / 2, 275, 64)
    AddVirtualButton( vb[2].id, system.width / 2, 350, 64)
    SetVirtualButtonImageUp( vb[0].id, vb[0].up)
    SetVirtualButtonImageDown( vb[0].id, vb[0].down)
    SetVirtualButtonImageUp( vb[1].id, vb[1].up)
    SetVirtualButtonImageDown( vb[1].id, vb[1].down)
    SetVirtualButtonImageUp( vb[2].id, vb[2].up)
    SetVirtualButtonImageDown( vb[2].id, vb[2].down)
    Do
        button = VirtualButtonCheck(3)
        select button
            case 0
                //Do nothing, no buttons have been pressed.
            endcase
            case 1
                //starts the game
                SetSpriteVisible( menu.bg, 0)
                SetVirtualButtonVisible( vb[0].id, 0)
                SetVirtualButtonVisible( vb[1].id, 0)
                SetVirtualButtonVisible( vb[2].id, 0)
                exit //ends the do loop sequence
            endcase
            case 2
                SetAccelerometer()
            endcase
            case 3
                //end the game
                end
            endcase
        endselect
    Sync()
    Loop
EndFunction

//Data setup here
Type _Acc
    top as float
    middle as float
    bottom as float
    range as float
    multi as float
EndType

Type _menu
    splash as integer
    bg as integer
    music as integer
EndType

Type _sys
    width as integer
    height as integer
EndType

Type _vb
    id as integer
    up as integer
    down as integer
EndType

Global accel as _Acc
Global menu as _menu
Global system as _sys
Dim vb[11] as _vb

system.height = 480
system.width = 320

For rep = 0 to 11
    vb[rep].id = rep + 1
Next rep

//Setup program Environment
SetVirtualResolution(system.width, system.height)
SetSyncRate(60, 0)

//Menu and splash
SplashScreen(2000)
MainMenu()

//Pre-Program

//Main Program
do
 Print("hello world")
 Sync()
loop

EndGame()
Reset()

Function SplashScreen(time#)
    menu.splash = CreateSprite(LoadImage("splash.jpg"))
    Sync()
    sleep(time#)
    SetSpriteVisible(menu.splash, 0)
EndFunction

Function MainMenu()
    menu.bg = CreateSprite(LoadImage("background.jpg"))
    vb[0].up = LoadImage("start_up.png")
    vb[0].down = LoadImage("start_down.png")
    vb[1].up = LoadImage("options_up.png")
    vb[1].down = LoadImage("options_down.png")
    vb[2].up = LoadImage("exit_up.png")
    vb[2].down = LoadImage("exit_down.png")
    AddVirtualButton( vb[0].id, system.width / 2, 200, 64)
    AddVirtualButton( vb[1].id, system.width / 2, 275, 64)
    AddVirtualButton( vb[2].id, system.width / 2, 350, 64)
    SetVirtualButtonImageUp( vb[0].id, vb[0].up)
    SetVirtualButtonImageDown( vb[0].id, vb[0].down)
    SetVirtualButtonImageUp( vb[1].id, vb[1].up)
    SetVirtualButtonImageDown( vb[1].id, vb[1].down)
    SetVirtualButtonImageUp( vb[2].id, vb[2].up)
    SetVirtualButtonImageDown( vb[2].id, vb[2].down)
    Do
        button = VirtualButtonCheck(3)
        select button
            case 0
                //Do nothing, no buttons have been pressed.
            endcase
            case 1
                //starts the game
                SetSpriteVisible( menu.bg, 0)
                SetVirtualButtonVisible( vb[0].id, 0)
                SetVirtualButtonVisible( vb[1].id, 0)
                SetVirtualButtonVisible( vb[2].id, 0)
                exit //ends the do loop sequence
            endcase
            case 2
                SetAccelerometer()
            endcase
            case 3
                //end the game
                end
            endcase
        endselect
    Sync()
    Loop
EndFunction

Function EndGame()
EndFunction

Function Reset()
EndFunction

Function VirtualButtonCheck(max)
    output = 0
    For rep = 1 to max
        If GetVirtualButtonPressed( rep ) = 1
            output = rep
            exit
        EndIf
    Next rep
EndFunction output

Function SetAccelerometer()
    //start a loop and display this starting message
    Repeat
        Print("Hold your tablet in a natrual position.")
        Print("And tap the screen to finish calibration.")
        c# = GetDirectionY() //get the position of the device
    Sync()
    Until GetPointerPressed() = 1

    accel.range = 1 - c# //this is the range of avilible movement
    accel.multi = 1 / accel.range
    accel.middle = c# //this is the resting position of the device
    accel.top = accel.middle - accel.range //this sets the upper range of movement
    accel.bottom = 1 //this sets the lower range of movement
EndFunction

Function GetDirectionYOffset(deadzone as float, sensitivity as float)
    //get the position
    y# = GetDirectionY()
    //limit the overall values
    if y# < accel.top then y# = accel.top
    if y# > accel.bottom then y# = accel.bottom

    //adjust the adjusted data between -1 and 1
    y# = y# - accel.middle
    If y# < 0
        y# = abs(y#) * accel.multi
        //apply the dead zone
        If y# < deadzone
            y# = 0
        Else
            y# = y# * sensitivity //apply sensitivity
            y# = y# - y# - y#
        EndIf
    Else
        y# = y# * accel.multi
        If y# < deadzone then y# = 0
        y# = y# * sensitivity
    EndIf
EndFunction y#

Function GetDirectionXOffset(deadzone as float, sensitivity as float)
    x# = GetDirectionX()
    If x# < 0
        x# = abs(x#)
        If x# < deadzone
            x# = 0
        Else
            x# = x# * sensitivity
            x# = x# - x# - x#
        EndIf
    Else
        If x# < deadzone
            x# = 0
        Else
            x# = x# * sensitivity
        EndIf
    EndIf
EndFunction x#

height# = 10
yspeed# = 0.01
multiplier# = 25
xspeed# = 2
xdec# = 0.001
xlimit = 1000
bouncemultipler# = 55

SetVirtualResolution( 1000, 550 )
SetSyncRate( 60, 0 )

sprite = CreateSprite(0)
SetSpriteSize( sprite, 64, 64 )
SetSpriteColor( sprite, 255, 0, 0, 255)

    Repeat
        xspeed# = xspeed# - xdec#
        x# = x# + xspeed# : if x# > xlimit then x# = 0
        SetSpriteX(sprite, x#)

        height# = height# - yspeed#
        b# = bounce(height#)
        y# = 550 - 64 - ( bouncemultipler# * b#)
        SetSpriteY( sprite, y# )
    Sync()
    Until height# < 0

print("ended") : sleep(5000) : end

function Bounce(x as float)
    result# =  abs(sin(6.28*(x+1)*(x+1)) * (1-x))
endFunction result#

void findtime()
{
time_t rawtime;
struct tm *timeinfo;
timeinfo=locattime(&rawtime);
char *timet=asctime(timeinfo);
string timett=timet
int xcnt=0;
string mountht="";
string dayt="";
string yeart="";
while(timett[xcnt]!=' ')
{
xcnt++;
}
xcnt++;
while(timett[xcnt]!=' ')
{
mountht=month+timett[xcnt];
}
xcnt++;
while(timett[xcnt]!=' ')
{
dayt=dayt+timett[xcnt];

}
xcnt++;
while(timett[xcnt]!= ' ')
{
yeart=yeart+timett[xcnt];
xcnt++;
}
}
}

function Hermite( startValue as float, endValue as float, value as float)
    result# = Lerp(startValue, endValue, value * value * (3.0 - 2.0 * value))
endfunction result#

function Lerp( startValue as float, endValue as float , value as float )
    result# = ((1.0 - value) * startValue) + (value * endValue)
endfunction result#

Function AnimateSpriteWithHermite( spr, x1#, x2#, y1#, y2#, speed#, x# )

    yx# = 1 / (x2# - x1#)

    x# = x# + speed#
    if x# > x2# then x# = x1#
    SetSpriteX ( spr, x# )

    y# = Hermite ( y1#, y2#, yx# * (x# - x1#) )
    SetSpriteY ( spr, y# )

EndFunction x#

SetVirtualResolution( 480, 854 )
SetSyncRate( 60, 0 )
sprite = createsprite(0)
SetSpriteSize( sprite, 10, 10 )
SetSpriteColor( sprite, 0, 255, 0, 255)

xy1sprite = createsprite(0)
SetSpriteSize( xy1sprite, 10, 10 )
SetSpriteColor( xy1sprite, 255, 255, 255, 255)

xy2sprite = createsprite(0)
SetSpriteSize( xy2sprite, 10, 10 )
SetSpriteColor( xy2sprite, 255, 255, 255, 255)

x1# = 100.0
x2# = 430.0
speed# = 1.0
y1# = 400.0
y2# = 554.0

SetSpritePosition( xy1sprite, x1#, y1# )
SetSpritePosition( xy2sprite, x2#, y2# )

x# = x1#
do
    x# = AnimateSpriteWithHermite( Sprite, x1#, x2#, y1#, y2#, speed#, x# )
 Sync()
loop

Function AnimateSpriteWithHermite( spr, x1#, x2#, y1#, y2#, speed#, x# )

    yx# = 1 / (x2# - x1#)

    x# = x# + speed#
    if x# > x2# then x# = x1#
    SetSpriteX ( spr, x# )

    y# = Hermite ( y1#, y2#, yx# * (x# - x1#) )
    SetSpriteY ( spr, y# )

EndFunction x#

function Hermite( startValue as float, endValue as float, value as float)
    result# = Lerp(startValue, endValue, value * value * (3.0 - 2.0 * value))
endfunction result#

function Lerp( startValue as float, endValue as float , value as float )
    result# = ((1.0 - value) * startValue) + (value * endValue)
endfunction result#

Function AnimateSpriteWithHermiteWithStop( spr, x1#, x2#, y1#, y2#, speed#, x# )

    yx# = 1 / (x2# - x1#)

    x# = x# + speed#
    if x# > x2# then x# = x# - speed#
    SetSpriteX ( spr, x# )

    y# = Hermite ( y1#, y2#, yx# * (x# - x1#) )
    SetSpriteY ( spr, y# )

EndFunction x#

Function Colours()

//Whites and Pastels

    #constant Snow 255,250,250
    #constant Snow2 238,233,233
    #constant Snow3 205,201,201
    #constant Snow4 139,137,137
    #constant GhostWhite 248,248,255
    #constant WhiteSmoke 245,245,245
    #constant Gainsboro 220,220,220
    #constant FloralWhite 255,250,240
    #constant OldLace 253,245,230
    #constant Linen 240,240,230
    #constant AntiqueWhite 250,235,215
    #constant AntiqueWhite2 238,223,204
    #constant AntiqueWhite3 205,192,176
    #constant AntiqueWhite4 139,131,120
    #constant PapayaWhip 255,239,213
    #constant BlanchedAlmond 255,235,205
    #constant Bisque 255,228,196
    #constant Bisque2 238,213,183
    #constant Bisque3 205,183,158
    #constant Bisque4 139,125,107
    #constant PeachPuff 255,218,185
    #constant PeachPuff2 238,203,173
    #constant PeachPuff3 205,175,149
    #constant PeachPuff4 139,119,101
    #constant NavajoWhite 255,222,173
    #constant Moccasin 255,228,181
    #constant Cornsilk 255,248,220
    #constant Cornsilk2 238,232,205
    #constant Cornsilk3 205,200,177
    #constant Cornsilk4 139,136,120
    #constant Ivory 255,255,240
    #constant Ivory2 238,238,224
    #constant Ivory3 205,205,193
    #constant Ivory4 139,139,131
    #constant LemonChiffon 255,250,205
    #constant Seashell 255,245,238
    #constant Seashell2 238,229,222
    #constant Seashell3 205,197,191
    #constant Seashell4 139,134,130
    #constant Honeydew 240,255,240
    #constant Honeydew2 244,238,224
    #constant Honeydew3 193,205,193
    #constant Honeydew4 131,139,131
    #constant MintCream 245,255,250
    #constant Azure 240,255,255
    #constant AliceBlue 240,248,255
    #constant Lavender 230,230,250
    #constant LavenderBlush 255,240,245
    #constant MistyRose 255,228,225
    #constant White 255,255,255

//Grays

    #constant Black 0,0,0 000000
    #constant DarkSlateGray 49,79,79
    #constant DimGray 105,105,105
    #constant SlateGray 112,138,144
    #constant LightSlateGray 119,136,153
    #constant Gray 190,190,190
    #constant LightGray 211,211,211

//Blues

    #constant MidnightBlue 25,25,112
    #constant Navy 0,0,128
    #constant CornflowerBlue 100,149,237
    #constant DarkSlateBlue 72,61,139
    #constant SlateBlue 106,90,205
    #constant MediumSlateBlue 123,104,238
    #constant LightSlateBlue 132,112,255
    #constant MediumBlue 0,0,205
    #constant RoyalBlue 65,105,225
    #constant Blue 0,0,255
    #constant DodgerBlue 30,144,255
    #constant DeepSkyBlue 0,191,255
    #constant SkyBlue 135,206,250
    #constant LightSkyBlue 135,206,250
    #constant SteelBlue 70,130,180
    #constant LightSteelBlue 176,196,222
    #constant LightBlue 173,216,230
    #constant PowderBlue 176,224,230
    #constant PaleTurquoise 175,238,238
    #constant DarkTurquoise 0,206,209
    #constant MediumTurquoise 72,209,204
    #constant Turquoise 64,224,208
    #constant Cyan 0,255,255
    #constant LightCyan 224,255,255
    #constant CadetBlue 95,158,160

//Greens

    #constant Green 0,255,0
    #constant MediumAquamarine 102,205,170
    #constant Aquamarine 127,255,212
    #constant DarkGreen 0,100,0
    #constant DarkOliveGreen 85,107,47
    #constant DarkSeaGreen 143,188,143
    #constant SeaGreen 46,139,87
    #constant MediumSeaGreen 60,179,113
    #constant LightSeaGreen 32,178,170
    #constant PaleGreen 152,251,152
    #constant SpringGreen 0,255,127
    #constant LawnGreen 124,252,0
    #constant Chartreuse 127,255,0
    #constant MediumSpringGreen 0,250,154
    #constant GreenYellow 173,255,47
    #constant LimeGreen 50,205,50
    #constant YellowGreen 154,205,50
    #constant ForestGreen 34,139,34
    #constant OliveDrab 107,142,35
    #constant DarkKhaki 189,183,107
    #constant Khaki 240,230,140

//Yellow

    #constant PaleGoldenrod 238,232,170
    #constant LightGoldenrodYellow 250,250,210
    #constant LightYellow 255,255,224
    #constant Yellow 255,255,0
    #constant Gold 255,215,0
    #constant LightGoldenrod 238,221,130
    #constant Goldenrod 218,165,32
    #constant DarkGoldenrod 184,134,11

//Browns

    #constant RosyBrown 188,143,143
    #constant IndianRed 205,92,92
    #constant SaddleBrown 139,69,19
    #constant Sienna 160,82,45
    #constant Peru 205,133,63
    #constant Burlywood 222,184,135
    #constant Beige 245,245,220
    #constant Wheat 245,222,179
    #constant SandyBrown 244,164,96
    #constant Tan 210,180,140
    #constant Chocolate 210,105,30
    #constant Firebrick 178,34,34
    #constant Brown 165,42,42

//Oranges

    #constant DarkSalmon 233,150,122
    #constant Salmon 250,128,114
    #constant LightSalmon 255,160,122
    #constant Orange 255,165,0
    #constant DarkOrange 255,140,0
    #constant Coral 255,127,80
    #constant LightCoral 240,128,128
    #constant Tomato 255,99,71
    #constant OrangeRed 255,69,0
    #constant Red 255,0,0

//Pinks and violets

    #constant HotPink 255,105,180
    #constant DeepPink 255,20,147
    #constant Pink 255,192,203
    #constant LightPink 255,182,193
    #constant PaleVioletRed 219,112,147
    #constant Maroon 176,48,96
    #constant MediumVioletRed 199,21,133
    #constant VioletRed 208,32,144
    #constant Violet 238,130,238
    #constant Plum 221,160,221
    #constant Orchid 218,112,214
    #constant MediumOrchid 186,85,211
    #constant DarkOrchid 153,50,204
    #constant DarkViolet 148,0,211
    #constant BlueViolet 138,43,226
    #constant Purple 160,32,240
    #constant MediumPurple 147,112,219
    #constant Thistle 216,191,216
    
EndFunction

rem *** Test usage : ***


while GetRawKeyPressed(27)=0
test$ = "This is a TEST!"
print(test$)
encoded$ = encode64$(test$)
print (encoded$)
print (decode64$(encoded$))

sync()
endwhile

REM ****** Functions **********

REM *************************************************
REM * Original Author: Randy Charles Morin
REM * Author's Website: http://www.kbcafe.com
REM *
REM * Ported from C++ to DBP
REM *
REM * Converted By: Phaelax
REM * Website: http://cca-software.com
REM *
REM * Ported from Phaelax DBP Version to AGK  by MikeMax (very slight changes)
REM *
REM *************************************************

rem Encodes a string to base64
rem returns an encoded string
function encode64$(encode as string)
   b1 as integer
   b2 as integer
   b3 as integer
   value$ = ""

   if len(encode) = 0 then exitfunction value$

   for i=1 to len(encode) step 3

      b1 = 0
      b2 = 0
      b3 = 0

      b1 = asc(mid(encode,i,1))

      if (i+1 <= len(encode)) then b2 = asc(mid(encode,i+1,1))
      if (i+2 <= len(encode)) then b3 = asc(mid(encode,i+2,1))

      b4 as integer
      b5 as integer
      b6 as integer
      b7 as integer

      b4 = b1>>2
      b5 = ((b1&&0x3)<<4) || (b2>>4)
      b6 = ((b2&&0xf)<<2) || (b3>>6)
      b7 = b3&&0x3f

      value$ = value$ + encodeByte$(b4)
      value$ = value$ + encodeByte$(b5)

      if i+1 <= len(encode)
         value$ = value$ + encodeByte$(b6)
      else
         value$ = value$ + "="
      endif

      if i+2 <= len(encode)
         value$ = value$ + encodeByte$(b7)
      else
         value$ = value$ + "="
      endif

      if i mod 76 = 0
         value$ = value$ + chr(13)+chr(10)
      endif

   next i

endfunction value$


rem Decodes a string to base64
rem returns a decoded string
function decode64$(decode as string)
   b1 as integer
   b2 as integer
   b3 as integer
   value$ = ""
   temp$ = ""

   for j = 1 to len(decode)
      if isBase64(mid(decode,j,1)) then temp$ = temp$ + mid(decode,j,1)
   next j

   if len(temp$) = 0 then exitfunction value$

   for i = 1 to len(temp$) step 4
      c1$ = "A"
      c2$ = "A"
      c3$ = "A"
      c4$ = "A"

      c1$ = mid(temp$, i,1)

      if i+1 <= len(temp$) then c2$ = mid(temp$,i+1,1)
      if i+2 <= len(temp$) then c3$ = mid(temp$,i+2,1)
      if i+3 <= len(temp$) then c4$ = mid(temp$,i+3,1)

      b1 as integer
      b2 as integer
      b3 as integer
      b4 as integer

      b1 = decodeChar(c1$)
      b2 = decodeChar(c2$)
      b3 = decodeChar(c3$)
      b4 = decodeChar(c4$)




      value$ = value$ + chr(b1<<2 || b2>>4)

      if c3$ <> "=" then value$ = value$ + chr(((b2&&0xf)<<4) || (b3>>2))
      if c4$ <> "=" then value$ = value$ + chr(((b3&&0x3)<<6) || b4)
   next i

endfunction value$



rem private helper function
rem technically, its a 6-bit pattern
rem with the two higher bits as 0
rem integer as input
rem returns a character
function encodeByte$(b as integer)
   if b < 26 then exitfunction chr(asc("A")+b)
   if b < 52 then exitfunction chr(asc("a")+(b-26))
   if b < 62 then exitfunction chr(asc("0")+(b-52))
   if b = 62 then exitfunction "+"
endfunction "/"


rem private helper function
rem character as input
rem returns integer value of decoded char
function decodeChar(c as string)
   if c >= "A" and c <= "Z"
      v = asc(c)-asc("A")
      exitfunction v
   endif
   if c >= "a" and c <= "z"
      v = asc(c)-asc("a")+26
      exitfunction v
   endif
   if c >= "0" and c <= "9"
      v = asc(c)-asc("0")+52
      exitfunction v
   endif
   if c = "+" then exitfunction 62
endfunction 63


rem private helper function
rem checks if the character is a
rem valid base64 character
rem returns true or false
function isBase64(c as string)
   if c >= "A" and c <= "Z" then exitfunction 1
   if c >= "a" and c <= "z" then exitfunction 1
   if c >= "0" and c <= "9" then exitfunction 1
   if c = "+" then exitfunction 1
   if c = "/" then exitfunction 1
   if c = "=" then exitfunction 1
endfunction 0

function trim(line as string)
    line = trim_right(trim_left(line)) //trim both left and right
endfunction line

function trim_left(line as string)
    if len(line) > 0 //make sure there's characters here
        if Mid(line, 1, 1) = " " or Mid(line, 1, 1) = chr(11) //if there is a space or tab on the first character
            if len(line) = 1 //if there's only one character left, just remove it
                line = ""
            else
                line = mid(line, 2, len(line) - 1) //remove the first character
                line = trim_left(line) //run through the same function again without the first character this time
            endif
        endif
    endif
endfunction line //return the line

function trim_right(line as string)
    if len(line) > 0 //make sure there's characters here
        if Mid(line, len(line), 1) = " " or Mid(line, len(line), 1) = chr(11) //if there is a space or tab on the last character
            if len(line) = 1 //if there's only one character left, just remove it
                line = ""
            else
                line = mid(line, 1, len(line) - 1) //remove the last character
                line = trim_right(line) //run through the same function again without the last character this time
            endif
        endif
    endif
endfunction line //return the line

    SetDisplayAspect( 1 )
    SetSyncRate( 0, 0 ) //sync to unlimited fps

do
    printc("-")
    printc(trim(chr(11)+"                          test2test "+chr(11)))
    print("-")
    printc("-")
    printc(trim(chr(11)+"                        "+chr(11)))
    print("-")
sync()
loop

#constant Result a+b+c
#constant PrintRenamedFunction Print
#constant fps screenfps()


do

    for a=1 to 10000
        for b=1 to 10000
            for c=1 to 10000

                PrintRenamedFunction("FPS:"+str(fps)+" Result:"+str(Result))
                Sync()

            next c
        next b
    next a


loop

function animatedLerp( sprite, x#, x2#, y#, y2#, v# )

    If v# => 0.0 and v# <= 1.0
        //x
        xr# = x2# - x# //calculate the range
        SetSpriteX( sprite, x# + (xr# * v# ) )

        //y
        SetSpriteY( sprite, Lerp( y#, y2#, v#))
    EndIf

endfunction

Function AnimateWithHermite( sprite, x#, x2#, y#, y2#, v# )

    If v# => 0.0 and v# <= 1.0
        //x
        xr# = x2# - x# //calculate the range
        SetSpriteX( sprite, x# + (xr# * v# ) )

        //y
        SetSpriteY( sprite, Hermite ( y1#, y2#, v# ))
    EndIf

EndFunction

//// the inString function (already in UCF)

function inString ( thisString$ , thisSearch$ , thisStart )
	returnVal = 0
	thisLen = len ( thisSearch$ )
	for i=thisStart to ( len ( thisString$ ) - thisLen + 1 )
		if thisSearch$ = mid ( thisString$ , i , thisLen )
			returnVal = i
			exit
		endif
	next i
endfunction returnVal



//// the replaceString function ////

function replaceString( thisString$ , thisSearch$ , thisReplace$ )
    findPos=inString(thisString$,thisSearch$,1)
    while findPos>0
        if findPos=1
            thisString$=thisReplace$+mid(thisString$,len(thisSearch$)+1,len(thisString$)-len(thisSearch$))
        else
            beginString$=mid(thisString$,1,findPos-1)
            endString$=mid(thisString$,findPos+len(thisSearch$),len(thisString$)-(findPos+len(thisSearch$))+1)
            thisString$=beginString$+thisReplace$+endString$
        endif
    findPos=inString(thisString$,thisSearch$,findPos+len(thisReplace$))
    endwhile
endfunction thisString$


////

test$="replaceString Result : " + replaceString("AGK is bad !","bad","GOOD")
while GetRawKeyPressed(27)=0
print(test$)
sync()
endwhile

function GetFreeSprite
    temp=0
    repeat
        temp=temp+1
    until GetSpriteExists(temp)=0
endfunction temp

rem Load Rover Animation Images
Player.AnImage1=LoadImage("Rover01.png")
Player.AnImage2=LoadImage("Rover02.png")
Player.AnImage3=LoadImage("RoverTurn01.png")
Player.AnImage4=LoadImage("RoverTurn02.png")
rem Create a 'blank' sprite
Player.sprite=GetFreeSprite()
CreateSprite(Player.sprite,0)

rem Add animations to sprite
    rem Moving Straight
AddSpriteAnimationFrame(Player.sprite,Player.AnImage1)
AddSpriteAnimationFrame(Player.sprite,Player.AnImage2)
    rem Turning
AddSpriteAnimationFrame(Player.sprite,Player.AnImage3)
AddSpriteAnimationFrame(Player.sprite,Player.AnImage4)