Sorry your browser is not supported!

hide mouse
disable escapekey
load image "F-15.bmp",1
load image "Su-37.bmp",2
load image "goodmissile.bmp",3
load image "badmissile.png",4
load image "explosion.bmp",5
load image "cloud.bmp",6
load image "life.bmp",7
load image "playgame.bmp",8
load image "playgamehit.bmp",9
load image "password.bmp",10
load image "passwordhit.bmp",11
load image "credits.bmp",12
load image "credits***(no stars, bad filter here)hit.bmp",13
load image "exit.bmp",14
load image "exithit.bmp",15
load music "Chopper.mid",1
load sound "boom.wav",1
sprite 11,800,200,6
sprite 12,1200,-246,6
sprite 1,0,0,1
sprite 2,-1000,500,2
sprite 3,-1000,-500,2
sprite 4,2000,-1000,3
sprite 5,2000,-2000,3
sprite 6,-3000,100,4
sprite 7,-3000,-100,4
sprite 8,4000,0,5
sprite 9,4000,0,5
sprite 10,4000,0,5
sprite 11,800,200,6
sprite 12,1200,-246,6
sprite 13,525,5,7
sprite 14,560,5,7
sprite 15,595,5,7
sprite 16,30,160,8
sprite 17,30,160,9
sprite 18,30,210,10
sprite 19,30,210,11
sprite 20,30,260,12
sprite 21,30,260,13
sprite 22,30,310,14
sprite 23,30,310,15
sprite 24,320,240,7
score#=0
lives=3
menu=1
shootok=1
exp8=0
exp9=0
exp10=0
sync on
cls


do
sync
sync rate 100
if menu=1
ink rgb(255,255,255),rgb(0,0,0)
cls
gosub menu
else
ink rgb(0,0,0),RGB(0,191,254)
cls
gosub hidesprites
gosub collision
gosub stayinside
gosub moveit
gosub clouds
gosub yourshoot
gosub enemy
gosub HUD
if lives<1 then menu=1
endif
loop

hidesprites:
if menu=0
sprite 16,0,-1000,8
sprite 17,0,-1000,9
sprite 18,0,-1000,10
sprite 19,0,-1000,11
sprite 20,0,-1000,12
sprite 21,0,-1000,13
sprite 22,0,-1000,14
sprite 23,0,-1000,15
sprite 24,0,-1000,16
endif
return

menu:
stop music 1
`restart the kill count
score#=0
`reposition all necessary sprites
sprite 16,30,160,8
sprite 17,30,160,9
sprite 18,30,210,10
sprite 19,30,210,11
sprite 20,30,260,12
sprite 21,30,260,13
sprite 22,30,310,14
sprite 23,30,310,15
sprite 24,320,240,7
sprite 11,-1000,-1000,6
sprite 12,-1000,--1000,6
sprite 1,-1000,-1000,1
sprite 2,-1000,-1000,2
sprite 3,-1000,-1000,2
sprite 4,-1000,-1000,3
sprite 5,-1000,-2000,3
sprite 6,-3000,-1000,4
sprite 7,-3000,-1000,4
sprite 8,-1000,-1000,5
sprite 9,-1000,-1000,5
sprite 10,-1000,-1000,5
sprite 11,-1000,-1000,6
sprite 12,-1000,-1000,6
sprite 13,-1000,-1000,7
sprite 14,-1000,-1000,7
sprite 15,-1000,-1000,7
cls
`make the airplane cursor follow the mouse
sprite 24,mousex(),mousey(),7
`allow clicking and putting your mouse over icons
if sprite hit(24,16)
hide sprite 16
show sprite 17
if mouseclick()=1
menu=0
lives=3
loop music 1
sprite 11,800,200,6
sprite 12,1200,-246,6
sprite 1,0,0,1
sprite 2,-1000,500,2
sprite 3,-1000,-500,2
sprite 4,2000,-1000,3
sprite 5,2000,-2000,3
sprite 6,-3000,100,4
sprite 7,-3000,-100,4
sprite 8,4000,0,5
sprite 9,4000,0,5
sprite 10,4000,0,5
sprite 11,800,200,6
sprite 12,1200,-246,6
sprite 13,525,5,7
sprite 14,560,5,7
sprite 15,595,5,7
endif
else
hide sprite 17
show sprite 16
endif

if sprite hit(24,18)
hide sprite 18
show sprite 19
else
hide sprite 19
show sprite 18
endif

