Sorry your browser is not supported!

`------------------------------------
` 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
Ri = 5
Jx = 320

`------------------------------------
` GAME LOOP
`------------------------------------
DO
gosub rain
gosub display
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 then Jwater= 0

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 5,5,5,5,5,5,5
data 0,2,5,5,5,2,0
data 0,0,5,5,5,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
`------------------------------------
Get_Images:
for item = 1 to 8
   `set image boundaries
   select item
      case 1 : maxy = 11 : maxx = 6 : endcase : `jack
      case 2 : maxy = 12 : maxx = 9 : endcase : `beanstalk
      case 3 : maxy = 7 : maxx = 9 : endcase : `bone
      case 4 : maxy = 4 : maxx = 7 : endcase : `egg
      case 5 : maxy = 2 : maxx = 0 : endcase : `rain1
      case 6 : maxy = 1 : maxx = 4 : endcase : `rain2
      case 7 : maxy = 1 : maxx = 6 : endcase : `rain3
      case 8 : 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:
Cmove = wrapvalue(Cmove+1)
Cx = (sin(Cmove)*280) + 320

if Ry <= 340
   if Ry >= 300 and ABS(Jx-Rx) < 14 and Jwater <5 then inc Jwater,1 : gosub reset_rain
   inc Ry,20
else
   if Ri < 7
      inc Ri,1
   else
      hide sprite 3
      gosub reset_rain
   endif
endif
RETURN

Reset_Rain:
rain = rnd(3)
if rain = 0 then Rx = Cx : Ry = 0 : Ri = 5 : show sprite 3
RETURN

Display:
sprite 2,320,300,2 : `beanstalk
sprite 1,Jx,300,1 : `jack
sprite 3,Rx,Ry,Ri : `rain
sprite 4,Cx,0,8 : `cloud
for spr = 1 to 4 : scale sprite spr,400 : offset sprite spr,sprite width(spr)/2,0 : next spr
RETURN

Info:
ink 100,0
box 0,0,200,60
ink rgb(255,255,255),0
set cursor 0,0
print "Water in Jack's bucket: "; Jwater; "/5"
print Cx
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

PLEASE????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????8-#8-#8-#8-#8-#8-#8-#8-#8-#8-#8-#

`------------------------------------
` 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
`------------------------------------
DO
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 then Jwater= 0

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 5,5,5,5,5,5,5
data 0,2,5,5,5,2,0
data 0,0,5,5,5,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
`------------------------------------
Get_Images:
for item = 1 to 8
   `set image boundaries
   select item
      case 1 : maxy = 11 : maxx = 6 : endcase : `jack
      case 2 : maxy = 12 : maxx = 9 : endcase : `beanstalk
      case 3 : maxy = 7 : maxx = 9 : endcase : `bone
      case 4 : maxy = 4 : maxx = 7 : endcase : `egg
      case 5 : maxy = 2 : maxx = 0 : endcase : `rain1
      case 6 : maxy = 1 : maxx = 4 : endcase : `rain2
      case 7 : maxy = 1 : maxx = 6 : endcase : `rain3
      case 8 : 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 = 5 : 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 Ry,20
   else
      if Ri<7 then inc Ri,1 else hide sprite 3 : rain=0 : `splash
   endif
endif
RETURN

Display:
sprite 2,320,280,2 : `beanstalk
sprite 1,Jx,300,1 : `jack
sprite 3,Rx,Ry,Ri : `rain
for c = 1 to 4
   sprite 3+c,cloud(c),0,8 : `cloud
next c
for spr = 1 to 7 : scale sprite spr,400 : offset sprite spr,sprite width(spr)/2,0 : next spr
RETURN

Info:
ink 100,0
box 0,0,200,60
ink rgb(255,255,255),0
set cursor 0,0
print "Water in Jack's bucket: "; Jwater; "/5"
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

PLAY_IT_AGAIN_SAM:
 finish_line = 0
 grass = 0
 time = 0
 damage = 150
 score = 0
 xptr=org_xptr
 yptr=org_yptr
 car(3)=org_direction
 car(7)=org_pat
 if current_track=1
   gosub DP_TRACK1
 else
   gosub TRACK2
 endif
 gosub DP_MAIN_SCREEN
 gosub MOVE_MAP
 gosub DP_TIMER_BOX
 gosub DP_TIME
 sprite 1,car(1),car(2),car(7)
 sync
 gosub READY_SET_GO
 accel_timer=timer() + (speed_delay*7)
 decel_timer=timer() + (speed_delay*2)
 turn_timer = timer() + (speed_delay*6)
 track_timer=timer()
return

`Dark Shooter
`aka
`Nick's Shooting Game

`-----------------editable variables-------------------

`change when adding things to game
numcolors = 9              :`change when adding more colors for more images
numdrawings = 4            :`change when adding more images
numenemies = 2             :`change when adding more enemy drawings

`change to config game
numenemiesatatime = 3      :`max enemies on the screen at a time - up to 9
maxpowerupsatatime = 1     :`max powerups floating at a time - you'll usually want this at 1
maxshots = 8               :`max shots on the screen - up to 8
initialenemyspeed# = 1.5   :`initial speed enemies move at - up this to make it faster
maxescaped=9               :`max to let escape - if more than this escape the game is over
maxbombs=9                 :`maximum number of bombs the player can have

sync on
hide mouse

`intro
otheight=text height("A")
theight=0
hide all sprites
cls 0
ink rgb(255,255,255),0
center text 176,theight,"Log of Argus Jiba, June 29, 3980"                    :  inc theight,otheight*2
printslowly(0,theight,"I was on my way to investigate an emergency signal",1)   :  inc theight,otheight
printslowly(0,theight,"eminating from a planet in Sector 359 when my right",1)  :  inc theight,otheight
printslowly(0,theight,"thruster lost power, sending me on a new trajectory.",1) :  inc theight,otheight*2
sleep 600
printslowly(0,theight,"Though I fought to keep the craft straight, I lost",1)   :  inc theight,otheight
printslowly(0,theight,"control and the spaceship crashed onto an uninhabited",1):  inc theight,otheight
printslowly(0,theight,"planet somewhere in Sector 298.",1)                      :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"At least, I thought it was uninhabited...",1)            :  inc theight,otheight*2
sleep 400
printslowly(0,theight,"As I walked away from the wreckage of my ship, I came",1):  inc theight,otheight
printslowly(0,theight,"upon some strange creatures that immediately tried to",1):  inc theight,otheight
printslowly(0,theight,"eat me.  I used the remaining power in my ship's",1):  inc theight,otheight
printslowly(0,theight,"crushed generator to charge my laser pistol and get in",1):  inc theight,otheight
printslowly(0,theight,"contact with Headquarters.  I relayed the information",1):  inc theight,otheight
printslowly(0,theight,"about the creatures, and recieved an answer just as my",1):  inc theight,otheight
printslowly(0,theight,"generator lost power:",1)                                :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"ARGUS - DESTROY ALL ORGANISMS ON PLANET.",1)             :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"And so, I set out on the unknown planet with nothing",1) :  inc theight,otheight
printslowly(0,theight,"but my trusty laser pistol...",1)                        :  inc theight,otheight*3
sleep 800
center text 176,theight,"PRESS ANY KEY TO START"
wait key
gosub _menu

gosub _setup
gosub _resetvariables

do
cls
gosub _enemies
gosub _powerups
gosub _movement
gosub _shots
gosub _playercollisions
gosub _bombs
gosub _finishhandle
gosub _hud
sync
loop

`----------------------------------------------------------------------GOSUBS!!!

_setup:
dim colors(numcolors)
bgcol = rgb(111,183,255)

restore data_colors
for i=1 to numcolors
   read r,g,b
   colors(i)=rgb(r,g,b)
next i

for drawings = 1 to numdrawings
   select drawings
      case 1
         restore data_man
      endcase
      case 2
         restore data_shot
      endcase
      case 3
         restore data_enemy_eye
      endcase
      case 4
         restore data_enemy_bat
      endcase
      case default
         end
      endcase
   endselect
   read tox,toy
   create bitmap 1,tox+1,toy+1
   set current bitmap 1
   cls bgcol
   for y=1 to toy
      for x=1 to tox
         read colnum
         ink colors(colnum),bgcol
         dot x,y
      next x
   next y
   get image drawings,1,1,tox+1,toy+1
   delete bitmap 1
next drawings

`generate powerup sprites (so simple they can be drawn)

`bomb
cls
tlength = text height("B")+5
midtlength = tlength/2
ink colors(3),0
circle midtlength,midtlength,midtlength-1
ink colors(1),0
center text midtlength,midtlength-(text height("B")/2),"B"
get image 5,0,0,tlength,tlength

