Sorry your browser is not supported!

gosub Initialise
gosub DefineColours
gosub MakeCupIcon
gosub ScreenWash

ink colour(2),0
Text 70,30,"Name" : Text 120,30,"Score"
For y= 0 to 4
   Text 70,50+y*20,"AAA" : Text 120,50+y*20,"999"
   sprite 1+y,50,55+y*20,1
Next y

sync

END

`--------------------------
` Subroutines
`--------------------------
Initialise:
   set display mode 640,480,32
   hide mouse
   sync on : sync rate 0
Return
`---
DefineColours:
   rem Define some colours
   DIM colour(2)
   colour(1)= rgb(255,191,0)
   colour(2)= rgb(255,255,255)
Return
`---
MakeCupIcon:
   rem Draw Cup
   for y= 0 to 7
     for x= 0 to 8
       read col
       ink colour(col),0
       dot x,y
     next x
   next y
   rem Get Image
   get image 1,0,0,9,10
Return
`---
ScreenWash:
   for y= 0 to 480
      ink (y/480.)*255,0
      line 0,y,639,y
   next y
Return

`--------------------------
` Data Arrays
`--------------------------
rem Champion Cup Icon
data 0,1,1,1,1,1,1,1,0
data 1,0,1,1,1,1,1,0,1
data 1,0,1,1,1,1,1,0,1
data 0,1,1,1,1,1,1,1,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,0,1,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,1,1,1,1,1,0,0

sync on

gosub images

set cursor 50,0
ink rgb(180,180,250),0
print "Lee: 1,000,000"
set cursor 50,50
print "TDK: 9,990,275"
set cursor 50,100
print "Latch: 9,870,200"
set cursor 50,150
print "OBese87: 9,400,321"
set cursor 50,200
print "Sinani: 9,201,532"
set cursor 50,250
print "Fred: 7,600,000"
set cursor 50,300
print "Bob: 5,000,240"
set cursor 50,350
print "Jim: 800,067"
set cursor 50,400
print "Joe: 10,000"
set cursor 50,450
print "INH: 10"
wait 10
for t=0 to 480
sprite 1,0,t,1
sync
next t


`======
`IMAGES
`======
Images:
for t=0 to 250 step 20
ink rgb(f,f,t),0
line 0,f,639,f
inc f,1
next t

for t=250 to 0 step -20
ink rgb(0,0,t),0
line 0,f,639,f
inc f,1
next t
ink rgb(5,5,5),0
box 0,26,639,479
get image 1,0,0,639,479
cls
return

remstart
   ==============================================================
   =  Title  : High Score Challenge
   =  Author : Latch
   =  Date   : 06/02/2008
   =  Update :
   =  Version:
   ==============================================================
   Comments
   ==============================================================
remend

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

