Sorry your browser is not supported!

 if Diry# > 0.5
    //if dirJ > 1
    jumS# = x#
    jumE# = x# + 50.0
    jumB# = y# - 10.0
    gosub sprite_jumpR
endif
//endif

sprite_jumpR:
    while myTime# < startTime# + 1.5
        timeLapse# = (myTime# - startTime#) / 1.5
        x# = Berp(jumS#, jumE#, timeLapse#, 3)
        y# = Berp(jumB#, 311.89, timeLapse#, 7)
        setspriteposition(1,x#,y#)
        sync()
    endwhile

    return

//
rem AGK Application
rem AGK Build 107
//
// Project# 003
// version 1.0
// Last Revised 01-16-13

#include subroutines.agc
#include functions.agc


rem Landscape App
 SetVirtualResolution (640 , 480 )

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

rem load music and sounds
 LoadMusic ( 1, "Sum 41.mp3" )
 SetMusicFileVolume (1, 75 )
 LoadSound (1, "groar1.wav" )

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

 rem sprite variable for position_sprite subroutine
    // sets sprite to be used by sprite ID
 sprA=1

rem used for making sprite jump
dirJ=2 // sprite direction variable "tells direction 1-left or 2-right"
jumS#=23.00 // start X axis of jump
jumE#=23.00 // end x axis of jump
jumB#=311.89  // end y axis of jump

rem Set up the Timing parameters
myTime# = Timer()
startTime# = myTime#


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_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" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws1b.png" ) )

rem play the animated sprite
 SetSpriteScale (1, 2, 2) // doubles the sprite size
 PlaySprite ( 1, 10, 0, 1, 6 )

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

rem Main Program Loop
 do
    //gosub position_sprite // position_sprite subroutine and show sprites X&Y

rem get inputs
 Dirx# = GetJoystickX() // gets X axis input from joystick
 Diry# = GetJoystickY() // gets Y axis input from joystick
 se1# = GetButtonState(1) // gets button 1 input from jotstick

rem play sound if button A was pressed
 if getbuttonstate(1)=1
    playsound(1,100,0)
 endif

rem walking Right
 if Dirx# > 0.5
    dirJ=2
    setspriteflip(1, 0, 0) // resets sprite flip to start if necessary
	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

rem walking Left
 if Dirx# < -0.5
    dirJ=1
    setspriteflip(1, 1, 0) //flip the sprite to make it seem like its facing the other way
	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

rem JUMP
 if Diry# > 0.5
    //if dirJ > 1
    jumS# = x#
    jumE# = x# + 25.0
    gosub sprite_jumpR
endif
//endif
 Sync()

loop

type TInput
    ButtonA
    DirLeft
    DirRight
    DirUp
    DirDown
endtype

type TObject
    sprite
    xsp#
    ysp#
    x#
    y#
    kind
    jump
endtype

type TMap
    kind  //Erde Wasser Luft Tot Leiter
endtype
#constant cAir    1
#constant cGround 2
#constant cWater  3
#constant cDie    4
#constant cLadder 5
#constant cJump   6
#constant cWalk   7

global Joy as TInput   
global JoyLast as TInput

global dim Player[2] as TObject

        if Joy.DirRight=1
            if Player[1].xsp#<0.25 then Player[1].xsp#=Player[1].xsp#+0.025
        elseif Joy.DirLeft=1
            if Player[1].xsp#>-0.25 then Player[1].xsp#=Player[1].xsp#-0.025
        else
            Player[1].xsp#=Player[1].xsp# * 0.8
        endif

        if Player[1].jump=0
            if Joy.ButtonA=1 or Joy.DirUp=1
                if Player[1].kind=cGround or Player[1].kind=cDie or Player[1].kind=cWalk
                    Player[1].jump=1
                endif
            endif
        else
            //Jump up and turn jump off
            if Player[1].ysp#>-0.5 then Player[1].ysp#=Player[1].ysp#-0.125 else Player[1].jump=0
        endif

        if Joy.DirUp=1
                if Player[1].kind=cLadder
                    //up
                    if Player[1].ysp#>-0.25 then Player[1].ysp#=Player[1].ysp#-0.125
                    Player[1].xsp#=Player[1].xsp# * 0.8 //X slow down
                endif
        elseif Joy.DirDown=1
                if Player[1].kind=cLadder
                    //down
                    if Player[1].ysp#<0.25 then Player[1].ysp#=Player[1].ysp#+0.125
                    Player[1].xsp#=Player[1].xsp# * 0.8 //X bremsen
                endif
        else
            if Player[1].jump=0 and Player[1].kind<>cAir then Player[1].ysp#=Player[1].ysp# * 0.8
        endif
        

        //can move then
        Player[1].x#=Player[1].x#+Player[1].xsp#
        Player[1].y#=Player[1].y#+Player[1].ysp#

        SetSpritePositionByOffset(Player[1].sprite,Player[1].x#,Player[1].y#)