if sprite hit(24,20)
hide sprite 20
show sprite 21
if mouseclick()=1
cls
hide sprite 18
hide sprite 20
hide sprite 16
hide sprite 21
hide sprite 22
set text font "Times New Roman"
set text size 26
center text 320,160,"Project Director: Yuri K. 'sponge008'"
center text 320,210,"Programming: Yuri K. 'sponge008'"
center text 320,260,"Image Editing: Yuri K. 'sponge008'"
center text 320,310,"Thanks to Google for images"
sleep 5000
cls
show sprite 16
show sprite 18
show sprite 20
show sprite 22
show sprite 21
cls
endif
else
hide sprite 21
show sprite 20
endif

if sprite hit(24,22)
hide sprite 22
show sprite 23
if mouseclick()=1
end
endif
else
hide sprite 23
show sprite 22
endif



cls
return

collision:
if exp8>0 then exp8=exp8-1
if exp9>0 then exp9=exp9-1
if exp10>0 then exp10=exp10-1

if exp8=0 then sprite 8,4000,0,5
if exp9=0 then sprite 9,4000,0,5
if exp10=0 then sprite 10,4000,0,5

if sprite hit(6,1)
if sprite collision(6,1)
if sprite x(8)>700
sprite 8,sprite x(1),sprite y(1),5
sprite 6,sprite x(6)-2000,sprite y(4),4
sprite 1,sprite x(1),sprite y(1),1
exp8=10
lives=lives-1
play sound 1
sprite 1,5,220,1
else
if sprite x(9)>700
sprite 9,sprite x(1),sprite y(1),5
sprite 6,sprite x(6)-2000,sprite y(4),4
sprite 1,sprite x(1),sprite y(1),1
exp9=10
lives=lives-1
play sound 1
sprite 1,5,220,1
else
if sprite x(10)>700
sprite 8,sprite x(1),sprite y(1),5
sprite 6,sprite x(6)-2000,sprite y(4),4
sprite 1,sprite x(1),sprite y(1),1
exp10=10
lives=lives-1
play sound 1
sprite 1,5,220,1
endif
endif
endif
endif
endif

if sprite hit(7,1)
if sprite collision(7,1)
if sprite x(8)>700
sprite 8,sprite x(1),sprite y(1),5
sprite 7,sprite x(6)-2000,sprite y(4),4
sprite 1,sprite x(1),sprite y(1),1
exp8=10
lives=lives-1
play sound 1
sprite 1,5,220,1
else
if sprite x(9)>700
sprite 9,sprite x(1),sprite y(1),5
sprite 7,sprite x(6)-2000,sprite y(4),4
sprite 1,sprite x(1),sprite y(1),1
exp9=10
lives=lives-1
play sound 1
sprite 1,5,220,1
else
if sprite x(10)>700
sprite 8,sprite x(1),sprite y(1),5
sprite 7,sprite x(6)-2000,sprite y(4),4
sprite 1,sprite x(1),sprite y(1),1
exp10=10
lives=lives-1
play sound 1
sprite 1,5,220,1
endif
endif
endif
endif
endif


if sprite hit(4,2)
if sprite collision(4,2)
if sprite x(8)>700
sprite 8,sprite x(2),sprite y(2),5
sprite 4,sprite x(4)+2000,sprite y(4),3
sprite 2,sprite x(2)-2000,sprite y(2),2
score#=score#+1
play sound 1
exp8=10
else
if sprite x(9)>700
sprite 9,sprite x(2),sprite y(2),5
sprite 4,sprite x(4)+2000,sprite y(4),3
sprite 2,sprite x(2)-2000,sprite y(2),2
score#=score#+1
play sound 1
exp9=10
else
if sprite x(10)>700
sprite 8,sprite x(2),sprite y(2),5
sprite 4,sprite x(4)+2000,sprite y(4),3
sprite 2,sprite x(2)-2000,sprite y(2),2
score#=score#+1
play sound 1
exp10=10
endif
endif
endif
endif
endif