rem =============================================================
rem = MAIN
rem =============================================================
_main:
   gosub _title
   gosub _init
   position camera (textwd*10)/2,1000,textht/2
   point camera (textwd*10)/2,0,(textht/2)
   do
      gosub _scroll_scores

      `sync
   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _init:
      cls 0
      ink rgb(255,255,255),0
      set text font "times new roman",1
      set text size 20
      sync

      dim name$(10)
      dim score(10)
      for n=1 to 10
         name$(n)="Player "+str$(n)
         score(n)=10000*(11-n)
         text 0,(n-1)*20,name$(n)
         text 80,(n-1)*20,str$(score(n))
      next n
      plwd=text width(name$(1))
      plwd=plwd+(80-plwd)
      textwd=text width(str$(score(1)))+plwd
      textht=10*20

      `line 0,0,textwd,0
      `line 0,10*20,textwd,10*20
      get image 1,0,0,textwd+1,(textht)+1
      sync

      gosub _texture
      set camera view 0,0,1,1

      make object plain 1,textwd*20,textwd*20
      texture object 1,2
      xrotate object 1,90
      position object 1,object size x(1)/4,0,object size z(1)/2

      make memblock from image 1,1
      make matrix 1,textwd*10,textht*2,textwd,20
      set matrix wireframe off 1
      prepare matrix texture 1,3,1,1

      wd=memblock dword(1,0)
      ht=memblock dword(1,4)
      dp=memblock dword(1,8)
      bytes=dp/8

      rem create bitmap to draw wave from
      create bitmap 1,screen width(),300
      set current bitmap 0
      delete bitmap 2
      set camera view 0,0,screen width(),screen height()
   return
`----------------------------------------------------------------
   _scroll_scores:
      for y=0 to textht-1
         for x=0 to textwd-1
            pos=x+(y*wd)
            pos=12+(pos*bytes)


               if memblock dword(1,pos) <> 0
                  set matrix height 1,x,0,100
               else
                  set matrix height 1,x,0,0
               endif

         next x
         shift matrix down 1
         `update matrix 1

         rem limit norm calculation
         inc norm
         if norm > 2
            calc_mat_normals(1,textwd,20,20.0,20.0)
            norm=0
         endif

         rem start of wavey
         copy bitmap 0,0,100,screen width()-1,350,1,0,0,screen width()-1,299
         flip bitmap 1
         make memblock from bitmap 2,1
         wd2=memblock dword(2,0)
         ht2=memblock dword(2,4)
         dp2=memblock dword(2,8)
         bytes2=dp2/8

         rem wavey routine
         for y2=0 to ht2-1
            x2=10*sin(degree#)+10
            inc degree#,9.92
            degree#=wrapvalue(degree#)
            copy memblock 2,2,12+(y2*wd2*bytes2),12+(x2*bytes2)+(y2*wd2*bytes2),(wd2*bytes2)-(x2*bytes2)
         next y2
         make image from memblock 4,2
         paste image 4,0,350
         sync

      next y
   return
`----------------------------------------------------------------
   _texture:
      cls 0
      ink rgb(255,255,0),0
      dot 0,0
      get image 3,0,0,1,1
      sync

      cls 0
      cinc#=255/63
      for r=0 to 63
         ink rgb(0,0,255-(r*cinc#)),0
         circle 64,64,r
         circle 64,63,r
      next r
      get image 2,0,0,128,128
      sync

      rem lights
      set ambient light 0
      set directional light 0,4,-1,1

   return
`-------------------------------------------------------------
   _title:
      create bitmap 2,screen width(),screen height()
      cls 0
      rad=screen width()/2
      cinc#=255.0/(rad-1)
      for r=0 to rad-1
         ink rgb(0,0,255-(r*cinc#)),0
         circle rad,rad,r
         circle rad,rad-1,r
      next r


      set text font "times new roman",1
      set text size 220
      ink rgb(255,255,0),0
      sync
      center text screen width()/2,50,"High"
      center text screen width()/2,260,"Scores!!"
      sync

      maxxr=(screen width()/2)-11
      maxyr=(screen height()/2)-11
      for xr=0 to maxxr
         for yr=0 to maxyr
            ang=wrapvalue(ang+4)
            x1=xr*cos(ang)+maxxr+10
            y1=yr*sin(ang)+maxyr+10
            copy bitmap 2,x1,y1,x1+10,y1+10,0,x1,y1,x1+10,y1+10
         next yr
         sync
      next xr
      ink 0,0
      `delete bitmap 2
      set current bitmap 0
      for yr=maxyr+11 to 100 step -1
         for xr=maxxr+11 to 2 step -1
            ang=wrapvalue(ang+4)
            x1=xr*cos(ang)+maxxr+10
            y1=yr*sin(ang)+maxyr+10
            box x1,y1,x1+10,y1+10
            `copy bitmap 2,x1,y1,x1+10,y1+10,0,x1,y1,x1+10,y1+10
         next xr
         sync
      next yr
      set current bitmap 2
      sync
   return
rem =============================================================
rem = FUNCTIONS
rem =============================================================
   function calc_mat_normals(mat,tilex,tilez,sizex#,sizez#)
   Rem By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
   rem added tile and tile size factor for normal depth adjustment - latch
      for z=1 to tilez
         for x=1 to tilex

            rem Get matrix heights
            h8#=get matrix height(mat,x,z-1)
            h4#=get matrix height(mat,x-1,z)
            h#=get matrix height(mat,x,z)
            h2#=get matrix height(mat,x-1,z-1)

            rem Calculate projected angle X using heights
            x1#=(x-1)*sizex# : y1#=h#
            x2#=(x+0)*sizex# : y2#=h4#
            dx#=x2#-x1#
            dy#=y2#-y1#
            ax#=atanfull(dx#,dy#)
            ax#=wrapvalue(90-ax#)

            rem Calculate projected angle Z using heights
            z1#=(z-1)*sizez# : y1#=h2#
            z2#=(z+0)*sizez# : y2#=h8#
            dz#=z2#-z1#
            dy#=y2#-y1#
            az#=atanfull(dz#,dy#)
            az#=wrapvalue(90-az#)

            rem Make normal from projected angle
            nx#=sin(ax#)
            ny#=cos(ax#)
            nz#=sin(az#)

            rem Setting matrix normal for smoothness
            set matrix normal mat,x,z,nx#,ny#,nz#

         next x
      next z
      update matrix mat
   endfunction

sync on
hide mouse

Hiscores=10
dim Hiname$(Hiscores)
dim HiValue(Hiscores)

dim Hinmpxl(Hiscores,100,20)
dim Hivlpxl(Hiscores,50,20)

dim Hinmbld(Hiscores,100,20)
dim Hivlbld(Hiscores,50,20)

set text font "courier new"
set text size 16
sync
for i=1 to Hiscores

   read name$
   read value
   Hiname$(i)=name$
   Hivalue(i)=value

   ink rgb(255,255,255),0

   tilex1=text width(Hiname$(i))
   tiley1=12
   tilex2=text width(str$(Hivalue(i)))
   tiley2=12

   cls
   text 0,0,Hiname$(i)
   filen$=Hiname$(i)+" name.bmp"
   get image i*2-1,0,0,tilex1,tiley1
   if file exist(filen$)=1 then delete file filen$
   save image filen$,i*2-1

   cls
   text 0,0,str$(Hivalue(i))
   get image i*2,0,0,tilex2,tiley2
   filev$=Hiname$(i)+" value.bmp"
   if file exist(filev$)=1 then delete file filev$
   save image filev$,i*2

   sync
   ConvertTextToPixels(i,tilex1,tiley1,tilex2,tiley2)

   ConvertTextToBuilding(i,tilex1,tiley1,tilex2,tiley2)

next i

gosub gettextures

cls
backdrop on
color backdrop 0
fog on
fog color 0
fog distance 2000
make object plain 1,3000,10000
xrotate object 1,90
position object 1,300,-5,1200
color object 1,rgb(100,100,100)
sync

object=1
for i=1 to Hiscores
   tilex1=text width(Hiname$(i))
   tiley1=12
   tilex2=text width(str$(Hivalue(i)))
   tiley2=12
   for x=1 to tilex1
      for y=1 to tiley1
         if Hinmbld(i,x,y)=1
            object=object+1
            make object cube object,10
            color object object,rgb(0,0,155)
            make mesh from object 1,object
            add limb object,1,1
            scale limb object,1,40,40,1
            color limb object,1,rgb(255,255,0)
            offset limb object,1,0,0,-5.0
            position object object,x*10,(tiley1-y)*10,i*350-350
         endif
         if Hinmbld(i,x,y)=2
            object=object+1
            make object cube object,10
            texture object object,1001
            set object object,1,0,1
            position object object,x*10,(tiley1-y)*10,i*350-350
         endif
      next y
   next x
   extrax=tilex1*10+50
   for x=1 to tilex2
      for y=1 to tiley2
         if Hivlbld(i,x,y)=1
            object=object+1
            make object cube object,10
            color object object,rgb(0,0,155)
            make mesh from object 1,object
            add limb object,1,1
            scale limb object,1,40,40,1
            color limb object,1,rgb(255,255,0)
            offset limb object,1,0,0,-5.0
            position object object,x*10+extrax,(tiley1-y)*10,i*350-350
         endif
         if Hivlbld(i,x,y)=2
            object=object+1
            make object cube object,10
            texture object object,1001
            set object object,1,0,1
            position object object,x*10+extrax,(tiley1-y)*10,i*350-350
         endif
      next y
   next x
next i

sync rate 40

hiscoreon=1
targetx#=(text width(Hiname$(hiscoreon))+text width(str$(Hivalue(hiscoreon))))/2*10+30
targety#=220
targetz#=((hiscoreon*300)-300)-500

position camera targetx#,targety#,targetz#

do

   set cursor 0,0

   upcount=upcount-1
   dncount=dncount-1
   if upkey()=1 and upcount<0 and hiscoreon<Hiscores
      hiscoreon=hiscoreon+1
      targetx#=(text width(Hiname$(hiscoreon))+text width(str$(Hivalue(hiscoreon))))/2*10
      targety#=220
      targetz#=((hiscoreon*350)-350)-(text width(Hiname$(hiscoreon))+text width(str$(Hivalue(hiscoreon))))/2*14
      upcount=10
   endif
   if downkey()=1 and dncount<0 and hiscoreon>1
      hiscoreon=hiscoreon-1
      targetx#=(text width(Hiname$(hiscoreon))+text width(str$(Hivalue(hiscoreon))))/2*10
      targety#=220
      targetz#=((hiscoreon*350)-350)-(text width(Hiname$(hiscoreon))+text width(str$(Hivalue(hiscoreon))))/2*14
      dncount=10
   endif

   currentx#=camera position x()
   currenty#=camera position y()
   currentz#=camera position z()

   if currentx#<>targetx#
      currentx#=currentx#+((targetx#-currentx#)/10)
   endif
   if currentz#<>targetz#
      currentz#=currentz#+((targetz#-currentz#)/10)
   endif

   position camera currentx#,currenty#,currentz#

   print hiscoreon

   sync

loop

end

gettextures:

   x1=1
   y1=1
   x2=64
   y2=64

   ink rgb(150,80,0),0

   drawaline(x1+3-2,y1+3-2,x1+3-2,y2-2,4)
   drawaline(x1+3-2,y2-2,x2-2,y2-2,4)
   drawaline(x2-2,y2-2,x2-2,y1+3-2,4)
   drawaline(x2-2,y1+3-2,x1+3-2,y1+3-2,4)

   drawaline(x1+3-2,y1+3-2,x2-2,y2-2,4)
   drawaline(x1+3-2,y2-2,x2-2,y1+3-2,4)

   get image 1001,x1,y1,x2,y2

return

function drawaline(x1,y1,x2,y2,thickness)

   unit$=right$(str$(thickness),1)
   if unit$="1" or unit$="3" or unit$="5" or unit$="7" or unit$="9"
      print 1
      odd=1
      hth#=(thickness+1)/2
   else
      odd=0
      hth#=thickness/2
   endif
   angle#=atanfull((x2-x1),(y2-y1))
   angle#=wrapvalue((360-angle#)-270)
   d#=0
   x=x1
   y=y1
   distance#=sqrt((x1-x2)^2+(y1-y2)^2)

   for d=0 to distance#*2
      d#=d#+0.5
      tx=cos(angle#)*d#
      ty=sin(angle#)*d#
      x=x1+tx
      y=y1+ty
      if odd=1 then box x-hth#,y-hth#,(x-hth#)+thickness-1,(y-hth#)+thickness-1 else box x-hth#,y-hth#,x+hth#-1,y+hth#-1
   next d

endfunction

function ConvertTextToPixels(number,tilex1,tiley1,tilex2,tiley2)

   for i=1 to 2
      extra=0
      if i=1
         file$=Hiname$(number)+" name.bmp"
         imgwidth=tilex1
         imgheight=tiley1
      else
         file$=Hiname$(number)+" value.bmp"
         imgwidth=tilex2
         imgheight=tiley2
      endif
      fsize=file size(file$)
      bmapsize=fsize-53-1
      pad1=3*(imgwidth+1)*(imgheight+1)
      pad2=bmapsize-pad1
      padding=pad2/(imgheight+1)
      open to read 1,file$
      for skip = 1 to 53
         read byte 1,a
      next skip
      for y=imgheight to 1 step -1
         for x=1 to imgwidth
            read byte 1,b
            read byte 1,g
            read byte 1,r
            a=rgb(r,g,b)
            ink a,0
            dot x,y
            if a=16578808 or a=16578560
               if i=1 then Hinmpxl(number,x,y)=1 else Hivlpxl(number,x,y)=1
            endif
         next x
         for pad=1 to padding
            read byte 1,skip
         next pad
      next y
      close file 1
   next i

endfunction


function ConvertTextToBuilding(number,tilex1,tiley1,tilex2,tiley2)

   for x=1 to tilex1
      for y=1 to tiley1
         Hinmbld(number,x,y)=Hinmpxl(number,x,y)
      next y
   next x
   for x=1 to tilex2
      for y=1 to tiley2
         Hivlbld(number,x,y)=Hivlpxl(number,x,y)
      next y
   next x

   for x=1 to tilex1
      for y=1 to tiley1
         if Hinmbld(number,x,y)=1
            for i=y to tiley1
               if Hinmbld(number,x,i)=0 then Hinmbld(number,x,i)=2
            next i
            exit
         endif
      next y
   next x
   for x=1 to tilex2
      for y=1 to tiley2
         if Hivlbld(number,x,y)=1
            for i=y to tiley2
               if Hivlbld(number,x,i)=0 then Hivlbld(number,x,i)=2
            next i
            exit
         endif
      next y
   next x

endfunction

data "TDK",4650
data "Sinani",4570
data "Latch",4390
data "LBFN",4120
data "INH",4090
data "Obese",3820
data "Phaelax",3720
data "CRobski",3560
data "Lukas W",3330
data "Nano",3040

sync on
big=500
set text font "Times new roman"
do
if big=-50 then wait 2000 : ink rgb(255,0,0),0
cls
ink rgb(rnd(255)+200,rnd(255)+200,rnd(255)+200),0
set text size big
center text 320,240,"1st Bob- 203,500 Points"
big=big-10
n=n+1
if n=120 then gosub score2
sync
loop

score2:
cls
do
cls
ink rgb(rnd(255)+200,rnd(255)+200,rnd(255)+200),0
set text size 50
center text 320,240,"1st Bob- 203,500 Points"
set text size 40
ink rgb(rnd(200)+145,rnd(200)+155,rnd(200)+155),0
center text 320,280,"2nd Dave- 190,200 Points"
set text size 30
ink rgb(rnd(145)+90,rnd(155)+90,rnd(155)+90),0
center text 320,315,"3rd Carlos- 180,100 Points"
set text size 25
ink rgb(255,255,255),0
center text 320,340,"4th Daniel- 130,600 Points"
set text size 20
center text 320,365,"5th Max- 100,400 Points"
set text size 15
center text 320,380,"6th Carla- 80,200 Points"
set text size 15
center text 320,390,"7th Carla- 50,100 Points"
set text size 15
center text 320,400,"8th Max- 40,100 Points"
set text size 15
center text 320,410,"9th Carla- 30,900 Points"
set text size 15
center text 320,420,"10th Bill- 10,000 Points"
if spacekey()=1 then gosub end
sync
loop
end:

 for y= 1 to 8
  text 0,y*20,"Hello"
next y

 
dim word$(8)
word$(0)= "Hello" 
word$(1)= "Irojo"
word$(2)= "how"
word$(3)= "are"
word$(4)= "you"
word$(5)= "today?"
word$(6)= "Three"
word$(7)= "more"
word$(8)= "words."

remstart
   ==============================================================
   =  Title  : Hi Score Example 2
   =  Author : Latch Grapple
   =  Date   : 06/06/2008
   =  Update :
   =  Version:
   ==============================================================
   Comments
   ==============================================================
remend

rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   set display mode 800,600,32
   sync on
   sync rate 60
   hide mouse
   randomize timer()

rem =============================================================
rem = MAIN
rem =============================================================
_main:
   gosub _init
   do
      gosub _scroll_matrix
      gosub _roll_cylinder

      sync
   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _init:
      rem create the player score image
      cls 0
      ink rgb(255,255,255),0
      set text font "arial bold",1
      set text size 20
      sync

      dim name$(10)
      dim score(10)
      for n=10 to 1 step -1
         name$(n)="Player "+str$(n)
         score(n)=10000*(11-n)
         text 0,(10-n)*20,name$(n)
         text 80,(10-n)*20,str$(score(n))
      next n
      plwd=text width(name$(1))
      plwd=plwd+(80-plwd)
      textwd=text width(str$(score(1)))+plwd
      textht=10*20

      get image 1,0,0,textwd+1,(textht)+1
      sync

      rem texture a plain to rotate the image
      make object plain 2,textwd,textht
      zdist#=(screen height()/2.0)/(tan(31))
      position object 2,0,0,zdist#
      texture object 2,1
      zrotate object 2,90
      position camera 0,0,0
      get image 3,(object screen x(2))-(object size y(2)/2.0),object screen y(2)-((object size x(2)/2.0)-11),(object screen x(2))+object size y(2)/2.0,object screen y(2)+(object size x(2)/2.0)
      sync

      rem get an image to texture cylinder so we can see it roll
      `box 5,5,10,10
      `get image 2,0,0,16,16

      rem create rolling object
      make object cylinder 1,100
      zrotate object 1,270
      fix object pivot 1
      scale object 1,98,50,50
      texture object 1,3
      `ghost object on 1

      rem initialize matrix related variables
      matx#=1000
      matz#=1000
      tilex=13
      tilez=13
      xpertile#=matx#/tilex
      zpertile#=matx#/tilez

      rem create matrix
      gosub _ground
      make matrix 1,matx#,matz#,tilex,tilez
      randomize matrix 1,50
      prepare matrix texture 1,4,1,1

      rem place cylinder in the middle of the matrix
      position object 1,matx#/2,get ground height(1,matx#/2,matz#/2)+50,matz#/2

      rem cleanup a bit
      delete object 2
      delete image 1

      gosub _lighting

      position camera matx#/2,50,420

   return
`----------------------------------------------------------------
   _scroll_matrix:
      inc matposz#,1
      rem check if we are at the end of the matrix
      if matposz# >= zpertile#
         matposz#=-1
         shift matrix down 1
         position matrix 1,0,0,0
      endif
      position matrix 1,matrix position x(1),matrix position y(1),matposz#
      update matrix 1
   return
`----------------------------------------------------------------
   _roll_cylinder:
      rem get the ground heights for the sides and center of cylinder
      lefty#=get ground height(1,object position x(1)-50,object position z(1)-20)
      righty#=get ground height(1,object position x(1)+50,object position z(1)+20)
      centery#=get ground height(1,object position x(1),object position z(1))+40

      rem let's make the cyl rotate forward so it looks like it's rolling
      xang#=wrapvalue(xang#-1.5)
      xrotate object 1,xang#

      rem pivot and raise cylinder
      zang#=wrapvalue(lefty#-righty#)
      zangadj#=curveangle(zang#,object angle z(1),20)
      zrotate object 1,wrapvalue(zangadj#)
      ypos#=curvevalue(centery#,object position y(1),40)
      position object 1,object position x(1),ypos#,object position z(1)

   return
`----------------------------------------------------------------
   _lighting:
      set ambient light 70
      color ambient light 0
      set directional light 0,1,-.5,1
      calc_mat_normals(1,tilex,tilez,xpertile#/6,zpertile#/6)

      set object specular 1,rgb(255,255,255),20

   return

`----------------------------------------------------------------
   _ground:
      create bitmap 1,150,150
      ink rgb(10,100,10),0
      box 0,0,100,100
      for n=1 to 10
         blur bitmap 1,3
      next n
      get image 4,0,0,112,112
      sync
      delete bitmap 1
   return
rem =============================================================
rem = FUNCTIONS
rem =============================================================
   function calc_mat_normals(mat,tilex,tilez,sizex#,sizez#)
   Rem By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
   rem added tile and tile size factor for normal depth adjustment - latch
      for z=1 to tilez
         for x=1 to tilex

            rem Get matrix heights
            h8#=get matrix height(mat,x,z-1)
            h4#=get matrix height(mat,x-1,z)
            h#=get matrix height(mat,x,z)
            h2#=get matrix height(mat,x-1,z-1)

            rem Calculate projected angle X using heights
            x1#=(x-1)*sizex# : y1#=h#
            x2#=(x+0)*sizex# : y2#=h4#
            dx#=x2#-x1#
            dy#=y2#-y1#
            ax#=atanfull(dx#,dy#)
            ax#=wrapvalue(90-ax#)

            rem Calculate projected angle Z using heights
            z1#=(z-1)*sizez# : y1#=h2#
            z2#=(z+0)*sizez# : y2#=h8#
            dz#=z2#-z1#
            dy#=y2#-y1#
            az#=atanfull(dz#,dy#)
            az#=wrapvalue(90-az#)

            rem Make normal from projected angle
            nx#=sin(ax#)
            ny#=cos(ax#)
            nz#=sin(az#)

            rem Setting matrix normal for smoothness
            set matrix normal mat,x,z,nx#,ny#,nz#

         next x
      next z
      update matrix mat
   endfunction
rem =============================================================
rem = DATA STATEMENTS
rem =============================================================

remstart
   ==============================================================
   =  Title  : Hi Score Example 2
   =  Author : Latch Grapple
   =  Date   : 06/06/2008
   =  Update :
   =  Version:
   ==============================================================
   Comments
   ==============================================================
remend

rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   set display mode 800,600,32
   sync on
   sync rate 60
   hide mouse
   randomize timer()

rem =============================================================
rem = MAIN
rem =============================================================
_main:
   gosub _init
   do
      gosub _scroll_matrix
      gosub _roll_cylinder

      sync
   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _init:
      rem create the player score image
      cls 0
      ink rgb(255,255,255),0
      set text font "arial bold",1
      set text size 20
      sync

      dim name$(10)
      dim score(10)
      for n=10 to 1 step -1
         name$(n)="Player "+str$(n)
         score(n)=10000*(11-n)
         text 0,(10-n)*20,name$(n)
         text 80,(10-n)*20,str$(score(n))
      next n
      plwd=text width(name$(1))
      plwd=plwd+(80-plwd)
      textwd=text width(str$(score(1)))+plwd
      textht=10*20

      get image 1,0,0,textwd+1,(textht)+1
      sync

      rem texture a plain to rotate the image
      make object plain 2,textwd,textht
      zdist#=(screen height()/2.0)/(tan(31))
      position object 2,0,0,zdist#
      texture object 2,1
      zrotate object 2,90
      position camera 0,0,0
      get image 3,(object screen x(2))-(object size y(2)/2.0),object screen y(2)-((object size x(2)/2.0)-11),(object screen x(2))+object size y(2)/2.0,object screen y(2)+(object size x(2)/2.0)
      sync

      rem get an image to texture cylinder so we can see it roll
      `box 5,5,10,10
      `get image 2,0,0,16,16

      rem create rolling object
      make object cylinder 1,100
      zrotate object 1,270
      fix object pivot 1
      scale object 1,98,50,50
      texture object 1,3
      `ghost object on 1
      `set object 1,1,1,0

      rem initialize matrix related variables
      matx#=1000
      matz#=1000
      tilex=13
      tilez=13
      xpertile#=matx#/tilex
      zpertile#=matx#/tilez

      rem create matrix
      gosub _ground
      make matrix 1,matx#,matz#,tilex,tilez
      randomize matrix 1,50
      prepare matrix texture 1,4,1,1

      rem place cylinder in the middle of the matrix
      position object 1,matx#/2,get ground height(1,matx#/2,matz#/2)+50,matz#/2

      rem cleanup a bit
      delete object 2
      delete image 1

      gosub _lighting

      position camera matx#/2,100,430
      xrotate camera 30
   return
`----------------------------------------------------------------
   _scroll_matrix:
      inc matposz#,1
      rem check if we are at the end of the matrix
      if matposz# >= zpertile#
         matposz#=-1
         shift matrix down 1
         position matrix 1,0,0,0
      endif
      position matrix 1,matrix position x(1),matrix position y(1),matposz#
      update matrix 1
   return
`----------------------------------------------------------------
   _roll_cylinder:
      rem get the ground heights for the sides and center of cylinder
      lefty#=get ground height(1,object position x(1)-50,object position z(1)-20-matposz#)
      righty#=get ground height(1,object position x(1)+50,object position z(1)+20-matposz#)
      centery#=get ground height(1,object position x(1),object position z(1)-matposz#)+30

      rem let's make the cyl rotate forward so it looks like it's rolling
      xang#=wrapvalue(xang#-1.5)
      xrotate object 1,xang#

      rem pivot and raise cylinder
      zang#=wrapvalue(lefty#-righty#)
      zangadj#=curveangle(zang#,object angle z(1),20)
      zrotate object 1,wrapvalue(zangadj#)
      ypos#=curvevalue(centery#,object position y(1),10)
      position object 1,object position x(1),ypos#,object position z(1)

   return
`----------------------------------------------------------------
   _lighting:
      set ambient light 70
      color ambient light 0
      set directional light 0,1,-.5,1
      calc_mat_normals(1,tilex,tilez,xpertile#/6,zpertile#/6)

      set object specular 1,rgb(255,255,255),20

   return

`----------------------------------------------------------------
   _ground:
      create bitmap 1,150,150
      ink rgb(10,100,10),0
      box 0,0,100,100
      for n=1 to 10
         blur bitmap 1,3
      next n
      get image 4,0,0,112,112
      sync
      delete bitmap 1
   return
rem =============================================================
rem = FUNCTIONS
rem =============================================================
   function calc_mat_normals(mat,tilex,tilez,sizex#,sizez#)
   Rem By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
   rem added tile and tile size factor for normal depth adjustment - latch
      for z=1 to tilez
         for x=1 to tilex

            rem Get matrix heights
            h8#=get matrix height(mat,x,z-1)
            h4#=get matrix height(mat,x-1,z)
            h#=get matrix height(mat,x,z)
            h2#=get matrix height(mat,x-1,z-1)

            rem Calculate projected angle X using heights
            x1#=(x-1)*sizex# : y1#=h#
            x2#=(x+0)*sizex# : y2#=h4#
            dx#=x2#-x1#
            dy#=y2#-y1#
            ax#=atanfull(dx#,dy#)
            ax#=wrapvalue(90-ax#)

            rem Calculate projected angle Z using heights
            z1#=(z-1)*sizez# : y1#=h2#
            z2#=(z+0)*sizez# : y2#=h8#
            dz#=z2#-z1#
            dy#=y2#-y1#
            az#=atanfull(dz#,dy#)
            az#=wrapvalue(90-az#)

            rem Make normal from projected angle
            nx#=sin(ax#)
            ny#=cos(ax#)
            nz#=sin(az#)

            rem Setting matrix normal for smoothness
            set matrix normal mat,x,z,nx#,ny#,nz#

         next x
      next z
      update matrix mat
   endfunction
rem =============================================================
rem = DATA STATEMENTS
rem =============================================================

NanoGamez Guy - 3D Highscores text viewer w/ moving camera

Latch - Rolling Cylinder On Matrix highscores viewer

      rem initialize matrix related variables
      matx#=1000
      matz#=1000
      tilex=13
      tilez=13
      xpertile#=matx#/tilex
      zpertile#=matx#/tilez

      rem create matrix
      make matrix 1,matx#,matz#,tilex,tilez

   _scroll_matrix:
      inc matposz#,1
      rem check if we are at the end of the matrix
      if matposz# >= zpertile#
         matposz#=-1
         shift matrix down 1
         position matrix 1,0,0,0
      endif
      position matrix 1,matrix position x(1),matrix position y(1),matposz#
      update matrix 1
   return

sync on
randomize timer()
hide mouse

backdrop on
color backdrop 0

fog on
fog distance 4000
fog color 0

make matrix 1,2000,20000,5,100
for i=0 to 100
   set matrix height 1,0,i,100
   set matrix height 1,5,i,100
next i
update matrix 1

make matrix 2,2000,20000,5,100
position matrix 2,0,300,0
for i=0 to 100
   set matrix height 2,0,i,-200
   set matrix height 2,5,i,-200
next i
update matrix 2

position camera 1000,100,0

do

   if scancode()<>0 or inkey$()<>"" or mousemovex()<>0 or mousemovey()<>0 or mouseclick()<>0 then end

   speed#=10
   z#=z#+speed#
   if z#>200
      z#=z#-200
      shift matrix up 1
      shift matrix up 2
   endif

   position matrix 1,0,0,200-z#
   position matrix 2,0,300,200-z#

   position camera 1000,170,0

   rotateby#=(180-abs(camera angle z()-180))/200+1
   rotateby#=1
   zrotate camera wrapvalue(camera angle z()+rotateby#)

   sync

loop

sync on
randomize timer()
hide mouse
do
backdrop on
color backdrop 0

fog on
fog distance 4000
fog color 0

make matrix 1,2000,20000,5,100
for i=0 to 100
   set matrix height 1,0,i,100
   set matrix height 1,5,i,100
next i
update matrix 1

make matrix 2,2000,20000,5,100
position matrix 2,0,300,0
for i=0 to 100
   set matrix height 2,0,i,-200
   set matrix height 2,5,i,-200
next i
update matrix 2

position camera 1000,100,0

 do

   if scancode()<>0 or inkey$()<>"" or mousemovex()<>0 or mousemovey()<>0 or mouseclick()<>0 then end

   speed#=10
   z#=z#+speed#
   if z#>200
      z#=z#-200
      shift matrix up 1
      shift matrix up 2
   endif

   position matrix 1,0,0,200-z#
   position matrix 2,0,300,200-z#

   position camera 1000,170,0

   rotateby#=(180-abs(camera angle z()-180))/200+1
   rotateby#=1
   zrotate camera wrapvalue(camera angle z()+rotateby#)

   sync

 loop


 sync

loop

sync on


      rem initialize matrix related variables
      matx#=1000
      matz#=1000
      tilex=20
      tilez=20
      xpertile#=matx#/tilex
      zpertile#=matx#/tilez

      rem create matrix
      make matrix 1,matx#,matz#,tilex,tilez


do
   gosub _scroll_matrix
   sync
loop


   _scroll_matrix:
      inc matposz#,1
      rem check if we are at the end of the matrix
      if matposz# >= zpertile#
         matposz#=-1
         shift matrix down 1
         position matrix 1,0,0,0
      endif
      position matrix 1,matrix position x(1),matrix position y(1),matposz#
      update matrix 1
   return

while (scancode()+mousemovex()+mousemovey()+mouseclick()) =0
  rem code here
endwhile

sync on
sync rate 0

ink rgb(255,255,255),0
hide mouse
`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
do
cls
ink rgb(255,255,255),0
green=rnd(20)
if scancode() then exit
if mouseclick() then exit
if green=1 then ink rgb(0,rnd(255),0),0
if mouseclick()=2 then position mouse 320,240
circle mousex(),mousey(),rnd(500)+1
if trigger<>1 then x=x+inricatevalue#
if x>=658 and trigger2=0 then y=y+inricatevalue#
if x>=658 then trigger=1
line mousex(),mousey(),x,y
if y>=500 then trigger2=1
if trigger2=1 then x=x-inricatevalue#
if x=0 and y>=500 and trigger2=1 then trigger3=1
if trigger3=1 then y=y-inricatevalue#
if trigger3=1 then trigger2=0
if y=0 and x=0
trigger=0
trigger2=0
trigger3=0
endif
sync
loop
end

while mouseclick()=0 and scancode()=0
  rem code here
endwhile

`-------------------
`---Irojo's Entry---
`-------------------
`=-Thanks To Obese-=
`-------------------

`-----Sync-----
sync on
sync rate 0
`-----|Sync|-----



ink rgb(255,255,255),0

hide mouse



`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
while scancode()=0 and mouseclick()=0
   cls
    ink rgb(255,255,255),0
    green=rnd(20)
     if green=1 then ink rgb(0,rnd(255),0),0
     if mouseclick()=2 then position mouse 320,240
    circle mousex(),mousey(),rnd(500)+1
     if trigger<>1 then x=x+inricatevalue#
     if x>=658 and trigger2=0 then y=y+inricatevalue#
     if x>=658 then trigger=1
    line mousex(),mousey(),x,y
     if y>=500 then trigger2=1
     if trigger2=1 then x=x-inricatevalue#
     if x=0 and y>=500 and trigger2=1 then trigger3=1
     if trigger3=1 then y=y-inricatevalue#
     if trigger3=1 then trigger2=0
     if y=0 and x=0
      trigger=0
      trigger2=0
      trigger3=0
     endif
  sync
endwhile

end

` DBC Challenge - matrix - LBFN
` arrow keys to move up/ down/ left/ right
` Return key to move faster
` 'F' key to fire - let go and press again to fire again - previous shot will be deleted
` Avoid the enemies' shots and don't let them run into you.
` 'Q' key to quit.
randomize timer()
sync on : sync rate 60
backdrop on : hide mouse
autocam off : fog off
draw to front
set camera range 1.0,5000.0
dim PhotonStat(1) : dim target(3) : dim score(1) : dim EShot(1)
dim Enemy(80,12) : dim PartDirection(51) : dim lives(1)
texture = 1 : stars = 10 : FireBall = 11
score = 0 : lives(1) = 4 : NextZMovePoint# = 13824.0 : EShotStat = 0
ExplodeEnemy = 0 : PhotonStat(1) = 0 : PartMoveCtr = 0
MakeImages(texture,stars,FireBall)
gosub MakeStuff
SetupMatrix(texture)
MakeEnemies()
FirePhotonDelay# = timer() + 50.0
FireEShotDelay# = timer() + 500.0
ms = (screen width()/2) : mt = (screen height()/2)
position camera rnd(450) + 1150.0,rnd(180) + 30.0,0.0

do
   x#=camera position x() : y#=camera position y() : z#=camera position z()
  ` position stars object
  position object 12,x#,y#,z#+1500.0
  ` slowly rotate stars
  if timer()>ObjZTimer#
    zrotate object 12,ObjZ#
    ObjZ# = wrapvalue(ObjZ# + .03)
    ObjZTimer# = timer() + 10.0
  endif
  up = upkey() : down = downkey() : left = leftkey() : right = rightkey()
  if (up + down + left + right) <= 2
    if left = 1 and right = 0 and x#>1150.0 then x# = x# - 2.5
    if right = 1 and left = 0 and x#<1700.0 then x# = x#  +2.5
    if up = 1 and down = 0 and y# < 230.0 then y# = y# + 2.5
    if down = 1 and up = 0 and y# > 10.0 then y# = y# - 2.5
    position camera x#, y#, camera position z()
  endif
  move camera 2 : if returnkey()=1 then move camera 4
  if EShotStat = 0 and timer() > FireEShotDelay# then gosub FireEMissle
  if EShotStat = 1 then gosub MoveEMissile
  text 10,30,"FPS: "+str$(screen fps())
`  text 10,50,"z#="+str$(camera position z())
  if keystate(16) = 1 then exit : ` 'Q' key to quit
  if keystate(33) = 1 and timer() > FirePhotonDelay# then FirePhotons() : ` 33 = 'F' key to fire
  if PhotonStat(1) > 0 then MovePhotons()
  MoveEnemies()
  text 10,10,"lives: "+str$(lives(1))
  center text ms,10,"Score: "+str$(score(1))
  gosub CheckCollision
  if ExplodeEnemy = 1 then gosub BlowThemUp
  if lives(1) <= 0 then exit
  sync
  if z# > NextZMovePoint# then position camera camera position x(),camera position y(),0.0
loop
` game is over
EndTimer# = timer() + 2500.0
repeat
 x#=camera position x() : y#=camera position y() : z#=camera position z()
  ` position stars object
  position object 12,x#,y#,z#+1500.0
` slowly rotate stars
  if timer()>ObjZTimer#
    zrotate object 12,ObjZ#
    ObjZ# = wrapvalue(ObjZ# + .03)
    ObjZTimer# = timer() + 10.0
  endif
  ink rgb(128,255,0),0
  set text size 36
  center text ms,mt-50,"Game Over"
  ink rgb(255,255,255),0
  set text size 16
  center text ms,(mt*2)-50,"Thanks for playing!          LBFN"
  sync
until timer() > Endtimer#
end

` #####################################    Procedures    #######################################

MakeStuff:
` make object for stars and planets
make object plain 12,3000,3000
texture object 12,stars
ObjZ# = 1.0
ObjZTimer# = timer()+100.0
` make player's shots
make object box 24,2,1,8
scale object 24,100.0,100.0,300.0
texture object 24,FireBall
hide object 24
make object box 36,2,1,8
scale object 36,100.0,100.0,300.0
texture object 36,FireBall
hide object 36
` make enemy shot
make object cylinder 6,4
scale object 6,100.0,100.0,600.0
xrotate object 6,90.0
fix object pivot 6
texture object 6,12
hide object 6
` make object for collision purposes
make object sphere 100,25 : hide object 100
` make particles for exploding enemies
for part = 800 to 850
  make object plain part,3.0,3.0
  hide object part
next part
return


MoveEMissile:
move object 6,8
` check collision with player
x90# = object position x(6)
y90# = object position y(6)
z90# = object position z(6)
camx# = camera position x()
camy# = camera position y()
camz# = camera position z()
if abs(x90# - camx#) < 25.0 and abs(y90# - camy#) < 25.0 and abs(z90# - camz#) < 25.0
  ` got the player!
 ` text 100,100,"Player died!!":sync : wait key
  hide object 6
  FadeToBlack()
  set gamma 255,255,255
  EShotStat = 0
  lives(1) = lives(1) - 1
  FireEShotDelay# = timer() + 2000.0
  hide object 24 : hide object 36 :  PhotonStat(1) = 0
endif
` check to see if it went past the player
if object position z(6) < camera position z() and EShotStat > 0
 hide object 6
  EShotStat = 0
endif
return


FireEMissle:
` find a host enemy
for baddy = 1 to 40
  if enemy(baddy,3) = 1 and object in screen(baddy +499) = 1 and EShotStat = 0 and object position z(baddy + 499) > (camera position z() + 150.0)
    ` okay, we found our host
    ` set initial coordinates
    position object 6,object position x(baddy + 499), object position y(baddy + 499), object position z(baddy + 499)
    point object 6,camera position x(), camera position y(), camera position z() + 149.0
    EShotStat = 1 : ` enable movement and collision checking of the enemies' missile
    show object 6
`    text 100,100,"Missile away!":sync :wait 500
  endif
next baddy
return


BlowThemUp:
inc PartMoveCtr,1
if PartMoveCtr > 40
  PartMoveCtr = 0 : ExplodeEnemy = 0
endif
for part = 800 to 850
  if ExplodeEnemy > 0
    move object part,6
  else
    hide object part
  endif
next part
return


CheckCollision:
x100# = object position x(100)
y100# = object position y(100)
z100# = object position z(100)
for baddy = 1 to 40
  if enemy(baddy,3) = 1
    xb# = object position x(baddy + 499)
    yb# = object position y(baddy + 499)
    zb# = object position z(baddy + 499)
`    dist1# = Sqrt(((xb# - x100#)^2) + ((yb# + y100#)^2) + ((zb# - z100#)^2))
    if abs(zb# - z100#) < 25.0 and abs(xb# - x100#) < 25.0 and abs(yb# - y100#) < 25.0
      ` got 'em!!
      ` explode enemy
      select enemy(baddy,11)
        case 1
          ` grey
          r = 128 : g = 128 : b = 128
        endcase
        case 2
          ` red
          r = 164 : g = 36 : b = 36
        endcase
        case 3
          ` yellow
          r = 164 : g = 164 : b = 36
        endcase
        case 4
          ` blue
          r = 36 : g = 36 : b = 164
        endcase
      endselect
      for part = 800 to 850
        color object part,rgb(r,g,b)
        position object part, xb#,yb#,zb#
        rotate object part,rnd(359), rnd(359),rnd(359)
        show object part
      next part
      ExplodeEnemy = 1 : PartMoveCtr = 0
      ` place enemy elsewhere above the matrix, but not where the player can see it
      enemy(baddy,1) = rnd(450) + 1150.0 : `x coord
      enemy(baddy,2) = rnd(180)+30  : ` y coord
      okay = 0
      camz# = camera position z()
      repeat
        enemy(baddy,4) = rnd(7400)+2550 : ` z coord
        if enemy(baddy,4)<camz# or (enemy(baddy,4)-camz#)>1600.0 then okay = 1
      until okay = 1
      position object baddy + 499, enemy(baddy,1), enemy(baddy,2), enemy(baddy,4)
      score(1) = score(1) + 1000
      hide object 24 : hide object 36
      PhotonStat(1) = 0
      FirePhotonDelay# = timer() + 50.0
    endif
  endif
next baddy
return

`####################################    Functions    #########################################


function MoveEnemies()
for baddy = 1 to 40
  if enemy(baddy,3) = 1
    x# = object position x(baddy + 499)
    y# = object position y(baddy + 499)
    z# = object position z(baddy + 499)
    ChangePattern = 0
    select enemy(baddy,6) : ` get the direction of the enemy
      case 1
        ` up
         y# = y# + 1.0
         if y# > enemy(baddy,9) then ChangePattern =1
      endcase
      case 2
        ` down
        y# = y# - 1.0
        if y# < enemy(baddy,10) then ChangePattern =2
      endcase
      case 4
        ` right
        x# = x# + 1.0
        if x# > enemy(baddy,8) then ChangePattern =4
      endcase
      case 5
        ` up and right
        y# = y# + 1.0 : x# = x# + 1.0
        if y# > enemy(baddy,9) or x# > enemy(baddy,8) then ChangePattern = 5
      endcase
      case 6
        `  down and right
        y# = y# - 1.0 : x# = x# + 1.0
        if y# < enemy(baddy,10) or x# > enemy(baddy,8) then ChangePattern = 6
      endcase
      case 8
        `  left
        x# = x# - 1.0
        if x# < enemy(baddy,7) then ChangePattern = 8
      endcase
      case 9
        ` up and left
        y# = y# + 1.0 : x# = x# - 1.0
        if y# > enemy(baddy,9) or x# < enemy(baddy,7) then ChangePattern = 9
      endcase
      case 10
        ` down and left
         y# = y# - 1.0 : x# = x# - 1.0
         if y# < enemy(baddy,10) or x# < enemy(baddy,7) then ChangePattern = 10
      endcase
      position object baddy + 499, x#, y#, z#
    endselect
    ` change the direction of the enemy
    if ChangePattern > 0
      okay = 0
      repeat
        np = rnd(9) + 1
        if np <> 3 and np <> 7 and np <> ChangePattern then okay = 1
      until okay = 1
      enemy(baddy,6) = np
    endif
  endif
  ` see if it collides with the player
  xb# = object position x(baddy + 499) : yb# = object position y(baddy + 499) : zb# = object position z(baddy + 499)
  camx# = camera position x() : camy# = camera position y() : camz# = camera position z()
  if abs(xb# - camx#) < 25.0 and abs(yb# - camy#) < 25.0 and abs(zb# - camz#) < 25.0 and enemy(baddy,3) = 1
    ` enemy has coliided with the player
    hide object 6
    FadeToBlack()
    set gamma 255,255,255
    EShotStat = 0
    lives(1) = lives(1) - 1
    FireEShotDelay# = timer() + 2000.0
    hide object 24 : hide object 36 :  PhotonStat(1) = 0
    exitfunction
  endif
next baddy
endfunction

function MovePhotons()
  move object 24,8
  move object 36,8
  move object 100,8
  if abs(object position z(24)-target(3))<20.0
    hide object 24
    hide object 36
    PhotonStat(1) = 0
    FirePhotonDelay# = timer() + 50.0
  endif
endfunction


function FirePhotons()
  x# = camera position x()
  y# = camera position y()
  z# = camera position z()
  position object 24,x#-20.0,y#,z#
  point object 24,x#,y#-40.0,z#+900.0
  position object 36,x#+20.0,y#,z#
  point object 36,x#,y#-40.0,z#+900.0
  target(1) = x#
  target(2) = y# - 40.0
  target(3) = z# + 900.0
  show object 24
  show object 36
  position object 100,x#, y#, z#
  point object 100,x#,y#-40.0,z#+900.0
  PhotonStat(1) = 1 : ` photons are active
endfunction


function MakeImages(texture,stars,FireBall)
create bitmap 2,768,768
`Grey  - image 1
cls 0
ink rgb(192,192,192),0
box 0,0,255,255
` Medium Green - image 2
ink rgb(0,144,0),0
box 256,0,511,255
` browns for landscape - image 3
ink rgb(148,78,0),0
box 512+0,0,512+51,255
ink rgb(128,64,0),0
box 512+52,0,512+102,255
ink rgb(100,60,0),0
box 512+103,0,512+153,255
ink rgb(84,54,0),0
box 512+154,0,512+205,255
ink rgb(64,46,0),0
box 512+206,0,767,255
` forest green for platform  - image 4
ink rgb(0,144,64),0
box 0,256,255,511
` make green shades for tiles below
ink rgb(0,128,64),0
box 256,256,511,511 : ` image 5
ink rgb(0,112,64),0
box 512,256,767,511 : ` image 6
ink rgb(0,96,60),0
box 0,512,255,767 : ` image 7
ink rgb(0,84,50),0
box 256,512,511,767 : ` image 8
get image texture,0,0,768,768
delete bitmap 2
sw = screen width() : sh = screen height()
create bitmap 2,3000,3000
`Stars
for star = 1 to 412
  x = rnd(2500) + 10
  y = rnd(2500) + 10
  r = rnd(100) + 100 : g = rnd(100) + 100 : b = rnd(100) + 100
  ink rgb(r,g,b),0
  if rnd(1000) < 990
    box x,y,x+2,y+2
  else
    ` make planet
    dec r,70 : dec g,70 : dec b,70
    if r < 100 then r = 100
    if g < 100 then g = 100
    if b < 100 then b = 100
    ink rgb(r,g,b),0
    s = rnd(8)+4 : s = int(s / 2) * 2
    for PlanetSize = s to 1 step-1
      circle x,y,PlanetSize
      inc r,10 : inc g,10 : inc b,10
      ink rgb(r,g,b),0
    next PlanetSize
    dot x,y
  endif
next star
get image stars,0,0,3000,3000
cls 0
` Fire ball
ink rgb(255,128,64),0
box 0,0,sw-1,sh-1
ink rgb(193,63,0),0
for linez = 1 to 100
  sx = rnd(sw-20) : if sx < 0 then sx = 0
  sy = rnd(sh-20) : if sy < 0 then sy = 0
  diffX = sw - sx : diffY = sh - sy
  dx = rnd(diffX) + sx + 1 : dy = rnd(diffY) + sy + 1
  line sx, sy, dx, dy
next linez
get image FireBall,0,0,sw,sh
cls 0
` make image for enemy shots
ink rgb(0,128,255),0 : ` cerulean blue
box 0,0,255,255
get image 12,0,0,256,256
delete bitmap 2
set current bitmap 0
endfunction

function SetupMatrix(texture)
MayTricks = 1
make matrix MayTricks,2560,2560*6,40,40
randomize matrix MayTricks,200
prepare matrix texture MayTricks,texture,3,3
for t=0 to 39  : ` x width
  for i=0 to 39 : ` Z depth
    if t>=16 and t<=27
      ` 4, 7, 8, 9, or 10
      if i = 0 or i = 5 or i = 10 or i = 15 or i = 20 or i = 25 or i = 30 or i = 35
        set matrix tile MayTricks,t,i,4 : `dk green
      endif
      if i = 1 or i = 6 or i = 11 or i = 16 or i = 21 or i = 26 or i = 31 or i = 36
        set matrix tile MayTricks,t,i,5 : `green shade
      endif
      if i = 2 or i = 7 or i = 12 or i = 17 or i = 22 or i = 27 or i = 32 or i = 37
        set matrix tile MayTricks,t,i,6 : ` shade of green
      endif
      if i = 3 or i = 8 or i = 13 or i = 18 or i = 23 or i = 28 or i = 33 or i = 38
        set matrix tile MayTricks,t,i,7 : ` shade of green
      endif
      if i = 4 or i = 9 or i = 14 or i = 19 or i = 24 or i = 29 or i = 34 or i = 39
        set matrix tile MayTricks,t,i,8 : ` shade of green
      endif
      set matrix height MayTricks,t,i,-130.0
      set matrix height MayTricks,t,i+1,-130.0
      set matrix height MayTricks,t+1,i,-130.0
      set matrix height MayTricks,t+1,i+1,-130.0
    else
      set matrix tile MayTricks,t,i,3 : ` sands
    endif
    if i<= 3
      ` copy the first ten tiles to the end for smooth scrolling
       y# = get matrix height(MayTricks, t, i)
       set matrix height MayTricks,t,i+36,y#
       y# = get matrix height(MayTricks, t, i+1)
       set matrix height MayTricks,t,i+37,y#
       y# = get matrix height(MayTricks, t+1, i)
       set matrix height MayTricks,t+1,i+36,y#
       y# = get matrix height(MayTricks, t+1, i+1)
       set matrix height MayTricks,t+1,i+37,y#
    endif
  next i
next t
position matrix MayTricks,0.0,0.0,0.0
update matrix MayTricks
endfunction

function MakeEnemies()
for baddy = 1 to 40
  enemy(baddy,1) = rnd(450) + 1150.0 : `x coord
  enemy(baddy,2) = rnd(180)+30  : ` y coord
  enemy(baddy,3) = 1 : ` status   0=inactive 1=active 2=exploding  3=destroyed
  enemy(baddy,4) = rnd(7400)+2550 : ` z coord
  enemy(baddy,5) = rnd(2) + 1 : ` move pattern 1=up/down   2=left/right  3 = top/ left to bot/right
                                 ` 4 = top/right to bot/left
  ` get initial enemy direction
  okay = 0
  repeat
    np = rnd(9) + 1
    if np <> 3 and np <> 7 then okay = 1
  until okay = 1
  enemy(baddy,6) = np : ` direction
  enemy(baddy,7) = 1150.0 : `enemy(baddy,1) : ` min x coord
  enemy(baddy,8) = 1700.0 : `enemy(baddy,1) :   `max x coord
  enemy(baddy,9) = 230 : ` upper Y coord max
  enemy(baddy,10) = 10 : ` lower Y coord max
  make object sphere baddy + 499,10
  ` choose from four main colors for the enemies   grey, red, yellow or blue
  enemy(baddy,11) = rnd(3)+1
  select enemy(baddy,11)
    case 1
      ` grey
      r = 128 : g = 128 : b = 128
    endcase
    case 2
      ` red
      r = 164 : g = 36 : b = 36
    endcase
    case 3
      ` yellow
      r = 164 : g = 164 : b = 36
    endcase
    case 4
      ` blue
      r = 36 : g = 36 : b = 164
    endcase
  endselect
  color object baddy + 499,rgb(r + 14,g +14,b + 14)
  position object baddy + 499,enemy(baddy,1),enemy(baddy,2),enemy(baddy,4)
  make object box 599+baddy,6,2,4
  make mesh from object 199+baddy,599+baddy
  sizeX# = object size x(599 + baddy) + 1.5
  delete object 599+baddy
  add limb baddy + 499, 1, 199 + baddy
  offset limb baddy + 499, 1 , 0.0-sizeX#,0.0,0.0
  color limb baddy + 499, 1,rgb(r, g, b)
  add limb baddy + 499, 2, 199 + baddy
  offset limb baddy + 499, 2, object size x(baddy + 499)-2.5,0.0,0.0
  color limb baddy + 499, 2, rgb(r, g, b)
  make object box 599 + baddy,2,15,8
  make mesh from object 200 + baddy,599 + baddy
  sizeX2# = sizeX# + object size x(599 + baddy) + 2.0
  delete object 599 + baddy
  add limb baddy + 499, 3, 200 + baddy
  offset limb baddy + 499, 3 , 0.0 - sizeX2#,0.0,0.0
  color limb baddy + 499, 3,rgb(r - 36,g - 36,b - 36)
  add limb baddy + 499, 4, 200 + baddy
  offset limb baddy +499, 4,object size x(baddy + 499)+sizeX#-6.0,0.0,0.0
  color limb baddy + 499, 4, rgb(r - 36,g - 36,b - 36)
next baddy
endfunction

function FadeToBlack()
if object exist(200) = 1 then delete object 200
make object sphere 200,20
color object 200,rgb(255,128,64) : ` orange
ghost object on 200
position object 200,camera position x(),camera position y(),camera position z()+50.0
for blowup = 120 to 2000 step 50
  scale object 200,blowup, blowup, blowup
  sync
next blowup
delete object 200
for lambda = 150 to 0 step-2
  set gamma lambda, lambda, lambda
  sync
next lambda
cls 0
position camera camera position x(),camera position y(),0.0
sync
endfunction

randomize timer()
sync on
hide mouse
cls rgb(0,127,0)
generate_noise(100.0,0,255,0)
set current bitmap 0
get image 1,0,0,256,256
cls 0
make matrix 1,10000,10000,50,50
randomize matrix 1,100
set matrix 1,1,0,1,1,1,1,1
prepare matrix texture 1,1,1,1
autocam off


make object box 6,30,15,40
color object 6,rgb(10,10,200)
position object 6,object position x(6)+5000,20,object position z(6)+5000
set object collision to boxes 6

make object sphere 7,1
position object 7,object position x(6),object position y(6),object position z(6)

make mesh from object 1,7

add limb 6,1,1
offset limb 6,1,0,-20,0
delete object 7

for i=2 to 5
	make object cube i,5
	color object i,0
	set object collision to boxes i
next i

position object 2,-30,10,-30
position object 3,30,10,-30
position object 4,30,10,30
position object 5,-30,10,30

position camera 5000,500,5000
set camera range 1,10000
if fog available()=1
     fog on
     fog color rgb(127,127,127)
     fog distance 1000
     color backdrop rgb(127,127,127)
endif

set matrix 1,1,1,1,1,1,1,1
do
hx#=(object size x(6)/2)
hy#=(object size y(6)/2)
hz#=(object size z(6)/2)

`position back left feeler
pos object(2,6)
set object to object orientation 2,6
turn left(2,90)
move object 2,hx#
turn left(2,90)
move object 2,hz#

`position back right feeler
pos object(3,6)
set object to object orientation 3,6
turn right(3,90)
move object 3,hx#
turn right(3,90)
move object 3,hz#

`position front left feeler
pos object(5,6)
set object to object orientation 5,6
turn left(5,90)
move object 5,hx#
turn right(5,90)
move object 5,hz#

`position front right feeler
pos object(4,6)
set object to object orientation 4,6
turn right(4,90)
move object 4,hx#
turn left(4,90)
move object 4,hz#



max=25
angle#=wrapvalue(angle#+mousemovex())
set camera to follow object position x(6),object position y(6),object position z(6),angle#,100,object position y(6)+30,1,1
if upkey()=1 
	inc speed,1
	if speed>=max
		speed=max
	endif
endif
if downkey()=1 
	dec speed,1
	if speed<=5
		speed=5
	endif
endif

if rightkey()=1
	position matrix 1,matrix position x(1)-5,matrix position y(1),matrix position z(1)
	update matrix 1
	inc xposition,5
	if xposition>=200
		position matrix 1,matrix position x(1)+200,matrix position y(1),matrix position z(1)
		shift matrix left 1
		xposition=0

	endif
endif

if leftkey()=1
	position matrix 1,matrix position x(1)+5,matrix position y(1),matrix position z(1)
	update matrix 1
	dec xposition,5
	if xposition<=0
		position matrix 1,matrix position x(1)-200,matrix position y(1),matrix position z(1)
		shift matrix right 1
		xposition=200

	endif
endif

position matrix 1,matrix position x(1),matrix position y(1),matrix position z(1)-speed
update matrix 1
inc position,speed
if position>=200
	position matrix 1,matrix position x(1),matrix position y(1),matrix position z(1)+position
	shift matrix up 1
	position=0
endif


for i=2 to 5
	position object i,object position x(i),get ground height(1,object position x(i)+xposition,object position z(i)+position),object position z(i)
next i
placeobj(6,2,3,4,5)
`if object collision(6,0)<>1
position object 6,object position x(6),get ground height(1,object position x(6)+xposition,object position z(6)+position)+9,object position z(6)
`grav(6,1)
`endif
text 0,0,str$(object position z(6))
text 0,20,str$(object angle y(6))
text 0,40,str$(object angle z(6))
text 0,60,str$(object position y(5))
y#=get ground height(1,object position x(6),object position z(6))
text 0,80,str$(y#)







sync
loop



function grav(obj,acc)
	if object position y(obj)>get ground height(1,object position x(obj),object position z(obj))+(object size y(obj)/2)
	else
		position object obj,object position x(obj),get ground height(1,object position x(obj),object position z(obj)),object position z(obj)
	endif
endfunction


function calcx#(obj1,obj2)
	ydiff#=object position y(obj1)-object position y(obj2)
	zdiff#=object position z(obj1)-object position z(obj2)
	if zdiff#=0 then zdiff#=1
	theta#=atan(ydiff#/zdiff#)
	theta#=wrapvalue(theta#)
endfunction theta#

function calcz#(obj1,obj2)
	ydiff#=object position y(obj1)-object position y(obj2)
	xdiff#=object position x(obj1)-object position x(obj2)
	if xdiff#=0 then xdiff#=1
	theta#=atan(ydiff#/xdiff#)
	theta#=wrapvalue(theta#)
endfunction theta#

function placeobj(obj,p1,p2,p3,p4)
	rotate object obj,0,0,0
	pitch object up obj,object angle x(obj)+calcx#(p1,p4)
	roll object right obj,object angle z(obj)-calcz#(p1,p2)
endfunction

function pos object(obj1,obj2)
	position object obj1,object position x(obj2),object position y(obj2),object position z(obj2)
endfunction

function turn right(obj,val)
	yrotate object obj,wrapvalue(object angle y(obj)+val)
endfunction

function turn left(obj,val)
	yrotate object obj,wrapvalue(object angle y(obj)-val)
endfunction

function strafe left(obj,val)
	turn left(obj,90)
	move object obj,val
	turn right(obj,90)
endfunction

function strafe right(obj,val)
	turn right(obj,90)
	move object obj,val
	turn left(obj,90)
endfunction

function generate_noise(level#,r,g,b)
count#=screen width()*screen height()*(level#/100)
for i=1 to count#
	ink rgb(rnd(r),rnd(g),rnd(b)),0
	dot rnd(screen width()),rnd(screen height())
next i
endfunction

sync on
randomize timer()

create bitmap 1,640,480

ink rgb(255,0,0),0
box 65,1,128,64
ink rgb(0,255,0),0
box 1,65,64,128
ink rgb(0,0,255),0
box 65,65,128,128

get image 1,1,1,129,129

cls

ink rgb(255,255,255),0
for i=1 to 1000
   dot rnd(128),rnd(128)
next i
blur bitmap 1,1

get image 2,0,0,128,128

set current bitmap 0

backdrop on
texture backdrop 2

make matrix 1,1000,2000,10,20
prepare matrix texture 1,1,2,2
fill matrix 1,1,1

dim mat(10,20)

dim flashing(9,19)
dim flashingcol(9,19)

position camera 500,900,-95
rotate camera 54,0,0

randomizecols(8)
update matrix 1

gaptime=5000
gapstart=timer()

playerx=5

currentcol=rnd(2)+1
nextcol=rnd(2)+1
matchange=1

flashing=0

shot=0

score=0

set text font "arial"

repeat

   set cursor 0,0

   for x=0 to 9
      for z=2 to 19
         set matrix tile 1,x,z,mat(x,z)+1
      next z
   next x
   update matrix 1

   rightcount=rightcount-1
   if rightkey()=1 and playerx<9 and rightcount<0
      playerx=playerx+1
      rightcount=5
      rightkey=1
   else
      rightkey=0
   endif
   leftcount=leftcount-1
   if leftkey()=1 and playerx>0 and leftcount<0
      playerx=playerx-1
      leftcount=5
      leftkey=1
   else
      leftkey=0
   endif

   spacecount=spacecount-1
   if spacekey()=1 and shot=0 and spacecount<0
      shotx=playerx
      shotz=1
      shotcol=currentcol
      shot=1
      currentcol=nextcol
      nextcol=rnd(2)+1
      spacecount=20
   endif

   if timer()>=gapstart+gaptime and shot=0
      shift matrix up 1
      shiftarray()
      randomizecols(1)
      update matrix 1 : matchange=1
      gapstart=timer()
      for x=0 to 9
         if mat(x,2)>0 then death=1
      next x
      gaptime=gaptime-((gaptime-2500)/60)
   endif

   if shot=1
      shotz=shotz+1
      set matrix tile 1,shotx,shotz,shotcol+1
      set matrix tile 1,shotx,shotz-1,1
      update matrix 1 : matchange=1
      if mat(shotx,shotz+1)>0 or shotz=19
         mat(shotx,shotz)=shotcol
         scoreinc=clearcol(shotx,shotz)
         if scoreinc>2 then score=score+scoreinc*100
         flashing=1
         update matrix 1
         if mat(shotx,shotz)>0 and shotz<=2 then death=1
         shot=0
      endif
   endif

   if flashing=1
      flashing=0
      for x=0 to 9
         for z=0 to 19
            flash=flashing(x,z)
            if flash>0
               unit$=right$(str$(flash),1)
               if unit$="0" or unit$="1" or unit$="2" or unit$="3" or unit$="4"
                  col=flashingcol(x,z)
                  set matrix tile 1,x,z,col+1
               else
                  set matrix tile 1,x,z,1
               endif
               update matrix 1
               flashing(x,z)=flash-1
               if flashing(x,z)<1
                  set matrix tile 1,x,z,1
                  scoreinc=findislands()
                  if scoreinc>2 then score=score+scoreinc*150
               endif
               flashing=1
            endif
         next z
      next x
   endif

   backtexy=backtexy-1
   scroll backdrop backtexx,backtexy

   if rightkey=1
      set matrix tile 1,playerx-1,1,1
      set matrix tile 1,playerx-1,0,1
      update matrix 1 : matchange=1
   endif
   if leftkey=1
      set matrix tile 1,playerx+1,1,1
      set matrix tile 1,playerx+1,0,1
      update matrix 1 : matchange=1
   endif

   if matchange=1
      set matrix tile 1,playerx,1,currentcol+1
      set matrix tile 1,playerx,0,nextcol+1
      update matrix 1
      matchange=0
   endif

   set text size 30
   ink rgb(0,255,0),0
   text 0,0,"Score: "+str$(score)

   sync

until death=1

fog on
fog distance 0

ink rgb(255,0,0),0

repeat
   cls
   set text size 50
   center text 320,100,"YOU LOSE"
   set text size 30
   center text 320,165,"Final score: "+str$(score)
   center text 320,195,"Press 'e' to exit."
   sync
until keystate(18)>0

end

function shiftarray()

   dim firstline(9)

   for z=0 to 18
      for x=0 to 9
         mat(x,z)=mat(x,z+1)
      next x
   next z

   for x=0 to 9
      mat(x,19)=firstline(x)
   next x

   undim firstline(9)

endfunction

function randomizecols(amount)

   for z=19 to 20-amount step -1
      for x=0 to 9
         col=rnd(2)+1
         set matrix tile 1,x,z,col+1
         mat(x,z)=col
      next x
   next z

endfunction

function clearcol(tilex,tilez)

   coltofind=mat(tilex,tilez)

   dim fillx(200)
   dim filly(200)
   dim fill(10,20)

   fills=1
   fillx(1)=tilex
   filly(1)=tilez
   fill(tilex,tilez)=1
   endfill=0

   while endfill=0

      endfill=1

      fill2=fills
      for i=1 to fills
         fillx=fillx(i)
         filly=filly(i)

         if fillx<9
            if fill(fillx+1,filly)=0 : rem Right
               if mat(fillx+1,filly)=coltofind
                  fill2=fill2+1
                  fillx(fill2)=fillx+1
                  filly(fill2)=filly
                  fill(fillx+1,filly)=1
                  endfill=0
               endif
            endif
         endif

         if fillx>0
            if fill(fillx-1,filly)=0 : rem Left
               if mat(fillx-1,filly)=coltofind
                  fill2=fill2+1
                  fillx(fill2)=fillx-1
                  filly(fill2)=filly
                  fill(fillx-1,filly)=1
                  endfill=0
               endif
            endif
         endif

         if filly>0
            if fill(fillx,filly-1)=0 : rem Up
               if mat(fillx,filly-1)=coltofind
                  fill2=fill2+1
                  fillx(fill2)=fillx
                  filly(fill2)=filly-1
                  fill(fillx,filly-1)=1
                  endfill=0
               endif
            endif
         endif

         if filly<19
            if fill(fillx,filly+1)=0 : rem Down
               if mat(fillx,filly+1)=coltofind
                  fill2=fill2+1
                  fillx(fill2)=fillx
                  filly(fill2)=filly+1
                  fill(fillx,filly+1)=1
                  endfill=0
               endif
            endif
         endif
      next i
      fills=fill2

      if fills>=200 then endfill=1

   endwhile

   originalcol=mat(tilex,tilez)
   if fills>=3
      for x=0 to 9
         for z=0 to 19
            if fill(x,z)=1
               flashing(x,z)=20
               flashingcol(x,z)=originalcol
               mat(x,z)=0
            endif
         next i
      next i
   endif

   undim fillx(gridwidth*gridheight)
   undim filly(gridwidth*gridheight)
   undim fill(gridwidth,gridheight)

endfunction fills

function findislands()

   dim island(10,20)
   island=0
   islands=0

   for x=0 to 9
      for z=0 to 19

         if mat(x,z)>0 and island(x,z)=0

            island=island+1

            dim fillx(200)
            dim filly(200)
            dim fill(10,20)

            fills=1
            fillx(1)=x
            filly(1)=z
            fill(x,z)=1
            endfill=0

            while endfill=0

               endfill=1

               fill2=fills
               for i=1 to fills
                  fillx=fillx(i)
                  filly=filly(i)

                  if fillx<9
                     if fill(fillx+1,filly)=0 : rem Right
                        if mat(fillx+1,filly)>0
                           fill2=fill2+1
                           fillx(fill2)=fillx+1
                           filly(fill2)=filly
                           fill(fillx+1,filly)=1
                           endfill=0
                        endif
                     endif
                  endif

                  if fillx>0
                     if fill(fillx-1,filly)=0 : rem Left
                        if mat(fillx-1,filly)>0
                           fill2=fill2+1
                           fillx(fill2)=fillx-1
                           filly(fill2)=filly
                           fill(fillx-1,filly)=1
                           endfill=0
                        endif
                     endif
                  endif

                  if filly>0
                     if fill(fillx,filly-1)=0 : rem Up
                        if mat(fillx,filly-1)>0
                           fill2=fill2+1
                           fillx(fill2)=fillx
                           filly(fill2)=filly-1
                           fill(fillx,filly-1)=1
                           endfill=0
                        endif
                     endif
                  endif

                  if filly<19
                     if fill(fillx,filly+1)=0 : rem Down
                        if mat(fillx,filly+1)>0
                           fill2=fill2+1
                           fillx(fill2)=fillx
                           filly(fill2)=filly+1
                           fill(fillx,filly+1)=1
                           endfill=0
                        endif
                     endif
                  endif
               next i
               fills=fill2

               if fills>=200 then endfill=1

            endwhile

            for x1=0 to 9
               for z1=0 to 19
                  if fill(x1,z1)=1
                     island(x1,z1)=island
                  endif
               next i
            next i

            undim fillx(gridwidth*gridheight)
            undim filly(gridwidth*gridheight)
            undim fill(gridwidth,gridheight)

         endif

      next z
   next x

   scoreinc=0

   for i=1 to island
      secure=0
      for x=0 to 9
         if island(x,19)=i then secure=1
      next x
      if secure=0
         for x1=0 to 9
            for z1=0 to 19
               if island(x1,z1)=i
                  mat(x1,z1)=0
                  set matrix tile 1,x1,z1,1
                  scoreinc=scoreinc+1
               endif
            next i
         next i
      endif
   next i

   undim island(10,20)

endfunction scoreinc