`health
cls
tlength = text height("+")+5
midtlength = tlength/2
ink colors(9),0
circle midtlength,midtlength,midtlength-1
ink rgb(255,0,0),0
center text midtlength,midtlength-(text height("+")/2),"+"
get image 6,0,0,tlength,tlength

for i=1 to numenemiesatatime
   enemies(i,2)=rnd(screen height())
   enemies(i,1)=screen width()
   enemies(i,3)=rnd(numenemies-1)+3
next i
return

_resetvariables:
Dim enemies(numenemiesatatime,3) :`1=x 2=y 3=type (3-eye or 4-bat)
Dim shots(maxshots,3)   :`1=x 2=y 3=on/off
p_y=screen height()/2
curshots=0
curpu=0
health=100
escaped=0
killed=0
bombs=0
pu_x = screen width()
pu_y = rnd(screen height())
pu_num=5
e_speed#=initialenemyspeed#
gosub _drawinitial
return

_drawinitial:
set current bitmap 0
cls bgcol
sprite 1,0,p_y,1
scale sprite 1,400
return

_enemies:
for i=1 to numenemiesatatime
   enemies(i,1)=enemies(i,1)-e_speed#
   sprite i+10,enemies(i,1),enemies(i,2),enemies(i,3)
   if enemies(i,1)<0
      inc escaped
      enemies(i,2)=rnd(screen height())
      enemies(i,1)=screen width()
      enemies(i,3)=rnd(numenemies-1)+3
   endif
   scale sprite i+10,400
next i
inc e_speed#,0.001
return

_powerups:
if curpu<maxpowerupsatatime
   r=rnd(1000)
   if r=1
      pu_num=5
      inc curpu
      pu_x = screen width()
      pu_y = rnd(screen height())
      sprite 21,pu_x,pu_y,pu_num
      scale sprite 21,200
   endif
   if r=2
      pu_num=6
      inc curpu
      pu_x = screen width()
      pu_y = rnd(screen height())
      sprite 21,pu_x,pu_y,pu_num
      scale sprite 21,200
   endif
endif
if curpu>0
      dec pu_x,5
      sprite 21,pu_x,pu_y,pu_num
endif
if pu_x<0
   delete sprite 21
   dec curpu
endif
return

_movement:
if upkey() then dec p_y,5
if downkey() then inc p_y,5
sprite 1,0,p_y,1
return

_shots:
if curshots>0
   for i=1 to maxshots
      if shots(i,3)=1
         shots(i,1)=shots(i,1)+5
         if shots(i,1) < screen width()
            sprite i+1,shots(i,1),shots(i,2),2
            s_hit=sprite collision(i+1,0)
            if s_hit>9 and s_hit<20
               delete sprite i+1
               shots(i,3)=0
               delete sprite s_hit
               inc killed
               dec curshots
               enemies(s_hit-10,2)=rnd(screen height())
               enemies(s_hit-10,1)=screen width()
               enemies(s_hit-10,3)=rnd(numenemies-1)+3
            endif
         else
            delete sprite i+1
            shots(i,3)=0
            dec curshots
         endif
      endif
   next i
endif
if spacekey() and spacesep=0 and curshots<maxshots
   inc curshots
   spacesep=15
   for i=1 to maxshots
      if shots(i,3)=0
         tshot=i
         goto handleshot
      endif
   next i
   handleshot:
   shots(tshot,2)=p_y+16
   shots(tshot,1)=36
   sprite tshot+1,shots(tshot,1),shots(tshot,2),2
   scale sprite tshot+1,400
   shots(tshot,3)=1
endif
if spacesep>0 then dec spacesep
return

_playercollisions:
p_hit=sprite collision(1,0)
if p_hit>9 and p_hit<20
   dec health,10
   cls rgb(255,0,0)
   sync
endif
if p_hit>19
   delete sprite p_hit
   dec curpu
   if p_hit=21
      if pu_num=5 and bombs<maxbombs then inc bombs,3
      if bombs>maxbombs then bombs=maxbombs
      if pu_num=6 and health<100 then inc health,25
      if health>100 then health=100
   endif
endif
return

_bombs:
if bombs>0 and scancode()=48 and bombsep=0
   bombsep=20
   dec bombs
   for i=1 to numenemiesatatime
      delete sprite i+10
      enemies(i,2)=rnd(screen height())
      enemies(i,1)=screen width()
      enemies(i,3)=rnd(numenemies-1)+3
      inc killed
   next i
   cls rgb(255,255,0)
   sync
   wait 100
   cls bgcol
   sync
endif
if bombsep>0 then dec bombsep
return

_finishhandle:
if escaped>maxescaped then finish("You let too many creatures escape!",otheight,killed) : gosub _resetvariables
if health<=0 then finish("You died!",otheight,killed) : gosub _resetvariables
return

_hud:
ink 0,bgcol
text 0,0,"Health: "+str$(health)
text 0,otheight,"Killed: "+str$(killed)
text 0,otheight*2,"Escaped: "+str$(escaped)
if bombs>0 then text 0,otheight*3,"Bombs: "+str$(bombs)
return

_menu:
selecteditem=2
do
cls
theight=0
center text screen width()/2,theight,"Dark Shooter"   :  inc theight,otheight*4
if selecteditem=1
   center text screen width()/2,theight,">Play<" :  inc theight,otheight*2
else
   center text screen width()/2,theight,"Play" :  inc theight,otheight*2
endif
if selecteditem=2
   center text screen width()/2,theight,">Help<" :  inc theight,otheight*2
else
   center text screen width()/2,theight,"Help" :  inc theight,otheight*2
endif
if upkey() and upbuffer=0 then dec selecteditem : upbuffer=15
if downkey() and downbuffer=0 then inc selecteditem : downbuffer=15
if selecteditem>2 then selecteditem=1
if selecteditem<1 then selecteditem=2
if returnkey()
   if selecteditem=1 then return
   if selecteditem=2 then gosub _help
endif
if downbuffer>0 then dec downbuffer
if upbuffer>0 then dec upbuffer
sync
loop
return

_help:
cls
theight=0
center text screen width()/2,theight,"Help"                    :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"In the game, use the up and down arrows to position yourself as you walk",1)   :  inc theight,otheight
printslowly(0,theight,"across the planet.  Use the spacebar to fire lasers at the creatures.",1)   :  inc theight,otheight
printslowly(0,theight,"Since you are supposed to kill all of the creatures, you are only allowed",1)   :  inc theight,otheight
printslowly(0,theight,"to let 9 creatures get past you.  If a creature hits you, you",1)   :  inc theight,otheight
printslowly(0,theight,"lose health.  The object of the game is to kill as many creatures as you can.",1)   :  inc theight,otheight
printslowly(0,theight,"You may come across certain powerups, such as bombs, which clear the room of",1)   :  inc theight,otheight
printslowly(0,theight,"creatures when you press B, and health packs, which raise your health.  Have Fun!",1)   :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"Press any key to continue.",1)   :  inc theight,otheight
wait key
return

`--------------------------------------------------------------------DATA!!!!

end
data_colors:
data 70,35,0  :`1-dark brownish-black
data 170,85,0  :`2-light brown
data 253,221,111  :`3-fleshy
data 0,255,128 :`4-bright green
data 0,0,255   :`5-blue
data 128,128,128  :`6-gray
data 255,255,0 :`7-yellow
data 164,210,161  :`8-semi transparent (virtually) yellow
data 255,255,255  :`9-white

data_man:
remstart version 1
data 9,12
data 0,0,2,2,2,2,0,0,0
data 0,0,3,3,3,1,0,0,0
data 0,0,3,3,3,3,0,0,0
data 0,0,0,3,3,0,0,0,0
data 3,4,5,4,4,5,4,0,0
data 3,4,5,4,4,5,4,0,0
data 4,4,5,4,4,5,6,6,6
data 4,4,5,4,4,5,6,3,0
data 3,4,5,4,4,5,4,0,0
data 0,5,5,5,5,5,5,0,0
data 0,5,5,5,5,5,5,0,0
data 1,1,1,0,0,1,1,1,0
data 1,1,1,0,0,1,1,1,0
remend
data 9,12
data 0,2,2,2,2,0,0,0,0
data 0,3,3,3,1,0,0,0,0
data 0,3,3,3,3,0,0,0,0
data 0,0,3,3,0,0,0,0,0
data 4,5,4,4,5,4,0,0,0
data 4,5,4,4,5,6,6,6,6
data 4,5,4,4,5,6,3,0,3
data 4,5,4,4,5,4,0,0,0
data 5,5,5,5,5,5,0,0,0
data 5,5,5,5,5,5,0,0,0
data 1,1,1,0,1,1,1,0,0
data 1,1,1,0,1,1,1,0,0

data_shot:
data 6,3
data 0,0,8,8,8,0
data 8,7,7,7,7,8
data 0,0,8,8,8,0

data_enemy_eye:
data 9,9
data 0,0,0,4,4,4,0,0,0
data 0,4,4,0,0,0,4,4,0
data 0,4,0,0,0,2,0,4,0
data 4,9,9,0,2,0,0,0,4
data 4,1,9,0,0,2,2,0,4
data 4,9,9,0,0,0,0,2,4
data 0,4,0,0,2,2,0,4,0
data 0,4,4,2,0,0,4,4,0
data 0,0,0,4,4,4,0,0,0

data_enemy_bat:
data 15,4
data 0,1,1,1,1,0,1,1,1,0,1,1,1,1,0
data 1,0,0,0,0,1,5,1,5,1,0,0,0,0,1
data 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0
data 0,0,0,0,0,0,9,0,9,0,0,0,0,0,0


`---------------------------------------------------------------------------------FUNCTIONS

function printslowly(x,y,fullstr$,exitonkeypress)
ink rgb(0,255,0),0
`set text size,
for i = 1 to len(fullstr$)
   if scancode()>0 and exitonkeypress
      text x,y,fullstr$
      exitfunction
   endif

   text x,y,left$(fullstr$,i)

   if scancode()>0 and exitonkeypress
      text x,y,fullstr$
      exitfunction
   endif

   sleep 100

   if scancode()>0 and exitonkeypress
      text x,y,fullstr$
      exitfunction
   endif
next i
endfunction

function finish(msg$,otheight,killed)
hide all sprites
for i=1 to 30
if sprite exist(i)>0
   hide sprite i
   delete sprite i
endif
next i
cls 0
sync
theight=0
printslowly(0,theight,msg$,0) :  inc theight,otheight
if killed>0
   if killed=1 then str$="But not before you killed 1 creature!"
   if killed>1 then str$="But not before you killed "+str$(killed)+" creatures!"
   printslowly(0,theight,str$,0)  :  inc theight,otheight
   if killed<10 then str$="Keep trying!"
   if killed>=10 and killed<25 then str$="Good job."
   if killed>=25 and killed<50 then str$="Keep up the good work."
   if killed>=50 and killed<100 then str$="You have the makings of a bounty hunter!"
   if killed>=100 and killed<150 then str$="Excellent job!"
   if killed>=150 then str$="You are AMAZING!"
   printslowly(0,theight,str$,0)  :  inc theight,otheight
endif
sleep 1000
printslowly(0,theight,"Press any key to restart or [ESC] to exit.",0)
wait key
endfunction

`Dark Shooter
`aka
`Nick's Shooting Game

`-----------------editable variables-------------------

`change when adding things to game
numcolors = 9              :`change when adding more colors for more images
numdrawings = 5            :`change when adding more images
numenemies = 2             :`change when adding more enemy drawings

`change to config game
numenemiesatatime = 3      :`max enemies on the screen at a time - up to 9
maxpowerupsatatime = 1     :`max powerups floating at a time - you'll usually want this at 1
maxshots = 8               :`max shots on the screen - up to 8
initialenemyspeed# = 1.5   :`initial speed enemies move at - up this to make it faster
maxescaped=9               :`max to let escape - if more than this escape the game is over
maxbombs=9                 :`maximum number of bombs the player can have
maxclouds=3                :`maximum number of clouds on screen

sync on
hide mouse

`intro
otheight=text height("A")
theight=0
hide all sprites
cls 0
ink rgb(255,255,255),0
center text 176,theight,"Log of Argus Jiba, June 29, 3980"                    :  inc theight,otheight*2
printslowly(0,theight,"I was on my way to investigate an emergency signal",1)   :  inc theight,otheight
printslowly(0,theight,"eminating from a planet in Sector 359 when my right",1)  :  inc theight,otheight
printslowly(0,theight,"thruster lost power, sending me on a new trajectory.",1) :  inc theight,otheight*2
sleep 600
printslowly(0,theight,"Though I fought to keep the craft straight, I lost",1)   :  inc theight,otheight
printslowly(0,theight,"control and the spaceship crashed onto an uninhabited",1):  inc theight,otheight
printslowly(0,theight,"planet somewhere in Sector 298.",1)                      :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"At least, I thought it was uninhabited...",1)            :  inc theight,otheight*2
sleep 400
printslowly(0,theight,"As I walked away from the wreckage of my ship, I came",1):  inc theight,otheight
printslowly(0,theight,"upon some strange creatures that immediately tried to",1):  inc theight,otheight
printslowly(0,theight,"eat me.  I used the remaining power in my ship's",1):  inc theight,otheight
printslowly(0,theight,"crushed generator to charge my laser pistol and get in",1):  inc theight,otheight
printslowly(0,theight,"contact with Headquarters.  I relayed the information",1):  inc theight,otheight
printslowly(0,theight,"about the creatures, and recieved an answer just as my",1):  inc theight,otheight
printslowly(0,theight,"generator lost power:",1)                                :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"ARGUS - DESTROY ALL ORGANISMS ON PLANET.",1)             :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"And so, I set out on the unknown planet with nothing",1) :  inc theight,otheight
printslowly(0,theight,"but my trusty laser pistol...",1)                        :  inc theight,otheight*3
sleep 800
center text 176,theight,"PRESS ANY KEY TO START"
wait key
gosub _menu