if sprite hit(5,2)
if sprite collision(5,2)
if sprite x(8)>700
sprite 8,sprite x(2),sprite y(2),5
sprite 5,sprite x(5)+2000,sprite y(5),3
sprite 2,sprite x(2)-2000,sprite y(2),2
score#=score#+1
play sound 1
exp8=10
else
if sprite x(9)>700
sprite 9,sprite x(2),sprite y(2),5
sprite 5,sprite x(5)+2000,sprite y(5),3
sprite 2,sprite x(2)-2000,sprite y(2),2
score#=score#+1
play sound 1
exp9=10
else
if sprite x(10)>700
sprite 8,sprite x(2),sprite y(2),5
sprite 5,sprite x(5)+2000,sprite y(5),3
sprite 2,sprite x(2)-2000,sprite y(2),2
score#=score#+1
play sound 1
exp10=10
endif
endif
endif
endif
endif

if sprite hit(4,3)
if sprite collision(4,3)
if sprite x(8)>700
sprite 8,sprite x(3),sprite y(3),5
sprite 4,sprite x(4)+2000,sprite y(4),3
sprite 3,sprite x(3)-2000,sprite y(3),2
score#=score#+1
play sound 1
exp8=10
else
if sprite x(9)>700
sprite 9,sprite x(3),sprite y(3),5
sprite 4,sprite x(4)+2000,sprite y(4),3
sprite 3,sprite x(3)-2000,sprite y(3),2
score#=score#+1
play sound 1
exp9=10
else
if sprite x(10)>700
sprite 8,sprite x(3),sprite y(3),5
sprite 4,sprite x(4)+2000,sprite y(4),3
sprite 3,sprite x(3)-2000,sprite y(3),2
score#=score#+1
play sound 1
exp10=10
endif
endif
endif
endif
endif

if sprite hit(5,3)
if sprite collision(5,3)
if sprite x(8)>700
sprite 8,sprite x(3),sprite y(3),5
sprite 5,sprite x(5)+2000,sprite y(5),3
sprite 3,sprite x(3)-2000,sprite y(3),2
score#=score#+1
play sound 1
exp8=10
else
if sprite x(9)>700
sprite 9,sprite x(3),sprite y(3),5
sprite 5,sprite x(5)+2000,sprite y(5),3
sprite 3,sprite x(3)-2000,sprite y(3),2
score#=score#+1
play sound 1
exp9=10
else
if sprite x(10)>700
sprite 8,sprite x(3),sprite y(3),5
sprite 5,sprite x(5)+2000,sprite y(5),3
sprite 3,sprite x(3)-2000,sprite y(3),2
score#=score#+1
play sound 1
exp10=10
endif
endif
endif
endif
endif

return

stayinside:
if sprite x(1)<1 then sprite 1,0,sprite y(1),1
if sprite x(1)>466 then sprite 1,466,sprite y(1),1
if sprite y(1)<0 then sprite 1,sprite x(1),0,1
if sprite y(1)>405 then sprite 1,sprite x(1),405,1
return

moveit:
if upkey()=1 then sprite 1,sprite x(1),sprite y(1)-4,1
if downkey()=1 then sprite 1,sprite x(1),sprite y(1)+4,1
if rightkey()=1 then sprite 1,sprite x(1)+4,sprite y(1),1
if leftkey()=1 then sprite 1,sprite x(1)-4,sprite y(1),1
return

clouds:
sprite 11,sprite x(11)-2,sprite y(11),6
sprite 12,sprite x(12)-2,sprite y(12),6
if sprite x(11)<-500 then sprite 11,rnd(1000)+680,rnd(380)+10,6
if sprite x(12)<-500 then sprite 12,rnd(1000)+680,rnd(380)+10,6
return

yourshoot:

if shootok=1
if sprite x(4)>660
   if controlkey()=1
   sprite 4,sprite x(1),sprite y(1)+40,3
   shootok=0
   endif
else
if sprite x(4)<-40
   if controlkey()=1
   sprite 4,sprite x(1),sprite y(1)+40,3
   shootok=0
   endif
endif
endif
endif

if shootok=1
if sprite x(5)>660
   if controlkey()=1
   sprite 5,sprite x(1),sprite y(1)+40,3
   shootok=0
   endif
else
if sprite x(5)<-40
   if controlkey()=1
   sprite 5,sprite x(1),sprite y(1)+40,3
   shootok=0
   endif
endif
endif
endif

if controlkey()=0 then shootok=1
if sprite x(4)<660 and sprite x(4)>0 and sprite x(5)<660 and sprite x(5)>0 then shootok=0

sprite 4,sprite x(4)+20,sprite y(4),3
sprite 5,sprite x(5)+20,sprite y(5),3

return

enemy:


