Sorry your browser is not supported!

jump = GetVirtualButtonPressed(1)
	if jump>0
			setSpritePhysicsVelocity(playersprite,getSpritePhysicsVelocityX(playersprite),-jump*60)
		endif
		setSpritePhysicsVelocity(playersprite,GetVirtualJoystickX(1)*30,getSpritePhysicsVelocityY(playersprite))

// Project: boxjump 
// Created: 2015-06-17
// Author: Conrad Brown - UzmaDesign
// set window properties
SetWindowTitle( "boxjump" )

// set display properties
SetOrientationAllowed( 0, 0, 1, 1 )

CreateImageColor(1,255,255,255,255)

` Create boxy landscape
ground = createsprite(1)
setspritesize(ground,1000,10)
setspriteposition(ground,0,90)
setspritephysicson(ground,1)

for t=1 to 100
	createsprite(t,1)
	height = random(15,50)
	setspritesize(t,5,height)
	SetSpriteColor(t,random(150,255),random(150,255),random(150,255),255)
	SetSpritePosition(t,random(40,950),90-height)
	setspritephysicson(t,1)
next t

` Create player
player = createsprite(1)
SetSpritePositionByOffset(player,30,40)
SetSpritePhysicsRestitution(player,0.9)
setspritephysicson(player,2)

` Control left/right movement
AddVirtualJoystick(1,20,80,20)

SetVirtualJoystickDeadZone(0.03)

` jump button
AddVirtualButton(1,20,20,20)
SetVirtualButtonPosition(1,80,80)
SetVirtualButtonActive(1,1)


do
    SetSpritePhysicsImpulse( player, GetSpriteXByOffset(player), GetSpriteYByOffset(player), GetVirtualJoystickX(1)/30.0, 0 ) 
	
    if GetVirtualButtonPressed(1)
        SetSpritePhysicsVelocity(player,GetSpritePhysicsVelocityX(player),0)
	SetSpritePhysicsImpulse(player, GetSpriteXByOffset(player),GetSpriteYByOffset(player), 0, -2)
    endif
	
    Print( ScreenFPS() )
    Sync()


    setviewoffset(GetSpriteXByOffset(player)-30,0)
        
    if GetRawKeyState(27)
	end
    endif
loop

rem
rem AGK Application 108 19
rem MR

//Jump over the Box Example

SetDisplayAspect( 4.0/3.0 )
setvirtualresolution(10,10) //10x10 Meter
setphysicsscale(1) //belongs resolution!  default 1 unit = 1 meter
SetPhysicsGravity(0 , 50)
setphysicsdebugon()

#constant groupground 1
#constant groupobject 2

//Player
spr = CreateSprite(0)
SetSpriteSize (spr,0.5,2)
SetSpritePosition(spr,2.5,5)
SetSpritePhysicsOn(spr,2)
SetSpriteDepth(spr,0)
SetSpritePhysicsCanRotate (spr,0)
SetSpritePhysicsMass (spr,60)
setspritephysicsisbullet(spr,1)
SetSpritePhysicsFriction(spr,0.1)
SetSpritePhysicsRestitution(spr,0.25)
SetSpritePhysicsDamping(spr,0.25)

//Box
box = CreateSprite(0)
SetSpriteColor (box,233,75,80,255)
SetSpriteSize (box,1,-1)
SetSpritePosition(box,6,10-2)
SetSpritePhysicsON(box,2)
SetSpritePhysicsMass (box,2)
SetSpritePhysicsCanRotate(box,1)
SetSpritePhysicsFriction(box,0.75)
SetSpritePhysicsRestitution(box,0.25)
SetSpritePhysicsDamping(box,0.5)
SetSpriteGroup( box, groupobject )

//Ground
gr = CreateSprite(0)
SetSpriteColor (gr,128,128,128,255)
SetSpriteSize (gr,10,0.1)
SetSpritePosition(gr,0,10-0.05)
SetSpritePhysicsON(gr,1)
SetSpritePhysicsMass(gr,2)
SetSpritePhysicsCanRotate(gr,0)
SetSpritePhysicsFriction(gr,0.75)
SetSpritePhysicsRestitution(gr,0.5)
SetSpritePhysicsDamping(gr,0.5)
SetSpriteGroup( gr, groupground )

do

    print("Use Cursor Left/Right, Space for Jump")

    // Move Player to Left and Right
    ix#=0.0
    iy#=0.0
    if GetRawKeyState(39) = 1
        ix#=50.0
    elseif GetRawKeyState(37) = 1
        ix#=-50.0
    endif

    //Jump
    if GetRawKeypressed(32) = 1
        if AtGround(spr)=1 then iy#=-750.0
    endif

    if ix#<>0.0 or iy#<>0.0 then setspritephysicsimpulse(spr,getspritexbyoffset(spr),getspriteybyoffset(spr),ix#,iy#)

	Sync()
loop
end