gosub _setup
gosub _resetvariables

do
cls
gosub _clouds
gosub _enemies
gosub _powerups
gosub _movement
gosub _shots
gosub _playercollisions
gosub _bombs
gosub _finishhandle
gosub _hud
sync
loop

`----------------------------------------------------------------------GOSUBS!!!

_setup:
dim colors(numcolors)
bgcol = rgb(111,183,255)

restore data_colors
for i=1 to numcolors
   read r,g,b
   colors(i)=rgb(r,g,b)
next i

for drawings = 1 to numdrawings
   select drawings
      case 1
         restore data_man
      endcase
      case 2
         restore data_shot
      endcase
      case 3
         restore data_enemy_eye
      endcase
      case 4
         restore data_enemy_bat
      endcase
      case 5
         restore data_cloud1
      endcase
      case default
         end
      endcase
   endselect
   read tox,toy
   create bitmap 1,tox+1,toy+1
   set current bitmap 1
   cls 0
   for y=1 to toy
      for x=1 to tox
         read colnum
         ink colors(colnum),bgcol
         dot x,y
      next x
   next y
   get image drawings,1,1,tox+1,toy+1
   delete bitmap 1
next drawings

`generate powerup sprites (so simple they can be drawn)

`bomb
cls 0
tlength = text height("B")+5
midtlength = tlength/2
ink colors(3),0
circle midtlength,midtlength,midtlength-1
ink colors(1),0
center text midtlength,midtlength-(text height("B")/2),"B"
get image 10,0,0,tlength,tlength

`health
cls 0
tlength = text height("+")+5
midtlength = tlength/2
ink colors(9),0
circle midtlength,midtlength,midtlength-1
ink rgb(255,0,0),0
center text midtlength,midtlength-(text height("+")/2),"+"
get image 11,0,0,tlength,tlength

for i=1 to numenemiesatatime
   enemies(i,2)=rnd(screen height())
   enemies(i,1)=screen width()
   enemies(i,3)=rnd(numenemies-1)+3
next i
return

_resetvariables:
Dim enemies(numenemiesatatime,3) :`1=x 2=y 3=type (3-eye or 4-bat)
Dim shots(maxshots,3)   :`1=x 2=y 3=on/off
Dim clouds(maxclouds,3) :`1=x 2=y 3=speed
p_y=screen height()/2
curshots=0
curpu=0
health=100
escaped=0
killed=0
bombs=0
pu_x = screen width()
pu_y = rnd(screen height())
pu_num=10
e_speed#=initialenemyspeed#
for i=1 to numenemiesatatime
   enemies(i,2)=rnd(screen height())
   enemies(i,1)=screen width()
   enemies(i,3)=rnd(numenemies-1)+3
next i
for i=1 to maxclouds
   clouds(i,2)=rnd(screen height()-(screen height()/3))
   clouds(i,1)=screen width()-rnd(screen width()/2)
   clouds(i,3)=clouds(i,3)=(rnd(3)+1)/4
next i
gosub _drawinitial
return

_drawinitial:
set current bitmap 0
cls bgcol
sprite 1,0,p_y,1
scale sprite 1,400
return

_enemies:
for i=1 to numenemiesatatime
   enemies(i,1)=enemies(i,1)-e_speed#
   sprite i+10,enemies(i,1),enemies(i,2),enemies(i,3)
   if enemies(i,1)<0
      inc escaped
      enemies(i,2)=rnd(screen height())
      enemies(i,1)=screen width()
      enemies(i,3)=rnd(numenemies-1)+3
   endif
   scale sprite i+10,400
next i
inc e_speed#,0.001
return

_powerups:
if curpu<maxpowerupsatatime
   r=rnd(1000)
   if r=1
      pu_num=10
      inc curpu
      pu_x = screen width()
      pu_y = rnd(screen height())
      sprite 21,pu_x,pu_y,pu_num
      scale sprite 21,200
   endif
   if r=2
      pu_num=11
      inc curpu
      pu_x = screen width()
      pu_y = rnd(screen height())
      sprite 21,pu_x,pu_y,pu_num
      scale sprite 21,200
   endif
endif
if curpu>0
      dec pu_x,5
      sprite 21,pu_x,pu_y,pu_num
endif
if pu_x<0
   delete sprite 21
   dec curpu
endif
return

_movement:
if upkey() then dec p_y,5
if downkey() then inc p_y,5
sprite 1,0,p_y,1
return

_shots:
if curshots>0
   for i=1 to maxshots
      if shots(i,3)=1
         shots(i,1)=shots(i,1)+5
         if shots(i,1) < screen width()
            sprite i+1,shots(i,1),shots(i,2),2
            s_hit=sprite collision(i+1,0)
            if s_hit>9 and s_hit<20
               delete sprite i+1
               shots(i,3)=0
               delete sprite s_hit
               inc killed
               dec curshots
               enemies(s_hit-10,2)=rnd(screen height())
               enemies(s_hit-10,1)=screen width()
               enemies(s_hit-10,3)=rnd(numenemies-1)+3
            endif
         else
            delete sprite i+1
            shots(i,3)=0
            dec curshots
         endif
      endif
   next i
endif
if spacekey() and spacesep=0 and curshots<maxshots
   inc curshots
   spacesep=15
   for i=1 to maxshots
      if shots(i,3)=0
         tshot=i
         exit
      endif
   next i
   shots(tshot,2)=p_y+16
   shots(tshot,1)=36
   sprite tshot+1,shots(tshot,1),shots(tshot,2),2
   scale sprite tshot+1,400
   shots(tshot,3)=1
endif
if spacesep>0 then dec spacesep
return

_playercollisions:
p_hit=sprite collision(1,0)
if p_hit>9 and p_hit<20
   dec health,10
   cls rgb(255,0,0)
   sync
endif
if p_hit=21
   delete sprite p_hit
   dec curpu
   if pu_num=10 and bombs<maxbombs then inc bombs,3
   if bombs>maxbombs then bombs=maxbombs
   if pu_num=11 and health<100 then inc health,25
   if health>100 then health=100
endif
return

_bombs:
if bombs>0 and scancode()=48 and bombsep=0
   bombsep=20
   dec bombs
   for i=1 to numenemiesatatime
      delete sprite i+10
      enemies(i,2)=rnd(screen height())
      enemies(i,1)=screen width()
      enemies(i,3)=rnd(numenemies-1)+3
      inc killed
   next i
   cls rgb(255,255,0)
   sync
   wait 100
   cls bgcol
   sync
endif
if bombsep>0 then dec bombsep
return

_clouds:
for i=1 to maxclouds
   clouds(i,1)=clouds(i,1)-(e_speed#+clouds(i,3))
   sprite i+24,clouds(i,1),clouds(i,2),5
   if clouds(i,1)<0
      clouds(i,2)=rnd(screen height()-(screen height()/3))
      clouds(i,1)=screen width()
      clouds(i,3)=(rnd(3)+1)/4
   endif
   scale sprite i+24,400
next i
return

_finishhandle:
if escaped>maxescaped then finish("You let too many creatures escape!",otheight,killed) : gosub _resetvariables
if health<=0 then finish("You died!",otheight,killed) : gosub _resetvariables
return

_hud:
ink 0,bgcol
text 0,0,"Health: "+str$(health)
text 0,otheight,"Killed: "+str$(killed)
text 0,otheight*2,"Escaped: "+str$(escaped)
if bombs>0 then text 0,otheight*3,"Bombs: "+str$(bombs)
return

_menu:
selecteditem=2
do
cls
theight=0
center text screen width()/2,theight,"Dark Shooter"   :  inc theight,otheight*4
if selecteditem=1
   center text screen width()/2,theight,">Play<" :  inc theight,otheight*2
else
   center text screen width()/2,theight,"Play" :  inc theight,otheight*2
endif
if selecteditem=2
   center text screen width()/2,theight,">Help<" :  inc theight,otheight*2
else
   center text screen width()/2,theight,"Help" :  inc theight,otheight*2
endif
if upkey() and upbuffer=0 then dec selecteditem : upbuffer=15
if downkey() and downbuffer=0 then inc selecteditem : downbuffer=15
if selecteditem>2 then selecteditem=1
if selecteditem<1 then selecteditem=2
if returnkey()
   if selecteditem=1 then return
   if selecteditem=2 then gosub _help
endif
if downbuffer>0 then dec downbuffer
if upbuffer>0 then dec upbuffer
sync
loop
return

_help:
cls
theight=0
center text screen width()/2,theight,"Help"                    :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"In the game, use the up and down arrows to position yourself as you walk",1)   :  inc theight,otheight
printslowly(0,theight,"across the planet.  Use the spacebar to fire lasers at the creatures.",1)   :  inc theight,otheight
printslowly(0,theight,"Since you are supposed to kill all of the creatures, you are only allowed",1)   :  inc theight,otheight
printslowly(0,theight,"to let 9 creatures get past you.  If a creature hits you, you",1)   :  inc theight,otheight
printslowly(0,theight,"lose health.  The object of the game is to kill as many creatures as you can.",1)   :  inc theight,otheight
printslowly(0,theight,"You may come across certain powerups, such as bombs, which clear the room of",1)   :  inc theight,otheight
printslowly(0,theight,"creatures when you press B, and health packs, which raise your health.  Have Fun!",1)   :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"Press any key to continue.",1)   :  inc theight,otheight
wait key
return

`--------------------------------------------------------------------DATA!!!!

