Sorry your browser is not supported!

REM Virus Attack
REM CR 2007

cls
sync on
autocam off
hide mouse

enemies_exist=5
data_exist=20
num_enemies=100
num_data=200
lightening_tex=10
laser_tex=41
download=0
powerup_countdown=rnd(50)+100
reverse=1

rem dimension arrays
dim enemy_angle(100)
dim enemy_distance(100)
dim enemy_speed(100)
dim enemy_dead(100)
dim data_angle(200)
dim data_distance(200)
dim data_speed(200)
dim data_dead(200)
dim firewall(360)

rem draw textures
create bitmap 1,32,32
set current bitmap 1
cls rgb(0,0,255)
get image 1,0,0,16,16
cls rgb(255,0,0)
get image 2,0,0,16,16
cls rgb(0,0,255)
get image 3,0,0,16,16
cls rgb(0,0,0)
ink rgb(100,100,100),0
line 0,0,0,31
line 0,0,31,0
line 0,31,31,31
line 31,0,31,31
get image 5,0,0,32,32

rem setup firewall texture
create bitmap 2,256,256
for a=1 to 360
	firewall(a)=255
next a

rem setup lightening textures
gosub lightening:

rem setup powerup textures
gosub powerup_texture:

position camera 0,-200,400
point camera 0,0,0

rem create plain mesh
make object plain 1,30,100
zrotate object 1,180
make mesh from object 1,1
delete object 1
make object plain 1,30,700
zrotate object 1,180
make mesh from object 2,1
delete object 1
make object plain 1,120,40
xrotate object 1,180
make mesh from object 3,1
delete object 1

rem make player object
make object triangle 1,0,15,0,10,-15,0,-10,-15,0
position object 1,0,0,0
yrotate object 1,180
texture object 1,1

rem make player limbs
add limb 1,1,1
add limb 1,2,2
offset limb 1,1,0,55,0
offset limb 1,2,0,350,0
ghost object on 1
hide limb 1,1

rem make virus object
for a=1 to 100
	make object triangle a+1,0,6,0,4,-4,0,-2,-4,0
	yrotate object a+1,180
	texture object a+1,2
	enemy_distance(a)=2000
	enemy_angle(a)=rnd(359)
	x=enemy_distance(a)*sin(enemy_angle(a))
	y=enemy_distance(a)*cos(enemy_angle(a))
	position object a+1,x,y,0
	zrotate object a+1,wrapvalue(180+enemy_angle(a))
next a

for a=1 to enemies_exist
	enemy_distance(a)=rnd(500)+200
next a

rem make data object
for a=1 to 200
	make object triangle a+1+num_enemies,0,4,0,4,-4,0,-2,-4,0
	yrotate object a+1+num_enemies,180
	texture object a+1+num_enemies,3
	data_distance(a)=rnd(1000)+100
	data_angle(a)=rnd(359)
next a

rem make firewall object
make object plain num_enemies+num_data+3,256,256
position object num_enemies+num_data+3,0,0,0
xrotate object num_enemies+num_data+3,180
ghost object on num_enemies+num_data+3

rem make grid object
make object plain num_enemies+num_data+4,2000,2000
position object num_enemies+num_data+4,0,0,-100
ghost object on num_enemies+num_data+4
texture object num_enemies+num_data+4,5
scale object texture num_enemies+num_data+4,32,32

rem make download bar object
make object plain num_enemies+num_data+5,500,25
position object num_enemies+num_data+5,250-(download*5),300,0
texture object num_enemies+num_data+5,1
ghost object on num_enemies+num_data+5
scale object num_enemies+num_data+5,1+download,100,100

rem make powerup object
make object sphere num_enemies+num_data+6,10
position object num_enemies+num_data+6,2000,0,0
ghost object on num_enemies+num_data+6

rem make powerup limbs
add limb num_enemies+num_data+6,1,3
offset limb num_enemies+num_data+6,1,0,10,0

rem make level up sign
make object plain num_enemies+num_data+7,300,300
position object num_enemies+num_data+7,0,100,0
create bitmap 4,128,128
ghost object on num_enemies+num_data+7

color backdrop rgb(0,0,0)

file_size=40
gosub levelup:

