Sorry your browser is not supported!

mainloop:
Hide Mouse
sync on
sync rate 60
gosub vars
gosub loadimages

do
DRAW SPRITES LAST
gosub playercheck
gosub sprites
gosub playerother
gosub playermovement
print x, ", ", y, ",", ks, ",", sprite collision(1,0)
sync
cls
loop

vars:
x=screen width()/2
y=screen height()/2
imgnum=0
air=5
ks=0

return

playermovement:

IF keystate(32)=1
imgnum=1
for i=0 to 2
Sprite 1, x, y, imgnum
IF Sprite collision(1,0)=0
	x=x+6
	goto endright1
ENDIF
IF ks=32
	goto endright2
ELSE
	x=x+6
ENDIF
endright1:
endright2:
Sprite 1, x, y, imgnum
sync
sleep 50
imgnum=imgnum+1
delete sprite 1
cls
next
sprite 1, x, y, 2
sync
imgnum=2
ks=32
return
endif

IF keystate(30)=1
imgnum=10
for i=0 to 2
Sprite 1, x, y, imgnum
IF Sprite collision(1,0)=0
	x=x-6
	goto endleft1
ENDIF
IF ks=30
	goto endleft2
ELSE
	x=x-6
ENDIF
endleft1:
endleft2:
Sprite 1, x, y, imgnum
sync
sleep 50
imgnum=imgnum+1
delete sprite 1
cls
next
sprite 1, x, y, 11
sync
imgnum=11
ks=30
return
endif

IF keystate(17)=1
imgnum=4
for i=0 to 2
Sprite 1, x, y, imgnum
IF Sprite collision(1,0)=0
	y=y-6
	goto endup1
ENDIF
IF ks=17
	goto endup2
ELSE
	y=y-6
ENDIF
endup1:
endup2:
Sprite 1, x, y, imgnum
sync
sleep 50
imgnum=imgnum+1
delete sprite 1
cls
next
Sprite 1, x, y, 5
sync
imgnum=5
ks=17
return
endif

IF keystate(31)=1
imgnum=7
for i=0 to 2
Sprite 1, x, y, imgnum
IF Sprite collision(1,0)=0
	y=y+6
	goto enddown1
ENDIF
IF ks=31
	goto enddown2
ELSE
	y=y+6
ENDIF
enddown1:
enddown2:
Sprite 1, x, y, imgnum
sync
sleep 50
imgnum=imgnum+1
delete sprite 1
cls
next
sprite 1, x, y, 8
sync
imgnum=8
ks=31
return
endif

playerother:

IF Spacekey()=1
cls
for i=0 to 10
y=y-air
sprite 1, x, y, imgnum
sync
air=air-1
sleep 25
delete sprite 1
cls
next
air=5
sprite 1, x, y, imgnum
return
endif

return

playercheck:
IF NOT Sprite Exist(1)
imgnum=8
Sprite 1, x, y, imgnum
sync
return
endif
return

sprites:
gosub fchouse1
return

fchouse1:
sprite 3, 100, 100, 14
set sprite 3, 0, 1
scale sprite 3, 200
set sprite priority 3, -99
return

type Directions
    left  as boolean
    right as boolean
    down  as boolean
    up   as boolean
endtype

type PlayerData
    // ...
    availableDirections as Directions
endtype

// ...
global player as PlayerData

  // Test right wall
  If RightKey()
    Sprite Player, X+2, Y, Player
    For s = 1 to NumberOfSprites
      If Sprite Collision( Player, s )
         Sprite Player , X, Y, Player
         Exit
      EndIf
    Next s
  EndIf
  // Test left wall
  If LeftKey()
    Sprite Player, X-2, Y, Player
    For s = 1 to NumberOfSprites
      If Sprite Collision( Player, s )
         Sprite Player, X, Y, Player
         Exit
      EndIf
    Next s
  EndIf
  X = Sprite X(Player)
  Y = Sprite Y(Player)

movement2:

IF sprite collision(1,0)=0
	goodx=sprite x(1)
	goody=sprite y(1)
	colright=0
	colleft=0
	colup=0
	coldown=0
ELSE
	IF goodx > sprite x(1)
		colleft=1
	ENDIF
	IF goodx < sprite x(1)
		colright=1
	ENDIF
	IF goody > sprite y(1)
		colup=1
	ENDIF
	IF goody < sprite y(1)
		coldown=1
	ENDIF
ENDIF

IF leftkey()=1 AND colleft=0
	x=x-2
	sprite 1, x, y, imgnum
	return
ENDIF
IF rightkey()=1 AND colright=0
	x=x+2
	sprite 1, x, y, imgnum
	return
ENDIF
IF upkey()=1 AND colup=0
	y=y-2
	sprite 1, x, y, imgnum
	return
ENDIF
IF downkey()=1 AND coldown=0
	y=y+2
	sprite 1, x, y, imgnum
	return
ENDIF
	
RETURN
		

Rem - Create a type at the beginning of your program.
Type PlayerType
	Xpos as float
	Ypos as float
	Health as integer
	Lives as integer
EndType

Rem - Set the variable "Player" to use the UDT.
Global Player as PlayerType

Rem - Set the variables inside the UDT to something you like. This can ofcourse also be done in your loop.
Player.Xpos = 9.28332
Player.Ypos = 812.7273
Player.Health = 87
Player.Lives = 2

Rem - You can also have an array using your type. (Not both!!) it's either an array or a variable.
Dim Player(AmountOfPlayers) as PlayerType

For X = 1 to AmountOfPlayers
	Player(X).Xpos = RND(27)
	Player(X).Ypos = RND(28)
	Player(X).Health = 100
	Player(X).Lives = 1
Next X


Do


Sync
Loop