end
data_colors:
data 70,35,0  :`1-dark brownish-black
data 170,85,0  :`2-light brown
data 253,221,111  :`3-fleshy
data 0,255,128 :`4-bright green
data 0,0,255   :`5-blue
data 128,128,128  :`6-gray
data 255,255,0 :`7-yellow
data 164,210,161  :`8-semi transparent (virtually) yellow
data 255,255,255  :`9-white

data_man:
remstart version 1
data 9,12
data 0,0,2,2,2,2,0,0,0
data 0,0,3,3,3,1,0,0,0
data 0,0,3,3,3,3,0,0,0
data 0,0,0,3,3,0,0,0,0
data 3,4,5,4,4,5,4,0,0
data 3,4,5,4,4,5,4,0,0
data 4,4,5,4,4,5,6,6,6
data 4,4,5,4,4,5,6,3,0
data 3,4,5,4,4,5,4,0,0
data 0,5,5,5,5,5,5,0,0
data 0,5,5,5,5,5,5,0,0
data 1,1,1,0,0,1,1,1,0
data 1,1,1,0,0,1,1,1,0
remend
data 9,12
data 0,2,2,2,2,0,0,0,0
data 0,3,3,3,1,0,0,0,0
data 0,3,3,3,3,0,0,0,0
data 0,0,3,3,0,0,0,0,0
data 4,5,4,4,5,4,0,0,0
data 4,5,4,4,5,6,6,6,6
data 4,5,4,4,5,6,3,0,3
data 4,5,4,4,5,4,0,0,0
data 5,5,5,5,5,5,0,0,0
data 5,5,5,5,5,5,0,0,0
data 1,1,1,0,1,1,1,0,0
data 1,1,1,0,1,1,1,0,0

data_shot:
data 6,3
data 0,0,8,8,8,0
data 8,7,7,7,7,8
data 0,0,8,8,8,0

data_enemy_eye:
data 9,9
data 0,0,0,4,4,4,0,0,0
data 0,4,4,0,0,0,4,4,0
data 0,4,0,0,0,2,0,4,0
data 4,9,9,0,2,0,0,0,4
data 4,1,9,0,0,2,2,0,4
data 4,9,9,0,0,0,0,2,4
data 0,4,0,0,2,2,0,4,0
data 0,4,4,2,0,0,4,4,0
data 0,0,0,4,4,4,0,0,0

data_enemy_bat:
data 15,4
data 0,1,1,1,1,0,1,1,1,0,1,1,1,1,0
data 1,0,0,0,0,1,5,1,5,1,0,0,0,0,1
data 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0
data 0,0,0,0,0,0,9,0,9,0,0,0,0,0,0

data_cloud1:
data 14,7
data 0,0,0,0,0,0,9,9,9,9,0,0,0,0
data 0,0,0,0,9,9,9,9,6,9,9,0,0,0
data 0,0,9,9,9,9,6,9,9,6,9,0,0,0
data 0,0,9,9,9,6,9,9,9,9,6,9,0,0
data 0,9,9,6,6,9,9,6,6,6,9,9,6,0
data 9,9,9,9,9,9,9,9,9,9,9,9,9,6
data 0,6,6,6,0,6,6,6,0,6,6,6,6,0

`---------------------------------------------------------------------------------FUNCTIONS

function printslowly(x,y,fullstr$,exitonkeypress)
ink rgb(0,255,0),0
`set text size,
for i = 1 to len(fullstr$)
   if scancode()>0 and exitonkeypress
      text x,y,fullstr$
      exitfunction
   endif

   text x,y,left$(fullstr$,i)

   if scancode()>0 and exitonkeypress
      text x,y,fullstr$
      exitfunction
   endif

   sleep 100

   if scancode()>0 and exitonkeypress
      text x,y,fullstr$
      exitfunction
   endif
next i
endfunction

function finish(msg$,otheight,killed)
hide all sprites
for i=1 to 30
if sprite exist(i)>0
   hide sprite i
   delete sprite i
endif
next i
sync
cls 0
sync
theight=0
printslowly(0,theight,msg$,0) :  inc theight,otheight
if killed>0
   if killed=1 then str$="But not before you killed 1 creature!"
   if killed>1 then str$="But not before you killed "+str$(killed)+" creatures!"
   printslowly(0,theight,str$,0)  :  inc theight,otheight
   if killed<10 then str$="Keep trying!"
   if killed>=10 and killed<25 then str$="Good job."
   if killed>=25 and killed<50 then str$="Keep up the good work."
   if killed>=50 and killed<100 then str$="You have the makings of a bounty hunter!"
   if killed>=100 and killed<150 then str$="Excellent job!"
   if killed>=150 then str$="You are AMAZING!"
   printslowly(0,theight,str$,0)  :  inc theight,otheight
endif
sleep 1000
printslowly(0,theight,"Press any key to restart or [ESC] to exit.",0)
wait key
endfunction

if p_y>480 then p_y=-40
if p_y<-40 then p_y=480

`Dark Shooter
`aka
`Nick's Shooting Game

`-----------------editable variables-------------------

`change when adding things to game
numcolors = 9              :`change when adding more colors for more images
numdrawings = 5            :`change when adding more images
numenemies = 2             :`change when adding more enemy drawings

`change to config game
numenemiesatatime = 3      :`max enemies on the screen at a time - up to 9
maxpowerupsatatime = 1     :`max powerups floating at a time - you'll usually want this at 1
maxshots = 8               :`max shots on the screen - up to 8
initialenemyspeed# = 1.5   :`initial speed enemies move at - up this to make it faster
maxescaped=9               :`max to let escape - if more than this escape the game is over
maxbombs=9                 :`maximum number of bombs the player can have
maxclouds=3                :`maximum number of clouds on screen

sync on
hide mouse
screenh=screen height()
screenw=screen width()

`intro
otheight=text height("A")
theight=0
hide all sprites
cls 0
ink rgb(255,255,255),0
center text 176,theight,"Log of Argus Jiba, June 29, 3980"                    :  inc theight,otheight*2
printslowly(0,theight,"I was on my way to investigate an emergency signal",1)   :  inc theight,otheight
printslowly(0,theight,"eminating from a planet in Sector 359 when my right",1)  :  inc theight,otheight
printslowly(0,theight,"thruster lost power, sending me on a new trajectory.",1) :  inc theight,otheight*2
sleep 600
printslowly(0,theight,"Though I fought to keep the craft straight, I lost",1)   :  inc theight,otheight
printslowly(0,theight,"control and the spaceship crashed onto an uninhabited",1):  inc theight,otheight
printslowly(0,theight,"planet somewhere in Sector 298.",1)                      :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"At least, I thought it was uninhabited...",1)            :  inc theight,otheight*2
sleep 400
printslowly(0,theight,"As I walked away from the wreckage of my ship, I came",1):  inc theight,otheight
printslowly(0,theight,"upon some strange creatures that immediately tried to",1):  inc theight,otheight
printslowly(0,theight,"eat me.  I used the remaining power in my ship's",1):  inc theight,otheight
printslowly(0,theight,"crushed generator to charge my laser pistol and get in",1):  inc theight,otheight
printslowly(0,theight,"contact with Headquarters.  I relayed the information",1):  inc theight,otheight
printslowly(0,theight,"about the creatures, and recieved an answer just as my",1):  inc theight,otheight
printslowly(0,theight,"generator lost power:",1)                                :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"ARGUS - DESTROY ALL ORGANISMS ON PLANET.",1)             :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"And so, I set out on the unknown planet with nothing",1) :  inc theight,otheight
printslowly(0,theight,"but my trusty laser pistol...",1)                        :  inc theight,otheight*3
sleep 800
center text 176,theight,"PRESS ANY KEY TO START"
wait key
gosub _menu

gosub _setup
gosub _resetvariables

do
cls
gosub _background
gosub _clouds
gosub _enemies
gosub _powerups
gosub _movement
gosub _shots
gosub _playercollisions
gosub _bombs
gosub _finishhandle
gosub _hud
sync
loop

`----------------------------------------------------------------------GOSUBS!!!

_setup:
cls
center text screenw/2,screenh/2,"LOADING..."
dim colors(numcolors)
bgcol = hsv(36.0,1.0,0.28)

restore data_colors
for i=1 to numcolors
   read r,g,b
   colors(i)=rgb(r,g,b)
next i

`background
create bitmap 1,512,512
cls hsv(36.0,1.0,0.28)
for i=1 to 50000
   ink hsv(36.0,1.0,0.21+(rnd(14)/100)),0
   dot rnd(512),rnd(512)
next i
blur bitmap 1,1
get image 100,0,0,512,512
delete bitmap 1
create bitmap 1,screenw+1024,screenh+512
cls hsv(36.0,1.0,0.28)
for i=0 to screenw+1024 step 512
   for j=0 to screenh+512 step 512
      paste image 100,i,j
   next j
next i
get image 101,0,0,screenw+1024,screenh+512
delete bitmap 1

for drawings = 1 to numdrawings
   select drawings
      case 1
         restore data_man
      endcase
      case 2
         restore data_shot
      endcase
      case 3
         restore data_enemy_eye
      endcase
      case 4
         restore data_enemy_bat
      endcase
      case 5
         restore data_cloud1
      endcase
      case default
         end
      endcase
   endselect
   read tox,toy
   create bitmap 1,tox+1,toy+1
   set current bitmap 1
   cls 0
   for y=1 to toy
      for x=1 to tox
         read colnum
         ink colors(colnum),bgcol
         dot x,y
      next x
   next y
   get image drawings,1,1,tox+1,toy+1
   delete bitmap 1
next drawings

`generate powerup sprites (so simple they can be drawn)

`bomb
cls 0
tlength = text height("B")+5
midtlength = tlength/2
ink colors(3),0
circle midtlength,midtlength,midtlength-1
ink colors(9),0
center text midtlength,midtlength-(text height("B")/2),"B"
get image 10,0,0,tlength,tlength

`health
cls 0
tlength = text height("+")+5
midtlength = tlength/2
ink colors(9),0
circle midtlength,midtlength,midtlength-1
ink rgb(255,0,0),0
center text midtlength,midtlength-(text height("+")/2),"+"
get image 11,0,0,tlength,tlength

for i=1 to numenemiesatatime
   enemies(i,2)=rnd(screenh)
   enemies(i,1)=screenw
   enemies(i,3)=rnd(numenemies-1)+3
next i
return

_resetvariables:
Dim enemies(numenemiesatatime,3) :`1=x 2=y 3=type (3-eye or 4-bat)
Dim shots(maxshots,3)   :`1=x 2=y 3=on/off
Dim clouds(maxclouds,3) :`1=x 2=y 3=speed
p_y=screenh/2
curshots=0
curpu=0
health=100
escaped=0
killed=0
bombs=0
bg_x = 0
pu_x = screenw
pu_y = rnd(screenh)
pu_num=10
finishstate=0
e_speed#=initialenemyspeed#
for i=1 to numenemiesatatime
   enemies(i,2)=rnd(screenh)
   enemies(i,1)=screenw
   enemies(i,3)=rnd(numenemies-1)+3
next i
for i=1 to maxclouds
   clouds(i,2)=rnd(screenh-(screenh/3))
   clouds(i,1)=screenw-rnd(screenw/2)
   clouds(i,3)=clouds(i,3)=(rnd(3)+1)/4
next i
gosub _drawinitial
return

_drawinitial:
set current bitmap 0
cls bgcol
sprite 1,0,p_y,1
scale sprite 1,400
return

_background:
dec bg_x, e_speed#
if bg_x<-512 then bg_x=0
paste image 101,bg_x,0
return

_enemies:
for i=1 to numenemiesatatime
   enemies(i,1)=enemies(i,1)-e_speed#
   sprite i+10,enemies(i,1),enemies(i,2),enemies(i,3)
   if enemies(i,1)<0
      inc escaped
      enemies(i,2)=rnd(screenh)
      enemies(i,1)=screenw
      enemies(i,3)=rnd(numenemies-1)+3
   endif
   scale sprite i+10,400