`follow the good guy

if sprite x(2)>sprite x(1)
if sprite x(4)>sprite x(2)
if sprite x(5)>sprite x(2)
if sprite y(2)>sprite y(1) then sprite 2,sprite x(2),sprite y(2)-2,2
if sprite y(2)<sprite y(1) then sprite 2,sprite x(2),sprite y(2)+2,2
endif
endif
endif


if sprite x(3)>sprite x(1)
if sprite x(4)>sprite x(3)
if sprite x(5)>sprite x(3)
if sprite y(3)>sprite y(1) then sprite 3,sprite x(3),sprite y(3)-2,2
if sprite y(3)<sprite y(1) then sprite 3,sprite x(3),sprite y(3)+2,2
endif
endif
endif


`stay inside
if sprite y(2)>405 then sprite 2,sprite x(2),sprite y(2)-3,2
if sprite y(3)>405 then sprite 3,sprite x(3),sprite y(3)-3,2
if sprite y(2)<0 then sprite 2,sprite x(2),sprite y(2)+3,2
if sprite y(3)<0 then sprite 3,sprite x(3),sprite y(3)+3,2

`avoid missiles

if sprite x(4)<sprite x(2)+100
if sprite y(4)>sprite y(2)+30
if sprite y(4)-sprite y(2)<75 and sprite x(4)-sprite x(2)<350 then sprite 2,sprite x(2),sprite y(2)-2,2
endif
if sprite y(4)<sprite y(2)+30
if sprite y(2)-sprite y(4)<75 and sprite x(4)-sprite x(2)<350 then sprite 2,sprite x(2),sprite y(2)+2,2
endif
endif


if sprite x(4)<sprite x(3)+100
if sprite y(4)>sprite y(3)+30
if sprite y(4)-sprite y(3)<75 and sprite x(4)-sprite x(3)<350 then sprite 3,sprite x(3),sprite y(3)-2,2
endif
if sprite y(4)<sprite y(3)+30
if sprite y(3)-sprite y(4)<75 and sprite x(4)-sprite x(3)<350 then sprite 3,sprite x(3),sprite y(3)+2,2
endif
endif

if sprite x(5)<sprite x(2)+100
if sprite y(5)>sprite y(2)+30
if sprite y(5)-sprite y(2)<75 and sprite x(5)-sprite x(2)<350 then sprite 2,sprite x(2),sprite y(2)-2,2
endif
if sprite y(5)<sprite y(2)+30
if sprite y(2)-sprite y(5)<75 and sprite x(5)-sprite x(2)<350 then sprite 2,sprite x(2),sprite y(2)+2,2
endif
endif

if sprite x(5)<sprite x(3)+100
if sprite y(5)>sprite y(3)+30
if sprite y(5)-sprite y(3)<75 and sprite x(5)-sprite x(3)<350 then sprite 3,sprite x(3),sprite y(3)-2,2
endif
if sprite y(5)<sprite y(3)+30
if sprite y(3)-sprite y(5)<75 and sprite x(5)-sprite x(3)<350 then sprite 3,sprite x(3),sprite y(3)+2,2
endif
endif


`reposition after death
if rnd(10)=1 and sprite x(2)<-150
   sprite 2,rnd(640)+1000,rnd(400)+20,2
endif
if rnd(10)=1 and sprite x(3)<-150
   sprite 3,rnd(640)+1000,rnd(400)+20,2
endif

`bad guys move
sprite 2,sprite x(2)-3,sprite y(2),2
sprite 3,sprite x(3)-3,sprite y(3),2


`missiles
if sprite x(2)>sprite x(1) and sprite x(2)<470
if sprite x(6)<-150 then sprite 6,sprite x(2),sprite y(2)+40,4
endif

if sprite x(3)>sprite x(1) and sprite x(3)<470
if sprite x(7)<-150 then sprite 7,sprite x(3),sprite y(3)+40,4
endif

`missiles move
sprite 6,sprite x(6)-10,sprite y(6),4
sprite 7,sprite x(7)-10,sprite y(7),4
return


HUD:
`display kills
set text font "times new roman"
set text size 16
set text transparent
cls
score$="Kills: " +str$(score#)
text 5,5,score$

`display lives
if lives<3 then hide sprite 15
if lives<2 then hide sprite 14
if lives<1 then hide sprite 13
if lives>2 then show sprite 15
if lives>1 then show sprite 14
if lives>0 then show sprite 13
return