Sorry your browser is not supported!

if spacekey() = 1 and firing = 0 then firing =1
if firing = 1 then gosub shoot

shoot:
show sprite 3
rotate sprite 3,90
repeat
move sprite 3,10 
Dec bltlife
bltynw = sprite Y(3)
sprite 3,bltxld+0.5,bltynw,3
if bltlife <= 0 then sprite 3,bltxld,bltyld,3
bltlife = 25
firing = 0 
return

sync on
sync rate 30
hide mouse
`man X man Y
mnxld = 0
mnyld =350
`bullet X bullet Y
bltx = mnxld-3
blty = mnyld
`bullet life(can be used to ajust distance bullets fly)
bltlife = 10000
load image ("map1b.png"),1
load image ("knt2_fr1.png"),2
load image ("bullet.png"),3
sprite 1,0,0,1
sprite 2,mnxld,mnyld,2
sprite 3,bltx,blty,3
hide sprite 3

do
sprite 3,bltx,blty,3
hide sprite 3
`firing = 0
if rightkey() = 1 then sprite 2,mnxld+5,mnyld,2:mnxld = sprite x(2)
if leftkey() = 1 then sprite 2,mnxld-5,mnyld,2:mnxld = sprite x(2)
if upkey() = 1 then sprite 2,mnxld,mnyld-3,2:mnyld = sprite y(2)
if downkey() = 1 then sprite 2,mnxld,mnyld+3,2:mnyld = sprite y(2)

if spacekey() = 1 and firing = 0 
    firing =1
    BulletPosX = mnxld + 5
    BulletPosY = 350-16
    bulletlife = 10
endif
if firing = 1 then gosub shoot
  
sync
loop

shoot:
  show sprite 3
  rotate sprite 3,45
  Dec BulletPosX,-10
  Dec bulletlife,-3
  sprite 3,BulletPosX,BulletPosY,3
  Sleep 1
  sprite 3,BulletPosX,BulletPosY,3
  Rem Check to see if we hit anything here and if we did
  Rem handle it. Reset flag if bullet is done with
  If Bulletlife<=0 Then delete sprite 3  
Return

shoot:
  show sprite 3
  rotate sprite 3,45
  Dec BulletPosX,-10
  Dec bulletlife,-3
  sprite 3,BulletPosX,BulletPosY,3
  Sleep 1
  sprite 3,BulletPosX,BulletPosY,3
  Rem Check to see if we hit anything here and if we did
  Rem handle it. Reset flag if bullet is done with
  If Bulletlife<=0 
     Then delete sprite 3
     firing = 0
  EndIf    
Return

sync on
sync rate 30
hide mouse
backdrop off
man = 2 : bullet = 3 : XSpeed = 5 : YSpeed = 3 : ManImage = 2 : BulletImage = 3
BulletSpeedX = 10 : BulletSpeedY = 6
ScreenWidth = screen width() : ScreenHeight = screen height()

load image ("map1b.png"),1
load image ("knt2_fr1.png"),ManImage
load image ("bullet.png"),BulletImage
sprite 1,0,0,1
sprite man,0,350,ManImage
sprite bullet,100,100,BulletImage
hide sprite bullet
MaxX = ScreenWidth - sprite width(man) * 2 - XSpeed
MaxY = ScreenHeight - sprite height(man) - YSpeed


disable escapekey
repeat
  if rightkey() = 1 and (sprite x(man) - sprite width(man)) < MaxX then sprite man,sprite x(man) + XSpeed,sprite y(man),ManImage
  if leftkey() = 1 and sprite x(man) > XSpeed then sprite man,sprite x(man) - XSpeed,sprite y(man),ManImage
  if upkey() = 1 and sprite y(man) > YSpeed then sprite man,sprite x(man),sprite y(man) - Yspeed,ManImage
  if downkey() = 1 and sprite y(man) < MaxY then sprite man,sprite x(man),sprite y(man) + YSpeed,ManImage
  if spacekey() = 1 and firing = 0
    firing =1
    sprite bullet,sprite x(man) + sprite width(man),sprite y(man) + sprite height(man) * .5,BulletImage : show sprite bullet
    BulletLife = 30
  endif
  if firing = 1 then gosub MoveBullet
  sync
until keystate(1) = 1
for i = 1 to 3
  if image exist(i) = 1 then delete image i
  if sprite exist(i) = 1 then delete sprite i
next i
show mouse
end

MoveBullet:
  sprite bullet,sprite x(bullet) + BulletSpeedX,sprite y(bullet),BulletImage
  dec BulletLife, 1
  if sprite x(bullet) > ScreenWidth or BulletLife <= 0 then firing = 0 : hide sprite bullet
  Rem Check to see if we hit anything here and if we did
  Rem handle it. Reset flag if bullet is done with
Return

if spacekey() = 1 and jump = 0 then jump = 1
   if jump = 1 
     gosub jumpplayer
   endif

jumpplayer:
dec gravity,1
sprite manimage,sprite x(manimage),sprite y(manimage) - yspeed,manimage
if gravity < 0 then jump = 0 : sprite manimage,sprite x(manimage),350,manimage
return

