Sorry your browser is not supported!

Remstart
Underwater Entry
Made by Sinani201
~The DB Classic Programming Challenge Thread~
remend

Set Display Mode 800,600,16
cls 0 : sync
hide mouse
print "Welcome to Sinani201's UnderWater... thing"
print "Use the arrow keys to move and space to shoot"
print "If you run out of air, you lose!"
print "You are the green guy, and your enemies are purple. Shoot as many as you can before you lose!"
print "If you get hit then you lose."
print "Good luck!"
print "Press any key to start"
wait key
cls
printc "Drawing sand..."
`Shore(Sand)
ink RGB(255,215,130),0
box 0,100,100,599
ink 0,0
remstart
`Draw random dots in the sand
for y=100 to 599
  for x=1 to 100
    draw=rnd(32)
    if draw=24 then dot x,y
  next x
next y
ink RGB(255,255,255),0
remend
`Draw water
ink RGB(75,185,225),0
box 101,150,799,599
ink 0,0
text 0,0,"Drawing sand..."
`Draw your character
ink RGB(0,255,0),0
box 0,0,70,50
box 70,20,90,30
get image 1,0,0,90,50
ink 0,0
box 0,0,90,50
`Draw enemy
create bitmap 3,70,50
ink rgb(170,30,160),0
box 0,0,70,50
set current bitmap 0
ink rgb(255,255,255),0
wait 1000
`Put your character on the screen
air=20
charx=1
chary=50
`MAIN LOOP TIME!!!!
DO : `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  sync
  sprite 1,charx,chary,1
  set text size 20
  text 70,20,"Air: "+str$(air)
  `Control character
  if underwater=1
    if upkey()=1 then sprite 1,charx,chary-speed,1
    if downkey()=1 then sprite 1,charx,chary+speed,1
  endif
  if leftkey()=1 then sprite 1,charx-speed,chary,1
  if rightkey()=1 then sprite 1,charx+speed,chary,1
  if underwater=1
    if spacekey()=1
      if firedbullet=0
        firedbullet=1
        bulletposx=sprite x(1)+sprite width(1)
        bulletposy=sprite y(1)+2
      endif
    endif
  endif
  if firedbullet=1
    speed=4
  else
    speed=2
  endif
  if firedbullet=1
    gosub movebullet
  else
    sleep 1
  endif
  if charx>99
    if changevar=0
      sprite 1,sprite x(1),151,1
      changevar=1
    endif
    underwater=1
  endif
  if underwater=1
    if chary<150 then chary=150
    if charx+sprite width(1)>799 then charx=799
    if charx<101 then charx=101
  endif
  if charx<0 then charx=0
  charx=sprite x(1)
  chary=sprite y(1)
  sprite 1,charx,chary,1
loop

remstart
*****************************************
*****************************************
********Functions and subroutines********
*****************************************
*****************************************
REMEND
movebullet:
  set text size 15
  set text opaque
  ink rgb(255,255,255),RGB(75,185,225)
  inc bulletposx,10
  text bulletposx,bulletposy,"-"
  sleep 1
  text bulletposx,bulletposy," "
  if bulletposx>799 then firedbullet=0
return

remstart
------------------
Underwater
By OBese87
------------------
remend

gosub setup
gosub initialise
gosub intro

END

`-----------------
` GOSUBS
`-----------------
setup:
   set display mode 1024,768,32
   hide mouse
   sync on
   sync rate 0
return
`----
initialise:
   psize=2
return
`----
intro:
   FadePrint(400,0,"UNDERWATER")
   FadePrint(0,30,"We begin our journey at the bottom of the ocean; a world in darkness, where many strange creatures live.")
   FadePrint(0,48,"You will control the fate of one small organism, avoid predators and hunt prey and your organism will grow.")
   FadePrint(0,66,"Eventually your organism will grow so large that it will need to leave the sea bed in order to find enough food.")
   FadePrint(0,84,"Good luck...")
return

`------------------
` FUNCTIONS
`------------------
Function FadePrint(x,y,a$)
   `fade from black to white (multiply 255 by length of string to make sure each character becomes white)
   for br = 0 to 255*len(a$) step len(a$)*0.6
      CharSpace=0 :`reset cursor to start position

      for c = 1 to len(a$)
         CharSpace = CharSpace + text width(mid$(a$,c-1)) :`move cursor to next character position

         con=br/c :`get brightness of ink
         if con>255 then con=255 :`don't let rgb loop
         ink rgb(con,con,con),0

         text x+CharSpace,y,mid$(a$,c)
      next c

      sync :`refresh screen
   next br
Endfunction

xlength#=20
xinc#=xlength#/3
yht#=8
yinc#=yht#/8
zdepth#=4

dim verts#(23,2)
v=-1
for y=0 to 2
   for x=0 to 3
      inc v
      verts#(v,0)=x*xinc#
      verts#(v,1)=y*yinc#
      verts#(v,2)=2
   next x
next y

`%%%%%%%%%%%%%%%%%%
` Underwater
` By OBese87
`%%%%%%%%%%%%%%%%%%
gosub setup
gosub initialise
gosub intro
gosub menu

`# Main Loop
DO
   `input
   u=upkey():d=downkey():l=leftkey():r=rightkey()

   `process input
   PlayerX = curvevalue(PlayerX + (r-l)*PlayerSpeed, PlayerX, 10)
   PlayerY = curvevalue(PlayerY + (d-u)*PlayerSpeed, PlayerY, 10)
   `bind player position
   if PlayerX - PlayerSize/2 < 20 then PlayerX = 20 + PlayerSize/2
   if PlayerX + PlayerSize/2 > 1004 then PlayerX = 1004 - PlayerSize/2
   if PlayerY - PlayerSize/2 < 20 then PlayerY = 20 + PlayerSize/2
   if PlayerY + PlayerSize/2 > 748 then PlayerY = 748 - PlayerSize/2

   `player breathing
   breath=wrapvalue(breath+1)
   Respire#=sin(breath)*(PlayerSize/4.)

   `draw player
   ink 255,0
   for d = 0 to PlayerSize + Respire#
      circle PlayerX,PlayerY,d
      circle PlayerX+1,PlayerY,d : `fiddle circle for opaqueness
   next d

   sync:cls
LOOP
END

`-----------------
` GOSUBS
`-----------------
setup:
   set display mode 1024,768,32
   hide mouse
   sync on
   sync rate 0
return
`----
initialise:
   set text opaque
   white=rgb(255,255,255)
   yellow=rgb(255,255,0)

   PlayerSize=8
   PlayerSpeed=3
   PlayerX=512
   PlayerY=384

   `menu options array
   DIM menu$(3)
   menu$(0)="Play Underwater"
   menu$(1)="Quit"
return
`----
intro:
   FadePrint(400,0,"UNDERWATER")
   FadePrint(0,30,"We begin our journey at the bottom of the ocean; a world in darkness, where many strange creatures live.")
   FadePrint(0,48,"You will control the fate of one small organism, avoid predators and hunt prey and your organism will grow.")
   FadePrint(0,66,"Eventually your organism will grow so large that it will need to leave the sea bed in order to find enough food.")
   FadePrint(0,84,"Good luck...")
return
`----
menu:
   Repeat
      `#input
      old=u+d
      u=upkey() : d=downkey()

      `#process
      if u+d>old
         sel=sel+d-u
         if sel<0 then sel=1
         if sel>1 then sel=0
      endif

      `#display
      for n = 0 to 3
         if n=sel
            ink yellow,0
            m$="["+menu$(n)+"]"
         else
            ink white,0
            m$=menu$(n)
         endif
         center text 320,180+n*40,m$
      next n

      sync:cls
   Until returnkey()=1

   if sel=1 then end
return

`------------------
` FUNCTIONS
`------------------
Function FadePrint(x,y,a$)
   `fade from black to white (multiply 255 by length of string to make sure each character becomes white)
   for br = 0 to 255*len(a$) step len(a$)*0.6
      CharSpace=0 :`reset cursor to start position

      for c = 1 to len(a$)
         CharSpace = text width(left$(a$,c-1)) :`move cursor to next character position

         con=br/c :`get brightness of ink
         if con>255 then con=255 :`don't let rgb loop
         ink rgb(con,con,con),0

         text x+CharSpace,y,mid$(a$,c)

         if scancode()>0 then br=255*len(a$)-len(a$)*0.6 : `user skip writing
      next c

      ink 255,0
      text 0,0,"FPS="+str$(screen fps())+"   "
      sync :`refresh screen
   next br
Endfunction

`%%%%%%%%%%%%%%%%%%
` Underwater
` By OBese87
`%%%%%%%%%%%%%%%%%%
gosub setup
gosub initialise
gosub intro
gosub menu