function AtGround(spr)

    ret=0
    c=GetSpriteFirstContact(spr)
    do
        if c=0 then exit
        sprcontact=GetSpriteContactSpriteID2()
        if sprcontact<>0
            group=getspritegroup(sprcontact)
            if group=groupobject or group=groupground
                ret=1
                exit
            endif
        endif
        c=GetSpriteNextContact()
    loop

endfunction ret

createmyeditbox(number,x#,y#,bordersize#,r,g,b,backcolor,bsizex#,bsizey#,alpha,box$)

createmytext(number,x#,y#,size,r,g,b,mystring$)

[youtube]lBqpeFIxLbk[/youtube]

		r#=GetSpritePhysicsVelocityY(playersprite)
		if GetVirtualButtonPressed(1) and floor(r#)=0
			SetSpritePhysicsVelocity(playersprite,GetSpritePhysicsVelocityX(playersprite),0)
			SetSpritePhysicsImpulse(playersprite, GetSpriteXByOffset(playersprite),GetSpriteYByOffset(playersprite), 0, -80)
		endif

		r#=GetSpritePhysicsVelocityY(playersprite)
		f=floor(r#)
		fr=abs(f)
		if fr=0 or fr=1
			SetSpritePhysicsRestitution(playersprite,0.0)
		endif
		if GetVirtualButtonPressed(1)
			if fr=0 or fr=1
				SetSpritePhysicsVelocity(playersprite,GetSpritePhysicsVelocityX(playersprite),0)
				SetSpritePhysicsImpulse(playersprite, GetSpriteXByOffset(playersprite),GetSpriteYByOffset(playersprite), 0, -80)
			endif
		endif

SetWindowSize(1136, 640, 0)
SetVirtualResolution(1136, 640)
SetPhysicsScale(0.05)
SetPhysicsGravity(0, 1000)

global Ground
global Character
global RCDown

Ground = CreateSprite(0)
SetSpriteSize(Ground, 1136, 50)
SetSpriteColor(Ground, 255, 0, 0, 255)
SetSpritePosition(Ground, 0, 590)
SetSpritePhysicsOn(Ground, 1)
SetSpriteGroup(Ground, 1) // Assign a group number to ground sprites

Character = CreateSprite(0)
SetSpriteSize(Character, 50, 50)
SetSpriteColor(Character, 0, 0, 255, 255)
SetSpritePosition(Character, 100, 540)
SetSpritePhysicsOn(Character, 2)
SetSpritePhysicsCanRotate(Character, 0)

do	
	RCDown = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character), GetSpriteYByOffset(Character), GetSpriteXByOffset(Character), GetSpriteYByOffset(Character) + 30)
	
	if GetRawKeyState(39) = 1 // Right
		SetSpritePhysicsVelocity(Character, 500, GetSpritePhysicsVelocityY(Character))
	elseif GetRawKeyState(37) = 1 // Left
		SetSpritePhysicsVelocity(Character, -500, GetSpritePhysicsVelocityY(Character))
	else
		SetSpritePhysicsVelocity(Character, 0, GetSpritePhysicsVelocityY(Character))
	endif
	
	if GetRawKeyPressed(32) = 1 AND RCDown = 1
		SetSpritePhysicsVelocity(Character, GetSpritePhysicsVelocityX(Character), -700)
	endif

    Sync()
loop

p= PhysicsRayCast( getspritexbyoffset(playersprite),getspriteybyoffset(playersprite),getspritexbyoffset(playersprite),getspriteybyoffset(playersprite)+getspriteheight(playersprite)/2+2)
		
		
		if GetVirtualButtonPressed(1) and p=1
		
	
				SetSpritePhysicsVelocity(playersprite,GetSpritePhysicsVelocityX(playersprite),0)
				SetSpritePhysicsImpulse(playersprite, GetSpriteXByOffset(playersprite),GetSpriteYByOffset(playersprite), 0, -80)
		
		endif

		p= PhysicsRayCast( getspritexbyoffset(playersprite),getspriteybyoffset(playersprite),getspritexbyoffset(playersprite),getspriteybyoffset(playersprite)+getspriteheight(playersprite)/2+3)
		
		
		if GetVirtualButtonPressed(1) and p=1
		
	
				SetSpritePhysicsVelocity(playersprite,GetSpritePhysicsVelocityX(playersprite),0)
				SetSpritePhysicsImpulse(playersprite, GetSpriteXByOffset(playersprite),GetSpriteYByOffset(playersprite), 0, -80)
		
		endif

p= PhysicsRayCast(GetSpriteXByOffset(playersprite), GetSpriteYByOffset(playersprite), GetSpriteXByOffset(playersprite), GetSpriteYByOffset(playersprite) +getspriteheight(playersprite))
	
			id2= GetRayCastSpriteId()

			if platobj[id2].tilevalue=1
				print("on the ground")
				jumping=0
				elseif platobj[id2].tilevalue<>1
					jumping=1
					print("not on the ground")
			endif