Sorry your browser is not supported!

a = 1

do
    a = increase(a)
    print(a)
    sync()
loop

function increase( x )
     x = x + 1
endfunction x

//
rem AGK Application
rem AGK Build 107
//
// Project# 002
// version 1.0
// Last Revised 12-30-12

rem Landscape App
 SetDisplayAspect( 4.0/3.0 )
 SetVirtualResolution (640 , 480 )

rem background
 backdrop = CreateSprite ( LoadImage ( "testbackground1.png" ) )

rem load music into ID slot 1
 LoadMusic ( 1, "01 Footsteps FX.mp3" )

rem Set Sprite variables X&Y
 X#=23.00
 Y#=344.9

rem create sprite
 CreateSprite ( 1, 0 ) // create a sprite with ID that has no image
 SetSpriteOffset(1, getspritewidth(1)/2 , getspriteheight(1)/2 ) // sets sprites X&Y to center
 SetSpritePosition ( 1, x#, y# )

rem add individual images into an animation list for Sprite 1
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws1b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws2b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws3b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws4b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws5b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws6b.png" ) )

rem play the animated sprite
 PlaySprite ( 1, 10, 0, 1, 6 )

rem play and loop the music
 PlayMusic ( 1, 1 )

rem Main Program Loop
 do
rem show debug statistics for X and Y
    print("   X position  = " + str ( GetSpriteX(1)))

rem get input and move sprite
 Dirx# = GetDirectionX()
 Diry# = GetDirectionY()
    if Dirx# > 0.5
        walkingright(X#, Y#)
    endif

 Sync()
loop

//
rem FUNCTIONS
//

rem walking right function
    FUNCTION walkingright (X#, Y# )
rem play the animated sprite
    PlaySprite ( 1, 10, 1, 1, 6 )
    Sync()

rem Walking Loop
    while (Dirx# > 0.5)
    Dirx# = GetDirectionX()
    x# = x# + 1.0
    setspriteposition(1,x#,y#) // update sprite position
rem show debug statistics for X and Y
    print("   X position  = " + str ( GetSpriteX(1)))

    Sync()

endwhile

PlaySprite ( 1, 10, 0, 1, 6 )
sync()

endfunction

// Very simple state machine for a character written in Pascal

type TWalkingState = (still, walkingleft, walkingright, jumping, dying, dead);

// In our Scene, we add a variable WalkingState

 WalkingState : TWalkingState;

// When we create our Scene we set the state to still

 walkingState := still;

// Pressing certain keys will CHANGE the state, so we create a function to check for left or right keys down and return a TWalkingState result

Function CheckState: TWalkingState;
var xstate : single;

begin
  result := still;  // default is no key pressed
  xstate := AGK_GetDirectionX;
  if xstate>0.0 then result := walkingright
   else
  if xstate<0.0 then result := walkingleft;
end;

// Now let's have a procedure to check the state inside our main loop
// We would also create some procedures to handle transitions between states
// but I won't write those here.

procedure ThinkAboutState;
begin

 walkingState := CheckState;
 
 case walkingstate of
   
    still: HandleStill;
    walkingleft : HandleWalkingLeft;
    walkingright: HandleWalkingRight;

 end; // case

end; // procedure

// In our main loop (Update in AGK for Pascal) we simply have to call ThinkAboutState

Procedure TMyScene.Update(const DeltaTimeSec: Single);
begin

 inherited;
 ThinkAboutState;

end;

 

//
rem AGK Application
rem AGK Build 107
//
// Project# 002
// version 1.0
// Last Revised 12-30-12

rem Landscape App
 SetDisplayAspect( 4.0/3.0 )
 SetVirtualResolution (640 , 480 )

rem background
 backdrop = CreateSprite ( LoadImage ( "testbackground1.png" ) )

rem load music into ID slot 1
 LoadMusic ( 1, "01 Footsteps FX.mp3" )

rem Set Sprite variables X&Y
 X#=23.00
 Y#=344.9

rem create sprite
 CreateSprite ( 1, 0 ) // create a sprite with ID that has no image
 SetSpriteOffset(1, getspritewidth(1)/2 , getspriteheight(1)/2 ) // sets sprites X&Y to center
 SetSpritePosition ( 1, x#, y# )

rem add individual images into an animation list for Sprite 1
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws1b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws2b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws3b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws4b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws5b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws6b.png" ) )

rem play the animated sprite
 PlaySprite ( 1, 10, 0, 1, 6 )

rem play and loop the music
 PlayMusic ( 1, 1 )

rem Main Program Loop
 do
rem show debug statistics for X and Y
    print("   X position  = " + str ( GetSpriteX(1)))

rem get input and move sprite
 Dirx# = GetDirectionX()

 if Dirx# > 0.5
	if getSpriteCurrentFrame(1) >= 6
	PlaySprite ( 1, 10, 0, 1, 6 )
	SetSpriteActive(1,1)
   endif

   x# = x# + 1.0
   setspriteposition(1,x#,y#) // update sprite position
endif

 Sync()
loop