do

	rem show/hide level up sign
	dec levelup_countdown
	if levelup_countdown>0 then show object num_enemies+num_data+7 else hide object num_enemies+num_data+7

	rem get mouse status
	mc=mouseclick()
	mmx=mousemovex()*reverse

	rem colour backdrop
	red#=virus_collected*2
	color backdrop rgb(red#,0,0)
	if virus_collected>40
		set current bitmap 4
		cls
		ink rgb(255,255,255),0
		center text 64,0,"Game Over"
		center text 64,20,"Virus levels fatal"
		center text 64,40,"Level "+str$(level)
		wait 5
		mirror bitmap 4
		get image 70,0,0,128,128
		texture object num_enemies+num_data+7,70
		show object num_enemies+num_data+7
		color backdrop rgb(0,0,0)
		sync
		suspend for key
		end
	endif

	rem update progress bar
	download=((100*data_collected)-(100*data_killed))/file_size
	if download<1 then download=1
	if download>99
		gosub levelup:
	endif
	position object num_enemies+num_data+5,250-(download*2.5),300,0
	scale object num_enemies+num_data+5,1+download,100,100

	rem rotate player with mouse
	inc player_angle,mmx
	zrotate object 1,wrapvalue(player_angle)

	rem position enemy
	for a=1 to enemies_exist
		if enemy_distance(a)=110 and firewall(enemy_angle(a))>0
			for b=-5 to 5
				firewall(wrapvalue(enemy_angle(a)+b))=firewall(wrapvalue(enemy_angle(a)+b))-1
			next b
		else
			if enemy_dead(a)=0 then enemy_distance(a)=enemy_distance(a)-1
		endif		

		rem is enemy dead and decaying??
		if enemy_dead(a)>0
			scale object a+1,100-enemy_dead(a)*5,100-enemy_dead(a)*5,100
			enemy_dead(a)=enemy_dead(a)+1
		endif
		if enemy_dead(a)>17
			enemy_distance(a)=rnd(500)+400
			enemy_angle=rnd(359)
			enemy_dead(a)=0
			scale object a+1,100,100,100
		endif

		if enemy_distance(a)<=0
			enemy_distance(a)=rnd(1000)+1000
			enemy_angle=rnd(359)
			inc virus_collected
		endif
		x=enemy_distance(a)*sin(enemy_angle(a))
		y=enemy_distance(a)*cos(enemy_angle(a))
		position object a+1,x,y,0
		zrotate object a+1,wrapvalue(180+enemy_angle(a))
	next a

	rem position data
	for a=1 to data_exist
		rem is data dead and decaying??
		if data_dead(a)>0
			scale object a+1+num_enemies,100-data_dead(a)*5,100-data_dead(a)*5,100
			data_dead(a)=data_dead(a)+1
		endif
		if data_dead(a)>17
			data_distance(a)=rnd(1000)+1000
			data_angle=rnd(359)
			data_dead(a)=0
			scale object a+1+num_enemies,100,100,100
		endif

		data_distance(a)=data_distance(a)-1
		if data_distance(a)<=0
			data_distance(a)=rnd(1000)+1000
			data_angle=rnd(359)
			inc data_collected
		endif
		x=data_distance(a)*sin(data_angle(a))
		y=data_distance(a)*cos(data_angle(a))
		position object a+1+num_enemies,x,y,0
		zrotate object a+1+num_enemies,wrapvalue(180+data_angle(a))
	next a

	rem create / move powerups
	if powerup=0
		dec powerup_countdown
		if powerup_countdown=0
			powerup=rnd(3)+1
			powerup_speed=rnd(2)+1
			powerup_rotate=rnd(4)-2
			powerup_angle=rnd(359)+1
			powerup_distance=rnd(1000)+500
			if powerup=1
				texture object num_enemies+num_data+6,2
			else
				texture object num_enemies+num_data+6,1
			endif
			texture limb num_enemies+num_data+6,1,60+powerup
		endif
	else
		dec powerup_distance, powerup_speed
		powerup_angle=wrapvalue(powerup_angle+powerup_rotate)
		x=powerup_distance*sin(powerup_angle)
		y=powerup_distance*cos(powerup_angle)
		position object num_enemies+num_data+6,x,y,0
		if powerup_distance<1 then gosub powerup_effect:
	endif

	rem draw firewall
	set current bitmap 2
	ink rgb(100,100,255),0
	for a=1 to 500
		firewall_ang=rnd(359)+1
		if firewall(firewall_ang)>rnd(255)
			radius=100+rnd((8*firewall(firewall_ang))/255)
			x=radius*sin(firewall_ang)
			y=radius*cos(firewall_ang)
			dot x+128,y+128
		endif
	next a
	blur bitmap 2,2
	get image 4,0,0,256,256
	texture object num_enemies+num_data+3,4

	rem register mouse clicks

	rem fire regenerator
	if mc=2
		if limb visible(1,1)=0 then show limb 1,1
		inc lightening_tex
		if lightening_tex>40 then lightening_tex=10
		texture limb 1,1,lightening_tex
		for b=-4 to 4
			firewall(wrapvalue(player_angle+b))=firewall(wrapvalue(player_angle+b))+5
		next b
	else
		if limb visible(1,1)=1 then hide limb 1,1
	endif

	rem fire laser 
	if mc=1
		if limb visible(1,2)=0 then show limb 1,2
		inc laser_tex
		if laser_tex>60 then laser_tex=41
		texture limb 1,2,laser_tex
		for a=1 to num_enemies
			for b=-1 to 1
				if enemy_angle(a)=wrapvalue(b+player_angle) and enemy_dead(a)=0 and enemy_distance(a)<500
					enemy_dead(a)=1
					inc virus_killed
				endif
			next b
		next a
		for a=1 to num_data
			for b=-1 to 1
				if data_angle(a)=wrapvalue(b+player_angle) and data_dead(a)=0 and data_distance(a)<500
					data_dead(a)=1
					if object in screen(a+1+num_enemies)=1 and data_distance(a)<400 then inc data_killed
				endif
			next b
		next a
		if powerup>0
			for b=-2 to 2
				if powerup_angle=wrapvalue(b+player_angle)
					powerup=0
					powerup_countdown=rnd(100)
					position object num_enemies+num_data+6,2000,0,0
				endif
			next b
		endif
	else
		if limb visible(1,2)=1 then hide limb 1,2
	endif
		

sync

loop


lightening:
size=1
blur=2
spread=5

num=100
dim x(num)
dim y(num)

rem set initial positions of particles
for a=1 to num
	x(num)=32*size
	y(num)=rnd(32*size)
next a

rem create bitmap where the image will be drawn
create bitmap 3,64*size,64*size

rem get images
for img=-50 to 40
	set current bitmap 3
	rem move, draw electric particles
	for a=1 to num
		y(num)=y(num)+1
		x(num)=x(num)+rnd(spread*2)-spread
		if y(num)>size*64
			x(num)=32*size
			y(num)=0
		endif
		rem draw the particle
		ink rgb(100,100,200+rnd(55)),0
		dot x(num),y(num)
	next a

	rem blur bitmap
	if blur>0 then blur bitmap 3,blur

	rem get the image
	if img>=10 then get image img,0,0,64*size,64*size
next img

rem draw laser images
spread=0
num=50
for img=-30 to 60
	set current bitmap 3
	rem move, draw electric particles
	for a=1 to num
		y(num)=y(num)+1
		x(num)=x(num)+rnd(spread*2)-spread
		if y(num)>size*64
			x(num)=32*size
			y(num)=0
		endif
		rem draw the particle
		ink rgb(255,200,200),0
		dot x(num),y(num)
	next a

	rem blur bitmap
	if blur>0 then blur bitmap 3,blur

	rem get the image
	if img>40 then get image img,0,0,64*size,64*size
next img
undim x(num)
undim y(num)
delete bitmap 3
return

powerup_texture:
create bitmap 3,128,32
ink rgb(255,255,255),0
set current bitmap 3
restore
for a=61 to 64
	read name$
	cls rgb(0,0,0)
	center text 64,0,name$
	wait 100
	mirror bitmap 3
	flip bitmap 3
	get image a,0,0,128,32
next a 
delete bitmap 3
return

rem powerup names
data "data bomb", "reverse", "regenerate", "virus wipe"

powerup_effect:

select powerup
	case 1
		for a=0 to 360
			firewall(wrapvalue(a))=rnd(100)
		next a
	endcase
	case 2
		reverse=reverse*-1
	endcase
	case 3
		for a=0 to 360
			firewall(wrapvalue(a))=255
		next a
	endcase
	case 4
		for a=1 to enemies_exist
			enemy_dead(a)=1
		next a
	endcase
endselect


rem reset powerup
powerup=0
powerup_countdown=rnd(100)
position object num_enemies+num_data+6,2000,0,0
return

levelup:
		rem set variables for next level
		levelup_countdown=100
		inc level
		inc file_size,level*12
		inc enemies_exist,4
		inc data_exist,5
		if enemies_exist>num_enemies then enemies_exist=num_enemies
		if data_exist>num_data then data_exist=num_data
		data_collected=0
		data_killed=0
		virus_collected=0
		rem kill all viruses
		if level>1
			for a=1 to enemies_exist
				enemy_dead(a)=1
			next a
		endif
		set current bitmap 4
		cls
		ink rgb(255,255,255),0
		center text 64,0,"Downloading..."
		center text 64,20,"File size "+str$(file_size*10)+"kB"
		wait 5
		mirror bitmap 4
		get image 70,0,0,128,128
		texture object num_enemies+num_data+7,70
return

`------------------------------------
` TITLE
`------------------------------------
remstart
Jack and the Beanstalk
by OBese87
started: 15th July 2007
finished:
remend

`------------------------------------
` SETUP
`------------------------------------
hide mouse
sync on : sync rate 30
gosub get_images
Jx = 320
DIM cloud(4)

`------------------------------------
` GAME LOOP
`------------------------------------
gosub story


DO
cls
   `landscape
   ink rgb(0,20,50),0
   box 0,0,639,300
   ink rgb(90,60,0),0
   box 0,300,639,479

gosub display
gosub rain
gosub info

if Rightkey()= 1 and Jx <=600 then inc Jx,10
if Leftkey()= 1 and Jx >=40 then dec Jx,10
if spacekey()= 1 and Jwater= 5 and ABS(Jx-320) < 20 then Jwater= 0 : inc Bgrowth,1
if Bgrowth = 5 then center text 320,240,"YOU DID IT! WELL DONE!" : sync : END
if Rfall# > 99 then center text 320,240,"YOU FAILED! TOO BAD." : sync : END

sync
LOOP

END

`------------------------------------
` DATA
`------------------------------------
rem JACK (7x12)
data 0,0,0,1,0,0,0
data 0,0,1,2,1,0,0
data 0,0,2,2,2,0,0
data 0,0,0,2,0,0,0
data 0,0,3,3,3,0,0
data 0,3,0,3,0,3,0
data 7,7,7,7,7,7,7
data 0,2,7,7,7,2,0
data 0,0,7,7,7,0,0
data 0,0,4,0,4,0,0
data 0,0,4,0,4,0,0
data 0,0,4,0,4,0,0
rem FULL JACK (7x12)
data 0,0,0,1,0,0,0
data 0,0,1,2,1,0,0
data 0,0,2,2,2,0,0
data 0,0,0,2,0,0,0
data 0,0,3,3,3,0,0
data 0,3,0,3,0,3,0
data 7,4,4,4,4,4,7
data 0,2,7,7,7,2,0
data 0,0,7,7,7,0,0
data 0,0,4,0,4,0,0
data 0,0,4,0,4,0,0
data 0,0,4,0,4,0,0

rem Beanstalk (10x13)
data 0,6,6,0,6,6,0,0,0,0
data 6,6,0,6,6,6,0,0,0,0
data 0,0,0,0,6,6,0,0,0,0
data 0,0,0,0,6,6,0,0,0,0
data 0,0,0,0,6,6,0,0,0,0
data 0,0,0,0,6,6,0,0,0,0
data 0,0,0,0,6,6,0,6,6,0
data 0,0,0,0,6,6,6,0,6,6
data 0,0,0,0,6,6,0,0,0,0
data 0,0,0,0,6,6,0,0,0,0
data 0,0,0,0,6,6,0,0,0,0
data 0,0,0,0,6,6,0,0,0,0
data 0,0,0,0,6,6,0,0,0,0
data 0,0,0,0,6,6,0,0,0,0

`rem Bone (10x8)
data 0,7,7,0,0,0,0,0,0,0
data 7,7,7,0,0,0,0,0,0,0
data 7,7,7,7,0,0,0,0,0,0
data 0,0,0,0,7,7,0,0,0,0
data 0,0,0,0,0,0,7,7,7,7
data 0,0,0,0,0,0,0,7,7,7
data 0,0,0,0,0,0,0,7,7,0

`rem Egg (8x5)
data 0,0,0,8,8,8,8,0
data 0,8,8,8,8,8,8,8
data 8,8,8,8,8,8,8,8
data 0,8,8,8,8,8,8,8
data 0,0,0,8,8,8,8,0

rem rain1 (1x3)
data 4
data 4
data 4
rem rain2 (5x2)
data 4,0,4,0,4
data 0,4,0,4,0
rem rain3 (7x2)
data 0,0,4,0,4,0,0
data 4,0,0,0,0,0,4

rem Cloud (14x7)
data 0,0,0,0,0,0,7,7,7,7,0,0,0,0
data 0,0,0,0,7,7,7,7,9,7,7,0,0,0
data 0,0,7,7,7,7,7,9,7,9,7,0,0,0
data 0,7,7,7,9,9,7,7,7,9,7,7,9,0
data 7,7,7,9,9,7,7,7,9,7,9,7,9,9
data 7,7,7,7,7,7,9,9,9,7,7,9,9,9
data 0,9,9,9,7,9,9,9,7,9,9,9,9,0

`------------------------------------
` GOSUBS
`------------------------------------
Story:
ts = 20
ink rgb(255,255,255),0
center text 320,ts*0,"JACK & THE BEANSTALK"
center text 320,ts*2,"Once upon a time, there was a boy named Jack, who had some magic beans..."
center text 320,ts*3,"Now here's the part you didn't know. The beanstalk didn't just grow that high over night!"
center text 320,ts*4,"Where do ya think Jack lived? The Amazon! No he lived... somewhere. Anyway it was the middle"
center text 320,ts*5,"of summer and there was barely any rain at all. The forecast shows only 10mm of rain!"
center text 320,ts*6,"Move Jack using the arrow keys to catch the rain and water the beanstalk with SPACE when your"
center text 320,ts*7,"bucket is full. You must get the beanstalk to grow up into the sky before 10mm of rain has fallen."
sync
wait key
cls
RETURN

Get_Images:
for item = 1 to 9
   `set image boundaries
   select item
      case 1 : maxy = 11 : maxx = 6 : endcase : `jack
      case 2 : maxy = 11 : maxx = 6 : endcase : `jackfull
      case 3 : maxy = 12 : maxx = 9 : endcase : `beanstalk
      case 4 : maxy = 7 : maxx = 9 : endcase : `bone
      case 5 : maxy = 4 : maxx = 7 : endcase : `egg
      case 6 : maxy = 2 : maxx = 0 : endcase : `rain1
      case 7 : maxy = 1 : maxx = 4 : endcase : `rain2
      case 8 : maxy = 1 : maxx = 6 : endcase : `rain3
      case 9 : maxy = 6 : maxx = 13 : endcase : `cloud
   endselect
   `draw item
   for y = 0 to maxy
      for x = 0 to maxx
         read cn
         col = colour(cn) : `decode colour
         ink col,0
         dot x,y
      next x
   next y
   get image item, 0,0,maxx+1,maxy+1
   cls
next item
RETURN

Rain:
`move clouds
inc Cmove,1
for c = 1 to 4
   cloud(c) = sin(cmove*c)*300 +320
next c
`create rain
if rain =0
   rain=1 : Rx = cloud(rnd(3)+1) : Ry = 0 : Ri = 6 : show sprite 3
endif
`rain fall
if rain =1
   if Ry <= 340
      if Ry >= 300 and ABS(Jx-Rx)<14 and Jwater<5 then inc Jwater,1 : rain=0 : inc Rfall#,0.1
      inc Ry,15
   else
      if Ri<8 then inc Ri,1 else hide sprite 3 : rain=0 : inc Rfall#,0.1 : `splash
   endif
endif
RETURN

Display:
for stalk = 0 to Bgrowth
   sprite 7+stalk,320,280-(52*stalk),3 :`beanstalk
next stalk
sprite 1,Jx,300,1+(Jwater/5) : `jack
sprite 2,Rx,Ry,Ri : `rain
for c = 1 to 4
   sprite 2+c,cloud(c),0,9 : `cloud
next c
for spr = 1 to 13
   if sprite exist(spr)
      scale sprite spr,400 : offset sprite spr,sprite width(spr)/2,0
   endif
next spr
RETURN

Info:
ink 100,0
box 0,0,200,60
ink rgb(255,255,255),0
set cursor 0,450
Print "Total Rainfall: "; Rfall# ; "mm/10.0mm"
RETURN

`------------------------------------
` FUNCTIONS
`------------------------------------
rem #Colour Decoder Function
FUNCTION Colour(num)
  select num
   case 1 : col = rgb(255,255,70) : endcase : `blonde
   case 2 : col = rgb(255,140,160) : endcase : `pink
   case 3 : col = rgb(220,0,0) : endcase : `red
   case 4 : col = rgb(0,100,255) : endcase : `blue
   case 5 : col = rgb(120,80,0) : endcase : `brown
   case 6 : col = rgb(30,255,0) : endcase : `green
   case 7 : col = rgb(200,200,200) : endcase : `white
   case 8 : col = rgb(255,200,0) : endcase : `gold
   case 9 : col = rgb(100,100,100) : endcase : `grey
   case default : col = 0 : endcase : `black
 endselect
ENDFUNCTION col

Rem DB Classic Programming Challenge Entry
Rem 20 July 2007
Rem TDK_Man's Missile Command

Gosub Setup

T=Timer()
Do
  Mx=MouseX(): My=MouseY(): Mc=MouseCLick()
  Sprite 1,Mx-16,My-16,Sight
  If Mc=1 And MissilesLeft>0 and BulletInFlight = False Then Gosub Fire_Bullet
  If BulletInFlight = True Then Gosub Move_Bullet
  Gosub DropMissiles
  If (Timer()-T)>=EMissileSpeed Then Gosub MoveEnemyMissiles: T=Timer()
  If BangsGoing > 0 Then Gosub GrowExplosions
  Gosub UpdateScores
  Sync
Loop
End


Rem **************************************************************
Rem ***                      Procedures                        ***
Rem **************************************************************

DropMissiles:
  If Released < EnemyMissiles
    Rem Not All Missiles Released For This Level
    Rem Cities Are Sprites 101 to 106
    ReleaseOne = Rnd(200): Rem Only release periodically
    If ReleaseOne = 10
      Rem OK To release another so select a target 101 - 106
      TargetLocked=0
      Repeat
        TargetCity = Rnd(5)+1
        If Sprite Exist(TargetCity+100)
          Inc CurrentEnemyMissile: Rem Starts at 0 so first is number 1
          TargetLocked=1
          Inc Released
        Endif
      Until TargetLocked=1: Rem Target Exists
      Rem Missile Start X/Y Position
      EMissilesSlot(CurrentEnemyMissile) = 1: Rem This slot in use
      Rem Missile End X/Y Position
      MX#(CurrentEnemyMissile) = Rnd(640): Rem Enemy Missile X Start Position
      MY#(CurrentEnemyMissile) = 0.0: Rem Enemy Missile Y Start Position
      MEndPointX = Sprite X(TargetCity+100)+16
      MEndPointY = Sprite Y(TargetCity+100)+9
      MXDist# = ABS(MEndPointX-MX#(CurrentEnemyMissile))
      MYDist# = ABS(MEndPointY-MY#(CurrentEnemyMissile))
      Sprite 300+CurrentEnemyMissile,MX#(CurrentEnemyMissile),MY#(CurrentEnemyMissile),EMissile
      XStep#(CurrentEnemyMissile) = (MXDist#/MYDist#): Rem *MissileSpeed#(CurrentEnemyMissile)
      If MX#(CurrentEnemyMissile) > MEndPointX Then XStep#(CurrentEnemyMissile) = 0-XStep#(CurrentEnemyMissile)
    Endif
  Endif
Return

MoveEnemyMissiles:
  For N=1 To CurrentEnemyMissile
    If EMissilesSlot(N) = 1: Rem Missile Exists
      MX#(N)=MX#(N)+XStep#(N)
      MY#(N)=MY#(N)+1
      Sprite 300+N,MX#(N),MY#(N),EMissile
      If MY#(N) > 455
        EMissilesSlot(N) = 0: Rem Empty Enemy Missile Slot
        Delete Sprite 300+N: Rem Delete Enemy Missile
      Endif
      CityHit = Sprite Collision(300+N,0)
      If CityHit > 100 and CityHit < 107
        EMissilesSlot(N) = 0: Rem Empty Enemy Missile Slot
        Delete Sprite 300+N: Rem Delete Enemy Missile
        Sprite CityHit+50,Sprite X(CityHit),439,BaseExplosion
        Delete Sprite CityHit: Rem Delete City Sprite
      Endif
    Endif
  Next N
Return

UpdateScores:
  If Score <> OldScore
    S$=Str$(Score)
    Repeat
      S$="0"+S$
    Until Len(S$)=6
    Set Current Bitmap 1
    CLS: Wait 10
    Center Text 320,0,S$
    Wait 10
    Get Image Menu,0,0,639,32
    Set Current Bitmap 0
    Sync
    If Sprite Exist(500) Then Delete Sprite 500
    Sprite 500,0,0,Menu
    OldScore=Score
  Endif
Return

Move_Bullet:
  If XDist# > YDist#: Rem X axis is longest distance
    If Left=0
      Sprite 50,X#,BulletPosY#,Missile
      Inc X#,Speed#
      Inc BulletPosY#,Ratio#

      If X# >= EndPointX
        BulletInFlight = False
        Sprite 50,-100,100,Missile: Rem Place off-screen for collision purposes
        Rem Initiate Explosion - Sprites 201 - 210
        For N2=1 To MaxMissiles: Rem Max number of missiles this level
          If Explosions(N2,0)=0
            Explosions(N2,0)=20
            Explosions(N2,1)=EndPointX-1
            Explosions(N2,2)=EndPointY-1
            Sprite 200+N2,Explosions(N2,1)-4,Explosions(N2,2)-4,Explosion
            Scale Sprite 200+N2,Explosions(N2,0)
            Inc BangsGoing
            Exit
          Endif
        Next N2
      Endif

    Else
      Sprite 50,X#,BulletPosY#,Missile
      Inc X#,Speed#
      Inc BulletPosY#,Ratio#

      If X# <= EndPointX
        BulletInFlight = False
        Sprite 50,-100,100,Missile
        Rem Initiate Explosion - Sprites 201 - 210
        For N2=1 To MaxMissiles
          If Explosions(N2,0)=0
            Explosions(N2,0)=20
            Explosions(N2,1)=EndPointX-1
            Explosions(N2,2)=EndPointY-1
            Sprite 200+N2,Explosions(N2,1)-4,Explosions(N2,2)-4,Explosion
            Scale Sprite 200+N2,Explosions(N2,0)
            Inc BangsGoing
            Exit
          Endif
        Next N2
      Endif

    Endif
  Else: Rem Y axis is longest distance
    Sprite 50,BulletPosX#,Y#,Missile
    Inc Y#,Speed#
    Inc BulletPosX#,Ratio#

    If Y# <= EndPointY
      BulletInFlight = False
      Sprite 50,-100,100,Missile
      Rem Initiate Explosion - Sprites 201 - 210
      For N2=1 To MaxMissiles
        If Explosions(N2,0)=0
          Explosions(N2,0)=20: Rem initial explosion sprite size
          Explosions(N2,1)=EndPointX-1: Rem initial explosion X position
          Explosions(N2,2)=EndPointY-1: Rem initial explosion Y position
          Sprite 200+N2,Explosions(N2,1)-4,Explosions(N2,2)-4,Explosion
          Scale Sprite 200+N2,Explosions(N2,0)
          Inc BangsGoing
          Exit
        Endif
      Next N2
    Endif

  Endif
Return

Fire_Bullet:
  EndPointX=Mx: EndPointY=My: Speed# = 8.0: Left=0: Up=0
  BulletPosX# = SpritePosX: BulletPosY# = SpritePosY
  XDist# = ABS(EndPointX-SpritePosX)
  YDist# = ABS(EndPointY-SpritePosY)
  Show Sprite 50
  BulletInFlight = True
  If XDist# > YDist#: Rem X axis is longest distance
    Ratio# = (YDist#/XDist#)*Speed#
    If EndPointX<BulletPosX# Then Speed#=0-Speed#: Left=1: Rem Bullet moving left
    If EndPointY<BulletPosY# Then Ratio#=0-Ratio#: Up=1: Rem Bullet moving up
    X# = BulletPosX#: Rem Start X position of bullet
  Else: Rem Y axis is longest distance
    Ratio# = (XDist#/YDist#)*Speed#
    If EndPointX<BulletPosX# Then Ratio#=0-Ratio#: Left=1: Rem Bullet moving left
    If EndPointY<BulletPosY# Then Speed#=0-Speed#: Up=1: Rem Bullet moving up
    Y# = BulletPosY#: Rem Start X position of bullet
  Endif
  Rem Remove a missile from base
  Paste Image MissileBlank,MissileLeftPos(MissilesLeft,0),MissileLeftPos(MissilesLeft,1)
  Dec MissilesLeft
Return

GrowExplosions:
  For N3=1 To 10: Rem MaxMissiles
    If Explosions(N3,0) <> 0
      Explosions(N3,0) = Explosions(N3,0)+2: Rem increase sprite size
      Scale Sprite 200+N3,Explosions(N3,0)
      Sprite 200+N3,Explosions(N3,1)-Sprite Width(200+N3)/2,Explosions(N3,2)-Sprite Height(200+N3)/2,Explosion

      Rem Check for Explosion Hitting Enemy Missile
      MissileHit = Sprite Collision(200+N3,0)
      If MissileHit >= 300 And MissileHit <= 400: Rem Enemy Missile Intercepted
        EMissiles(MissileHit-300) = 0
        EMissilesSlot(MissileHit-300) = 0
        Delete Sprite MissileHit
        Inc Score,50
        Dec EnemyMissilesLeft
        If EnemyMissilesLeft = 0
          Rem End Of Level
          Center Text 320,300,"LEVEL COMPLETE!": Sync
          End
        Endif
      Endif

      If Explosions(N3,0) >= 400: Rem Reached max size
        Dec BangsGoing
        Sprite 200+N3,-400,100,Explosion
        Explosions(N3,0) = 0
      Endif
    Endif
  Next N3
Return

Setup:
  SW=640: SH=480
  Set Display Mode SW,SH,16: Wait 100
  Sync On: Sync Rate 0: CLS 0: Wait 100
  Sync: Wait 100
  Randomize Timer()
  Set Text Font "Comic MS"
  Set Text Size 32
  Set Text Opaque
  Hide Mouse

  Rem Image Numbers
  City = 100
  Base = 101
  Sight = 102
  Gun = 103
  Missile = 104
  EMissile = 105
  Explosion = 106
  Lives = 107
  NumMissiles = 108
  LivesBlank = 109
  MissileBlank = 110
  Menu = 111
  BaseExplosion = 112

  Rem Game Variables
  SpritePosX = 318: SpritePosY = 431
  Lives = 3
  MissilesLeft = 10
  MSpeed# = 1.0
  EnemyMissiles = 6
  EnemyMissilesLeft = 6
  EMissileSpeed = 100
  CurrentEnemyMissile = 0
  OldScore = -1
  Score = 0
  MaxMissiles = 6
  True=1: False=0

  Dim Explosions(10,2)
  Dim MissileLeftPos(21,1)
  Dim EMissiles(40)
  Dim EMissilesSlot(40)
  Dim XStep#(20)
  Dim X#(20)
  Dim MLeft(20)
  Dim MX#(20)
  Dim MY#(20)
  Dim MBulletPosX#(20)
  Dim MBulletPosY#(20)

  For N=1 To 20
    X#(N)=MSpeed#
  Next N

  Create Bitmap 1,640,480

  Rem Image For City Sprites
  Ink RGB(45,50,184),0
  For N=0 To 7
    Width = 4
    Top = Rnd(6)*2
    Box N*4,Top,N*4+3,18
  Next N
  Get Image City,0,0,32,18

  Rem Image For Base Sprite
  CLS 0
  Ink RGB(135,183,84),0
  Box 0,SH-24,SW-1,SH-1
  Box 0,SH-42,31,SH-1
  Box SW-32,SH-42,SW-1,SH-1
  Box 320-50,SH-30,320+50,SH-1
  Box 320-34,SH-36,320+34,SH-1
  Box 320-18,SH-42,320+16,SH-1
  Get Image Base,0,SH-42,SW-1,SH-1

  Rem Image For Gun Sprite
  CLS 0
  Ink RGB(162,64,180),0
  Box 0,0,8,1
  Ink RGB(45,50,184),0
  Box 0,2,8,3
  Get Image Gun,0,0,9,4

  Rem Image For Sight Sprite
  CLS 0
  Ink RGB(155,0,0),0
  Circle 16,15,15: Circle 16,16,15
  Ink RGB(155,0,0),0
  Circle 16,15,14: Circle 16,16,14
  Ink RGB(170,0,0),0
  Line 2,15,39,15: Line 2,17,39,17
  Line 15,1,15,30: Line 17,1,17,30
  Ink 0,0:  Box 15,15,17,17
  Get Image Sight,0,0,32,32

  Rem Image For Bullet Sprite
  CLS 0
  Ink RGB(255,255,255),0
  Box 0,0,2,2
  Get Image Missile,0,0,3,3

  Rem Image For Enemy Missiles Sprites
  CLS 0
  Ink RGB(255,0,255),0
  Dot 0,0
  Dot 3,0
  Dot 0,3
  Dot 3,3
  Box 1,1,2,2
  Get Image EMissile,0,0,4,4

  Rem Image For Explosion Sprite
  CLS 0
  R=255: G=255: B=0
  For N=1 To 14
    Ink RGB(R,G,B),0
    Circle 16,16,N
    Circle 16,17,N
    Dec G,16
  Next N
  Blur Bitmap 1,1
  Get Image Explosion,0,0,32,32

  Rem Image For Explosion Sprite
  CLS 0
  R=255: G=31: B=100
  For N=1 To 14
    Ink RGB(R,G,B),0
    Circle 16,16,N
    Circle 16,17,N
    Inc G,16
  Next N
  Blur Bitmap 1,1
  Get Image BaseExplosion,0,0,32,16

  Rem Image For Lives Indicator 16 x 8
  CLS 0
  Ink RGB(255,0,0),0: Box 0,0,15,7
  Ink RGB(12,12,12),0: Box 1,1,14,6
  Get Image Lives,0,0,16,8
  CLS RGB(135,183,84)
  Get Image LivesBlank,0,0,16,8

  Rem Image For Missiles Left Indicator 7 x 3
  CLS 0
  Ink RGB(12,12,12),0: Box 0,0,6,2
  Ink RGB(255,255,255),0: Box 1,1,5,1
  Get Image NumMissiles,0,0,7,3
  CLS RGB(135,183,84)
  Get Image MissileBlank,0,0,7,3

  Set Current Bitmap 0

  Rem Now Build Scene On Main Screen...

  Rem Player Base
  Paste Image Base,0,SH-42

  Rem Player Cities
  For N=0 To 2
    Sprite N+100+1,N*64+72,438,City
  Next N
  For N=0 To 2
    Sprite N+104+1,N*64+408,438,City
  Next N

  Rem Player Gun
  Paste Image Gun,315,434

  Rem Player Missile
  Sprite 50,318,431,Missile

  Rem Off-Screen Explosion Sprites
  For N=1 To 10
    Sprite 200+N,-100,100,Explosion
  Next N

  Rem Lives Left Icons
  For N=0 To Lives-1
    Paste Image Lives,N*20+3,463
  Next N

  TLX=316: TLY=450: Num=0: Count=1
  For Ny=0 To 3
    For Nx=0 To Num
      Paste Image NumMissiles, Nx*14+TLX,TLY
      MissileLeftPos(Count,0)=Nx*14+TLX
      MissileLeftPos(Count,1)=TLY
      Inc Count
    Next Nx
    Inc Num: Dec TLX,7: Inc TLY,3
  Next Ny
  Ink RGB(255,255,255),0
Return

Rem DB Classic Programming Challenge Entry
Rem 20 July 2007
Rem TDK_Man's Missile Command

Gosub Setup

T=Timer()
Do
  Mx=MouseX(): My=MouseY(): Mc=MouseCLick()
  Sprite 1,Mx-16,My-16,Sight
  If Mc=1 And MissilesLeft>0 and BulletInFlight = False Then Gosub Fire_Bullet
  If BulletInFlight = True Then Gosub Move_Bullet
  Gosub DropMissiles
  If (Timer()-T)>=EMissileSpeed Then Gosub MoveEnemyMissiles: T=Timer()
  If BangsGoing > 0 Then Gosub GrowExplosions
  Gosub UpdateScores
  Sync
Loop
End


Rem **************************************************************
Rem ***                      Procedures                        ***
Rem **************************************************************

DropMissiles:
  If Released < EnemyMissiles
    Rem Not All Missiles Released For This Level
    Rem Cities Are Sprites 101 to 106
    ReleaseOne = Rnd(200): Rem Only release periodically
    If ReleaseOne = 10
      Rem OK To release another so select a target 101 - 106
      TargetLocked=0
      Repeat
        TargetCity = Rnd(5)+1
        If Sprite Exist(TargetCity+100)
          Inc CurrentEnemyMissile: Rem Starts at 0 so first is number 1
          TargetLocked=1
          Inc Released
        Endif
      Until TargetLocked=1: Rem Target Exists
      Rem Missile Start X/Y Position
      EMissilesSlot(CurrentEnemyMissile) = 1: Rem This slot in use
      Rem Missile End X/Y Position
      MX#(CurrentEnemyMissile) = Rnd(640): Rem Enemy Missile X Start Position
      MY#(CurrentEnemyMissile) = 0.0: Rem Enemy Missile Y Start Position
      MEndPointX = Sprite X(TargetCity+100)+16
      MEndPointY = Sprite Y(TargetCity+100)+9
      MXDist# = ABS(MEndPointX-MX#(CurrentEnemyMissile))
      MYDist# = ABS(MEndPointY-MY#(CurrentEnemyMissile))
      Sprite 300+CurrentEnemyMissile,MX#(CurrentEnemyMissile),MY#(CurrentEnemyMissile),EMissile
      XStep#(CurrentEnemyMissile) = (MXDist#/MYDist#): Rem *MissileSpeed#(CurrentEnemyMissile)
      If MX#(CurrentEnemyMissile) > MEndPointX Then XStep#(CurrentEnemyMissile) = 0-XStep#(CurrentEnemyMissile)
    Endif
  Endif
Return

MoveEnemyMissiles:
  For N=1 To CurrentEnemyMissile
    If EMissilesSlot(N) = 1: Rem Missile Exists
      MX#(N)=MX#(N)+XStep#(N)
      MY#(N)=MY#(N)+1
      Sprite 300+N,MX#(N),MY#(N),EMissile
      If MY#(N) > 455
        EMissilesSlot(N) = 0: Rem Empty Enemy Missile Slot
        Delete Sprite 300+N: Rem Delete Enemy Missile
      Endif
      CityHit = Sprite Collision(300+N,0)
      If CityHit > 100 and CityHit < 107
        EMissilesSlot(N) = 0: Rem Empty Enemy Missile Slot
        Delete Sprite 300+N: Rem Delete Enemy Missile
        Sprite CityHit+50,Sprite X(CityHit),439,BaseExplosion
        Delete Sprite CityHit: Rem Delete City Sprite
      Endif
    Endif
  Next N
Return

UpdateScores:
  If Score <> OldScore
    S$=Str$(Score)
    Repeat
      S$="0"+S$
    Until Len(S$)=6
    Set Current Bitmap 1
    CLS 0: Wait 40
    Center Text 320,0,S$
    Wait 50
    Get Image Menu,0,0,639,32
    Wait 50
    Set Current Bitmap 0
    If Sprite Exist(500) Then Delete Sprite 500
    Sprite 500,0,0,Menu
    Set Sprite 500,0,0
    OldScore=Score
  Endif
Return

Move_Bullet:
  If XDist# > YDist#: Rem X axis is longest distance
    If Left=0
      Sprite 50,X#,BulletPosY#,Missile
      Inc X#,Speed#
      Inc BulletPosY#,Ratio#

      If X# >= EndPointX
        BulletInFlight = False
        Sprite 50,-100,100,Missile: Rem Place off-screen for collision purposes
        Rem Initiate Explosion - Sprites 201 - 210
        For N2=1 To MaxMissiles: Rem Max number of missiles this level
          If Explosions(N2,0)=0
            Explosions(N2,0)=20
            Explosions(N2,1)=EndPointX-1
            Explosions(N2,2)=EndPointY-1
            Sprite 200+N2,Explosions(N2,1)-4,Explosions(N2,2)-4,Explosion
            Scale Sprite 200+N2,Explosions(N2,0)
            Inc BangsGoing
            Exit
          Endif
        Next N2
      Endif

    Else
      Sprite 50,X#,BulletPosY#,Missile
      Inc X#,Speed#
      Inc BulletPosY#,Ratio#

      If X# <= EndPointX
        BulletInFlight = False
        Sprite 50,-100,100,Missile
        Rem Initiate Explosion - Sprites 201 - 210
        For N2=1 To MaxMissiles
          If Explosions(N2,0)=0
            Explosions(N2,0)=20
            Explosions(N2,1)=EndPointX-1
            Explosions(N2,2)=EndPointY-1
            Sprite 200+N2,Explosions(N2,1)-4,Explosions(N2,2)-4,Explosion
            Scale Sprite 200+N2,Explosions(N2,0)
            Inc BangsGoing
            Exit
          Endif
        Next N2
      Endif

    Endif
  Else: Rem Y axis is longest distance
    Sprite 50,BulletPosX#,Y#,Missile
    Inc Y#,Speed#
    Inc BulletPosX#,Ratio#

    If Y# <= EndPointY
      BulletInFlight = False
      Sprite 50,-100,100,Missile
      Rem Initiate Explosion - Sprites 201 - 210
      For N2=1 To MaxMissiles
        If Explosions(N2,0)=0
          Explosions(N2,0)=20: Rem initial explosion sprite size
          Explosions(N2,1)=EndPointX-1: Rem initial explosion X position
          Explosions(N2,2)=EndPointY-1: Rem initial explosion Y position
          Sprite 200+N2,Explosions(N2,1)-4,Explosions(N2,2)-4,Explosion
          Scale Sprite 200+N2,Explosions(N2,0)
          Inc BangsGoing
          Exit
        Endif
      Next N2
    Endif

  Endif
Return

Fire_Bullet:
  EndPointX=Mx: EndPointY=My: Speed# = 8.0: Left=0: Up=0
  BulletPosX# = SpritePosX: BulletPosY# = SpritePosY
  XDist# = ABS(EndPointX-SpritePosX)
  YDist# = ABS(EndPointY-SpritePosY)
  Show Sprite 50
  BulletInFlight = True
  If XDist# > YDist#: Rem X axis is longest distance
    Ratio# = (YDist#/XDist#)*Speed#
    If EndPointX<BulletPosX# Then Speed#=0-Speed#: Left=1: Rem Bullet moving left
    If EndPointY<BulletPosY# Then Ratio#=0-Ratio#: Up=1: Rem Bullet moving up
    X# = BulletPosX#: Rem Start X position of bullet
  Else: Rem Y axis is longest distance
    Ratio# = (XDist#/YDist#)*Speed#
    If EndPointX<BulletPosX# Then Ratio#=0-Ratio#: Left=1: Rem Bullet moving left
    If EndPointY<BulletPosY# Then Speed#=0-Speed#: Up=1: Rem Bullet moving up
    Y# = BulletPosY#: Rem Start X position of bullet
  Endif
  Rem Remove a missile from base
  Paste Image MissileBlank,MissileLeftPos(MissilesLeft,0),MissileLeftPos(MissilesLeft,1)
  Dec MissilesLeft
Return

GrowExplosions:
  For N3=1 To 10: Rem MaxMissiles
    If Explosions(N3,0) <> 0
      Explosions(N3,0) = Explosions(N3,0)+2: Rem increase sprite size
      Scale Sprite 200+N3,Explosions(N3,0)
      Sprite 200+N3,Explosions(N3,1)-Sprite Width(200+N3)/2,Explosions(N3,2)-Sprite Height(200+N3)/2,Explosion

      Rem Check for Explosion Hitting Enemy Missile
      MissileHit = Sprite Collision(200+N3,0)
      If MissileHit >= 300 And MissileHit <= 400: Rem Enemy Missile Intercepted
        EMissiles(MissileHit-300) = 0
        EMissilesSlot(MissileHit-300) = 0
        Delete Sprite MissileHit
        Inc Score,50
        Dec EnemyMissilesLeft
        If EnemyMissilesLeft = 0
          Rem End Of Level
          Center Text 320,250,"LEVEL COMPLETE!": Sync
          End
        Endif
      Endif

      If Explosions(N3,0) >= 400: Rem Reached max size
        Dec BangsGoing
        Sprite 200+N3,-400,100,Explosion
        Explosions(N3,0) = 0
      Endif
    Endif
  Next N3
Return

Setup:
  SW=640: SH=480
  Set Display Mode SW,SH,16: Wait 100
  Sync On: Sync Rate 0: CLS 0: Wait 100
  Sync: Wait 100
  Randomize Timer()
  Set Text Font "Comic Sans MS"
  Set Text Size 32
  Set Text Opaque
  Hide Mouse

  Rem Image Numbers
  City = 100
  Base = 101
  Sight = 102
  Gun = 103
  Missile = 104
  EMissile = 105
  Explosion = 106
  Lives = 107
  NumMissiles = 108
  LivesBlank = 109
  MissileBlank = 110
  Menu = 111
  BaseExplosion = 112

  Rem Game Variables
  SpritePosX = 318: SpritePosY = 431
  Lives = 3
  MissilesLeft = 10
  MSpeed# = 1.0
  EnemyMissiles = 6
  EnemyMissilesLeft = 6
  EMissileSpeed = 100
  CurrentEnemyMissile = 0
  OldScore = -1
  Score = 0
  MaxMissiles = 6
  True=1: False=0

  Dim Explosions(10,2)
  Dim MissileLeftPos(21,1)
  Dim EMissiles(40)
  Dim EMissilesSlot(40)
  Dim XStep#(20)
  Dim X#(20)
  Dim MLeft(20)
  Dim MX#(20)
  Dim MY#(20)
  Dim MBulletPosX#(20)
  Dim MBulletPosY#(20)

  For N=1 To 20
    X#(N)=MSpeed#
  Next N

  Create Bitmap 1,640,480

  Rem Image For City Sprites
  Ink RGB(45,50,184),0
  For N=0 To 7
    Width = 4
    Top = Rnd(6)*2
    Box N*4,Top,N*4+3,18
  Next N
  Get Image City,0,0,32,18

  Rem Image For Base Sprite
  CLS 0
  Ink RGB(135,183,84),0
  Box 0,SH-24,SW-1,SH-1
  Box 0,SH-42,31,SH-1
  Box SW-32,SH-42,SW-1,SH-1
  Box 320-50,SH-30,320+50,SH-1
  Box 320-34,SH-36,320+34,SH-1
  Box 320-18,SH-42,320+16,SH-1
  Get Image Base,0,SH-42,SW-1,SH-1

  Rem Image For Gun Sprite
  CLS 0
  Ink RGB(162,64,180),0
  Box 0,0,8,1
  Ink RGB(45,50,184),0
  Box 0,2,8,3
  Get Image Gun,0,0,9,4

  Rem Image For Sight Sprite
  CLS 0
  Ink RGB(155,0,0),0
  Circle 16,15,15: Circle 16,16,15
  Ink RGB(155,0,0),0
  Circle 16,15,14: Circle 16,16,14
  Ink RGB(170,0,0),0
  Line 2,15,39,15: Line 2,17,39,17
  Line 15,1,15,30: Line 17,1,17,30
  Ink 0,0:  Box 15,15,17,17
  Get Image Sight,0,0,32,32

  Rem Image For Bullet Sprite
  CLS 0
  Ink RGB(255,255,255),0
  Box 0,0,2,2
  Get Image Missile,0,0,3,3

  Rem Image For Enemy Missiles Sprites
  CLS 0
  Ink RGB(255,0,255),0
  Dot 0,0
  Dot 3,0
  Dot 0,3
  Dot 3,3
  Box 1,1,2,2
  Get Image EMissile,0,0,4,4

  Rem Image For Explosion Sprite
  CLS 0
  R=255: G=255: B=0
  For N=1 To 14
    Ink RGB(R,G,B),0
    Circle 16,16,N
    Circle 16,17,N
    Dec G,16
  Next N
  Blur Bitmap 1,1
  Get Image Explosion,0,0,32,32

  Rem Image For Explosion Sprite
  CLS 0
  R=255: G=31: B=100
  For N=1 To 14
    Ink RGB(R,G,B),0
    Circle 16,16,N
    Circle 16,17,N
    Inc G,16
  Next N
  Blur Bitmap 1,1
  Get Image BaseExplosion,0,0,32,16

  Rem Image For Lives Indicator 16 x 8
  CLS 0
  Ink RGB(255,0,0),0: Box 0,0,15,7
  Ink RGB(12,12,12),0: Box 1,1,14,6
  Get Image Lives,0,0,16,8
  CLS RGB(135,183,84)
  Get Image LivesBlank,0,0,16,8

  Rem Image For Missiles Left Indicator 7 x 3
  CLS 0
  Ink RGB(12,12,12),0: Box 0,0,6,2
  Ink RGB(255,255,255),0: Box 1,1,5,1
  Get Image NumMissiles,0,0,7,3
  CLS RGB(135,183,84)
  Get Image MissileBlank,0,0,7,3

  Set Current Bitmap 0

  Rem Now Build Scene On Main Screen...

  Rem Player Base
  Paste Image Base,0,SH-42

  Rem Player Cities
  For N=0 To 2
    Sprite N+100+1,N*64+72,438,City
  Next N
  For N=0 To 2
    Sprite N+104+1,N*64+408,438,City
  Next N

  Rem Player Gun
  Paste Image Gun,315,434

  Rem Player Missile
  Sprite 50,318,431,Missile

  Rem Off-Screen Explosion Sprites
  For N=1 To 10
    Sprite 200+N,-100,100,Explosion
  Next N

  Rem Lives Left Icons
  For N=0 To Lives-1
    Paste Image Lives,N*20+3,463
  Next N

  TLX=316: TLY=450: Num=0: Count=1
  For Ny=0 To 3
    For Nx=0 To Num
      Paste Image NumMissiles, Nx*14+TLX,TLY
      MissileLeftPos(Count,0)=Nx*14+TLX
      MissileLeftPos(Count,1)=TLY
      Inc Count
    Next Nx
    Inc Num: Dec TLX,7: Inc TLY,3
  Next Ny

  Ink RGB(255,255,255),0

Return

`--------------------------------
`2D CUBE CATCHER!
`--------------------------------

`--------------------------------
` SETUP
`--------------------------------
`world Boundaries
Wx1 = 15 : Wx2 = 320
Wy1 = 200 : Wy2 = 30
Wz1 = 0 : Wz2 = 160

`Cube position
Cx = rnd(Wx2-Wx1)+Wx1
Cy = Wy2
Cz = rnd(Wz2-Wx1)+Wx1

`Cube volume
Cvx = 10
Cvy = 10
Cvz = 5 : `half actual size for simplicity (no need to divide by 2)

`player plain
Px = Wx1
Py = Wy1
Pz = Wz1
`plain volume
Pvx = 16
Pvz = 8

`--------------------------------
` MAIN LOOP
`--------------------------------
sync on

DO
cls
gosub Axis
gosub Cube
gosub Player
gosub control
gosub bind

inc Cy,2
if Cy >= Wy1
   if ABS(Px-Cx) < 16 and ABS(Pz-Cz) < 16 then inc Pscore,1
   Cx = rnd(Wx2-Wx1)+Wx1
   Cy = Wy2
   Cz = rnd(Wz2-Wx1)+Wx1
endif

set cursor 20,320
print "Score: "; Pscore

sync
LOOP

`--------------------------------
` GOSUBS
`--------------------------------
axis:
`x-line
ink rgb(255,0,0),0
line 15,200,320,200
`y-line
ink rgb(0,255,0),0
line 15,200,15,20
`z-line (X+Y/2)
ink rgb(0,0,255),0
line 15,200,160,55
RETURN

`------

cube:
ink rgb(255,255,255),0
`* FG Square
`Fore Bottom Horizontal
line (Cx+Cz),(Cy-Cz), (Cx+Cz)+Cvx,(Cy-Cz)
`Fore Top Horizontal
line (Cx+Cz),(Cy-Cz)-Cvy, (Cx+Cz)+Cvx,(Cy-Cz)-Cvy
`Fore Left Vert
line (Cx+Cz),(Cy-Cz), (Cx+Cz),(Cy-Cz)-Cvy
`Fore Right Vert
line (Cx+Cz)+Cvx,(Cy-Cz), (Cx+Cz)+Cvx,(Cy-Cz)-Cvy

`* BG Square
`Fore Bottom Horizontal
line (Cx+Cz)+Cvz,(Cy-Cz)-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvz
`Fore Top Horizontal
line (Cx+Cz)+Cvz,(Cy-Cz)-Cvy-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvy-Cvz
`Fore Left Vert
line (Cx+Cz)+Cvz,(Cy-Cz)-Cvz, (Cx+Cz)+Cvz,(Cy-Cz)-Cvy-Cvz
`Fore Right Vert
line (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvy-Cvz

`* Connectors
`LB
line (Cx+Cz),(Cy-Cz), (Cx+Cz)+Cvz,(Cy-Cz)-Cvz
`RB
line (Cx+Cz)+Cvx,(Cy-Cz), (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvz
`LT
line (Cx+Cz),(Cy-Cz)-Cvy, (Cx+Cz)+Cvz,(Cy-Cz)-Cvy-Cvz
`RT
line (Cx+Cz)+Cvx,(Cy-Cz)-Cvy, (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvy-Cvz

`* Y height line (ground up)
ink rgb(0,255,0),0
line (Cx+Cz)+(Cvx/1.6),(Wy1-Cz)-(Cvy/1.6), (Cx+Cz)+(Cvx/1.6),(Cy-Cz)-(Cvy/1.6)
RETURN

`------

player:
ink rgb(255,0,0),0
`FG Horizontal
line (Px+Pz),(Py-Pz), (Px+Pz)+Pvx,(Py-Pz)
`BG Horizontal
line (Px+Pz)+Pvz,(Py-Pz)-Pvz, (Px+Pz)+Pvx+Pvz,(Py-Pz)-Pvz
`LB
line (Px+Pz),(Py-Pz), (Px+Pz)+Pvz,(Py-Pz)-Pvz
`RB
line (Px+Pz)+Pvx,(Py-Pz), (Px+Pz)+Pvx+Pvz,(Py-Pz)-Pvz
RETURN

`------

control:
if rightkey() = 1 then inc Px,2
if leftkey() = 1 then dec Px,2
if upkey() = 1 then inc Pz,1
if downkey() = 1 then dec Pz,1
RETURN

`------

bind:
if Cx < Wx1 then Cx = Wx1
if Cx > Wx2 then Cx = Wx2
if Cy > Wy1 then Cy = Wy1
if Cy < Wy2 then Cy = Wy2
if Cz < Wz1 then Cz = Wz1
if Cz > Wz2 then Cz = Wz2

if Px < Wx1 then Px = Wx1
if Px > Wx2 then Px = Wx2
if Pz < Wz1 then Pz = Wz1
if Pz > Wz2 then Pz = Wz2
RETURN

`--------------------------------
`2D CUBE CATCHER!
`--------------------------------

`--------------------------------
` SETUP
`--------------------------------
`world Boundaries
Wx1 = 15 : Wx2 = 320
Wy1 = 200 : Wy2 = 30
Wz1 = 0 : Wz2 = 160

`Cube position
Cx = rnd(Wx2-Wx1)+Wx1
Cy = Wy2
Cz = rnd(Wz2-Wx1)+Wx1

`Cube volume
Cvx = 10
Cvy = 10
Cvz = 5 : `half actual size for simplicity (no need to divide by 2)

`player plain
Px = Wx1
Py = Wy1
Pz = Wz1
`plain volume
Pvx = 16
Pvz = 8

sTime = timer() : `start time

`--------------------------------
` MAIN LOOP
`--------------------------------
sync on

DO
cls
gosub Axis
gosub Cube
gosub Player
gosub control
gosub bind

inc Cy,2
if Cy >= Wy1
   if ABS( (Px+(pvx/2)) - (Cx+(Cvx/2)) ) < (Pvx/2) and ABS( (Pz+(pvz/2)) - (Cz+(Cvz/2)) ) < (Pvz/2) then inc Pscore,1
   Cx = rnd(Wx2-Wx1)+Wx1
   Cy = Wy2
   Cz = rnd(Wz2-Wx1)+Wx1
   Cvx = rnd(10)+5 : Cvy = rnd(10)+5 : Cvz = rnd(10)+5
else
   if (Pvx-Cvx) <> 0 then dec Pvx,(Pvx-Cvx)/ABS(Pvx-Cvx)
   if (Pvz-Cvz) <> 0 then dec Pvz,(Pvz-Cvz)/ABS(Pvz-Cvz)
endif

set cursor 20,320
eTime# = (Timer()-sTime)/1000
print "Time Elapsed: "; eTime#
print "Score: "; Pscore

if Pscore = 20 then print "You scored 20pts in "; etime#; " seconds!"

sync
LOOP

`--------------------------------
` GOSUBS
`--------------------------------
axis:
`x-line
ink rgb(255,0,0),0
line 15,200,320,200
`y-line
ink rgb(0,255,0),0
line 15,200,15,20
`z-line (X+Y/2)
ink rgb(0,0,255),0
line 15,200,160,55
RETURN

`------

cube:
ink rgb(255,255,255),0
`* FG Square
`Fore Bottom Horizontal
line (Cx+Cz),(Cy-Cz), (Cx+Cz)+Cvx,(Cy-Cz)
`Fore Top Horizontal
line (Cx+Cz),(Cy-Cz)-Cvy, (Cx+Cz)+Cvx,(Cy-Cz)-Cvy
`Fore Left Vert
line (Cx+Cz),(Cy-Cz), (Cx+Cz),(Cy-Cz)-Cvy
`Fore Right Vert
line (Cx+Cz)+Cvx,(Cy-Cz), (Cx+Cz)+Cvx,(Cy-Cz)-Cvy

`* BG Square
`Fore Bottom Horizontal
line (Cx+Cz)+Cvz,(Cy-Cz)-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvz
`Fore Top Horizontal
line (Cx+Cz)+Cvz,(Cy-Cz)-Cvy-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvy-Cvz
`Fore Left Vert
line (Cx+Cz)+Cvz,(Cy-Cz)-Cvz, (Cx+Cz)+Cvz,(Cy-Cz)-Cvy-Cvz
`Fore Right Vert
line (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvy-Cvz

`* Connectors
`LB
line (Cx+Cz),(Cy-Cz), (Cx+Cz)+Cvz,(Cy-Cz)-Cvz
`RB
line (Cx+Cz)+Cvx,(Cy-Cz), (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvz
`LT
line (Cx+Cz),(Cy-Cz)-Cvy, (Cx+Cz)+Cvz,(Cy-Cz)-Cvy-Cvz
`RT
line (Cx+Cz)+Cvx,(Cy-Cz)-Cvy, (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvy-Cvz

`* Y height line (ground up)
ink rgb(0,255,0),0
line (Cx+Cz)+(Cvx/1.6),(Wy1-Cz)-(Cvy/1.6), (Cx+Cz)+(Cvx/1.6),(Cy-Cz)-(Cvy/1.6)
RETURN

`------

player:
ink rgb(255,0,0),0
`FG Horizontal
line (Px+Pz),(Py-Pz), (Px+Pz)+Pvx,(Py-Pz)
`BG Horizontal
line (Px+Pz)+Pvz,(Py-Pz)-Pvz, (Px+Pz)+Pvx+Pvz,(Py-Pz)-Pvz
`LB
line (Px+Pz),(Py-Pz), (Px+Pz)+Pvz,(Py-Pz)-Pvz
`RB
line (Px+Pz)+Pvx,(Py-Pz), (Px+Pz)+Pvx+Pvz,(Py-Pz)-Pvz
RETURN

`------

control:
if rightkey() = 1 then inc Px,2
if leftkey() = 1 then dec Px,2
if upkey() = 1 then inc Pz,1
if downkey() = 1 then dec Pz,1
RETURN

`------

bind:
if Cx < Wx1 then Cx = Wx1
if Cx > Wx2 then Cx = Wx2
if Cy > Wy1 then Cy = Wy1
if Cy < Wy2 then Cy = Wy2
if Cz < Wz1 then Cz = Wz1
if Cz > Wz2 then Cz = Wz2

if Px < Wx1 then Px = Wx1
if Px > Wx2 then Px = Wx2
if Pz < Wz1 then Pz = Wz1
if Pz > Wz2 then Pz = Wz2
RETURN

`--------------------------------
`2D CUBE CATCHER!
`--------------------------------

`--------------------------------
` SETUP
`--------------------------------
`world Boundaries
Wx1 = 15 : Wx2 = 320
Wy1 = 200 : Wy2 = 30
Wz1 = 0 : Wz2 = 160

`Cube position
Cx = rnd(Wx2-Wx1)+Wx1
Cy = Wy2
Cz = rnd(Wz2-Wx1)+Wx1

`Cube volume
Cvx = 10
Cvy = 10
Cvz = 5 : `half actual size for simplicity (no need to divide by 2)

`player plain
Px = Wx1
Py = Wy1
Pz = Wz1
`plain volume
Pvx = 16
Pvz = 8

sTime# = timer() : `start time

`--------------------------------
` MAIN LOOP
`--------------------------------
sync on

DO
cls
gosub Axis
gosub Cube
gosub Player
gosub control
gosub bind

inc Cy,2
if Cy >= Wy1
   if ABS( (Px+(pvx/2)) - (Cx+(Cvx/2)) ) < (Pvx/2) and ABS( (Pz+(pvz/2)) - (Cz+(Cvz/2)) ) < (Pvz/2)
      inc Pscore,1
      inc roll,1
      if roll = 3 then onfire = 1
   else
      roll = 0
      onfire = 0
   endif
   Cx = rnd(Wx2-Wx1)+Wx1
   Cy = Wy2
   Cz = rnd(Wz2-Wx1)+Wx1
   Cvx = rnd(10)+5 : Cvy = rnd(10)+5 : Cvz = rnd(10)+5
else
   if onfire = 0
      if (Pvx-Cvx) <> 0 then dec Pvx,(Pvx-Cvx)/ABS(Pvx-Cvx)
      if (Pvz-Cvz) <> 0 then dec Pvz,(Pvz-Cvz)/ABS(Pvz-Cvz)
   else
      Pvx = 20 : Pvz = 20
   endif
endif

set cursor 20,320
eTime# = 20-(Timer()-sTime#)/1000
print "Time Elapsed: "; eTime#
print "Score: "; Pscore
if onfire = 1 then print "YOU'RE ON FIRE!!!"

if eTime# = 0
   cls
   center text 320,240,"You scored " + str$(Pscore) + "pts!"
   wait key
   sync
   end
endif

sync
LOOP

`--------------------------------
` GOSUBS
`--------------------------------
axis:
`x-line
ink rgb(255,0,0),0
line 15,200,320,200
`y-line
ink rgb(0,255,0),0
line 15,200,15,20
`z-line (X+Y/2)
ink rgb(0,0,255),0
line 15,200,160,55
RETURN

`------

cube:
ink rgb(255,255,255),0
`* FG Square
`Fore Bottom Horizontal
line (Cx+Cz),(Cy-Cz), (Cx+Cz)+Cvx,(Cy-Cz)
`Fore Top Horizontal
line (Cx+Cz),(Cy-Cz)-Cvy, (Cx+Cz)+Cvx,(Cy-Cz)-Cvy
`Fore Left Vert
line (Cx+Cz),(Cy-Cz), (Cx+Cz),(Cy-Cz)-Cvy
`Fore Right Vert
line (Cx+Cz)+Cvx,(Cy-Cz), (Cx+Cz)+Cvx,(Cy-Cz)-Cvy

`* BG Square
`Fore Bottom Horizontal
line (Cx+Cz)+Cvz,(Cy-Cz)-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvz
`Fore Top Horizontal
line (Cx+Cz)+Cvz,(Cy-Cz)-Cvy-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvy-Cvz
`Fore Left Vert
line (Cx+Cz)+Cvz,(Cy-Cz)-Cvz, (Cx+Cz)+Cvz,(Cy-Cz)-Cvy-Cvz
`Fore Right Vert
line (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvy-Cvz

`* Connectors
`LB
line (Cx+Cz),(Cy-Cz), (Cx+Cz)+Cvz,(Cy-Cz)-Cvz
`RB
line (Cx+Cz)+Cvx,(Cy-Cz), (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvz
`LT
line (Cx+Cz),(Cy-Cz)-Cvy, (Cx+Cz)+Cvz,(Cy-Cz)-Cvy-Cvz
`RT
line (Cx+Cz)+Cvx,(Cy-Cz)-Cvy, (Cx+Cz)+Cvx+Cvz,(Cy-Cz)-Cvy-Cvz

`* Y height line (ground up)
ink rgb(0,255,0),0
line (Cx+Cz)+(Cvx/1.6),(Wy1-Cz)-(Cvy/1.6), (Cx+Cz)+(Cvx/1.6),(Cy-Cz)-(Cvy/1.6)
RETURN

`------

player:
if onfire = 0 then ink rgb(0,0,255),0
if onfire = 1 then ink rgb(255,0,0),0
`FG Horizontal
line (Px+Pz),(Py-Pz), (Px+Pz)+Pvx,(Py-Pz)
`BG Horizontal
line (Px+Pz)+Pvz,(Py-Pz)-Pvz, (Px+Pz)+Pvx+Pvz,(Py-Pz)-Pvz
`LB
line (Px+Pz),(Py-Pz), (Px+Pz)+Pvz,(Py-Pz)-Pvz
`RB
line (Px+Pz)+Pvx,(Py-Pz), (Px+Pz)+Pvx+Pvz,(Py-Pz)-Pvz
RETURN

`------

control:
if rightkey() = 1 then inc Px,2
if leftkey() = 1 then dec Px,2
if upkey() = 1 then inc Pz,1
if downkey() = 1 then dec Pz,1
RETURN

`------

bind:
if Cx < Wx1 then Cx = Wx1
if Cx > Wx2 then Cx = Wx2
if Cy > Wy1 then Cy = Wy1
if Cy < Wy2 then Cy = Wy2
if Cz < Wz1 then Cz = Wz1
if Cz > Wz2 then Cz = Wz2

if Px < Wx1 then Px = Wx1
if Px > Wx2 then Px = Wx2
if Pz < Wz1 then Pz = Wz1
if Pz > Wz2 then Pz = Wz2
RETURN

`--------------------------------
`2D CUBE CATCHER!
`--------------------------------

`--------------------------------
` SETUP
`--------------------------------
`world Boundaries
Wx1 = 15 : Wx2 = 320
Wy1 = 200 : Wy2 = 30
Wz1 = 0 : Wz2 = 160

`Cube position
Cx = rnd(Wx2-Wx1)+Wx1
Cy# = Wy2
Cz = rnd(Wz2-Wx1)+Wx1
Cs# = 1

`Cube volume
Cvx = 10
Cvy = 10
Cvz = 5 : `half actual size for simplicity (no need to divide by 2)

`player plain
Px = Wx1
Py = Wy1
Pz = Wz1
`plain volume
Pvx = 16
Pvz = 8

randomize timer()
sTime# = timer() : `start time

`--------------------------------
` MAIN LOOP
`--------------------------------
sync on

DO
cls
gosub Axis
gosub Cube
gosub Player
gosub control
gosub bind

inc Cy#,Cs#
if Cy# >= Wy1
   if ABS( (Px+(pvx/2)) - (Cx+(Cvx/2)) ) < Pvx and ABS( (Pz+(pvz/2)) - (Cz+(Cvz/2)) ) < Pvz
      inc Pscore,1
      inc roll,1
      if roll = 3 then onfire = 1
   else
      roll = 0
      onfire = 0
   endif
   Cx = rnd(Wx2-Wx1)+Wx1
   Cy# = Wy2
   Cz = rnd(Wz2-Wx1)+Wx1
   Cvx = rnd(10)+5 : Cvy = rnd(10)+5 : Cvz = rnd(10)+5
   Cs# = rnd(15)
   Cs# = (Cs# /10)+0.5
else
   if onfire = 0
      if (Pvx-Cvx) <> 0 then dec Pvx,(Pvx-Cvx)/ABS(Pvx-Cvx)
      if (Pvz-Cvz) <> 0 then dec Pvz,(Pvz-Cvz)/ABS(Pvz-Cvz)
   else
      Pvx = 30 : Pvz = 15
   endif
endif

set cursor 20,320
eTime# = 60-(Timer()-sTime#)/1000
print "Time Remaining: "; eTime#
print "Score: "; Pscore
if onfire = 1 then print "YOU'RE ON FIRE!!!"
print Cs#

if eTime# <= 0
   cls
   center text 320,240,"You scored " + str$(Pscore) + "pts!"
   wait key
   sync
   end
endif

sync
LOOP

`--------------------------------
` GOSUBS
`--------------------------------
axis:
`x-line
ink rgb(255,0,0),0
line 15,200,320,200
`y-line
ink rgb(0,255,0),0
line 15,200,15,20
`z-line (X+Y/2)
ink rgb(0,0,255),0
line 15,200,160,55
RETURN

`------

cube:
ink rgb(255,255,255),0
`* FG Square
`Fore Bottom Horizontal
line (Cx+Cz),(Cy#-Cz), (Cx+Cz)+Cvx,(Cy#-Cz)
`Fore Top Horizontal
line (Cx+Cz),(Cy#-Cz)-Cvy, (Cx+Cz)+Cvx,(Cy#-Cz)-Cvy
`Fore Left Vert
line (Cx+Cz),(Cy#-Cz), (Cx+Cz),(Cy#-Cz)-Cvy
`Fore Right Vert
line (Cx+Cz)+Cvx,(Cy#-Cz), (Cx+Cz)+Cvx,(Cy#-Cz)-Cvy

`* BG Square
`Fore Bottom Horizontal
line (Cx+Cz)+Cvz,(Cy#-Cz)-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvz
`Fore Top Horizontal
line (Cx+Cz)+Cvz,(Cy#-Cz)-Cvy-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvy-Cvz
`Fore Left Vert
line (Cx+Cz)+Cvz,(Cy#-Cz)-Cvz, (Cx+Cz)+Cvz,(Cy#-Cz)-Cvy-Cvz
`Fore Right Vert
line (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvy-Cvz

`* Connectors
`LB
line (Cx+Cz),(Cy#-Cz), (Cx+Cz)+Cvz,(Cy#-Cz)-Cvz
`RB
line (Cx+Cz)+Cvx,(Cy#-Cz), (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvz
`LT
line (Cx+Cz),(Cy#-Cz)-Cvy, (Cx+Cz)+Cvz,(Cy#-Cz)-Cvy-Cvz
`RT
line (Cx+Cz)+Cvx,(Cy#-Cz)-Cvy, (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvy-Cvz

`* Y height line (ground up)
ink rgb(0,255,0),0
line (Cx+Cz)+(Cvx/1.6),(Wy1-Cz)-(Cvy/1.6), (Cx+Cz)+(Cvx/1.6),(Cy#-Cz)-(Cvy/1.6)
RETURN

`------

player:
if onfire = 0 then ink rgb(0,0,255),0
if onfire = 1 then ink rgb(255,0,0),0
`FG Horizontal
line (Px+Pz),(Py-Pz), (Px+Pz)+Pvx,(Py-Pz)
`BG Horizontal
line (Px+Pz)+Pvz,(Py-Pz)-Pvz, (Px+Pz)+Pvx+Pvz,(Py-Pz)-Pvz
`LB
line (Px+Pz),(Py-Pz), (Px+Pz)+Pvz,(Py-Pz)-Pvz
`RB
line (Px+Pz)+Pvx,(Py-Pz), (Px+Pz)+Pvx+Pvz,(Py-Pz)-Pvz
RETURN

`------

control:
if rightkey() = 1 then inc Px,2
if leftkey() = 1 then dec Px,2
if upkey() = 1 then inc Pz,1
if downkey() = 1 then dec Pz,1
RETURN

`------

bind:
if Cx < Wx1 then Cx = Wx1
if Cx > Wx2 then Cx = Wx2
if Cy# > Wy1 then Cy# = Wy1
if Cy# < Wy2 then Cy# = Wy2
if Cz < Wz1 then Cz = Wz1
if Cz > Wz2 then Cz = Wz2

if Px < Wx1 then Px = Wx1
if Px > Wx2 then Px = Wx2
if Pz < Wz1 then Pz = Wz1
if Pz > Wz2 then Pz = Wz2
RETURN

Rem DB Classic Programming Challenge Entry
Rem 20 July 2007
Rem TDK_Man's Missile Command V3

Gosub Setup

T1=Timer()
T2=Timer()
Do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()
  Sprite 1,Mx-16,My-16,Sight
  If Mc=1 And MissilesLeft>0 and BulletInFlight = False Then Gosub Fire_Bullet
  If BulletInFlight = True Then Gosub Move_Bullet
  If Released < EnemyMissiles Then Gosub DropMissiles
  If (Timer()-T1) >= EMissileSpeed And Released > 0 Then Gosub MoveEnemyMissiles: T1=Timer()
  If BangsGoing > 0 Then Gosub GrowExplosions
  If (Timer()-T2) >= 50 Then Gosub UpdateScores: T2=Timer()
  Sync
Loop
End


Rem **************************************************************
Rem ***                      Procedures                        ***
Rem **************************************************************

DropMissiles:
  rem If Released < EnemyMissiles
    Rem Not All Missiles Released For This Level
    Rem Cities Are Sprites 101 to 106
    ReleaseOne = Rnd(MissileFrequency): Rem Only release periodically
    If ReleaseOne = 10
      Rem OK To release another so select a target 101 - 106
      TargetLocked=0
      Repeat
        TargetCity = Rnd(5)+1
        If Sprite Exist(TargetCity+100)
          Inc CurrentEnemyMissile: Rem Starts at 0 so first is number 1
          TargetLocked=1
          Inc Released
        Endif
      Until TargetLocked=1: Rem Target Exists
      Rem Missile Start X/Y Position
      EMissilesSlot(CurrentEnemyMissile) = 1: Rem This slot in use
      Rem Missile End X/Y Position
      MX#(CurrentEnemyMissile) = Rnd(640): Rem Enemy Missile X Start Position
      MY#(CurrentEnemyMissile) = 32.0: Rem Enemy Missile Y Start Position
      MEndPointX = Sprite X(TargetCity+100)+16
      MEndPointY = Sprite Y(TargetCity+100)+9
      MXDist# = ABS(MEndPointX-MX#(CurrentEnemyMissile))
      MYDist# = ABS(MEndPointY-MY#(CurrentEnemyMissile))
      Sprite 300+CurrentEnemyMissile,MX#(CurrentEnemyMissile),MY#(CurrentEnemyMissile),EMissile
      XStep#(CurrentEnemyMissile) = (MXDist#/MYDist#): Rem *MissileSpeed#(CurrentEnemyMissile)
      If MX#(CurrentEnemyMissile) > MEndPointX Then XStep#(CurrentEnemyMissile) = 0-XStep#(CurrentEnemyMissile)
    Endif
  rem Endif
Return

MoveEnemyMissiles:
  For N=1 To EnemyMissiles
    If EMissilesSlot(N) = 1: Rem Missile Exists
      MX#(N)=MX#(N)+XStep#(N)
      MY#(N)=MY#(N)+1
      Sprite 300+N,MX#(N),MY#(N),EMissile
      If MY#(N) > 455
        EMissilesSlot(N) = 0: Rem Empty Enemy Missile Slot
        Delete Sprite 300+N: Rem Delete Enemy Missile
      Endif
      CityHit = Sprite Collision(300+N,0)
      If CityHit > 100 and CityHit < 107
        EMissilesSlot(N) = 0: Rem Empty Enemy Missile Slot
        Delete Sprite 300+N: Rem Delete Enemy Missile
        Sprite CityHit+50,Sprite X(CityHit),439,BaseExplosion
        Delete Sprite CityHit: Rem Delete City Sprite
      Endif
    Endif
  Next N
Return

UpdateScores:
  S$=Str$(Score)
  While Len(S$) < 6
    S$="0"+S$
  EndWhile
  If Score > Hiscore then Hiscore=Score
  HS$=Str$(HiScore)
  While Len(HS$) < 6
    HS$="0"+HS$
  EndWhile

  Set Current Bitmap 1
  CLS 0
  Text 10,0,"Score: "+S$
  Text 490,0,"HiScore: "+HS$
  Get Image Menu,0,0,639,31
  Set Current Bitmap 0
  Sprite 500,0,0,Menu
  Set Sprite 500,0,0
Return

Move_Bullet:
  If XDist# > YDist#: Rem X axis is longest distance
    If Left=0
      Sprite 50,X#,BulletPosY#,Missile
      Inc X#,Speed#
      Inc BulletPosY#,Ratio#
      If X# >= EndPointX: Rem Reached Target
        BulletInFlight = False
        Sprite 50,-100,100,Missile: Rem Place off-screen for collision purposes
        Rem Initiate Explosion - Sprites 201 - 210

        For N2=1 To 10: Rem Max number of missiles this level
          If Explosions(N2,0)=0: Rem First Empty Slot
            Explosions(N2,0)=20: Rem Starting Sprite Scale Size
            Explosions(N2,1)=EndPointX-1: Rem initial explosion X position
            Explosions(N2,2)=EndPointY-1: Rem initial explosion Y position
            Sprite 200+N2,Explosions(N2,1)-4,Explosions(N2,2)-4,Explosion
            Scale Sprite 200+N2,Explosions(N2,0)
            Inc BangsGoing
            Exit
          Endif
        Next N2
      Endif
    Else
      Sprite 50,X#,BulletPosY#,Missile
      Inc X#,Speed#
      Inc BulletPosY#,Ratio#
      If X# <= EndPointX: Rem Reached Target
        BulletInFlight = False
        Sprite 50,-100,100,Missile: Rem Place off-screen for collision purposes
        Rem Initiate Explosion - Sprites 201 - 210
        For N2=1 To 10
          If Explosions(N2,0)=0: Rem First Empty Slot
            Explosions(N2,0)=20: Rem Starting Sprite Scale Size
            Explosions(N2,1)=EndPointX-1: Rem initial explosion X position
            Explosions(N2,2)=EndPointY-1: Rem initial explosion Y position
            Sprite 200+N2,Explosions(N2,1)-4,Explosions(N2,2)-4,Explosion
            Scale Sprite 200+N2,Explosions(N2,0)
            Inc BangsGoing
            Exit
          Endif
        Next N2
      Endif
    Endif
  Else: Rem Y axis is longest distance
    Sprite 50,BulletPosX#,Y#,Missile
    Inc Y#,Speed#
    Inc BulletPosX#,Ratio#
    If Y# <= EndPointY: Rem Reached Target
      BulletInFlight = False
      Sprite 50,-100,100,Missile: Rem Place off-screen for collision purposes
      Rem Initiate Explosion - Sprites 201 - 210
      For N2=1 To 10
        If Explosions(N2,0)=0: Rem First Empty Slot
          Explosions(N2,0)=20: Rem Starting Sprite Scale Size
          Explosions(N2,1)=EndPointX-1: Rem initial explosion X position
          Explosions(N2,2)=EndPointY-1: Rem initial explosion Y position
          Sprite 200+N2,Explosions(N2,1)-4,Explosions(N2,2)-4,Explosion
          Scale Sprite 200+N2,Explosions(N2,0)
          Inc BangsGoing
          Exit
        Endif
      Next N2
    Endif
  Endif
Return

Fire_Bullet:
  EndPointX=Mx: EndPointY=My: Speed# = 8.0: Left=0: Up=0
  BulletPosX# = SpritePosX: BulletPosY# = SpritePosY
  XDist# = ABS(EndPointX-SpritePosX)
  YDist# = ABS(EndPointY-SpritePosY)
  Show Sprite 50
  BulletInFlight = True
  If XDist# > YDist#: Rem X axis is longest distance
    Ratio# = (YDist#/XDist#)*Speed#
    If EndPointX<BulletPosX# Then Speed#=0-Speed#: Left=1: Rem Bullet moving left
    If EndPointY<BulletPosY# Then Ratio#=0-Ratio#: Up=1: Rem Bullet moving up
    X# = BulletPosX#: Rem Start X position of bullet
  Else: Rem Y axis is longest distance
    Ratio# = (XDist#/YDist#)*Speed#
    If EndPointX<BulletPosX# Then Ratio#=0-Ratio#: Left=1: Rem Bullet moving left
    If EndPointY<BulletPosY# Then Speed#=0-Speed#: Up=1: Rem Bullet moving up
    Y# = BulletPosY#: Rem Start X position of bullet
  Endif
  Rem Remove a missile from base
  Paste Image MissileBlank,MissileLeftPos(MissilesLeft,0),MissileLeftPos(MissilesLeft,1)
  Dec MissilesLeft
Return

GrowExplosions:
  For M3=1 To MaxMissiles
    If Explosions(M3,0) <> 0
      Rem If not zero then slot being used for explosion
      Explosions(M3,0) = Explosions(M3,0)+2: Rem increase sprite scale value
      Scale Sprite 200+M3,Explosions(M3,0): Rem increase sprite size
      Sprite 200+M3,Explosions(M3,1)-Sprite Width(200+M3)/2,Explosions(M3,2)-Sprite Height(200+M3)/2,Explosion
      Rem Check for Explosion Colliding With Enemy Missile
      MissileHit = Sprite Collision(200+M3,0): Rem object this explosion colliding with
      If MissileHit > 300 And MissileHit <= 340: Rem Enemy Missile Intercepted
        rem EMissiles(MissileHit-300) = 0
        EMissilesSlot(MissileHit-300) = 0
        Delete Sprite MissileHit
        Inc Score,50
        Dec EnemyMissilesLeft
        If EnemyMissilesLeft = 0
          Rem End Of Level
          Gosub RestartLevel
          EndOfLevel=True
        Endif
      Endif
      If Explosions(M3,0) >= 400: Rem Reached max size
        Dec BangsGoing
        Sprite 200+M3,-400,100,Explosion
        Explosions(M3,0) = 0
        Scale Sprite 200+M3,Explosions(M3,0)
      Endif
    Endif
    If EndOfLevel=True Then Exit
  Next M3
Return

RestartLevel:
  Ink RGB(255,0,0),0: Center Text 320,200,"LEVEL COMPLETE!"
  Ink RGB(255,255,255),0: Center Text 318,198,"LEVEL COMPLETE!"
  T=Timer()
  Repeat
   Mx=MouseX(): My=MouseY()
   Sprite 1,Mx-16,My-16,Sight
   Sync
  Until Timer()-T >= 3000

  For N=201 To 220
    If Sprite Exist(N)
      Sprite N,-500,0,Sprite Image(N)
    Endif
  Next N

  For N=101 To 106
    If Sprite Exist(N)
      Sprite N,-500,0,Sprite Image(N)
      Inc Score,100
    Endif
  Next N

  For N=151 To 250
    If Sprite Exist(N)
      Sprite N,-500,0,Sprite Image(N)
    Endif
  Next N

  CLS: Sync
  Rem Set Up Next Screen
  Dec EMissileSpeed,10
  If EMissileSpeed < 0 Then EMissileSpeed = 0
  Inc EnemyMissiles,2
  EnemyMissilesLeft = EnemyMissiles
  Dec MissileFrequency,10
  If MissileFrequency < 50 Then MissileFrequency = 50


  BangsGoing = 0
  Released = 0
  CurrentEnemyMissile = 0
  BulletInFlight = False
  MaxMissiles = 10
  MissilesLeft = MaxMissiles
  EndOfLevel=False

  For N=1 To 10: Rem MaxMissiles
    Explosions(N,0) = 0
    Explosions(N,1) = -200
    Explosions(N,2) = 0
    EMissilesSlot(N) = 0
  Next N

  Inc Level
  Ink RGB(255,0,0),0: Center Text 320,200,"GET READY FOR LEVEL "+Str$(Level)+"..."
  Ink RGB(255,255,255),0: Center Text 318,198,"GET READY FOR LEVEL "+Str$(Level)+"..."

  T=Timer()
  Repeat
   Mx=MouseX(): My=MouseY()
   Sprite 1,Mx-16,My-16,Sight
   Sync
  Until Timer()-T >= 3000

  CLS
  Gosub BuildScreen
  T=Timer()
Return

BuildScreen:
  Rem Player Base
  Paste Image Base,0,SH-42
  Rem Player Cities
  For N=0 To 2
    Sprite N+101,N*64+72,438,City: Rem 101 - 103
  Next N
  For N=0 To 2
    Sprite N+104,N*64+408,438,City
  Next N
  Rem Player Gun
  Paste Image Gun,315,434
  Rem Player Missile
  Sprite 50,318,431,Missile

  Rem Off-Screen Explosion Sprites
  For N=1 To 10
    Explosions(N,0)=0
    Sprite 200+N,-100,100,Explosion
    Scale Sprite 200+N,Explosions(N,0)
  Next N

  Rem Lives Left Icons
  For N=0 To Lives-1
    Paste Image Lives,N*20+3,463
  Next N

  TLX=316: TLY=450: Num=0: Count=1
  For Ny=0 To 3
    For Nx=0 To Num
      Paste Image NumMissiles, Nx*14+TLX,TLY
      MissileLeftPos(Count,0)=Nx*14+TLX
      MissileLeftPos(Count,1)=TLY
      Inc Count
    Next Nx
    Inc Num: Dec TLX,7: Inc TLY,3
  Next Ny
Return

Setup:
  SW=640: SH=480
  Set Display Mode SW,SH,16: Wait 100
  Sync On: Sync Rate 0: CLS 0: Wait 100
  Sync: Wait 100
  Randomize Timer()
  Set Text Font "Comic Sans MS"
  Set Text Size 24
  Set Text Transparent
  Hide Mouse

  Rem Image Numbers
  City = 100
  Base = 101
  Sight = 102
  Gun = 103
  Missile = 104
  EMissile = 105
  Explosion = 106
  Lives = 107
  NumMissiles = 108
  LivesBlank = 109
  MissileBlank = 110
  Menu = 111
  BaseExplosion = 112

  Rem Game Variables
  SpritePosX = 318: SpritePosY = 431
  Lives = 3

  MaxMissiles = 10
  MissilesLeft = MaxMissiles

  MSpeed# = 1.0
  EnemyMissiles = 6
  EnemyMissilesLeft = EnemyMissiles
  MissileFrequency = 50
  EMissileSpeed = 150
  CurrentEnemyMissile = 0
  OldScore = -1
  Score = 0
  Level = 1
  True = 1: False = 0

  Dim Explosions(10,2)
  Dim MissileLeftPos(21,1)
  rem  Dim EMissiles(40)
  Dim EMissilesSlot(40)
  Dim XStep#(20)
  Dim X#(20)
  Dim MLeft(20)
  Dim MX#(20)
  Dim MY#(20)
  Dim MBulletPosX#(20)
  Dim MBulletPosY#(20)

  For N=1 To 20
    X#(N)=MSpeed#
  Next N

  Create Bitmap 1,640,480

  Rem Image For City Sprites
  Ink RGB(45,50,184),0
  For N=0 To 7
    Width = 4
    Top = Rnd(6)*2
    Box N*4,Top,N*4+3,18
  Next N
  Get Image City,0,0,32,18

  Rem Image For Base Sprite
  CLS 0
  Ink RGB(135,183,84),0
  Box 0,SH-24,SW-1,SH-1
  Box 0,SH-42,31,SH-1
  Box SW-32,SH-42,SW-1,SH-1
  Box 320-50,SH-30,320+50,SH-1
  Box 320-34,SH-36,320+34,SH-1
  Box 320-18,SH-42,320+16,SH-1
  Get Image Base,0,SH-42,SW-1,SH-1

  CLS 0
  Get Image 500,0,0,639,31
  Sprite 500,0,0,500

  Rem Image For Gun Sprite
  CLS 0
  Ink RGB(162,64,180),0
  Box 0,0,8,1
  Ink RGB(45,50,184),0
  Box 0,2,8,3
  Get Image Gun,0,0,9,4

  Rem Image For Sight Sprite
  CLS 0
  Ink RGB(155,0,0),0: Circle 16,15,15: Circle 16,16,15
  Ink RGB(155,0,0),0
  Circle 16,15,14: Circle 16,16,14
  Ink RGB(170,0,0),0: Line 2,15,39,15: Line 2,17,39,17
  Line 15,1,15,30: Line 17,1,17,30
  Ink 0,0:  Box 15,15,17,17
  Get Image Sight,0,0,32,32

  Rem Image For Bullet Sprite
  CLS 0
  Ink RGB(255,255,255),0
  Box 0,0,2,2
  Get Image Missile,0,0,3,3

  Rem Image For Enemy Missiles Sprites
  CLS 0
  Ink RGB(255,0,255),0
  Dot 0,0: Dot 3,0: Dot 0,3: Dot 3,3
  Box 1,1,2,2
  Get Image EMissile,0,0,4,4

  Rem Image For Explosion Sprite
  CLS 0
  R=255: G=255: B=0
  For N=1 To 14
    Ink RGB(R,G,B),0
    Circle 16,16,N
    Circle 16,17,N
    Dec G,16
  Next N
  Blur Bitmap 1,1
  Get Image Explosion,0,0,32,32

  Rem Image For Base Explosion Sprite
  CLS 0
  R=255: G=31: B=100
  For N=1 To 14
    Ink RGB(R,G,B),0
    Circle 16,16,N
    Circle 16,17,N
    Inc G,16
  Next N
  Blur Bitmap 1,1
  Get Image BaseExplosion,0,0,32,16

  Rem Image For Lives Indicator 16 x 8
  CLS 0
  Ink RGB(255,0,0),0: Box 0,0,15,7
  Ink RGB(12,12,12),0: Box 1,1,14,6
  Get Image Lives,0,0,16,8
  CLS RGB(135,183,84)
  Get Image LivesBlank,0,0,16,8

  Rem Image For Missiles Left Indicator 7 x 3
  CLS 0
  Ink RGB(12,12,12),0: Box 0,0,6,2
  Ink RGB(255,255,255),0: Box 1,1,5,1
  Get Image NumMissiles,0,0,7,3
  CLS RGB(135,183,84)
  Get Image MissileBlank,0,0,7,3
  Set Current Bitmap 0

  Rem Now Build Scene On Main Screen...
  Gosub BuildScreen
  Ink RGB(255,255,255),0
Return

Rem DB Classic Programming Challenge Entry
Rem 20 July 2007
Rem TDK_Man's Missile Command V4

Gosub Setup

T1=Timer()
T2=Timer()
Do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()
  Sprite 1,Mx-16,My-16,Sight
  If Mc=1 And MissilesLeft>0 and BulletInFlight = False Then Gosub Fire_Bullet
  If BulletInFlight = True Then Gosub Move_Bullet
  If Released < EnemyMissiles Then Gosub DropMissiles
  If (Timer()-T1) >= EMissileSpeed And Released > 0 Then Gosub MoveEnemyMissiles: T1=Timer()
  If BangsGoing > 0 Then Gosub GrowExplosions
  If (Timer()-T2) >= 50 Then Gosub UpdateScores: T2=Timer()
  Sync
Loop
End


Rem **************************************************************
Rem ***                      Procedures                        ***
Rem **************************************************************

DropMissiles:
  rem If Released < EnemyMissiles
    Rem Not All Missiles Released For This Level
    Rem Cities Are Sprites 101 to 106
    ReleaseOne = Rnd(MissileFrequency): Rem Only release periodically
    If ReleaseOne = 10
      Rem OK To release another so select a target 101 - 106
      TargetLocked=0
      Repeat
        TargetCity = Rnd(5)+1
        If Sprite Exist(TargetCity+100)
          Inc CurrentEnemyMissile: Rem Starts at 0 so first is number 1
          TargetLocked=1
          Inc Released
        Endif
      Until TargetLocked=1: Rem Target Exists
      Rem Missile Start X/Y Position
      EMissilesSlot(CurrentEnemyMissile) = 1: Rem This slot in use
      Rem Missile End X/Y Position
      MX#(CurrentEnemyMissile) = Rnd(640): Rem Enemy Missile X Start Position
      MY#(CurrentEnemyMissile) = 32.0: Rem Enemy Missile Y Start Position
      MEndPointX = Sprite X(TargetCity+100)+16
      MEndPointY = Sprite Y(TargetCity+100)+9
      MXDist# = ABS(MEndPointX-MX#(CurrentEnemyMissile))
      MYDist# = ABS(MEndPointY-MY#(CurrentEnemyMissile))
      Sprite 300+CurrentEnemyMissile,MX#(CurrentEnemyMissile),MY#(CurrentEnemyMissile),EMissile
      XStep#(CurrentEnemyMissile) = (MXDist#/MYDist#): Rem *MissileSpeed#(CurrentEnemyMissile)
      If MX#(CurrentEnemyMissile) > MEndPointX Then XStep#(CurrentEnemyMissile) = 0-XStep#(CurrentEnemyMissile)
    Endif
  rem Endif
Return

MoveEnemyMissiles:
  For N=1 To EnemyMissiles
    If EMissilesSlot(N) = 1: Rem Missile Exists
      MX#(N)=MX#(N)+XStep#(N)
      MY#(N)=MY#(N)+1
      Sprite 300+N,MX#(N),MY#(N),EMissile
      If MY#(N) > 455
        EMissilesSlot(N) = 0: Rem Empty Enemy Missile Slot
        Delete Sprite 300+N: Rem Delete Enemy Missile
      Endif
      CityHit = Sprite Collision(300+N,0)
      If CityHit > 100 and CityHit < 107
        EMissilesSlot(N) = 0: Rem Empty Enemy Missile Slot
        Delete Sprite 300+N: Rem Delete Enemy Missile
        Sprite CityHit+50,Sprite X(CityHit),439,BaseExplosion
        Delete Sprite CityHit: Rem Delete City Sprite
      Endif
    Endif
  Next N
Return

UpdateScores:
  S$=Str$(Score)
  While Len(S$) < 6
    S$="0"+S$
  EndWhile
  If Score > Hiscore then Hiscore=Score
  HS$=Str$(HiScore)
  While Len(HS$) < 6
    HS$="0"+HS$
  EndWhile
  Set Current Bitmap 1
  CLS 0
  Text 10,0,"Score: "+S$
  Center Text 320,0,"Incoming: "+Str$(EnemyMissilesLeft)
  Text 490,0,"HiScore: "+HS$
  Get Image Menu,0,0,639,31
  Set Current Bitmap 0
  Sprite 500,0,0,Menu
  Set Sprite 500,0,0
Return

Move_Bullet:
  If XDist# > YDist#: Rem X axis is longest distance
    If Left=0
      Sprite 50,X#,BulletPosY#,Missile
      Inc X#,Speed#
      Inc BulletPosY#,Ratio#
      If X# >= EndPointX: Rem Reached Target
        BulletInFlight = False
        Sprite 50,-100,100,Missile: Rem Place off-screen for collision purposes
        Rem Initiate Explosion - Sprites 201 - 210
        NewOneStarted=False
        For N2=1 To 10: Rem Max number of missiles this level
          If Explosions(N2,0)=0: Rem First Empty Slot
            Explosions(N2,0)=20: Rem Starting Sprite Scale Size
            Explosions(N2,1)=EndPointX-1: Rem initial explosion X position
            Explosions(N2,2)=EndPointY-1: Rem initial explosion Y position
            Sprite 200+N2,Explosions(N2,1)-4,Explosions(N2,2)-4,Explosion
            Scale Sprite 200+N2,Explosions(N2,0)
            Inc BangsGoing
            NewOneStarted=True
          Endif
          If NewOneStarted=True Then Exit
        Next N2
      Endif
    Else
      Sprite 50,X#,BulletPosY#,Missile
      Inc X#,Speed#
      Inc BulletPosY#,Ratio#
      If X# <= EndPointX: Rem Reached Target
        BulletInFlight = False
        Sprite 50,-100,100,Missile: Rem Place off-screen for collision purposes
        Rem Initiate Explosion - Sprites 201 - 210
        NewOneStarted=False
        For N2=1 To 10
          If Explosions(N2,0) = 0: Rem First Empty Slot
            Explosions(N2,0) = 20: Rem Starting Sprite Scale Size
            Explosions(N2,1) = EndPointX-1: Rem initial explosion X position
            Explosions(N2,2) = EndPointY-1: Rem initial explosion Y position
            Sprite 200+N2,Explosions(N2,1)-4,Explosions(N2,2)-4,Explosion
            Scale Sprite 200+N2,Explosions(N2,0)
            Inc BangsGoing
            NewOneStarted=True
          Endif
          If NewOneStarted=True Then Exit
        Next N2
      Endif
    Endif
  Else: Rem Y axis is longest distance
    Sprite 50,BulletPosX#,Y#,Missile
    Inc Y#,Speed#
    Inc BulletPosX#,Ratio#
    If Y# <= EndPointY: Rem Reached Target
      BulletInFlight = False
      Sprite 50,-100,100,Missile: Rem Place off-screen for collision purposes
      Rem Initiate Explosion - Sprites 201 - 210
      NewOneStarted=False
      For N2=1 To 10
        If Explosions(N2,0)=0: Rem First Empty Slot
          Explosions(N2,0)=20: Rem Starting Sprite Scale Size
          Explosions(N2,1)=EndPointX-1: Rem initial explosion X position
          Explosions(N2,2)=EndPointY-1: Rem initial explosion Y position
          Sprite 200+N2,Explosions(N2,1)-4,Explosions(N2,2)-4,Explosion
          Scale Sprite 200+N2,Explosions(N2,0)
          Inc BangsGoing
          NewOneStarted=True
        Endif
        If NewOneStarted=True Then Exit
      Next N2
    Endif
  Endif
Return

Fire_Bullet:
  EndPointX=Mx: EndPointY=My: Speed# = 8.0: Left=0: Up=0
  BulletPosX# = SpritePosX: BulletPosY# = SpritePosY
  XDist# = ABS(EndPointX-SpritePosX)
  YDist# = ABS(EndPointY-SpritePosY)
  Show Sprite 50
  BulletInFlight = True
  If XDist# > YDist#: Rem X axis is longest distance
    Ratio# = (YDist#/XDist#)*Speed#
    If EndPointX<BulletPosX# Then Speed#=0-Speed#: Left=1: Rem Bullet moving left
    If EndPointY<BulletPosY# Then Ratio#=0-Ratio#: Up=1: Rem Bullet moving up
    X# = BulletPosX#: Rem Start X position of bullet
  Else: Rem Y axis is longest distance
    Ratio# = (XDist#/YDist#)*Speed#
    If EndPointX<BulletPosX# Then Ratio#=0-Ratio#: Left=1: Rem Bullet moving left
    If EndPointY<BulletPosY# Then Speed#=0-Speed#: Up=1: Rem Bullet moving up
    Y# = BulletPosY#: Rem Start X position of bullet
  Endif
  Rem Remove a missile from base
  Paste Image MissileBlank,MissileLeftPos(MissilesLeft,0),MissileLeftPos(MissilesLeft,1)
  Dec MissilesLeft
Return

GrowExplosions:
  For M3=1 To MaxMissiles
    If Explosions(M3,0) <> 0
      Rem If not zero then slot being used for explosion
      Explosions(M3,0) = Explosions(M3,0)+2: Rem increase sprite scale value
      Scale Sprite 200+M3,Explosions(M3,0): Rem increase sprite size
      Sprite 200+M3,Explosions(M3,1)-Sprite Width(200+M3)/2,Explosions(M3,2)-Sprite Height(200+M3)/2,Explosion
      Rem Check for Explosion Colliding With Enemy Missile
      MissileHit = Sprite Collision(200+M3,0): Rem object this explosion colliding with
      If MissileHit > 300 And MissileHit <= 340: Rem Enemy Missile Intercepted
        EMissilesSlot(MissileHit-300) = 0
        Delete Sprite MissileHit
        Inc Score,50
        Dec EnemyMissilesLeft
        If EnemyMissilesLeft = 0
          Rem End Of Level
          Gosub UpdateScores
          Gosub RestartLevel
          EndOfLevel=True
        Endif
      Endif
      If Explosions(M3,0) >= 400: Rem Reached max size
        Dec BangsGoing
        Sprite 200+M3,-400,100,Explosion
        Explosions(M3,0) = 0
        Scale Sprite 200+M3,Explosions(M3,0)
      Endif
    Endif
  Next M3
Return

RestartLevel:
  Ink RGB(255,0,0),0: Center Text 320,200,"LEVEL COMPLETE!"
  Ink RGB(255,255,255),0: Center Text 318,198,"LEVEL COMPLETE!"
  T=Timer()
  Repeat
   Mx=MouseX(): My=MouseY()
   Sprite 1,Mx-16,My-16,Sight
   Sync
  Until Timer()-T >= 3000

  For N=201 To 220
    If Sprite Exist(N)
      Sprite N,-500,0,Sprite Image(N)
    Endif
  Next N

  For N=101 To 106
    If Sprite Exist(N)
      Sprite N,-500,0,Sprite Image(N)
      Inc Score,100
      Gosub UpdateScores
      Wait 1000
    Endif
  Next N

  For N=151 To 250
    If Sprite Exist(N)
      Sprite N,-500,0,Sprite Image(N)
    Endif
  Next N

  CLS: Sync
  Rem Set Up Next Screen
  Dec EMissileSpeed,10
  If EMissileSpeed < 0 Then EMissileSpeed = 0
  Inc EnemyMissiles,2
  If EnemyMissiles > 40 Then EnemyMissiles = 40
  EnemyMissilesLeft = EnemyMissiles
  Dec MissileFrequency,10
  If MissileFrequency < 50 Then MissileFrequency = 50

  BangsGoing = 0
  Released = 0
  CurrentEnemyMissile = 0
  BulletInFlight = False
  MaxMissiles = 10
  MissilesLeft = MaxMissiles
  EndOfLevel=False

  For N=1 To 10: Rem MaxMissiles
    Explosions(N,0) = 0
    Explosions(N,1) = -200
    Explosions(N,2) = 0
    EMissilesSlot(N) = 0
  Next N

  Inc Level
  Ink RGB(255,0,0),0: Center Text 320,200,"GET READY FOR LEVEL "+Str$(Level)+"..."
  Ink RGB(255,255,255),0: Center Text 318,198,"GET READY FOR LEVEL "+Str$(Level)+"..."

  T=Timer()
  Repeat
   Mx=MouseX(): My=MouseY()
   Sprite 1,Mx-16,My-16,Sight
   Sync
  Until Timer()-T >= 3000

  CLS
  Gosub BuildScreen
  T=Timer()
Return

BuildScreen:
  Rem Player Base
  Paste Image Base,0,SH-42
  Rem Player Cities
  For N=0 To 2
    Sprite N+101,N*64+72,438,City: Rem 101 - 103
  Next N
  For N=0 To 2
    Sprite N+104,N*64+408,438,City
  Next N
  Rem Player Gun
  Paste Image Gun,315,434
  Rem Player Missile
  Sprite 50,318,431,Missile

  Rem Off-Screen Explosion Sprites
  For N=1 To 10
    Explosions(N,0)=0
    Sprite 200+N,-100,100,Explosion
    Scale Sprite 200+N,Explosions(N,0)
  Next N

  Rem Lives Left Icons
  For N=0 To Lives-1
    Paste Image Lives,N*20+3,463
  Next N

  TLX=316: TLY=450: Num=0: Count=1
  For Ny=0 To 3
    For Nx=0 To Num
      Paste Image NumMissiles, Nx*14+TLX,TLY
      MissileLeftPos(Count,0)=Nx*14+TLX
      MissileLeftPos(Count,1)=TLY
      Inc Count
    Next Nx
    Inc Num: Dec TLX,7: Inc TLY,3
  Next Ny
Return

Setup:
  SW=640: SH=480
  Set Display Mode SW,SH,16: Wait 100
  Sync On: Sync Rate 0: CLS 0: Wait 100
  Sync: Wait 100
  Randomize Timer()
  Set Text Font "Comic Sans MS"
  Set Text Size 24
  Set Text Transparent
  Hide Mouse

  Rem Image Numbers
  City = 100
  Base = 101
  Sight = 102
  Gun = 103
  Missile = 104
  EMissile = 105
  Explosion = 106
  Lives = 107
  NumMissiles = 108
  LivesBlank = 109
  MissileBlank = 110
  Menu = 111
  BaseExplosion = 112

  Rem Game Variables
  SpritePosX = 318: SpritePosY = 431
  Lives = 3

  MaxMissiles = 10
  MissilesLeft = MaxMissiles

  MSpeed# = 1.0
  EnemyMissiles = 6
  EnemyMissilesLeft = EnemyMissiles
  MissileFrequency = 50
  EMissileSpeed = 150
  CurrentEnemyMissile = 0
  OldScore = -1
  Score = 0
  Level = 1
  True = 1: False = 0

  Dim Explosions(10,2)
  Dim MissileLeftPos(21,1)
  Dim EMissilesSlot(60)
  Dim XStep#(60)
  Dim X#(60)
  Dim MLeft(60)
  Dim MX#(60)
  Dim MY#(60)
  Dim MBulletPosX#(60)
  Dim MBulletPosY#(60)
  Dim CityBlock(7)

  Create Bitmap 1,640,480

  Rem Image For City Sprites
  For N=0 To 7
    CityBlock(N)=Rnd(3)*3
  Next N
  Width = 4
  Ink RGB(45,50,184),0
  For N=0 To 7
    Ink RGB(45,150,184),0
    Box N*4,CityBlock(N),N*4+3,18
    Ink RGB(65,80,204),0
    Box N*4+1,CityBlock(N)+1,N*4+2,17
  Next N
  Get Image City,0,0,32,18

  Rem Image For Base Sprite
  CLS 0
  Ink RGB(135,183,84),0
  Box 0,SH-24,SW-1,SH-1
  Box 0,SH-42,31,SH-1
  Box SW-32,SH-42,SW-1,SH-1
  Box 320-50,SH-30,320+50,SH-1
  Box 320-34,SH-36,320+34,SH-1
  Box 320-18,SH-42,320+16,SH-1
  Get Image Base,0,SH-42,SW-1,SH-1

  CLS 0
  Get Image 500,0,0,639,31
  Sprite 500,0,0,500

  Rem Image For Gun Sprite
  CLS 0
  Ink RGB(162,64,180),0
  Box 0,0,8,1
  Ink RGB(45,50,184),0
  Box 0,2,8,3
  Get Image Gun,0,0,9,4

  Rem Image For Sight Sprite
  CLS 0
  Ink RGB(155,0,0),0: Circle 16,15,15: Circle 16,16,15
  Ink RGB(155,0,0),0
  Circle 16,15,14: Circle 16,16,14
  Ink RGB(170,0,0),0: Line 2,15,39,15: Line 2,17,39,17
  Line 15,1,15,30: Line 17,1,17,30
  Ink 0,0:  Box 15,15,17,17
  Get Image Sight,0,0,32,32

  Rem Image For Bullet Sprite
  CLS 0
  Ink RGB(255,255,255),0
  Box 0,0,2,2
  Get Image Missile,0,0,3,3

  Rem Image For Enemy Missiles Sprites
  CLS 0
  Ink RGB(255,0,255),0
  Dot 0,0: Dot 3,0: Dot 0,3: Dot 3,3
  Box 1,1,2,2
  Get Image EMissile,0,0,4,4

  Rem Image For Explosion Sprite
  CLS 0
  R=255: G=255: B=0
  For N=1 To 14
    Ink RGB(R,G,B),0
    Circle 16,16,N
    Circle 16,17,N
    Dec G,16
  Next N
  Blur Bitmap 1,1
  Get Image Explosion,0,0,32,32

  Rem Image For Base Explosion Sprite
  CLS 0
  R=255: G=31: B=100
  For N=1 To 14
    Ink RGB(R,G,B),0
    Circle 16,16,N
    Circle 16,17,N
    Inc G,16
  Next N
  Blur Bitmap 1,1
  Get Image BaseExplosion,0,0,32,16

  Rem Image For Lives Indicator 16 x 8
  CLS 0
  Ink RGB(255,0,0),0: Box 0,0,15,7
  Ink RGB(12,12,12),0: Box 1,1,14,6
  Get Image Lives,0,0,16,8
  CLS RGB(135,183,84)
  Get Image LivesBlank,0,0,16,8

  Rem Image For Missiles Left Indicator 7 x 3
  CLS 0
  Ink RGB(12,12,12),0: Box 0,0,6,2
  Ink RGB(255,255,255),0: Box 1,1,5,1
  Get Image NumMissiles,0,0,7,3
  CLS RGB(135,183,84)
  Get Image MissileBlank,0,0,7,3
  Set Current Bitmap 0

  Rem Now Build Scene On Main Screen...
  Gosub BuildScreen
  Ink RGB(255,255,255),0
Return

`--------------------------------
`2D CUBE CATCHER!
`--------------------------------

`--------------------------------
` SETUP
`--------------------------------
randomize timer()
hide mouse

`world Boundaries
Wx1 = 15 : Wx2 = 320
Wy1 = 200 : Wy2 = 30
Wz1 = 0 : Wz2 = 160

`Cube position
Cx = rnd(Wx2-Wx1)+Wx1
Cy# = Wy2
Cz = rnd(Wz2-Wx1)+Wx1
Cs# = 1

`Cube volume
Cvx = 10
Cvy = 10
Cvz = 5 : `half actual size for simplicity (no need to divide by 2)

`player plain
Px = Wx1
Py = Wy1
Pz = Wz1
`plain volume
Pvx = 0
Pvz = 0

sTime# = timer() : `start time

`--------------------------------
` MAIN LOOP
`--------------------------------
sync on

DO
cls
gosub Axis
gosub Cube
gosub Player
gosub control
gosub bind

inc Cy#,Cs#
if Cy# >= Wy1
   if ABS( (Px+(pvx/2)) - (Cx+(Cvx/2)) ) < Pvx and ABS( (Pz+(pvz/2)) - (Cz+(Cvz/2)) ) < Pvz
      inc Pscore,1
      inc roll,1
      if roll = 3 then onfire = 1
   else
      roll = 0
      onfire = 0
   endif
   Cx = rnd(Wx2-Wx1)+Wx1
   Cy# = Wy2
   Cz = rnd(Wz2-Wx1)+Wx1
   Cvx = rnd(10)+5 : Cvy = rnd(10)+5 : Cvz = rnd(10)+5
   Cs# = rnd(15)
   Cs# = (Cs# /10)+0.5
else
   if onfire = 0
      if (Pvx-Cvx) <> 0 then dec Pvx,(Pvx-Cvx)/ABS(Pvx-Cvx)
      if (Pvz-Cvz) <> 0 then dec Pvz,(Pvz-Cvz)/ABS(Pvz-Cvz)
   else
      Pvx = 30 : Pvz = 15
   endif
endif

set cursor 20,320
eTime# = 60-(Timer()-sTime#)/1000
print "Time Remaining: "; eTime#
print "Score: "; Pscore
if onfire = 1 then print "YOU'RE ON FIRE!!!"
print Cs#

if eTime# <= 0
   cls
   center text 320,240,"You scored " + str$(Pscore) + "pts!"
   wait key
   sync
   end
endif

sync
LOOP

`--------------------------------
` GOSUBS
`--------------------------------
axis:
`x-line
ink rgb(255,0,0),0
line 15,200,320,200
`y-line
ink rgb(0,255,0),0
line 15,200,15,20
`z-line (X+Y/2)
ink rgb(0,0,255),0
line 15,200,160,55
RETURN

`------

cube:
ink rgb(255,255,255),0
`* FG Square
`Fore Bottom Horizontal
line (Cx+Cz),(Cy#-Cz), (Cx+Cz)+Cvx,(Cy#-Cz)
`Fore Top Horizontal
line (Cx+Cz),(Cy#-Cz)-Cvy, (Cx+Cz)+Cvx,(Cy#-Cz)-Cvy
`Fore Left Vert
line (Cx+Cz),(Cy#-Cz), (Cx+Cz),(Cy#-Cz)-Cvy
`Fore Right Vert
line (Cx+Cz)+Cvx,(Cy#-Cz), (Cx+Cz)+Cvx,(Cy#-Cz)-Cvy

`* BG Square
`Fore Bottom Horizontal
line (Cx+Cz)+Cvz,(Cy#-Cz)-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvz
`Fore Top Horizontal
line (Cx+Cz)+Cvz,(Cy#-Cz)-Cvy-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvy-Cvz
`Fore Left Vert
line (Cx+Cz)+Cvz,(Cy#-Cz)-Cvz, (Cx+Cz)+Cvz,(Cy#-Cz)-Cvy-Cvz
`Fore Right Vert
line (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvy-Cvz

`* Connectors
`LB
line (Cx+Cz),(Cy#-Cz), (Cx+Cz)+Cvz,(Cy#-Cz)-Cvz
`RB
line (Cx+Cz)+Cvx,(Cy#-Cz), (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvz
`LT
line (Cx+Cz),(Cy#-Cz)-Cvy, (Cx+Cz)+Cvz,(Cy#-Cz)-Cvy-Cvz
`RT
line (Cx+Cz)+Cvx,(Cy#-Cz)-Cvy, (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvy-Cvz

`* Y height line (ground up)
ink rgb(0,255,0),0
line (Cx+Cz)+(Cvx/1.6)+(Cvz/2),(Wy1-Cz)-(Cvy/1.6), (Cx+Cz)+(Cvx/1.6)+(Cvz/2),(Cy#-Cz)-(Cvy/1.6)
RETURN

`------

player:
if onfire = 0 then ink rgb(0,0,255),0
if onfire = 1 then ink rgb(255,0,0),0
`FG Horizontal
line (Px+Pz),(Py-Pz), (Px+Pz)+Pvx,(Py-Pz)
`BG Horizontal
line (Px+Pz)+Pvz,(Py-Pz)-Pvz, (Px+Pz)+Pvx+Pvz,(Py-Pz)-Pvz
`LB
line (Px+Pz),(Py-Pz), (Px+Pz)+Pvz,(Py-Pz)-Pvz
`RB
line (Px+Pz)+Pvx,(Py-Pz), (Px+Pz)+Pvx+Pvz,(Py-Pz)-Pvz
RETURN

`------

control:
if rightkey() = 1 then inc Px,2
if leftkey() = 1 then dec Px,2
if upkey() = 1 then inc Pz,1
if downkey() = 1 then dec Pz,1
RETURN

`------

bind:
if Cx < Wx1 then Cx = Wx1
if Cx > Wx2 then Cx = Wx2
if Cy# > Wy1 then Cy# = Wy1
if Cy# < Wy2 then Cy# = Wy2
if Cz < Wz1 then Cz = Wz1
if Cz > Wz2 then Cz = Wz2

if Px < Wx1 then Px = Wx1
if Px > Wx2 then Px = Wx2
if Pz < Wz1 then Pz = Wz1
if Pz > Wz2 then Pz = Wz2
RETURN

 Comrade Robski - Virus Attack 

 Obese87 - Jack & the Beanstalk and Ninja999 - Dark Shooter 

 Ninja999 - Dark Shooter 

`--------------------------------
`2D CUBE CATCHER!
`--------------------------------

`--------------------------------
` SETUP
`--------------------------------
randomize timer()
hide mouse

`world Boundaries
Wx1 = 15 : Wx2 = 320
Wy1 = 200 : Wy2 = 30
Wz1 = 0 : Wz2 = 160

`Cube position
Cx = rnd(Wx2-Wx1)+Wx1
Cy# = Wy2
Cz = rnd(Wz2-Wx1)+Wx1
Cs# = 1

`Cube volume
Cvx = 10
Cvy = 10
Cvz = 5 : `half actual size for simplicity (no need to divide by 2)

`player plain
Px = Wx1
Py = Wy1
Pz = Wz1
`plain volume
Pvx = 0
Pvz = 0

sTime# = timer() : `start time

`--------------------------------
` MAIN LOOP
`--------------------------------
sync on

DO
cls
gosub Axis
gosub Cube
gosub Player
gosub control
gosub cube_fall
gosub bind
gosub HUD
`if keystate(25) = 1 then gosub pause

sync
LOOP

`--------------------------------
` GOSUBS
`--------------------------------
axis:
`x-line
ink rgb(255,0,0),0
line 15,200,320,200
`y-line
ink rgb(0,255,0),0
line 15,200,15,20
`z-line (X+Y/2)
ink rgb(0,0,255),0
line 15,200,160,55
RETURN

`------

cube:
`Colour the cube to plain position
if Cy# < Wy1-5
   ink rgb(255,255,255),0
else
   if ABS( (Px+(pvx/2)) - (Cx+(Cvx/2)) ) < Pvx and ABS( (Pz+(pvz/2)) - (Cz+(Cvz/2)) ) < Pvz
      ink rgb(0,255,0),0
   else
      ink rgb(255,0,0),0
   endif
endif

`* FG Square
`Fore Bottom Horizontal
line (Cx+Cz),(Cy#-Cz), (Cx+Cz)+Cvx,(Cy#-Cz)
`Fore Top Horizontal
line (Cx+Cz),(Cy#-Cz)-Cvy, (Cx+Cz)+Cvx,(Cy#-Cz)-Cvy
`Fore Left Vert
line (Cx+Cz),(Cy#-Cz), (Cx+Cz),(Cy#-Cz)-Cvy
`Fore Right Vert
line (Cx+Cz)+Cvx,(Cy#-Cz), (Cx+Cz)+Cvx,(Cy#-Cz)-Cvy

`* BG Square
`Fore Bottom Horizontal
line (Cx+Cz)+Cvz,(Cy#-Cz)-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvz
`Fore Top Horizontal
line (Cx+Cz)+Cvz,(Cy#-Cz)-Cvy-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvy-Cvz
`Fore Left Vert
line (Cx+Cz)+Cvz,(Cy#-Cz)-Cvz, (Cx+Cz)+Cvz,(Cy#-Cz)-Cvy-Cvz
`Fore Right Vert
line (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvz, (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvy-Cvz

`* Connectors
`LB
line (Cx+Cz),(Cy#-Cz), (Cx+Cz)+Cvz,(Cy#-Cz)-Cvz
`RB
line (Cx+Cz)+Cvx,(Cy#-Cz), (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvz
`LT
line (Cx+Cz),(Cy#-Cz)-Cvy, (Cx+Cz)+Cvz,(Cy#-Cz)-Cvy-Cvz
`RT
line (Cx+Cz)+Cvx,(Cy#-Cz)-Cvy, (Cx+Cz)+Cvx+Cvz,(Cy#-Cz)-Cvy-Cvz

`* Y height line (ground up)
ink rgb(0,255,0),0
line (Cx+Cz)+(Cvx/1.6)+(Cvz/2),(Wy1-Cz)-(Cvy/1.6), (Cx+Cz)+(Cvx/1.6)+(Cvz/2),(Cy#-Cz)-(Cvy/1.6)
RETURN

`------

player:
if onfire = 0 then ink rgb(0,0,255),0
if onfire = 1 then ink rgb(255,0,0),0
`FG Horizontal
line (Px+Pz),(Py-Pz), (Px+Pz)+Pvx,(Py-Pz)
`BG Horizontal
line (Px+Pz)+Pvz,(Py-Pz)-Pvz, (Px+Pz)+Pvx+Pvz,(Py-Pz)-Pvz
`LB
line (Px+Pz),(Py-Pz), (Px+Pz)+Pvz,(Py-Pz)-Pvz
`RB
line (Px+Pz)+Pvx,(Py-Pz), (Px+Pz)+Pvx+Pvz,(Py-Pz)-Pvz
RETURN

`------

control:
if rightkey() = 1 then inc Px,2
if leftkey() = 1 then dec Px,2
if upkey() = 1 then inc Pz,1
if downkey() = 1 then dec Pz,1
RETURN

`------

cube_fall:
inc Cy#,Cs#
if Cy# >= Wy1
   if ABS( (Px+(pvx/2)) - (Cx+(Cvx/2)) ) < Pvx and ABS( (Pz+(pvz/2)) - (Cz+(Cvz/2)) ) < Pvz
      inc Pscore,1
      inc roll,1
      if roll = 3 then onfire = 1
   else
      roll = 0
      onfire = 0
   endif
   Cx = rnd(Wx2-Wx1)+Wx1
   Cy# = Wy2
   Cz = rnd(Wz2-Wx1)+Wx1
   Cvx = rnd(10)+5 : Cvy = rnd(10)+5 : Cvz = rnd(10)+5
   Cs# = rnd(15)
   Cs# = (Cs# /10)+0.5
else
   if onfire = 0
      if (Pvx-Cvx) <> 0 then dec Pvx,(Pvx-Cvx)/ABS(Pvx-Cvx)
      if (Pvz-Cvz) <> 0 then dec Pvz,(Pvz-Cvz)/ABS(Pvz-Cvz)
   else
      Pvx = 30 : Pvz = 15
   endif
endif
RETURN

`------

bind:
if Cx < Wx1 then Cx = Wx1
if Cx > Wx2 then Cx = Wx2
if Cy# > Wy1 then Cy# = Wy1
if Cy# < Wy2 then Cy# = Wy2
if Cz < Wz1 then Cz = Wz1
if Cz > Wz2 then Cz = Wz2

if Px < Wx1 then Px = Wx1
if Px > Wx2 then Px = Wx2
if Pz < Wz1 then Pz = Wz1
if Pz > Wz2 then Pz = Wz2
RETURN

`------

HUD:
set cursor 20,320
rTime# = 60-(Timer()-sTime#)/1000
print "Time Remaining: "; rTime#
print "Score: "; Pscore
if onfire = 1 then print "YOU'RE ON FIRE!!!"
print "Cube Speed: "; Cs#

if rTime# <= 0
   cls
   center text 320,240,"You scored " + str$(Pscore) + "pts!"
   wait key
   sync
   end
endif
RETURN

`------
remstart
pause:
cls
center text 320,0,"PAUSED"
center text 320,50,"You have scored " + str$(Pscore) + "pts and have " + str$(rTime#) + " remaining."
center text 320,70,"PRESS P TO RESUME THE GAME"
sync
repeat : until
RETURN

`------


If keystate(25) = 1 and trip=0
   trip = 1
   tswitch = 1
endif
If keystate(25) = 0 then trip=0 : tswitch = 0
remend

`--------------------------------
`2D CUBE CATCHER!
`--------------------------------

`--------------------------------
` SETUP
`--------------------------------
randomize timer()
hide mouse

`world Boundaries
Wx1 = 15 : Wx2 = 320
Wy1 = 200 : Wy2 = 30
Wz1 = 0 : Wz2 = 160
`perspective
Vx# = 0.5 : Vy# = 1-Vx#

`Cube position
Cx = rnd(Wx2-Wx1)+Wx1
Cy# = Wy2
Cz = rnd(Wz2-Wx1)+Wx1
Cs# = 1

`Cube volume
Cvx = 10
Cvy = 10
Cvz = 10

`player plain
Px = Wx1
Py = Wy1
Pz = Wz1
`plain volume
Pvx = 0
Pvz = 0

sTime# = timer() : `start time

`--------------------------------
` MAIN LOOP
`--------------------------------
sync on

DO
cls
gosub Axis
gosub Cube
gosub Player
gosub control
gosub cube_fall
gosub bind
gosub HUD

sync
LOOP

`--------------------------------
` GOSUBS
`--------------------------------
axis:
`x-line
ink rgb(255,0,0),0
line 15,200,320,200
`y-line
ink rgb(0,255,0),0
line 15,200,15,20
`z-line (X+Y/2)
ink rgb(0,0,255),0
line 15,200,15+(145*Vx#),200-(145*Vy#)
RETURN

`------

cube:
`Colour the cube to plain position
if Cy# < Wy1-5
   ink rgb(255,255,255),0
else
   if ABS( (Px+(pvx/2)) - (Cx+(Cvx/2)) ) < Pvx and ABS( (Pz+(pvz/2)) - (Cz+(Cvz/2)) ) < Pvz
      ink rgb(0,255,0),0
   else
      ink rgb(255,0,0),0
   endif
endif

`* FG Square
`Fore Bottom Horizontal
line (Cx+(Vx#*Cz)),(Cy#-(Vy#*Cz)), (Cx+(Vx#*Cz))+Cvx,(Cy#-(Vy#*Cz))
`Fore Top Horizontal
line (Cx+(Vx#*Cz)),(Cy#-(Vy#*Cz))-Cvy, (Cx+(Vx#*Cz))+Cvx,(Cy#-(Vy#*Cz))-Cvy
`Fore Left Vert
line (Cx+(Vx#*Cz)),(Cy#-(Vy#*Cz)), (Cx+(Vx#*Cz)),(Cy#-(Vy#*Cz))-Cvy
`Fore Right Vert
line (Cx+(Vx#*Cz))+Cvx,(Cy#-(Vy#*Cz)), (Cx+(Vx#*Cz))+Cvx,(Cy#-(Vy#*Cz))-Cvy

`* BG Square
`Fore Bottom Horizontal
line (Cx+(Vx#*Cz))+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Vy#*Cvz), (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Vy#*Cvz)
`Fore Top Horizontal
line (Cx+(Vx#*Cz))+(Vx#*Cvz),(Cy#-(Vy#*Cz))-Cvy-(Vy#*Cvz), (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Cy#-(Vy#*Cz))-Cvy-(Vy#*Cvz)
`Fore Left Vert
line (Cx+(Vx#*Cz))+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Vy#*Cvz), (Cx+(Vx#*Cz))+(Vx#*Cvz),(Cy#-(Vy#*Cz))-Cvy-(Vy#*Cvz)
`Fore Right Vert
line (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Vy#*Cvz), (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Cy#-(Vy#*Cz))-Cvy-(Vy#*Cvz)

`* Connectors
`LB
line (Cx+(Vx#*Cz)),(Cy#-(Vy#*Cz)), (Cx+(Vx#*Cz))+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Vy#*Cvz)
`RB
line (Cx+(Vx#*Cz))+Cvx,(Cy#-(Vy#*Cz)), (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Vy#*Cvz)
`LT
line (Cx+(Vx#*Cz)),(Cy#-(Vy#*Cz))-Cvy, (Cx+(Vx#*Cz))+(Vx#*Cvz),(Cy#-(Vy#*Cz))-Cvy-(Vy#*Cvz)
`RT
line (Cx+(Vx#*Cz))+Cvx,(Cy#-(Vy#*Cz))-Cvy, (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Cy#-(Vy#*Cz))-Cvy-(Vy#*Cvz)

`* Y height line (ground up)
ink rgb(0,255,0),0
line (Cx+(Vx#*Cz))+(Cvx/1.6)+(Vx#*Cvz),(Wy1-(Vy#*Cz)), (Cx+(Vx#*Cz))+(Cvx/1.6)+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Cvy/1.6)
RETURN

`------

player:
if onfire = 0 then ink rgb(0,0,255),0
if onfire = 1 then ink rgb(255,0,0),0
`FG Horizontal
line (Px+(Vx#*Pz)),(Py-(Vy#*Pz)), (Px+(Vx#*Pz))+Pvx,(Py-(Vy#*Pz))
`BG Horizontal
line (Px+(Vx#*Pz))+(Vx#*Pvz),(Py-(Vy#*Pz))-(Vy#*Pvz), (Px+(Vx#*Pz))+Pvx+(Vx#*Pvz),(Py-(Vy#*Pz))-(Vy#*Pvz)
`LB
line (Px+(Vx#*Pz)),(Py-(Vy#*Pz)), (Px+(Vx#*Pz))+(Vx#*Pvz),(Py-(Vy#*Pz))-(Vy#*Pvz)
`RB
line (Px+(Vx#*Pz))+Pvx,(Py-(Vy#*Pz)), (Px+(Vx#*Pz))+Pvx+(Vx#*Pvz),(Py-(Vy#*Pz))-(Vy#*Pvz)
RETURN

`------

control:
if rightkey() = 1 then inc Px,2
if leftkey() = 1 then dec Px,2
if upkey() = 1 then inc Pz,1
if downkey() = 1 then dec Pz,1

`Change perspective
if Shiftkey() = 1 then inc Vx#,0.1
if Controlkey() = 1 then dec Vx#,0.1
if Vx# < 0.0 then Vx# = 0.0
if Vx# > 1.0 then Vx# = 1.0
Vy# = 1-Vx#

RETURN

`------

cube_fall:
inc Cy#,Cs#
if Cy# >= Wy1
   if ABS( (Px+(pvx/2)) - (Cx+(Cvx/2)) ) < Pvx and ABS( (Pz+(pvz/2)) - (Cz+(Cvz/2)) ) < Pvz
      inc Pscore,1
      inc roll,1
      if roll = 3 then onfire = 1
   else
      roll = 0
      onfire = 0
   endif
   Cx = rnd(Wx2-Wx1)+Wx1
   Cy# = Wy2
   Cz = rnd(Wz2-Wx1)+Wx1
   Cvx = rnd(10)+5 : Cvy = rnd(10)+5 : Cvz = rnd(10)+5
   Cs# = rnd(15)
   Cs# = (Cs# /10)+0.5
else
   if onfire = 0
      if (Pvx-Cvx) <> 0 then dec Pvx,(Pvx-Cvx)/ABS(Pvx-Cvx)
      if (Pvz-Cvz) <> 0 then dec Pvz,(Pvz-Cvz)/ABS(Pvz-Cvz)
   else
      Pvx = 30 : Pvz = 15
   endif
endif
RETURN

`------

bind:
if Cx < Wx1 then Cx = Wx1
if Cx > Wx2 then Cx = Wx2
if Cy# > Wy1 then Cy# = Wy1
if Cy# < Wy2 then Cy# = Wy2
if Cz < Wz1 then Cz = Wz1
if Cz > Wz2 then Cz = Wz2

if Px < Wx1 then Px = Wx1
if Px > Wx2 then Px = Wx2
if Pz < Wz1 then Pz = Wz1
if Pz > Wz2 then Pz = Wz2
RETURN

`------

HUD:
set cursor 20,320
rTime# = 60-(Timer()-sTime#)/1000
print "Time Remaining: "; rTime#
print "Score: "; Pscore
if onfire = 1 then print "YOU'RE ON FIRE!!!"
print "Cube Speed: "; Cs#

if rTime# <= 0
   cls
   center text 320,240,"You scored " + str$(Pscore) + "pts!"
   wait key
   sync
   end
endif
RETURN

`--------------------------------
`2D CUBE CATCHER!
`--------------------------------
`by OBese87
`--------------------------------
`DO YOU WANT A TIME LIMIT?
Time_Limit = 1

`--------------------------------
` SETUP
`--------------------------------
randomize timer()
hide mouse

`world Boundaries
Wx1 = 15 : Wx2 = 320
Wy1 = 200 : Wy2 = 30
Wz1 = 0 : Wz2 = 160
`perspective
Vx# = 0.5 : Vy# = 1-Vx#

`Cube position
Cx = rnd(Wx2-Wx1)+Wx1
Cy# = Wy2
Cz = rnd(Wz2-Wx1)+Wx1
Cs# = 1

`Cube volume
Cvx = 10
Cvy = 10
Cvz = 10

`player plain
Px = Wx1
Py = Wy1
Pz = Wz1
`plain volume
Pvx = 0
Pvz = 0

sTime# = timer() : `start time

`--------------------------------
` MAIN LOOP
`--------------------------------
sync on

DO
cls
gosub Axis
gosub Cube_Shadow
gosub Player
gosub Cube
gosub control
gosub cube_fall
gosub bind
gosub HUD
sync
LOOP

`--------------------------------
` GOSUBS
`--------------------------------
axis:
`x-line
ink rgb(255,0,0),0
line 15,200,320,200
`y-line
ink rgb(0,255,0),0
line 15,200,15,20
`z-line (X+Y/2)
ink rgb(0,0,255),0
line 15,200,15+(145*Vx#),200-(145*Vy#)
RETURN

`------

Cube_Shadow:
`* cube shadow
ink rgb(100,100,100),0
`FG Horizontal
line (Cx+(Vx#*Cz)),(Py-(Vy#*Cz)), (Cx+(Vx#*Cz))+Cvx,(Py-(Vy#*Cz))
`BG Horizontal
line (Cx+(Vx#*Cz))+(Vx#*Cvz),(Py-(Vy#*Cz))-(Vy#*Cvz), (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Py-(Vy#*Cz))-(Vy#*Cvz)
`LB
line (Cx+(Vx#*Cz)),(Py-(Vy#*Cz)), (Cx+(Vx#*Cz))+(Vx#*Cvz),(Py-(Vy#*Cz))-(Vy#*Cvz)
`RB
line (Cx+(Vx#*Cz))+Cvx,(Py-(Vy#*Cz)), (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Py-(Vy#*Cz))-(Vy#*Cvz)
RETURN

`------

Player:
if onfire = 0 then ink rgb(0,0,255),0
if onfire = 1 then ink rgb(255,0,0),0
`FG Horizontal
line (Px+(Vx#*Pz)),(Py-(Vy#*Pz)), (Px+(Vx#*Pz))+Pvx,(Py-(Vy#*Pz))
`BG Horizontal
line (Px+(Vx#*Pz))+(Vx#*Pvz),(Py-(Vy#*Pz))-(Vy#*Pvz), (Px+(Vx#*Pz))+Pvx+(Vx#*Pvz),(Py-(Vy#*Pz))-(Vy#*Pvz)
`LB
line (Px+(Vx#*Pz)),(Py-(Vy#*Pz)), (Px+(Vx#*Pz))+(Vx#*Pvz),(Py-(Vy#*Pz))-(Vy#*Pvz)
`RB
line (Px+(Vx#*Pz))+Pvx,(Py-(Vy#*Pz)), (Px+(Vx#*Pz))+Pvx+(Vx#*Pvz),(Py-(Vy#*Pz))-(Vy#*Pvz)
RETURN

`------

Cube:
`Colour the cube to plain position
DifX = ABS( (Px+(pvx/2)) - (Cx+(Cvx/2)) )
DifZ = ABS( (Pz+(pvz/2)) - (Cz+(Cvz/2)) )

`Get cube Color
If DifX < Pvx and DifZ < Pvz
   If DifX <= 1 and DifZ <= 1
      Col = rgb(255,255,0) : `precision bonus!
      Pts = 10
   Else
      Col = rgb(0,255,0) : `score
      Pts = 1
   Endif
Else
   Col = rgb(255,0,0) : `miss
   Pts = 0
Endif

`Display cube as white until low, then as precision color
if Cy# < Wy1-5
   ink rgb(255,255,255),0
else
   ink col,0
endif

`* FG Square
`Fore Bottom Horizontal
line (Cx+(Vx#*Cz)),(Cy#-(Vy#*Cz)), (Cx+(Vx#*Cz))+Cvx,(Cy#-(Vy#*Cz))
`Fore Top Horizontal
line (Cx+(Vx#*Cz)),(Cy#-(Vy#*Cz))-Cvy, (Cx+(Vx#*Cz))+Cvx,(Cy#-(Vy#*Cz))-Cvy
`Fore Left Vert
line (Cx+(Vx#*Cz)),(Cy#-(Vy#*Cz)), (Cx+(Vx#*Cz)),(Cy#-(Vy#*Cz))-Cvy
`Fore Right Vert
line (Cx+(Vx#*Cz))+Cvx,(Cy#-(Vy#*Cz)), (Cx+(Vx#*Cz))+Cvx,(Cy#-(Vy#*Cz))-Cvy

`* BG Square
`Fore Bottom Horizontal
line (Cx+(Vx#*Cz))+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Vy#*Cvz), (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Vy#*Cvz)
`Fore Top Horizontal
line (Cx+(Vx#*Cz))+(Vx#*Cvz),(Cy#-(Vy#*Cz))-Cvy-(Vy#*Cvz), (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Cy#-(Vy#*Cz))-Cvy-(Vy#*Cvz)
`Fore Left Vert
line (Cx+(Vx#*Cz))+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Vy#*Cvz), (Cx+(Vx#*Cz))+(Vx#*Cvz),(Cy#-(Vy#*Cz))-Cvy-(Vy#*Cvz)
`Fore Right Vert
line (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Vy#*Cvz), (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Cy#-(Vy#*Cz))-Cvy-(Vy#*Cvz)

`* Connectors
`LB
line (Cx+(Vx#*Cz)),(Cy#-(Vy#*Cz)), (Cx+(Vx#*Cz))+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Vy#*Cvz)
`RB
line (Cx+(Vx#*Cz))+Cvx,(Cy#-(Vy#*Cz)), (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Cy#-(Vy#*Cz))-(Vy#*Cvz)
`LT
line (Cx+(Vx#*Cz)),(Cy#-(Vy#*Cz))-Cvy, (Cx+(Vx#*Cz))+(Vx#*Cvz),(Cy#-(Vy#*Cz))-Cvy-(Vy#*Cvz)
`RT
line (Cx+(Vx#*Cz))+Cvx,(Cy#-(Vy#*Cz))-Cvy, (Cx+(Vx#*Cz))+Cvx+(Vx#*Cvz),(Cy#-(Vy#*Cz))-Cvy-(Vy#*Cvz)
RETURN

`------

control:
if rightkey() = 1 then inc Px,2
if leftkey() = 1 then dec Px,2
if upkey() = 1 then inc Pz,1
if downkey() = 1 then dec Pz,1

`Change perspective
if Shiftkey() = 1 then inc Vx#,0.1
if Controlkey() = 1 then dec Vx#,0.1
if Vx# < 0.0 then Vx# = 0.0
if Vx# > 1.0 then Vx# = 1.0
Vy# = 1-Vx#

RETURN

`------

cube_fall:
inc Cy#,Cs#
if Cy# >= Wy1
   If Pts > 0
      inc Pscore,Pts
      inc roll,1
      if roll = 3 then onfire = 1
   else
      roll = 0
      onfire = 0
   endif
   Cx = rnd(Wx2-Wx1)+Wx1
   Cy# = Wy2
   Cz = rnd(Wz2-Wx1)+Wx1
   Cvx = rnd(10)+5 : Cvy = rnd(10)+5 : Cvz = rnd(10)+5
   Cs# = rnd(15)
   Cs# = (Cs# /10)+0.5
else
   if onfire = 0
      `resize box to cube size
      if (Pvx-Cvx) <> 0 then dec Pvx,(Pvx-Cvx)/ABS(Pvx-Cvx)
      if (Pvz-Cvz) <> 0 then dec Pvz,(Pvz-Cvz)/ABS(Pvz-Cvz)
   else
      Pvx = 30 : Pvz = 30 : `Big square for on fire
   endif
endif
RETURN

`------

bind:
if Cx < Wx1 then Cx = Wx1
if Cx > Wx2 then Cx = Wx2
if Cy# > Wy1 then Cy# = Wy1
if Cy# < Wy2 then Cy# = Wy2
if Cz < Wz1 then Cz = Wz1
if Cz > Wz2 then Cz = Wz2

if Px < Wx1 then Px = Wx1
if Px > Wx2 then Px = Wx2
if Pz < Wz1 then Pz = Wz1
if Pz > Wz2 then Pz = Wz2
RETURN

`------

HUD:
set cursor 20,320
print "Score: "; Pscore
if onfire = 1 then print "YOU'RE ON FIRE!!!"
rem print "Cube Speed: "; Cs#

`Time Limit
if Time_Limit = 1
   rTime# = 60-(Timer()-sTime#)/1000
   print "Time Remaining: "; rTime#
   if rTime# <= 0
      cls
      center text 320,240,"You scored " + str$(Pscore) + "pts!"
      wait key
      sync
      end
   endif
endif
RETURN

@setup
@scale(3,2,2) // Size of shape on X,Y & Z  Values 0-1=Reduce 1=Normal >1=Enlarge
//               Examples:   4,1,1 = 4x wide      3,2,1 = 3x wide 2x tall
DO
  @rotatex(xa)
  @rotatez(za)
  @display
  EXIT IF MOUSEK
LOOP
END

PROCEDURE waitmouse
  oldx%=mx%,oldy%=my%,oldz%=mz%
  REPEAT
    MOUSE mx%,my%,mz%
  UNTIL oldx%<>mx% OR oldy%<>my% OR oldz%<>mz%
  IF mx%<>oldx%
    za=mx%-oldx%
  ENDIF
  IF my%<>oldy%
    xa=my%-oldy%
  ENDIF
RETURN

PROCEDURE setup
  SCREEN 18
  HIDEM
  DIM m(4,4), xyz(22,4), xyz2(22,4)                // xyz = Homogeneous Matrices
  centrex%=_X/2,centrey%=_Y/2
  xscale%=1,yscale%=1
  points%=22                                        // Number of points in shape
  a=.1
  f=PI/180              // 'f' converts degrees to radians that computer can use
  GRAPHMODE 3                                              // XOR (replace) mode
  FOR n=1 TO points%                              // Read vectors (shape points)
    READ xyz(n,1),xyz(n,2),xyz(n,3),xyz(n,4)
  NEXT n
  ARRAYFILL m(),0                                   // Empty manipulation matrix
  PRINT AT(22,1);"Move Mouse To Rotate   Button To Exit"
RETURN

PROCEDURE scale(xscale%,yscale%,zscale%)
  MAT ONE m()                                     // create diagonal '1' pattern
  m(1,1)=xscale%                             // 3 Scale Matrix Values (X, Y & Z)
  m(2,2)=yscale%
  m(3,3)=zscale%
  MAT MUL xyz2()=xyz()*m()
  MAT CPY xyz()=xyz2()
RETURN

PROCEDURE rotatex(a)             // rotate along x axis (top forwards/backwards)
  MAT ONE m()                                     // create diagonal '1' pattern
  m(2,2)=COS(a*f)                                      // 4 Rotate Matrix Values
  m(2,3)=-SIN(a*f)
  m(3,2)=SIN(a*f)
  m(3,3)=COS(a*f)
  MAT MUL xyz2()=xyz()*m()
  MAT CPY xyz()=xyz2()
RETURN

PROCEDURE rotatey(a)               // rotate along y axis (revolving door style)
  MAT ONE m()                                     // create diagonal '1' pattern
  m(1,1)=COS(a*f)                                      // 4 Rotate Matrix Values
  m(1,3)=SIN(a*f)
  m(3,1)=-SIN(a*f)
  m(3,3)=COS(a*f)
  MAT MUL xyz2()=xyz()*m()
  MAT CPY xyz()=xyz2()
RETURN

PROCEDURE rotatez(a)           // rotate along z axis (clockwise/anti-clockwise)
  MAT ONE m()                                     // create diagonal '1' pattern
  m(1,1)=COS(a*f)                                      // 4 Rotate Matrix Values
  m(2,1)=-SIN(a*f)
  m(1,2)=SIN(a*f)
  m(2,2)=COS(a*f)
  MAT MUL xyz2()=xyz()*m()
  MAT CPY xyz()=xyz2()
RETURN

PROCEDURE display
  COLOR 15
  FOR n=1 TO points%-1
    LINE xyz(n,1)+centrex%,xyz(n,2)+centrey%,xyz(n+1,1)+centrex%,xyz(n+1,2)+centrey%
    IF n<12 THEN
      LINE xyz(n,1)+centrex%,xyz(n,2)+centrey%,xyz(n+11,1)+centrex%,xyz(n+11,2)+centrey%
    ENDIF
  NEXT n
  @waitmouse
  //  PAUSE 1
  FOR n=1 TO points%-1
    LINE xyz(n,1)+centrex%,xyz(n,2)+centrey%,xyz(n+1,1)+centrex%,xyz(n+1,2)+centrey%
    IF n<12 THEN
      LINE xyz(n,1)+centrex%,xyz(n,2)+centrey%,xyz(n+11,1)+centrex%,xyz(n+11,2)+centrey%
    ENDIF
  NEXT n
RETURN

DATA -30,-50,1,1,  30,-50,1,1, 30,-30,1,1
DATA -10,-30,1,1, -10,-10,1,1, 10,-10,1,1
DATA  10,10,1,1,  -10,10,1,1, -10,50,1,1
DATA -30,50,1,1,  -30,-50,1,1

DATA -30,-50,21,1,  30,-50,21,1, 30,-30,21,1
DATA -10,-30,21,1, -10,-10,21,1, 10,-10,21,1
DATA  10,10,21,1,  -10,10,21,1, -10,50,21,1
DATA -30,50,21,1,  -30,-50,21,1