next i
inc e_speed#,0.001
return

_powerups:
if curpu<maxpowerupsatatime
   r=rnd(1000)
   if r=1
      pu_num=10
      inc curpu
      pu_x = screenw
      pu_y = rnd(screenh)
      sprite 21,pu_x,pu_y,pu_num
      scale sprite 21,200
   endif
   if r=2
      pu_num=11
      inc curpu
      pu_x = screenw
      pu_y = rnd(screenh)
      sprite 21,pu_x,pu_y,pu_num
      scale sprite 21,200
   endif
endif
if curpu>0
      dec pu_x,5
      sprite 21,pu_x,pu_y,pu_num
endif
if pu_x<0
   delete sprite 21
   dec curpu
endif
return

_movement:
if upkey() then dec p_y,5
if downkey() then inc p_y,5
if p_y>screenh then p_y=screenh
if p_y<-40 then p_y=-40
sprite 1,0,p_y,1
return

_shots:
if curshots>0
   for i=1 to maxshots
      if shots(i,3)=1
         shots(i,1)=shots(i,1)+5
         if shots(i,1) < screenw
            sprite i+1,shots(i,1),shots(i,2),2
            s_hit=sprite collision(i+1,0)
            if s_hit>9 and s_hit<20
               delete sprite i+1
               shots(i,3)=0
               delete sprite s_hit
               inc killed
               dec curshots
               enemies(s_hit-10,2)=rnd(screenh)
               enemies(s_hit-10,1)=screenw
               enemies(s_hit-10,3)=rnd(numenemies-1)+3
            endif
         else
            delete sprite i+1
            shots(i,3)=0
            dec curshots
         endif
      endif
   next i
endif
if spacekey() and spacesep=0 and curshots<maxshots
   inc curshots
   spacesep=15
   for i=1 to maxshots
      if shots(i,3)=0
         tshot=i
         exit
      endif
   next i
   shots(tshot,2)=p_y+16
   shots(tshot,1)=36
   sprite tshot+1,shots(tshot,1),shots(tshot,2),2
   scale sprite tshot+1,400
   shots(tshot,3)=1
endif
if spacesep>0 then dec spacesep
return

_playercollisions:
p_hit=sprite collision(1,0)
if p_hit>9 and p_hit<20
   dec health,10
   cls rgb(255,0,0)
   sync
endif
if p_hit=21
   delete sprite p_hit
   dec curpu
   if pu_num=10 and bombs<maxbombs then inc bombs,3
   if bombs>maxbombs then bombs=maxbombs
   if pu_num=11 and health<100 then inc health,25
   if health>100 then health=100
endif
return

_bombs:
if bombs>0 and scancode()=48 and bombsep=0
   bombsep=20
   dec bombs
   for i=1 to numenemiesatatime
      delete sprite i+10
      enemies(i,2)=rnd(screenh)
      enemies(i,1)=screenw
      enemies(i,3)=rnd(numenemies-1)+3
      inc killed
   next i
   cls rgb(255,255,0)
   sync
   wait 100
   cls bgcol
   sync
endif
if bombsep>0 then dec bombsep
return

_clouds:
for i=1 to maxclouds
   clouds(i,1)=clouds(i,1)-(e_speed#+clouds(i,3))
   sprite i+24,clouds(i,1),clouds(i,2),5
   if clouds(i,1)<0
      clouds(i,2)=rnd(screenh-(screenh/3))
      clouds(i,1)=screenw
      clouds(i,3)=(rnd(3)+1)/4
   endif
   scale sprite i+24,400
next i
return

_finishhandle:
if escaped>maxescaped then finishstate=1 : gosub _finish : gosub _resetvariables
if health<=0 then finishstate=2 : gosub _finish : gosub _resetvariables
return

_hud:
ink colors(9),bgcol
text 0,0,"Health: "+str$(health)
text 0,otheight,"Killed: "+str$(killed)
text 0,otheight*2,"Escaped: "+str$(escaped)
if bombs>0 then text 0,otheight*3,"Bombs: "+str$(bombs)
return

_menu:
selecteditem=2
do
cls
theight=0
center text screenw/2,theight,"Dark Shooter"   :  inc theight,otheight*4
if selecteditem=1
   center text screenw/2,theight,">Play<" :  inc theight,otheight*2
else
   center text screenw/2,theight,"Play" :  inc theight,otheight*2
endif
if selecteditem=2
   center text screenw/2,theight,">Help<" :  inc theight,otheight*2
else
   center text screenw/2,theight,"Help" :  inc theight,otheight*2
endif
if upkey() and upbuffer=0 then dec selecteditem : upbuffer=15
if downkey() and downbuffer=0 then inc selecteditem : downbuffer=15
if selecteditem>2 then selecteditem=1
if selecteditem<1 then selecteditem=2
if returnkey()
   if selecteditem=1 then return
   if selecteditem=2 then gosub _help
endif
if downbuffer>0 then dec downbuffer
if upbuffer>0 then dec upbuffer
sync
loop
return

_help:
cls
theight=0
center text screenw/2,theight,"Help"                    :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"In the game, use the up and down arrows to position yourself as you walk",1)   :  inc theight,otheight
printslowly(0,theight,"across the planet.  Use the spacebar to fire lasers at the creatures.",1)   :  inc theight,otheight
printslowly(0,theight,"Since you are supposed to kill all of the creatures, you are only allowed",1)   :  inc theight,otheight
printslowly(0,theight,"to let 9 creatures get past you.  If a creature hits you, you",1)   :  inc theight,otheight
printslowly(0,theight,"lose health.  The object of the game is to kill as many creatures as you can.",1)   :  inc theight,otheight
printslowly(0,theight,"You may come across certain powerups, such as bombs, which clear the room of",1)   :  inc theight,otheight
printslowly(0,theight,"creatures when you press B, and health packs, which raise your health.  Have Fun!",1)   :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"Press any key to continue.",1)   :  inc theight,otheight
wait key
return

_finish:
if finishstate=1 then msg$="You let too many creatures escape!"
if finishstate=2 then msg$="You died!"
for i=1 to maxshots
   if shots(i,3)=1 then delete sprite i+1
   shots(i,3)=0
next i
for i=1 to numenemiesatatime
   delete sprite i+10
next i
for i=1 to maxclouds
   delete sprite i+24
next i
if curpu>0
   delete sprite 21
endif
delete sprite 1
sync
cls 0
sync
theight=0
printslowly(0,theight,msg$,0) :  inc theight,otheight
if killed>0
   if killed=1 then str$="But not before you killed 1 creature!"
   if killed>1 then str$="But not before you killed "+str$(killed)+" creatures!"
   printslowly(0,theight,str$,0)  :  inc theight,otheight
   if killed<10 then str$="Keep trying!"
   if killed>=10 and killed<25 then str$="Good job."
   if killed>=25 and killed<50 then str$="Keep up the good work."
   if killed>=50 and killed<100 then str$="You have the makings of a bounty hunter!"
   if killed>=100 and killed<150 then str$="Excellent job!"
   if killed>=150 then str$="You are AMAZING!"
   printslowly(0,theight,str$,0)  :  inc theight,otheight
endif
sleep 1000
printslowly(0,theight,"Press any key to restart or [ESC] to exit.",0)
wait key
return

`--------------------------------------------------------------------DATA!!!!

end
data_colors:
`data 70,35,0  :`1-dark brownish-black
data 40,40,40  :`1-almost black
data 170,85,0  :`2-light brown
data 253,221,111  :`3-fleshy
data 0,255,128 :`4-bright green
data 0,0,255   :`5-blue
data 128,128,128  :`6-gray
data 255,255,0 :`7-yellow
data 147,130,0  :`8-semi transparent (virtually) yellow
data 255,255,255  :`9-white

data_man:
remstart version 1
data 9,12
data 0,0,2,2,2,2,0,0,0
data 0,0,3,3,3,1,0,0,0
data 0,0,3,3,3,3,0,0,0
data 0,0,0,3,3,0,0,0,0
data 3,4,5,4,4,5,4,0,0
data 3,4,5,4,4,5,4,0,0
data 4,4,5,4,4,5,6,6,6
data 4,4,5,4,4,5,6,3,0
data 3,4,5,4,4,5,4,0,0
data 0,5,5,5,5,5,5,0,0
data 0,5,5,5,5,5,5,0,0
data 1,1,1,0,0,1,1,1,0
data 1,1,1,0,0,1,1,1,0
remend
data 9,12
data 0,2,2,2,2,0,0,0,0
data 0,3,3,3,1,0,0,0,0
data 0,3,3,3,3,0,0,0,0
data 0,0,3,3,0,0,0,0,0
data 4,5,4,4,5,4,0,0,0
data 4,5,4,4,5,6,6,6,6
data 4,5,4,4,5,6,3,0,3
data 4,5,4,4,5,4,0,0,0
data 5,5,5,5,5,5,0,0,0
data 5,5,5,5,5,5,0,0,0
data 1,1,1,0,1,1,1,0,0
data 1,1,1,0,1,1,1,0,0

data_shot:
data 6,3
data 0,0,8,8,8,0
data 8,7,7,7,7,8
data 0,0,8,8,8,0

data_enemy_eye:
data 9,9
data 0,0,0,4,4,4,0,0,0
data 0,4,4,0,0,0,4,4,0
data 0,4,0,0,0,2,0,4,0
data 4,9,9,0,2,0,0,0,4
data 4,1,9,0,0,2,2,0,4
data 4,9,9,0,0,0,0,2,4
data 0,4,0,0,2,2,0,4,0
data 0,4,4,2,0,0,4,4,0
data 0,0,0,4,4,4,0,0,0

data_enemy_bat:
data 15,4
data 0,1,1,1,1,0,1,1,1,0,1,1,1,1,0
data 1,0,0,0,0,1,5,1,5,1,0,0,0,0,1
data 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0
data 0,0,0,0,0,0,9,0,9,0,0,0,0,0,0

data_cloud1:
data 14,7
data 0,0,0,0,0,0,9,9,9,9,0,0,0,0
data 0,0,0,0,9,9,9,9,6,9,9,0,0,0
data 0,0,9,9,9,9,6,9,9,6,9,0,0,0
data 0,0,9,9,9,6,9,9,9,9,6,9,0,0
data 0,9,9,6,6,9,9,6,6,6,9,9,6,0
data 9,9,9,9,9,9,9,9,9,9,9,9,9,6
data 0,6,6,6,0,6,6,6,0,6,6,6,6,0

`---------------------------------------------------------------------------------FUNCTIONS

function printslowly(x,y,fullstr$,exitonkeypress)
ink rgb(0,255,0),0
`set text size,
for i = 1 to len(fullstr$)
   if scancode()>0 and exitonkeypress
      text x,y,fullstr$
      exitfunction
   endif

   text x,y,left$(fullstr$,i)

   if scancode()>0 and exitonkeypress
      text x,y,fullstr$
      exitfunction
   endif

   sleep 100

   if scancode()>0 and exitonkeypress
      text x,y,fullstr$
      exitfunction
   endif
next i
endfunction