sync on
sync rate 60
hide mouse
backdrop off
man = 2 : bullet = 3 : XSpeed = 5 : YSpeed = 3 : ManImage = 2 : BulletImage = 3
BulletSpeedX = 10 : BulletSpeedY = 6
ScreenWidth = screen width() : ScreenHeight = screen height()

load image ("map1b.png"),1
load image ("knt2_fr1.png"),ManImage
load image ("bullet.png"),BulletImage
sprite 1,0,0,1
sprite man,0,380,ManImage
sprite bullet,100,100,BulletImage
hide sprite bullet
MaxX = ScreenWidth - sprite width(man) * 2 - XSpeed
MaxY = ScreenHeight - sprite height(man) - YSpeed


disable escapekey
repeat
  if rightkey() = 1 and (sprite x(man) - sprite width(man)) < MaxX then sprite man,sprite x(man) + XSpeed,sprite y(man),ManImage
  if leftkey() = 1 and sprite x(man) > XSpeed then sprite man,sprite x(man) - XSpeed,sprite y(man),ManImage
`  if upkey() = 1 and sprite y(man) > YSpeed then sprite man,sprite x(man),sprite y(man) - Yspeed,ManImage
  if downkey() = 1 and sprite y(man) < MaxY then sprite man,sprite x(man),sprite y(man) + YSpeed,ManImage
  if spacekey() = 1 and jump = 0
    jump = 1
    YSpeed = 3
  endif
  if jump > 0 then gosub HandleJump
  if returnkey() = 1 and firing = 0
    firing =1
    sprite bullet,sprite x(man) + sprite width(man),sprite y(man) + sprite height(man) * .5,BulletImage : show sprite bullet
    BulletLife = 30
  endif
  if firing = 1 then gosub MoveBullet
  sync
until keystate(1) = 1
for i = 1 to 3
  if image exist(i) = 1 then delete image i
  if sprite exist(i) = 1 then delete sprite i
next i
show mouse
end

HandleJump:
  if jump = 1
    dec YSpeed,1
    if YSpeed < -8 then jump = 2
  else
    inc YSpeed,1
    if YSpeed > 11 then jump = 0
  endif
  sprite man,sprite x(man),sprite y(man) + yspeed,manimage
return

MoveBullet:
  sprite bullet,sprite x(bullet) + BulletSpeedX,sprite y(bullet),BulletImage
  dec BulletLife, 1
  if sprite x(bullet) > ScreenWidth or BulletLife <= 0 then firing = 0 : hide sprite bullet
  Rem Check to see if we hit anything here and if we did
  Rem handle it. Reset flag if bullet is done with
Return

sync on
sync rate 60
hide mouse
backdrop off
man = 2 : bullet = 3 : XSpeed = 5 : YSpeed = 3 : ManImage = 2 : BulletImage = 3
BulletSpeedX = 10 : BulletSpeedY = 6 : life = 25
ScreenWidth = screen width() : ScreenHeight = screen height()
color backdrop RGB(255,255,255)
load image ("map1b.png"),1
load image ("knt2_fr1.png"),ManImage
load image ("bullet.png"),BulletImage
load image ("box.png"),10
`sprite 1,0,0,1
sprite man,0,350,ManImage
sprite bullet,100,100,BulletImage
hide sprite bullet
sprite 10,300,350,10
MaxX = ScreenWidth - sprite width(man) * 2 - XSpeed
MaxY = ScreenHeight - sprite height(man) - YSpeed


`disable escapekey
do
`repeat
 
  manx = sprite x (manimage)
  many = sprite y (manimage)
  if rightkey() = 1 and (sprite x(man) - sprite width(man)) < MaxX then sprite man,sprite x(man) + XSpeed,sprite y(man),ManImage
  if leftkey() = 1 and sprite x(man) > XSpeed then sprite man,sprite x(man) - XSpeed,sprite y(man),ManImage
  if spacekey() = 1 and jump = 0
    jump = 1
    YSpeed = 3
  endif
  if jump > 0 then gosub HandleJump
  if mouseclick() = 1 and firing = 0
    firing =1
    sprite bullet,sprite x(man) + sprite width(man),sprite y(man) + sprite height(man) * .5,BulletImage : show sprite bullet
    BulletLife = 30
  endif
  if firing = 1 then gosub MoveBullet
  gosub playercollision
  sync
loop
show mouse
end

HandleJump:
  if jump = 1
    dec YSpeed,1
    if YSpeed < -8 then jump = 2
  else
    inc YSpeed,1
    if YSpeed > 11 then jump = 0
  endif
  sprite man,sprite x(man),sprite y(man) + yspeed,manimage
return

MoveBullet:
  sprite bullet,sprite x(bullet) + BulletSpeedX,sprite y(bullet),BulletImage
  dec BulletLife, 1
  if sprite x(bullet) > ScreenWidth or BulletLife <= 0 then firing = 0 : hide sprite bullet
  Rem Check to see if we hit anything here and if we did
  Rem handle it. Reset flag if bullet is done with
Return

playercollision:
col = sprite collision (manimage,10)
if col >0 then sprite manimage,manx,many,manimage
return