`# Main Loop
DO
   `input
   oldforward=forward
   forward=spacekey():l=leftkey():r=rightkey()

   `process movement
   if forward>oldforward
      movex# = movex# + sin(PA#)*PPower#
      movey# = movey# + cos(PA#)*PPower#
      Adren# = 5.0
   else
      Adren# = CurveVal(2.5,Adren#,500.0)
   endif

   `update parameters
   PA# = WrapValue(PA# + (l-r)*PAgility#)
   PX# = CurveVal(movex#, PX#, 200.0)
   PY# = CurveVal(movey#, PY#, 200.0)
   `bind P position
   if PX# - PSize/2 < 20 then PX# = 20 + PSize/2
   if PX# + PSize/2 > 1004 then PX# = 1004 - PSize/2
   if PY# - PSize/2 < 20 then PY# = 20 + PSize/2
   if PY# + PSize/2 > 748 then PY# = 748 - PSize/2

   `breathing
   breath=wrapvalue(breath+Adren#)
   Respire#=sin(breath)*(PSize/4.)

   `draw body
`   red=int(Adren#-2.5)*6553600
   ink 255+red,0
   for d = 0 to PSize + Respire#
      circle PX#,PY#,d
      circle PX#+1,PY#,d : `fiddle circle for opaqueness
   next d
   `draw nose
   line PX#,PY#,PX#+sin(PA#)*(PSize+Respire#+8),PY#+cos(PA#)*(PSize+Respire#+8)
`   for nose = 0-PSize to PSize
`      line PX#+sin(PA+90)*(nose+sin(Respire#*90)),PY#+cos(PA+90)*(nose+cos(Respire#*90)),PX#+sin(PA)*(PSize+Respire#+8),PY#+cos(PA)*(PSize+Respire#+8)
`   next nose

   sync:cls
LOOP
END

`-----------------
` GOSUBS
`-----------------
setup:
   set display mode 1024,768,32
   hide mouse
   sync on
   sync rate 0
return
`----
initialise:
   set text opaque
   white=rgb(255,255,255)
   yellow=rgb(255,255,0)

   PSize=8
   PX#=512
   PY#=384
   PAgility#=1.0
   PPower#=70
   movex# = PX#
   movey# = PY#
   Adren#=2.5

   `menu options array
   DIM menu$(3)
   menu$(0)="Play Underwater"
   menu$(1)="Quit"
return
`----
intro:
   FadePrint(400,0,"UNDERWATER")
   FadePrint(0,30,"We begin our journey at the bottom of the ocean; a world in darkness, where many strange creatures live.")
   FadePrint(0,48,"You will control the fate of one small organism, avoid predators and hunt prey and your organism will grow.")
   FadePrint(0,66,"Eventually your organism will grow so large that it will need to leave the sea bed in order to find enough food.")
   FadePrint(0,84,"Good luck...")
return
`----
menu:
   Repeat
      `#input
      old=u+d
      u=upkey() : d=downkey()

      `#process
      if u+d>old
         sel=sel+d-u
         if sel<0 then sel=1
         if sel>1 then sel=0
      endif

      `#display
      for n = 0 to 3
         if n=sel
            ink yellow,0
            m$="["+menu$(n)+"]"
         else
            ink white,0
            m$=menu$(n)
         endif
         center text 320,180+n*40,m$
      next n

      sync:cls
   Until returnkey()=1

   if sel=1 then end
return

`------------------
` FUNCTIONS
`------------------
Function FadePrint(x,y,a$)
   `fade from black to white (multiply 255 by length of string to make sure each character becomes white)
   for br = 0 to 255*len(a$) step len(a$)*0.6
      CharSpace=0 :`reset cursor to start position

      for c = 1 to len(a$)
         CharSpace = text width(left$(a$,c-1)) :`move cursor to next character position

         con=br/c :`get brightness of ink
         if con>255 then con=255 :`don't let rgb loop
         ink rgb(con,con,con),0

         text x+CharSpace,y,mid$(a$,c)

         if scancode()>0 then br=255*len(a$)-len(a$)*0.6 : `user skip writing
      next c

      ink 255,0
      text 0,0,"FPS="+str$(screen fps())+"   "
      sync :`refresh screen
   next br
Endfunction
`----
Function CurveVal(target#,num#,factor#)
   num# = num# + (target#-num#)/factor#
Endfunction num#

sync on : sync rate 60
hide mouse

DIM tri(3,3)
x=1:y=2:z=3
tri(2,x)=10
tri(3,y)=10
make object triangle 1, tri(1,x),tri(1,y),tri(1,z), tri(2,x),tri(2,y),tri(2,z), tri(3,x),tri(3,y),tri(3,z)
autocam off

DO
   oldin=u+d+l+r
   u=upkey():d=downkey():l=leftkey():r=rightkey()

   if u+d+l+r>oldin
      tri(3,y)=tri(3,y)+u-d
      tri(1,z)=tri(1,z)+r-l
      delete object 1
      make object triangle 1, tri(1,x),tri(1,y),tri(1,z), tri(2,x),tri(2,y),tri(2,z), tri(3,x),tri(3,y),tri(3,z)
   endif

   `rotate triangle
   tri(0,y)=wrapvalue(tri(0,y)+1)
   rotate object 1,tri(0,x),tri(0,y),tri(0,z)

   set cursor 0,0
   print screen fps()

   sync
LOOP

Rem * Title  : My first game
Rem * Author : Robert the Robot
Rem * Date   : 4/1/08
rem ****************
rem Submarine Chaser
rem ****************

rem Startup Commands
Sync on : Sync rate 40 : Sync
Hide Mouse
Autocam off
Make_Target()
Make_Environment()


rem Set player variables
x=0 : z=0 : Speed#=0.0
SubHealth = 100

rem Prepare enemies
Dim NumberOfEnemies(0)
Dim EZ#(15)
Dim EX#(15)
Dim ESpeed#(15)
Dim EDisplayed(15)
Dim ExplodeObject(15)
NEOnScreen = 0          : rem No. enemies on screen

For T = 1 to 15
   Make_Enemy(T)
   EZ#(T) = 2500
   EX#(T) = Rnd(1500)
   ESpeed#(T) = 5
   EDisplayed(T) = 0
   ExplodeObject(T) = 0
Next T

rem Prepare text font for statistics
Ink RGB(255, 255, 255), 0
Set Text Font "Arial Bold", 1
Set Text Size 30

rem Load high score
If File Exist("Stats.txt")
   Open To Read 1, "Stats.txt"
   Read String 1, temp$
   HighScore = Val(Temp$)
   Close File 1
else
   Open to Write 1, "Stats.txt"
   Write string 1, "800"
   Close file 1
endif


NewGame:
Do
   rem **************************
   rem Movement through the world
   rem **************************

   rem Control key movements
   If Upkey()=1 or Keystate(17)
      Speed#=Speed#+1.0
   else
      Speed#=Speed#-1.0
   endif

   If leftkey()=1 or Keystate(30) then rz#=rz#+1.0
   If rightkey()=1 or Keystate(32) then rz#=rz#-1.0

   rem Control variables
   If speed#<0.0 then speed#=0.0
   If speed#<10.0 then speed#=speed#+1.5
   If speed#>60.0 then speed#=60.0
   rz#=rz#/1.1
   x=x-(2*rz#)
   if X<50 then x = 50
   if X>950 then x = 950

   rem Scroll landscape
   z=z+speed#
   if z>200
      z=z-200
      Shift Matrix up 1
   endif

   rem Position matrix
   Position Matrix 1,0,0,2500-z

   rem Position camera and ocean sphere :)
   Position Object 100, 500+x, 80, 2500
   Position Camera 500+x, 80, 2500
   ZRotate Camera Wrapvalue(rz#)



   rem *********************
   rem Controlling the enemy
   rem *********************

   rem The Cross-hairs
   Sprite 1, MouseX(), MouseY(), 2

   rem Positioning the enemy
   For T = 1 to NumberOfEnemies(0)
      If EDisplayed(T) = 1
         EZ#(T) = EZ#(T) + ESpeed#(T)

         rem movement of the enemy is a little akward
         Temp = Rnd(7)
         EX#(T) = EX#(T) + Temp
         If Rnd(1000)<100 then EX#(T) = EX#(T)-(1.5*Temp)

         Position Object T, EX#(T), Camera position Y(), EZ#(T)
      else
         If Rnd(1500)<750 and NEOnScreen<8
            Inc NEOnscreen
            EDisplayed(T) = 1
         endif
      endif

      rem Reset the enemy sub if it's out of range
      If EZ#(T)>=4000
         EZ#(T) = Rnd(500)+2000
         EX#(T) = Rnd(1500)
         Position Object T, EX#(T), Camera position Y(), EZ#(T)
         ESpeed#(T) = 5
         EDisplayed(T) = 0
         Dec NEOnScreen

         rem Incur Damage
         SubHealth = SubHealth - (Rnd(4)+1)
      endif

      If Rnd(10000)<5000 then Randomize (Timer() * Rnd(Rnd(15000000)))
   Next T



   rem **************
   rem Target Control
   rem **************

   rem Prepare Explosive debris
   For Obj = 101 to 151
      If object exist(Obj) = 0
         Make Object Plain Obj, 20, 30
         Position Object obj, 0, 0, 0
      endif
   Next Obj

   rem Destroying an enemy sub
   If Mouseclick()>0
      For T = 1 to NumberOfEnemies(0)

         rem Set the score if the enemy sub is destroyed
         If EZ#(T)>2500 and EZ#(T)<=2700 then ScoreToAdd = 30 : PlusMinus = 25
         If EZ#(T)>2900 and EZ#(T)<=3100 then ScoreToAdd = 25 : PlusMinus = 22
         If EZ#(T)>3100 and EZ#(T)<=3300 then ScoreToAdd = 20 : PlusMinus = 19
         If EZ#(T)>3300 and EZ#(T)<=3500 then ScoreToAdd = 15 : PlusMinus = 15
         If EZ#(T)>3500 and EZ#(T)<=3700 then ScoreToAdd = 10 : PlusMinus = 10
         If EZ#(T)>3700 and EZ#(T)<=3900 then ScoreToAdd = 5  : PlusMinus = 5

         If MouseX()<=(Object Screen X(T) + PlusMinus) and MouseX()>=(Object Screen X(T) - PlusMinus)
            If MouseY()<=(Object Screen Y(T) + PlusMinus) and MouseY()>=(Object Screen Y(T) - PlusMinus)

               rem Inc Score
               Score = Score + ScoretoAdd

               rem Prepare explosion
               For Obj = 1 to 15
                  ExplodeObject(Obj) = 0
               Next Obj

               ExplodeObject(T) = 1
               ExplosionTimer = Timer()

               For Obj=101 to 151
                  Position Object Obj, EX#(T), Camera Position Y(), EZ#(T)
                  Rotate Object Obj, Rnd(360), Rnd(360), Rnd(360)
               Next Obj


               rem Explosion details stored, now update sub so it goes round again
               EZ#(T) = 2500
               EX#(T) = Rnd(1500)
               Position Object T, EX#(T), Camera position Y(), EZ#(T)
               ESpeed#(T) = 5
               EDisplayed(T) = 0
               Dec NEOnScreen

            endif
         endif
      Next T
   endif



   rem *********************
   rem The enemy explodes...
   rem *********************

   For T = 1 to NumberOfEnemies(0)
      If ExplodeObject(T)=1
         For Obj = 101 to 151
            If Object exist(Obj)
               Move Object Obj, 0.01

               rem Maybe delete the object
               If Rnd(1500)>500 then Delete Object Obj
            endif
         Next Obj

         rem Explosion reset
         If ExplosionTimer + (Rnd(30)*20) < Timer()
            ExplodeObject(T)=0
            For Obj = 101 to 151
               If object exist(Obj) then Delete object Obj
            Next Obj
         endif
      endif
   Next T


   rem ***************
   rem User Statistics
   rem ***************

   Text 10, 10, "Score: " + Str$(Score)
   Text 490, 10, "Health: " + Str$(SubHealth)
   If SubHealth <=0 then GoSub LoseGame

   rem Reseed random Number generator
   If Rnd(10000)<5000 then Randomize (Timer() * Rnd(Rnd(15000000)))
   Sync
Loop


LoseGame:
   Cls
   rem Save high score
   If Score>HighScore
      If File Exist("Stats.txt") then Delete File "Stats.txt"
      Open to Write 1, "Stats.txt"
      Write string 1, Str$(Score)
      Close file 1
   endif

   rem Play Again?
   Do
      If HighScore>=Score
         Center text 320, 50, "Game Over..."
         Center text 320, 100, "The Enemy Submarines have defeated you."
         Center text 320, 150, "Try again?(Y/N)"
      else
         Center text 320, 50, "High score!"
         Center text 320, 100, "As your submarine ran out of power, you defeated"
         Center text 320, 150, "the last of the enemy submarines.  But can you do"
         Center text 320, 200, "better next time? Try again?(Y/N)"
      endif

      If Lower$(Inkey$()) = "y"
         SubHealth = 100
         Score = 0
         Goto Newgame
      endif

      If Lower$(Inkey$()) = "n" then End
      Sync
   Loop
return



rem *****************
rem Program Functions
rem *****************

Function Make_Target()
   Create bitmap 1, 21, 21
   Circle 10, 10, 10
   Get image 2, 0, 0, 21, 21
   Delete bitmap 1
EndFunction


Function Make_Environment()
   rem Create Seabed texture
   Create bitmap 1, 256, 256
   Set Current bitmap 1
   CLS RGB(35,65,65)
   Ink RGB(9,32,85), 0

   rem Random Blue-green dots, so the terxture is different every time...
   For X = 1 to 256
      For Y = 1 to 256
         If Rnd(100000)<15000
            Dot X, Y
            Randomize (Timer()*Rnd(1500000))
         endif
      Next Y
   Next X

   rem Grab the texture
   Get image 1, 0, 0, 256, 256
   Set Current bitmap 0
   Delete Bitmap 1

   rem Make the Seabed
   Make Matrix 1, 2000, 5000, 10, 25
   Randomize matrix 1, 50.0
   Prepare Matrix texture 1, 1, 1, 1
   Set Matrix Texture 1, 0, 1
   Set Matrix 1, 1, 1, 0, 1, 1, 1, 1

   rem Lighting effects
   Fog on
   Fog distance 3000
   Set Ambient Light 100

   rem Make the sky sphere - or is it ocean sphere?
   Make Object Sphere 100, -3000
   Color Object 100, RGB(0, 0, 50)
   Position Object 100, 1000, 80, 2500

   rem Set up the camera
   Position camera 1000, 80, 2500
EndFunction


Function Make_Enemy(EnemyNumber)
   rem Make and adjust an object
   Make Object Sphere EnemyNumber, 40
   Position Object EnemyNumber, Rnd(1000), 80, 2500
   Scale object EnemyNumber, 125, 50, 50

   rem Generate texture
   Create Bitmap 1, 10, 10
   CLS RGB(120, 143, 255)
   Get image 3, 0, 0, 10, 10
   Delete Bitmap 1
   Texture object EnemyNumber, 3

   NumberOfEnemies(0) = NumberOfEnemies(0)+1
EndFunction

rem create mesh (fish mesh?)
rem by latch
rem jan 15 2008

autocam off
position camera 20,15,-60

make_fish(1,40.0,10)
wait key

end
function make_fish(obj,size#,tiers)
   rem make sure the minimum is 4x4
   if tiers < 4 then tiers  = 4

   xinc#=size#/tiers
   yinc#=xinc#/2
   zinc#=size#/12.0
   tailx#=size#/4.0
   taily#=((tiers-1)/2.0)*yinc#
   yskew#=180.0/tiers

   dim verts#((tiers^2)*2,2)

   for y=0 to tiers-1
      for x=0 to tiers-1
         v=x+(y*tiers)
         v2=v+tiers^2

         rem front side
         if x=tiers-1
            verts#(v,0)=(x*xinc#)+tailx#
            verts#(v,1)=taily#
         else
            verts#(v,0)=x*xinc#
            verts#(v,1)=y*yinc#
         endif

         verts#(v,2)=-1.0*(zinc#*((y!0) & (y!tiers-1) & (x!0) & (x!tiers-1)))

         rem backside
         verts#(v2,0)=verts#(v,0)
         verts#(v2,1)=verts#(v,1)
         verts#(v2,2)=0.0-verts#(v,2)

         rem test positions
         make object cube v+1,1
         color object v+1,0
         make object cube v+10000,1
         color object v+10000,0
         position object v+1,verts#(v,0),verts#(v,1),verts#(v,2)
         position object v+10000,verts#(v2,0),verts#(v2,1),verts#(v2,2)

      next x
   next y
   rem make triangles
   for y=0 to tiers-2
      for x=0 to tiers-2
         v=x+(y*tiers)
         v2=v+tiers^2

         rem triangle 1
         x1#=verts#(v,0)
         y1#=verts#(v,1)
         z1#=verts#(v,2)

         x2#=verts#(v+tiers,0)
         y2#=verts#(v+tiers,1)
         z2#=verts#(v+tiers,2)

         x3#=verts#(v+tiers+1,0)
         y3#=verts#(v+tiers+1,1)
         z3#=verts#(v+tiers+1,2)

         make object triangle v+1000,x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#
         set object v+1000,0,1,1

         rem triangle 2
         x1#=verts#(v+tiers+1,0)
         y1#=verts#(v+tiers+1,1)
         z1#=verts#(v+tiers+1,2)

         x2#=verts#(v+1,0)
         y2#=verts#(v+1,1)
         z2#=verts#(v+1,2)

         x3#=verts#(v,0)
         y3#=verts#(v,1)
         z3#=verts#(v,2)

         make object triangle v+2000,x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#
         set object v+2000,0,1,1

         rem back
         rem triangle 1
         x1#=verts#(v2,0)
         y1#=verts#(v2,1)
         z1#=verts#(v2,2)

         x2#=verts#(v2+tiers,0)
         y2#=verts#(v2+tiers,1)
         z2#=verts#(v2+tiers,2)

         x3#=verts#(v2+tiers+1,0)
         y3#=verts#(v2+tiers+1,1)
         z3#=verts#(v2+tiers+1,2)

         make object triangle v2+3000,x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#
         set object v2+3000,0,1,1

         rem triangle 2
         x1#=verts#(v2+tiers+1,0)
         y1#=verts#(v2+tiers+1,1)
         z1#=verts#(v2+tiers+1,2)

         x2#=verts#(v2+1,0)
         y2#=verts#(v2+1,1)
         z2#=verts#(v2+1,2)

         x3#=verts#(v2,0)
         y3#=verts#(v2,1)
         z3#=verts#(v2,2)

         make object triangle v2+4000,x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#
         set object v2+4000,0,1,1
      next x
   next y
endfunction

Remstart
Underwater Entry
Made by Sinani201
~The DB Classic Programming Challenge Thread~
remend

Set Display Mode 800,600,16
cls 0 : sync
hide mouse
print "Welcome to Sinani201's UnderWater... thing"
print "Use the arrow keys to move and space to shoot"
print "If you run out of air, you lose!"
print "You are the green guy, and your enemies are purple. Shoot as many as you can before you lose!"
print "If you get hit then you lose."
print "Good luck!"
print "Press any key to start"
wait key
cls
printc "Drawing sand..."
`Shore(Sand)
ink RGB(255,215,130),0
box 0,100,100,599
ink 0,0
remstart
`Draw random dots in the sand
for y=100 to 599
  for x=1 to 100
    draw=rnd(32)
    if draw=24 then dot x,y
  next x
next y
ink RGB(255,255,255),0
remend
`Draw water
ink RGB(75,185,225),0
box 101,150,799,599
ink 0,0
text 0,0,"Drawing sand..."
`Draw your character
ink RGB(0,255,0),0
box 0,0,70,50
box 70,20,90,30
get image 1,0,0,90,50
ink 0,0
box 0,0,90,50
`Draw enemy
ink rgb(170,30,160),0
box 0,0,70,50
get image 2,0,0,70,50
ink 0,0
box 0,0,70,50
wait 1000
`Put your character on the screen
charx=1
chary=50
set text opaque
`Enemy vars
enemyNum=2
`MAIN LOOP TIME!!!!
DO : `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  sync
  sprite 1,charx,chary,1
  set text size 20
  text 70,20,"Kills: "+str$(kills)
  `Control character
  if underwater=1
    if upkey()=1 then sprite 1,charx,chary-speed,1
  endif
  if movedown=1
    if downkey()=1 then sprite 1,charx,chary+speed,1
  endif
  if leftkey()=1 then sprite 1,charx-speed,chary,1
  if rightkey()=1 then sprite 1,charx+speed,chary,1
  `Shoot
  if underwater=1
    if spacekey()=1
      if firedbullet=0
        firedbullet=1
        bulletposx=sprite x(1)+sprite width(1)
        bulletposy=sprite y(1)+5
      endif
    endif
    dec air#,0.2
  endif
  if firedbullet=1
    speed=6
  else
    speed=3
  endif
  if firedbullet=1
    gosub movebullet
  else
    sleep 1
  endif
  `Make sure character does not fall out of boundries
  if charx>99
    if changevar=0
      sprite 1,sprite x(1),151,1
      changevar=1
    endif
    movedown=1
    underwater=1
  endif
  if underwater=1
    if chary<120 then sprite 1,sprite x(1),120,1
    if charx+sprite width(1)>799 then sprite 1,799-sprite width(1),sprite y(1),1
    if charx<101 then sprite 1,101,sprite y(1),1
    gainair=0
  endif
  `Enemy character
  for enemy=2 to enemyNum
    if enemy-1<4 then sprite enemy,700,(enemy-2)*70+160,2
    if enemy-1>3 then sprite enemy,600,(enemy-2)*70+160,2
  next enemy
  `If enemy gets hit...
  for enemy=2 to enemyNum
    spritex=sprite x(enemy)
    spritey=sprite y(enemy)
    if bulletposx > spritex and bulletposx < spritex+sprite width(enemy)
      if bulletposy > spritey and bulletposy < spritey+sprite height(enemy)
        delete sprite enemy
        firedbullet=0
        inc enemyNum
        inc kills
      endif
    endif
  next enemy
  `Update charcter position
  if charx<0 then sprite 1,0,sprite y(1),1
  charx=sprite x(1)
  chary=sprite y(1)
  sprite 1,charx,chary,1
loop

remstart
*****************************************
*****************************************
********Functions and subroutines********
*****************************************
*****************************************
REMEND
movebullet:
  set text size 15
  set text opaque
  ink rgb(255,255,255),RGB(75,185,225)
  inc bulletposx,10
  text bulletposx,bulletposy,"-"
  sleep 1
  text bulletposx,bulletposy," "
  if bulletposx>799 then firedbullet=0
return

if sprite hit(1,2)=1 then print "Bash"
sprite 1,x,y,1
sprite 2,xx,yy,1

sync on: sync rate 30
hide mouse

gosub make_texture
   make object sphere 1,1
   scale object 1,100,30,10
   texture object 1,1

   make object triangle 2, 0,0,0, 0.7,0.1,0, 0.6,-0.1,0
   make object triangle 3, -0.1,0.0,0, 0,-0.05,0.1, -0.4,-0.05,0
   make object triangle 4, -0.1,0.0,0, 0,-0.05,-0.1, -0.4,-0.05,0
   make object triangle 5, -0.1,0.1,0, 0.2,0.3,0, 0.2,0.1,0

   make mesh from object 5,5
   delete object 5
   add limb 1,1,5
   offset limb 1,1,0,0.3,0

do
   mousemovex=mousemovex():`only check the mouse movement once a loop
   for i = 1 to 4
      yrotate object i,wrapvalue(object angle y(i)+1+mousemovex)
   next i
sync
loop

make_texture:
`skin
   cls rgb(100,100,120)
`white belly
   for i = 85 to 128
      ink rgb(i+15,i+15,i+15),0
      line 0,i,128,i
   next i
`dots
   ink rgb(50,50,50),0
   for i = 0 to 128
      dot i,rnd(128)
      dot i,rnd(128)
   next i
`mouth
   line 20,65,32,55
   line 44,65,32,55
`eyes
   ink rgb(200,200,200),0
   circle 44,50,2
   circle 20,50,2
   get image 1,0,0,128,128
return

Gosub Setup

Do
  Gosub SubAngle
  Gosub ReadKeys
  Gosub MoveMatrix
  Gosub Wavey
  Gosub Bubbles
  Sync
Loop

Wavey:
  If Speed#>0.0
    SET CAMERA FOV 3.14/F#
    If IncF=0
      Inc F#,.004
      Inc FCounter
      If FCounter= 25 Then IncF=1: FCounter=0
    Else
      Dec F#,.004
      Inc FCounter
      If FCounter= 25 Then IncF=0: FCounter=0
    Endif
  Endif
Return

ReadKeys:
  I$=Upper$(Inkey$())
  If Asc(I$)>47 and Asc(I$)<58 Then NewSpeed#=Val(I$)/4: Rem Number Keys
  If Speed#<NewSpeed#: Rem Speeding Up
    Inc Speed#,.05: If Speed#>NewSpeed# Then Speed#=NewSpeed#
  Endif
  If Speed#>NewSpeed#: Rem Slowing Down
    Dec Speed#,.05: If Speed#<NewSpeed# Then Speed#=NewSpeed#
  Endif
Return

MoveMatrix:
  If Speed#>0.0
    OAY#=Object Angle Y(1)
    SpeedX#=ABS(Speed#*SIN(OAy#))
    SpeedZ#=ABS(Speed#*COS(OAy#))
    BubbleXSpeed#=ABS(Speed#* SIN(Oy#))
    BubbleZSpeed#=ABS(Speed#* COS(Oy#))
    Gosub Direction
    Select TravelDir
      Case 0
        Rem Up                                                     Move OK - Speed OK
        If MSZ#>MatZPos#+Speed#-Tilesize#
          Dec MSZ#,Speed#
        Else
          MSZ#=MatZPos#
          SHIFT MATRIX Up 1
          SHIFT MATRIX Up 2
        Endif
      EndCase
      Case 1
        Rem Up & Right
        If MSZ#>MatZPos#+SpeedZ#-Tilesize#: Rem Up
          Dec MSZ#,SpeedZ#
        Else
          MSZ#=MatZPos#
          SHIFT MATRIX Up 1
          SHIFT MATRIX Up 2
        Endif
        If MSX#>MatXPos#+SpeedX#-Tilesize#: Rem Right
          Dec MSX#,SpeedX#
        Else
          MSX#=MatXPos#
          SHIFT MATRIX Left 1
          SHIFT MATRIX Left 2
        Endif
      EndCase
      Case 2
        Rem Right                                                   Move OK - Speed OK
        If MSX#>MatXPos#+Speed#-Tilesize#
          Dec MSX#,Speed#
        Else
          MSX#=MatXPos#
          SHIFT MATRIX Left 1
          SHIFT MATRIX Left 2
        Endif
      EndCase
      Case 3
        Rem Down & Right
        If MSZ#<MatZPos#+Tilesize#-SpeedZ#
          Inc MSZ#,SpeedZ#
        Else
          MSZ#=MatZPos#
          SHIFT MATRIX Down 1
          SHIFT MATRIX Down 2
        Endif
        If MSX#>MatXPos#+SpeedX#-Tilesize#
          Dec MSX#,SpeedX#
        Else
          MSX#=MatXPos#
          SHIFT MATRIX Left 1
          SHIFT MATRIX Left 2
        Endif
      EndCase
      Case 4
        Rem Down                                                   Move OK - Speed OK
        If MSZ#<MatZPos#+Tilesize#-Speed#
          Inc MSZ#,Speed#
        Else
          MSZ#=MatZPos#
          SHIFT MATRIX Down 1
          SHIFT MATRIX Down 2
        Endif
      EndCase
      Case 5
        Rem Down & Left
        If MSZ#<MatZPos#+Tilesize#-SpeedZ#
          Inc MSZ#,SpeedZ#
        Else
          MSZ#=MatZPos#
          SHIFT MATRIX Down 1
          SHIFT MATRIX Down 2
        Endif
        If MSX#<MatXPos#+Tilesize#-SpeedX#
          Inc MSX#,SpeedX#
        Else
          MSX#=MatXPos#
          SHIFT MATRIX Right 1
          SHIFT MATRIX Right 2
        Endif
      EndCase
      Case 6
        Rem Left                                                   Move OK - Speed OK
        rem If MSX#<MatXPos#+Tilesize#+SpeedX#
        If MSX#<MatXPos#+Tilesize#-Speed#
          Inc MSX#,Speed#
        Else
          MSX#=MatXPos#
          SHIFT MATRIX Right 1
          SHIFT MATRIX Right 2
        Endif
      EndCase
      Case 7
        Rem Up & Left
        If MSZ#>MatZPos#+SpeedZ#-Tilesize#
          Dec MSZ#,SpeedZ#
        Else
          MSZ#=MatZPos#
          SHIFT MATRIX Up 1
          SHIFT MATRIX Up 2
        Endif
        If MSX#<MatXPos#+Tilesize#-SpeedX#
          Inc MSX#,SpeedX#
        Else
          MSX#=MatXPos#
          SHIFT MATRIX Right 1
          SHIFT MATRIX Right 2
        Endif
      EndCase
      Position Matrix 1,MSX#,0.0,MSZ#: Rem Seabed
      Position Matrix 2,MSX#,IceY#,MSZ#: Rem Ice Surface
    EndSelect
  Endif
Return

SubAngle:
  Rem UP/DOWN
  If DownKey()=1 And Speed#>0.0: Rem Going Up
    pitchspeed#=curvevalue(2.0,pitchspeed#,20.0)
  Endif
  If UpKey()=1 And Speed#>0.0
    pitchspeed#=curvevalue(-2.0,pitchspeed#,20.0)
  Endif
  If Upkey()=0 and downkey()=0 then pitchspeed#=curvevalue(0.0,pitchspeed#,20.0)
  rem Actually Alter Object Angles
  pitch object up 1,pitchspeed#
  Rotate Object 2,Object Angle X(2),Object Angle Y(1),Object Angle Z(2)
  rem Get angles for movement calculation
  move object 1,1
  newx#=object position x(1) : newy#=object position y(1) : newz#=object position z(1)
  move object 1,-1
  oldx#=object position x(1) : oldy#=object position y(1) : oldz#=object position z(1)
  OAY#=wrapvalue(atanfull(newx#-oldx#,newz#-oldz#))
  OAX#=wrapvalue(asin(newy#-oldy#))
  rem change depth
  Inc Depth#,(newy#-oldy#)*DiveSpeed#
  rem get the ground height
  Gh#=Get Ground Height(1,0.0-MSX#,0.0-MSZ#)+5
  If Depth#<Gh#+1 Then Depth#=Gh#+1: Rem Hit Floor
  If Depth#>800
    Depth#=800
    Rotate Object 1,0.0,0.0,0.0: Rem Hit Ice Ceiling
    pitchspeed#=0.0
  Endif
  Rem Draw Submarine
  If Speed#>0
    Position Object 1,0.0,Depth#,0.0
    Position Object 2,0.0,Gh#,0.0: Rem Shadow
  Endif
  CAMFOLLOW:
  Ch#=Depth#+3: If Ch#>795 Then Ch#=795
  SET CAMERA TO FOLLOW 0.0,Depth#,0.0,OAY#,10,Ch#,8,0
  Point Camera 0.0,Depth#,0.0
Return

Direction:
  If Int(Oay#)=0 Then TravelDir=0
  If Int(Oay#)>0 And Int(Oay#)<90 Then TravelDir=1
  If Int(Oay#)=90 Then TravelDir=2
  If Int(Oay#)>91 And Int(Oay#)<180 Then TravelDir=3
  If Int(Oay#)=180 Then TravelDir=4
  If Int(Oay#)>181 And Int(Oay#)<270 Then TravelDir=5
  If Int(Oay#)=270 Then TravelDir=6
  If Int(Oay#)>271 And Int(Oay#)<359 Then TravelDir=7
Return

Bubbles:
  Rem Create Bubbles
  If BubbleCount<300 Then Inc BubbleCount
  O2=Rnd(8)-4
  Lx#=Rnd(500)-250: Ly#=0.0: Lz#=Rnd(500)
  Bubbles#(0,0,BubbleCount)=Lx#+O2:           Rem X Start Position
  Bubbles#(0,1,BubbleCount)=Ly#:              Rem Y Start Position
  Bubbles#(0,2,BubbleCount)=Lz#:              Rem Z Start Position
  Bubbles#(0,3,BubbleCount)=.0001:            Rem Rise speed

  Rem Move Existing Bubbles
  For Nb=0 To BubbleCount
    Bubbles#(0,0,Nb)=Bubbles#(0,0,Nb)-BubbleXSpeed#:      Rem 0=X Position <<<<<<<<<<<<<<
    Bubbles#(0,1,Nb)=Bubbles#(0,1,Nb)+Bubbles#(0,3,Nb):   Rem 1=Depth
    Bubbles#(0,2,Nb)=Bubbles#(0,2,Nb)-Speed#:             Rem 2=Z Position <<<<<<<<<<<<<<
    Bubbles#(0,3,Nb)=Bubbles#(0,3,Nb)+.003:               Rem Increase this bubble's rise rate
    POINT OBJECT Nb+100,Camera Position X(),Camera Position Y(),Camera Position Z()
    Rem Hit the surface so make new bubble
    If Bubbles#(0,1,Nb)>Camera Position Y()+50 or Bubbles#(0,2,Nb)< 0
      O1=Rnd(4)+1: O2=Rnd(8)-4
      Lx#=Rnd(500)-250: Ly#=0.0: Lz#=Rnd(500)
      Bubbles#(0,0,Nb)=Lx#+O2
      Bubbles#(0,1,Nb)=Ly#
      Bubbles#(0,2,Nb)=Lz#
      Bubbles#(0,3,Nb)=.0001
    Endif
    Position Object Nb+100,Bubbles#(0,0,Nb),Bubbles#(0,1,Nb),Bubbles#(0,2,Nb): Rem Bubble!!
  Next Nb
Return

Normalise:
  Rem By Lee Bamber From DB Example
  For z=1 to TilesZ
    For x=1 to TilesX
      h8#=get matrix height(MatNum,x,z-1)
      h4#=get matrix height(MatNum,x-1,z)
      h#=get matrix height(MatNum,x,z)
      h2#=get matrix height(MatNum,x,z)
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
Return

MakeMatrices:
  Rem ----------------
  Rem Create Sea Floor
  Rem ----------------

  Rem Make A Floor Texture
  Create Bitmap 1,Tilesize#,Tilesize#
  CLS RGB(80,80,80)
  For T=1 To 5000
    M=Rnd(30)+50
    Ink Rgb(m,m,m),0
    Dot Rnd(Tilesize#-2)+1,Rnd(Tilesize#-2)+1
  Next T
  Get Image 1,0,0,Tilesize#,Tilesize#
  Delete Bitmap 1

  Rem Matrix Variables
  MatWidth#=TilesX*Tilesize#: MatHeight#=TilesZ*Tilesize#
  MSX#=0-(MatWidth#/2.0): Rem (-3200)
  MSZ#=0-(MatHeight#/2.0): Rem (-3200)
  MatXPos#=MSX#
  MatZPos#=MSZ#

  Rem Make The Seabed Matrix
  Make Matrix 1,MatWidth#,MatHeight#,TilesX,TilesZ
  PREPARE MATRIX TEXTURE 1,1,1,1
  Position Matrix 1, MSX#,0.0,MSZ#
  Randomize Matrix 1,20
  Update Matrix 1
  MatNum=1: Gosub Normalise

  Rem ---------------------
  Rem Create Frozen Surface
  Rem ---------------------

  Rem Make An Ice Texture
  Create Bitmap 1,Tilesize#,Tilesize#
  CLS RGB(255,255,255)
  For T=1 To 5000
    M=Rnd(15)+240
    Ink Rgb(m-5,m-5,m),0
    Dot Rnd(Tilesize#-2)+1,Rnd(Tilesize#-2)+1
  Next T
  Get Image 2,0,0,Tilesize#,Tilesize#
  Delete Bitmap 1

  Rem Make The Floating Ice Matrix
  Make Matrix 2,MatWidth#,MatHeight#,TilesX,TilesZ
  PREPARE MATRIX TEXTURE 2,2,1,1
  Position Matrix 2, MSX#,IceY#,MSZ#
  Randomize Matrix 2,50
  Update Matrix 2
  MatNum=2: Gosub Normalise
Return

MakeMedia:
  Rem Submarine
  Make Object Box 1,1,1,2
  Rem Submarine Shadow
  Make Object Box 2,1,1,2: Scale Object 2,100,10,100: Color Object 2,0

  Create Bitmap 1,640,480
  Rem Image For Bubble Particle
  CLS 0
  Ink RGB(230,255,255),0
  Circle 18,18,17
  Circle 12,8,3
  Blur Bitmap 1,4
  Get Image 5,0,0,37,37

  Set Current Bitmap 0
  Delete Bitmap 1

Return

Setup:
  Rem Program Setup
  Set Display Mode 800,600,32
  Hide Mouse
  Sync On
  SET GAMMA 0,0,0
  Autocam off

  Backdrop on
  Color Backdrop rgb(0,30,50)
  Fog On
  Fog Distance 600
  FOG COLOR RGB(0,30,50)
  Dim Bubbles#(10,3,403): Rem Stream,XYZ,Number

  TilesX=50: TilesZ=50: Tilesize#=128.0: Speed#=0: IceY#=800.0: Depth#=IceY#-790.0
  NewHead#=0.0: Head#=0.0
  pitchspeed#=0.0
  turnspeed#=0.0
  DiveSpeed#=1.5
  Rollspeed#=0.0
  rolled#=0.0
  F#=2.905

  Set Ambient light 40

  Gosub MakeMedia
  Gosub MakeMatrices

  Rem Position Submarine
  Gh#=Get Ground Height(1,0.0-MSX#,0.0-MSZ#)+5
  Position Object 1,0.0, Depth#, 0.0
  Position Object 2,0.0,Gh#,0.0: Rem Shadow

  STARTCAM:
  Rem Set Up Camera
  Set Camera Range 5.0, 10000.0
  Position Camera 0.0-40,Depth#+150,-30.0
  Point Camera 0.0,Depth#,0.0

  Rem Create Objects For Bubble Particle System
  For N=0 To 400
    Make Object Plain N+100,.8,.8
    Ghost Object On N+100
    Texture object N+100,5
    Ghost object on N+100
    Set Object N+100,1,0,0
  Next N
  Randomize Timer()
  T=Timer()
  FadeIn()
Return

Function FadeIn
  Done=0: NewLevel#=0
  Time=Timer()
  EndTime#=Time+(3*1000)
  Step#=EndTime#-Time
  Repeat
    T#=Timer()-Time
    Perc#=T#/Step#
    T1=(255*Perc#)
    If T1>255 then T1=255 : Done=1
    Set Gamma T1,T1,T1
    Sync
  Until Done=1
EndFunction

remstart
   ==============================================================
   =  Title  : DBC Challenge - under water Create Fish Mesh
   =  Author : latch
   =  Date   : 01/15/2008
   =  Update : 01/17/2008
   =  Version: .03
   ==============================================================
   Comments    This is an example of how to build a mesh triangle
               by triangle without using memblocks.  The function
               make_fish() will create a mesh that is supposed to
               look like a cute little fishy!  For moveable fins
               and tail I just added a few primatives.
               the parameters are:
               make_fish(obj,size#,tiers)
               obj == the object number the fish will be
               size# == the x size of the body (not including tail)
               tiers == tiers^2 * 2 = number of polys (triangles)
               The minimum tiers is 4.  Going above ten is not
               a great idea.
               I tried to use a very basic method of creating 2
               grids - front and back, and then just pinching the
               ends together, separating the middle area (z) and
               then plotting the x and y with a bit of skewing on
               the y for the head and tail.  There are better
               ways to do this for a shape rounded like a fish,
               like multiple ellipse shaped rings, but I wanted
               to keep the math as basic as possible for the demo.
               I did use a parabola for the head, and that's about
               as complex as the math got!  The size of the function
               is due to the drawing of the triangles and limbs.
               The math to place the points is the smallest part.

               Building each model can be slow, but if a single
               model is built, it can be converted into a mesh
               and copies from it will be made much faster using
               MAKE OBJECT.
   ==============================================================
remend

rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   set display mode 800,600,32
   sync on
   sync rate 60

rem =============================================================
rem = MAIN
rem =============================================================
   gosub _init
   position camera 0,0,-100
   direction=1
   do
      turn object left fish1,.3
      turn object left fish2,.3
      turn object left fish3,.3

      ang#=wrapvalue(ang#+direction)
      if ang# = 6 then direction=-1
      if ang# = 354 then direction=1

      rotate limb fish1,1,limb angle x(fish1,1),wrapvalue(ang#*2),limb angle z(fish1,1)
      rotate limb fish2,1,limb angle x(fish2,1),ang#,limb angle z(fish2,1)
      rotate limb fish3,1,limb angle x(fish3,1),ang#,limb angle z(fish3,1)


      sync
   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _init:
      rem fish
      fish1=1
      fish2=2
      fish3=3
      fish4=4

      rem textures
      gosub _textures

      rem make fish
      make_fish(fish1,40.0,4)
      texture object fish1,fish1
      position object fish1,-30,0,0

      make_fish(fish2,40.0,7)
      texture object fish2,fish2
      position object fish2,30,0,0

      make_fish(fish3,40.0,10)
      texture object fish3,fish3
      position object fish3,0,-30,0
   return
`-----------------------------------------------------------------
   _textures:
      cls 0
      ink rgb(255,0,0),0
      dot 0,0
      dot 0,1
      get image fish1,0,0,2,2

      cls 0
      ink rgb(255,255,0),0
      dot 0,0
      dot 1,0
      get image fish2,0,0,2,2

      cls 0
      ink rgb(0,255,0),0
      dot 1,0
      dot 1,1
      get image fish3,0,0,2,2

   return

rem =============================================================
rem = FUNCTIONS
rem =============================================================
function make_fish(obj,size#,tiers)
   rem make sure the minimum is 4x4
   if tiers < 4 then tiers  = 4

   rem set up vertice plotting variables
   xinc#=size#/tiers
   yinc#=xinc#/3
   zinc#=size#/12.0
   tailx#=size#/4.0
   taily#=((tiers-1)/2.0)*yinc#
   mid=(tiers-1)/2


   rem array to hold points
   dim verts#((tiers^2)*2,2)

   rem go through x and y positions and calculate points for triangles
   for y=0 to tiers-1
      for x=0 to tiers-1
         rem v=vertices for front
         rem v2=vertices for back so we only have to run through one set of points
         v=x+(y*tiers)
         v2=v+tiers^2

         rem front side
         rem check if we are at the tail
         if x=tiers-1
            verts#(v,0)=(x*xinc#)+tailx#
            verts#(v,1)=taily#
         else
            rem check if we are at the head
            if x <= mid-1
               rem upper parabola for the top of the head
               rem change the head size by changing 3.5 in (x*xinc#/3.5)
               if y > mid
                  verts#(v,1)=taily#+sqrt(4*(y*yinc#/2)*(x*xinc#/3.5))
                  verts#(v,0)=x*xinc#/1.5
               endif
               rem plot the lower parabola for the bottom of the head
               if y <= mid
                  verts#(v,1)=taily#-sqrt(4*((taily#-y)*yinc#/2)*(x*xinc#/3.5))
                  verts#(v,0)=x*xinc#/1.5
               endif
            else
               rem default x and y
               verts#(v,0)=x*xinc#
               verts#(v,1)=y*yinc#
            endif
         endif

         rem z values.  The logic checks if we are at any edge of the grid
         rem and if so, it sets z=0 effectively "pinching" the ends closed
         rem if we are not at an edge, the -1.0 pushed the z value outwards
         rem towards the viewer (-z) by zinc#
         verts#(v,2)=-1.0*(zinc#*((y!0) & (y!tiers-1) & (x!0) & (x!tiers-1)))

         rem backside
         rem same x and y values, and opposite z values from front grid
         verts#(v2,0)=verts#(v,0)
         verts#(v2,1)=verts#(v,1)
         verts#(v2,2)=0.0-verts#(v,2)
      next x
   next y
   rem make triangles
   tri=obj
   lmb=0
   for y=0 to tiers-2
      for x=0 to tiers-2
         v=x+(y*tiers)
         v2=v+tiers^2

         rem triangle 1
         x1#=verts#(v,0)
         y1#=verts#(v,1)
         z1#=verts#(v,2)

         x2#=verts#(v+tiers,0)
         y2#=verts#(v+tiers,1)
         z2#=verts#(v+tiers,2)

         x3#=verts#(v+tiers+1,0)
         y3#=verts#(v+tiers+1,1)
         z3#=verts#(v+tiers+1,2)

         rem this check is here to make sure we don't overwrite
         rem the object we are assigning to the fish since we reuse
         rem and delete the same object and mesh over and over
         rem to manage overhead as we go
         while object exist(tri)=1
            inc tri
         endwhile

         make object triangle tri,x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#
         rem the first triangle is the root object of the mesh initially
         rem so we don't want to turn it into a limb
         if v<>0
            make mesh from object tri,tri
            inc lmb
            add limb obj,lmb,tri
            delete object tri
            delete mesh tri
         endif

         rem triangle 2
         x1#=verts#(v+tiers+1,0)
         y1#=verts#(v+tiers+1,1)
         z1#=verts#(v+tiers+1,2)

         x2#=verts#(v+1,0)
         y2#=verts#(v+1,1)
         z2#=verts#(v+1,2)

         x3#=verts#(v,0)
         y3#=verts#(v,1)
         z3#=verts#(v,2)

         rem if we successfully created the first triangle, we
         rem want to make sure to skip that as an object to
         rem manipulate
         while object exist(tri)=1
            inc tri
         endwhile

         make object triangle tri,x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#
         inc lmb
         make mesh from object tri,tri
         add limb obj,lmb,tri
         delete object tri
         delete mesh tri

         rem back
         rem triangle 1
         x1#=verts#(v2,0)
         y1#=verts#(v2,1)
         z1#=verts#(v2,2)

         x2#=verts#(v2+tiers,0)
         y2#=verts#(v2+tiers,1)
         z2#=verts#(v2+tiers,2)

         x3#=verts#(v2+tiers+1,0)
         y3#=verts#(v2+tiers+1,1)
         z3#=verts#(v2+tiers+1,2)

         make object triangle tri,x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#
         inc lmb
         make mesh from object tri,tri
         add limb obj,lmb,tri
         delete object tri
         delete mesh tri

         rem triangle 2
         x1#=verts#(v2+tiers+1,0)
         y1#=verts#(v2+tiers+1,1)
         z1#=verts#(v2+tiers+1,2)

         x2#=verts#(v2+1,0)
         y2#=verts#(v2+1,1)
         z2#=verts#(v2+1,2)

         x3#=verts#(v2,0)
         y3#=verts#(v2,1)
         z3#=verts#(v2,2)

         make object triangle tri,x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#
         inc lmb
         make mesh from object tri,tri
         add limb obj,lmb,tri
         delete object tri
         delete mesh tri

      next x
   next y

   rem make a whole mesh of the body to eliminate the hundreds of limbs
   rem just created
   make mesh from object obj,obj
   delete object obj
   make object obj,obj,0
   delete mesh obj

   rem reset limb count
   lmb=0

   rem add a tail
   tail=obj+1
   while object exist(tail)
      inc tail
   endwhile
   make object cone tail,size#/2.0
   rem set tail pivot
   position object tail,0,-1.0*object size y(tail)/2,0
   scale object tail,100,100,10
   make mesh from object tail,tail
   delete object tail
   inc lmb
   add limb obj,lmb,tail
   offset limb obj,lmb,size#/1.2,taily#,0
   rotate limb obj,lmb,0,0,90
   delete mesh tail

   rem top fin
   make object box tail,size#/4,size#/4,zinc#/8
   make mesh from object tail,tail
   delete object tail
   inc lmb
   add limb obj,lmb,tail
   offset limb obj,lmb,size#/2,taily#*1.8,0
   rotate limb obj,lmb,0,0,38

   rem left fin
   rem set pivot
   make object tail,tail,0
   position object tail,object size x(tail)/2,0,0
   rotate object tail,0,30,45
   delete mesh tail
   make mesh from object tail,tail
   delete object tail
   inc lmb
   add limb obj,lmb,tail
   offset limb obj,lmb,size#/4,taily#,zinc#*-1.5
   scale limb obj,lmb,70,70,70

   rem right fin
   inc lmb
   add limb obj,lmb,tail
   rotate limb obj,lmb,180,0,0
   offset limb obj,lmb,size#/3,taily#,zinc#*1.5
   scale limb obj,lmb,70,70,70
   delete mesh tail

   rem turn culling off because individual triangles only have one direction
   rem for their normals no matter how they are rotated as a limb after
   rem creting them as a mesh.  Otherwise, there will be holes in the mesh
   set object obj,1,1,0
endfunction

As this is a WIP, I removed the source to work on it some more

Remstart
Underwater Entry
Made by Sinani201
~The DB Classic Programming Challenge Thread~
remend

Set Display Mode 800,600,16
cls 0 : sync
hide mouse
print "Welcome to Sinani201's UnderWater... thing"
print "Use the arrow keys to move and space to shoot"
print "If you run out of air, you lose!"
print "You are the green guy, and your enemies are purple. Shoot as many as you can before you lose!"
print "If you get hit then you lose."
print "Good luck!"
print "Press any key to start"
wait key
cls
printc "Drawing sand..."
`Shore(Sand)
ink RGB(255,215,130),0
box 0,100,100,599
ink 0,0
remstart
`Draw random dots in the sand
for y=100 to 599
  for x=1 to 100
    draw=rnd(32)
    if draw=24 then dot x,y
  next x
next y
ink RGB(255,255,255),0
remend
`Draw water
ink RGB(75,185,225),0
box 101,150,799,599
ink 0,0
text 0,0,"Drawing sand..."
`Draw your character
ink RGB(0,255,0),0
box 0,0,70,50
box 70,20,90,30
get image 1,0,0,90,50
ink 0,0
box 0,0,90,50
`Draw enemy
ink rgb(170,30,160),0
box 0,0,70,50
get image 2,0,0,70,50
ink 0,0
box 0,0,70,50
wait 1000
`Put your character on the screen
charx=1
chary=50
set text opaque
`Enemy vars
enemyNum=2
makeEnemy=1
`MAIN LOOP TIME!!!!
DO : `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  sync
  sprite 1,charx,chary,1
  set text size 20
  text 70,20,"Kills: "+str$(kills)
  `Control character
  if underwater=1
    if upkey()=1 then sprite 1,charx,chary-speed,1
  endif
  if movedown=1
    if downkey()=1 then sprite 1,charx,chary+speed,1
  endif
  if leftkey()=1 then sprite 1,charx-speed,chary,1
  if rightkey()=1 then sprite 1,charx+speed,chary,1
  `Shoot
  if underwater=1
    if spacekey()=1
      if firedbullet=0
        firedbullet=1
        bulletposx=sprite x(1)+sprite width(1)
        bulletposy=sprite y(1)+5
      endif
    endif
    dec air#,0.2
  endif
  if firedbullet=1
    speed=6
  else
    speed=3
  endif
  if firedbullet=1
    gosub movebullet
  else
    sleep 1
  endif
  `Make sure character does not fall out of boundries
  if charx>99
    if changevar=0
      sprite 1,sprite x(1),151,1
      changevar=1
    endif
    movedown=1
    underwater=1
  endif
  if underwater=1
    if chary<120 then sprite 1,sprite x(1),120,1
    if charx+sprite width(1)>799 then sprite 1,799-sprite width(1),sprite y(1),1
    if charx<101 then sprite 1,101,sprite y(1),1
    gainair=0
  endif
  `Enemy Character
  if makeEnemy=1
  for enemy=2 to enemyNum
    if enemy-1<4 then sprite enemy,700,(enemy-2)*70+160,2
    if enemy-1>3 then sprite enemy,600,(enemy-2)*70+160,2
  next enemy
  makeEnemy=0
  endif
  `If enemy gets hit...
  for enemy=2 to enemyNum
  if sprite exist(2)=1
    spritex=sprite x(enemy)
    spritey=sprite y(enemy)
  endif
  if sprite exist(2)=1
    if bulletposx > spritex and bulletposx < spritex+sprite width(enemy)
      if bulletposy > spritey and bulletposy < spritey+sprite height(enemy)
        delete sprite enemy
        firedbullet=0
        inc enemyNum
        inc kills
        inc makeEnemy
      endif
    endif
  endif
  next enemy
    `Update charcter position
  if charx<0 then sprite 1,0,sprite y(1),1
  charx=sprite x(1)
  chary=sprite y(1)
  sprite 1,charx,chary,1
loop

remstart
*****************************************
*****************************************
********Functions and subroutines********
*****************************************
*****************************************
REMEND
movebullet:
  set text size 15
  set text opaque
  ink rgb(255,255,255),RGB(75,185,225)
  inc bulletposx,10
  text bulletposx,bulletposy,"-"
  sleep 1
  text bulletposx,bulletposy," "
  if bulletposx>799 then firedbullet=0
return

rem sub image
rem by latch
rem 01/19/2008

sync on
sync rate 60

for y=0 to 6
   ink rgb(155-(5*y),155-(5*y),155-(5*y)),0
   line 70,y,77,y
next y

for y=6 to 12
   ink rgb(155-(5*y),155-(5*y),155-(5*y)),0
   line 60,y,80,y
next y

for y=12 to 25
   ink rgb(255-(9*y),255-(9*y),255-(9*y)),0
   line 10+(5*(sin(15*y))),y,100-(5*(sin(15*y))),y
next y

ink rgb(20,20,20),0
box 95,18,102,20

get image 1,5,0,106,26

cls 255
x=100
y=100

do
   if upkey()=1 then dec y,2
   if downkey()=1 then inc y,2
   if leftkey()=1
      dec x,2
      if sprite mirrored(1)=0
         mirror sprite 1
      endif
   endif

   if rightkey()=1
      inc x,2
      if sprite mirrored(1)=1
         mirror sprite 1
      endif
   endif

   sprite 1,x,y,1

   sync
loop

sync on : sync rate 0
make object sphere 1,1
hide object 1
position object 1,0,0,0

`head
make object triangle 2,0,0,0,5,0,5,0,5,2.5
make object triangle 3,0,0,0,-5,0,5,0,5,2.5
make object triangle 4,0,0,10,5,0,5,0,5,7.5
make object triangle 5,0,0,10,-5,0,5,0,5,7.5
make object triangle 6,5,0,5,-5,0,5,0,5,2.5
make object triangle 7,5,0,5,-5,0,5,0,5,7.5
`body
make object triangle 8,0,0,0,5,0,5,0,-10,2.5
make object triangle 9,0,0,0,-5,0,5,0,-10,2.5
make object triangle 10,0,0,10,5,0,5,0,-10,2.5
make object triangle 11,0,0,10,-5,0,5,0,-10,2.5
`eyes
make object sphere 12,0.8 : position object 12,1.5,2.5,2.5
make object sphere 13,0.8 : position object 13,-1.5,2.5,2.5
`tail
make object triangle 14,0,-10,2.5,0.3,-12,2.5,0,-13,4
make object triangle 15,0,-10,2.5,-0.3,-12,2.5,0,-13,4
make object triangle 16,0,-10,2.5,0.3,-12,2.5,0,-13,1
make object triangle 17,0,-10,2.5,-0.3,-12,2.5,0,-13,1
for t=3 to 17
	make mesh from object 1,t : delete object t : add limb 2,t-2,1 : delete mesh 1
next t
color object 2,rgb(255,100,0)
color limb 2,10,0 : color limb 2,11,0
color limb 2,4,rgb(10,10,10) : color limb 2,5,rgb(10,10,10)
set object diffuse 2,rgb(255,200,0)
set object ambient 2,rgb(255,200,0)
set object specular 2,rgb(255,200,0),50000

do
if rightkey()=1 then yrotate object 1,wrapvalue(obja#+1)
if leftkey()=1 then yrotate object 1,wrapvalue(obja#-1)
if upkey()=1 then objb#=objb#+1
if downkey()=1 then objb#=objb#-1
obja#=object angle y(1)
camx#=newxvalue(0,obja#,20)
camy#=newyvalue(0,objb#,10)
camz#=newzvalue(0,obja#,20)
position camera camx#,objb#,camz#
point camera 0,0,0
sync
loop

make object triangle 2, 0,0,0, 0.7,0.1,0, 0.6,-0.1,0

do
   turn object right 2,1
loop

make object triangle 2, 0,0,0, 0.7,0.1,0, 0.6,-0.1,0
set object 2,1,1,1
do
   turn object right 2,1
loop

   make mesh from object 5,5
   delete object 5
   add limb 1,1,5
   offset limb 1,1,0,0.3,0

   rem add this line to turn culling off so you can see both sides of the limbs
   set object 1,1,1,0

Remstart
Underwater Entry
Made by Sinani201
~The DB Classic Programming Challenge Thread~
remend

Set Display Mode 800,600,16

rem added sync on and sync rate
   sync on
   sync rate 60

cls 0 : sync
hide mouse
print "Welcome to Sinani201's UnderWater... thing"
print "Use the arrow keys to move and space to shoot"
print "If you run out of air, you lose!"
print "You are the green guy, and your enemies are purple. Shoot as many as you can before you lose!"
print "If you get hit then you lose."
print "Good luck!"
print "Press any key to start"
wait key
cls
printc "Drawing sand..."
`Shore(Sand)
ink RGB(255,215,130),0
box 0,100,100,599
ink 0,0
remstart
`Draw random dots in the sand
for y=100 to 599
  for x=1 to 100
    draw=rnd(32)
    if draw=24 then dot x,y
  next x
next y
ink RGB(255,255,255),0
remend
`Draw water
ink RGB(75,185,225),0
box 101,150,799,599
ink 0,0
text 0,0,"Drawing sand..."
`Draw your character
ink RGB(0,255,0),0
box 0,0,70,50
box 70,20,90,30
get image 1,0,0,90,50

rem added sync
sync


ink 0,0
box 0,0,90,50
`Draw enemy
ink rgb(170,30,160),0
box 0,0,70,50
get image 2,0,0,70,50

rem added sync
sync


ink 0,0
box 0,0,70,50
wait 1000
`Put your character on the screen
charx=1
chary=50
set text opaque
`Enemy vars
enemyNum=2
makeEnemy=1
`MAIN LOOP TIME!!!!
DO : `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  rem commented out
  `sync

  sprite 1,charx,chary,1
  set text size 20
  text 70,20,"Kills: "+str$(kills)

  rem changed to sub-routines
  gosub controlcharacter
  gosub shoot
  gosub movelimit
  gosub _make_enemy
  gosub hitenemy
  gosub updateposition

  rem added sync
  sync
loop

remstart
*****************************************
*****************************************
********Functions and subroutines********
*****************************************
*****************************************
REMEND
movebullet:
  set text size 15
  set text opaque
  ink rgb(255,255,255),RGB(75,185,225)
  inc bulletposx,10
  text bulletposx,bulletposy,"-"
  sleep 1
  text bulletposx,bulletposy," "
  if bulletposx>799 then firedbullet=0
return

controlcharacter:
  `Control character
  if underwater=1
    if upkey()=1 then sprite 1,charx,chary-speed,1
  endif
  if movedown=1
    if downkey()=1 then sprite 1,charx,chary+speed,1
  endif
  if leftkey()=1 then sprite 1,charx-speed,chary,1
  if rightkey()=1 then sprite 1,charx+speed,chary,1
return

shoot:
  `Shoot
  if underwater=1
    if spacekey()=1
      if firedbullet=0
        firedbullet=1
        bulletposx=sprite x(1)+sprite width(1)
        bulletposy=sprite y(1)+5
      endif
    endif
    dec air#,0.2
  endif
  if firedbullet=1
    speed=6
  else
    speed=3
  endif
  if firedbullet=1
    gosub movebullet
  else
    sleep 1
  endif
return

movelimit:
  `Make sure character does not fall out of boundries
  if charx>99
    if changevar=0
      sprite 1,sprite x(1),151,1
      changevar=1
    endif
    movedown=1
    underwater=1
  endif
  if underwater=1
    if chary<120 then sprite 1,sprite x(1),120,1
    if charx+sprite width(1)>799 then sprite 1,799-sprite width(1),sprite y(1),1
    if charx<101 then sprite 1,101,sprite y(1),1
    gainair=0
  endif
return

_make_enemy:
  `Enemy Character
  if makeEnemy=1
  for enemy=2 to enemyNum
    if enemy-1<4 then sprite enemy,700,(enemy-2)*70+160,2
    if enemy-1>3 then sprite enemy,600,(enemy-2)*70+160,2
  next enemy
  makeEnemy=0
  endif
return

hitenemy:
  `If enemy gets hit...
  for enemy=2 to enemyNum
  if sprite exist(2)=1
    spritex=sprite x(enemy)
    spritey=sprite y(enemy)
  endif
  if sprite exist(2)=1
    if bulletposx > spritex and bulletposx < spritex+sprite width(enemy)
      if bulletposy > spritey and bulletposy < spritey+sprite height(enemy)
        delete sprite enemy
        firedbullet=0
        inc enemyNum
        inc kills
        inc makeEnemy
      endif
    endif
  endif
  next enemy
return

updateposition:
    `Update charcter position
  if charx<0 then sprite 1,0,sprite y(1),1
  charx=sprite x(1)
  chary=sprite y(1)
  sprite 1,charx,chary,1
return

Remstart
Underwater Entry
Made by Sinani201
~The DB Classic Programming Challenge Thread~
remend

Set Display Mode 800,600,16

rem added sync on and sync rate
   sync on
   sync rate 60

cls 0 : sync
hide mouse
print "Welcome to Sinani201's UnderWater... thing"
print "Use the arrow keys to move and space to shoot"
print "If you run out of air, you lose!"
print "You are the green guy, and your enemies are purple. Shoot as many as you can before you lose!"
print "If you get hit then you lose."
print "Good luck!"
print "Press any key to start"
wait key
cls
printc "Drawing sand..."
`Shore(Sand)
ink RGB(255,215,130),0
box 0,100,100,599
ink 0,0
`Draw random dots in the sand
for y=100 to 599
  for x=1 to 100
    draw=rnd(32)
    if draw=24 then dot x,y
  next x
next y
ink RGB(255,255,255),0
`Draw water
ink RGB(75,185,225),0
box 101,150,799,599
ink 0,0
text 0,0,"Drawing sand..."
`Draw your character
ink RGB(0,255,0),0
box 0,0,70,50
box 70,20,90,30
get image 1,0,0,90,50

rem added sync
sync


ink 0,0
box 0,0,90,50
`Draw enemy
ink rgb(170,30,160),0
box 0,0,70,50
get image 2,0,0,70,50

rem added sync
sync


ink 0,0
box 0,0,70,50
wait 1000
`Put your character on the screen
charx=1
chary=50
set text opaque
`Enemy vars
enemyNum=2
makeEnemy=1
`MAIN LOOP TIME!!!!
DO : `!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  rem commented out
  `sync

  sprite 1,charx,chary,1
  set text size 20
  text 70,20,"Kills: "+str$(kills)

  rem changed to sub-routines
  gosub controlcharacter
  gosub shoot
  gosub movelimit
  gosub _make_enemy
  gosub hitenemy
  gosub updateposition

  rem added sync
  sync
loop

remstart
*****************************************
*****************************************
********Functions and subroutines********
*****************************************
*****************************************
REMEND
movebullet:
  set text size 15
  set text opaque
  ink rgb(255,255,255),RGB(75,185,225)
  inc bulletposx,10
  text bulletposx,bulletposy,"-"
  sleep 1
  text bulletposx,bulletposy," "
  if bulletposx>799 then firedbullet=0
return

controlcharacter:
  `Control character
  if underwater=1
    if upkey()=1 then sprite 1,charx,chary-speed,1
  endif
  if movedown=1
    if downkey()=1 then sprite 1,charx,chary+speed,1
  endif
  if leftkey()=1 then sprite 1,charx-speed,chary,1
  if rightkey()=1 then sprite 1,charx+speed,chary,1
return

shoot:
  `Shoot
  if underwater=1
    if spacekey()=1
      if firedbullet=0
        firedbullet=1
        bulletposx=sprite x(1)+sprite width(1)
        bulletposy=sprite y(1)+5
      endif
    endif
    dec air#,0.2
  endif
  if firedbullet=1
    speed=6
  else
    speed=3
  endif
  if firedbullet=1
    gosub movebullet
  else
    sleep 1
  endif
return

movelimit:
  `Make sure character does not fall out of boundries
  if charx>99
    if changevar=0
      sprite 1,sprite x(1),151,1
      changevar=1
    endif
    movedown=1
    underwater=1
  endif
  if underwater=1
    if chary<120 then sprite 1,sprite x(1),120,1
    if charx+sprite width(1)>799 then sprite 1,799-sprite width(1),sprite y(1),1
    if charx<101 then sprite 1,101,sprite y(1),1
    gainair=0
  endif
return

_make_enemy:
  `Enemy Character
  if makeEnemy=1
  for enemy=2 to enemyNum
    if enemy-1<4 then sprite enemy,700,(enemy-2)*70+160,2
    if enemy-1>3 then sprite enemy,600,(enemy-2)*70+160,2
  next enemy
  makeEnemy=0
  endif
return

hitenemy:
  `If enemy gets hit...
  for enemy=2 to enemyNum
  if sprite exist(2)=1
    spritex=sprite x(enemy)
    spritey=sprite y(enemy)
  endif
  if sprite exist(2)=1
    if bulletposx > spritex and bulletposx < spritex+sprite width(enemy)
      if bulletposy > spritey and bulletposy < spritey+sprite height(enemy)
        delete sprite enemy
        firedbullet=0
        inc enemyNum
        inc kills
        inc makeEnemy
      endif
    endif
  endif
  next enemy
return

updateposition:
    `Update charcter position
  if charx<0 then sprite 1,0,sprite y(1),1
  charx=sprite x(1)
  chary=sprite y(1)
  sprite 1,charx,chary,1
return