function hsv(h#,s#,v#)
i=0
f#=0
p#=0
q#=0
t#=0

if s#=0.0
   exitfunction rgb(v#*255,v#*255,v#*255)
endif
h#=h#/60.0
i=int(h#)
f#=h#-i
p#=v#*(1.0-s#)
q#=v#*(1.0-s#*f#)
t#=v#*(1.0-s#*(1.0-f#))

select i
   case 0
      exitfunction rgb(v#*255,t#*255,p#*255)
   endcase
   case 1
      exitfunction rgb(q#*255,v#*255,p#*255)
   endcase
   case 2
      exitfunction rgb(p#*255,v#*255,t#*255)
   endcase
   case 3
      exitfunction rgb(p#*255,q#*255,v#*255)
   endcase
   case 4
      exitfunction rgb(t#*255,p#*255,v#*255)
   endcase
   case default
      exitfunction rgb(v#*255,p#*255,q#*255)
   endcase
endfunction 0

`=========================================
`========Alex's Gold catching game========
`=======DarkBASIC Coding Challenges=======
`=========================================
level=1
sync on
`the menu
gosub imagemaking
menu:
cls
ink rgb(0,0,255),0
box 0,0,639,479
set text size 70
set text font "impact"
ink rgb(255,200,0),0
center text 320,50,"Gold Catching II"
set text size 20
ink rgb(200,145,0),0
center text 320,120,"By INH (With lots of assistance from LBFN)"
box 260,170,380,240

box 260,270,380,340
ink rgb(0,0,0),0
set text size 60
center text 320,175,"Play"
set text size 30
center text 320,275,"How to play"
set text size 20
center text 320,310,"(Read this first)"
sync on
do
if mousex()>260 and mousey()>170 and mousex()<380 and mousey()<240 and mouseclick()=1 then goto game
if mousex()>260 and mousey()>270 and mousex()<380 and mousey()<340 and mouseclick()=1 then gosub help
sprite 2,0,bp,2
sprite 3,60,bp,6
sprite 4,610,bp,2
sprite 5,550,bp,5
bp=bp+5 
if bp>480 then bp=0
sprite 1,mp,400,1
if left=0 then mp=mp+3
if left=1 then mp=mp-3
if mp>600 then left=1
if mp<5 then left=0
sync
loop
help:
delete sprite 2
delete sprite 3
delete sprite 4
delete sprite 5
cls
ink rgb(50,50,50),0
box 0,0,639,479
ink rgb(200,200,200),0
set text size 60
center text 320,0,"Help"
set text size 20
center text 320,60,"You take the role of Bob Less. He and his wife Penny are in huge debt and need quick cash. One"
center text 320,80,"day while Bob is working in the warehouse, boxes full of gold start to rain from the ceiling."
center text 320,100,"This is exactly what Bob and Penny need. Each box is worth £10,000!"
center text 320,140,"Move Bob with the mouse. Forty-five boxes will rain from the ceiling, and you need £300,000 to get"
center text 320,160,"On to the next level. Be warned! On each new level the boxes drop faster!"
center text 320,180,"Sometimes small white and red powerups will appear. Collect them and the boxes will slow down."
center text 320,220,"Other times take a chance boxes (TAC) with rain from the sky. They might give you money, or they"
center text 320,200,"Bill boxes will come down too. These will minus £10000 from you."
center text 320,240,"Might be a bill!"
center text 320,260,"As you progress through the levels you will come across special levels. The added rules for these"
center text 320,280,"will be explained then."
center text 320,300,"Press space to go back."
do
if spacekey()=1 then cls : goto menu
sync
loop


game:
cls
delete sprite 3
delete sprite 4
delete sprite 5
delete sprite 1
hide mouse
`main loop
powerup=level+9
ispt=100000
boxslow=-1
ink rgb(70,50,20),0
box 0,300,639,479
ink rgb(50,30,0),0
box 0,0,639,300
ink rgb(100,100,255),0
box 0,0,60,49
box 300,0,639,49
ink rgb(0,0,0),0
get image 999,0,0,70,60
sprite 10,60,0,10
sn=50
gsp=60
do
set cursor 0,0
print "Gold - o -"
set cursor 0,25
print "£",score
set cursor 400,0
print "You are on Level ",level

`man
position mouse mousex(),350
sprite 1,mousex(),mousey(),1
gosub gold
gosub powerups
gosub bills
gosub tac
gosub weights
sync
loop


`man
gold:
if sp=1 then byp=byp+powerup : sprite 2,c,byp,2
if sp=0 then c=rnd(600) : sprite 2,c,0,2 : sp=1
if byp>350 then sp=0 : gosub check
if goes=40 then sync off : gosub finish
return
powerups:
itap=rnd(100)
if itap=5 and boxslow<0 then pp=rnd(600) : sprite 3,pp,0,3 : ipst=0
ipst=ipst+20
if ipst>370 then ipst=1000 : delete sprite 3
if ipst<1000 then sprite 3,pp,ipst,3
if mousex()>pp-25 and mousex()<pp+25 and ipst>300 and ipst<1000 then powerup=5 : boxslow=200 : delete sprite 3 : ipst=1000
boxslow=boxslow-1
if boxslow=0 then powerup=10
return
bills:
if billthere=0 and gsp>=70 then billbe=rnd(100)
if billbe=1 then billthere=1 : bpp=rnd(600) : billbe=0
if billthere=1 then bppp=bppp+powerup : sprite 5,bpp,bppp,5
if bppp>350 then billthere=0 : delete sprite 5 : gosub checkbills
return
tac:
if tacthere=0 and gsp>=70 then tacbe=rnd(100)
if tacbe=1 then tacthere=1 : tpp=rnd(600) : tacbe=0
if tacthere=1 then tppp=tppp+powerup : sprite 6,tpp,tppp,6
if tppp>350 then tacthere=0 : delete sprite 6 : gosub checktac
return
weights:
if wthere=0 then wbe=rnd(100)
if wbe=1 then wthere=1 : wpp=rnd(600) : wbe=0
if wthere=1 then wppp=wppp+powerup : sprite 7,wpp,wppp,7
if wppp>350 then wthere=0 : delete sprite 7 : gosub checkw
return
`check
check:
goes=goes+1
if c>mousex() and c<mousex()+54 
score=score+10000 : paste image 999,0,0 : sprite sn,gsp,25,11 : sn=sn+1 : gsp=gsp+10
endif
byp=0

return
checkbills:
if bpp>mousex() and bpp<mousex()+54 then score=score-10000 : paste image 999,0,0 : sn=sn-1 : delete sprite sn : gsp=gsp-10



bppp=0
return

checktac:
wwib=50
if tpp>mousex() and tpp<mousex()+54 then wwib=rnd(1)
if wwib=0 then score=score-10000 : sn=sn-1 : delete sprite sn : gsp=gsp-10
if wwib=1 then score=score+10000 : paste image 999,0,0 : sprite sn,gsp,25,11 : sn=sn+1 : gsp=gsp+10




wait 1*10
paste image 999,0,0
tppp=0
return

checkw:
if wpp>mousex()-54 and wpp<mousex()+54 
sync off
for d=1 to 999
if sprite exist(d) then delete sprite d
next d
for d=1 to 999
if sprite exist(d) then delete sprite d
next d
cls
ink rgb(255,255,255),0
sprite 9,mousex(),350,9
sync off
set cursor 200,80
ink rgb(255,255,255),0
score=0
goes=0
wppp=100000
sn=11
print "Oh dear, Bob was crushed. Play again?(y/n)"
sync on
set cursor 0,0
do
if inkey$()="y" then delete sprite 9 : wpp=0 : wppp=0 : goto game
if inkey$()="n" then end
sync
loop
endif
wppp=0
return

finish:
sn=11
sync off
for d=1 to 999
if sprite exist(d) then delete sprite d
next d
for d=1 to 999
if sprite exist(d) then delete sprite d
next d
cls
box 0,0,639,479
set cursor 240,50
ink rgb(255,255,255),0
print "You scored £",score,"!"
set cursor 100,65
if score<300000 then print "That is not enough to get you out of debt, but you got to level",level,". You need another £",300000-score,". Try again?(y/n)" : level=1
set cursor 40,65
if score>=300000 then print "That is enough to get you on to the next level, with an extra £",score-300000,"! Play next level?(y/n)" : level=level+1
set cursor 250,80
score=0
goes=0
sync on
do
set cursor 0,0
if inkey$()="y" then cls : goto game
if inkey$()="n" then end
loop






















`MAKE IMAGES
imagemaking:
`make deadbob
ink rgb(10,10,10),0
for t=0 to 6
circle 30,14,t
next t
ink rgb(255,200,200),0
for t=0 to 6
circle 30,16,t
next t
ink rgb(40,40,40),0
box 27,15,27,15
box 28,16,28,16
box 26,16,26,16
box 28,14,28,14
box 26,14,26,14
box 32,15,32,15
box 31,14,31,14
box 31,16,31,16
box 33,14,33,14
box 33,16,33,16
box 29,19,31,20
ink rgb(0,0,200),0
box 22,23,38,28
ink rgb(50,200,200),0
box 22,29,38,32
box 22,32,28,38
box 32,32,38,38
ink rgb(255,200,200),0
box 38,23,42,27
box 18,23,22,27
get image 9,0,0,54,66,9
cls



`make weights
ink rgb(100,100,100),0
circle 20,20,10
circle 20,20,12
circle 20,20,13
box 0,20,40,60
ink rgb(255,255,255),0
set cursor 10,20
print "10"
set cursor 4,35
print "Tons"
get image 7,0,0,40,60
cls


`make powerups
for p=0 to 7
circle 10,10,p
if p=2 then ink rgb(255,255,255),0
next p
get image 3,0,0,50,50
cls

`make the little man
ink rgb(10,10,10),0
for t=0 to 6
circle 30,14,t
next t
ink rgb(255,200,200),0
for t=0 to 6
circle 30,16,t
next t
ink rgb(40,40,40),0
box 27,12,28,13
box 32,12,33,13
box 29,16,31,18
ink rgb(0,0,200),0
box 22,23,38,41
ink rgb(50,200,200),0
box 22,41,38,46
box 22,46,28,66
box 32,46,38,66
ink rgb(255,200,200),0
box 38,23,54,27
box 6,23,22,27
get image 1,0,0,54,66
cls



`make the boxes
ink rgb(160,100,50),0
box 0,0,30,30
ink rgb(190,140,50),0
box 3,3,27,27
ink rgb(10,10,10),0
set cursor 0,7
print "Gold"
get image 2,0,0,30,30
cls

`make take a chances
ink rgb(160,100,50),0
box 0,0,30,30
ink rgb(190,140,50),0
box 3,3,27,27
ink rgb(0,250,0),0
set cursor 2,7
print "TAC"
get image 6,0,0,30,30
cls

`make bills
ink rgb(160,100,50),0
box 0,0,30,30
ink rgb(190,140,50),0
box 3,3,27,27
ink rgb(200,0,0),0
set cursor 3,7
print "Bill"
get image 5,0,0,30,30
cls


`make hud
ink rgb(100,100,255),0
box 0,0,300,50
ink rgb(10,10,10),0
print "Meter 2000"
set cursor 296,25
ink rgb(255,10,10),0
print "\/"
get image 10,0,0,310,50
cls

`make yellowpart
ink rgb(10,4,4),0
box 0,0,10,25
ink rgb(255,255,4),0
box 1,1,8,24

get image 11,0,0,10,25
cls
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
`------------------------------------
DO
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) < 10 then Jwater= 0 : inc Bgrowth,1

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 5,5,5,5,5,5,5
data 0,2,5,5,5,2,0
data 0,0,5,5,5,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 METAL BUCKET :P (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 5,4,4,4,4,4,5
data 0,2,5,5,5,2,0
data 0,0,5,5,5,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
`------------------------------------
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 Ry,20
   else
      if Ri<7 then inc Ri,1 else hide sprite 3 : rain=0 : `splash
   endif
endif
RETURN

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

Info:
ink 100,0
box 0,0,200,60
ink rgb(255,255,255),0
set cursor 0,0
print "Water in Jack's bucket: "; Jwater; "/5"
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

`------------------------------------
` 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
`------------------------------------
DO
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 print "END OF LEVEL 1!" : 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 5,5,5,5,5,5,5
data 0,2,5,5,5,2,0
data 0,0,5,5,5,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 5,4,4,4,4,4,5
data 0,2,5,5,5,2,0
data 0,0,5,5,5,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
`------------------------------------
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 Ry,15
   else
      if Ri<7 then inc Ri,1 else hide sprite 3 : rain=0 : `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 15
   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,0
print "Water in Jack's bucket: "; Jwater; "/5"
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

`------------------------------------
` 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
`------------------------------------
DO
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 print "END OF LEVEL 1!" : 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 5,5,5,5,5,5,5
data 0,2,5,5,5,2,0
data 0,0,5,5,5,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 5,4,4,4,4,4,5
data 0,2,5,5,5,2,0
data 0,0,5,5,5,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
`------------------------------------
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 Ry,15
   else
      if Ri<7 then inc Ri,1 else hide sprite 3 : rain=0 : `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 15
   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,0
print "Water in Jack's bucket: "; Jwater; "/5"
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

`Dark Shooter
`aka
`Nick's Shooting Game

`-----------------editable variables-------------------

`change when adding things to game
numcolors = 9              :`change when adding more colors for more images
numdrawings = 5            :`change when adding more images
numenemies = 2             :`change when adding more enemy drawings

`change to config game
numenemiesatatime = 3      :`max enemies on the screen at a time - up to 9
maxpowerupsatatime = 1     :`max powerups floating at a time - you'll usually want this at 1
maxshots = 8               :`max shots on the screen - up to 8
initialenemyspeed# = 1.5   :`initial speed enemies move at - up this to make it faster
maxescaped=9               :`max to let escape - if more than this escape the game is over
maxbombs=9                 :`maximum number of bombs the player can have
maxclouds=3                :`maximum number of clouds on screen

sync on
hide mouse
screenh=screen height()
screenw=screen width()

`intro
otheight=text height("A")
theight=0
hide all sprites
cls 0
ink rgb(255,255,255),0
center text 176,theight,"Log of Argus Jiba, June 29, 3980"                    :  inc theight,otheight*2
printslowly(0,theight,"I was on my way to investigate an emergency signal",1)   :  inc theight,otheight
printslowly(0,theight,"eminating from a planet in Sector 359 when my right",1)  :  inc theight,otheight
printslowly(0,theight,"thruster lost power, sending me on a new trajectory.",1) :  inc theight,otheight*2
sleep 600
printslowly(0,theight,"Though I fought to keep the craft straight, I lost",1)   :  inc theight,otheight
printslowly(0,theight,"control and the spaceship crashed onto an uninhabited",1):  inc theight,otheight
printslowly(0,theight,"planet somewhere in Sector 298.",1)                      :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"At least, I thought it was uninhabited...",1)            :  inc theight,otheight*2
sleep 400
printslowly(0,theight,"As I walked away from the wreckage of my ship, I came",1):  inc theight,otheight
printslowly(0,theight,"upon some strange creatures that immediately tried to",1):  inc theight,otheight
printslowly(0,theight,"eat me.  I used the remaining power in my ship's",1):  inc theight,otheight
printslowly(0,theight,"crushed generator to charge my laser pistol and get in",1):  inc theight,otheight
printslowly(0,theight,"contact with Headquarters.  I relayed the information",1):  inc theight,otheight
printslowly(0,theight,"about the creatures, and received an answer just as my",1):  inc theight,otheight
printslowly(0,theight,"generator lost power:",1)                                :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"ARGUS - DESTROY ALL ORGANISMS ON PLANET.",1)             :  inc theight,otheight*2
sleep 800
printslowly(0,theight,"And so, I set out on the unknown planet with nothing",1) :  inc theight,otheight
printslowly(0,theight,"but my trusty laser pistol...",1)                        :  inc theight,otheight*3
sleep 800
center text 176,theight,"PRESS ANY KEY TO START"
wait key
gosub _menu

gosub _setup
gosub _resetvariables

do
  cls
  gosub _background
  gosub _clouds
  gosub _enemies
  gosub _powerups
  gosub _movement
  gosub _shots
  gosub _playercollisions
  gosub _bombs
  gosub _finishhandle
  gosub _hud
  sync
loop

`----------------------------------------------------------------------GOSUBS!!!

_setup:
  cls
  center text screenw/2,screenh/2,"LOADING..."
  dim colors(numcolors)
  bgcol = hsv(36.0,1.0,0.28)

  restore data_colors
  for i=1 to numcolors
    read r,g,b
    colors(i)=rgb(r,g,b)
  next i

  `background
  create bitmap 1,512,512
  cls hsv(36.0,1.0,0.28)
  for i=1 to 50000
    ink hsv(36.0,1.0,0.21+(rnd(14)/100)),0
    dot rnd(512),rnd(512)
  next i
  blur bitmap 1,1
  get image 100,0,0,512,512
  delete bitmap 1
  create bitmap 1,screenw+1024,screenh+512
  cls hsv(36.0,1.0,0.28)
  for i=0 to screenw+1024 step 512
    for j=0 to screenh+512 step 512
      paste image 100,i,j
    next j
  next i
  get image 101,0,0,screenw+1024,screenh+512
  delete bitmap 1

  for drawings = 1 to numdrawings
    select drawings
      case 1
        restore data_man
      endcase
      case 2
        restore data_shot
      endcase
      case 3
        restore data_enemy_eye
      endcase
      case 4
        restore data_enemy_bat
      endcase
      case 5
        restore data_cloud1
      endcase
      case default
        end
      endcase
    endselect
    read tox,toy
    create bitmap 1,tox+1,toy+1
    set current bitmap 1
    cls 0
    for y=1 to toy
      for x=1 to tox
        read colnum
        ink colors(colnum),bgcol
        dot x,y
      next x
    next y
    get image drawings,1,1,tox+1,toy+1
    delete bitmap 1
  next drawings

  `generate powerup sprites (so simple they can be drawn)

  `bomb
  cls 0
  tlength = text height("B")+5
  midtlength = tlength/2
  ink colors(3),0
  circle midtlength,midtlength,midtlength-1
  ink colors(9),0
  center text midtlength,midtlength-(text height("B")/2),"B"
  get image 10,0,0,tlength,tlength

  `health
  cls 0
  tlength = text height("+")+5
  midtlength = tlength/2
  ink colors(9),0
  circle midtlength,midtlength,midtlength-1
  ink rgb(255,0,0),0
  center text midtlength,midtlength-(text height("+")/2),"+"
  get image 11,0,0,tlength,tlength

  for i=1 to numenemiesatatime
    enemies(i,2)=rnd(screenh)
    enemies(i,1)=screenw
    enemies(i,3)=rnd(numenemies-1)+3
  next i
return

_resetvariables:
  Dim enemies(numenemiesatatime,3) :`1=x 2=y 3=type (3-eye or 4-bat)
  Dim shots(maxshots,3)   :`1=x 2=y 3=on/off
  Dim clouds(maxclouds,3) :`1=x 2=y 3=speed
  p_y=screenh/2
  curshots=0
  curpu=0
  health=100
  escaped=0
  killed=0
  bombs=0
  bg_x = 0
  pu_x = screenw
  pu_y = rnd(screenh)
  pu_num=10
  finishstate=0
  e_speed#=initialenemyspeed#
  for i=1 to numenemiesatatime
    enemies(i,2)=rnd(screenh)
    enemies(i,1)=screenw
    enemies(i,3)=rnd(numenemies-1)+3
  next i
  for i=1 to maxclouds
    clouds(i,2)=rnd(screenh-(screenh/3))
    clouds(i,1)=screenw-rnd(screenw/2)
    clouds(i,3)=clouds(i,3)=(rnd(3)+1)/4
  next i
  gosub _drawinitial
return

_drawinitial:
  set current bitmap 0
  cls bgcol
  sprite 1,0,p_y,1
  scale sprite 1,400
return

_background:
  dec bg_x, e_speed#
  if bg_x<-512 then bg_x=0
  paste image 101,bg_x,0
return

_enemies:
  for i=1 to numenemiesatatime
    enemies(i,1)=enemies(i,1)-e_speed#
    sprite i+10,enemies(i,1),enemies(i,2),enemies(i,3)
    if enemies(i,1)<0
      inc escaped
      enemies(i,2)=rnd(screenh)
      enemies(i,1)=screenw
      enemies(i,3)=rnd(numenemies-1)+3
    endif
    scale sprite i+10,400
  next i
  inc e_speed#,0.001
return

_powerups:
  if curpu<maxpowerupsatatime
    r=rnd(1000)
    if r=1
      pu_num=10
      inc curpu
      pu_x = screenw
      pu_y = rnd(screenh)
      sprite 21,pu_x,pu_y,pu_num
      scale sprite 21,200
    endif
    if r=2
      pu_num=11
      inc curpu
      pu_x = screenw
      pu_y = rnd(screenh)
      sprite 21,pu_x,pu_y,pu_num
      scale sprite 21,200
    endif
  endif
  if curpu>0
    dec pu_x,5
    sprite 21,pu_x,pu_y,pu_num
  endif
  if pu_x<0
    delete sprite 21
    dec curpu
  endif
return

_movement:
  if upkey() then dec p_y,5
  if downkey() then inc p_y,5
  if p_y>screenh then p_y=screenh
  if p_y<-40 then p_y=-40
  sprite 1,0,p_y,1
return

_shots:
  if curshots>0
    for i=1 to maxshots
      if shots(i,3)=1
        shots(i,1)=shots(i,1)+5
        if shots(i,1) < screenw
          sprite i+1,shots(i,1),shots(i,2),2
          s_hit=sprite collision(i+1,0)
          if s_hit>9 and s_hit<20
            delete sprite i+1
            shots(i,3)=0
            delete sprite s_hit
            inc killed
            dec curshots
            enemies(s_hit-10,2)=rnd(screenh)
            enemies(s_hit-10,1)=screenw
            enemies(s_hit-10,3)=rnd(numenemies-1)+3
          endif
        else
          delete sprite i+1
          shots(i,3)=0
          dec curshots
        endif
      endif
    next i
  endif
  if spacekey() and spacesep=0 and curshots<maxshots
    inc curshots
    spacesep=15
    for i=1 to maxshots
      if shots(i,3)=0
        tshot=i
        exit
      endif
    next i
    shots(tshot,2)=p_y+16
    shots(tshot,1)=36
    sprite tshot+1,shots(tshot,1),shots(tshot,2),2
    scale sprite tshot+1,400
    shots(tshot,3)=1
  endif
  if spacesep>0 then dec spacesep
return

_playercollisions:
  p_hit=sprite collision(1,0)
  if p_hit>9 and p_hit<20
    dec health,10
    cls rgb(255,0,0)
    sync
  endif
  if p_hit=21
    delete sprite p_hit
    dec curpu
    if pu_num=10 and bombs<maxbombs then inc bombs,3
    if bombs>maxbombs then bombs=maxbombs
    if pu_num=11 and health<100 then inc health,25
    if health>100 then health=100
  endif
return

_bombs:
  if bombs>0 and scancode()=48 and bombsep=0
    bombsep=20
    dec bombs
    for i=1 to numenemiesatatime
      delete sprite i+10
      enemies(i,2)=rnd(screenh)
      enemies(i,1)=screenw
      enemies(i,3)=rnd(numenemies-1)+3
      inc killed
    next i
    cls rgb(255,255,0)
    sync
    wait 100
    cls bgcol
    sync
  endif
  if bombsep>0 then dec bombsep
return

_clouds:
  for i=1 to maxclouds
    clouds(i,1)=clouds(i,1)-(e_speed#+clouds(i,3))
    sprite i+24,clouds(i,1),clouds(i,2),5
    if clouds(i,1)<0
      clouds(i,2)=rnd(screenh-(screenh/3))
      clouds(i,1)=screenw
      clouds(i,3)=(rnd(3)+1)/4
    endif
    scale sprite i+24,400
  next i
return

_finishhandle:
  if escaped>maxescaped then finishstate=1 : gosub _finish : gosub _resetvariables
  if health<=0 then finishstate=2 : gosub _finish : gosub _resetvariables
return

_hud:
  ink colors(9),bgcol
  text 0,0,"Health: "+str$(health)
  text 0,otheight,"Killed: "+str$(killed)
  text 0,otheight*2,"Escaped: "+str$(escaped)
  if bombs>0 then text 0,otheight*3,"Bombs: "+str$(bombs)
return

_menu:
  selecteditem=2
  do
    cls
    theight=0
    center text screenw/2,theight,"Dark Shooter"   :  inc theight,otheight*4
    if selecteditem=1
      center text screenw/2,theight,">Play<" :  inc theight,otheight*2
    else
      center text screenw/2,theight,"Play" :  inc theight,otheight*2
    endif
    if selecteditem=2
      center text screenw/2,theight,">Help<" :  inc theight,otheight*2
    else
      center text screenw/2,theight,"Help" :  inc theight,otheight*2
    endif
    if upkey() and upbuffer=0 then dec selecteditem : upbuffer=15
    if downkey() and downbuffer=0 then inc selecteditem : downbuffer=15
    if selecteditem>2 then selecteditem=1
    if selecteditem<1 then selecteditem=2
    if returnkey()
      if selecteditem=1 then return
      if selecteditem=2 then gosub _help
    endif
    if downbuffer>0 then dec downbuffer
    if upbuffer>0 then dec upbuffer
    sync
  loop
return

_help:
  cls
  theight=0
  center text screenw/2,theight,"Help"                    :  inc theight,otheight*2
  sleep 800
  printslowly(0,theight,"In the game, use the up and down arrows to position yourself as you walk",1)   :  inc theight,otheight
  printslowly(0,theight,"across the planet.  Use the spacebar to fire lasers at the creatures.",1)   :  inc theight,otheight
  printslowly(0,theight,"Since you are supposed to kill all of the creatures, you are only allowed",1)   :  inc theight,otheight
  printslowly(0,theight,"to let 9 creatures get past you.  If a creature hits you, you",1)   :  inc theight,otheight
  printslowly(0,theight,"lose health.  The object of the game is to kill as many creatures as you can.",1)   :  inc theight,otheight
  printslowly(0,theight,"You may come across certain powerups, such as bombs, which clear the room of",1)   :  inc theight,otheight
  printslowly(0,theight,"creatures when you press B, and health packs, which raise your health.  Have Fun!",1)   :  inc theight,otheight*2
  sleep 800
  printslowly(0,theight,"Press any key to continue.",1)   :  inc theight,otheight
  wait key
return

_finish:
  if finishstate=1 then msg$="You let too many creatures escape!"
  if finishstate=2 then msg$="You died!"
  for i=1 to maxshots
    if shots(i,3)=1 then delete sprite i+1
    shots(i,3)=0
  next i
  for i=1 to numenemiesatatime
    delete sprite i+10
  next i
  for i=1 to maxclouds
    delete sprite i+24
  next i
  if curpu>0
    delete sprite 21
  endif
  delete sprite 1
  sync
  cls 0
  sync
  theight=0
  printslowly(0,theight,msg$,0) :  inc theight,otheight
  if killed>0
    if killed=1 then msg$="But not before you killed 1 creature!"
    if killed>1 then msg$="But not before you killed "+str$(killed)+" creatures!"
    printslowly(0,theight,str$,0)  :  inc theight,otheight
    if killed<10 then msg$="Keep trying!"
    if killed>=10 and killed<25 then msg$="Good job."
    if killed>=25 and killed<50 then msg$="Keep up the good work."
    if killed>=50 and killed<100 then msg$="You have the makings of a bounty hunter!"
    if killed>=100 and killed<150 then msg$="Excellent job!"
    if killed>=150 then msg$="You are AMAZING!"
    printslowly(0,theight,msg$,0)  :  inc theight,otheight
  endif
  sleep 1000
  printslowly(0,theight,"Press any key to restart or [ESC] to exit.",0)
  wait key
return

`--------------------------------------------------------------------DATA!!!!

end
data_colors:
data 40,40,40  :`1-almost black
data 170,85,0  :`2-light brown
data 253,221,111  :`3-fleshy
data 0,255,128 :`4-bright green
data 0,0,255   :`5-blue
data 128,128,128  :`6-gray
data 255,255,0 :`7-yellow
data 147,130,0  :`8-semi transparent (virtually) yellow
data 255,255,255  :`9-white

data_man:
remstart version 1
data 9,12
data 0,0,2,2,2,2,0,0,0
data 0,0,3,3,3,1,0,0,0
data 0,0,3,3,3,3,0,0,0
data 0,0,0,3,3,0,0,0,0
data 3,4,5,4,4,5,4,0,0
data 3,4,5,4,4,5,4,0,0
data 4,4,5,4,4,5,6,6,6
data 4,4,5,4,4,5,6,3,0
data 3,4,5,4,4,5,4,0,0
data 0,5,5,5,5,5,5,0,0
data 0,5,5,5,5,5,5,0,0
data 1,1,1,0,0,1,1,1,0
data 1,1,1,0,0,1,1,1,0
remend
data 9,12
data 0,2,2,2,2,0,0,0,0
data 0,3,3,3,1,0,0,0,0
data 0,3,3,3,3,0,0,0,0
data 0,0,3,3,0,0,0,0,0
data 4,5,4,4,5,4,0,0,0
data 4,5,4,4,5,6,6,6,6
data 4,5,4,4,5,6,3,0,3
data 4,5,4,4,5,4,0,0,0
data 5,5,5,5,5,5,0,0,0
data 5,5,5,5,5,5,0,0,0
data 1,1,1,0,1,1,1,0,0
data 1,1,1,0,1,1,1,0,0

data_shot:
data 6,3
data 0,0,8,8,8,0
data 8,7,7,7,7,8
data 0,0,8,8,8,0

data_enemy_eye:
data 9,9
data 0,0,0,4,4,4,0,0,0
data 0,4,4,0,0,0,4,4,0
data 0,4,0,0,0,2,0,4,0
data 4,9,9,0,2,0,0,0,4
data 4,1,9,0,0,2,2,0,4
data 4,9,9,0,0,0,0,2,4
data 0,4,0,0,2,2,0,4,0
data 0,4,4,2,0,0,4,4,0
data 0,0,0,4,4,4,0,0,0

data_enemy_bat:
data 15,4
data 0,1,1,1,1,0,1,1,1,0,1,1,1,1,0
data 1,0,0,0,0,1,5,1,5,1,0,0,0,0,1
data 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0
data 0,0,0,0,0,0,9,0,9,0,0,0,0,0,0

data_cloud1:
data 14,7
data 0,0,0,0,0,0,9,9,9,9,0,0,0,0
data 0,0,0,0,9,9,9,9,6,9,9,0,0,0
data 0,0,9,9,9,9,6,9,9,6,9,0,0,0
data 0,0,9,9,9,6,9,9,9,9,6,9,0,0
data 0,9,9,6,6,9,9,6,6,6,9,9,6,0
data 9,9,9,9,9,9,9,9,9,9,9,9,9,6
data 0,6,6,6,0,6,6,6,0,6,6,6,6,0

`---------------------------------------------------------------------------------FUNCTIONS

function printslowly(x,y,fullstr$,exitonkeypress)
  ink rgb(0,255,0),0
  `set text size,
  for i = 1 to len(fullstr$)
    if scancode()>0 and exitonkeypress
      text x,y,fullstr$
      exitfunction
    endif

    text x,y,left$(fullstr$,i)

    if scancode()>0 and exitonkeypress
      text x,y,fullstr$
      exitfunction
    endif

    sleep 100

    if scancode()>0 and exitonkeypress
      text x,y,fullstr$
      exitfunction
    endif
  next i
endfunction

function hsv(h#,s#,v#)
  i=0
  f#=0
  p#=0
  q#=0
  t#=0

  if s#=0.0
    exitfunction rgb(v#*255,v#*255,v#*255)
  endif
  h#=h#/60.0
  i=int(h#)
  f#=h#-i
  p#=v#*(1.0-s#)
  q#=v#*(1.0-s#*f#)
  t#=v#*(1.0-s#*(1.0-f#))

  select i
    case 0
      exitfunction rgb(v#*255,t#*255,p#*255)
    endcase
    case 1
      exitfunction rgb(q#*255,v#*255,p#*255)
    endcase
    case 2
      exitfunction rgb(p#*255,v#*255,t#*255)
    endcase
    case 3
      exitfunction rgb(p#*255,q#*255,v#*255)
    endcase
    case 4
      exitfunction rgb(t#*255,p#*255,v#*255)
    endcase
    case default
      exitfunction rgb(v#*255,p#*255,q#*255)
    endcase
  endselect
endfunction 0