The DB Classic Programming Challenge Thread

Author

Message

t10dimensional

16

Years of Service

User Offline

Joined: 22nd Mar 2009

Location: Code Cave, USA

Posted: 5th Aug 2009 04:32 Edited at: 5th Aug 2009 04:45

Link

Sorry for not saying anything about my entry.Here's my first draft.
Controls are S,G,K,Downkey,don't push until it says go,push again to deploy parachute(buttons beside it go left and right).

Need to add:
-Health Bar
-Rounds
-AI(maybe)
-Scoreing

`                    ~~~PARACHUTE~~~
set display mode 1024,768,32
sync on:sync rate 0
hide mouse
set text font "Times New Roman",1
set text size 100

randomize timer()

gosub GETimages

dim x(4)
dim y(4)
dim num(4)
dim speed(4)
dim drop(4)
dim pressed(4)
dim pressed2(4)
dim parachute(4)
dim health(4)
dim left(4)
dim middle(4)
dim right(4)
dim early(4)

x(1)=287
x(2)=437
x(3)=587
x(4)=737
for n=1 to 4
 y(n)=260
next n

left(1)=203:left(2)=30:left(3)=33:left(4)=36
middle(1)=208:middle(2)=31:middle(3)=34:middle(4)=37
right(1)=205:right(2)=32:right(3)=35:right(4)=38

midwidth=screen width()/2
midheight=screen height()/2
players=4

ink rgb(60,60,60),rgb(128,128,128)
sleep 500
cls

for n2=1 to 3
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
   paste image 8,0,0,1
 for n=1 to players
  sprite n,x(n),y(n),n
   ink rgb(60,60,60),rgb(128,128,128)
  line x(n)-10,y(n)+22, x(n)+31,y(n)+22
   ink rgb(100,100,100),rgb(128,128,128)
  line x(n)-10,y(n)+23, x(n)+31,y(n)+23
   ink rgb(140,140,140),rgb(128,128,128)
  line x(n)-10,y(n)+24, x(n)+31,y(n)+24
 next n

for n3=1 to 4
  if early(n3)=1
   ink rgb(100,100,100),rgb(128,128,128)
   box x(n3)-2,y(n3)-2,x(n3)+22,y(n3)+22
  endif
next n3

if n2=1
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
   text midwidth-(text width("READY")/2),midheight-100, "READY"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=1000 then exit
sync
ENDwhile
endif

if n2=2
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
   text midwidth-(text width("SET")/2),midheight-100, "SET"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=1000 then exit
sync
ENDwhile
endif

if n2=3
wait=rnd(2300)+700
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=wait then exit
sync
ENDwhile
   text midwidth-(text width("GO!")/2),midheight-100 , "GO!"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 and early(n)=0 then drop(n)=1:pressed(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
endif

sync:cls
next n2

oldtime=timer()
`                    ~~~MAIN LOOP~~~
DO
 time=timer()-oldtime

if time>=15
` background
if drop(1)=1 or drop(2)=1 or drop(3)=1 or drop(4)=1
 for n=1 to 4
  if drop(n)=0 
    speed(n)=(rnd(4)+4)*-1
  endif
 next n
 if By>-768
  for n=1 to 4
   if drop(n)=1 then speed(n)=-1 
  next n
  By=By-8
 else
  for n=1 to 4
   if drop(n)=1 and pressed2(n)=0 then speed(n)=8:pressed2(n)=1
  next n
 endif
endif
` sky
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
` sides
   paste image 8,0,0,1

` players
 for n=1 to players
  if keystate(middle(n))=0 then pressed(n)=0
  if keystate(middle(n))=1 and drop(n)=0 and pressed(n)=0 and early(n)=0 then drop(n)=1:pressed(n)=1
` movement
    if keystate(left(n))=1 and drop(n)=1 then x(n)=x(n)-1
    if keystate(right(n))=1 and drop(n)=1 then x(n)=x(n)+1
    if keystate(middle(n))=1 and drop(n)=1 and pressed(n)=0 then parachute(n)=1
   ` speed
  if parachute(n)=1
   num(n)=num(n)+1
   if num(n)>=rnd(2)+8
    speed(n)=speed(n)-1
    num(n)=0
    if speed(n)=0 then speed(n)=1
   endif
  endif
   y(n)=y(n)+speed(n)
   ` sprite
   if parachute(n)=1
    paste image 9+n,x(n)-12,y(n)-40,1
   endif
   sprite n,x(n),y(n),n
  if drop(n)=0 and early(n)=0
    ink rgb(60,60,60),rgb(128,128,128)
   line x(n)-10,y(n)+22, x(n)+31,y(n)+22
    ink rgb(100,100,100),rgb(128,128,128)
   line x(n)-10,y(n)+23, x(n)+31,y(n)+23
    ink rgb(140,140,140),rgb(128,128,128)
   line x(n)-10,y(n)+24, x(n)+31,y(n)+24
  endif
  if early(n)=1
   ink rgb(100,100,100),rgb(128,128,128)
   box x(n)-2,y(n)-2,x(n)+22,y(n)+22
  endif
  next n

oldtime=timer()
  sync:cls
 endif
LOOP

END

`                    ~~~SUB FILES~~~

GETimages:
` background
for n=0 to 767
 ink rgb(0,0,(n)/6),0
 line 0,n, 639,n
next n
` make stars
for n=1 to 70
 Rx=rnd(639)
 Ry=rnd(160)
  ink rgb(255,255,255),0
  dot Rx,Ry
  ink rgb(rnd(10)+7,rnd(10)+7,rnd(10)+7),0
  dot Rx+1,Ry
  dot Rx-1,Ry
  dot Rx,Ry+1
  dot Rx,Ry-1
next n
for n=1 to 44
 Rx=rnd(639)
 Ry=rnd(135)+160
  ink rgb(150,150,150),0
  dot Rx,Ry
  ink rgb(rnd(4)+5,rnd(4)+5,rnd(4)+5),0
  dot Rx+1,Ry
  dot Rx-1,Ry
  dot Rx,Ry+1
  dot Rx,Ry-1
next n
get image 5,0,0,639,768
cls
for n=768 to 1536
 ink rgb(0,0,(n)/6),0
if n>=1517 then ink rgb(0,rnd(40)+200,0),0
 line 0,n-768, 639,n-768
next n
get image 6,0,0,639,768
 cls
` sideimage
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line 831+n,0, 831+n,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line 193-n,0, 193-n,768
next n
get image 8,0,0,1024,768
` player 1 red
ink rgb(255,0,0),0
 cls
for n=10 to 1 step -1
 circle 10,10,n
 box 4,4,16,16
next n
get image 1,0,0,22,22
` player 1 orange
  ink rgb(255,128,0),0

for n=10 to 1 step -1
   circle 10,10,n
   box 4,4,16,16
  next n
  get image 2,0,0,22,22
` player 1 green
  ink rgb(0,255,0),0

for n=10 to 1 step -1
   circle 10,10,n
   box 4,4,16,16
  next n
  get image 3,0,0,22,22
` player 1 yellow
ink rgb(255,255,0),0

for n=10 to 1 step -1
 circle 10,10,n
 box 4,4,16,16
next n
get image 4,0,0,22,22
 cls

rem x-12 y-45
` parachute
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 10,20,n
    if n=8
     ink rgb(192,192,192),0
     box 4,14,16,26
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 17,15,n
    if n=8
     ink rgb(192,192,192),0
     box 11,9,23,21
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 28,15,n
    if n=8
     ink rgb(192,192,192),0
     box 22,9,34,21
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 35,20,n
    if n=8
     ink rgb(192,192,192),0
     box 29,14,41,26
    endif
 next n

line 10,29, 23,44
line 35,29, 23,44
for n=1 to 4
 get image 9+n,0,0,55,55
next n
 cls
Return

+ Code Snippet

`                    ~~~PARACHUTE~~~
set display mode 1024,768,32
sync on:sync rate 0
hide mouse
set text font "Times New Roman",1
set text size 100

randomize timer()

gosub GETimages

dim x(4)
dim y(4)
dim num(4)
dim speed(4)
dim drop(4)
dim pressed(4)
dim pressed2(4)
dim parachute(4)
dim health(4)
dim left(4)
dim middle(4)
dim right(4)
dim early(4)

x(1)=287
x(2)=437
x(3)=587
x(4)=737
for n=1 to 4
 y(n)=260
next n

left(1)=203:left(2)=30:left(3)=33:left(4)=36
middle(1)=208:middle(2)=31:middle(3)=34:middle(4)=37
right(1)=205:right(2)=32:right(3)=35:right(4)=38

midwidth=screen width()/2
midheight=screen height()/2
players=4

ink rgb(60,60,60),rgb(128,128,128)
sleep 500
cls

for n2=1 to 3
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
   paste image 8,0,0,1
 for n=1 to players
  sprite n,x(n),y(n),n
   ink rgb(60,60,60),rgb(128,128,128)
  line x(n)-10,y(n)+22, x(n)+31,y(n)+22
   ink rgb(100,100,100),rgb(128,128,128)
  line x(n)-10,y(n)+23, x(n)+31,y(n)+23
   ink rgb(140,140,140),rgb(128,128,128)
  line x(n)-10,y(n)+24, x(n)+31,y(n)+24
 next n

for n3=1 to 4
  if early(n3)=1
   ink rgb(100,100,100),rgb(128,128,128)
   box x(n3)-2,y(n3)-2,x(n3)+22,y(n3)+22
  endif
next n3

if n2=1
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
   text midwidth-(text width("READY")/2),midheight-100, "READY"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=1000 then exit
sync
ENDwhile
endif

if n2=2
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
   text midwidth-(text width("SET")/2),midheight-100, "SET"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=1000 then exit
sync
ENDwhile
endif

if n2=3
wait=rnd(2300)+700
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=wait then exit
sync
ENDwhile
   text midwidth-(text width("GO!")/2),midheight-100 , "GO!"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 and early(n)=0 then drop(n)=1:pressed(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
endif

sync:cls
next n2

oldtime=timer()
`                    ~~~MAIN LOOP~~~
DO
 time=timer()-oldtime

if time>=15
` background
if drop(1)=1 or drop(2)=1 or drop(3)=1 or drop(4)=1
 for n=1 to 4
  if drop(n)=0 
    speed(n)=(rnd(4)+4)*-1
  endif
 next n
 if By>-768
  for n=1 to 4
   if drop(n)=1 then speed(n)=-1 
  next n
  By=By-8
 else
  for n=1 to 4
   if drop(n)=1 and pressed2(n)=0 then speed(n)=8:pressed2(n)=1
  next n
 endif
endif
` sky
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
` sides
   paste image 8,0,0,1

` players
 for n=1 to players
  if keystate(middle(n))=0 then pressed(n)=0
  if keystate(middle(n))=1 and drop(n)=0 and pressed(n)=0 and early(n)=0 then drop(n)=1:pressed(n)=1
` movement
    if keystate(left(n))=1 and drop(n)=1 then x(n)=x(n)-1
    if keystate(right(n))=1 and drop(n)=1 then x(n)=x(n)+1
    if keystate(middle(n))=1 and drop(n)=1 and pressed(n)=0 then parachute(n)=1
   ` speed
  if parachute(n)=1
   num(n)=num(n)+1
   if num(n)>=rnd(2)+8
    speed(n)=speed(n)-1
    num(n)=0
    if speed(n)=0 then speed(n)=1
   endif
  endif
   y(n)=y(n)+speed(n)
   ` sprite
   if parachute(n)=1
    paste image 9+n,x(n)-12,y(n)-40,1
   endif
   sprite n,x(n),y(n),n
  if drop(n)=0 and early(n)=0
    ink rgb(60,60,60),rgb(128,128,128)
   line x(n)-10,y(n)+22, x(n)+31,y(n)+22
    ink rgb(100,100,100),rgb(128,128,128)
   line x(n)-10,y(n)+23, x(n)+31,y(n)+23
    ink rgb(140,140,140),rgb(128,128,128)
   line x(n)-10,y(n)+24, x(n)+31,y(n)+24
  endif
  if early(n)=1
   ink rgb(100,100,100),rgb(128,128,128)
   box x(n)-2,y(n)-2,x(n)+22,y(n)+22
  endif
  next n

  oldtime=timer()
  sync:cls
 endif
LOOP

END

`                    ~~~SUB FILES~~~

GETimages:
` background
for n=0 to 767
 ink rgb(0,0,(n)/6),0
 line 0,n, 639,n
next n
` make stars
for n=1 to 70
 Rx=rnd(639)
 Ry=rnd(160)
  ink rgb(255,255,255),0
  dot Rx,Ry
  ink rgb(rnd(10)+7,rnd(10)+7,rnd(10)+7),0
  dot Rx+1,Ry
  dot Rx-1,Ry
  dot Rx,Ry+1
  dot Rx,Ry-1
next n
for n=1 to 44
 Rx=rnd(639)
 Ry=rnd(135)+160
  ink rgb(150,150,150),0
  dot Rx,Ry
  ink rgb(rnd(4)+5,rnd(4)+5,rnd(4)+5),0
  dot Rx+1,Ry
  dot Rx-1,Ry
  dot Rx,Ry+1
  dot Rx,Ry-1
next n
get image 5,0,0,639,768
cls
for n=768 to 1536
 ink rgb(0,0,(n)/6),0
if n>=1517 then ink rgb(0,rnd(40)+200,0),0
 line 0,n-768, 639,n-768
next n
get image 6,0,0,639,768
 cls
` sideimage
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line 831+n,0, 831+n,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line 193-n,0, 193-n,768
next n
get image 8,0,0,1024,768
` player 1 red
ink rgb(255,0,0),0
 cls
for n=10 to 1 step -1
 circle 10,10,n
 box 4,4,16,16
next n
get image 1,0,0,22,22
` player 1 orange
  ink rgb(255,128,0),0

  for n=10 to 1 step -1
   circle 10,10,n
   box 4,4,16,16
  next n
  get image 2,0,0,22,22
` player 1 green
  ink rgb(0,255,0),0

  for n=10 to 1 step -1
   circle 10,10,n
   box 4,4,16,16
  next n
  get image 3,0,0,22,22
` player 1 yellow
ink rgb(255,255,0),0

for n=10 to 1 step -1
 circle 10,10,n
 box 4,4,16,16
next n
get image 4,0,0,22,22
 cls

rem x-12 y-45
` parachute
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 10,20,n
    if n=8
     ink rgb(192,192,192),0
     box 4,14,16,26
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 17,15,n
    if n=8
     ink rgb(192,192,192),0
     box 11,9,23,21
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 28,15,n
    if n=8
     ink rgb(192,192,192),0
     box 22,9,34,21
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 35,20,n
    if n=8
     ink rgb(192,192,192),0
     box 29,14,41,26
    endif
 next n

line 10,29, 23,44
line 35,29, 23,44
for n=1 to 4
 get image 9+n,0,0,55,55
next n
 cls
Return

Back to top

Profile PM

NanoGamez guy

18

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 5th Aug 2009 16:54

Link

@TDK
Your code runs very slow with me, clicking on the menu was quite hard and it took several attempts to go onto the vehicle selection screen (btw, just so you know Processor: AMD Sempron(tm) 2200+, MMX, 3DNow, ~1.5GHz Memory: 960MB RAM). However, the vehicle selection is great! It looks very cool and all the stats is a really good idea. I look forward to racing!

@Ooska
Very funny idea and quite hard, I like the ASCII objects!

@razerx
Took me a while to work out what was going on and your code was quite hard to read, but it's a very good idea and the graphics look great. I'm still not sure what the aim is though...

Here's what I've got so far for my entry.
The vehicle (flattened cylinder) hovers around so there's no friction with the ground (and no air resistance for some reason). This means that once it starts moving in one direction, it'll continue in that direction until another force (i.e. you or a building) acts apon it. Arrow keys to move and space to brake (you will need it). The map shows a rough plan of the city and a track though it.

sync on
randomize timer()

hide mouse

rem Objects:
rem 1       - Player
rem 100-500 - Buildings

rem Images:
rem 10      - Road
rem 10      - Road image generation

gosub GenerateTextures

mapwidth=50
mapheight=50

dim cellwall(mapwidth+1,mapheight+1,2)

dim Roomx1(mapwidth*mapheight)
dim Roomy1(mapwidth*mapheight)
dim Roomx2(mapwidth*mapheight)
dim Roomy2(mapwidth*mapheight)

dim Corner(mapwidth+1,mapheight+1)

rooms=MakeMap(mapwidth,mapheight,10,3)

gosub FindCorners

dim Trackc(corners)
gosub MakeTrack

dim RoomHeight(rooms)
dim CurrentRheight(rooms)

gosub MakeMap3D
gosub MakePlayers

playerx#=3
playerz#=3
playerang#=0
playerxvel#=0
playerzvel#=0

cinematicmode=0
cinematicangle#=0

do

set cursor 0,0

oldpx#=playerx#
   oldpz#=playerz#

gosub HandleInput
   gosub HandleCollision

if springbuildings=1
      for i=2 to rooms-1
         cysize=currentRheight(i)
         tysize=RoomHeight(i)
         nysize=cysize+(tysize-cysize)/8
         scale object 99+i,100,nysize/10*100,100
         position object 99+i,object position x(99+i),nysize/2,object position z(99+i)
         currentRheight(i)=nysize
      next i
   endif

if cinematicmode=0
      set camera to follow playerx#,1,playerz#,playerang#,10,5,2.0,1
      point camera playerx#,1,playerz#
   endif

gosub DisplayMap

sync

loop

GenerateTextures:

create bitmap 1,700,700

gosub GenerateRoad

delete bitmap 1

return

GenerateRoad:

cls rgb(100,100,100)

xp=0 : yp=128        : rem | code 5
   ink rgb(30,30,45),0
   box xp+2,yp+1,xp+6,yp+128
   box xp+123,yp+1,xp+127,yp+128
   ink rgb(255,255,255),0
   for y=1 to 128 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next y

xp=128 : yp=256      : rem _ code 10
   ink rgb(30,30,45),0
   box xp+1,yp+2,xp+128,yp+6
   box xp+1,yp+123,xp+128,yp+127
   ink rgb(255,255,255),0
   for x=1 to 128 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x

xp=384 : yp=256      : rem ¬ code 12

ink rgb(30,30,45),0
   box xp+1,yp+2,xp+127,yp+6
   box xp+123,yp+2,xp+127,yp+128
   box xp+1,yp+123,xp+6,yp+128

get image 11,xp+1,yp+1,xp+129,yp+129

ink rgb(255,255,255),0
   for x=1 to 64 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x
   for y=65 to 128 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next y

xp=0 : yp=256        : rem -' code 9

rotate image 11,90
   paste image 11,xp+1,yp+1

ink rgb(255,255,255),0
   for x=1 to 64 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x
   for y=1 to 64 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next y

xp=256 : yp=0        : rem '- code 3

rotate image 11,90
   paste image 11,xp+1,yp+1

ink rgb(255,255,255),0
   for x=65 to 128 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x
   for y=1 to 64 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next y

xp=128 : yp=128      : rem ,- code 6

rotate image 11,90
   paste image 11,xp+1,yp+1

ink rgb(255,255,255),0
   for x=65 to 128 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x
   for y=65 to 128 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next y

xp=128 : yp=384      : rem -,- code 14

ink rgb(30,30,45),0
   box xp+1,yp+2,xp+128,yp+6
   box xp+1,yp+123,xp+6,yp+128
   box xp+123,yp+123,xp+128,yp+128

ink rgb(255,255,255),0
   for x=1 to 128 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x

for x=10 to 122 step 13
      box xp+x,yp+123,xp+x+6,yp+126
   next x

xp=0 : yp=384        : rem -| code 13

ink rgb(30,30,45),0
   box xp+123,yp+1,xp+127,yp+128
   box xp+1,yp+1,xp+6,yp+6
   box xp+1,yp+123,xp+6,yp+128

ink rgb(255,255,255),0
   for y=1 to 128 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next x

for y=10 to 122 step 13
      box xp+3,yp+y,xp+6,yp+y+6
   next x

xp=256 : yp=256      : rem -'- code 11

ink rgb(30,30,45),0
   box xp+1,yp+123,xp+128,yp+127
   box xp+1,yp+1,xp+6,yp+6
   box xp+123,yp+1,xp+128,yp+6

ink rgb(255,255,255),0
   for x=1 to 128 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x

for x=10 to 122 step 13
      box xp+x,yp+3,xp+x+6,yp+6
   next x

xp=256 : yp=128      : rem |- code 7

ink rgb(30,30,45),0
   box xp+2,yp+1,xp+6,yp+128
   box xp+123,yp+1,xp+128,yp+6
   box xp+123,yp+123,xp+128,yp+128

ink rgb(255,255,255),0
   for y=1 to 128 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next x

for y=10 to 122 step 13
      box xp+123,yp+y,xp+126,yp+y+6
   next x

xp=256 : yp=384      : rem + code 15
   ink rgb(30,30,45),0
   box xp+1,yp+1,xp+6,yp+6
   box xp+123,yp+1,xp+128,yp+6
   box xp+123,yp+123,xp+128,yp+128
   box xp+1,yp+123,xp+6,yp+128

ink rgb(255,255,255),0
   for x=10 to 122 step 13
      box xp+x,yp+123,xp+x+6,yp+126
   next x
   for y=10 to 122 step 13
      box xp+3,yp+y,xp+6,yp+y+6
   next x
   for x=10 to 122 step 13
      box xp+x,yp+3,xp+x+6,yp+6
   next x
   for y=10 to 122 step 13
      box xp+123,yp+y,xp+126,yp+y+6
   next x

get image 10,0,0,512,512

return

FindCorners:

for i=1 to rooms
      x1=roomx1(i)
      y1=roomy1(i)
      x2=roomx2(i)
      y2=roomy2(i)
      corner(x1,y1)=1
      corner(x2,y2)=1
   next i
   corner(mapwidth+1,1)=1
   corner(1,mapheight+1)=1

corners=0
   for x=1 to mapwidth+1
      for y=1 to mapheight+1
         if corner(x,y)=1 then corners=corners+1
      next y
   next x

dim cornerx(corners)
   dim cornery(corners)

corner=1
   for x=1 to mapwidth+1
      for y=1 to mapheight+1
         if corner(x,y)=1
            cornerx(corner)=x
            cornery(corner)=y
            corner=corner+1
         endif
      next y
   next x

return

MakeTrack:

furthest=5
   furthest=furthest*furthest

repeat
      corn=rnd(corners-1)+1
      ypos=cornery(corn)
   until ypos=mapheight+1
   xpos=cornerx(corn)

Trackc(1)=corn
   trackpoint=1

dim closecorn(corners)

repeat

CornersClose=0

for j=7 to 21 step 7
         for i=1 to corners
            if abs((cornerx(i)-xpos)*(cornerx(i)-xpos)+(cornery(i)-ypos)*(cornery(i)-ypos))<=j*j
               CornersClose=CornersClose+1
               closecorn(CornersClose)=i
            endif
         next i
         if CornersClose>0 then exit
      next j

repeat
         nextposs=rnd(CornersClose-1)+1
         nextcorner=closecorn(nextposs)
      until cornery(nextcorner)<ypos or rnd(7)=0

xpos=cornerx(nextcorner)
      ypos=cornery(nextcorner)

Trackpoint=Trackpoint+1
      Trackc(Trackpoint)=nextcorner

until ypos<=1 or Trackpoint>=corners-2

undim closecorn(corners)

Trackpoints=Trackpoint

return

MakeMap3D:

for i=1 to rooms
      RoomHeight(i)=(rnd(15)+1)*10
   next i

make matrix 1,(mapwidth+1)*10,(mapheight+1)*10,mapwidth+1,mapheight+1
   prepare matrix texture 1,10,4,4

for i=2 to rooms-1
      x1#=roomx1(i)
      y1#=roomy1(i)
      x2#=roomx2(i)
      y2#=roomy2(i)
      xsize=(x2#-x1#)*10-10
      ysize=RoomHeight(i)
      CurrentRheight(i)=ysize
      zsize=(y2#-y1#)*10-10
      xpos=((x2#-x1#)/2+x1#)*10-5
      ypos=ysize/2
      zpos=((y2#-y1#)/2+y1#)*10-5
      make object box 99+i,xsize,ysize,zsize
      position object 99+i,xpos,ypos,zpos
      xsize=xsize/2
      ysize=ysize/2
      zsize=zsize/2
      make static object 99+i
      make static collision box xpos-xsize,ypos-ysize,zpos-zsize,xpos+xsize,ypos+ysize,zpos+zsize
   next i

for x=0 to mapwidth
      for y=0 to mapheight
         side1=cellwall(x+1,y,1)
         side2=cellwall(x+1,y+1,2)
         side3=cellwall(x+1,y+1,1)
         side4=cellwall(x,y+1,2)
         if side1+side2+side3+side4>0
            tempside=side3    : rem Mirror image
            side3=side1
            side1=tempside
            code=side1+side2*2+side3*4+side4*8  : rem Binary Encoding of the Sides
            set matrix tile 1,x,y,code
         else
            set matrix tile 1,x,y,1
         endif
      next y
   next x
   update matrix 1

return

MakePlayers:

make object cylinder 1,1
   scale object 1,400,100,400
   position object 1,3,1,3

return

HandleInput:

if upkey()=1
      playerxvel#=playerxvel#+sin(playerang#)*0.025
      playerzvel#=playerzvel#+cos(playerang#)*0.025
   endif
   if downkey()=1
      playerxvel#=playerxvel#-sin(playerang#)*0.025
      playerzvel#=playerzvel#-cos(playerang#)*0.025
   endif
   if leftkey()=1 then playerang#=wrapvalue(playerang#-5)
   if rightkey()=1 then playerang#=wrapvalue(playerang#+5)

if spacekey()=1
      playerxvel#=playerxvel#*0.9
      playerzvel#=playerzvel#*0.9
   endif

if returnkey()=1
      cinematicangle#=wrapvalue(cinematicangle#+0.5)
      position camera (mapwidth+1)*5+sin(cinematicangle#)*((mapwidth+1)*5+100),250,(mapheight+1)*5+cos(cinematicangle#)*((mapheight+1)*5+100)
      point camera (mapwidth+1)*5,50,(mapheight+1)*5
      cinematicmode=1
   else
      cinematicmode=0
   endif

if playerxvel#>3 then playerxvel#=3
   if playerzvel#>3 then playerzvel#=3
   if playerxvel#<-3 then playerxvel#=-3
   if playerzvel#<-3 then playerzvel#=-3

playerx#=playerx#+playerxvel#
   playerz#=playerz#+playerzvel#

position object 1,playerx#,1,playerz#
   yrotate object 1,playerang#

return

HandleCollision:

if get static collision hit(oldpx#-2,0.5,oldpz#-2,oldpx#+2,1.5,oldpz#+2,playerx#-2,0.5,playerz#-2,playerx#+2,1.5,playerz#+2)=1
      collx#=get static collision x()
      collz#=get static collision z()
      playerx#=playerx#-collx#
      playerz#=playerz#-collz#
      position object 1,playerx#,1,playerz#
      if collx#<>0 then playerxvel#=playerxvel#*-0.8
      if collz#<>0 then playerzvel#=playerzvel#*-0.8
      playerxvel#=playerxvel#*0.95
      playerzvel#=playerzvel#*0.95
   endif

if playerx#<2
      playerx#=2
      playerxvel#=playerxvel#*-0.78
      playerzvel#=playerzvel#*0.95
   endif
   if playerz#<2
      playerz#=2
      playerzvel#=playerzvel#*-0.78
      playerxvel#=playerxvel#*0.95
   endif
   if playerx#>(mapwidth+1)*10-2
      playerx#=(mapwidth+1)*10-2
      playerxvel#=playerxvel#*-0.78
      playerzvel#=playerzvel#*0.95
   endif
   if playerz#>(mapheight+1)*10-2
      playerz#=(mapheight+1)*10-2
      playerzvel#=playerzvel#*-0.78
      playerxvel#=playerxvel#*0.95
   endif

return

DisplayMap:

ink 0,0
   for x=0 to mapwidth+1
      for y=0 to mapheight+1
         if cellwall(x,y,1)=1 then line x*5,y*5,x*5,y*5+5
         if cellwall(x,y,2)=1 then line x*5,y*5,x*5+5,y*5
      next y
   next x
   remend

remstart
   for i=2 to rooms-1
      x1=roomx1(i)*5+43
      y1=roomy1(i)*5+43
      x2=roomx2(i)*5+37
      y2=roomy2(i)*5+37
      ink 255,0
      box x1,y1,x2,y2
      ink 0,0
      center text (x2-x1)/2+x1,(y2-y1)/2+y1-7,str$(i)
   next i

ink 255,0
   for i=1 to corners
      x=cornerx(i)*5
      y=cornery(i)*5
      circle x,y,3
   next i
   remend

ink rgb(255,255,0),0
   for i=1 to Trackpoints-1
      corn=Trackc(i)
      x1=cornerx(corn)*5
      y1=cornery(corn)*5+sin(i*45)
      corn2=Trackc(i+1)
      x2=cornerx(corn2)*5
      y2=cornery(corn2)*5+sin(i*45+45)
      `circle x1,y1,3
      line x1,y1,x2,y2
   next i

return

end

function MakeMap(mapwidth,mapheight,maxroomsize,minroomsize)

dim Stackx1(mapwidth*mapheight)
   dim Stacky1(mapwidth*mapheight)
   dim Stackx2(mapwidth*mapheight)
   dim Stacky2(mapwidth*mapheight)

Room=1

stack=1

Stackx1(stack)=1
   Stacky1(stack)=1
   Stackx2(stack)=mapwidth+1
   Stacky2(stack)=mapheight+1

generateend=0

for x=1 to mapwidth
      cellwall(x,1,2)=1
      cellwall(x,mapheight+1,2)=1
   next x
   for y=1 to mapheight
      cellwall(1,y,1)=1
      cellwall(mapwidth+1,y,1)=1
   next y

repeat

sx1=Stackx1(stack)
      sy1=Stacky1(stack)
      sx2=Stackx2(stack)
      sy2=Stacky2(stack)
      if ((sx2-sx1)-1)<=minroomsize*2 or ((sy2-sy1)-1)<=minroomsize*2
         Room=Room+1
         Roomx1(Room)=sx1
         Roomy1(Room)=sy1
         Roomx2(Room)=sx2
         Roomy2(Room)=sy2
         endloop=0
         repeat
            stack=stack-1
            sx1=Stackx1(stack)
            sy1=Stacky1(stack)
            sx2=Stackx2(stack)
            sy2=Stacky2(stack)
            if (((sx2-sx1)-1)>minroomsize*2 and ((sy2-sy1)-1)>minroomsize*2)=0
               Room=Room+1
               Roomx1(Room)=sx1
               Roomy1(Room)=sy1
               Roomx2(Room)=sx2
               Roomy2(Room)=sy2
            else
               endloop=1
            endif
         until endloop=1 or stack=0
         if stack=0 then generateend=1
      endif

if generateend=0

rangex=(sx2-sx1)-1
         rangey=(sy2-sy1)-1

if rangex>=minroomsize*2 and rangex<maxroomsize*2
            repeat
               divx=rnd((sx2-sx1)-2)+1
            until divx>=minroomsize and rangex-divx>=minroomsize
         else
            divx=rangex/2+(rnd(2)-1)
         endif
         if rangey>=minroomsize*2 and rangey<maxroomsize*2
            repeat
               divy=rnd((sy2-sy1)-2)+1
            until divy>=minroomsize and rangey-divy>=minroomsize
         else
            divy=rangey/2+(rnd(2)-1)
         endif

divx=divx+sx1
         divy=divy+sy1

for y=sy1 to sy2-1
            cellwall(divx,y,1)=1
         next y
         for x=sx1 to sx2-1
            cellwall(x,divy,2)=1
         next x

Stackx1(stack)=sx1   : rem Section 1
         Stacky1(stack)=sy1
         Stackx2(stack)=divx
         Stacky2(stack)=divy

stack=stack+1
         Stackx1(stack)=divx  : rem Section 2
         Stacky1(stack)=sy1
         Stackx2(stack)=sx2
         Stacky2(stack)=divy

stack=stack+1
         Stackx1(stack)=divx  : rem Section 3
         Stacky1(stack)=divy
         Stackx2(stack)=sx2
         Stacky2(stack)=sy2

stack=stack+1
         Stackx1(stack)=sx1  : rem Section 4
         Stacky1(stack)=divy
         Stackx2(stack)=divx
         Stacky2(stack)=sy2

endif

until generateend=1

undim Stackx1(mapwidth*mapheight)
   undim Stacky1(mapwidth*mapheight)
   undim Stackx2(mapwidth*mapheight)
   undim Stacky2(mapwidth*mapheight)

endfunction Room

+ Code Snippet

sync on
randomize timer()

hide mouse

rem Objects:
rem 1       - Player
rem 100-500 - Buildings

rem Images:
rem 10      - Road
rem 10      - Road image generation

gosub GenerateTextures

mapwidth=50
mapheight=50

dim cellwall(mapwidth+1,mapheight+1,2)

dim Roomx1(mapwidth*mapheight)
dim Roomy1(mapwidth*mapheight)
dim Roomx2(mapwidth*mapheight)
dim Roomy2(mapwidth*mapheight)

dim Corner(mapwidth+1,mapheight+1)

rooms=MakeMap(mapwidth,mapheight,10,3)

gosub FindCorners

dim Trackc(corners)
gosub MakeTrack

dim RoomHeight(rooms)
dim CurrentRheight(rooms)

gosub MakeMap3D
gosub MakePlayers

playerx#=3
playerz#=3
playerang#=0
playerxvel#=0
playerzvel#=0

cinematicmode=0
cinematicangle#=0

do

   set cursor 0,0

   oldpx#=playerx#
   oldpz#=playerz#

   gosub HandleInput
   gosub HandleCollision

   if springbuildings=1
      for i=2 to rooms-1
         cysize=currentRheight(i)
         tysize=RoomHeight(i)
         nysize=cysize+(tysize-cysize)/8
         scale object 99+i,100,nysize/10*100,100
         position object 99+i,object position x(99+i),nysize/2,object position z(99+i)
         currentRheight(i)=nysize
      next i
   endif

   if cinematicmode=0
      set camera to follow playerx#,1,playerz#,playerang#,10,5,2.0,1
      point camera playerx#,1,playerz#
   endif

   gosub DisplayMap

   sync

loop

GenerateTextures:

   create bitmap 1,700,700

   gosub GenerateRoad

   delete bitmap 1

return

GenerateRoad:

   cls rgb(100,100,100)

   xp=0 : yp=128        : rem | code 5
   ink rgb(30,30,45),0
   box xp+2,yp+1,xp+6,yp+128
   box xp+123,yp+1,xp+127,yp+128
   ink rgb(255,255,255),0
   for y=1 to 128 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next y

   xp=128 : yp=256      : rem _ code 10
   ink rgb(30,30,45),0
   box xp+1,yp+2,xp+128,yp+6
   box xp+1,yp+123,xp+128,yp+127
   ink rgb(255,255,255),0
   for x=1 to 128 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x

   xp=384 : yp=256      : rem ¬ code 12

   ink rgb(30,30,45),0
   box xp+1,yp+2,xp+127,yp+6
   box xp+123,yp+2,xp+127,yp+128
   box xp+1,yp+123,xp+6,yp+128

   get image 11,xp+1,yp+1,xp+129,yp+129

   ink rgb(255,255,255),0
   for x=1 to 64 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x
   for y=65 to 128 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next y

   xp=0 : yp=256        : rem -' code 9

   rotate image 11,90
   paste image 11,xp+1,yp+1

   ink rgb(255,255,255),0
   for x=1 to 64 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x
   for y=1 to 64 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next y

   xp=256 : yp=0        : rem '- code 3

   rotate image 11,90
   paste image 11,xp+1,yp+1

   ink rgb(255,255,255),0
   for x=65 to 128 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x
   for y=1 to 64 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next y

   xp=128 : yp=128      : rem ,- code 6

   rotate image 11,90
   paste image 11,xp+1,yp+1

   ink rgb(255,255,255),0
   for x=65 to 128 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x
   for y=65 to 128 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next y

   xp=128 : yp=384      : rem -,- code 14

   ink rgb(30,30,45),0
   box xp+1,yp+2,xp+128,yp+6
   box xp+1,yp+123,xp+6,yp+128
   box xp+123,yp+123,xp+128,yp+128

   ink rgb(255,255,255),0
   for x=1 to 128 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x

   for x=10 to 122 step 13
      box xp+x,yp+123,xp+x+6,yp+126
   next x

   xp=0 : yp=384        : rem -| code 13

   ink rgb(30,30,45),0
   box xp+123,yp+1,xp+127,yp+128
   box xp+1,yp+1,xp+6,yp+6
   box xp+1,yp+123,xp+6,yp+128

   ink rgb(255,255,255),0
   for y=1 to 128 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next x

   for y=10 to 122 step 13
      box xp+3,yp+y,xp+6,yp+y+6
   next x

   xp=256 : yp=256      : rem -'- code 11

   ink rgb(30,30,45),0
   box xp+1,yp+123,xp+128,yp+127
   box xp+1,yp+1,xp+6,yp+6
   box xp+123,yp+1,xp+128,yp+6

   ink rgb(255,255,255),0
   for x=1 to 128 step 32
      line xp+x,yp+64,xp+x+24,yp+64
   next x

   for x=10 to 122 step 13
      box xp+x,yp+3,xp+x+6,yp+6
   next x

   xp=256 : yp=128      : rem |- code 7

   ink rgb(30,30,45),0
   box xp+2,yp+1,xp+6,yp+128
   box xp+123,yp+1,xp+128,yp+6
   box xp+123,yp+123,xp+128,yp+128

   ink rgb(255,255,255),0
   for y=1 to 128 step 32
      line xp+64,yp+y,xp+64,yp+y+24
   next x

   for y=10 to 122 step 13
      box xp+123,yp+y,xp+126,yp+y+6
   next x

   xp=256 : yp=384      : rem + code 15
   ink rgb(30,30,45),0
   box xp+1,yp+1,xp+6,yp+6
   box xp+123,yp+1,xp+128,yp+6
   box xp+123,yp+123,xp+128,yp+128
   box xp+1,yp+123,xp+6,yp+128

   ink rgb(255,255,255),0
   for x=10 to 122 step 13
      box xp+x,yp+123,xp+x+6,yp+126
   next x
   for y=10 to 122 step 13
      box xp+3,yp+y,xp+6,yp+y+6
   next x
   for x=10 to 122 step 13
      box xp+x,yp+3,xp+x+6,yp+6
   next x
   for y=10 to 122 step 13
      box xp+123,yp+y,xp+126,yp+y+6
   next x

   get image 10,0,0,512,512

return

FindCorners:

   for i=1 to rooms
      x1=roomx1(i)
      y1=roomy1(i)
      x2=roomx2(i)
      y2=roomy2(i)
      corner(x1,y1)=1
      corner(x2,y2)=1
   next i
   corner(mapwidth+1,1)=1
   corner(1,mapheight+1)=1

   corners=0
   for x=1 to mapwidth+1
      for y=1 to mapheight+1
         if corner(x,y)=1 then corners=corners+1
      next y
   next x

   dim cornerx(corners)
   dim cornery(corners)

   corner=1
   for x=1 to mapwidth+1
      for y=1 to mapheight+1
         if corner(x,y)=1
            cornerx(corner)=x
            cornery(corner)=y
            corner=corner+1
         endif
      next y
   next x

return

MakeTrack:

   furthest=5
   furthest=furthest*furthest

   repeat
      corn=rnd(corners-1)+1
      ypos=cornery(corn)
   until ypos=mapheight+1
   xpos=cornerx(corn)

   Trackc(1)=corn
   trackpoint=1

   dim closecorn(corners)

   repeat

      CornersClose=0

      for j=7 to 21 step 7
         for i=1 to corners
            if abs((cornerx(i)-xpos)*(cornerx(i)-xpos)+(cornery(i)-ypos)*(cornery(i)-ypos))<=j*j
               CornersClose=CornersClose+1
               closecorn(CornersClose)=i
            endif
         next i
         if CornersClose>0 then exit
      next j

      repeat
         nextposs=rnd(CornersClose-1)+1
         nextcorner=closecorn(nextposs)
      until cornery(nextcorner)<ypos or rnd(7)=0

      xpos=cornerx(nextcorner)
      ypos=cornery(nextcorner)

      Trackpoint=Trackpoint+1
      Trackc(Trackpoint)=nextcorner

   until ypos<=1 or Trackpoint>=corners-2

   undim closecorn(corners)

   Trackpoints=Trackpoint

return

MakeMap3D:

   for i=1 to rooms
      RoomHeight(i)=(rnd(15)+1)*10
   next i

   make matrix 1,(mapwidth+1)*10,(mapheight+1)*10,mapwidth+1,mapheight+1
   prepare matrix texture 1,10,4,4

   for i=2 to rooms-1
      x1#=roomx1(i)
      y1#=roomy1(i)
      x2#=roomx2(i)
      y2#=roomy2(i)
      xsize=(x2#-x1#)*10-10
      ysize=RoomHeight(i)
      CurrentRheight(i)=ysize
      zsize=(y2#-y1#)*10-10
      xpos=((x2#-x1#)/2+x1#)*10-5
      ypos=ysize/2
      zpos=((y2#-y1#)/2+y1#)*10-5
      make object box 99+i,xsize,ysize,zsize
      position object 99+i,xpos,ypos,zpos
      xsize=xsize/2
      ysize=ysize/2
      zsize=zsize/2
      make static object 99+i
      make static collision box xpos-xsize,ypos-ysize,zpos-zsize,xpos+xsize,ypos+ysize,zpos+zsize
   next i

   for x=0 to mapwidth
      for y=0 to mapheight
         side1=cellwall(x+1,y,1)
         side2=cellwall(x+1,y+1,2)
         side3=cellwall(x+1,y+1,1)
         side4=cellwall(x,y+1,2)
         if side1+side2+side3+side4>0
            tempside=side3    : rem Mirror image
            side3=side1
            side1=tempside
            code=side1+side2*2+side3*4+side4*8  : rem Binary Encoding of the Sides
            set matrix tile 1,x,y,code
         else
            set matrix tile 1,x,y,1
         endif
      next y
   next x
   update matrix 1

return

MakePlayers:

   make object cylinder 1,1
   scale object 1,400,100,400
   position object 1,3,1,3

return

HandleInput:

   if upkey()=1
      playerxvel#=playerxvel#+sin(playerang#)*0.025
      playerzvel#=playerzvel#+cos(playerang#)*0.025
   endif
   if downkey()=1
      playerxvel#=playerxvel#-sin(playerang#)*0.025
      playerzvel#=playerzvel#-cos(playerang#)*0.025
   endif
   if leftkey()=1 then playerang#=wrapvalue(playerang#-5)
   if rightkey()=1 then playerang#=wrapvalue(playerang#+5)

   if spacekey()=1
      playerxvel#=playerxvel#*0.9
      playerzvel#=playerzvel#*0.9
   endif

   if returnkey()=1
      cinematicangle#=wrapvalue(cinematicangle#+0.5)
      position camera (mapwidth+1)*5+sin(cinematicangle#)*((mapwidth+1)*5+100),250,(mapheight+1)*5+cos(cinematicangle#)*((mapheight+1)*5+100)
      point camera (mapwidth+1)*5,50,(mapheight+1)*5
      cinematicmode=1
   else
      cinematicmode=0
   endif

   if playerxvel#>3 then playerxvel#=3
   if playerzvel#>3 then playerzvel#=3
   if playerxvel#<-3 then playerxvel#=-3
   if playerzvel#<-3 then playerzvel#=-3

   playerx#=playerx#+playerxvel#
   playerz#=playerz#+playerzvel#

   position object 1,playerx#,1,playerz#
   yrotate object 1,playerang#

return

HandleCollision:

   if get static collision hit(oldpx#-2,0.5,oldpz#-2,oldpx#+2,1.5,oldpz#+2,playerx#-2,0.5,playerz#-2,playerx#+2,1.5,playerz#+2)=1
      collx#=get static collision x()
      collz#=get static collision z()
      playerx#=playerx#-collx#
      playerz#=playerz#-collz#
      position object 1,playerx#,1,playerz#
      if collx#<>0 then playerxvel#=playerxvel#*-0.8
      if collz#<>0 then playerzvel#=playerzvel#*-0.8
      playerxvel#=playerxvel#*0.95
      playerzvel#=playerzvel#*0.95
   endif

   if playerx#<2
      playerx#=2
      playerxvel#=playerxvel#*-0.78
      playerzvel#=playerzvel#*0.95
   endif
   if playerz#<2
      playerz#=2
      playerzvel#=playerzvel#*-0.78
      playerxvel#=playerxvel#*0.95
   endif
   if playerx#>(mapwidth+1)*10-2
      playerx#=(mapwidth+1)*10-2
      playerxvel#=playerxvel#*-0.78
      playerzvel#=playerzvel#*0.95
   endif
   if playerz#>(mapheight+1)*10-2
      playerz#=(mapheight+1)*10-2
      playerzvel#=playerzvel#*-0.78
      playerxvel#=playerxvel#*0.95
   endif

return

DisplayMap:

   ink 0,0
   for x=0 to mapwidth+1
      for y=0 to mapheight+1
         if cellwall(x,y,1)=1 then line x*5,y*5,x*5,y*5+5
         if cellwall(x,y,2)=1 then line x*5,y*5,x*5+5,y*5
      next y
   next x
   remend

   remstart
   for i=2 to rooms-1
      x1=roomx1(i)*5+43
      y1=roomy1(i)*5+43
      x2=roomx2(i)*5+37
      y2=roomy2(i)*5+37
      ink 255,0
      box x1,y1,x2,y2
      ink 0,0
      center text (x2-x1)/2+x1,(y2-y1)/2+y1-7,str$(i)
   next i

   ink 255,0
   for i=1 to corners
      x=cornerx(i)*5
      y=cornery(i)*5
      circle x,y,3
   next i
   remend

   ink rgb(255,255,0),0
   for i=1 to Trackpoints-1
      corn=Trackc(i)
      x1=cornerx(corn)*5
      y1=cornery(corn)*5+sin(i*45)
      corn2=Trackc(i+1)
      x2=cornerx(corn2)*5
      y2=cornery(corn2)*5+sin(i*45+45)
      `circle x1,y1,3
      line x1,y1,x2,y2
   next i

return

end

function MakeMap(mapwidth,mapheight,maxroomsize,minroomsize)

   dim Stackx1(mapwidth*mapheight)
   dim Stacky1(mapwidth*mapheight)
   dim Stackx2(mapwidth*mapheight)
   dim Stacky2(mapwidth*mapheight)

   Room=1

   stack=1

   Stackx1(stack)=1
   Stacky1(stack)=1
   Stackx2(stack)=mapwidth+1
   Stacky2(stack)=mapheight+1

   generateend=0

   for x=1 to mapwidth
      cellwall(x,1,2)=1
      cellwall(x,mapheight+1,2)=1
   next x
   for y=1 to mapheight
      cellwall(1,y,1)=1
      cellwall(mapwidth+1,y,1)=1
   next y

   repeat


      sx1=Stackx1(stack)
      sy1=Stacky1(stack)
      sx2=Stackx2(stack)
      sy2=Stacky2(stack)
      if ((sx2-sx1)-1)<=minroomsize*2 or ((sy2-sy1)-1)<=minroomsize*2
         Room=Room+1
         Roomx1(Room)=sx1
         Roomy1(Room)=sy1
         Roomx2(Room)=sx2
         Roomy2(Room)=sy2
         endloop=0
         repeat
            stack=stack-1
            sx1=Stackx1(stack)
            sy1=Stacky1(stack)
            sx2=Stackx2(stack)
            sy2=Stacky2(stack)
            if (((sx2-sx1)-1)>minroomsize*2 and ((sy2-sy1)-1)>minroomsize*2)=0
               Room=Room+1
               Roomx1(Room)=sx1
               Roomy1(Room)=sy1
               Roomx2(Room)=sx2
               Roomy2(Room)=sy2
            else
               endloop=1
            endif
         until endloop=1 or stack=0
         if stack=0 then generateend=1
      endif

      if generateend=0

         rangex=(sx2-sx1)-1
         rangey=(sy2-sy1)-1

         if rangex>=minroomsize*2 and rangex<maxroomsize*2
            repeat
               divx=rnd((sx2-sx1)-2)+1
            until divx>=minroomsize and rangex-divx>=minroomsize
         else
            divx=rangex/2+(rnd(2)-1)
         endif
         if rangey>=minroomsize*2 and rangey<maxroomsize*2
            repeat
               divy=rnd((sy2-sy1)-2)+1
            until divy>=minroomsize and rangey-divy>=minroomsize
         else
            divy=rangey/2+(rnd(2)-1)
         endif

         divx=divx+sx1
         divy=divy+sy1

         for y=sy1 to sy2-1
            cellwall(divx,y,1)=1
         next y
         for x=sx1 to sx2-1
            cellwall(x,divy,2)=1
         next x

         Stackx1(stack)=sx1   : rem Section 1
         Stacky1(stack)=sy1
         Stackx2(stack)=divx
         Stacky2(stack)=divy

         stack=stack+1
         Stackx1(stack)=divx  : rem Section 2
         Stacky1(stack)=sy1
         Stackx2(stack)=sx2
         Stacky2(stack)=divy

         stack=stack+1
         Stackx1(stack)=divx  : rem Section 3
         Stacky1(stack)=divy
         Stackx2(stack)=sx2
         Stacky2(stack)=sy2

         stack=stack+1
         Stackx1(stack)=sx1  : rem Section 4
         Stacky1(stack)=divy
         Stackx2(stack)=divx
         Stacky2(stack)=sy2

      endif

   until generateend=1

   undim Stackx1(mapwidth*mapheight)
   undim Stacky1(mapwidth*mapheight)
   undim Stackx2(mapwidth*mapheight)
   undim Stacky2(mapwidth*mapheight)

endfunction Room

My current wallpaper:

"I trust you have prepared new insults for today" - Spock, Star Trek

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 5th Aug 2009 22:38

Link

Quote: "clicking on the menu was quite hard and it took several attempts to go onto the vehicle selection screen"

I have that problem too. It's basic code - the same as I've always used so I'm not sure why that is. I actually thought it was a problem with my machine as I've just fitted a new keyboard and mouse.

The slow speed is down to the number of primitives in use - there are far more than would normally be used. With more time, I could optimize it by hiding objects, but there are more important things to be done before the deadline...

I'll look into it though.

TDK

* TDK's Web Site *

Back to top

Profile PM Email Website

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 6th Aug 2009 02:50

Link

Hey tdk, is that dbp code? there are "Set object ambient" commands and stuff that isn't in dbc

New Site! Check it out \/

Back to top

Profile PM Website

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 6th Aug 2009 04:26

Link

I think theres a set object ambient command in DBC, also if there wasnt the program would error out

Back to top

Profile PM Email

t10dimensional

16

Years of Service

User Offline

Joined: 22nd Mar 2009

Location: Code Cave, USA

Posted: 6th Aug 2009 04:55

Link

My version of DB(V 1.12)does'nt have those commands so I just erased it in the code and nothing seemed to go wrong.So I'm guessing it's a command that makes objects look better or somthing.

You should use it though don't change the rules just because of me.

Back to top

Profile PM

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 6th Aug 2009 05:11

Link

I think its one that was released in the last update for special effects, dont know if its legal to use but I have no problem with it

Back to top

Profile PM Email

t10dimensional

16

Years of Service

User Offline

Joined: 22nd Mar 2009

Location: Code Cave, USA

Posted: 6th Aug 2009 06:12 Edited at: 6th Aug 2009 07:39

Link

While were are somewhat on subject,If I where to upgrade to DBpro
(haveing DB already) would I get a discount?

Well, here's my second draft.
It needs:
-Rounds
-AI for the remaining not-human,players
Butons are Downkey,S,G,K.

`                    ~~~PARACHUTE~~~
set display mode 1024,768,32
sync on:sync rate 0
hide mouse
set text font "Times New Roman",1

randomize timer()

gosub GETimages

dim playing(4)
dim line$(7)
dim out(4)
dim x(4)
dim y(4)
dim num(4)
dim speed(4)
dim drop(4)
dim pressed(4)
dim pressed2(4)
dim parachute(4)
dim health(4)
dim left(4)
dim middle(4)
dim right(4)
dim early(4)
dim place$(4)
dim done(4)
dim score(4)

midwidth=screen width()/2
midheight=screen height()/2

gosub instructions

set text size 125

x(1)=287
x(2)=437
x(3)=587
x(4)=737
for n=1 to 4
 y(n)=260
 health(n)=82
next n

left(1)=203:left(2)=30:left(3)=33:left(4)=36
middle(1)=208:middle(2)=31:middle(3)=34:middle(4)=37
right(1)=205:right(2)=32:right(3)=35:right(4)=38

ink rgb(60,60,60),rgb(128,128,128)
sleep 500
cls

for n2=1 to 3
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
   paste image 8,0,0,1
 for n=1 to players
  sprite n,x(n),y(n),n
   ink rgb(60,60,60),rgb(128,128,128)
  line x(n)-10,y(n)+22, x(n)+31,y(n)+22
   ink rgb(100,100,100),rgb(128,128,128)
  line x(n)-10,y(n)+23, x(n)+31,y(n)+23
   ink rgb(140,140,140),rgb(128,128,128)
  line x(n)-10,y(n)+24, x(n)+31,y(n)+24
 next n

for n3=1 to players
  if early(n3)=1
   ink rgb(100,100,100),rgb(128,128,128)
   box x(n3)-2,y(n3)-2,x(n3)+22,y(n3)+22
  endif
next n3

if n2=1
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
   text midwidth-(text width("READY")/2),midheight-100, "READY"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=1000 then exit
sync
ENDwhile
endif

if n2=2
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
   text midwidth-(text width("SET")/2),midheight-100, "SET"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=1000 then exit
sync
ENDwhile
endif

if n2=3
wait=rnd(2600)+400
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=wait then exit
sync
ENDwhile
   text midwidth-(text width("GO!")/2),midheight-100 , "GO!"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 and early(n)=0 then drop(n)=1:pressed(n)=1
 next n
 if time>=120 then exit
sync
ENDwhile
endif

sync:cls
next n2

oldtime=timer()
`                    ~~~MAIN LOOP~~~
DO
 time=timer()-oldtime

if time>=15
` background
if drop(1)=1 or drop(2)=1 or drop(3)=1 or drop(4)=1
 for n=1 to players
  if drop(n)=0 and by>=-768
   speed(n)=-8
  if drop(n)=0 and by<=-768
   speed(n)=0
  endif
  endif
 next n
 if By>-768
  for n=1 to players
   if drop(n)=1 then speed(n)=-1 
  next n
  By=By-8
 else
  for n=1 to players
   if drop(n)=1 and pressed2(n)=0 then speed(n)=8:pressed2(n)=1
  next n
 endif
endif
` sky
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
` sides
   paste image 8,0,0,1
` health
set text size 20
ink rgb(100,100,100),rgb(128,128,128)
 text 18,75, "PLAYER 1"
 text 18,175, "PLAYER 2"
 text 920,75, "PLAYER 3"
 text 920,175, "PLAYER 4"
ink rgb(200,200,200),rgb(128,128,128)
 text 19,77, "PLAYER 1"
 text 19,177, "PLAYER 2"
 text 919,77, "PLAYER 3"
 text 919,177, "PLAYER 4"

ink rgb(100,100,100),rgb(128,128,128)
 text 16,110, "SCORE:"+str$(score(1))
 text 16,210, "SCORE:"+str$(score(2))
 text 918,110, "SCORE:"+str$(score(3))
 text 918,210, "SCORE:"+str$(score(4))

ink rgb(255,10,10),rgb(128,128,128)
 line 18,100, 18+health(1),100
 line 18,200, 18+health(2),200
 line 919,100, 919+health(3),100
 line 919,200, 919+health(4),200
ink rgb(223,0,0),rgb(128,128,128)
 line 18,101, 18+health(1),101
 line 18,201, 18+health(2),201
 line 919,101, 919+health(3),101
 line 919,201, 919+health(4),201
ink rgb(192,0,0),rgb(128,128,128)
 line 18,102, 18+health(1),102
 line 18,202, 18+health(2),202
 line 919,102, 919+health(3),102
 line 919,202, 919+health(4),202
ink rgb(160,0,0),rgb(128,128,128)
 line 18,103, 18+health(1),103
 line 18,203, 18+health(2),203
 line 919,103, 919+health(3),103
 line 919,203, 919+health(4),203

` players
 for n=1 to players
  if keystate(middle(n))=0 then pressed(n)=0
  if keystate(middle(n))=1 and drop(n)=0 and pressed(n)=0 and early(n)=0 then drop(n)=1:pressed(n)=1
` movement
   if parachute(n)=1
    if keystate(left(n))=1 and drop(n)=1 then x(n)=x(n)-1
    if keystate(right(n))=1 and drop(n)=1 then x(n)=x(n)+1
   endif
    if keystate(middle(n))=1 and drop(n)=1 and pressed(n)=0 then parachute(n)=1
   ` speed
  if parachute(n)=1
   num(n)=num(n)+1
   if num(n)>=rnd(3)+7
    speed(n)=speed(n)-1
    num(n)=0
    if speed(n)=0 then speed(n)=1
   endif
  endif
if done(n)=1 
 speed(n)=0 
 parachute(n)=0
 ink rgb(200,200,200),rgb(128,128,128)
 text x(n)+7,y(n)-38, place$(n)
endif
 if y(n)>=730 and done(n)=0
   y(n)=735
   if speed(n)=8 then health(n)=0
   health(n)=health(n)-(12*((speed(n)-1)))
   health(n)=rnd(6)+health(n)-3
  if health(n)>0
   place=place+1
   place$(n)=str$(place)
  else
   out(n)=1
   health(n)=0
  endif
    if val(place$(n))>0
     score(n)=score(n)+(5-val(place$(n)))
    else
     place$(n)="X"
    endif
   parachute(n)=0
   done(n)=1
  endif
   y(n)=y(n)+speed(n)
   ` sprite
   if parachute(n)=1
    paste image 9+n,x(n)-12,y(n)-40,1
   endif
   sprite n,x(n),y(n),n
  if early(n)=0 and drop(1)=0 and drop(2)=0 and drop(3)=0 and drop(4)=0
    ink rgb(60,60,60),rgb(128,128,128)
   line x(n)-10,y(n)+22, x(n)+31,y(n)+22
    ink rgb(100,100,100),rgb(128,128,128)
   line x(n)-10,y(n)+23, x(n)+31,y(n)+23
    ink rgb(140,140,140),rgb(128,128,128)
   line x(n)-10,y(n)+24, x(n)+31,y(n)+24
  endif
  if early(n)=0 and drop(n)=0 
   if drop(1)=1 or drop(2)=1 or drop(3)=1 or drop(4)=1
    ink rgb(60,60,60),rgb(128,128,128)
   line x(n)-10,y(n)+12, x(n)+31,y(n)+12
    ink rgb(100,100,100),rgb(128,128,128)
   line x(n)-10,y(n)+13, x(n)+31,y(n)+13
    ink rgb(140,140,140),rgb(128,128,128)
   line x(n)-10,y(n)+14, x(n)+31,y(n)+14
   endif
  endif
  if early(n)=1
   ink rgb(100,100,100),rgb(128,128,128)
   box x(n)-2,y(n)-2,x(n)+22,y(n)+22
  endif
  next n

oldtime=timer()
  sync:cls
 endif
LOOP

END

`                    ~~~SUB FILES~~~

GETimages:
` background
for n=0 to 767
 ink rgb(0,0,(n)/6),0
 line 0,n, 639,n
next n
` make stars
for n=1 to 70
 Rx=rnd(639)
 Ry=rnd(160)
  ink rgb(255,255,255),0
  dot Rx,Ry
  ink rgb(rnd(10)+7,rnd(10)+7,rnd(10)+7),0
  dot Rx+1,Ry
  dot Rx-1,Ry
  dot Rx,Ry+1
  dot Rx,Ry-1
next n
for n=1 to 44
 Rx=rnd(639)
 Ry=rnd(135)+160
  ink rgb(150,150,150),0
  dot Rx,Ry
  ink rgb(rnd(4)+5,rnd(4)+5,rnd(4)+5),0
  dot Rx+1,Ry
  dot Rx-1,Ry
  dot Rx,Ry+1
  dot Rx,Ry-1
next n
get image 5,0,0,639,768
cls
for n=768 to 1536
 ink rgb(0,0,(n)/6),0
if n>=1517 then ink rgb(0,rnd(40)+200,0),0
 line 0,n-768, 639,n-768
next n
get image 6,0,0,639,768
 cls
` sideimage
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line 831+n,0, 831+n,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line 193-n,0, 193-n,768
next n
get image 8,0,0,1024,768
` player 1 red
ink rgb(255,0,0),0
 cls
for n=10 to 1 step -1
 circle 10,10,n
 box 4,4,16,16
next n
get image 1,0,0,22,22
` player 1 orange
  ink rgb(255,128,0),0

for n=10 to 1 step -1
   circle 10,10,n
   box 4,4,16,16
  next n
  get image 2,0,0,22,22
` player 1 green
  ink rgb(0,255,0),0

for n=10 to 1 step -1
   circle 10,10,n
   box 4,4,16,16
  next n
  get image 3,0,0,22,22
` player 1 purple
ink rgb(128,0,128),0

for n=10 to 1 step -1
 circle 10,10,n
 box 4,4,16,16
next n
get image 4,0,0,22,22
 cls

rem x-12 y-45
` parachute
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 10,20,n
    if n=8
     ink rgb(192,192,192),0
     box 4,14,16,26
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 17,15,n
    if n=8
     ink rgb(192,192,192),0
     box 11,9,23,21
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 28,15,n
    if n=8
     ink rgb(192,192,192),0
     box 22,9,34,21
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 35,20,n
    if n=8
     ink rgb(192,192,192),0
     box 29,14,41,26
    endif
 next n

line 10,29, 23,44
line 35,29, 23,44
for n=1 to 4
 get image 9+n,0,0,55,55
next n
 cls
Return

Instructions:
ink rgb(100,100,100),rgb(128,128,128)
cls
set text size 30
back:
cls
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line n-1,0, n-1,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line screen width()-n,0, screen width()-n,768
next n
ink rgb(100,100,100),rgb(128,128,128)
text midwidth-200,midheight-5, "PLAYERS?(1-4)>"
ink rgb(200,200,200),rgb(128,128,128)
text midwidth-199,midheight-3, "PLAYERS?(1-4)>"
set cursor midwidth,midheight+2
input players
if players>4 or players<1 then goto back
for n=1 to players
 playing(n)=1
next n
cls
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line n-1,0, n-1,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line screen width()-n,0, screen width()-n,768
next n
ink rgb(100,100,100),rgb(128,128,128)
text midwidth-130,midheight-60, "   CONTROLS"
 if playing(1)=1 then text midwidth-130,midheight-30, "PLAYER 1: DOWNKEY"
 if playing(2)=1 then text midwidth-130,midheight+0, "PLAYER 2: S"
 if playing(3)=1 then text midwidth-130,midheight+30, "PLAYER 3: G"
 if playing(4)=1 then text midwidth-130,midheight+60, "PLAYER 4: K"
ink rgb(200,200,200),rgb(128,128,128)
text midwidth-129,midheight-58, "   CONTROLS"
 if playing(1)=1 then text midwidth-129,midheight-28, "PLAYER 1: DOWNKEY"
 if playing(2)=1 then text midwidth-129,midheight+2, "PLAYER 2: S"
 if playing(3)=1 then text midwidth-129,midheight+32, "PLAYER 3: G"
 if playing(4)=1 then text midwidth-129,midheight+62, "PLAYER 4: K"
wait key

ink rgb(100,100,100),rgb(128,128,128)
cls
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line n-1,0, n-1,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line screen width()-n,0, screen width()-n,768
next n
ink rgb(100,100,100),rgb(128,128,128)
line$(1)=" The object of the game is to reach the ground before everyone else(AI or human)."
line$(2)="Each player has been given a button.The button,when first pressed,starts"
line$(3)="your drop.But make sure to press it only after it says GO! or you will get trapped."
line$(4)="Once you have reached a proper distance from the ground press the button "
line$(5)="again to deploy your parachute.Make sure not to deploy your parachute to"
line$(6)="late or you will suffer some damage.There will be five rounds,GOOD LUCK!"
line$(7)=""

for n=1 to 7
text 70,n*30+200, line$(n)
next n
 ink rgb(200,200,200),rgb(128,128,128)
for n=1 to 7
text 71,n*30+202, line$(n)
next n
wait key
Return

+ Code Snippet

`                    ~~~PARACHUTE~~~
set display mode 1024,768,32
sync on:sync rate 0
hide mouse
set text font "Times New Roman",1

randomize timer()

gosub GETimages

dim playing(4)
dim line$(7)
dim out(4)
dim x(4)
dim y(4)
dim num(4)
dim speed(4)
dim drop(4)
dim pressed(4)
dim pressed2(4)
dim parachute(4)
dim health(4)
dim left(4)
dim middle(4)
dim right(4)
dim early(4)
dim place$(4)
dim done(4)
dim score(4)

midwidth=screen width()/2
midheight=screen height()/2

gosub instructions

set text size 125

x(1)=287
x(2)=437
x(3)=587
x(4)=737
for n=1 to 4
 y(n)=260
 health(n)=82
next n

left(1)=203:left(2)=30:left(3)=33:left(4)=36
middle(1)=208:middle(2)=31:middle(3)=34:middle(4)=37
right(1)=205:right(2)=32:right(3)=35:right(4)=38

ink rgb(60,60,60),rgb(128,128,128)
sleep 500
cls

for n2=1 to 3
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
   paste image 8,0,0,1
 for n=1 to players
  sprite n,x(n),y(n),n
   ink rgb(60,60,60),rgb(128,128,128)
  line x(n)-10,y(n)+22, x(n)+31,y(n)+22
   ink rgb(100,100,100),rgb(128,128,128)
  line x(n)-10,y(n)+23, x(n)+31,y(n)+23
   ink rgb(140,140,140),rgb(128,128,128)
  line x(n)-10,y(n)+24, x(n)+31,y(n)+24
 next n

for n3=1 to players
  if early(n3)=1
   ink rgb(100,100,100),rgb(128,128,128)
   box x(n3)-2,y(n3)-2,x(n3)+22,y(n3)+22
  endif
next n3

if n2=1
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
   text midwidth-(text width("READY")/2),midheight-100, "READY"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=1000 then exit
sync
ENDwhile
endif

if n2=2
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
   text midwidth-(text width("SET")/2),midheight-100, "SET"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=1000 then exit
sync
ENDwhile
endif

if n2=3
wait=rnd(2600)+400
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 then early(n)=1
 next n
 if time>=wait then exit
sync
ENDwhile
   text midwidth-(text width("GO!")/2),midheight-100 , "GO!"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 and early(n)=0 then drop(n)=1:pressed(n)=1
 next n
 if time>=120 then exit
sync
ENDwhile
endif

sync:cls
next n2

oldtime=timer()
`                    ~~~MAIN LOOP~~~
DO
 time=timer()-oldtime

if time>=15
` background
if drop(1)=1 or drop(2)=1 or drop(3)=1 or drop(4)=1
 for n=1 to players
  if drop(n)=0 and by>=-768
   speed(n)=-8
  if drop(n)=0 and by<=-768
   speed(n)=0
  endif
  endif
 next n
 if By>-768
  for n=1 to players
   if drop(n)=1 then speed(n)=-1 
  next n
  By=By-8
 else
  for n=1 to players
   if drop(n)=1 and pressed2(n)=0 then speed(n)=8:pressed2(n)=1
  next n
 endif
endif
` sky
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
` sides
   paste image 8,0,0,1
` health
set text size 20
ink rgb(100,100,100),rgb(128,128,128)
 text 18,75, "PLAYER 1"
 text 18,175, "PLAYER 2"
 text 920,75, "PLAYER 3"
 text 920,175, "PLAYER 4"
ink rgb(200,200,200),rgb(128,128,128)
 text 19,77, "PLAYER 1"
 text 19,177, "PLAYER 2"
 text 919,77, "PLAYER 3"
 text 919,177, "PLAYER 4"

ink rgb(100,100,100),rgb(128,128,128)
 text 16,110, "SCORE:"+str$(score(1))
 text 16,210, "SCORE:"+str$(score(2))
 text 918,110, "SCORE:"+str$(score(3))
 text 918,210, "SCORE:"+str$(score(4))


ink rgb(255,10,10),rgb(128,128,128)
 line 18,100, 18+health(1),100
 line 18,200, 18+health(2),200
 line 919,100, 919+health(3),100
 line 919,200, 919+health(4),200
ink rgb(223,0,0),rgb(128,128,128)
 line 18,101, 18+health(1),101
 line 18,201, 18+health(2),201
 line 919,101, 919+health(3),101
 line 919,201, 919+health(4),201
ink rgb(192,0,0),rgb(128,128,128)
 line 18,102, 18+health(1),102
 line 18,202, 18+health(2),202
 line 919,102, 919+health(3),102
 line 919,202, 919+health(4),202
ink rgb(160,0,0),rgb(128,128,128)
 line 18,103, 18+health(1),103
 line 18,203, 18+health(2),203
 line 919,103, 919+health(3),103
 line 919,203, 919+health(4),203

` players
 for n=1 to players
  if keystate(middle(n))=0 then pressed(n)=0
  if keystate(middle(n))=1 and drop(n)=0 and pressed(n)=0 and early(n)=0 then drop(n)=1:pressed(n)=1
` movement
   if parachute(n)=1
    if keystate(left(n))=1 and drop(n)=1 then x(n)=x(n)-1
    if keystate(right(n))=1 and drop(n)=1 then x(n)=x(n)+1
   endif
    if keystate(middle(n))=1 and drop(n)=1 and pressed(n)=0 then parachute(n)=1
   ` speed
  if parachute(n)=1
   num(n)=num(n)+1
   if num(n)>=rnd(3)+7
    speed(n)=speed(n)-1
    num(n)=0
    if speed(n)=0 then speed(n)=1
   endif
  endif
if done(n)=1 
 speed(n)=0 
 parachute(n)=0
 ink rgb(200,200,200),rgb(128,128,128)
 text x(n)+7,y(n)-38, place$(n)
endif
 if y(n)>=730 and done(n)=0
   y(n)=735
   if speed(n)=8 then health(n)=0
   health(n)=health(n)-(12*((speed(n)-1)))
   health(n)=rnd(6)+health(n)-3
  if health(n)>0
   place=place+1
   place$(n)=str$(place)
  else
   out(n)=1
   health(n)=0
  endif
    if val(place$(n))>0
     score(n)=score(n)+(5-val(place$(n)))
    else
     place$(n)="X"
    endif
   parachute(n)=0
   done(n)=1
  endif
   y(n)=y(n)+speed(n)
   ` sprite
   if parachute(n)=1
    paste image 9+n,x(n)-12,y(n)-40,1
   endif
   sprite n,x(n),y(n),n
  if early(n)=0 and drop(1)=0 and drop(2)=0 and drop(3)=0 and drop(4)=0
    ink rgb(60,60,60),rgb(128,128,128)
   line x(n)-10,y(n)+22, x(n)+31,y(n)+22
    ink rgb(100,100,100),rgb(128,128,128)
   line x(n)-10,y(n)+23, x(n)+31,y(n)+23
    ink rgb(140,140,140),rgb(128,128,128)
   line x(n)-10,y(n)+24, x(n)+31,y(n)+24
  endif
  if early(n)=0 and drop(n)=0 
   if drop(1)=1 or drop(2)=1 or drop(3)=1 or drop(4)=1
    ink rgb(60,60,60),rgb(128,128,128)
   line x(n)-10,y(n)+12, x(n)+31,y(n)+12
    ink rgb(100,100,100),rgb(128,128,128)
   line x(n)-10,y(n)+13, x(n)+31,y(n)+13
    ink rgb(140,140,140),rgb(128,128,128)
   line x(n)-10,y(n)+14, x(n)+31,y(n)+14
   endif
  endif
  if early(n)=1
   ink rgb(100,100,100),rgb(128,128,128)
   box x(n)-2,y(n)-2,x(n)+22,y(n)+22
  endif
  next n
  

  oldtime=timer()
  sync:cls
 endif
LOOP

END

`                    ~~~SUB FILES~~~

GETimages:
` background
for n=0 to 767
 ink rgb(0,0,(n)/6),0
 line 0,n, 639,n
next n
` make stars
for n=1 to 70
 Rx=rnd(639)
 Ry=rnd(160)
  ink rgb(255,255,255),0
  dot Rx,Ry
  ink rgb(rnd(10)+7,rnd(10)+7,rnd(10)+7),0
  dot Rx+1,Ry
  dot Rx-1,Ry
  dot Rx,Ry+1
  dot Rx,Ry-1
next n
for n=1 to 44
 Rx=rnd(639)
 Ry=rnd(135)+160
  ink rgb(150,150,150),0
  dot Rx,Ry
  ink rgb(rnd(4)+5,rnd(4)+5,rnd(4)+5),0
  dot Rx+1,Ry
  dot Rx-1,Ry
  dot Rx,Ry+1
  dot Rx,Ry-1
next n
get image 5,0,0,639,768
cls
for n=768 to 1536
 ink rgb(0,0,(n)/6),0
if n>=1517 then ink rgb(0,rnd(40)+200,0),0
 line 0,n-768, 639,n-768
next n
get image 6,0,0,639,768
 cls
` sideimage
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line 831+n,0, 831+n,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line 193-n,0, 193-n,768
next n
get image 8,0,0,1024,768
` player 1 red
ink rgb(255,0,0),0
 cls
for n=10 to 1 step -1
 circle 10,10,n
 box 4,4,16,16
next n
get image 1,0,0,22,22
` player 1 orange
  ink rgb(255,128,0),0

  for n=10 to 1 step -1
   circle 10,10,n
   box 4,4,16,16
  next n
  get image 2,0,0,22,22
` player 1 green
  ink rgb(0,255,0),0

  for n=10 to 1 step -1
   circle 10,10,n
   box 4,4,16,16
  next n
  get image 3,0,0,22,22
` player 1 purple
ink rgb(128,0,128),0

for n=10 to 1 step -1
 circle 10,10,n
 box 4,4,16,16
next n
get image 4,0,0,22,22
 cls

rem x-12 y-45
` parachute
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 10,20,n
    if n=8
     ink rgb(192,192,192),0
     box 4,14,16,26
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 17,15,n
    if n=8
     ink rgb(192,192,192),0
     box 11,9,23,21
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 28,15,n
    if n=8
     ink rgb(192,192,192),0
     box 22,9,34,21
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 35,20,n
    if n=8
     ink rgb(192,192,192),0
     box 29,14,41,26
    endif
 next n

line 10,29, 23,44
line 35,29, 23,44
for n=1 to 4
 get image 9+n,0,0,55,55
next n
 cls
Return

Instructions:
ink rgb(100,100,100),rgb(128,128,128)
cls
set text size 30
back:
cls
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line n-1,0, n-1,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line screen width()-n,0, screen width()-n,768
next n
ink rgb(100,100,100),rgb(128,128,128)
text midwidth-200,midheight-5, "PLAYERS?(1-4)>"
ink rgb(200,200,200),rgb(128,128,128)
text midwidth-199,midheight-3, "PLAYERS?(1-4)>"
set cursor midwidth,midheight+2
input players
if players>4 or players<1 then goto back
for n=1 to players
 playing(n)=1
next n
cls
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line n-1,0, n-1,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line screen width()-n,0, screen width()-n,768
next n
ink rgb(100,100,100),rgb(128,128,128)
text midwidth-130,midheight-60, "   CONTROLS"
 if playing(1)=1 then text midwidth-130,midheight-30, "PLAYER 1: DOWNKEY"
 if playing(2)=1 then text midwidth-130,midheight+0, "PLAYER 2: S"
 if playing(3)=1 then text midwidth-130,midheight+30, "PLAYER 3: G"
 if playing(4)=1 then text midwidth-130,midheight+60, "PLAYER 4: K"
ink rgb(200,200,200),rgb(128,128,128)
text midwidth-129,midheight-58, "   CONTROLS"
 if playing(1)=1 then text midwidth-129,midheight-28, "PLAYER 1: DOWNKEY"
 if playing(2)=1 then text midwidth-129,midheight+2, "PLAYER 2: S"
 if playing(3)=1 then text midwidth-129,midheight+32, "PLAYER 3: G"
 if playing(4)=1 then text midwidth-129,midheight+62, "PLAYER 4: K"
wait key

ink rgb(100,100,100),rgb(128,128,128)
cls
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line n-1,0, n-1,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line screen width()-n,0, screen width()-n,768
next n
ink rgb(100,100,100),rgb(128,128,128)
line$(1)=" The object of the game is to reach the ground before everyone else(AI or human)."
line$(2)="Each player has been given a button.The button,when first pressed,starts"
line$(3)="your drop.But make sure to press it only after it says GO! or you will get trapped."
line$(4)="Once you have reached a proper distance from the ground press the button "
line$(5)="again to deploy your parachute.Make sure not to deploy your parachute to"
line$(6)="late or you will suffer some damage.There will be five rounds,GOOD LUCK!"
line$(7)=""


for n=1 to 7
text 70,n*30+200, line$(n)
next n
 ink rgb(200,200,200),rgb(128,128,128)
for n=1 to 7
text 71,n*30+202, line$(n)
next n
wait key
Return

Please comment.

Back to top

Profile PM

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 6th Aug 2009 07:15 Edited at: 6th Aug 2009 07:16

Link

Quote: "While were are somewhat on subject,If I where to upgrade to DBpro
(haveing DB already) would I get a discount?"

HAHAHAHAHAHAHAH!!!!!!!!!
MAN UR HILARIOUS!!!!!

o wait ur serious.....let me spell it out for you, N-O

this is part of why they have multiple versions of similar code (DBL, DBC, DBP)

to have lower priced but more limited versions makes more people able to try the software for less money, then when they upgrade the cost of the new plus the cost of the old means that TGC gets more money

Back to top

Profile PM Email

t10dimensional

16

Years of Service

User Offline

Joined: 22nd Mar 2009

Location: Code Cave, USA

Posted: 6th Aug 2009 07:37 Edited at: 6th Aug 2009 07:42

Link

I was'nt being completly serious,I was expecting N-O.I was just a little curious.

EDIT:

Back to top

Profile PM

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 6th Aug 2009 23:37

Link

Help!!!!!!!!!

I've searched though my archives for an old routine which tilts an object on a matrix according to the slope it's on. I found one, but it doesn't work.

I don't have time to re-write it from scratch by the tme the challenge ends so I was wondering if anyone has such a routine/function.

It just needs to calculate the X and Z angles for any object regardless of the object's Y angle.

Can anyone help?

TDK

* TDK's Web Site *

Back to top

Profile PM Email Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 7th Aug 2009 00:38

Link

@TDK,

Here's one, the function tilt() is what does the work. In the example, a shadow tilts according to the sphere's position on the matrix. For a vehicle, this would work best if the vehicle is glued to a pivot object. You position the pivot object, never tiltiing it - only rotating the y angle of the pivot object for direciton with the vehicle glued to it, then you tilt the vehicle never changing the vehicles y rotation, otherwise the angles of the vehicle get messed up.

For the example, move the sphere with up and down arrows, and lift the sphere with the left mouse button. Again, you only need the tilt() function for your purposes (with a pivot object).

rem shadow on matrix
rem by latch
rem 03/13/2009

set display mode 800,600,32
sync on
sync rate 60
autocam off
hide mouse

cls rgb(255,255,255)

ink rgb(100,100,100),0
for r=0 to 32
   circle 33,33,r
   circle 33,32,r
next r
get image 1,0,0,66,66
sync

cls rgb(0,32,0)
for n=1 to 5000
   x=rnd(128)
   y=rnd(128)
   c=rnd(98)
   ink rgb(0,c,0),0
   dot x,y
next n
get image 2,0,0,128,128
sync

make object plain 2,25,25
xrotate object 2,90
rem make this object position permanent
make mesh from object 2,2
delete object 2
make object 2,2,1
delete mesh 2
set object ambient 2,rgb(255,255,255)
ghost object on 2,1
`scale object 2,90,100,120
set object 2,1,1,0

make object sphere 1,25
position object 1,0,13,0
position camera 0,30,-100
set object ambient 1,rgb(64,64,64)
set object specular 1,rgb(255,255,255),20

make matrix 1,10000,10000,25,25
randomize matrix 1,200
prepare matrix texture 1,2,1,1

rem set the direction of the main lighting for shadow consistancy
set directional light 0,0,-.5,1

do
   gosub _move_sphere
   sync
loop

_move_sphere:
   yang#=wrapvalue(object angle y(1)+mousemovex())
   yrotate object 1,yang#
   move object 1,(upkey()-downkey())*5
   objx#=object position x(1)
   objz#=object position z(1)
   ht#=get ground height(1,objx#,objz#)
   objy#=ht#+(object size y(1)/2.0)+2

rem position object up with leftclick
   if mouseclick()=1
      newy#=objy#+50
      scale object 2,50,50,50
   else
      newy#=objy#
      scale object 2,100,100,100
   endif
   position object 1,objx#,newy#,objz#

rem position shadow
   position object 2,objx#,ht#+2,objz#+7

tilt(1,2)

rem set camera to follow
   set camera to follow objx#,objy#,objz#,yang#,200,100+objy#,10,1
return

function tilt(mat,obj)
   rem matrix tilt object
   rem by latch
   rem 03/13/2009
   sx#=object size x(obj)
   sz#=object size z(obj)
   rem left side
   lx#=newxvalue(object position x(obj),wrapvalue(object angle y(obj)-90),sx#/2.0)
   lz#=newzvalue(object position z(obj),wrapvalue(object angle y(obj)-90),sx#/2.0)
   ly#=get ground height(mat,lx#,lz#)
   rem right side
   rx#=newxvalue(object position x(obj),wrapvalue(object angle y(obj)+90),sx#/2.0)
   rz#=newzvalue(object position z(obj),wrapvalue(object angle y(obj)+90),sx#/2.0)
   ry#=get ground height(mat,rx#,rz#)
   rem front
   fx#=newxvalue(object position x(obj),object angle y(obj),sz#/2.0)
   fz#=newzvalue(object position z(obj),object angle y(obj),sz#/2.0)
   fy#=get ground height(mat,fx#,fz#)
   rem back
   bx#=newxvalue(object position x(obj),wrapvalue(object angle y(obj)+180),sz#/2.0)
   bz#=newzvalue(object position z(obj),wrapvalue(object angle y(obj)+180),sz#/2.0)
   by#=get ground height(mat,bx#,bz#)

rem left right tilt
   zang#=wrapvalue(atanfull(ry#-ly#,sx#))
   text 0,0,str$(zang#)
   zrotate object obj,zang#

rem fron back tilt
   xang#=wrapvalue(atanfull(by#-fy#,sz#))
   text 0,20,str$(xang#)
   xrotate object obj,xang#

`rotate object obj,xang#,object angle y(obj),zang#
endfunction

+ Code Snippet

rem shadow on matrix
rem by latch
rem 03/13/2009

set display mode 800,600,32
sync on
sync rate 60
autocam off
hide mouse

cls rgb(255,255,255)

ink rgb(100,100,100),0
for r=0 to 32
   circle 33,33,r
   circle 33,32,r
next r
get image 1,0,0,66,66
sync

cls rgb(0,32,0)
for n=1 to 5000
   x=rnd(128)
   y=rnd(128)
   c=rnd(98)
   ink rgb(0,c,0),0
   dot x,y
next n
get image 2,0,0,128,128
sync

make object plain 2,25,25
xrotate object 2,90
rem make this object position permanent
make mesh from object 2,2
delete object 2
make object 2,2,1
delete mesh 2
set object ambient 2,rgb(255,255,255)
ghost object on 2,1
`scale object 2,90,100,120
set object 2,1,1,0

make object sphere 1,25
position object 1,0,13,0
position camera 0,30,-100
set object ambient 1,rgb(64,64,64)
set object specular 1,rgb(255,255,255),20

make matrix 1,10000,10000,25,25
randomize matrix 1,200
prepare matrix texture 1,2,1,1

rem set the direction of the main lighting for shadow consistancy
set directional light 0,0,-.5,1

do
   gosub _move_sphere
   sync
loop

_move_sphere:
   yang#=wrapvalue(object angle y(1)+mousemovex())
   yrotate object 1,yang#
   move object 1,(upkey()-downkey())*5
   objx#=object position x(1)
   objz#=object position z(1)
   ht#=get ground height(1,objx#,objz#)
   objy#=ht#+(object size y(1)/2.0)+2

   rem position object up with leftclick
   if mouseclick()=1
      newy#=objy#+50
      scale object 2,50,50,50
   else
      newy#=objy#
      scale object 2,100,100,100
   endif
   position object 1,objx#,newy#,objz#


   rem position shadow
   position object 2,objx#,ht#+2,objz#+7

   tilt(1,2)

   rem set camera to follow
   set camera to follow objx#,objy#,objz#,yang#,200,100+objy#,10,1
return

function tilt(mat,obj)
   rem matrix tilt object
   rem by latch
   rem 03/13/2009
   sx#=object size x(obj)
   sz#=object size z(obj)
   rem left side
   lx#=newxvalue(object position x(obj),wrapvalue(object angle y(obj)-90),sx#/2.0)
   lz#=newzvalue(object position z(obj),wrapvalue(object angle y(obj)-90),sx#/2.0)
   ly#=get ground height(mat,lx#,lz#)
   rem right side
   rx#=newxvalue(object position x(obj),wrapvalue(object angle y(obj)+90),sx#/2.0)
   rz#=newzvalue(object position z(obj),wrapvalue(object angle y(obj)+90),sx#/2.0)
   ry#=get ground height(mat,rx#,rz#)
   rem front
   fx#=newxvalue(object position x(obj),object angle y(obj),sz#/2.0)
   fz#=newzvalue(object position z(obj),object angle y(obj),sz#/2.0)
   fy#=get ground height(mat,fx#,fz#)
   rem back
   bx#=newxvalue(object position x(obj),wrapvalue(object angle y(obj)+180),sz#/2.0)
   bz#=newzvalue(object position z(obj),wrapvalue(object angle y(obj)+180),sz#/2.0)
   by#=get ground height(mat,bx#,bz#)

   rem left right tilt
   zang#=wrapvalue(atanfull(ry#-ly#,sx#))
   text 0,0,str$(zang#)
   zrotate object obj,zang#

   rem fron back tilt
   xang#=wrapvalue(atanfull(by#-fy#,sz#))
   text 0,20,str$(xang#)
   xrotate object obj,xang#

   `rotate object obj,xang#,object angle y(obj),zang#
endfunction

Enjoy your day.

Back to top

Profile PM

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 7th Aug 2009 00:41

Link

Hope this helps! Used this for a challenge entry (full entry on page 47). Anyway, it requires 4 objects. 1 is the actual car. The other 3 are 3 wheels. I think it is geared for a front left, back left, back right setup, but it might work for any set of 3.

Before calling the function, position your "wheels" at their correct location (the corners) in the x and z location and the Ground Height for the y value. Then call PlaceObj(car,BackLeft,BackRight,FrontRight,FrontLeft).

It may need some work for turning, though I haven't even looked at the code in some time.

+ Code Snippet

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

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 7th Aug 2009 01:21

Link

TDK, are you going to complete your challenge? It is 21 minutes over the deadline... I'll give everyone 1 more hour.

TheComet

Make the path of your enemies easier with Waypoint Pro!

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 7th Aug 2009 01:50

Link

21 Minutes!?!?

Lol - I thought I had until tomorrow night.

In that case, no - nowhere near. If I had until weekend I might have a chance, but not now.

Latch:

That looks quite similar to the non-working one I have already which works OK until the object turns so far then the Z and X axis switch.

Yours may not do that, so I will check it out.

BN2:

Quote: "It may need some work for turning"

Just a bit!!

Quote: "The other 3 are 3 wheels. I think it is geared for a front left, back left, back right setup, but it might work for any set of 3."

I've been experimenting myself for the last hour or two and I've made some progress. First of all, it looks like the best way is to have four test points (wheels if you like), but positioned not at the corners but in the centre of each side.

I've now figured out how to place these points regardless of the object's Y angle. I have four tiny cubes located at each of the four test points and they bob up and down correctly as you go over the matrix.

All I have to do now is calculate the angles between the front/rear and left/right test points and use them for the main object's axis. Yeah, I know it sounds easy when you say it like that...

But, hopefully (with the help of the above posted snippets if I get stuck), there's a good chance that in an hour or two, even though I won't have a challenge entry, I will have a generic and working object tilt function which works with any object on any matrix regardless of it's Y angle and method of being moved.

So it's not all been a waste of time.

And, I'll post what I've done of my entry so far too...

TDK

* TDK's Web Site *

Back to top

Profile PM Email Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 7th Aug 2009 01:53 Edited at: 7th Aug 2009 01:57

Link

what's this 21 minutes? I thought I had 1 more night two! Isn't it Saturday morning - Friday Night?

I need that extra day!

Quote: "Latch:

That looks quite similar to the non-working one I have already which works OK until the object turns so far then the Z and X axis switch"

That's why you have to add a pivot object and only tilt the vehicle. The pivot object gets positioned and y rotated. The vehicle is glued to it and just gets tilted. The y rotation of the pivot object changes the direction of the vehicle without changing the y orientation of the vehicle therefore the x and z axis stay correct

Enjoy your day.

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 7th Aug 2009 02:17

Link

Quote: "what's this 21 minutes? I thought I had 1 more night two! Isn't it Saturday morning - Friday Night?

I need that extra day!"

Sorry for the misunderstanding... My very top post on this page says it is friday, 7th AUG 24:00 CET. But since a lot of you thought it was Saturday, and 2 are in need of the extra day, I may as well extend it to Saturday.

Final deadline tomorrow.

TheComet

Make the path of your enemies easier with Waypoint Pro!

Back to top

Profile PM Email Website

t10dimensional

16

Years of Service

User Offline

Joined: 22nd Mar 2009

Location: Code Cave, USA

Posted: 7th Aug 2009 02:24 Edited at: 7th Aug 2009 23:16

Link

ENTRY

`                    ~~~PARACHUTE~~~
set display mode 1024,768,32
sync on:sync rate 0
hide mouse
set text font "Times New Roman",1

randomize timer()

gosub GETimages

dim AIparachutetime(4)
dim AIparachutestart(4)
dim AIstarttime(4)
dim playing(4)
dim line$(7)
dim out(4)
dim x(4)
dim y(4)
dim num(4)
dim speed(4)
dim drop(4)
dim pressed(4)
dim pressed2(4)
dim pressed3(4)
dim pressed4(4)
dim parachute(4)
dim health(4)
dim middle(4)
dim early(4)
dim place$(4)
dim done(4)
dim score(4)

midwidth=screen width()/2
midheight=screen height()/2

gosub instructions

x(1)=287
x(2)=437
x(3)=587
x(4)=737
round=1
for n=1 to 4
 y(n)=260
 health(n)=82
next n

middle(1)=208:middle(2)=31:middle(3)=34:middle(4)=37

Restart:

if round>=6
if score(1)>score(2) and score(1)>score(3) and score(1)>score(4) then winner=1
if score(2)>score(1) and score(2)>score(3) and score(2)>score(4) then winner=2
if score(3)>score(1) and score(3)>score(2) and score(3)>score(4) then winner=3
if score(4)>score(2) and score(4)>score(3) and score(4)>score(1) then winner=4
    if winner>0
     gosub winner
    endif
winner=0
endif
ink rgb(60,60,60),rgb(128,128,128)
sleep 500
cls

for n2=1 to 4
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
   paste image 8,0,0,1
 for n=1 to 4
if out(n)=1 then delete sprite n
if out(n)=0
  sprite n,x(n),y(n),n
   ink rgb(60,60,60),rgb(128,128,128)
  line x(n)-10,y(n)+22, x(n)+31,y(n)+22
   ink rgb(100,100,100),rgb(128,128,128)
  line x(n)-10,y(n)+23, x(n)+31,y(n)+23
   ink rgb(140,140,140),rgb(128,128,128)
  line x(n)-10,y(n)+24, x(n)+31,y(n)+24
endif
 next n

set text size 20
ink rgb(100,100,100),rgb(128,128,128)
 text 18,75, "PLAYER 1"
 text 18,175, "PLAYER 2"
 text 920,75, "PLAYER 3"
 text 920,175, "PLAYER 4"
ink rgb(200,200,200),rgb(128,128,128)
 text 19,77, "PLAYER 1"
 text 19,177, "PLAYER 2"
 text 919,77, "PLAYER 3"
 text 919,177, "PLAYER 4"

ink rgb(100,100,100),rgb(128,128,128)
 text 16,110, "SCORE:"+str$(score(1))
 text 16,210, "SCORE:"+str$(score(2))
 text 918,110, "SCORE:"+str$(score(3))
 text 918,210, "SCORE:"+str$(score(4))

ink rgb(255,10,10),rgb(128,128,128)
 line 18,100, 18+health(1),100
 line 18,200, 18+health(2),200
 line 919,100, 919+health(3),100
 line 919,200, 919+health(4),200
ink rgb(223,0,0),rgb(128,128,128)
 line 18,101, 18+health(1),101
 line 18,201, 18+health(2),201
 line 919,101, 919+health(3),101
 line 919,201, 919+health(4),201
ink rgb(192,0,0),rgb(128,128,128)
 line 18,102, 18+health(1),102
 line 18,202, 18+health(2),202
 line 919,102, 919+health(3),102
 line 919,202, 919+health(4),202
ink rgb(160,0,0),rgb(128,128,128)
 line 18,103, 18+health(1),103
 line 18,203, 18+health(2),203
 line 919,103, 919+health(3),103
 line 919,203, 919+health(4),203

set text size 125

for n3=1 to 4
  if early(n3)=1
   box x(n3)-2,y(n3)-2,x(n3)+22,y(n3)+22
  endif
next n3

if n2=1
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
    ink rgb(100,100,100),rgb(128,128,128)
   text midwidth-(text width("ROUND 2")/2),midheight-100, "ROUND "+str$(round)
    ink rgb(175,175,175),rgb(128,128,128)
   text midwidth-(text width("ROUND 2")/2)+1,midheight-98, "ROUND "+str$(round)
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=2200 then exit
sync
ENDwhile
endif

if n2=2
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
    ink rgb(100,100,100),rgb(128,128,128)
   text midwidth-(text width("READY")/2),midheight-100, "READY"
    ink rgb(175,175,175),rgb(128,128,128)
   text midwidth-(text width("READY")/2)+1,midheight-98, "READY"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=1000 then exit
sync
ENDwhile
endif

if n2=3
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
    ink rgb(100,100,100),rgb(128,128,128)
   text midwidth-(text width("SET")/2),midheight-100, "SET"
    ink rgb(175,175,175),rgb(128,128,128)
   text midwidth-(text width("SET")/2)+1,midheight-98, "SET"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=1000 then exit
sync
ENDwhile
endif

if n2=4
wait=rnd(2600)+400
if players <4
 for nn=players+1 to 4
  AIstarttime(nn)=wait+rnd(695)-50
 next nn
endif
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
if players <4
  for nn=players+1 to 4
   if time>=AIstarttime(nn) and out(nn)=0 then early(nn)=1
  next nn
endif
 for n=1 to players
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=wait then exit
sync
ENDwhile
    ink rgb(100,100,100),rgb(128,128,128)
   text midwidth-(text width("GO!")/2),midheight-100, "GO!"
    ink rgb(175,175,175),rgb(128,128,128)
   text midwidth-(text width("GO!")/2)+1,midheight-98, "GO!"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
if players <4
  for nn=players+1 to 4
   if time+wait>=AIstarttime(nn) and out(n)=0 and early(nn)=0 then drop(nn)=1
  next nn
endif
 for n=1 to players
  if keystate(middle(n))=1 and out(n)=0 and early(n)=0 then drop(n)=1:pressed(n)=1
 next n
 if time>=120 then exit
sync
ENDwhile
endif

sync:cls
next n2
AIoldtime=timer()
oldtime=timer()
`                    ~~~MAIN LOOP~~~
DO
 time=timer()-oldtime
 AItime=timer()-AIoldtime
if players <4
  for nn=players+1 to 4
   if AItime+wait+110>=AIstarttime(nn) and early(nn)=0 and out(nn)=0 then drop(nn)=1
  next nn
endif
if time>=15
` background
if drop(1)=1 or drop(2)=1 or drop(3)=1 or drop(4)=1
 for n=1 to 4
  if out(n)=0
  if drop(n)=0 and by>=-768
   speed(n)=-8
  if drop(n)=0 and by<=-768
   speed(n)=0
  endif
  endif
  endif
 next n
 if By>-768
  for n=1 to 4
   if drop(n)=1 then speed(n)=-1 
  next n
  By=By-8
 else
  for n=1 to 4
   if drop(n)=1 and pressed2(n)=0 then speed(n)=8:pressed2(n)=1
  next n
 endif
endif
` sky
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
` sides
   paste image 8,0,0,1
` health
set text size 20
ink rgb(100,100,100),rgb(128,128,128)
 text 18,75, "PLAYER 1"
 text 18,175, "PLAYER 2"
 text 920,75, "PLAYER 3"
 text 920,175, "PLAYER 4"
ink rgb(200,200,200),rgb(128,128,128)
 text 19,77, "PLAYER 1"
 text 19,177, "PLAYER 2"
 text 919,77, "PLAYER 3"
 text 919,177, "PLAYER 4"

ink rgb(100,100,100),rgb(128,128,128)
 text 16,110, "SCORE:"+str$(score(1))
 text 16,210, "SCORE:"+str$(score(2))
 text 918,110, "SCORE:"+str$(score(3))
 text 918,210, "SCORE:"+str$(score(4))

ink rgb(255,10,10),rgb(128,128,128)
 line 18,100, 18+health(1),100
 line 18,200, 18+health(2),200
 line 919,100, 919+health(3),100
 line 919,200, 919+health(4),200
ink rgb(223,0,0),rgb(128,128,128)
 line 18,101, 18+health(1),101
 line 18,201, 18+health(2),201
 line 919,101, 919+health(3),101
 line 919,201, 919+health(4),201
ink rgb(192,0,0),rgb(128,128,128)
 line 18,102, 18+health(1),102
 line 18,202, 18+health(2),202
 line 919,102, 919+health(3),102
 line 919,202, 919+health(4),202
ink rgb(160,0,0),rgb(128,128,128)
 line 18,103, 18+health(1),103
 line 18,203, 18+health(2),203
 line 919,103, 919+health(3),103
 line 919,203, 919+health(4),203
if players <4
  for nn=players+1 to 4
   if out(nn)=0
   if speed(nn)=8 and pressed3(nn)=0 then AIparachutetime(nn)=timer():AIparachutestart(nn)=950+rnd(500)-250:pressed3(nn)=1
   if timer()-AIparachutetime(nn)>=AIparachutestart(nn) and pressed3(nn)=1 and pressed4(nn)=0 then parachute(nn)=1:pressed4(nn)=1
   endif
  next nn
endif
` players
 for n=1 to 4
if out(n)=0
  if keystate(middle(n))=0 then pressed(n)=0
if playing(n)=1 and keystate(middle(n))=1 and drop(n)=0 and pressed(n)=0 and early(n)=0 then drop(n)=1:pressed(n)=1
if playing(n)=1 and keystate(middle(n))=1 and drop(n)=1 and pressed(n)=0 then parachute(n)=1
   ` speed
  if parachute(n)=1
   num(n)=num(n)+1
   if num(n)>=rnd(2)+7
    speed(n)=speed(n)-1
    num(n)=0
    if speed(n)=0 then speed(n)=1
   endif
  endif
if done(n)=1 
 speed(n)=0 
 parachute(n)=0
 ink rgb(200,200,200),rgb(128,128,128)
 text x(n)+7,y(n)-38, place$(n)
endif
 if y(n)>=730 and done(n)=0
   y(n)=735
   if speed(n)=8 then health(n)=0
   health(n)=health(n)-(12*((speed(n)-1)))
  if health(n)>0
   place=place+1
   place$(n)=str$(place)
  else
   out(n)=1
   health(n)=0
  endif
    if val(place$(n))>0
     score(n)=score(n)+(5-val(place$(n)))
    else
     place$(n)="X"
    endif
   parachute(n)=0
   done(n)=1
  endif
   y(n)=y(n)+speed(n)
   ` sprite
   if parachute(n)=1
    paste image 9+n,x(n)-12,y(n)-40,1
   endif
   sprite n,x(n),y(n),n
  if early(n)=0 and drop(1)=0 and drop(2)=0 and drop(3)=0 and drop(4)=0
    ink rgb(60,60,60),rgb(128,128,128)
   line x(n)-10,y(n)+22, x(n)+31,y(n)+22
    ink rgb(100,100,100),rgb(128,128,128)
   line x(n)-10,y(n)+23, x(n)+31,y(n)+23
    ink rgb(140,140,140),rgb(128,128,128)
   line x(n)-10,y(n)+24, x(n)+31,y(n)+24
  endif
  if early(n)=0 and drop(n)=0 
   if drop(1)=1 or drop(2)=1 or drop(3)=1 or drop(4)=1
    ink rgb(60,60,60),rgb(128,128,128)
   line x(n)-10,y(n)+12, x(n)+31,y(n)+12
    ink rgb(100,100,100),rgb(128,128,128)
   line x(n)-10,y(n)+13, x(n)+31,y(n)+13
    ink rgb(140,140,140),rgb(128,128,128)
   line x(n)-10,y(n)+14, x(n)+31,y(n)+14
   endif
  endif
  if early(n)=1
   ink rgb(100,100,100),rgb(128,128,128)
   box x(n)-2,y(n)-2,x(n)+22,y(n)+22
  endif
  endif
  if out(n)=1 then score(n)=0
  next n
 
  if done(1)=1 or early(1)=1 or out(1)=1
   if done(2)=1 or early(2)=1  or out(2)=1
    if done(3)=1 or early(3)=1  or out(3)=1
     if done(4)=1 or early(4)=1 or out(4)=1
     num2=num2+1
     if num2=2
     sleep 3000
      gosub resetvaribles
      goto restart
     endif
     endif
    endif
   endif
  endif
  oldtime=timer()
  sync:cls
 endif
LOOP

END

`                    ~~~SUB FILES~~~

GETimages:
` background
for n=0 to 767
 ink rgb(0,0,(n)/6),0
 line 0,n, 639,n
next n
` make stars
for n=1 to 70
 Rx=rnd(639)
 Ry=rnd(160)
  ink rgb(255,255,255),0
  dot Rx,Ry
  ink rgb(rnd(10)+7,rnd(10)+7,rnd(10)+7),0
  dot Rx+1,Ry
  dot Rx-1,Ry
  dot Rx,Ry+1
  dot Rx,Ry-1
next n
for n=1 to 44
 Rx=rnd(639)
 Ry=rnd(135)+160
  ink rgb(150,150,150),0
  dot Rx,Ry
  ink rgb(rnd(4)+5,rnd(4)+5,rnd(4)+5),0
  dot Rx+1,Ry
  dot Rx-1,Ry
  dot Rx,Ry+1
  dot Rx,Ry-1
next n
get image 5,0,0,639,768
cls
for n=768 to 1536
 ink rgb(0,0,(n)/6),0
if n>=1517 then ink rgb(0,rnd(40)+200,0),0
 line 0,n-768, 639,n-768
next n
get image 6,0,0,639,768
 cls
` sideimage
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line 831+n,0, 831+n,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line 193-n,0, 193-n,768
next n
get image 8,0,0,1024,768
` player 1 red
ink rgb(255,0,0),0
 cls
for n=10 to 1 step -1
 circle 10,10,n
 box 4,4,16,16
next n
get image 1,0,0,22,22
` player 1 orange
  ink rgb(255,128,0),0

for n=10 to 1 step -1
   circle 10,10,n
   box 4,4,16,16
  next n
  get image 2,0,0,22,22
` player 1 yellow
  ink rgb(255,255,0),0

for n=10 to 1 step -1
   circle 10,10,n
   box 4,4,16,16
  next n
  get image 3,0,0,22,22
` player 1 purple
ink rgb(128,0,128),0

for n=10 to 1 step -1
 circle 10,10,n
 box 4,4,16,16
next n
get image 4,0,0,22,22
 cls

rem x-12 y-45
` parachute
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 10,20,n
    if n=8
     ink rgb(192,192,192),0
     box 4,14,16,26
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 17,15,n
    if n=8
     ink rgb(192,192,192),0
     box 11,9,23,21
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 28,15,n
    if n=8
     ink rgb(192,192,192),0
     box 22,9,34,21
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 35,20,n
    if n=8
     ink rgb(192,192,192),0
     box 29,14,41,26
    endif
 next n

line 10,29, 23,44
line 35,29, 23,44
for n=1 to 4
 get image 9+n,0,0,55,55
next n
 cls
Return

Instructions:
ink rgb(100,100,100),rgb(128,128,128)
cls
set text size 30
back:
cls
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line n-1,0, n-1,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line screen width()-n,0, screen width()-n,768
next n
ink rgb(100,100,100),rgb(128,128,128)
text midwidth-200,midheight-5, "PLAYERS?(1-4)>"
ink rgb(200,200,200),rgb(128,128,128)
text midwidth-199,midheight-3, "PLAYERS?(1-4)>"
set cursor midwidth,midheight+2
input players
if players>4 or players<1 then goto back
for n=1 to players
 playing(n)=1
next n
cls
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line n-1,0, n-1,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line screen width()-n,0, screen width()-n,768
next n
ink rgb(100,100,100),rgb(128,128,128)
text midwidth-130,midheight-60, "   CONTROLS"
 if playing(1)=1 then text midwidth-130,midheight-30, "PLAYER 1: DOWNKEY"
 if playing(2)=1 then text midwidth-130,midheight+0, "PLAYER 2: S"
 if playing(3)=1 then text midwidth-130,midheight+30, "PLAYER 3: G"
 if playing(4)=1 then text midwidth-130,midheight+60, "PLAYER 4: K"
ink rgb(200,200,200),rgb(128,128,128)
text midwidth-129,midheight-58, "   CONTROLS"
 if playing(1)=1 then text midwidth-129,midheight-28, "PLAYER 1: DOWNKEY"
 if playing(2)=1 then text midwidth-129,midheight+2, "PLAYER 2: S"
 if playing(3)=1 then text midwidth-129,midheight+32, "PLAYER 3: G"
 if playing(4)=1 then text midwidth-129,midheight+62, "PLAYER 4: K"
wait key

ink rgb(100,100,100),rgb(128,128,128)
cls
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line n-1,0, n-1,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line screen width()-n,0, screen width()-n,768
next n
ink rgb(100,100,100),rgb(128,128,128)
line$(1)=" The object of the game is to reach the ground before everyone else(AI or human)."
line$(2)="Each player has been given a button.The button,when first pressed,starts"
line$(3)="your drop.But make sure to press it only after it says GO! or you will get trapped."
line$(4)="Once you have reached a proper distance from the ground press the button "
line$(5)="again to deploy your parachute.Make sure not to deploy your parachute to late"
line$(6)="or you will suffer some damage.There will be five(or more) rounds,GOOD LUCK!"
line$(7)=""

for n=1 to 7
text 75,n*30+200, line$(n)
next n
 ink rgb(200,200,200),rgb(128,128,128)
for n=1 to 7
text 76,n*30+202, line$(n)
next n
wait key
Return

Resetvaribles:
for n=1 to 4
 y(n)=260
 speed(n)=0
 AIparachutetime(n)=0
 AIparachutestart(n)=0
 AIstarttime(n)=0
 num(n)=0
 drop(n)=0
 pressed(n)=0
 pressed2(n)=0
 pressed3(n)=0
 pressed4(n)=0
 parachute(n)=0
 early(n)=0
 place$(n)=""
 done(n)=0
next n
place=0
round=round+1
by=0
num2=0
Return

Winner:
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
   paste image 8,0,0,1

for n=1 to 4
 delete sprite n
next n

x(1)=midwidth-22:y(1)=260
  sprite winner,x(1),y(1),winner
   ink rgb(60,60,0),rgb(128,128,128)
  line x(1)-10,y(1)+22, x(1)+31,y(1)+22
   ink rgb(100,100,0),rgb(128,128,128)
  line x(1)-10,y(1)+23, x(1)+31,y(1)+23
   ink rgb(140,140,0),rgb(128,128,128)
  line x(1)-10,y(1)+24, x(1)+31,y(1)+24

set text size 20
ink rgb(100,100,100),rgb(128,128,128)
 text 18,75, "PLAYER 1"
 text 18,175, "PLAYER 2"
 text 920,75, "PLAYER 3"
 text 920,175, "PLAYER 4"
ink rgb(200,200,200),rgb(128,128,128)
 text 19,77, "PLAYER 1"
 text 19,177, "PLAYER 2"
 text 919,77, "PLAYER 3"
 text 919,177, "PLAYER 4"

ink rgb(100,100,100),rgb(128,128,128)
 text 16,110, "SCORE:"+str$(score(1))
 text 16,210, "SCORE:"+str$(score(2))
 text 918,110, "SCORE:"+str$(score(3))
 text 918,210, "SCORE:"+str$(score(4))

ink rgb(255,10,10),rgb(128,128,128)
 line 18,100, 18+health(1),100
 line 18,200, 18+health(2),200
 line 919,100, 919+health(3),100
 line 919,200, 919+health(4),200
ink rgb(223,0,0),rgb(128,128,128)
 line 18,101, 18+health(1),101
 line 18,201, 18+health(2),201
 line 919,101, 919+health(3),101
 line 919,201, 919+health(4),201
ink rgb(192,0,0),rgb(128,128,128)
 line 18,102, 18+health(1),102
 line 18,202, 18+health(2),202
 line 919,102, 919+health(3),102
 line 919,202, 919+health(4),202
ink rgb(160,0,0),rgb(128,128,128)
 line 18,103, 18+health(1),103
 line 18,203, 18+health(2),203
 line 919,103, 919+health(3),103
 line 919,203, 919+health(4),203
set text size 125
  ink rgb(110,110,0),rgb(128,128,128)
   text 275,midheight-90, "WINNER!"
    ink rgb(185,185,0),rgb(128,128,128)
   text 276,midheight-88, "WINNER!"
wait key
END
Return

+ Code Snippet

`                    ~~~PARACHUTE~~~
set display mode 1024,768,32
sync on:sync rate 0
hide mouse
set text font "Times New Roman",1

randomize timer()

gosub GETimages

dim AIparachutetime(4)
dim AIparachutestart(4)
dim AIstarttime(4)
dim playing(4)
dim line$(7)
dim out(4)
dim x(4)
dim y(4)
dim num(4)
dim speed(4)
dim drop(4)
dim pressed(4)
dim pressed2(4)
dim pressed3(4)
dim pressed4(4)
dim parachute(4)
dim health(4)
dim middle(4)
dim early(4)
dim place$(4)
dim done(4)
dim score(4)

midwidth=screen width()/2
midheight=screen height()/2

gosub instructions

x(1)=287
x(2)=437
x(3)=587
x(4)=737
round=1
for n=1 to 4
 y(n)=260
 health(n)=82
next n

middle(1)=208:middle(2)=31:middle(3)=34:middle(4)=37

Restart:

if round>=6
if score(1)>score(2) and score(1)>score(3) and score(1)>score(4) then winner=1
if score(2)>score(1) and score(2)>score(3) and score(2)>score(4) then winner=2
if score(3)>score(1) and score(3)>score(2) and score(3)>score(4) then winner=3
if score(4)>score(2) and score(4)>score(3) and score(4)>score(1) then winner=4
    if winner>0
     gosub winner
    endif
winner=0
endif
ink rgb(60,60,60),rgb(128,128,128)
sleep 500
cls

for n2=1 to 4
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
   paste image 8,0,0,1
 for n=1 to 4
if out(n)=1 then delete sprite n
if out(n)=0
  sprite n,x(n),y(n),n
   ink rgb(60,60,60),rgb(128,128,128)
  line x(n)-10,y(n)+22, x(n)+31,y(n)+22
   ink rgb(100,100,100),rgb(128,128,128)
  line x(n)-10,y(n)+23, x(n)+31,y(n)+23
   ink rgb(140,140,140),rgb(128,128,128)
  line x(n)-10,y(n)+24, x(n)+31,y(n)+24
endif
 next n

set text size 20
ink rgb(100,100,100),rgb(128,128,128)
 text 18,75, "PLAYER 1"
 text 18,175, "PLAYER 2"
 text 920,75, "PLAYER 3"
 text 920,175, "PLAYER 4"
ink rgb(200,200,200),rgb(128,128,128)
 text 19,77, "PLAYER 1"
 text 19,177, "PLAYER 2"
 text 919,77, "PLAYER 3"
 text 919,177, "PLAYER 4"

ink rgb(100,100,100),rgb(128,128,128)
 text 16,110, "SCORE:"+str$(score(1))
 text 16,210, "SCORE:"+str$(score(2))
 text 918,110, "SCORE:"+str$(score(3))
 text 918,210, "SCORE:"+str$(score(4))


ink rgb(255,10,10),rgb(128,128,128)
 line 18,100, 18+health(1),100
 line 18,200, 18+health(2),200
 line 919,100, 919+health(3),100
 line 919,200, 919+health(4),200
ink rgb(223,0,0),rgb(128,128,128)
 line 18,101, 18+health(1),101
 line 18,201, 18+health(2),201
 line 919,101, 919+health(3),101
 line 919,201, 919+health(4),201
ink rgb(192,0,0),rgb(128,128,128)
 line 18,102, 18+health(1),102
 line 18,202, 18+health(2),202
 line 919,102, 919+health(3),102
 line 919,202, 919+health(4),202
ink rgb(160,0,0),rgb(128,128,128)
 line 18,103, 18+health(1),103
 line 18,203, 18+health(2),203
 line 919,103, 919+health(3),103
 line 919,203, 919+health(4),203

set text size 125

for n3=1 to 4
  if early(n3)=1
   box x(n3)-2,y(n3)-2,x(n3)+22,y(n3)+22
  endif
next n3

if n2=1
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
    ink rgb(100,100,100),rgb(128,128,128)
   text midwidth-(text width("ROUND 2")/2),midheight-100, "ROUND "+str$(round)
    ink rgb(175,175,175),rgb(128,128,128)
   text midwidth-(text width("ROUND 2")/2)+1,midheight-98, "ROUND "+str$(round)
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=2200 then exit
sync
ENDwhile
endif

if n2=2
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to 4
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
    ink rgb(100,100,100),rgb(128,128,128)
   text midwidth-(text width("READY")/2),midheight-100, "READY"
    ink rgb(175,175,175),rgb(128,128,128)
   text midwidth-(text width("READY")/2)+1,midheight-98, "READY"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=1000 then exit
sync
ENDwhile
endif

if n2=3
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=500 then exit
sync
ENDwhile
    ink rgb(100,100,100),rgb(128,128,128)
   text midwidth-(text width("SET")/2),midheight-100, "SET"
    ink rgb(175,175,175),rgb(128,128,128)
   text midwidth-(text width("SET")/2)+1,midheight-98, "SET"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
 for n=1 to players
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=1000 then exit
sync
ENDwhile
endif

if n2=4
wait=rnd(2600)+400
if players <4
 for nn=players+1 to 4
  AIstarttime(nn)=wait+rnd(695)-50
 next nn
endif
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
if players <4
  for nn=players+1 to 4
   if time>=AIstarttime(nn) and out(nn)=0 then early(nn)=1
  next nn
endif
 for n=1 to players
  if keystate(middle(n))=1 and out(n)=0 then early(n)=1
 next n
 if time>=wait then exit
sync
ENDwhile
    ink rgb(100,100,100),rgb(128,128,128)
   text midwidth-(text width("GO!")/2),midheight-100, "GO!"
    ink rgb(175,175,175),rgb(128,128,128)
   text midwidth-(text width("GO!")/2)+1,midheight-98, "GO!"
oldtime=timer()
WHILE forever=0
 time=timer()-oldtime
if players <4
  for nn=players+1 to 4
   if time+wait>=AIstarttime(nn) and out(n)=0 and early(nn)=0 then drop(nn)=1
  next nn
endif
 for n=1 to players
  if keystate(middle(n))=1 and out(n)=0 and early(n)=0 then drop(n)=1:pressed(n)=1
 next n
 if time>=120 then exit
sync
ENDwhile
endif

sync:cls
next n2
AIoldtime=timer()
oldtime=timer()
`                    ~~~MAIN LOOP~~~
DO
 time=timer()-oldtime
 AItime=timer()-AIoldtime
if players <4
  for nn=players+1 to 4
   if AItime+wait+110>=AIstarttime(nn) and early(nn)=0 and out(nn)=0 then drop(nn)=1
  next nn
endif
if time>=15
` background
if drop(1)=1 or drop(2)=1 or drop(3)=1 or drop(4)=1
 for n=1 to 4
  if out(n)=0
  if drop(n)=0 and by>=-768
   speed(n)=-8
  if drop(n)=0 and by<=-768
   speed(n)=0
  endif
  endif
  endif
 next n
 if By>-768
  for n=1 to 4
   if drop(n)=1 then speed(n)=-1 
  next n
  By=By-8
 else
  for n=1 to 4
   if drop(n)=1 and pressed2(n)=0 then speed(n)=8:pressed2(n)=1
  next n
 endif
endif
` sky
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
` sides
   paste image 8,0,0,1
` health
set text size 20
ink rgb(100,100,100),rgb(128,128,128)
 text 18,75, "PLAYER 1"
 text 18,175, "PLAYER 2"
 text 920,75, "PLAYER 3"
 text 920,175, "PLAYER 4"
ink rgb(200,200,200),rgb(128,128,128)
 text 19,77, "PLAYER 1"
 text 19,177, "PLAYER 2"
 text 919,77, "PLAYER 3"
 text 919,177, "PLAYER 4"

ink rgb(100,100,100),rgb(128,128,128)
 text 16,110, "SCORE:"+str$(score(1))
 text 16,210, "SCORE:"+str$(score(2))
 text 918,110, "SCORE:"+str$(score(3))
 text 918,210, "SCORE:"+str$(score(4))


ink rgb(255,10,10),rgb(128,128,128)
 line 18,100, 18+health(1),100
 line 18,200, 18+health(2),200
 line 919,100, 919+health(3),100
 line 919,200, 919+health(4),200
ink rgb(223,0,0),rgb(128,128,128)
 line 18,101, 18+health(1),101
 line 18,201, 18+health(2),201
 line 919,101, 919+health(3),101
 line 919,201, 919+health(4),201
ink rgb(192,0,0),rgb(128,128,128)
 line 18,102, 18+health(1),102
 line 18,202, 18+health(2),202
 line 919,102, 919+health(3),102
 line 919,202, 919+health(4),202
ink rgb(160,0,0),rgb(128,128,128)
 line 18,103, 18+health(1),103
 line 18,203, 18+health(2),203
 line 919,103, 919+health(3),103
 line 919,203, 919+health(4),203
if players <4
  for nn=players+1 to 4
   if out(nn)=0
   if speed(nn)=8 and pressed3(nn)=0 then AIparachutetime(nn)=timer():AIparachutestart(nn)=950+rnd(500)-250:pressed3(nn)=1
   if timer()-AIparachutetime(nn)>=AIparachutestart(nn) and pressed3(nn)=1 and pressed4(nn)=0 then parachute(nn)=1:pressed4(nn)=1
   endif
  next nn
endif
` players
 for n=1 to 4
if out(n)=0
  if keystate(middle(n))=0 then pressed(n)=0
if playing(n)=1 and keystate(middle(n))=1 and drop(n)=0 and pressed(n)=0 and early(n)=0 then drop(n)=1:pressed(n)=1
if playing(n)=1 and keystate(middle(n))=1 and drop(n)=1 and pressed(n)=0 then parachute(n)=1
   ` speed
  if parachute(n)=1
   num(n)=num(n)+1
   if num(n)>=rnd(2)+7
    speed(n)=speed(n)-1
    num(n)=0
    if speed(n)=0 then speed(n)=1
   endif
  endif
if done(n)=1 
 speed(n)=0 
 parachute(n)=0
 ink rgb(200,200,200),rgb(128,128,128)
 text x(n)+7,y(n)-38, place$(n)
endif
 if y(n)>=730 and done(n)=0
   y(n)=735
   if speed(n)=8 then health(n)=0
   health(n)=health(n)-(12*((speed(n)-1)))
  if health(n)>0
   place=place+1
   place$(n)=str$(place)
  else
   out(n)=1
   health(n)=0
  endif
    if val(place$(n))>0
     score(n)=score(n)+(5-val(place$(n)))
    else
     place$(n)="X"
    endif
   parachute(n)=0
   done(n)=1
  endif
   y(n)=y(n)+speed(n)
   ` sprite
   if parachute(n)=1
    paste image 9+n,x(n)-12,y(n)-40,1
   endif
   sprite n,x(n),y(n),n
  if early(n)=0 and drop(1)=0 and drop(2)=0 and drop(3)=0 and drop(4)=0
    ink rgb(60,60,60),rgb(128,128,128)
   line x(n)-10,y(n)+22, x(n)+31,y(n)+22
    ink rgb(100,100,100),rgb(128,128,128)
   line x(n)-10,y(n)+23, x(n)+31,y(n)+23
    ink rgb(140,140,140),rgb(128,128,128)
   line x(n)-10,y(n)+24, x(n)+31,y(n)+24
  endif
  if early(n)=0 and drop(n)=0 
   if drop(1)=1 or drop(2)=1 or drop(3)=1 or drop(4)=1
    ink rgb(60,60,60),rgb(128,128,128)
   line x(n)-10,y(n)+12, x(n)+31,y(n)+12
    ink rgb(100,100,100),rgb(128,128,128)
   line x(n)-10,y(n)+13, x(n)+31,y(n)+13
    ink rgb(140,140,140),rgb(128,128,128)
   line x(n)-10,y(n)+14, x(n)+31,y(n)+14
   endif
  endif
  if early(n)=1
   ink rgb(100,100,100),rgb(128,128,128)
   box x(n)-2,y(n)-2,x(n)+22,y(n)+22
  endif
  endif
  if out(n)=1 then score(n)=0
  next n
 
  if done(1)=1 or early(1)=1 or out(1)=1
   if done(2)=1 or early(2)=1  or out(2)=1
    if done(3)=1 or early(3)=1  or out(3)=1
     if done(4)=1 or early(4)=1 or out(4)=1
     num2=num2+1
     if num2=2
     sleep 3000
      gosub resetvaribles
      goto restart
     endif
     endif
    endif
   endif
  endif
  oldtime=timer()
  sync:cls
 endif
LOOP

END

`                    ~~~SUB FILES~~~

GETimages:
` background
for n=0 to 767
 ink rgb(0,0,(n)/6),0
 line 0,n, 639,n
next n
` make stars
for n=1 to 70
 Rx=rnd(639)
 Ry=rnd(160)
  ink rgb(255,255,255),0
  dot Rx,Ry
  ink rgb(rnd(10)+7,rnd(10)+7,rnd(10)+7),0
  dot Rx+1,Ry
  dot Rx-1,Ry
  dot Rx,Ry+1
  dot Rx,Ry-1
next n
for n=1 to 44
 Rx=rnd(639)
 Ry=rnd(135)+160
  ink rgb(150,150,150),0
  dot Rx,Ry
  ink rgb(rnd(4)+5,rnd(4)+5,rnd(4)+5),0
  dot Rx+1,Ry
  dot Rx-1,Ry
  dot Rx,Ry+1
  dot Rx,Ry-1
next n
get image 5,0,0,639,768
cls
for n=768 to 1536
 ink rgb(0,0,(n)/6),0
if n>=1517 then ink rgb(0,rnd(40)+200,0),0
 line 0,n-768, 639,n-768
next n
get image 6,0,0,639,768
 cls
` sideimage
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line 831+n,0, 831+n,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line 193-n,0, 193-n,768
next n
get image 8,0,0,1024,768
` player 1 red
ink rgb(255,0,0),0
 cls
for n=10 to 1 step -1
 circle 10,10,n
 box 4,4,16,16
next n
get image 1,0,0,22,22
` player 1 orange
  ink rgb(255,128,0),0

  for n=10 to 1 step -1
   circle 10,10,n
   box 4,4,16,16
  next n
  get image 2,0,0,22,22
` player 1 yellow
  ink rgb(255,255,0),0

  for n=10 to 1 step -1
   circle 10,10,n
   box 4,4,16,16
  next n
  get image 3,0,0,22,22
` player 1 purple
ink rgb(128,0,128),0

for n=10 to 1 step -1
 circle 10,10,n
 box 4,4,16,16
next n
get image 4,0,0,22,22
 cls

rem x-12 y-45
` parachute
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 10,20,n
    if n=8
     ink rgb(192,192,192),0
     box 4,14,16,26
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 17,15,n
    if n=8
     ink rgb(192,192,192),0
     box 11,9,23,21
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 28,15,n
    if n=8
     ink rgb(192,192,192),0
     box 22,9,34,21
    endif
 next n
ink rgb(128,128,128),0
 for n=9 to 1 step -1
   circle 35,20,n
    if n=8
     ink rgb(192,192,192),0
     box 29,14,41,26
    endif
 next n

line 10,29, 23,44
line 35,29, 23,44
for n=1 to 4
 get image 9+n,0,0,55,55
next n
 cls
Return

Instructions:
ink rgb(100,100,100),rgb(128,128,128)
cls
set text size 30
back:
cls
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line n-1,0, n-1,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line screen width()-n,0, screen width()-n,768
next n
ink rgb(100,100,100),rgb(128,128,128)
text midwidth-200,midheight-5, "PLAYERS?(1-4)>"
ink rgb(200,200,200),rgb(128,128,128)
text midwidth-199,midheight-3, "PLAYERS?(1-4)>"
set cursor midwidth,midheight+2
input players
if players>4 or players<1 then goto back
for n=1 to players
 playing(n)=1
next n
cls
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line n-1,0, n-1,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line screen width()-n,0, screen width()-n,768
next n
ink rgb(100,100,100),rgb(128,128,128)
text midwidth-130,midheight-60, "   CONTROLS"
 if playing(1)=1 then text midwidth-130,midheight-30, "PLAYER 1: DOWNKEY"
 if playing(2)=1 then text midwidth-130,midheight+0, "PLAYER 2: S"
 if playing(3)=1 then text midwidth-130,midheight+30, "PLAYER 3: G"
 if playing(4)=1 then text midwidth-130,midheight+60, "PLAYER 4: K"
ink rgb(200,200,200),rgb(128,128,128)
text midwidth-129,midheight-58, "   CONTROLS"
 if playing(1)=1 then text midwidth-129,midheight-28, "PLAYER 1: DOWNKEY"
 if playing(2)=1 then text midwidth-129,midheight+2, "PLAYER 2: S"
 if playing(3)=1 then text midwidth-129,midheight+32, "PLAYER 3: G"
 if playing(4)=1 then text midwidth-129,midheight+62, "PLAYER 4: K"
wait key

ink rgb(100,100,100),rgb(128,128,128)
cls
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line n-1,0, n-1,768
next n
for n=1 to 68
 ink rgb(60+n,60+n,60+n),rgb(128,128,128)
 line screen width()-n,0, screen width()-n,768
next n
ink rgb(100,100,100),rgb(128,128,128)
line$(1)=" The object of the game is to reach the ground before everyone else(AI or human)."
line$(2)="Each player has been given a button.The button,when first pressed,starts"
line$(3)="your drop.But make sure to press it only after it says GO! or you will get trapped."
line$(4)="Once you have reached a proper distance from the ground press the button "
line$(5)="again to deploy your parachute.Make sure not to deploy your parachute to late"
line$(6)="or you will suffer some damage.There will be five(or more) rounds,GOOD LUCK!"
line$(7)=""


for n=1 to 7
text 75,n*30+200, line$(n)
next n
 ink rgb(200,200,200),rgb(128,128,128)
for n=1 to 7
text 76,n*30+202, line$(n)
next n
wait key
Return

Resetvaribles:
for n=1 to 4
 y(n)=260
 speed(n)=0
 AIparachutetime(n)=0
 AIparachutestart(n)=0
 AIstarttime(n)=0
 num(n)=0
 drop(n)=0
 pressed(n)=0
 pressed2(n)=0
 pressed3(n)=0
 pressed4(n)=0
 parachute(n)=0
 early(n)=0
 place$(n)=""
 done(n)=0
next n
place=0
round=round+1
by=0
num2=0
Return

Winner:
   paste image 5,midwidth-319,By
   paste image 6,midwidth-319,By+768
   paste image 8,0,0,1

for n=1 to 4
 delete sprite n
next n

x(1)=midwidth-22:y(1)=260
  sprite winner,x(1),y(1),winner
   ink rgb(60,60,0),rgb(128,128,128)
  line x(1)-10,y(1)+22, x(1)+31,y(1)+22
   ink rgb(100,100,0),rgb(128,128,128)
  line x(1)-10,y(1)+23, x(1)+31,y(1)+23
   ink rgb(140,140,0),rgb(128,128,128)
  line x(1)-10,y(1)+24, x(1)+31,y(1)+24


set text size 20
ink rgb(100,100,100),rgb(128,128,128)
 text 18,75, "PLAYER 1"
 text 18,175, "PLAYER 2"
 text 920,75, "PLAYER 3"
 text 920,175, "PLAYER 4"
ink rgb(200,200,200),rgb(128,128,128)
 text 19,77, "PLAYER 1"
 text 19,177, "PLAYER 2"
 text 919,77, "PLAYER 3"
 text 919,177, "PLAYER 4"

ink rgb(100,100,100),rgb(128,128,128)
 text 16,110, "SCORE:"+str$(score(1))
 text 16,210, "SCORE:"+str$(score(2))
 text 918,110, "SCORE:"+str$(score(3))
 text 918,210, "SCORE:"+str$(score(4))


ink rgb(255,10,10),rgb(128,128,128)
 line 18,100, 18+health(1),100
 line 18,200, 18+health(2),200
 line 919,100, 919+health(3),100
 line 919,200, 919+health(4),200
ink rgb(223,0,0),rgb(128,128,128)
 line 18,101, 18+health(1),101
 line 18,201, 18+health(2),201
 line 919,101, 919+health(3),101
 line 919,201, 919+health(4),201
ink rgb(192,0,0),rgb(128,128,128)
 line 18,102, 18+health(1),102
 line 18,202, 18+health(2),202
 line 919,102, 919+health(3),102
 line 919,202, 919+health(4),202
ink rgb(160,0,0),rgb(128,128,128)
 line 18,103, 18+health(1),103
 line 18,203, 18+health(2),203
 line 919,103, 919+health(3),103
 line 919,203, 919+health(4),203
set text size 125
  ink rgb(110,110,0),rgb(128,128,128)
   text 275,midheight-90, "WINNER!"
    ink rgb(185,185,0),rgb(128,128,128)
   text 276,midheight-88, "WINNER!"
wait key
END
Return

EDIT

O, When I saw your 1 hour thing I hurryed up and posted this,lol.You had me worryed until I read the other post.

Well anyways,Please post any PROBLEMS,or sugestions.Thanks

O ya, don't look at the code too long or your eyes will start to bleed.(you could say this is my way of keeping other people frome "stealing" my code.)

update: if their is a tie it keeps on going
update: only shows the sprite that won.

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 7th Aug 2009 02:41

Link

When I looked at the start of your code, I thought "hmmm, now what is he going on about?". But then I saw the rest, and OMG, wow... You need to go through the tutorial on how to keep your code clean.

Aside from that, I like your entry!

Nice job. A few more refinements and it will be perfect by tomorrow.

TheComet

Make the path of your enemies easier with Waypoint Pro!

Back to top

Profile PM Email Website

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 7th Aug 2009 04:20

Link

Quote: "O ya, don't look at the code too long or your eyes will start to bleed.(you could say this is my way of keeping other people from "stealing" my code.)"

It is razer encrypted

Yes, I'm starting to believe that keeping your code easy to read is even more important than it actually working. After all how will you fix it when it isn't working?

But I'm not going to beat you around the head for writing messy code, sure it's messy but it's code. You're at the stage where it's not so bad because you have to rewrite everything anyway as you learn new commands.

TGC Forum - converting error messages into sarcasm since 2002.

Back to top

Profile PM Email

Dark Dragon

18

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 7th Aug 2009 05:38

Link

Hey, TDK, Cant get your game to work.....? Unreconized paramater or somthing.......Can you run this in 1.13?

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Back to top

Profile PM

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 7th Aug 2009 06:26

Link

no, apparently u missed the discussion above

he uses some special effects commands released in the latest version

Back to top

Profile PM Email

t10dimensional

16

Years of Service

User Offline

Joined: 22nd Mar 2009

Location: Code Cave, USA

Posted: 7th Aug 2009 07:49 Edited at: 7th Aug 2009 07:50

Link

@Obese
Well,I started it keeping everything indented and orderly and due to poor planning I had to go back many times to add more conditions.

if this and this AND THIS= then bla bla

You could say I was thinking faster then I could type.

And did you ever finish updateing that second edition of "keeping your code orgenized" thingy,I would like to take a look at that.

Back to top

Profile PM

pictionaryjr

16

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 7th Aug 2009 08:36

Link

Here's a code I used for my Bouyancy and fluid dynamics entry on page 74. I used it to have some objects in the water that floated and rotated to the matrix's angle. Here's the code:

function float(id)
   rem get positions
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)
   yAng#=object angle y(id)
   rem get distance measuring
   distVal#=1.2
   rem get the positions to find the ground height at
   ang#=yAng#      : frontX#=newxvalue(xPos#,ang#,distVal#)  : frontZ#=newzvalue(zPos#,ang#,distVal#)
   ang#=yAng#+180  : backX#=newxvalue(xPos#,ang#,distVal#)   : backZ#=newzvalue(zPos#,ang#,distVal#)
   ang#=yAng#+90   : leftX#=newxvalue(xPos#,ang#,distVal#)   : leftZ#=newzvalue(zPos#,ang#,distVal#)
   ang#=yAng#-90   : rightX#=newxvalue(xPos#,ang#,distVal#)  : rightZ#=newzvalue(zPos#,ang#,distVal#)
   rem find the ground height
   frontHeight#=get ground height(1,frontX#,frontZ#)
   backHeight#=get ground height(1,backX#,backZ#)
   leftHeight#=get ground height(1,leftX#,leftZ#)
   rightHeight#=get ground height(1,rightX#,rightZ#)
   rem determine the angle of rotation
   xAng#=curveangle((backHeight#-frontHeight#)*30,object angle x(id),5)
   zAng#=curveangle((leftHeight#-rightHeight#)*30,object angle z(id),5)
   rem rotate and position the object
   rotate object id,xAng#,0,zAng#
   position object id,xpos#,get ground height(1,xpos#,zpos#),zpos#
endfunction

+ Code Snippet

function float(id)
   rem get positions
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)
   yAng#=object angle y(id)
   rem get distance measuring
   distVal#=1.2
   rem get the positions to find the ground height at
   ang#=yAng#      : frontX#=newxvalue(xPos#,ang#,distVal#)  : frontZ#=newzvalue(zPos#,ang#,distVal#)
   ang#=yAng#+180  : backX#=newxvalue(xPos#,ang#,distVal#)   : backZ#=newzvalue(zPos#,ang#,distVal#)
   ang#=yAng#+90   : leftX#=newxvalue(xPos#,ang#,distVal#)   : leftZ#=newzvalue(zPos#,ang#,distVal#)
   ang#=yAng#-90   : rightX#=newxvalue(xPos#,ang#,distVal#)  : rightZ#=newzvalue(zPos#,ang#,distVal#)
   rem find the ground height
   frontHeight#=get ground height(1,frontX#,frontZ#)
   backHeight#=get ground height(1,backX#,backZ#)
   leftHeight#=get ground height(1,leftX#,leftZ#)
   rightHeight#=get ground height(1,rightX#,rightZ#)
   rem determine the angle of rotation
   xAng#=curveangle((backHeight#-frontHeight#)*30,object angle x(id),5)
   zAng#=curveangle((leftHeight#-rightHeight#)*30,object angle z(id),5)
   rem rotate and position the object
   rotate object id,xAng#,0,zAng#
   position object id,xpos#,get ground height(1,xpos#,zpos#),zpos#
endfunction

Back to top

Profile PM Email

NanoGamez guy

18

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 7th Aug 2009 14:11

Link

@razerx
This is a really clever idea and very fun to play. It's also a very complete game and everything runs smoothly and looks good. Good Job!

Quote: "You could say I was thinking faster then I could type."

Better than typing faster than you could think!

@Comet
I doubt be able to finish, I've recently been working a lot on revamping my website, along with learning 4 new languages!

My current wallpaper:

"I trust you have prepared new insults for today" - Spock, Star Trek

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 7th Aug 2009 14:53

Link

Quote: "Cant get your game to work.....? Unreconized paramater or somthing.......Can you run this in 1.13?"

Extended commands are now allowed in the challenge. I suggest everyone upgrade asap.

I have actually only used the commands you are having problems with because in the new version, the Set Ambient Light command has been deprecated and no longer does anything.

This is because it has been replaced by four new object light commands - which if not used makes your game look really bad. As such, it would be unfair to stop anyone using the new object light commands.

Anyone still using V1.13 can (as already mentioned above!) just rem out the offending lines - though the game will not look the same as it does for everyone with V1.2.0.

TDK

* TDK's Web Site *

Back to top

Profile PM Email Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 7th Aug 2009 16:43

Link

Sorry for the misunderstanding. It was me that screwed up with the date and time. Thursday night at midnight I looked at the date and time and thought it was Friday midnight, the deadline, but actually it was Thursday night. So you all still have until Saturday night, so no worries.

@ Nano

You still have 2 days, I'm sure you can get something finished!

TheComet

Make the path of your enemies easier with Waypoint Pro!

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 7th Aug 2009 20:15

Link

Here's a small update - and might well be my last one as I have to go out tonight.

It's not actually racing as you have no control of any of the vehicles yet. It simply follows one of the cars around in Test Mode. But it gives you a flavour of what I was aimng for. It never ends, so just press F12 to exit.

I will probably continue with it after the challenge deadline ends and finish it off.

Gosub Setup
rem Gosub Splash_Screen
Gosub Main_Menu

Rem Main Program Loop
Do
  Rem Gosub Generate Random Track
  If Test = True
    Gosub Test_Lap
    Gosub Main_Menu
  Else
    Rem Gosub Generate_Track
    Rem Gosub Race
    Rem Gosub HighScores
    Rem Gosub Main_Menu
  Endif
  Sync
Loop
end

Rem ******************************************************************************************
Rem ***                                  PROCEDURES                                        ***
Rem ******************************************************************************************

Test_Lap:
  Set Camera View 0,0,800,600
  GH# = Get Ground Height(1,512,218)+1.0
  Position Camera 512,GH#,218
  Yrotate Camera 90
  Set Camera Range 1.0,2048.0
  Position Object 7002,512,GH#,218
  Show Object 7000
  Show Object 7001
  Show Object 7002

End

rem FadeType = 1: Gosub Fader
  Repeat
    CX#=Camera Angle X(): CY#=Camera Angle Y(): CZ#=Camera Angle Z()
    CY#=Wrapvalue(CY#+mousemovex())
    CX#=Wrapvalue(CX#+mousemovey())
    Rotate Camera CX#,CY#,CZ#
    If MouseClick() = 1 Then Move Camera 1.5
    If MouseClick() = 2 Then Move Camera -1.5
    GH# = Get Ground Height(1,Camera Position X(),Camera Position Z())+1.0
    Rem Position Camera Camera Position X(),GH#,Camera Position Z()
    YRotate Object 2,WrapValue(Object Angle Y(2)+0.02)
    Position Object 1,Camera Position X(),Camera Position Y(),Camera Position Z()
    Position Object 2,Camera Position X(),Camera Position Y(),Camera Position Z()
    Sync
  Until EndRace=True
  FadeType = 0: Gosub Fader
Return

Select_Car:
  Set Text Size 16
  CLS 0: Sync
  Set Camera View 0,0,800,600
  Show Sprite 1: Show Sprite 2: Show Sprite 3: Show Sprite 4

If Object Exist(20000+N) = 0 Then Gosub Showroom_Vehicles
  Position Camera 0,3,-29
  Point Camera VSpotX#(0),0.0,VSpotZ#(0)
  FadeType = 1: Gosub Fader
  ChoseCar = False
  Repeat
    Mx=MouseX(): My=MouseY(): Mc=MouseClick()

For N = 0 To 7
      YRotate Object 20000+N,WrapValue(Object Angle Y(20000)+.4): Rem Platform
      YRotate Object N * 100 + 5000,WrapValue(Object Angle Y(CurrentVehicle * 100 + 5000)+.4)
      YRotate Object N * 100 + 5050,WrapValue(Object Angle Y(CurrentVehicle * 100 + 5050)+.4)
    Next N

If LeftKey()=1 Or (My>549 And Mx>0 And Mx<51 And Mc=1): Rem Previous Car
      RotRight = False
      Gosub Rotate_Stock
      Dec CurrentVehicle
      If CurrentVehicle < 0 Then CurrentVehicle = MaxVehicle
      Repeat
      Until LeftKey()=0 And MouseClick()=0
    Endif

If RightKey()=1 Or (My>549 And Mx>749 And Mx<800 And Mc=1): Rem Next Car
      RotRight = True
      Gosub Rotate_Stock
      Inc CurrentVehicle
      If CurrentVehicle > MaxVehicle Then CurrentVehicle = 0
      Repeat
      Until RightKey()=0 And MouseClick()=0
    Endif

If ReturnKey()=1 Or (My>549 And Mx>285 And Mx<515 And Mc=1): Rem I Want This One!
      ChoseCar = True
      Repeat
      Until ReturnKey()=0 And MouseClick()=0
    Endif

Sync
    Gosub Screen_Messages

Until ChoseCar = True
  Hide Sprite 1: Hide Sprite 2: Hide Sprite 3: Hide Sprite 4
  Set Camera View 0,0,1,1
  CLS: Sync
Return

Hide_All_Cars:
  For N = 5050 To 5999
    If Object Exist(N) Then Hide Object N
  Next N
Return

Splash_Screen:
  rem Gosub Hide_All_Cars
  Set Text Size 42: Sync
  Set Gamma 0,0,0: Wait_Time(3)
  Ink RGB(255,150,0),0: Center Text 400,200,"<< ICTOAT RACING >>"
  Ink RGB(255,255,0),0: Center Text 398,198,"<< ICTOAT RACING >>"
  Rem 1=Fade In  0=Fade Out
  FadeType = 1: Gosub Fader: Wait_Time(3)
  FadeType = 0: Gosub Fader: CLS
  Set Text Size 32: Sync
  Ink RGB(0,0,255),0: Center Text 402,202,"DBC Programming Challenge Entry"
  Ink RGB(255,255,255),0: Center Text 400,200,"DBC Programming Challenge Entry"
  Ink RGB(0,0,255),0: Center Text 402,252,"July/August 2009"
  Ink RGB(255,255,255),0: Center Text 400,250,"July/August 2009"
  FadeType = 1: Gosub Fader: Wait_Time(2)
  FadeType = 0: Gosub Fader: CLS
  Ink RGB(255,0,255),0: Center Text 402,202,"Written By TDK_Man"
  Ink RGB(255,255,255),0: Center Text 400,200,"Written By TDK_Man"
  FadeType = 1: Gosub Fader: Wait_Time(2)
  FadeType = 0: Gosub Fader
  CLS 0: Sync: Sync
Return

Fader:
  Select FadeType
    Case 0
      Rem Fade Out
      Done=0: T=Timer()
      EndTime#=T+(2000)
      Step#=EndTime#-T
      Repeat
        CurT#=Timer()-T
        Ratio#=CurT#/Step#
        RGBVal=255-(255*Ratio#)
        If RGBVal<0 then RGBVal=0 : Done=1
        Set Gamma RGBVal,RGBVal,RGBVal
        Sync
      Until Done=1
    EndCase
    Case 1
      Rem Fade In
      Done=0: T=Timer()
      EndTime#=T+(2000)
      Step#=EndTime#-T
      Repeat
        CurT#=Timer()-T
        Ratio#=CurT#/Step#
        RGBVal=(255*Ratio#)
        If RGBVal>255 then RGBVal=255 : Done=1
        Set Gamma RGBVal,RGBVal,RGBVal
        Sync
      Until Done=1
    EndCase
  EndSelect
Return

Main_Menu:
  Rem Main Menu
  Show Mouse
  Set Text Size 36: Sync
  MM$(0) = "Select Car"
  MM$(1) = "Game Options"
  MM$(2) = "Test Lap"
  MM$(3) = "Start Race"
  MM$(4) = "Exit Game"
  Rem MM$(5) = "HiScores"

Ink RGB(255,100,0),0: Center Text 402,12,"Main Menu"
  Ink RGB(255,255,0),0: Center Text 400,10,"Main Menu"
      For N = 0 To 4
        Ink RGB(0,0,255),0: Center Text 402,N*70+132,MM$(N)
        If N = Selection
          Ink RGB(255,255,255),0
        Else
          Ink RGB(0,255,255),0
        Endif
        Center Text 400,N*70+130,MM$(N)
      Next N

FadeType = 1: Gosub Fader: Rem Fade In
  Done = False: OldSelection = -1: Selection = 0

Repeat
    Mx=MouseX(): My=MouseY()
    Selection = (My-130) / 70
    If Selection <> OldSelection
      For N = 0 To 4
        Ink RGB(0,0,255),0: Center Text 402,N*70+132,MM$(N)
        If N = Selection
          Ink RGB(255,255,255),0
        Else
          Ink RGB(0,255,255),0
        Endif
        Center Text 400,N*70+130,MM$(N)
      Next N
      Sync
    Endif

If ReturnKey()=1 Or MouseClick()=1
      Select Selection
        Case 0
          FadeType = 0: Gosub Fader: CLS
          Gosub Select_Car
          Set Text Size 36: Sync
          Ink RGB(255,100,0),0: Center Text 402,12,"Main Menu"
          Ink RGB(255,255,0),0: Center Text 400,10,"Main Menu"
          Done = False: OldSelection = -1: Selection = 0
        EndCase
        Case 1
          Gosub Options
        EndCase
        Case 2
          Test = True: Done = True: Rem Exit Main Menu For test Lap...
        EndCase
        Case 3
          Test = False: Done = True: Rem Exit Main Menu To Race...
        EndCase
        Case 4
          End
        EndCase
      EndSelect
    Endif
    Repeat
      Sync
    Until MouseClick()=0
  Until Done = True
  rem FadeType = 0: Gosub Fader: Rem Fade In
  Hide Mouse
Return

Options:
  Rem Options Screen
Return

Select_Car2:
  Rem Select Car
  ChoseCar = False
  Repeat
    For N = 0 To 7
      YRotate Object 20000+N,WrapValue(Object Angle Y(20000)+.4): Rem Platform
      YRotate Object N * 100 + 5000,WrapValue(Object Angle Y(CurrentVehicle * 100 + 5000)+.4)
      YRotate Object N * 100 + 5050,WrapValue(Object Angle Y(CurrentVehicle * 100 + 5050)+.4)
    Next N

If LeftKey()=1: Rem Previous Car
      RotRight = False
      Gosub Rotate_Stock
      Dec CurrentVehicle
      If CurrentVehicle < 0 Then CurrentVehicle = MaxVehicle
      Repeat
      Until LeftKey()=0
    Endif

If RightKey()=1: Rem Next Car
      RotRight = True
      Gosub Rotate_Stock
      Inc CurrentVehicle
      If CurrentVehicle > MaxVehicle Then CurrentVehicle = 0
      Repeat
      Until RightKey()=0
    Endif

If ReturnKey()=1: Rem I Want This One!
      ChoseCar = True
      Repeat
      Until ReturnKey()=0
    Endif

Sync
    Gosub Screen_Messages
  Until ChoseCar = True
  End
Return

Rotate_Stock:
  Rem Rotate Stock 45 degrees clockwise at 15x3 degrees
  If RotRight = False
    RA# = 3.0
  Else
    RA# = -3.0
  Endif
  For I = 0 To 14
    For N = 0 To 7
      X#(N) = WrapValue(X#(N) + RA#): Z#(N) = WrapValue(Z#(N) + RA#)
      VSpotX#(N) = newxvalue(0,X#(N),Radius#): VSpotZ#(N) = newzvalue(0,Z#(N),Radius#)
      Position Object 20000+N, VSpotX#(N), 0.0, VSpotZ#(N): Rem Base
      Position Object 20100+N, VSpotX#(N), 0.0, VSpotZ#(N): Rem Mask
      Position Object N*100+5000, VSpotX#(N), 0.65, VSpotZ#(N): Rem Top Vehicle
      Position Object N*100+5050, VSpotX#(N), -0.5, VSpotZ#(N): Rem Bottom Vehicle
    Next N
    Sync
    Gosub Screen_Messages
  Next I
Return

Setup:
  Set Display Mode 800,600,32
  Sync On: Sync Rate 0: Sync
  Randomize 283479834
  Autocam Off
  Set Ambient Light 50

Dim VSpotX#(9): Dim VSpotZ#(9): Dim X#(9): Dim Z#(9): Dim MM$(5)
  Dim Waypoints#(7,180,1)
  Dim CurrentWayPoint(7)
  Dim Speed#(7)
  Dim TopSpeed#(7)
  Dim Accell#(7)

Dim Vehicle$(9,9): Rem 0=Name 1=Accel 2=Top Speed 3=Weapon 4=Damage 5=Shield 6=Nitro 7-Fuel 8-Special
  Vehicle$(0,0) = "Hillman Imp Sportster":   Rem Name
  Vehicle$(0,1) = "6":                       Rem Accel
  Vehicle$(0,2) = "120":                     Rem Top Speed
  Vehicle$(0,3) = "Machine Gun":             Rem Weapon
  Vehicle$(0,4) = "1":                       Rem Damage
  Vehicle$(0,5) = "16":                      Rem Shield
  Vehicle$(0,6) = "4":                       Rem Nitro
  Vehicle$(0,7) = "200":                     Rem Fuel
  Vehicle$(0,8) = "Smoke Pod":               Rem Special

Vehicle$(1,0) = "Mr Whippy Ice Cream Van": Rem Name
  Vehicle$(1,1) = "4":                       Rem Accel
  Vehicle$(1,2) = "100":                     Rem Top Speed
  Vehicle$(1,3) = "Freeze Gun":              Rem Weapon
  Vehicle$(1,4) = "3":                       Rem Damage
  Vehicle$(1,5) = "20":                      Rem Shield
  Vehicle$(1,6) = "6":                       Rem Nitro
  Vehicle$(1,7) = "250":                     Rem Fuel
  Vehicle$(1,8) = "Slush Puppy Spray":       Rem Special

Vehicle$(2,0) = "London Bus":              Rem Name
  Vehicle$(2,1) = "3":                       Rem Accel
  Vehicle$(2,2) = "85":                      Rem Top Speed
  Vehicle$(2,3) = "Spud Gun":                Rem Weapon
  Vehicle$(2,4) = "2":                       Rem Damage
  Vehicle$(2,5) = "180":                     Rem Shield
  Vehicle$(2,6) = "5":                       Rem Nitro
  Vehicle$(2,7) = "350":                     Rem Fuel
  Vehicle$(2,8) = "None":                    Rem Special

Vehicle$(3,0) = "Ford Pickup":             Rem Name
  Vehicle$(3,1) = "4":                       Rem Accel
  Vehicle$(3,2) = "110":                     Rem Top Speed
  Vehicle$(3,3) = "Ray Gun":                 Rem Weapon
  Vehicle$(3,4) = "7":                       Rem Damage
  Vehicle$(3,5) = "25":                      Rem Shield
  Vehicle$(3,6) = "8":                       Rem Nitro
  Vehicle$(3,7) = "150":                     Rem Fuel
  Vehicle$(3,8) = "Cargo Bomb":              Rem Special

Vehicle$(4,0) = "Oil Tanker":              Rem Name
  Vehicle$(4,1) = "2":                       Rem Accel
  Vehicle$(4,2) = "90":                      Rem Top Speed
  Vehicle$(4,3) = "Homing Missile":          Rem Weapon
  Vehicle$(4,4) = "6":                       Rem Damage
  Vehicle$(4,5) = "120":                     Rem Shield
  Vehicle$(4,6) = "9":                       Rem Nitro
  Vehicle$(4,7) = "350":                     Rem Fuel
  Vehicle$(4,8) = "Oil Slick":               Rem Special

Vehicle$(5,0) = "US Police Car":           Rem Name
  Vehicle$(5,1) = "5":                       Rem Accel
  Vehicle$(5,2) = "130":                     Rem Top Speed
  Vehicle$(5,3) = "Magnum 45":               Rem Weapon
  Vehicle$(5,4) = "3":                       Rem Damage
  Vehicle$(5,5) = "40":                      Rem Shield
  Vehicle$(5,6) = "3":                       Rem Nitro
  Vehicle$(5,7) = "180":                     Rem Fuel
  Vehicle$(5,8) = "Tazer Gun":               Rem Special

Vehicle$(6,0) = "UK Ambulance":            Rem Name
  Vehicle$(6,1) = "4":                       Rem Accel
  Vehicle$(6,2) = "125":                     Rem Top Speed
  Vehicle$(6,3) = "Sleep Gun":               Rem Weapon
  Vehicle$(6,4) = "8":                       Rem Damage
  Vehicle$(6,5) = "35":                      Rem Shield
  Vehicle$(6,6) = "4":                       Rem Nitro
  Vehicle$(6,7) = "250":                     Rem Fuel
  Vehicle$(6,8) = "Shrink Lights":           Rem Special

Vehicle$(7,0) = "TDK Convertible":         Rem Name
  Vehicle$(7,1) = "6":                       Rem Accel
  Vehicle$(7,2) = "140":                     Rem Top Speed
  Vehicle$(7,3) = "Rocket Launcher":         Rem Weapon
  Vehicle$(7,4) = "12":                      Rem Damage
  Vehicle$(7,5) = "30":                      Rem Shield
  Vehicle$(7,6) = "2":                       Rem Nitro
  Vehicle$(7,7) = "100":                     Rem Fuel
  Vehicle$(7,8) = "Stealth Mode":            Rem Special

True = 1: False = 0: MaxVehicle = 7

For N=0 To MaxVehicle
    Speed#(N) = 0.0
    Accell#(N) = VAL(Vehicle$(N,1))/400.0
    TopSpeed#(N) = VAL(Vehicle$(N,2))/100.0
  Next N

Gosub Make_Textures
  Gosub Make_Objects
  Gosub Make_Sprites

Rem Rotation Variables
  Radius#=22.0: AngleInc=45: Angle# = 135.0
  For N = 0 To MaxVehicle
    X#(N) = Angle#: Z#(N) = Angle#: Rem Start Angles
    Angle# = WrapValue(Angle# + 45.0)
  Next N

Backdrop On: Color Backdrop 0
  Set Camera Range 1.0,2048.0
  Hide Mouse

Position Camera 452,Get Ground Height(1,452,173)+8,173
  Rotate Camera 15,50,0

GH# = Get Ground Height(1,512,207)
  Position Object 7000,512,GH#-50,512: Rem Sky
  Position Object 7001,512,GH#-50,512: Rem Clouds
  Scale Object 7002,1000,1000,1000: YRotate Object 7002,90: Rem Starter
  Position Object 7002,512,GH#+12,207
  Show Object 7000: Show Object 7001: Show Object 7002

Rem ********************
  Rem    Position Cars
  Rem ********************
  For N = 0 To MaxVehicle
    CurrentWayPoint(N)=132
    Gh# = Get Ground Height(1,Waypoints#(N,CurrentWayPoint(N),0),Waypoints#(N,CurrentWayPoint(N),1))+0.6
    Position Object N*100+5000,Waypoints#(N,CurrentWayPoint(N),0),Gh#,Waypoints#(N,CurrentWayPoint(N),1)
    Point Object N*100+5000,Waypoints#(N,CurrentWayPoint(N)+1,0),Gh#,Waypoints#(N,CurrentWayPoint(N)+1,1)
    Hide Object N*100+5050: Rem Hide mirror vehicles
  Next N

Remstart
  Rem Un-rem this block to see a visual representation of the waypoints. I've used a waypoint 'lane' system
  Rem where there are 8 lanes - one for each vehicle. This isn't ideal, but with so little time to do this
  Rem challenge, a few corners had to be cut... :)
  For Car=0 to MaxVehicle
    R = Rnd(100)+155: G = Rnd(100)+155: B = Rnd(100)+155
    For A=0 to 179
      O = Car*180+A+1
      Make Object Cube O,0.2: Color Object O,RGB(R,G,B): Scale Object O,100,400,100: Ghost Object On O
      Gh# = Get Ground Height(1,Waypoints#(Car,A,0),Waypoints#(Car,A,1))
      Position Object O,Waypoints#(Car,A,0),Gh#,Waypoints#(Car,A,1)
    next A
  next Car
  Remend

Set Current Bitmap 0
  Set Text Size 14
  Set Text Transparent
  Ink 0,0
  CurrentTrackCar = 0: CTCObjNum = CurrentTrackCar*100+5000

TESTRACELOOP:
  Do
    If Scancode() Then RaceStarted=1
    If UpKey()=1 Then Inc Shading#,.1: Normalise(1,MatWid,MatHig,Shading#)
    If DownKey()=1 Then Dec Shading#,.1: Normalise(1,MatWid,MatHig,Shading#)

IF RaceStarted=1
      For N=MaxVehicle To 0 Step-1
        CarObjNum = N*100+5000
        Move Object CarObjNum,Speed#(N)
        CX# = Object Position X(CarObjNum): Rem Car's X Position
        CZ# = Object Position Z(CarObjNum): Rem Car's Z Position
        Gh# = Get Ground Height(1,CX#,CZ#)+0.3

Rem If Object Position Y(CarObjNum) > Gh#
          Rem Position Object CarObjNum,Object Position X(CarObjNum),Gh#,Object Position Z(CarObjNum)
        Rem Endif

If Speed#(N) < TopSpeed#(N) Then Speed#(N)=Speed#(N)+Accell#(N)
        Dist# = CarDistance(N)
        If Dist# < 2.0
          CurrentWayPoint(N)=CurrentWayPoint(N)+1: If CurrentWayPoint(N)=180 Then CurrentWayPoint(N) = 0
          Point Object CarObjNum,Waypoints#(N,CurrentWayPoint(N),0),Gh#,Waypoints#(N,CurrentWayPoint(N),1)
        Endif

Rem 3.5, .75, 2.0
        Tilt_Object(CarObjNum,1,CX#,Gh#,CZ#,2.0,.75,3.5)

If N=CurrentTrackCar
          Set Camera To Follow CX#, Gh#, CZ#, Object Angle Y(CarObjNum), 4.0,    Gh#+4.0,      14,        0
        Endif

Next N

Endif

Remstart
    Rem Routine to print current camera position and angles to text file when you press the space bar
    Rem (makes working out the camera start position a lot easier).
    Rem Leave remmed out...
    If SpaceKey() = 1
      If File Exist("CamPos.txt") Then Delete File "CamPos.txt"
      Open To Write 1,"CamPos.txt"
        Write String 1,Str$(Camera Position X())
        Write String 1,Str$(Camera Position Y())
        Write String 1,Str$(Camera Position Z())
        Write String 1,Str$(Camera Angle X())
        Write String 1,Str$(Camera Angle Y())
        Write String 1,Str$(Camera Angle Z())
      Close File 1
    Endif
    Remend

YRotate Object 7001,WrapValue(Object Angle Y(7001)+.1): Rem Move Clouds

Sync
    Text 10,2,"FPS: "+Str$(Screen FPS())
    Text 100,2,"Position:"
    Text 100,22,"X: "+Str$(CX#)
    Text 100,42,"Y: "+Str$(Gh#)
    Text 100,62,"Z: "+Str$(CZ#)
    Text 240,2,Str$(Shading#)

Remstart
    Text 240,2,"Mat Heights:"
    rem w#=2.0: l#=3.5
    FLx# = Object Position X(CurrentTrackCar*100+5000)-1.0
    FLz# = Object Position Z(CurrentTrackCar*100+5000)-1.75
    FL# = Get Ground Height(1,FLx#,FLz#)
    Text 240,22,"Front L: "+Str$(FL#)

FRx# = Object Position X(CurrentTrackCar*100+5000)+1.0
    FRz# = Object Position Z(CurrentTrackCar*100+5000)-1.75
    FR# = Get Ground Height(1,FRx#,FRz#)
    Text 240,42,"Front R: "+Str$(FR#)

RLx# = Object Position X(CurrentTrackCar*100+5000)-1.0
    RLz# = Object Position Z(CurrentTrackCar*100+5000)+1.75
    RL# = Get Ground Height(1,RLx#,RLz#)
    Text 240,62,"Rear L: "+Str$(RL#)

RRx# = Object Position X(CurrentTrackCar*100+5000)+1.0
    RRz# = Object Position Z(CurrentTrackCar*100+5000)+1.75
    RR# = Get Ground Height(1,RRx#,RRz#)
    Text 240,82,"Rear R: "+Str$(RR#)
    remend

Loop
Return

Showroom_Vehicles:
  Rem Vehicles & Plinths
  For N = 0 To MaxVehicle
    Make Object Cylinder 20000+N,8: Scale Object 20000+N,100,2,100: Color Object 20000+N,RGB(170,120,170)
    Ghost Object On 20000+N
    Set object ambient 20000+N,RGB(64,64,64): set object diffuse 20000+N,RGB(64,64,64)
    Set object emissive 20000+N,RGB(0,0,0): set object specular 20000+N,RGB(190,190,190),10.0
    Make Object Plain 20100+N,21.5,21.5: Texture Object 20100+N,12100
    XRotate Object 20100+N,90: Set Object 20100+N, 1, 0, 0
    X#(N) = WrapValue(X#(N) + AngleInc) : Z#(N) = WrapValue(Z#(N) + AngleInc)
    VSpotX#(N) = newxvalue(0,X#(N),Radius#): VSpotZ#(N) = newzvalue(0,Z#(N),Radius#)
    Position Object 20000+N, VSpotX#(N), 0.0, VSpotZ#(N): Rem Base
    Position Object 20100+N, VSpotX#(N), 0.0, VSpotZ#(N): Rem Mask
    Position Object N*100+5000, VSpotX#(N), 0.65, VSpotZ#(N): Rem Top Vehicle
    Position Object N*100+5050, VSpotX#(N), -0.5, VSpotZ#(N): Rem Bottom Vehicle
  Next N
  Make Object Plain 20108,23,23: Color Object 20108,0: XRotate Object 20108,90: Position Object 20108, 0.0, 0.01, 0.0: Rem Centre Mask
Return

Screen_Messages:
  Rem Vehicle Stats
  Ink RGB(255,255,255),0: TPosY = 400
  Ink RGB(0,100,0),0: Center Text 400,TPosY,"Vehicle: "+Vehicle$(CurrentVehicle,0)
  Ink RGB(0,255,0),0: Center Text 398,TPosY-2,"Vehicle: "+Vehicle$(CurrentVehicle,0)
  T$ = "Accelleration: "+Vehicle$(CurrentVehicle,1) + "          Top Speed: "+Vehicle$(CurrentVehicle,2)
  Ink RGB(0,0,0),0: Center Text 400,TPosY+(1*TH),T$
  Ink RGB(255,255,0),0: Center Text 398,TPosY+(1*TH)-2,T$
  T$ = "Weapon: "+Vehicle$(CurrentVehicle,3) + "          Weapon Damage: "+Vehicle$(CurrentVehicle,4)
  Ink RGB(0,0,0),0: Center Text 400,TPosY+(2*TH),T$
  Ink RGB(255,255,0),0: Center Text 398,TPosY+(2*TH)-2,T$
  T$ = "Fuel: "+Vehicle$(CurrentVehicle,7) + "        Nitro Bursts: "+Vehicle$(CurrentVehicle,6)
  Ink RGB(0,0,0),0: Center Text 400,TPosY+(3*TH),T$
  Ink RGB(255,255,0),0: Center Text 398,TPosY+(3*TH)-2,T$
  T$ = "Shield: "+Vehicle$(CurrentVehicle,5) + "        Special Ability: "+Vehicle$(CurrentVehicle,8)
  Ink RGB(0,0,0),0: Center Text 400,TPosY+(4*TH),T$
  Ink RGB(255,255,0),0: Center Text 398,TPosY+(4*TH)-2,T$
Return

Make_Textures:
  Create Bitmap 1,1024,1024

Rem ****************************
  Rem    Create Sky Textures
  Rem ****************************
  Rem ******** Winter Blue Sky ********
  Red# = 64.0: Green# = 64.0: Blue# = 128.0
  EndRed = 129: EndGreen = 128: EndBlue = 128
  MakeGradient(1001,255,Red#,Green#,Blue#,EndRed,EndGreen,EndBlue)
  Rem ******** Sunset Sky ********
  Red# = 0.0: Green# = 0.0: Blue# = 255.0
  EndRed = 200: EndGreen = 100: EndBlue = 0
  MakeGradient(1002,255,Red#,Green#,Blue#,EndRed,EndGreen,EndBlue)
  Rem ******** Sunset Sky 2 ********
  Red# = 32.0: Green# = 32.0: Blue# = 128.0
  EndRed = 255: EndGreen = 166: EndBlue = 85
  MakeGradient(1003,255,Red#,Green#,Blue#,EndRed,EndGreen,EndBlue)
  Rem ******** Night Sky ********
  Red# = 0.0: Green# = 0.0: Blue# = 0.0
  EndRed = 0: EndGreen = 0: EndBlue = 64
  MakeGradient(1004,255,Red#,Green#,Blue#,EndRed,EndGreen,EndBlue)
  Rem ******** Summer Blue Sky ********
  Red# = 0.0: Green# = 0.0: Blue# = 100.0
  EndRed = 200: EndGreen = 200: EndBlue = 255
  MakeGradient(1005,255,Red#,Green#,Blue#,EndRed,EndGreen,EndBlue)

Rem ****************************
  Rem    Create Cloud Texture
  Rem ****************************
  MakeClouds(1006,255)

Rem ********************
  Rem     Large Track
  Rem ********************
  CLS 0
  CircleRad=24
  For N=1 To CircleRad Step 2
    If N <= 20 Then  Ink RGB(80,80,80),0
    If N > 20 Then  Ink RGB(255,255,255),0
    If N > 22 Then  Ink RGB(180,0,0),0
    Circle CircleRad,CircleRad,N
    Circle CircleRad,CircleRad+1,N
  Next N
  Sync
  Get Image 1007,0,0,CircleRad*2+2,CircleRad*2+2
  Sprite 1,-200,-200,1007

Rem ********************
  Rem     Small Track
  Rem ********************
  CLS 0: Ink RGB(80,80,80),0
  CircleRad=18
  For N=1 To CircleRad
    Circle CircleRad,CircleRad,N
    If N < 16 Then Circle CircleRad,CircleRad+1,N
  Next N
  Sync
  Get Image 1008,0,0,CircleRad*2+2,CircleRad*2+2
  Sprite 2,-200,-200,1008

Rem ****************************
  Rem       Matrix Texture
  Rem ****************************
  CLS RGB(0,48,0)
  For N=1 To 15000
    Ink RGB(0,Rnd(100)+100,0),0
    Dot Rnd(1024),Rnd(1024)
  Next N
  Blur Bitmap 1,4
  Sync
  xcenter=512: ycenter=512: radiusx=450: radiusy=300
  for a=0 to 180
    x=cos(a*2)*radiusx
    y=sin(a*2)*radiusy
    Paste Sprite 1,x+xcenter-19,y+ycenter-19
  next a
  for a=0 to 180
    x=cos(a*2)*radiusx
    y=sin(a*2)*radiusy
    Paste Sprite 2,x+xcenter-13,y+ycenter-13
  next a
  Get Image 1000,0,0,1024,1024

Rem ********************
  Rem      WayPoints
  Rem ********************
  xcenter=515: ycenter=508: radiusx=436: radiusy=292
  for Car=0 to 7
    for a=0 to 179
      x=cos(a*2)*radiusx: y=sin(a*2)*radiusy
      Waypoints#(Car,a,0) = x+xcenter
      Waypoints#(Car,a,1) = y+ycenter
    next a
    Inc radiusx,3: Inc radiusy,3
  next car

Rem ********************
  Rem        Girder
  Rem ********************
  CLS 0: Ink RGB(4,4,4),0
  For N = 0 To 5
    Line 0,N,64-N,64
    Line N,0,64,64-N
    Line 0,64-N,64-N,0
    Line N,64,64,N
    Line 0,N,64,N
    Line N,0,N,64
    Line 64-N,0,64-N,64
    Line 0,64-N,64,64-N
  Next N
  Get Image 1009,0,0,64,64

Rem Make 255x255 Masking Plate Texture For Discs
  CLS RGB(1,1,1): Ink RGB(0,0,0),0
  For N = 0 To 46
    Circle 127,127,N: Circle 128,126,N
    Circle 127,128,N: Circle 128,127,N
  Next N
  Sync
  Get Image 12100,0,0,255,255,1

Return

Make_Sprites:
  CLS 0
  Set Text Font "Comic Sans MS"
  Set Text Size 36: Sync
  TH = Text Height("X")
  Ink RGB(255,60,0),0: Center Text 400,2,"Choose Your Vehicle"
  Ink RGB(255,255,255),0: Center Text 398,0,"Choose Your Vehicle"
  Get Image 12200,0,0,799,TH
  Sprite 1,0,0,12200: Hide Sprite 1
  CLS 0: Set Text Size 16
  Sync
  TH = Text Height("X")-4
  CLS 0
  Set Text Font "Wingdings",1
  Set Text Size 32: Sync
  Ink RGB(0,255,0),0: Box 0,0,50,50
  Ink 0,0: Box 2,2,48,48
  Ink RGB(255,255,0),0: Text 10,10,Chr$(231)
  Get Image 12201,0,0,51,51
  Ink 0,0: Box 2,2,48,48
  Ink RGB(255,255,0),0: Text 10,10,Chr$(232)
  Get Image 12202,0,0,51,51
  Sprite 2,1,549,12201: Hide Sprite 2
  Sprite 3,749,549,12202: Hide Sprite 3
  Set Text Font "Comic Sans MS": Sync
  Ink RGB(0,255,0),0: Box 100,100,330,150
  Ink 0,0: Box 102,102,328,148
  Ink RGB(255,255,0),0: Text 134,94,"SELECT"
  Get Image 12203,100,100,331,151
  Sprite 4,285,549,12203: Hide Sprite 4
  Set Text Size 36: Sync
Return

Make_Vehicles:
  Rem Car Types: 0 - Car  1 - IC Van  2 - Bus   3 - Pickup  4 - Oil Tanker  5 - Police Car  6 - Ambulance
  Rem            7 - Convertible
  Vehicle(5000,0,200,200,0): YRotate Object 5000,90: Fix Object Pivot 5000
  Vehicle(5050,0,200,200,0): XRotate Object 5050,180: Fix Object Pivot 5050: YRotate Object 5050,90: Fix Object Pivot 5050

Vehicle(5100,150,200,150,1): YRotate Object 5100,90: Fix Object Pivot 5100
  Vehicle(5150,150,200,150,1): XRotate Object 5150,180: Fix Object Pivot 5150: YRotate Object 5150,90: Fix Object Pivot 5150

Vehicle(5200,255,0,0,2): YRotate Object 5200,90: Fix Object Pivot 5200
  Vehicle(5250,255,0,0,2): XRotate Object 5250,180: Fix Object Pivot 5250: YRotate Object 5250,90: Fix Object Pivot 5250

Vehicle(5300,155,80,0,3): YRotate Object 5300,90: Fix Object Pivot 5300
  Vehicle(5350,155,80,0,3): XRotate Object 5350,180: Fix Object Pivot 5350: YRotate Object 5350,90: Fix Object Pivot 5350

Vehicle(5400,10,150,10,4): YRotate Object 5400,90: Fix Object Pivot 5400
  Vehicle(5450,10,150,10,4): XRotate Object 5450,180: Fix Object Pivot 5450: YRotate Object 5450,90: Fix Object Pivot 5450

Vehicle(5500,32,32,32,5): YRotate Object 5500,90: Fix Object Pivot 5500
  Vehicle(5550,32,32,32,5): XRotate Object 5550,180: Fix Object Pivot 5550: YRotate Object 5550,90: Fix Object Pivot 5550

Vehicle(5600,255,255,255,6): YRotate Object 5600,90: Fix Object Pivot 5600
  Vehicle(5650,255,255,255,6): XRotate Object 5650,180: Fix Object Pivot 5650: YRotate Object 5650,90: Fix Object Pivot 5650

Vehicle(5700,255,155,0,7): YRotate Object 5700,90: Fix Object Pivot 5700
  Vehicle(5750,255,155,0,7): XRotate Object 5750,180: Fix Object Pivot 5750: YRotate Object 5750,90: Fix Object Pivot 5750
Return

Make_Objects:
  Rem Sky Sphere
  Make Object Sphere 7000,-2048
  Position Object 7000,50,0,50
  ZRotate Object 7000,180
  Texture Object 7000,1005
  Hide Object 7000

Rem Cloud Sphere
  Make Object Sphere 7001,-2008
  Position Object 7001,50,0,50
  ZRotate Object 7001,180
  Texture Object 7001,1006
  Scale Object Texture 7001,2,1
  Set Object 7001, 1, 0, 1, 1
  Ghost Object On 7001
  Hide Object 7001

Rem Matrix
  Make Matrix 1,1024,1024,70,70
  Prepare Matrix Texture 1,1000,70,70
  Randomize Matrix 1,100.0
  For N=1 To 140
    X=Rnd(66)+2: Z=Rnd(66)+2
    Set Matrix Height 1,X,Z,30.0
  Next N
  Rem Skirt
  For N=0 To 70
    Set Matrix Height 1,0,N,Rnd(30)+30
    Set Matrix Height 1,70,N,Rnd(30)+30
    Set Matrix Height 1,N,0,Rnd(30)+30
    Set Matrix Height 1,N,70,Rnd(30)+30
  Next N

For N=1 To 12: Rem 10
    Gosub Smooth
  Next N

t=1
  For z=69 to 0 Step -1
    For x=0 to 69
      Set Matrix Tile 1,x,z,t
      Inc t
    Next x
  Next z

rem Update Matrix 1
  Shading# = 20.0
  Normalise(1,MatWid,MatHig,Shading#)

ObjNum = 7002
  Rem Start Section
  Make Object Box ObjNum, 5.0, 0.1, 0.1: Texture Object ObjNum,1009: Scale Object Texture ObjNum,15,1
  Set Object ObjNum, 1, 0, 0
  Rem Verts
  Make Object Box ObjNum+1, 0.1, 1.5, 0.1: Texture Object ObjNum+1,1009
  Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, -2.45,-0.75, 0.0
  Scale Object Texture ObjNum+1,1,6: Set Object ObjNum+1, 1, 0, 0
  Make Object Box ObjNum+2, 0.1, 1.5, 0.1: Texture Object ObjNum+2,1009
  Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2,0, 2.45,-0.75, 0.0
  Scale Object Texture ObjNum+2,1,6: Set Object ObjNum+2, 1, 0, 0
  Rem Lightbox
  Make Object Box ObjNum+3, 1.0, 0.3, 0.3: Color Object ObjNum+3,RGB(11,11,11)
  Glue Object To Limb ObjNum+3, ObjNum,0: Offset Limb ObjNum+3,0, 0.0,-0.20, 0.0
  Make Object Cylinder ObjNum+4, 0.15: Color Object ObjNum+4,RGB(90,0,0)
  XRotate Object ObjNum+4,90: Fix Object Pivot ObjNum+4
  Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4,0, -0.30, -0.20, -0.08
  Make Object Cylinder ObjNum+5, 0.15: Color Object ObjNum+5,RGB(90,0,0)
  XRotate Object ObjNum+5,90: Fix Object Pivot ObjNum+5
  Glue Object To Limb ObjNum+5, ObjNum,0: Offset Limb ObjNum+5,0, -0.10, -0.20, -0.08
  Make Object Cylinder ObjNum+6, 0.15: Color Object ObjNum+6,RGB(90,0,0)
  XRotate Object ObjNum+6,90: Fix Object Pivot ObjNum+6
  Glue Object To Limb ObjNum+6, ObjNum,0: Offset Limb ObjNum+6,0, 0.10, -0.20, -0.08
  Make Object Cylinder ObjNum+7, 0.15: Color Object ObjNum+7,RGB(0,90,0)
  XRotate Object ObjNum+7,90: Fix Object Pivot ObjNum+7
  Glue Object To Limb ObjNum+7, ObjNum,0: Offset Limb ObjNum+7,0, 0.30, -0.20, -0.08
  Hide Object ObjNum

remstart
  Rem Make Lights
  Make Light 1
  Position Light 1,-5,5,5:          Rem Rear Left
  Color Light 1,RGB(64,64,64)
  Make Light 2
  Position Light 2,5,5,5:           Rem Rear Right
  Color Light 2,RGB(64,64,64)
  Make Light 3
  Set spot light 3,5,75: Position Light 3,-5,5,-5: Rem Front Left
  Color Light 3,RGB(255,255,255): Point light 3,0,0,0
  Make Light 4
  Set spot light 4,5,75: Position Light 4,5,5,-5: Rem Front Right
  Color Light 4,RGB(255,255,255): Point light 4,0,0,0
  remend

Rem Make 4 Height Markers...
  Make Object Cube 2001,0.1: Scale Object 2001, 100,100,100
  Make Object Cube 2002,0.1: Scale Object 2002, 100,100,100
  Make Object Cube 2003,0.1: Scale Object 2003, 100,100,100
  Make Object Cube 2004,0.1: Scale Object 2004, 100,100,100

Gosub Make_Vehicles

Return

Smooth:
  Rem Averages matrix heights to remove jagged edges
  for Z=0 to 70
    for X=0 to 70
      P0#=Get Matrix Height(1,X,Z):     Rem Current point height
      Rem Get 4 adjoining points heights (if they exist)
      If Z-1>=0
        P1#=Get Matrix Height(1,X,Z-1)
      Else
        P1#=P0#
      Endif
      If X+1<=TilesX
        P2#=Get Matrix Height(1,X+1,Z)
      Else
        P2#=P0#
      Endif
      If Z+1<=TilesZ
        P3#=Get Matrix Height(1,X,Z+1)
      Else
        P3#=P0#
      Endif
      If X-1>=0
        P4#=Get Matrix Height(1,X-1,Z)
      Else
        P4#=P0#
      Endif
      Average#=(P0#+P1#+P2#+P3#+P4#)/5: Rem Av height of other points
      RHeight#=Average#
      Set Matrix Height 1,x,z,RHeight#
    Next x
  Next z
  Update Matrix 1
Return

Rem ******************************************************************************************
Rem ***                                   FUNCTIONS                                        ***
Rem ******************************************************************************************

Function Wait_Time(Seconds)
  DisplayTime = Timer()
  Repeat
    Sync
  Until Timer() - DisplayTime >= Seconds*1000
EndFunction

Function Vehicle(ObjNum,R,G,B,VehicleType)
  BodyColour = RGB(R,G,B)
  Rem Car Types: 0 - Car  1 - IC Van  2 - Bus 3 - Pickup  4 - Oil Tanker  5 - Police Car  6 - Ambulance
  Rem            7 - Convertible
  Select VehicleType
    Case 0
      Rem Car Body
      Make Object Box ObjNum, 3.5, .75, 2: Color Object ObjNum,BodyColour
      Rem Roof
      Make Object Box ObjNum+1, 1.5, .5,  2: Color Object ObjNum+1,BodyColour
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, -0.3, 0.5, 0
      Rem Body Stripe
      Make Object Box ObjNum+2, 3.52, .73,  .5: Color Object ObjNum+2,RGB(255,255,255)
      Glue Object To Limb ObjNum+2, ObjNum,0:  Offset Limb ObjNum+2,0,  0.0, 0.02, 0
      Rem Roof Stripe
      Make Object Box ObjNum+3, 1.49, .2,  .5: Color Object ObjNum+3,RGB(255,255,255)
      Glue Object To Limb ObjNum+3, ObjNum,0:  Offset Limb ObjNum+3,0,  -0.3, 0.66, 0
      Rem Exhaust
      Make Object Cylinder ObjNum+4,0.12: Color Object ObjNum+4,0
      ZRotate Object ObjNum+4,90: Fix Object Pivot ObjNum+4: Scale Object ObjNum+4,800,100,100
      Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4,0, -1.75, -0.45, 0.1
      Make Object Cylinder ObjNum+5,0.12: Color Object ObjNum+5,0
      ZRotate Object ObjNum+5,90: Fix Object Pivot ObjNum+5: Scale Object ObjNum+5,800,100,100
      Glue Object To Limb ObjNum+5, ObjNum,0: Offset Limb ObjNum+5,0, -1.75, -0.45, -0.1
      Rem Front Glass
      Make Object Box ObjNum+14, 0.55, 0.5,  1.95: Color Object ObjNum+14,RGB(220,220,255)
      ZRotate Object ObjNum+14,30: Fix Object Pivot ObjNum+14
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 0.35, 0.4, 0
      Rem Side Glass
      Make Object Box ObjNum+15, 1.45, 0.35, 2.02: Color Object ObjNum+15,RGB(220,220,255)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, -0.3, 0.55, 0
      Rem Rear Glass
      Make Object Box ObjNum+16, 0.13, 0.35,  1.95: Color Object ObjNum+16,RGB(220,220,255)
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, -1.0, 0.55, 0
      Rem Aero Wing
      Make Object Box ObjNum+21, 0.40, 0.02, 2.02: Color Object ObjNum+21,BodyColour
      ZRotate Object ObjNum+21,350: Fix Object Pivot ObjNum+21
      Glue Object To Limb ObjNum+21,ObjNum,0: Offset Limb ObjNum+21,0, -1.5, 0.7, 0.0
      Make Object Box ObjNum+22, 0.1, 0.5, 0.02: Color Object ObjNum+22,0
      Glue Object To Limb ObjNum+22,ObjNum,0: Offset Limb ObjNum+22,0, -1.5, 0.4, 0.80
      Make Object Box ObjNum+23, 0.1, 0.5, 0.02: Color Object ObjNum+23,0
      Glue Object To Limb ObjNum+23,ObjNum,0: Offset Limb ObjNum+23,0, -1.5, 0.4, -0.80
    EndCase
    Case 1
      Rem Ice Cream Van Sign Texture
      If Image Exist(12004) = 0
        CLS RGB(255,255,255): Ink 0,0
        Text 0,0,"  STOP ME AND BUY ONE!  "
        Get Image 12004,0,0,Text Width("  STOP ME AND BUY ONE!  "),Text Height("X")
      Endif
      Rem Ice Cream Van Body
      Make Object Box ObjNum, 3.5, .75, 2: Color Object ObjNum,BodyColour
      Make Object Box ObjNum+1, 3.0, .75, 2: Color Object ObjNum+1,BodyColour
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, -0.25, .75, 0
      Make Object Box ObjNum+2, 3.2, .2, 2: Color Object ObjNum+2,BodyColour
      Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2,0, -0.15, 1.1, 0
      Rem Ice Cream Cone
      Make Object Cone ObjNum+3, 0.6: Color Object ObjNum+3,RGB(168,150,0)
      Scale Object ObjNum+3,200,50,50
      ZRotate Object ObjNum+3, 180: Fix Object Pivot ObjNum+3
      Glue Object To Limb ObjNum+3, ObjNum,0: Offset Limb ObjNum+3,0, 1.5, 1.2, 0
      Make Object Sphere ObjNum+4, 0.58: Color Object ObjNum+4,RGB(255,180,180)
      Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4,0, 1.5, 1.57, 0
      Rem Sign
      Make Object Box ObjNum+5, 1.6, 0.4, 0.6: Texture Object ObjNum+5,12004
      YRotate Object ObjNum+5,90: Fix Object Pivot ObjNum+5
      Glue Object To Limb ObjNum+5, ObjNum,0: Offset Limb ObjNum+5,0, -1.46, 0.0, 0
      Rem Front Glass
      Make Object Box ObjNum+14, 0.55, 0.5,  1.93: Color Object ObjNum+14,RGB(220,220,255)
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 1.0, 0.6, 0
      Rem Side Glass
      Make Object Box ObjNum+15, 2.1, 0.6, 2.02: Color Object ObjNum+15,RGB(220,220,255)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, -0.6, 0.75, 0
      Rem Rear Glass
      Make Object Box ObjNum+16, 0.13, 0.6,  1.8: Color Object ObjNum+16,RGB(220,220,255)
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, -1.7, 0.75, 0
    EndCase
    Case 2
      Rem Bus Sign Texture
      If Image Exist(12000) = 0
        CLS 0
        Ink RGB(255,255,0),0
        Text 0,0,"  004 West End  "
        Get Image 12000,0,0,Text Width("  004 West End  "),Text Height("X")
      Endif
      Rem Bus Body
      Make Object Box ObjNum, 3.5, 0.75, 2.0: Color Object ObjNum,BodyColour
      Make Object Box ObjNum+1, 3.5, 0.75, 2.0: Color Object ObjNum+1,BodyColour: Rem top
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, 0.0, 1.5, 0.0
      Make Object Box ObjNum+2, 3.5, 0.75, 1.0: Color Object ObjNum+2,BodyColour: Rem Long Centre
      Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2,0, 0.0, 0.75, -0.5
      Make Object Box ObjNum+3, 3.0, 0.75, 1.0: Color Object ObjNum+3,BodyColour: Rem Short Centre
      Glue Object To Limb ObjNum+3, ObjNum,0: Offset Limb ObjNum+3,0, -0.25, 0.75, 0.5
      Rem Front Glass (Left of Driver)
      Make Object Box ObjNum+14, 0.55, 0.7,  1.93: Color Object ObjNum+14,RGB(220,220,255)
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 1.0, 0.7, 0
      Rem Front Glass 2 (Driver)
      Make Object Box ObjNum+15, 0.2, 0.7, 0.9: Color Object ObjNum+15,RGB(220,220,255)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, 1.66, 0.75, -0.5
      Rem Top Glass
      Make Object Box ObjNum+16, 3.52, 0.45, 1.9: Color Object ObjNum+16,RGB(220,220,255)
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, 0.0, 1.6, 0.0
      Rem Side 1 Glass (Front)
      Make Object Box ObjNum+21, 0.8, 0.45, 2.04: Color Object ObjNum+21,RGB(220,220,255)
      Glue Object To Limb ObjNum+21, ObjNum,0: Offset Limb ObjNum+21,0, 1.3, 1.6, 0.0
      Rem Side 2 Glass
      Make Object Box ObjNum+22, 0.8, 0.45, 2.04: Color Object ObjNum+22,RGB(220,220,255)
      Glue Object To Limb ObjNum+22, ObjNum,0: Offset Limb ObjNum+22,0, 0.45, 1.6, 0.0
      Rem Side 3 Glass (top rear)
      Make Object Box ObjNum+23, 0.8, 0.45, 2.04: Color Object ObjNum+23,RGB(220,220,255)
      Glue Object To Limb ObjNum+23, ObjNum,0: Offset Limb ObjNum+23,0, -0.4, 1.6, 0.0
      Rem Side 4 Glass (top rear)
      Make Object Box ObjNum+24, 0.8, 0.45, 2.04: Color Object ObjNum+24,RGB(220,220,255)
      Glue Object To Limb ObjNum+24, ObjNum,0: Offset Limb ObjNum+24,0, -1.25, 1.6, 0.0
      Rem Bottom Rear Glass
      Make Object Box ObjNum+25, 0.52, 0.45, 0.9: Color Object ObjNum+25,RGB(220,220,255)
      Glue Object To Limb ObjNum+25, ObjNum,0: Offset Limb ObjNum+25,0, -1.5, 0.7, 0.5
      Rem Side 1 Glass
      Make Object Box ObjNum+26, 0.8, 0.45, 2.04: Color Object ObjNum+26,RGB(220,220,255)
      Glue Object To Limb ObjNum+26, ObjNum,0: Offset Limb ObjNum+26,0, 0.45, 0.7, 0.0
      Rem Side 1 Glass
      Make Object Box ObjNum+27, 0.8, 0.45, 2.04: Color Object ObjNum+27,RGB(220,220,255)
      Glue Object To Limb ObjNum+27, ObjNum,0: Offset Limb ObjNum+27,0, -0.4, 0.7, 0.0
      Rem Side 1 Glass (Rear bottom)
      Make Object Box ObjNum+28, 0.8, 0.45, 2.04: Color Object ObjNum+28,RGB(220,220,255)
      Glue Object To Limb ObjNum+28, ObjNum,0: Offset Limb ObjNum+28,0, -1.25, 0.7, 0.0
      Rem Number
      Make Object Box ObjNum+29, 1.1, 0.15, 3.54: YRotate Object ObjNum+29,90: Fix Object Pivot ObjNum+29
      Glue Object To Limb ObjNum+29, ObjNum,0: Offset Limb ObjNum+29,0, 0.0, 1.25, 0.0
      Texture Object ObjNum+29,12000
    EndCase
    Case 3: Rem Pickup
      Rem Pickup Body
      Make Object Box ObjNum, 3.5, .75, 2: Color Object ObjNum,BodyColour
      Rem Roof
      Make Object Box ObjNum+1, 0.8, .6,  2: Color Object ObjNum+1,BodyColour
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, 1.05, 0.6, 0
      Rem Tarp
      Make Object Box ObjNum+2, 2.24, .3, 1.9: Color Object ObjNum+2,RGB(20,20,20)
      Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2,0, -0.56, 0.25, 0
      Rem Front Glass
      Make Object Box ObjNum+14, 0.62, 0.5, 1.95: Color Object ObjNum+14,RGB(220,220,255)
      ZRotate Object ObjNum+14,30: Fix Object Pivot ObjNum+14
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 1.33, 0.44, 0
      Rem Side Glass
      Make Object Box ObjNum+15, 0.6, 0.45, 2.02: Color Object ObjNum+15,RGB(220,220,255)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, 1.05, 0.6, 0
      Rem Rear Glass
      Make Object Box ObjNum+16, 0.5, 0.35, 1.0: Color Object ObjNum+16,RGB(220,220,255)
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, 0.89, 0.6, 0
    EndCase
    Case 4: Rem Oil Tanker
      Rem Wagon Body
      Make Object Box ObjNum, 3.5, .75, 2: Color Object ObjNum,BodyColour
      Rem Cab
      Make Object Box ObjNum+1, 0.8, .6,  2: Color Object ObjNum+1,BodyColour
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, 1.35, 0.67, 0
      Rem Tank
      Make Object Cylinder ObjNum+2,1.4: Color Object ObjNum+2,RGB(255,255,255)
      ZRotate Object ObjNum+2,90: YRotate Object ObjNum+2,210: Fix Object Pivot ObjNum+2
      Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2,0, -0.45, 1.0, 0
      Make Object Sphere ObjNum+3,1.4: Color Object ObjNum+3,RGB(255,255,255)
      Glue Object To Limb ObjNum+3, ObjNum,0: Offset Limb ObjNum+3,0, 0.25, 1.0, 0
      Make Object Sphere ObjNum+4,1.4: Color Object ObjNum+4,RGB(255,255,255)
      Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4,0, -1.2, 1.0, 0
      Rem Front Glass
      Make Object Box ObjNum+14, 0.62, 0.5, 1.95: Color Object ObjNum+14,RGB(220,220,255)
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 1.45, 0.65, 0
      Rem Side Glass
      Make Object Box ObjNum+15, 0.62, 0.5, 2.02: Color Object ObjNum+15,RGB(220,220,255)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, 1.35, 0.65, 0
      Rem Front Support
      Make Object Box ObjNum+16, 0.1, 0.5, 1.5: Color Object ObjNum+16,RGB(0,0,200)
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, 0.5, 0.65, 0
      Rem Centre Support
      Make Object Box ObjNum+21, 0.1, 0.5, 1.5: Color Object ObjNum+21,RGB(0,0,200)
      Glue Object To Limb ObjNum+21, ObjNum,0: Offset Limb ObjNum+21,0, -0.5, 0.65, 0
      Rem Rear Support
      Make Object Box ObjNum+22, 0.1, 0.5, 1.5: Color Object ObjNum+22,RGB(0,0,200)
      Glue Object To Limb ObjNum+22, ObjNum,0: Offset Limb ObjNum+22,0, -1.5, 0.65, 0
    EndCase
    Case 5: Rem Police Car
      Rem Bus Sign Texture
      If Image Exist(12001) = 0
        CLS RGB(255,255,255)
        Set Text To Bold
        Ink 0,0: Text 0,0,"  POLICE  "
        Get Image 12001,0,0,Text Width("  POLICE  "),Text Height("X")
        Set Text To Normal
      Endif
      Rem Police Car Body
      Make Object Box ObjNum, 3.5, .75, 2: Color Object ObjNum,BodyColour
      Rem White Roof
      Make Object Box ObjNum+1, 1.5, 1.2, 2.01: Color Object ObjNum+1,RGB(255,255,255)
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, 0.0, 0.2, 0
      Rem Police Sign
      Make Object Box ObjNum+2, 1.2, 0.5, 2.02: Color Object ObjNum+2,RGB(255,155,255)
      Glue Object To Limb ObjNum+2, ObjNum,0:  Offset Limb ObjNum+2,0, 0.0, 0.02, 0
      Texture Object ObjNum+2,12001
      Rem Exhaust
      Make Object Cylinder ObjNum+4,0.12: Color Object ObjNum+4,0
      ZRotate Object ObjNum+4,90: Fix Object Pivot ObjNum+4: Scale Object ObjNum+4,800,100,100
      Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4,0, -1.75, -0.45, 0.1
      Make Object Cylinder ObjNum+5,0.12: Color Object ObjNum+5,0
      ZRotate Object ObjNum+5,90: Fix Object Pivot ObjNum+5: Scale Object ObjNum+5,800,100,100
      Glue Object To Limb ObjNum+5, ObjNum,0: Offset Limb ObjNum+5,0, -1.75, -0.45, -0.1
      Rem Front Glass
      Make Object Box ObjNum+14, 0.55, 0.5,  1.95: Color Object ObjNum+14,RGB(220,220,255)
      ZRotate Object ObjNum+14,30: Fix Object Pivot ObjNum+14
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 0.65, 0.4, 0
      Rem Side Glass
      Make Object Box ObjNum+15, 1.35, 0.4, 2.03: Color Object ObjNum+15,RGB(220,220,255)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, -0.0, 0.55, 0
      Rem Rear Glass
      Make Object Box ObjNum+16, 0.55, 0.5,  1.95: Color Object ObjNum+16,RGB(220,220,255)
      ZRotate Object ObjNum+16,50: Fix Object Pivot ObjNum+16
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, -0.75, 0.4, 0
      Rem Lights
      Make Object Box ObjNum+21, 0.2, 0.4, 1.8: Color Object ObjNum+21,0
      Glue Object To Limb ObjNum+21,ObjNum,0: Offset Limb ObjNum+21,0, 0.0, 0.7, 0.0
      Make Object Box ObjNum+22, 0.25, 0.45, 0.5: Color Object ObjNum+22,RGB(255,0,0)
      Glue Object To Limb ObjNum+22,ObjNum,0: Offset Limb ObjNum+22,0, 0.0, 0.8, -0.7
      Make Object Box ObjNum+23, 0.25, 0.45, 0.5: Color Object ObjNum+23,RGB(0,0,255)
      Glue Object To Limb ObjNum+23,ObjNum,0: Offset Limb ObjNum+23,0, 0.0, 0.8, 0.7
    EndCase
    Case 6: Rem Ambulance  Reserved 6-13  17-20 Inclusive
      Rem Ambulance Sign Texture
      If Image Exist(12002) = 0
        CLS 0
        Set Text To Bold
        Ink RGB(255,255,255),0: Text 0,0," AMBULANCE "
        Get Image 12002,0,0,Text Width(" AMBULANCE "),Text Height("X")
        Set Text To Normal
      Endif
      Rem Ambulance Body
      Make Object Box ObjNum, 3.5, .75, 2: Color Object ObjNum,BodyColour
      Rem Middle Section
      Make Object Box ObjNum+1, 3.0, .9, 2: Color Object ObjNum+1,BodyColour
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, -0.25, .8, 0
      Rem Sign
      Make Object Box ObjNum+2, 1.5, .2, 3.02: YRotate Object ObjNum+2,90: Fix Object Pivot ObjNum+2
      Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2,0, -0.25, 1.1, 0
      Texture Object ObjNum+2,12002
      Rem Red Cross
      Make Object Box ObjNum+3, 0.5, .5, .2: Color Object ObjNum+3,RGB(255,0,0)
      Glue Object To Limb ObjNum+3, ObjNum,0: Offset Limb ObjNum+3,0, -1.51, 0.0, 0.0
      Make Object Box ObjNum+4, 0.5, .2, .5: Color Object ObjNum+4,RGB(255,0,0)
      Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4,0, -1.51, 0.0, 0.0
      Rem Side Glass
      Make Object Box ObjNum+5, 0.6, 0.5, 2.01: Color Object ObjNum+5,RGB(220,220,255)
      Glue Object To Limb ObjNum+5, ObjNum,0: Offset Limb ObjNum+5,0, 0.85, 0.7, 0
      Rem Front Glass
      Make Object Box ObjNum+14, 0.52, 0.5, 1.93: Color Object ObjNum+14,RGB(220,220,255)
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 1.0, 0.7, 0
      Rem Rear Glass 1
      Make Object Box ObjNum+15, 0.13, 0.5, 0.8: Color Object ObjNum+15,RGB(120,120,155)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, -1.7, 0.70, 0.5
      Rem Rear Glass 2
      Make Object Box ObjNum+16, 0.13, 0.5, 0.8: Color Object ObjNum+16,RGB(120,120,155)
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, -1.7, 0.70, -0.5
      Rem Lights
      Make Object Box ObjNum+21, 0.11, 0.4, 1.8: Color Object ObjNum+21,RGB(255,255,255)
      Glue Object To Limb ObjNum+21,ObjNum,0: Offset Limb ObjNum+21,0, 1.0, 1.15, 0.0
      Make Object Box ObjNum+22, 0.13, 0.45, 0.5: Color Object ObjNum+22,RGB(255,200,0)
      Glue Object To Limb ObjNum+22,ObjNum,0: Offset Limb ObjNum+22,0, 1.0, 1.2, -0.68
      Make Object Box ObjNum+23, 0.13, 0.45, 0.5: Color Object ObjNum+23,RGB(255,200,0)
      Glue Object To Limb ObjNum+23,ObjNum,0: Offset Limb ObjNum+23,0, 1.0, 1.2, 0.68
      Rem Side Cross
      Make Object Box ObjNum+24, 0.3, 0.7, 2.02: Color Object ObjNum+24,RGB(255,0,0)
      Glue Object To Limb ObjNum+24, ObjNum,0: Offset Limb ObjNum+24,0, -0.5, 0.7, 0.0
      Make Object Box ObjNum+25, 0.7, 0.3, 2.02: Color Object ObjNum+25,RGB(255,0,0)
      Glue Object To Limb ObjNum+25, ObjNum,0: Offset Limb ObjNum+25,0, -0.5, 0.7, 0.0
    EndCase
    Case 7: Rem Convertible      Reserved 6-13  17-20 Inclusive
      Rem Convertible Wheel Texture
      If Image Exist(12003) = 0
        TS = Text Size()
        CLS 0
        Ink RGB(22,22,22),0
        For N = 22 To 30
          Circle 32,32,N: Circle 33,32,N
          Circle 32,32,N-29: Circle 33,32,N-29
        Next N
        Set Text Size 48
        Text 12,0,"Y"
        Sync
        Get Image 12003,0,0,64,64,1
        Set Text Size TS
      Endif
      Rem Convertible Body
      Make Object Box ObjNum, 3.49, .2, 2: Color Object ObjNum,BodyColour
      Position Object ObjNum, 0, -1.6, 0
      Rem Sides
      Make Object Box ObjNum+1, 3.51, .55, .4: Color Object ObjNum+1,BodyColour
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1, 0, 0.0, 0.11, -0.81
      Make Object Box ObjNum+2, 3.51, .55, .4: Color Object ObjNum+2,BodyColour
      Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2, 0, 0.0, 0.11, 0.81
      Rem Boot
      Make Object Box ObjNum+3, 1.0, .4, 1.22: Color Object ObjNum+3,BodyColour
      ZRotate Object ObjNum+3,6: Fix Object Pivot ObjNum+3
      Glue Object To Limb ObjNum+3, ObjNum,0: Offset Limb ObjNum+3, 0, -1.26, 0.23, 0.0
      Rem Bonnet
      Make Object Box ObjNum+4, 1.8, .4, 1.22: Color Object ObjNum+4,BodyColour
      ZRotate Object ObjNum+4,178: Fix Object Pivot ObjNum+4
      Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4, 0, 0.86, 0.23, 0.0
      Make Object Box ObjNum+5, 1.0, 0.4, 0.4: Color Object ObjNum+5,BodyColour
      ZRotate Object ObjNum+5,4: Fix Object Pivot ObjNum+5
      Glue Object To Limb ObjNum+5, ObjNum,0: Offset Limb ObjNum+5, 0, 0.86, 0.3, 0.0
      Rem Exhaust
      Make Object Cylinder ObjNum+14,0.16: Color Object ObjNum+14,0
      ZRotate Object ObjNum+14,90: Fix Object Pivot ObjNum+14: Scale Object ObjNum+14,800,100,100
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, -1.75, -0.01, 0.1
      Make Object Cylinder ObjNum+15,0.16: Color Object ObjNum+15,0
      ZRotate Object ObjNum+15,90: Fix Object Pivot ObjNum+15: Scale Object ObjNum+15,800,100,100
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, -1.75, -0.01, -0.1
      Rem Front Glass
      Make Object Box ObjNum+21, 0.04, 0.5, 1.2: Color Object ObjNum+21,RGB(120,120,170)
      ZRotate Object ObjNum+21,40: Fix Object Pivot ObjNum+21
      Glue Object To Limb ObjNum+21, ObjNum,0: Offset Limb ObjNum+21,0, 0.0, 0.6, 0
      Ghost Object On ObjNum+21
      Rem Seat
      Make Object Box ObjNum+22, 0.2, 0.4, 1.2: Color Object ObjNum+22,RGB(80,30,0)
      ZRotate Object ObjNum+22,6: Fix Object Pivot ObjNum+22
      Glue Object To Limb ObjNum+22, ObjNum,0: Offset Limb ObjNum+22, 0, -0.7, 0.23, 0.0
      Make Object Box ObjNum+23, 0.4, 0.2, 1.2: Color Object ObjNum+23,RGB(80,30,0)
      Glue Object To Limb ObjNum+23, ObjNum,0: Offset Limb ObjNum+23, 0, -0.4, 0.1, 0.0
      Make Object Plain ObjNum+24, 0.4, 0.4: Texture Object ObjNum+24,12003
      YRotate Object ObjNum+24,90: ZRotate Object ObjNum+24,168: Fix Object Pivot ObjNum+24
      Glue Object To Limb ObjNum+24, ObjNum, 0: Offset Limb ObjNum+24, 0, -0.1, 0.4, 0.3
      Set Object ObjNum+24, 1, 0, 0
    EndCase
  EndSelect
  Rem ****** Parts Common To All Vehicles ******
  Rem Front Right Wheel
  Make Object Cylinder ObjNum+6,0.7: Color Object ObjNum+6,0
  XRotate Object ObjNum+6,90: Fix Object Pivot ObjNum+6
  Glue Object To Limb ObjNum+6, ObjNum,0: Offset Limb ObjNum+6,0, 1.25, -0.2, -0.7
  Make Object Cylinder ObjNum+7,0.5: Color Object ObjNum+7,RGB(160,160,160)
  XRotate Object ObjNum+7,90: Fix Object Pivot ObjNum+7
  Glue Object To Limb ObjNum+7, ObjNum,0: Offset Limb ObjNum+7,0, 1.25, -0.2, -0.82
  Rem Front Left Wheel
  Make Object Cylinder ObjNum+8,0.7: Color Object ObjNum+8,0
  XRotate Object ObjNum+8,90: Fix Object Pivot ObjNum+8
  Glue Object To Limb ObjNum+8, ObjNum,0: Offset Limb ObjNum+8,0, 1.25, -0.2, 0.7
  Make Object Cylinder ObjNum+9,0.5: Color Object ObjNum+9,RGB(160,160,160)
  XRotate Object ObjNum+9,90: Fix Object Pivot ObjNum+9
  Glue Object To Limb ObjNum+9, ObjNum,0: Offset Limb ObjNum+9,0, 1.25, -0.2, 0.82
  Rem Back Right Wheel
  Make Object Cylinder ObjNum+10,0.7: Color Object ObjNum+10,0
  XRotate Object ObjNum+10,90: Fix Object Pivot ObjNum+10
  Glue Object To Limb ObjNum+10, ObjNum,0: Offset Limb ObjNum+10,0, -1.25, -0.2, -0.7
  Make Object Cylinder ObjNum+11,0.5: Color Object ObjNum+11,RGB(160,160,160)
  XRotate Object ObjNum+11,90: Fix Object Pivot ObjNum+11
  Glue Object To Limb ObjNum+11, ObjNum,0: Offset Limb ObjNum+11,0, -1.25, -0.2, -0.82
  Rem Back Left Wheel
  Make Object Cylinder ObjNum+12,0.7: Color Object ObjNum+12,0
  XRotate Object ObjNum+12,90: Fix Object Pivot ObjNum+12
  Glue Object To Limb ObjNum+12, ObjNum,0: Offset Limb ObjNum+12,0, -1.25, -0.2, 0.7
  Make Object Cylinder ObjNum+13,0.5: Color Object ObjNum+13,RGB(160,160,160)
  XRotate Object ObjNum+13,90: Fix Object Pivot ObjNum+13
  Glue Object To Limb ObjNum+13, ObjNum,0: Offset Limb ObjNum+13,0, -1.25, -0.2, 0.82
  Rem Brake Lights
  Make Object Cylinder ObjNum+17,0.12: Color Object ObjNum+17,RGB(128,0,0)
  ZRotate Object ObjNum+17,90: Fix Object Pivot ObjNum+17: Scale Object ObjNum+17,800,100,100
  Glue Object To Limb ObjNum+17, ObjNum,0: Offset Limb ObjNum+17,0, -1.72, 0.28, 0.87
  Make Object Cylinder ObjNum+18,0.12: Color Object ObjNum+18,RGB(128,0,0)
  ZRotate Object ObjNum+18,90: Fix Object Pivot ObjNum+18: Scale Object ObjNum+18,800,100,100
  Glue Object To Limb ObjNum+18, ObjNum,0: Offset Limb ObjNum+18,0, -1.72, 0.28, -0.87
  Rem Headlights
  Make Object Cylinder ObjNum+19,0.3: Color Object ObjNum+19,RGB(255,255,0)
  ZRotate Object ObjNum+19,90: Fix Object Pivot ObjNum+19: Scale Object ObjNum+19,800,100,100
  Glue Object To Limb ObjNum+19, ObjNum,0: Offset Limb ObjNum+19,0, 1.64, 0.20, 0.80
  Make Object Cylinder ObjNum+20,0.3: Color Object ObjNum+20,RGB(255,255,0)
  ZRotate Object ObjNum+20,90: Fix Object Pivot ObjNum+20: Scale Object ObjNum+20,800,100,100
  Glue Object To Limb ObjNum+20, ObjNum,0: Offset Limb ObjNum+20,0, 1.64, 0.20, -0.80
  Rem Apply Lighting
  For N=ObjNum To ObjNum+49
    If Object Exist(N)
      Set Object Ambient N,RGB(48,48,48)
      Set Object Diffuse N,RGB(64,64,64)
      Set Object Emissive N,RGB(0,0,0)
      Set Object Specular N,RGB(128,128,128),50
    Endif
  Next N
  YRotate Object ObjNum,180.0: Fix Object Pivot ObjNum
EndFunction

Function MakeGradient(ImgNum,Size,Red#,Green#,Blue#,EndRed,EndGreen,EndBlue)
  Rem TDK's Colour Gradient Function
  Rem Creates a gradient of size 'Size' starting at colour R,G,B and ending at R2, G2, B2
  Rem Note: Red, Green & Blue need to be floats for the calculations even though they are used in the
  Rem RGB function which normally requires integers. The end R,G & B are integers as normal.
  RedRatio# = ABS((EndRed-Red#) / 255): If EndRed < Red# Then RedRatio# = 0-RedRatio#
  GreenRatio# = ABS((EndGreen-Green#) / 255): If EndGreen < Green# Then GreenRatio# = 0-GreenRatio#
  BlueRatio# = ABS((EndBlue-Blue#) / 255): If EndBlue < Blue# Then BlueRatio# = 0-BlueRatio#
  For N=0 To Size
    Ink RGB(Red#,Green#,Blue#),0
    Line 0,N,Size,N
    Inc Red#,RedRatio#
    Inc Green#,GreenRatio#
    Inc Blue#,BlueRatio#
  Next N
  Get Image ImgNum,0,0,Size+1,Size*2: Rem Grab Gradient Into An Image
EndFunction

Function MakeClouds(ImgNum,Size)
  Rem TDK's Cloud Texture Function
  CLS 0: Ink RGB(255,255,255),0
  For N = 0 To 16
    Circle 20,20,N
    Circle 21,20,N
  Next N
  Get Image ImgNum,21,0,42,42
  For N = 0 To 22
    Paste Image ImgNum,22+N,0
  Next N
  Blur Bitmap 1,1
  Get Image ImgNum,0,0,65,42
  Sync
  CLS
  For N1=1 To 20
    X=Rnd(192)+10: Y=Rnd(100) + 60
    Paste Image ImgNum,X,Y,1
  Next N1
  Blur Bitmap 1,8
  Blur Bitmap 1,8
  Get Image ImgNum,0,0,Size+16,Size*1.8: Rem Grab Gradient Into An Image
EndFunction

Function Normalise(MatNum,MatWid,MatHig,Shading#)
  Rem By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
  For z=1 to MatWid
    For x=1 to MatHig
      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)*Shading#
      y1#=h#
      x2#=(x+0)*Shading#
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*Shading#
      y1#=h2#
      z2#=(z+0)*Shading#
      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
EndFunction

Function CarDistance(CarNum)
  CarPosX = Object Position X(CarNum*100+5000)
  Dx# = CarPosX - Waypoints#(CarNum,  CurrentWayPoint(CarNum),  0)
  rem Dy# = Object Position Y(CarNum)-5.0
  CarPosZ = Object Position Z(CarNum*100+5000)
  Dz# = CarPosZ - Waypoints#(CarNum,CurrentWayPoint(CarNum),1)
  Dist# = Sqrt((Dx#*Dx#)+0+(Dz#*Dz#))
EndFunction Dist#

Function Tilt_Object(ObjNum,MatNum,Ox#,Oy#,Oz#,ObjWid#,ObjHig#,ObjDep#)

Rem The Calculations...
  OAy# = Object Angle Y(ObjNum): DirX# = Sin(OAy#): DirZ# = Cos(OAy#)
  rem Text 500,10,Str$(OAy#)

Rem Get Matrix Height At Front Of Box
  FX# = Ox# + (ObjDep#/2.0) * DirX#: FZ# = Oz# + (ObjDep#/2.0) * DirZ#
  FrontY# = Get Ground Height(MatNum,FX#,FZ#)
  Position Object 2001, FX#, FrontY# + ObjHig#+1.5, FZ#
  Rem Get Matrix Height At Back Of Box
  BX# = Ox# - (ObjDep#/2.0) * DirX#: BZ# = Oz# - (ObjDep#/2.0) * DirZ#
  BackY# = Get Ground Height(MatNum,BX#,BZ#)
  Position Object 2002, BX#, BackY# + ObjHig#+1.5, BZ#
  Rem Get Matrix Height At Left Of Box
  LX# = Ox# - (ObjWid#/2.0) * DirZ#: LZ# = Oz# + (ObjWid#/2.0) * DirX#
  LeftY# = Get Ground Height(MatNum,LX#,LZ#)
  Position Object 2003, LX#, LeftY# + ObjHig#+1.5, LZ#
  Rem Get Matrix Height At Right Of Box
  RX# = Ox# + (ObjWid#/2.0) * DirZ#: RZ# = Oz# - (ObjWid#/2.0) * DirX#
  RightY# = Get Ground Height(MatNum,RX#,RZ#)
  Position Object 2004, RX#, RightY# + ObjHig#+1.5, RZ#

Rem Set Object Rotation ZYX ObjNum
  Rem Set Object Rotation XYZ ObjNum
  Rem XATF = WrapValue(Atanfull(FZ#-BZ#, FrontY#-BackY#))
  Rem ZATF = WrapValue(Atanfull(LX#-RX#, LeftY#-RightY#))

If (OAy# > 0.0 And OAy# < 90.0) Or OAy# > 270.0: Rem Upish
    Rem XATF = WrapValue(Atanfull(FZ#-BZ#, FrontY#-BackY#)-90)
    Rem Xrotate Object ObjNum, XATF
    If OAy# > 270.0: Rem Up Leftish
      Rem ZATF = WrapValue(Atanfull(LX#-RX#,LeftY#-RightY#)+90)
      rem Zrotate Object ObjNum,ZATF-90
      rem Text 420,10,"Up Left      "
      XATF = WrapValue(XATF-0)
      ZATF = WrapValue(ZATF-0)
    Endif
    If OAy# > 0.0 And OAy# < 90.0: Rem Up Rightish
      Rem ZATF = WrapValue(Atanfull(RX#-LX#,RightY#-LeftY#)-90)
      XATF = WrapValue(XATF-0)
      ZATF = WrapValue(ZATF-0)
      rem Text 420,10,"Up Right      "
      Rem Zrotate Object ObjNum,ZATF-270
    Endif
  Endif

If OAy# > 90.0 And OAy# < 270.0: Rem Downish
    Rem XATF = WrapValue(Atanfull(BZ#-FZ#, BackY#-FrontY#)+90)
    Rem Xrotate Object ObjNum, XATF
    If OAy# < 180.0: Rem Down Rightish
      XATF = WrapValue(XATF-0)
      ZATF = WrapValue(ZATF-0)
      rem Text 420,10,"Down Right      "
      Rem Zrotate Object ObjNum,ZATF
    Endif
    If OAy# > 180.0 And OAy# < 270.0: Rem Down Leftish
      rem Text 420,10,"Down Left      "
      XATF = WrapValue(XATF-0)
      ZATF = WrapValue(ZATF-0)
      Rem ZATF = WrapValue(Atanfull(LX#-RX#,LeftY#-RightY#)+90)
      Rem Zrotate Object ObjNum,ZATF
    Endif
  Endif

If OAy#=0.0: Rem Exactly Up
    XATF = WrapValue(Atanfull(FZ#-BZ#, FrontY#-BackY#)-90)
    ZATF = WrapValue(Atanfull(LX#-RX#, LeftY#-RightY#)-270)
    Xrotate Object ObjNum,WrapValue(XATF)
    Zrotate Object ObjNum,WrapValue(ZATF)
    rem Text 420,10,"Up             "
  Endif

If OAy#=180.0: Rem Exactly Down
    XATF = WrapValue(Atanfull(FZ#-BZ#, FrontY#-BackY#)-270)
    ZATF = WrapValue(Atanfull(LX#-RX#, LeftY#-RightY#)-90)
    Xrotate Object ObjNum,WrapValue(XATF)
    rem Text 420,10,"Down           "
  Endif

If OAy#=90.0: Rem Exactly Right
    Rem Set Object Rotation ZYX ObjNum
    Rem XATF = WrapValue(Atanfull(LZ#-RZ#, LeftY#-RightY#)-90)
    ZATF = ABS(Atanfull(FX#-BX#, FrontY#-BackY#)-90)
    Rem Xrotate Object ObjNum, WrapValue(ZATF)
    Zrotate Object ObjNum,WrapValue(ZATF)
    rem Text 420,10,"Right          "
    Rem Set Object Rotation XYZ ObjNum
  Endif

If OAy#=270.0: Rem Exactly Left
    XATF = WrapValue(Atanfull(FZ#-BZ#, FrontY#-BackY#)-270)
    ZATF = WrapValue(Atanfull(LX#-RX#, LeftY#-RightY#)-90)
    Zrotate Object ObjNum,WrapValue(ZATF)
    rem Text 420,10,"Left           "
  Endif

remstart
  Rem Old version
  If OAy# <= 90 Or OAy# >= 270: Rem Pointing North
    XATF = WrapValue(Atanfull(Back#-Front#,FZ#-BZ#))
    Xrotate Object ObjNum, XATF
  Else: Rem Pointing South
    Rem XATF = WrapValue(Atanfull(Front#-Back#,BZ#-FZ#))
    Rem Xrotate Object ObjNum, XATF
  Endif
  If OAy# >= 180: Rem Pointing West
    Rem ZATF = WrapValue(Atanfull(BX#-FX#,Back#-Front#)-180)
    Rem ZATF = Wrapvalue(Atanfull(Left#-Right#,FX#-BX#)-180)
    Rem Zrotate Object ObjNum, ZATF
  Else: Rem Pointing East
    ZATF = WrapValue(Atanfull(FX#-BX#,Front#-Back#)-90)
    Zrotate Object ObjNum,ZATF
    Rem ZATF = Wrapvalue(Atanfull(Right#-Left#,BX#-FX#)-180)
    rem Zrotate Object ObjNum, Wrapvalue(Atanfull(Left#-Right#,FX#-BX#))
  Endif
  rem Set Object Rotation XYZ ObjNum
  remend

rem Text 10,10,"Front: "+Str$(FrontY#)+"   Back: "+Str$(BackY#)+"   F-B: "+Str$(FrontY# - BackY#)+"   X ATF: "+Str$(XATF)
  rem Text 10,26,"Left: "+Str$(LeftY#)+"   Right: "+Str$(RightY#)+"   L-R: "+Str$(LeftY# - RightY#)+"   Z ATF: "+Str$(ZATF)
  rem Text 10,10,"X ATF: "+Str$(XATF)
  rem Text 10,26,"Z ATF: "+Str$(ZATF)

Position Object ObjNum,Ox#,Oy#+(ObjHig#/2.0),Oz#
  Rem  Front#   Rear#   Left#   Right#  Back#-Front#  Front#-Back#  FX#-BX# BX#-FX#
endfunction

+ Code Snippet

Gosub Setup
rem Gosub Splash_Screen
Gosub Main_Menu

Rem Main Program Loop
Do
  Rem Gosub Generate Random Track
  If Test = True
    Gosub Test_Lap
    Gosub Main_Menu
  Else
    Rem Gosub Generate_Track
    Rem Gosub Race
    Rem Gosub HighScores
    Rem Gosub Main_Menu
  Endif
  Sync
Loop
end

Rem ******************************************************************************************
Rem ***                                  PROCEDURES                                        ***
Rem ******************************************************************************************

Test_Lap:
  Set Camera View 0,0,800,600
  GH# = Get Ground Height(1,512,218)+1.0
  Position Camera 512,GH#,218
  Yrotate Camera 90
  Set Camera Range 1.0,2048.0
  Position Object 7002,512,GH#,218
  Show Object 7000
  Show Object 7001
  Show Object 7002

  End

  rem FadeType = 1: Gosub Fader
  Repeat
    CX#=Camera Angle X(): CY#=Camera Angle Y(): CZ#=Camera Angle Z()
    CY#=Wrapvalue(CY#+mousemovex())
    CX#=Wrapvalue(CX#+mousemovey())
    Rotate Camera CX#,CY#,CZ#
    If MouseClick() = 1 Then Move Camera 1.5
    If MouseClick() = 2 Then Move Camera -1.5
    GH# = Get Ground Height(1,Camera Position X(),Camera Position Z())+1.0
    Rem Position Camera Camera Position X(),GH#,Camera Position Z()
    YRotate Object 2,WrapValue(Object Angle Y(2)+0.02)
    Position Object 1,Camera Position X(),Camera Position Y(),Camera Position Z()
    Position Object 2,Camera Position X(),Camera Position Y(),Camera Position Z()
    Sync
  Until EndRace=True
  FadeType = 0: Gosub Fader
Return

Select_Car:
  Set Text Size 16
  CLS 0: Sync
  Set Camera View 0,0,800,600
  Show Sprite 1: Show Sprite 2: Show Sprite 3: Show Sprite 4

  If Object Exist(20000+N) = 0 Then Gosub Showroom_Vehicles
  Position Camera 0,3,-29
  Point Camera VSpotX#(0),0.0,VSpotZ#(0)
  FadeType = 1: Gosub Fader
  ChoseCar = False
  Repeat
    Mx=MouseX(): My=MouseY(): Mc=MouseClick()

    For N = 0 To 7
      YRotate Object 20000+N,WrapValue(Object Angle Y(20000)+.4): Rem Platform
      YRotate Object N * 100 + 5000,WrapValue(Object Angle Y(CurrentVehicle * 100 + 5000)+.4)
      YRotate Object N * 100 + 5050,WrapValue(Object Angle Y(CurrentVehicle * 100 + 5050)+.4)
    Next N

    If LeftKey()=1 Or (My>549 And Mx>0 And Mx<51 And Mc=1): Rem Previous Car
      RotRight = False
      Gosub Rotate_Stock
      Dec CurrentVehicle
      If CurrentVehicle < 0 Then CurrentVehicle = MaxVehicle
      Repeat
      Until LeftKey()=0 And MouseClick()=0
    Endif

    If RightKey()=1 Or (My>549 And Mx>749 And Mx<800 And Mc=1): Rem Next Car
      RotRight = True
      Gosub Rotate_Stock
      Inc CurrentVehicle
      If CurrentVehicle > MaxVehicle Then CurrentVehicle = 0
      Repeat
      Until RightKey()=0 And MouseClick()=0
    Endif

    If ReturnKey()=1 Or (My>549 And Mx>285 And Mx<515 And Mc=1): Rem I Want This One!
      ChoseCar = True
      Repeat
      Until ReturnKey()=0 And MouseClick()=0
    Endif

    Sync
    Gosub Screen_Messages

  Until ChoseCar = True
  Hide Sprite 1: Hide Sprite 2: Hide Sprite 3: Hide Sprite 4
  Set Camera View 0,0,1,1
  CLS: Sync
Return

Hide_All_Cars:
  For N = 5050 To 5999
    If Object Exist(N) Then Hide Object N
  Next N
Return

Splash_Screen:
  rem Gosub Hide_All_Cars
  Set Text Size 42: Sync
  Set Gamma 0,0,0: Wait_Time(3)
  Ink RGB(255,150,0),0: Center Text 400,200,"<< ICTOAT RACING >>"
  Ink RGB(255,255,0),0: Center Text 398,198,"<< ICTOAT RACING >>"
  Rem 1=Fade In  0=Fade Out
  FadeType = 1: Gosub Fader: Wait_Time(3)
  FadeType = 0: Gosub Fader: CLS
  Set Text Size 32: Sync
  Ink RGB(0,0,255),0: Center Text 402,202,"DBC Programming Challenge Entry"
  Ink RGB(255,255,255),0: Center Text 400,200,"DBC Programming Challenge Entry"
  Ink RGB(0,0,255),0: Center Text 402,252,"July/August 2009"
  Ink RGB(255,255,255),0: Center Text 400,250,"July/August 2009"
  FadeType = 1: Gosub Fader: Wait_Time(2)
  FadeType = 0: Gosub Fader: CLS
  Ink RGB(255,0,255),0: Center Text 402,202,"Written By TDK_Man"
  Ink RGB(255,255,255),0: Center Text 400,200,"Written By TDK_Man"
  FadeType = 1: Gosub Fader: Wait_Time(2)
  FadeType = 0: Gosub Fader
  CLS 0: Sync: Sync
Return

Fader:
  Select FadeType
    Case 0
      Rem Fade Out
      Done=0: T=Timer()
      EndTime#=T+(2000)
      Step#=EndTime#-T
      Repeat
        CurT#=Timer()-T
        Ratio#=CurT#/Step#
        RGBVal=255-(255*Ratio#)
        If RGBVal<0 then RGBVal=0 : Done=1
        Set Gamma RGBVal,RGBVal,RGBVal
        Sync
      Until Done=1
    EndCase
    Case 1
      Rem Fade In
      Done=0: T=Timer()
      EndTime#=T+(2000)
      Step#=EndTime#-T
      Repeat
        CurT#=Timer()-T
        Ratio#=CurT#/Step#
        RGBVal=(255*Ratio#)
        If RGBVal>255 then RGBVal=255 : Done=1
        Set Gamma RGBVal,RGBVal,RGBVal
        Sync
      Until Done=1
    EndCase
  EndSelect
Return

Main_Menu:
  Rem Main Menu
  Show Mouse
  Set Text Size 36: Sync
  MM$(0) = "Select Car"
  MM$(1) = "Game Options"
  MM$(2) = "Test Lap"
  MM$(3) = "Start Race"
  MM$(4) = "Exit Game"
  Rem MM$(5) = "HiScores"

  Ink RGB(255,100,0),0: Center Text 402,12,"Main Menu"
  Ink RGB(255,255,0),0: Center Text 400,10,"Main Menu"
      For N = 0 To 4
        Ink RGB(0,0,255),0: Center Text 402,N*70+132,MM$(N)
        If N = Selection
          Ink RGB(255,255,255),0
        Else
          Ink RGB(0,255,255),0
        Endif
        Center Text 400,N*70+130,MM$(N)
      Next N

  FadeType = 1: Gosub Fader: Rem Fade In
  Done = False: OldSelection = -1: Selection = 0

  Repeat
    Mx=MouseX(): My=MouseY()
    Selection = (My-130) / 70
    If Selection <> OldSelection
      For N = 0 To 4
        Ink RGB(0,0,255),0: Center Text 402,N*70+132,MM$(N)
        If N = Selection
          Ink RGB(255,255,255),0
        Else
          Ink RGB(0,255,255),0
        Endif
        Center Text 400,N*70+130,MM$(N)
      Next N
      Sync
    Endif

    If ReturnKey()=1 Or MouseClick()=1
      Select Selection
        Case 0
          FadeType = 0: Gosub Fader: CLS
          Gosub Select_Car
          Set Text Size 36: Sync
          Ink RGB(255,100,0),0: Center Text 402,12,"Main Menu"
          Ink RGB(255,255,0),0: Center Text 400,10,"Main Menu"
          Done = False: OldSelection = -1: Selection = 0
        EndCase
        Case 1
          Gosub Options
        EndCase
        Case 2
          Test = True: Done = True: Rem Exit Main Menu For test Lap...
        EndCase
        Case 3
          Test = False: Done = True: Rem Exit Main Menu To Race...
        EndCase
        Case 4
          End
        EndCase
      EndSelect
    Endif
    Repeat
      Sync
    Until MouseClick()=0
  Until Done = True
  rem FadeType = 0: Gosub Fader: Rem Fade In
  Hide Mouse
Return

Options:
  Rem Options Screen
Return

Select_Car2:
  Rem Select Car
  ChoseCar = False
  Repeat
    For N = 0 To 7
      YRotate Object 20000+N,WrapValue(Object Angle Y(20000)+.4): Rem Platform
      YRotate Object N * 100 + 5000,WrapValue(Object Angle Y(CurrentVehicle * 100 + 5000)+.4)
      YRotate Object N * 100 + 5050,WrapValue(Object Angle Y(CurrentVehicle * 100 + 5050)+.4)
    Next N

    If LeftKey()=1: Rem Previous Car
      RotRight = False
      Gosub Rotate_Stock
      Dec CurrentVehicle
      If CurrentVehicle < 0 Then CurrentVehicle = MaxVehicle
      Repeat
      Until LeftKey()=0
    Endif

    If RightKey()=1: Rem Next Car
      RotRight = True
      Gosub Rotate_Stock
      Inc CurrentVehicle
      If CurrentVehicle > MaxVehicle Then CurrentVehicle = 0
      Repeat
      Until RightKey()=0
    Endif

    If ReturnKey()=1: Rem I Want This One!
      ChoseCar = True
      Repeat
      Until ReturnKey()=0
    Endif

    Sync
    Gosub Screen_Messages
  Until ChoseCar = True
  End
Return

Rotate_Stock:
  Rem Rotate Stock 45 degrees clockwise at 15x3 degrees
  If RotRight = False
    RA# = 3.0
  Else
    RA# = -3.0
  Endif
  For I = 0 To 14
    For N = 0 To 7
      X#(N) = WrapValue(X#(N) + RA#): Z#(N) = WrapValue(Z#(N) + RA#)
      VSpotX#(N) = newxvalue(0,X#(N),Radius#): VSpotZ#(N) = newzvalue(0,Z#(N),Radius#)
      Position Object 20000+N, VSpotX#(N), 0.0, VSpotZ#(N): Rem Base
      Position Object 20100+N, VSpotX#(N), 0.0, VSpotZ#(N): Rem Mask
      Position Object N*100+5000, VSpotX#(N), 0.65, VSpotZ#(N): Rem Top Vehicle
      Position Object N*100+5050, VSpotX#(N), -0.5, VSpotZ#(N): Rem Bottom Vehicle
    Next N
    Sync
    Gosub Screen_Messages
  Next I
Return

Setup:
  Set Display Mode 800,600,32
  Sync On: Sync Rate 0: Sync
  Randomize 283479834
  Autocam Off
  Set Ambient Light 50

  Dim VSpotX#(9): Dim VSpotZ#(9): Dim X#(9): Dim Z#(9): Dim MM$(5)
  Dim Waypoints#(7,180,1)
  Dim CurrentWayPoint(7)
  Dim Speed#(7)
  Dim TopSpeed#(7)
  Dim Accell#(7)

  Dim Vehicle$(9,9): Rem 0=Name 1=Accel 2=Top Speed 3=Weapon 4=Damage 5=Shield 6=Nitro 7-Fuel 8-Special
  Vehicle$(0,0) = "Hillman Imp Sportster":   Rem Name
  Vehicle$(0,1) = "6":                       Rem Accel
  Vehicle$(0,2) = "120":                     Rem Top Speed
  Vehicle$(0,3) = "Machine Gun":             Rem Weapon
  Vehicle$(0,4) = "1":                       Rem Damage
  Vehicle$(0,5) = "16":                      Rem Shield
  Vehicle$(0,6) = "4":                       Rem Nitro
  Vehicle$(0,7) = "200":                     Rem Fuel
  Vehicle$(0,8) = "Smoke Pod":               Rem Special

  Vehicle$(1,0) = "Mr Whippy Ice Cream Van": Rem Name
  Vehicle$(1,1) = "4":                       Rem Accel
  Vehicle$(1,2) = "100":                     Rem Top Speed
  Vehicle$(1,3) = "Freeze Gun":              Rem Weapon
  Vehicle$(1,4) = "3":                       Rem Damage
  Vehicle$(1,5) = "20":                      Rem Shield
  Vehicle$(1,6) = "6":                       Rem Nitro
  Vehicle$(1,7) = "250":                     Rem Fuel
  Vehicle$(1,8) = "Slush Puppy Spray":       Rem Special

  Vehicle$(2,0) = "London Bus":              Rem Name
  Vehicle$(2,1) = "3":                       Rem Accel
  Vehicle$(2,2) = "85":                      Rem Top Speed
  Vehicle$(2,3) = "Spud Gun":                Rem Weapon
  Vehicle$(2,4) = "2":                       Rem Damage
  Vehicle$(2,5) = "180":                     Rem Shield
  Vehicle$(2,6) = "5":                       Rem Nitro
  Vehicle$(2,7) = "350":                     Rem Fuel
  Vehicle$(2,8) = "None":                    Rem Special

  Vehicle$(3,0) = "Ford Pickup":             Rem Name
  Vehicle$(3,1) = "4":                       Rem Accel
  Vehicle$(3,2) = "110":                     Rem Top Speed
  Vehicle$(3,3) = "Ray Gun":                 Rem Weapon
  Vehicle$(3,4) = "7":                       Rem Damage
  Vehicle$(3,5) = "25":                      Rem Shield
  Vehicle$(3,6) = "8":                       Rem Nitro
  Vehicle$(3,7) = "150":                     Rem Fuel
  Vehicle$(3,8) = "Cargo Bomb":              Rem Special

  Vehicle$(4,0) = "Oil Tanker":              Rem Name
  Vehicle$(4,1) = "2":                       Rem Accel
  Vehicle$(4,2) = "90":                      Rem Top Speed
  Vehicle$(4,3) = "Homing Missile":          Rem Weapon
  Vehicle$(4,4) = "6":                       Rem Damage
  Vehicle$(4,5) = "120":                     Rem Shield
  Vehicle$(4,6) = "9":                       Rem Nitro
  Vehicle$(4,7) = "350":                     Rem Fuel
  Vehicle$(4,8) = "Oil Slick":               Rem Special

  Vehicle$(5,0) = "US Police Car":           Rem Name
  Vehicle$(5,1) = "5":                       Rem Accel
  Vehicle$(5,2) = "130":                     Rem Top Speed
  Vehicle$(5,3) = "Magnum 45":               Rem Weapon
  Vehicle$(5,4) = "3":                       Rem Damage
  Vehicle$(5,5) = "40":                      Rem Shield
  Vehicle$(5,6) = "3":                       Rem Nitro
  Vehicle$(5,7) = "180":                     Rem Fuel
  Vehicle$(5,8) = "Tazer Gun":               Rem Special

  Vehicle$(6,0) = "UK Ambulance":            Rem Name
  Vehicle$(6,1) = "4":                       Rem Accel
  Vehicle$(6,2) = "125":                     Rem Top Speed
  Vehicle$(6,3) = "Sleep Gun":               Rem Weapon
  Vehicle$(6,4) = "8":                       Rem Damage
  Vehicle$(6,5) = "35":                      Rem Shield
  Vehicle$(6,6) = "4":                       Rem Nitro
  Vehicle$(6,7) = "250":                     Rem Fuel
  Vehicle$(6,8) = "Shrink Lights":           Rem Special

  Vehicle$(7,0) = "TDK Convertible":         Rem Name
  Vehicle$(7,1) = "6":                       Rem Accel
  Vehicle$(7,2) = "140":                     Rem Top Speed
  Vehicle$(7,3) = "Rocket Launcher":         Rem Weapon
  Vehicle$(7,4) = "12":                      Rem Damage
  Vehicle$(7,5) = "30":                      Rem Shield
  Vehicle$(7,6) = "2":                       Rem Nitro
  Vehicle$(7,7) = "100":                     Rem Fuel
  Vehicle$(7,8) = "Stealth Mode":            Rem Special

  True = 1: False = 0: MaxVehicle = 7

  For N=0 To MaxVehicle
    Speed#(N) = 0.0
    Accell#(N) = VAL(Vehicle$(N,1))/400.0
    TopSpeed#(N) = VAL(Vehicle$(N,2))/100.0
  Next N

  Gosub Make_Textures
  Gosub Make_Objects
  Gosub Make_Sprites

  Rem Rotation Variables
  Radius#=22.0: AngleInc=45: Angle# = 135.0
  For N = 0 To MaxVehicle
    X#(N) = Angle#: Z#(N) = Angle#: Rem Start Angles
    Angle# = WrapValue(Angle# + 45.0)
  Next N

  Backdrop On: Color Backdrop 0
  Set Camera Range 1.0,2048.0
  Hide Mouse

  Position Camera 452,Get Ground Height(1,452,173)+8,173
  Rotate Camera 15,50,0

  GH# = Get Ground Height(1,512,207)
  Position Object 7000,512,GH#-50,512: Rem Sky
  Position Object 7001,512,GH#-50,512: Rem Clouds
  Scale Object 7002,1000,1000,1000: YRotate Object 7002,90: Rem Starter
  Position Object 7002,512,GH#+12,207
  Show Object 7000: Show Object 7001: Show Object 7002

  Rem ********************
  Rem    Position Cars
  Rem ********************
  For N = 0 To MaxVehicle
    CurrentWayPoint(N)=132
    Gh# = Get Ground Height(1,Waypoints#(N,CurrentWayPoint(N),0),Waypoints#(N,CurrentWayPoint(N),1))+0.6
    Position Object N*100+5000,Waypoints#(N,CurrentWayPoint(N),0),Gh#,Waypoints#(N,CurrentWayPoint(N),1)
    Point Object N*100+5000,Waypoints#(N,CurrentWayPoint(N)+1,0),Gh#,Waypoints#(N,CurrentWayPoint(N)+1,1)
    Hide Object N*100+5050: Rem Hide mirror vehicles
  Next N

  Remstart
  Rem Un-rem this block to see a visual representation of the waypoints. I've used a waypoint 'lane' system
  Rem where there are 8 lanes - one for each vehicle. This isn't ideal, but with so little time to do this
  Rem challenge, a few corners had to be cut... :)
  For Car=0 to MaxVehicle
    R = Rnd(100)+155: G = Rnd(100)+155: B = Rnd(100)+155
    For A=0 to 179
      O = Car*180+A+1
      Make Object Cube O,0.2: Color Object O,RGB(R,G,B): Scale Object O,100,400,100: Ghost Object On O
      Gh# = Get Ground Height(1,Waypoints#(Car,A,0),Waypoints#(Car,A,1))
      Position Object O,Waypoints#(Car,A,0),Gh#,Waypoints#(Car,A,1)
    next A
  next Car
  Remend

  Set Current Bitmap 0
  Set Text Size 14
  Set Text Transparent
  Ink 0,0
  CurrentTrackCar = 0: CTCObjNum = CurrentTrackCar*100+5000

  TESTRACELOOP:
  Do
    If Scancode() Then RaceStarted=1
    If UpKey()=1 Then Inc Shading#,.1: Normalise(1,MatWid,MatHig,Shading#)
    If DownKey()=1 Then Dec Shading#,.1: Normalise(1,MatWid,MatHig,Shading#)

    IF RaceStarted=1
      For N=MaxVehicle To 0 Step-1
        CarObjNum = N*100+5000
        Move Object CarObjNum,Speed#(N)
        CX# = Object Position X(CarObjNum): Rem Car's X Position
        CZ# = Object Position Z(CarObjNum): Rem Car's Z Position
        Gh# = Get Ground Height(1,CX#,CZ#)+0.3

        Rem If Object Position Y(CarObjNum) > Gh#
          Rem Position Object CarObjNum,Object Position X(CarObjNum),Gh#,Object Position Z(CarObjNum)
        Rem Endif

        If Speed#(N) < TopSpeed#(N) Then Speed#(N)=Speed#(N)+Accell#(N)
        Dist# = CarDistance(N)
        If Dist# < 2.0
          CurrentWayPoint(N)=CurrentWayPoint(N)+1: If CurrentWayPoint(N)=180 Then CurrentWayPoint(N) = 0
          Point Object CarObjNum,Waypoints#(N,CurrentWayPoint(N),0),Gh#,Waypoints#(N,CurrentWayPoint(N),1)
        Endif

        Rem 3.5, .75, 2.0
        Tilt_Object(CarObjNum,1,CX#,Gh#,CZ#,2.0,.75,3.5)

        If N=CurrentTrackCar
          Set Camera To Follow CX#, Gh#, CZ#, Object Angle Y(CarObjNum), 4.0,    Gh#+4.0,      14,        0
        Endif

      Next N

    Endif

    Remstart
    Rem Routine to print current camera position and angles to text file when you press the space bar
    Rem (makes working out the camera start position a lot easier).
    Rem Leave remmed out...
    If SpaceKey() = 1
      If File Exist("CamPos.txt") Then Delete File "CamPos.txt"
      Open To Write 1,"CamPos.txt"
        Write String 1,Str$(Camera Position X())
        Write String 1,Str$(Camera Position Y())
        Write String 1,Str$(Camera Position Z())
        Write String 1,Str$(Camera Angle X())
        Write String 1,Str$(Camera Angle Y())
        Write String 1,Str$(Camera Angle Z())
      Close File 1
    Endif
    Remend

    YRotate Object 7001,WrapValue(Object Angle Y(7001)+.1): Rem Move Clouds

    Sync
    Text 10,2,"FPS: "+Str$(Screen FPS())
    Text 100,2,"Position:"
    Text 100,22,"X: "+Str$(CX#)
    Text 100,42,"Y: "+Str$(Gh#)
    Text 100,62,"Z: "+Str$(CZ#)
    Text 240,2,Str$(Shading#)

    Remstart
    Text 240,2,"Mat Heights:"
    rem w#=2.0: l#=3.5
    FLx# = Object Position X(CurrentTrackCar*100+5000)-1.0
    FLz# = Object Position Z(CurrentTrackCar*100+5000)-1.75
    FL# = Get Ground Height(1,FLx#,FLz#)
    Text 240,22,"Front L: "+Str$(FL#)

    FRx# = Object Position X(CurrentTrackCar*100+5000)+1.0
    FRz# = Object Position Z(CurrentTrackCar*100+5000)-1.75
    FR# = Get Ground Height(1,FRx#,FRz#)
    Text 240,42,"Front R: "+Str$(FR#)

    RLx# = Object Position X(CurrentTrackCar*100+5000)-1.0
    RLz# = Object Position Z(CurrentTrackCar*100+5000)+1.75
    RL# = Get Ground Height(1,RLx#,RLz#)
    Text 240,62,"Rear L: "+Str$(RL#)

    RRx# = Object Position X(CurrentTrackCar*100+5000)+1.0
    RRz# = Object Position Z(CurrentTrackCar*100+5000)+1.75
    RR# = Get Ground Height(1,RRx#,RRz#)
    Text 240,82,"Rear R: "+Str$(RR#)
    remend

  Loop
Return

Showroom_Vehicles:
  Rem Vehicles & Plinths
  For N = 0 To MaxVehicle
    Make Object Cylinder 20000+N,8: Scale Object 20000+N,100,2,100: Color Object 20000+N,RGB(170,120,170)
    Ghost Object On 20000+N
    Set object ambient 20000+N,RGB(64,64,64): set object diffuse 20000+N,RGB(64,64,64)
    Set object emissive 20000+N,RGB(0,0,0): set object specular 20000+N,RGB(190,190,190),10.0
    Make Object Plain 20100+N,21.5,21.5: Texture Object 20100+N,12100
    XRotate Object 20100+N,90: Set Object 20100+N, 1, 0, 0
    X#(N) = WrapValue(X#(N) + AngleInc) : Z#(N) = WrapValue(Z#(N) + AngleInc)
    VSpotX#(N) = newxvalue(0,X#(N),Radius#): VSpotZ#(N) = newzvalue(0,Z#(N),Radius#)
    Position Object 20000+N, VSpotX#(N), 0.0, VSpotZ#(N): Rem Base
    Position Object 20100+N, VSpotX#(N), 0.0, VSpotZ#(N): Rem Mask
    Position Object N*100+5000, VSpotX#(N), 0.65, VSpotZ#(N): Rem Top Vehicle
    Position Object N*100+5050, VSpotX#(N), -0.5, VSpotZ#(N): Rem Bottom Vehicle
  Next N
  Make Object Plain 20108,23,23: Color Object 20108,0: XRotate Object 20108,90: Position Object 20108, 0.0, 0.01, 0.0: Rem Centre Mask
Return

Screen_Messages:
  Rem Vehicle Stats
  Ink RGB(255,255,255),0: TPosY = 400
  Ink RGB(0,100,0),0: Center Text 400,TPosY,"Vehicle: "+Vehicle$(CurrentVehicle,0)
  Ink RGB(0,255,0),0: Center Text 398,TPosY-2,"Vehicle: "+Vehicle$(CurrentVehicle,0)
  T$ = "Accelleration: "+Vehicle$(CurrentVehicle,1) + "          Top Speed: "+Vehicle$(CurrentVehicle,2)
  Ink RGB(0,0,0),0: Center Text 400,TPosY+(1*TH),T$
  Ink RGB(255,255,0),0: Center Text 398,TPosY+(1*TH)-2,T$
  T$ = "Weapon: "+Vehicle$(CurrentVehicle,3) + "          Weapon Damage: "+Vehicle$(CurrentVehicle,4)
  Ink RGB(0,0,0),0: Center Text 400,TPosY+(2*TH),T$
  Ink RGB(255,255,0),0: Center Text 398,TPosY+(2*TH)-2,T$
  T$ = "Fuel: "+Vehicle$(CurrentVehicle,7) + "        Nitro Bursts: "+Vehicle$(CurrentVehicle,6)
  Ink RGB(0,0,0),0: Center Text 400,TPosY+(3*TH),T$
  Ink RGB(255,255,0),0: Center Text 398,TPosY+(3*TH)-2,T$
  T$ = "Shield: "+Vehicle$(CurrentVehicle,5) + "        Special Ability: "+Vehicle$(CurrentVehicle,8)
  Ink RGB(0,0,0),0: Center Text 400,TPosY+(4*TH),T$
  Ink RGB(255,255,0),0: Center Text 398,TPosY+(4*TH)-2,T$
Return

Make_Textures:
  Create Bitmap 1,1024,1024

  Rem ****************************
  Rem    Create Sky Textures
  Rem ****************************
  Rem ******** Winter Blue Sky ********
  Red# = 64.0: Green# = 64.0: Blue# = 128.0
  EndRed = 129: EndGreen = 128: EndBlue = 128
  MakeGradient(1001,255,Red#,Green#,Blue#,EndRed,EndGreen,EndBlue)
  Rem ******** Sunset Sky ********
  Red# = 0.0: Green# = 0.0: Blue# = 255.0
  EndRed = 200: EndGreen = 100: EndBlue = 0
  MakeGradient(1002,255,Red#,Green#,Blue#,EndRed,EndGreen,EndBlue)
  Rem ******** Sunset Sky 2 ********
  Red# = 32.0: Green# = 32.0: Blue# = 128.0
  EndRed = 255: EndGreen = 166: EndBlue = 85
  MakeGradient(1003,255,Red#,Green#,Blue#,EndRed,EndGreen,EndBlue)
  Rem ******** Night Sky ********
  Red# = 0.0: Green# = 0.0: Blue# = 0.0
  EndRed = 0: EndGreen = 0: EndBlue = 64
  MakeGradient(1004,255,Red#,Green#,Blue#,EndRed,EndGreen,EndBlue)
  Rem ******** Summer Blue Sky ********
  Red# = 0.0: Green# = 0.0: Blue# = 100.0
  EndRed = 200: EndGreen = 200: EndBlue = 255
  MakeGradient(1005,255,Red#,Green#,Blue#,EndRed,EndGreen,EndBlue)

  Rem ****************************
  Rem    Create Cloud Texture
  Rem ****************************
  MakeClouds(1006,255)

  Rem ********************
  Rem     Large Track
  Rem ********************
  CLS 0
  CircleRad=24
  For N=1 To CircleRad Step 2
    If N <= 20 Then  Ink RGB(80,80,80),0
    If N > 20 Then  Ink RGB(255,255,255),0
    If N > 22 Then  Ink RGB(180,0,0),0
    Circle CircleRad,CircleRad,N
    Circle CircleRad,CircleRad+1,N
  Next N
  Sync
  Get Image 1007,0,0,CircleRad*2+2,CircleRad*2+2
  Sprite 1,-200,-200,1007

  Rem ********************
  Rem     Small Track
  Rem ********************
  CLS 0: Ink RGB(80,80,80),0
  CircleRad=18
  For N=1 To CircleRad
    Circle CircleRad,CircleRad,N
    If N < 16 Then Circle CircleRad,CircleRad+1,N
  Next N
  Sync
  Get Image 1008,0,0,CircleRad*2+2,CircleRad*2+2
  Sprite 2,-200,-200,1008


  Rem ****************************
  Rem       Matrix Texture
  Rem ****************************
  CLS RGB(0,48,0)
  For N=1 To 15000
    Ink RGB(0,Rnd(100)+100,0),0
    Dot Rnd(1024),Rnd(1024)
  Next N
  Blur Bitmap 1,4
  Sync
  xcenter=512: ycenter=512: radiusx=450: radiusy=300
  for a=0 to 180
    x=cos(a*2)*radiusx
    y=sin(a*2)*radiusy
    Paste Sprite 1,x+xcenter-19,y+ycenter-19
  next a
  for a=0 to 180
    x=cos(a*2)*radiusx
    y=sin(a*2)*radiusy
    Paste Sprite 2,x+xcenter-13,y+ycenter-13
  next a
  Get Image 1000,0,0,1024,1024

  Rem ********************
  Rem      WayPoints
  Rem ********************
  xcenter=515: ycenter=508: radiusx=436: radiusy=292
  for Car=0 to 7
    for a=0 to 179
      x=cos(a*2)*radiusx: y=sin(a*2)*radiusy
      Waypoints#(Car,a,0) = x+xcenter
      Waypoints#(Car,a,1) = y+ycenter
    next a
    Inc radiusx,3: Inc radiusy,3
  next car

  Rem ********************
  Rem        Girder
  Rem ********************
  CLS 0: Ink RGB(4,4,4),0
  For N = 0 To 5
    Line 0,N,64-N,64
    Line N,0,64,64-N
    Line 0,64-N,64-N,0
    Line N,64,64,N
    Line 0,N,64,N
    Line N,0,N,64
    Line 64-N,0,64-N,64
    Line 0,64-N,64,64-N
  Next N
  Get Image 1009,0,0,64,64

  Rem Make 255x255 Masking Plate Texture For Discs
  CLS RGB(1,1,1): Ink RGB(0,0,0),0
  For N = 0 To 46
    Circle 127,127,N: Circle 128,126,N
    Circle 127,128,N: Circle 128,127,N
  Next N
  Sync
  Get Image 12100,0,0,255,255,1

Return

Make_Sprites:
  CLS 0
  Set Text Font "Comic Sans MS"
  Set Text Size 36: Sync
  TH = Text Height("X")
  Ink RGB(255,60,0),0: Center Text 400,2,"Choose Your Vehicle"
  Ink RGB(255,255,255),0: Center Text 398,0,"Choose Your Vehicle"
  Get Image 12200,0,0,799,TH
  Sprite 1,0,0,12200: Hide Sprite 1
  CLS 0: Set Text Size 16
  Sync
  TH = Text Height("X")-4
  CLS 0
  Set Text Font "Wingdings",1
  Set Text Size 32: Sync
  Ink RGB(0,255,0),0: Box 0,0,50,50
  Ink 0,0: Box 2,2,48,48
  Ink RGB(255,255,0),0: Text 10,10,Chr$(231)
  Get Image 12201,0,0,51,51
  Ink 0,0: Box 2,2,48,48
  Ink RGB(255,255,0),0: Text 10,10,Chr$(232)
  Get Image 12202,0,0,51,51
  Sprite 2,1,549,12201: Hide Sprite 2
  Sprite 3,749,549,12202: Hide Sprite 3
  Set Text Font "Comic Sans MS": Sync
  Ink RGB(0,255,0),0: Box 100,100,330,150
  Ink 0,0: Box 102,102,328,148
  Ink RGB(255,255,0),0: Text 134,94,"SELECT"
  Get Image 12203,100,100,331,151
  Sprite 4,285,549,12203: Hide Sprite 4
  Set Text Size 36: Sync
Return

Make_Vehicles:
  Rem Car Types: 0 - Car  1 - IC Van  2 - Bus   3 - Pickup  4 - Oil Tanker  5 - Police Car  6 - Ambulance
  Rem            7 - Convertible
  Vehicle(5000,0,200,200,0): YRotate Object 5000,90: Fix Object Pivot 5000
  Vehicle(5050,0,200,200,0): XRotate Object 5050,180: Fix Object Pivot 5050: YRotate Object 5050,90: Fix Object Pivot 5050

  Vehicle(5100,150,200,150,1): YRotate Object 5100,90: Fix Object Pivot 5100
  Vehicle(5150,150,200,150,1): XRotate Object 5150,180: Fix Object Pivot 5150: YRotate Object 5150,90: Fix Object Pivot 5150

  Vehicle(5200,255,0,0,2): YRotate Object 5200,90: Fix Object Pivot 5200
  Vehicle(5250,255,0,0,2): XRotate Object 5250,180: Fix Object Pivot 5250: YRotate Object 5250,90: Fix Object Pivot 5250

  Vehicle(5300,155,80,0,3): YRotate Object 5300,90: Fix Object Pivot 5300
  Vehicle(5350,155,80,0,3): XRotate Object 5350,180: Fix Object Pivot 5350: YRotate Object 5350,90: Fix Object Pivot 5350

  Vehicle(5400,10,150,10,4): YRotate Object 5400,90: Fix Object Pivot 5400
  Vehicle(5450,10,150,10,4): XRotate Object 5450,180: Fix Object Pivot 5450: YRotate Object 5450,90: Fix Object Pivot 5450

  Vehicle(5500,32,32,32,5): YRotate Object 5500,90: Fix Object Pivot 5500
  Vehicle(5550,32,32,32,5): XRotate Object 5550,180: Fix Object Pivot 5550: YRotate Object 5550,90: Fix Object Pivot 5550

  Vehicle(5600,255,255,255,6): YRotate Object 5600,90: Fix Object Pivot 5600
  Vehicle(5650,255,255,255,6): XRotate Object 5650,180: Fix Object Pivot 5650: YRotate Object 5650,90: Fix Object Pivot 5650

  Vehicle(5700,255,155,0,7): YRotate Object 5700,90: Fix Object Pivot 5700
  Vehicle(5750,255,155,0,7): XRotate Object 5750,180: Fix Object Pivot 5750: YRotate Object 5750,90: Fix Object Pivot 5750
Return

Make_Objects:
  Rem Sky Sphere
  Make Object Sphere 7000,-2048
  Position Object 7000,50,0,50
  ZRotate Object 7000,180
  Texture Object 7000,1005
  Hide Object 7000

  Rem Cloud Sphere
  Make Object Sphere 7001,-2008
  Position Object 7001,50,0,50
  ZRotate Object 7001,180
  Texture Object 7001,1006
  Scale Object Texture 7001,2,1
  Set Object 7001, 1, 0, 1, 1
  Ghost Object On 7001
  Hide Object 7001

  Rem Matrix
  Make Matrix 1,1024,1024,70,70
  Prepare Matrix Texture 1,1000,70,70
  Randomize Matrix 1,100.0
  For N=1 To 140
    X=Rnd(66)+2: Z=Rnd(66)+2
    Set Matrix Height 1,X,Z,30.0
  Next N
  Rem Skirt
  For N=0 To 70
    Set Matrix Height 1,0,N,Rnd(30)+30
    Set Matrix Height 1,70,N,Rnd(30)+30
    Set Matrix Height 1,N,0,Rnd(30)+30
    Set Matrix Height 1,N,70,Rnd(30)+30
  Next N

  For N=1 To 12: Rem 10
    Gosub Smooth
  Next N

  t=1
  For z=69 to 0 Step -1
    For x=0 to 69
      Set Matrix Tile 1,x,z,t
      Inc t
    Next x
  Next z

  rem Update Matrix 1
  Shading# = 20.0
  Normalise(1,MatWid,MatHig,Shading#)

  ObjNum = 7002
  Rem Start Section
  Make Object Box ObjNum, 5.0, 0.1, 0.1: Texture Object ObjNum,1009: Scale Object Texture ObjNum,15,1
  Set Object ObjNum, 1, 0, 0
  Rem Verts
  Make Object Box ObjNum+1, 0.1, 1.5, 0.1: Texture Object ObjNum+1,1009
  Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, -2.45,-0.75, 0.0
  Scale Object Texture ObjNum+1,1,6: Set Object ObjNum+1, 1, 0, 0
  Make Object Box ObjNum+2, 0.1, 1.5, 0.1: Texture Object ObjNum+2,1009
  Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2,0, 2.45,-0.75, 0.0
  Scale Object Texture ObjNum+2,1,6: Set Object ObjNum+2, 1, 0, 0
  Rem Lightbox
  Make Object Box ObjNum+3, 1.0, 0.3, 0.3: Color Object ObjNum+3,RGB(11,11,11)
  Glue Object To Limb ObjNum+3, ObjNum,0: Offset Limb ObjNum+3,0, 0.0,-0.20, 0.0
  Make Object Cylinder ObjNum+4, 0.15: Color Object ObjNum+4,RGB(90,0,0)
  XRotate Object ObjNum+4,90: Fix Object Pivot ObjNum+4
  Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4,0, -0.30, -0.20, -0.08
  Make Object Cylinder ObjNum+5, 0.15: Color Object ObjNum+5,RGB(90,0,0)
  XRotate Object ObjNum+5,90: Fix Object Pivot ObjNum+5
  Glue Object To Limb ObjNum+5, ObjNum,0: Offset Limb ObjNum+5,0, -0.10, -0.20, -0.08
  Make Object Cylinder ObjNum+6, 0.15: Color Object ObjNum+6,RGB(90,0,0)
  XRotate Object ObjNum+6,90: Fix Object Pivot ObjNum+6
  Glue Object To Limb ObjNum+6, ObjNum,0: Offset Limb ObjNum+6,0, 0.10, -0.20, -0.08
  Make Object Cylinder ObjNum+7, 0.15: Color Object ObjNum+7,RGB(0,90,0)
  XRotate Object ObjNum+7,90: Fix Object Pivot ObjNum+7
  Glue Object To Limb ObjNum+7, ObjNum,0: Offset Limb ObjNum+7,0, 0.30, -0.20, -0.08
  Hide Object ObjNum

  remstart
  Rem Make Lights
  Make Light 1
  Position Light 1,-5,5,5:          Rem Rear Left
  Color Light 1,RGB(64,64,64)
  Make Light 2
  Position Light 2,5,5,5:           Rem Rear Right
  Color Light 2,RGB(64,64,64)
  Make Light 3
  Set spot light 3,5,75: Position Light 3,-5,5,-5: Rem Front Left
  Color Light 3,RGB(255,255,255): Point light 3,0,0,0
  Make Light 4
  Set spot light 4,5,75: Position Light 4,5,5,-5: Rem Front Right
  Color Light 4,RGB(255,255,255): Point light 4,0,0,0
  remend


  Rem Make 4 Height Markers...
  Make Object Cube 2001,0.1: Scale Object 2001, 100,100,100
  Make Object Cube 2002,0.1: Scale Object 2002, 100,100,100
  Make Object Cube 2003,0.1: Scale Object 2003, 100,100,100
  Make Object Cube 2004,0.1: Scale Object 2004, 100,100,100

  Gosub Make_Vehicles

Return

Smooth:
  Rem Averages matrix heights to remove jagged edges
  for Z=0 to 70
    for X=0 to 70
      P0#=Get Matrix Height(1,X,Z):     Rem Current point height
      Rem Get 4 adjoining points heights (if they exist)
      If Z-1>=0
        P1#=Get Matrix Height(1,X,Z-1)
      Else
        P1#=P0#
      Endif
      If X+1<=TilesX
        P2#=Get Matrix Height(1,X+1,Z)
      Else
        P2#=P0#
      Endif
      If Z+1<=TilesZ
        P3#=Get Matrix Height(1,X,Z+1)
      Else
        P3#=P0#
      Endif
      If X-1>=0
        P4#=Get Matrix Height(1,X-1,Z)
      Else
        P4#=P0#
      Endif
      Average#=(P0#+P1#+P2#+P3#+P4#)/5: Rem Av height of other points
      RHeight#=Average#
      Set Matrix Height 1,x,z,RHeight#
    Next x
  Next z
  Update Matrix 1
Return





Rem ******************************************************************************************
Rem ***                                   FUNCTIONS                                        ***
Rem ******************************************************************************************

Function Wait_Time(Seconds)
  DisplayTime = Timer()
  Repeat
    Sync
  Until Timer() - DisplayTime >= Seconds*1000
EndFunction

Function Vehicle(ObjNum,R,G,B,VehicleType)
  BodyColour = RGB(R,G,B)
  Rem Car Types: 0 - Car  1 - IC Van  2 - Bus 3 - Pickup  4 - Oil Tanker  5 - Police Car  6 - Ambulance
  Rem            7 - Convertible
  Select VehicleType
    Case 0
      Rem Car Body
      Make Object Box ObjNum, 3.5, .75, 2: Color Object ObjNum,BodyColour
      Rem Roof
      Make Object Box ObjNum+1, 1.5, .5,  2: Color Object ObjNum+1,BodyColour
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, -0.3, 0.5, 0
      Rem Body Stripe
      Make Object Box ObjNum+2, 3.52, .73,  .5: Color Object ObjNum+2,RGB(255,255,255)
      Glue Object To Limb ObjNum+2, ObjNum,0:  Offset Limb ObjNum+2,0,  0.0, 0.02, 0
      Rem Roof Stripe
      Make Object Box ObjNum+3, 1.49, .2,  .5: Color Object ObjNum+3,RGB(255,255,255)
      Glue Object To Limb ObjNum+3, ObjNum,0:  Offset Limb ObjNum+3,0,  -0.3, 0.66, 0
      Rem Exhaust
      Make Object Cylinder ObjNum+4,0.12: Color Object ObjNum+4,0
      ZRotate Object ObjNum+4,90: Fix Object Pivot ObjNum+4: Scale Object ObjNum+4,800,100,100
      Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4,0, -1.75, -0.45, 0.1
      Make Object Cylinder ObjNum+5,0.12: Color Object ObjNum+5,0
      ZRotate Object ObjNum+5,90: Fix Object Pivot ObjNum+5: Scale Object ObjNum+5,800,100,100
      Glue Object To Limb ObjNum+5, ObjNum,0: Offset Limb ObjNum+5,0, -1.75, -0.45, -0.1
      Rem Front Glass
      Make Object Box ObjNum+14, 0.55, 0.5,  1.95: Color Object ObjNum+14,RGB(220,220,255)
      ZRotate Object ObjNum+14,30: Fix Object Pivot ObjNum+14
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 0.35, 0.4, 0
      Rem Side Glass
      Make Object Box ObjNum+15, 1.45, 0.35, 2.02: Color Object ObjNum+15,RGB(220,220,255)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, -0.3, 0.55, 0
      Rem Rear Glass
      Make Object Box ObjNum+16, 0.13, 0.35,  1.95: Color Object ObjNum+16,RGB(220,220,255)
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, -1.0, 0.55, 0
      Rem Aero Wing
      Make Object Box ObjNum+21, 0.40, 0.02, 2.02: Color Object ObjNum+21,BodyColour
      ZRotate Object ObjNum+21,350: Fix Object Pivot ObjNum+21
      Glue Object To Limb ObjNum+21,ObjNum,0: Offset Limb ObjNum+21,0, -1.5, 0.7, 0.0
      Make Object Box ObjNum+22, 0.1, 0.5, 0.02: Color Object ObjNum+22,0
      Glue Object To Limb ObjNum+22,ObjNum,0: Offset Limb ObjNum+22,0, -1.5, 0.4, 0.80
      Make Object Box ObjNum+23, 0.1, 0.5, 0.02: Color Object ObjNum+23,0
      Glue Object To Limb ObjNum+23,ObjNum,0: Offset Limb ObjNum+23,0, -1.5, 0.4, -0.80
    EndCase
    Case 1
      Rem Ice Cream Van Sign Texture
      If Image Exist(12004) = 0
        CLS RGB(255,255,255): Ink 0,0
        Text 0,0,"  STOP ME AND BUY ONE!  "
        Get Image 12004,0,0,Text Width("  STOP ME AND BUY ONE!  "),Text Height("X")
      Endif
      Rem Ice Cream Van Body
      Make Object Box ObjNum, 3.5, .75, 2: Color Object ObjNum,BodyColour
      Make Object Box ObjNum+1, 3.0, .75, 2: Color Object ObjNum+1,BodyColour
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, -0.25, .75, 0
      Make Object Box ObjNum+2, 3.2, .2, 2: Color Object ObjNum+2,BodyColour
      Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2,0, -0.15, 1.1, 0
      Rem Ice Cream Cone
      Make Object Cone ObjNum+3, 0.6: Color Object ObjNum+3,RGB(168,150,0)
      Scale Object ObjNum+3,200,50,50
      ZRotate Object ObjNum+3, 180: Fix Object Pivot ObjNum+3
      Glue Object To Limb ObjNum+3, ObjNum,0: Offset Limb ObjNum+3,0, 1.5, 1.2, 0
      Make Object Sphere ObjNum+4, 0.58: Color Object ObjNum+4,RGB(255,180,180)
      Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4,0, 1.5, 1.57, 0
      Rem Sign
      Make Object Box ObjNum+5, 1.6, 0.4, 0.6: Texture Object ObjNum+5,12004
      YRotate Object ObjNum+5,90: Fix Object Pivot ObjNum+5
      Glue Object To Limb ObjNum+5, ObjNum,0: Offset Limb ObjNum+5,0, -1.46, 0.0, 0
      Rem Front Glass
      Make Object Box ObjNum+14, 0.55, 0.5,  1.93: Color Object ObjNum+14,RGB(220,220,255)
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 1.0, 0.6, 0
      Rem Side Glass
      Make Object Box ObjNum+15, 2.1, 0.6, 2.02: Color Object ObjNum+15,RGB(220,220,255)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, -0.6, 0.75, 0
      Rem Rear Glass
      Make Object Box ObjNum+16, 0.13, 0.6,  1.8: Color Object ObjNum+16,RGB(220,220,255)
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, -1.7, 0.75, 0
    EndCase
    Case 2
      Rem Bus Sign Texture
      If Image Exist(12000) = 0
        CLS 0
        Ink RGB(255,255,0),0
        Text 0,0,"  004 West End  "
        Get Image 12000,0,0,Text Width("  004 West End  "),Text Height("X")
      Endif
      Rem Bus Body
      Make Object Box ObjNum, 3.5, 0.75, 2.0: Color Object ObjNum,BodyColour
      Make Object Box ObjNum+1, 3.5, 0.75, 2.0: Color Object ObjNum+1,BodyColour: Rem top
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, 0.0, 1.5, 0.0
      Make Object Box ObjNum+2, 3.5, 0.75, 1.0: Color Object ObjNum+2,BodyColour: Rem Long Centre
      Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2,0, 0.0, 0.75, -0.5
      Make Object Box ObjNum+3, 3.0, 0.75, 1.0: Color Object ObjNum+3,BodyColour: Rem Short Centre
      Glue Object To Limb ObjNum+3, ObjNum,0: Offset Limb ObjNum+3,0, -0.25, 0.75, 0.5
      Rem Front Glass (Left of Driver)
      Make Object Box ObjNum+14, 0.55, 0.7,  1.93: Color Object ObjNum+14,RGB(220,220,255)
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 1.0, 0.7, 0
      Rem Front Glass 2 (Driver)
      Make Object Box ObjNum+15, 0.2, 0.7, 0.9: Color Object ObjNum+15,RGB(220,220,255)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, 1.66, 0.75, -0.5
      Rem Top Glass
      Make Object Box ObjNum+16, 3.52, 0.45, 1.9: Color Object ObjNum+16,RGB(220,220,255)
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, 0.0, 1.6, 0.0
      Rem Side 1 Glass (Front)
      Make Object Box ObjNum+21, 0.8, 0.45, 2.04: Color Object ObjNum+21,RGB(220,220,255)
      Glue Object To Limb ObjNum+21, ObjNum,0: Offset Limb ObjNum+21,0, 1.3, 1.6, 0.0
      Rem Side 2 Glass
      Make Object Box ObjNum+22, 0.8, 0.45, 2.04: Color Object ObjNum+22,RGB(220,220,255)
      Glue Object To Limb ObjNum+22, ObjNum,0: Offset Limb ObjNum+22,0, 0.45, 1.6, 0.0
      Rem Side 3 Glass (top rear)
      Make Object Box ObjNum+23, 0.8, 0.45, 2.04: Color Object ObjNum+23,RGB(220,220,255)
      Glue Object To Limb ObjNum+23, ObjNum,0: Offset Limb ObjNum+23,0, -0.4, 1.6, 0.0
      Rem Side 4 Glass (top rear)
      Make Object Box ObjNum+24, 0.8, 0.45, 2.04: Color Object ObjNum+24,RGB(220,220,255)
      Glue Object To Limb ObjNum+24, ObjNum,0: Offset Limb ObjNum+24,0, -1.25, 1.6, 0.0
      Rem Bottom Rear Glass
      Make Object Box ObjNum+25, 0.52, 0.45, 0.9: Color Object ObjNum+25,RGB(220,220,255)
      Glue Object To Limb ObjNum+25, ObjNum,0: Offset Limb ObjNum+25,0, -1.5, 0.7, 0.5
      Rem Side 1 Glass
      Make Object Box ObjNum+26, 0.8, 0.45, 2.04: Color Object ObjNum+26,RGB(220,220,255)
      Glue Object To Limb ObjNum+26, ObjNum,0: Offset Limb ObjNum+26,0, 0.45, 0.7, 0.0
      Rem Side 1 Glass
      Make Object Box ObjNum+27, 0.8, 0.45, 2.04: Color Object ObjNum+27,RGB(220,220,255)
      Glue Object To Limb ObjNum+27, ObjNum,0: Offset Limb ObjNum+27,0, -0.4, 0.7, 0.0
      Rem Side 1 Glass (Rear bottom)
      Make Object Box ObjNum+28, 0.8, 0.45, 2.04: Color Object ObjNum+28,RGB(220,220,255)
      Glue Object To Limb ObjNum+28, ObjNum,0: Offset Limb ObjNum+28,0, -1.25, 0.7, 0.0
      Rem Number
      Make Object Box ObjNum+29, 1.1, 0.15, 3.54: YRotate Object ObjNum+29,90: Fix Object Pivot ObjNum+29
      Glue Object To Limb ObjNum+29, ObjNum,0: Offset Limb ObjNum+29,0, 0.0, 1.25, 0.0
      Texture Object ObjNum+29,12000
    EndCase
    Case 3: Rem Pickup
      Rem Pickup Body
      Make Object Box ObjNum, 3.5, .75, 2: Color Object ObjNum,BodyColour
      Rem Roof
      Make Object Box ObjNum+1, 0.8, .6,  2: Color Object ObjNum+1,BodyColour
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, 1.05, 0.6, 0
      Rem Tarp
      Make Object Box ObjNum+2, 2.24, .3, 1.9: Color Object ObjNum+2,RGB(20,20,20)
      Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2,0, -0.56, 0.25, 0
      Rem Front Glass
      Make Object Box ObjNum+14, 0.62, 0.5, 1.95: Color Object ObjNum+14,RGB(220,220,255)
      ZRotate Object ObjNum+14,30: Fix Object Pivot ObjNum+14
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 1.33, 0.44, 0
      Rem Side Glass
      Make Object Box ObjNum+15, 0.6, 0.45, 2.02: Color Object ObjNum+15,RGB(220,220,255)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, 1.05, 0.6, 0
      Rem Rear Glass
      Make Object Box ObjNum+16, 0.5, 0.35, 1.0: Color Object ObjNum+16,RGB(220,220,255)
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, 0.89, 0.6, 0
    EndCase
    Case 4: Rem Oil Tanker
      Rem Wagon Body
      Make Object Box ObjNum, 3.5, .75, 2: Color Object ObjNum,BodyColour
      Rem Cab
      Make Object Box ObjNum+1, 0.8, .6,  2: Color Object ObjNum+1,BodyColour
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, 1.35, 0.67, 0
      Rem Tank
      Make Object Cylinder ObjNum+2,1.4: Color Object ObjNum+2,RGB(255,255,255)
      ZRotate Object ObjNum+2,90: YRotate Object ObjNum+2,210: Fix Object Pivot ObjNum+2
      Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2,0, -0.45, 1.0, 0
      Make Object Sphere ObjNum+3,1.4: Color Object ObjNum+3,RGB(255,255,255)
      Glue Object To Limb ObjNum+3, ObjNum,0: Offset Limb ObjNum+3,0, 0.25, 1.0, 0
      Make Object Sphere ObjNum+4,1.4: Color Object ObjNum+4,RGB(255,255,255)
      Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4,0, -1.2, 1.0, 0
      Rem Front Glass
      Make Object Box ObjNum+14, 0.62, 0.5, 1.95: Color Object ObjNum+14,RGB(220,220,255)
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 1.45, 0.65, 0
      Rem Side Glass
      Make Object Box ObjNum+15, 0.62, 0.5, 2.02: Color Object ObjNum+15,RGB(220,220,255)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, 1.35, 0.65, 0
      Rem Front Support
      Make Object Box ObjNum+16, 0.1, 0.5, 1.5: Color Object ObjNum+16,RGB(0,0,200)
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, 0.5, 0.65, 0
      Rem Centre Support
      Make Object Box ObjNum+21, 0.1, 0.5, 1.5: Color Object ObjNum+21,RGB(0,0,200)
      Glue Object To Limb ObjNum+21, ObjNum,0: Offset Limb ObjNum+21,0, -0.5, 0.65, 0
      Rem Rear Support
      Make Object Box ObjNum+22, 0.1, 0.5, 1.5: Color Object ObjNum+22,RGB(0,0,200)
      Glue Object To Limb ObjNum+22, ObjNum,0: Offset Limb ObjNum+22,0, -1.5, 0.65, 0
    EndCase
    Case 5: Rem Police Car
      Rem Bus Sign Texture
      If Image Exist(12001) = 0
        CLS RGB(255,255,255)
        Set Text To Bold
        Ink 0,0: Text 0,0,"  POLICE  "
        Get Image 12001,0,0,Text Width("  POLICE  "),Text Height("X")
        Set Text To Normal
      Endif
      Rem Police Car Body
      Make Object Box ObjNum, 3.5, .75, 2: Color Object ObjNum,BodyColour
      Rem White Roof
      Make Object Box ObjNum+1, 1.5, 1.2, 2.01: Color Object ObjNum+1,RGB(255,255,255)
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, 0.0, 0.2, 0
      Rem Police Sign
      Make Object Box ObjNum+2, 1.2, 0.5, 2.02: Color Object ObjNum+2,RGB(255,155,255)
      Glue Object To Limb ObjNum+2, ObjNum,0:  Offset Limb ObjNum+2,0, 0.0, 0.02, 0
      Texture Object ObjNum+2,12001
      Rem Exhaust
      Make Object Cylinder ObjNum+4,0.12: Color Object ObjNum+4,0
      ZRotate Object ObjNum+4,90: Fix Object Pivot ObjNum+4: Scale Object ObjNum+4,800,100,100
      Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4,0, -1.75, -0.45, 0.1
      Make Object Cylinder ObjNum+5,0.12: Color Object ObjNum+5,0
      ZRotate Object ObjNum+5,90: Fix Object Pivot ObjNum+5: Scale Object ObjNum+5,800,100,100
      Glue Object To Limb ObjNum+5, ObjNum,0: Offset Limb ObjNum+5,0, -1.75, -0.45, -0.1
      Rem Front Glass
      Make Object Box ObjNum+14, 0.55, 0.5,  1.95: Color Object ObjNum+14,RGB(220,220,255)
      ZRotate Object ObjNum+14,30: Fix Object Pivot ObjNum+14
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 0.65, 0.4, 0
      Rem Side Glass
      Make Object Box ObjNum+15, 1.35, 0.4, 2.03: Color Object ObjNum+15,RGB(220,220,255)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, -0.0, 0.55, 0
      Rem Rear Glass
      Make Object Box ObjNum+16, 0.55, 0.5,  1.95: Color Object ObjNum+16,RGB(220,220,255)
      ZRotate Object ObjNum+16,50: Fix Object Pivot ObjNum+16
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, -0.75, 0.4, 0
      Rem Lights
      Make Object Box ObjNum+21, 0.2, 0.4, 1.8: Color Object ObjNum+21,0
      Glue Object To Limb ObjNum+21,ObjNum,0: Offset Limb ObjNum+21,0, 0.0, 0.7, 0.0
      Make Object Box ObjNum+22, 0.25, 0.45, 0.5: Color Object ObjNum+22,RGB(255,0,0)
      Glue Object To Limb ObjNum+22,ObjNum,0: Offset Limb ObjNum+22,0, 0.0, 0.8, -0.7
      Make Object Box ObjNum+23, 0.25, 0.45, 0.5: Color Object ObjNum+23,RGB(0,0,255)
      Glue Object To Limb ObjNum+23,ObjNum,0: Offset Limb ObjNum+23,0, 0.0, 0.8, 0.7
    EndCase
    Case 6: Rem Ambulance  Reserved 6-13  17-20 Inclusive
      Rem Ambulance Sign Texture
      If Image Exist(12002) = 0
        CLS 0
        Set Text To Bold
        Ink RGB(255,255,255),0: Text 0,0," AMBULANCE "
        Get Image 12002,0,0,Text Width(" AMBULANCE "),Text Height("X")
        Set Text To Normal
      Endif
      Rem Ambulance Body
      Make Object Box ObjNum, 3.5, .75, 2: Color Object ObjNum,BodyColour
      Rem Middle Section
      Make Object Box ObjNum+1, 3.0, .9, 2: Color Object ObjNum+1,BodyColour
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1,0, -0.25, .8, 0
      Rem Sign
      Make Object Box ObjNum+2, 1.5, .2, 3.02: YRotate Object ObjNum+2,90: Fix Object Pivot ObjNum+2
      Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2,0, -0.25, 1.1, 0
      Texture Object ObjNum+2,12002
      Rem Red Cross
      Make Object Box ObjNum+3, 0.5, .5, .2: Color Object ObjNum+3,RGB(255,0,0)
      Glue Object To Limb ObjNum+3, ObjNum,0: Offset Limb ObjNum+3,0, -1.51, 0.0, 0.0
      Make Object Box ObjNum+4, 0.5, .2, .5: Color Object ObjNum+4,RGB(255,0,0)
      Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4,0, -1.51, 0.0, 0.0
      Rem Side Glass
      Make Object Box ObjNum+5, 0.6, 0.5, 2.01: Color Object ObjNum+5,RGB(220,220,255)
      Glue Object To Limb ObjNum+5, ObjNum,0: Offset Limb ObjNum+5,0, 0.85, 0.7, 0
      Rem Front Glass
      Make Object Box ObjNum+14, 0.52, 0.5, 1.93: Color Object ObjNum+14,RGB(220,220,255)
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, 1.0, 0.7, 0
      Rem Rear Glass 1
      Make Object Box ObjNum+15, 0.13, 0.5, 0.8: Color Object ObjNum+15,RGB(120,120,155)
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, -1.7, 0.70, 0.5
      Rem Rear Glass 2
      Make Object Box ObjNum+16, 0.13, 0.5, 0.8: Color Object ObjNum+16,RGB(120,120,155)
      Glue Object To Limb ObjNum+16, ObjNum,0: Offset Limb ObjNum+16,0, -1.7, 0.70, -0.5
      Rem Lights
      Make Object Box ObjNum+21, 0.11, 0.4, 1.8: Color Object ObjNum+21,RGB(255,255,255)
      Glue Object To Limb ObjNum+21,ObjNum,0: Offset Limb ObjNum+21,0, 1.0, 1.15, 0.0
      Make Object Box ObjNum+22, 0.13, 0.45, 0.5: Color Object ObjNum+22,RGB(255,200,0)
      Glue Object To Limb ObjNum+22,ObjNum,0: Offset Limb ObjNum+22,0, 1.0, 1.2, -0.68
      Make Object Box ObjNum+23, 0.13, 0.45, 0.5: Color Object ObjNum+23,RGB(255,200,0)
      Glue Object To Limb ObjNum+23,ObjNum,0: Offset Limb ObjNum+23,0, 1.0, 1.2, 0.68
      Rem Side Cross
      Make Object Box ObjNum+24, 0.3, 0.7, 2.02: Color Object ObjNum+24,RGB(255,0,0)
      Glue Object To Limb ObjNum+24, ObjNum,0: Offset Limb ObjNum+24,0, -0.5, 0.7, 0.0
      Make Object Box ObjNum+25, 0.7, 0.3, 2.02: Color Object ObjNum+25,RGB(255,0,0)
      Glue Object To Limb ObjNum+25, ObjNum,0: Offset Limb ObjNum+25,0, -0.5, 0.7, 0.0
    EndCase
    Case 7: Rem Convertible      Reserved 6-13  17-20 Inclusive
      Rem Convertible Wheel Texture
      If Image Exist(12003) = 0
        TS = Text Size()
        CLS 0
        Ink RGB(22,22,22),0
        For N = 22 To 30
          Circle 32,32,N: Circle 33,32,N
          Circle 32,32,N-29: Circle 33,32,N-29
        Next N
        Set Text Size 48
        Text 12,0,"Y"
        Sync
        Get Image 12003,0,0,64,64,1
        Set Text Size TS
      Endif
      Rem Convertible Body
      Make Object Box ObjNum, 3.49, .2, 2: Color Object ObjNum,BodyColour
      Position Object ObjNum, 0, -1.6, 0
      Rem Sides
      Make Object Box ObjNum+1, 3.51, .55, .4: Color Object ObjNum+1,BodyColour
      Glue Object To Limb ObjNum+1, ObjNum,0: Offset Limb ObjNum+1, 0, 0.0, 0.11, -0.81
      Make Object Box ObjNum+2, 3.51, .55, .4: Color Object ObjNum+2,BodyColour
      Glue Object To Limb ObjNum+2, ObjNum,0: Offset Limb ObjNum+2, 0, 0.0, 0.11, 0.81
      Rem Boot
      Make Object Box ObjNum+3, 1.0, .4, 1.22: Color Object ObjNum+3,BodyColour
      ZRotate Object ObjNum+3,6: Fix Object Pivot ObjNum+3
      Glue Object To Limb ObjNum+3, ObjNum,0: Offset Limb ObjNum+3, 0, -1.26, 0.23, 0.0
      Rem Bonnet
      Make Object Box ObjNum+4, 1.8, .4, 1.22: Color Object ObjNum+4,BodyColour
      ZRotate Object ObjNum+4,178: Fix Object Pivot ObjNum+4
      Glue Object To Limb ObjNum+4, ObjNum,0: Offset Limb ObjNum+4, 0, 0.86, 0.23, 0.0
      Make Object Box ObjNum+5, 1.0, 0.4, 0.4: Color Object ObjNum+5,BodyColour
      ZRotate Object ObjNum+5,4: Fix Object Pivot ObjNum+5
      Glue Object To Limb ObjNum+5, ObjNum,0: Offset Limb ObjNum+5, 0, 0.86, 0.3, 0.0
      Rem Exhaust
      Make Object Cylinder ObjNum+14,0.16: Color Object ObjNum+14,0
      ZRotate Object ObjNum+14,90: Fix Object Pivot ObjNum+14: Scale Object ObjNum+14,800,100,100
      Glue Object To Limb ObjNum+14, ObjNum,0: Offset Limb ObjNum+14,0, -1.75, -0.01, 0.1
      Make Object Cylinder ObjNum+15,0.16: Color Object ObjNum+15,0
      ZRotate Object ObjNum+15,90: Fix Object Pivot ObjNum+15: Scale Object ObjNum+15,800,100,100
      Glue Object To Limb ObjNum+15, ObjNum,0: Offset Limb ObjNum+15,0, -1.75, -0.01, -0.1
      Rem Front Glass
      Make Object Box ObjNum+21, 0.04, 0.5, 1.2: Color Object ObjNum+21,RGB(120,120,170)
      ZRotate Object ObjNum+21,40: Fix Object Pivot ObjNum+21
      Glue Object To Limb ObjNum+21, ObjNum,0: Offset Limb ObjNum+21,0, 0.0, 0.6, 0
      Ghost Object On ObjNum+21
      Rem Seat
      Make Object Box ObjNum+22, 0.2, 0.4, 1.2: Color Object ObjNum+22,RGB(80,30,0)
      ZRotate Object ObjNum+22,6: Fix Object Pivot ObjNum+22
      Glue Object To Limb ObjNum+22, ObjNum,0: Offset Limb ObjNum+22, 0, -0.7, 0.23, 0.0
      Make Object Box ObjNum+23, 0.4, 0.2, 1.2: Color Object ObjNum+23,RGB(80,30,0)
      Glue Object To Limb ObjNum+23, ObjNum,0: Offset Limb ObjNum+23, 0, -0.4, 0.1, 0.0
      Make Object Plain ObjNum+24, 0.4, 0.4: Texture Object ObjNum+24,12003
      YRotate Object ObjNum+24,90: ZRotate Object ObjNum+24,168: Fix Object Pivot ObjNum+24
      Glue Object To Limb ObjNum+24, ObjNum, 0: Offset Limb ObjNum+24, 0, -0.1, 0.4, 0.3
      Set Object ObjNum+24, 1, 0, 0
    EndCase
  EndSelect
  Rem ****** Parts Common To All Vehicles ******
  Rem Front Right Wheel
  Make Object Cylinder ObjNum+6,0.7: Color Object ObjNum+6,0
  XRotate Object ObjNum+6,90: Fix Object Pivot ObjNum+6
  Glue Object To Limb ObjNum+6, ObjNum,0: Offset Limb ObjNum+6,0, 1.25, -0.2, -0.7
  Make Object Cylinder ObjNum+7,0.5: Color Object ObjNum+7,RGB(160,160,160)
  XRotate Object ObjNum+7,90: Fix Object Pivot ObjNum+7
  Glue Object To Limb ObjNum+7, ObjNum,0: Offset Limb ObjNum+7,0, 1.25, -0.2, -0.82
  Rem Front Left Wheel
  Make Object Cylinder ObjNum+8,0.7: Color Object ObjNum+8,0
  XRotate Object ObjNum+8,90: Fix Object Pivot ObjNum+8
  Glue Object To Limb ObjNum+8, ObjNum,0: Offset Limb ObjNum+8,0, 1.25, -0.2, 0.7
  Make Object Cylinder ObjNum+9,0.5: Color Object ObjNum+9,RGB(160,160,160)
  XRotate Object ObjNum+9,90: Fix Object Pivot ObjNum+9
  Glue Object To Limb ObjNum+9, ObjNum,0: Offset Limb ObjNum+9,0, 1.25, -0.2, 0.82
  Rem Back Right Wheel
  Make Object Cylinder ObjNum+10,0.7: Color Object ObjNum+10,0
  XRotate Object ObjNum+10,90: Fix Object Pivot ObjNum+10
  Glue Object To Limb ObjNum+10, ObjNum,0: Offset Limb ObjNum+10,0, -1.25, -0.2, -0.7
  Make Object Cylinder ObjNum+11,0.5: Color Object ObjNum+11,RGB(160,160,160)
  XRotate Object ObjNum+11,90: Fix Object Pivot ObjNum+11
  Glue Object To Limb ObjNum+11, ObjNum,0: Offset Limb ObjNum+11,0, -1.25, -0.2, -0.82
  Rem Back Left Wheel
  Make Object Cylinder ObjNum+12,0.7: Color Object ObjNum+12,0
  XRotate Object ObjNum+12,90: Fix Object Pivot ObjNum+12
  Glue Object To Limb ObjNum+12, ObjNum,0: Offset Limb ObjNum+12,0, -1.25, -0.2, 0.7
  Make Object Cylinder ObjNum+13,0.5: Color Object ObjNum+13,RGB(160,160,160)
  XRotate Object ObjNum+13,90: Fix Object Pivot ObjNum+13
  Glue Object To Limb ObjNum+13, ObjNum,0: Offset Limb ObjNum+13,0, -1.25, -0.2, 0.82
  Rem Brake Lights
  Make Object Cylinder ObjNum+17,0.12: Color Object ObjNum+17,RGB(128,0,0)
  ZRotate Object ObjNum+17,90: Fix Object Pivot ObjNum+17: Scale Object ObjNum+17,800,100,100
  Glue Object To Limb ObjNum+17, ObjNum,0: Offset Limb ObjNum+17,0, -1.72, 0.28, 0.87
  Make Object Cylinder ObjNum+18,0.12: Color Object ObjNum+18,RGB(128,0,0)
  ZRotate Object ObjNum+18,90: Fix Object Pivot ObjNum+18: Scale Object ObjNum+18,800,100,100
  Glue Object To Limb ObjNum+18, ObjNum,0: Offset Limb ObjNum+18,0, -1.72, 0.28, -0.87
  Rem Headlights
  Make Object Cylinder ObjNum+19,0.3: Color Object ObjNum+19,RGB(255,255,0)
  ZRotate Object ObjNum+19,90: Fix Object Pivot ObjNum+19: Scale Object ObjNum+19,800,100,100
  Glue Object To Limb ObjNum+19, ObjNum,0: Offset Limb ObjNum+19,0, 1.64, 0.20, 0.80
  Make Object Cylinder ObjNum+20,0.3: Color Object ObjNum+20,RGB(255,255,0)
  ZRotate Object ObjNum+20,90: Fix Object Pivot ObjNum+20: Scale Object ObjNum+20,800,100,100
  Glue Object To Limb ObjNum+20, ObjNum,0: Offset Limb ObjNum+20,0, 1.64, 0.20, -0.80
  Rem Apply Lighting
  For N=ObjNum To ObjNum+49
    If Object Exist(N)
      Set Object Ambient N,RGB(48,48,48)
      Set Object Diffuse N,RGB(64,64,64)
      Set Object Emissive N,RGB(0,0,0)
      Set Object Specular N,RGB(128,128,128),50
    Endif
  Next N
  YRotate Object ObjNum,180.0: Fix Object Pivot ObjNum
EndFunction

Function MakeGradient(ImgNum,Size,Red#,Green#,Blue#,EndRed,EndGreen,EndBlue)
  Rem TDK's Colour Gradient Function
  Rem Creates a gradient of size 'Size' starting at colour R,G,B and ending at R2, G2, B2
  Rem Note: Red, Green & Blue need to be floats for the calculations even though they are used in the
  Rem RGB function which normally requires integers. The end R,G & B are integers as normal.
  RedRatio# = ABS((EndRed-Red#) / 255): If EndRed < Red# Then RedRatio# = 0-RedRatio#
  GreenRatio# = ABS((EndGreen-Green#) / 255): If EndGreen < Green# Then GreenRatio# = 0-GreenRatio#
  BlueRatio# = ABS((EndBlue-Blue#) / 255): If EndBlue < Blue# Then BlueRatio# = 0-BlueRatio#
  For N=0 To Size
    Ink RGB(Red#,Green#,Blue#),0
    Line 0,N,Size,N
    Inc Red#,RedRatio#
    Inc Green#,GreenRatio#
    Inc Blue#,BlueRatio#
  Next N
  Get Image ImgNum,0,0,Size+1,Size*2: Rem Grab Gradient Into An Image
EndFunction

Function MakeClouds(ImgNum,Size)
  Rem TDK's Cloud Texture Function
  CLS 0: Ink RGB(255,255,255),0
  For N = 0 To 16
    Circle 20,20,N
    Circle 21,20,N
  Next N
  Get Image ImgNum,21,0,42,42
  For N = 0 To 22
    Paste Image ImgNum,22+N,0
  Next N
  Blur Bitmap 1,1
  Get Image ImgNum,0,0,65,42
  Sync
  CLS
  For N1=1 To 20
    X=Rnd(192)+10: Y=Rnd(100) + 60
    Paste Image ImgNum,X,Y,1
  Next N1
  Blur Bitmap 1,8
  Blur Bitmap 1,8
  Get Image ImgNum,0,0,Size+16,Size*1.8: Rem Grab Gradient Into An Image
EndFunction

Function Normalise(MatNum,MatWid,MatHig,Shading#)
  Rem By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
  For z=1 to MatWid
    For x=1 to MatHig
      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)*Shading#
      y1#=h#
      x2#=(x+0)*Shading#
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*Shading#
      y1#=h2#
      z2#=(z+0)*Shading#
      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
EndFunction

Function CarDistance(CarNum)
  CarPosX = Object Position X(CarNum*100+5000)
  Dx# = CarPosX - Waypoints#(CarNum,  CurrentWayPoint(CarNum),  0)
  rem Dy# = Object Position Y(CarNum)-5.0
  CarPosZ = Object Position Z(CarNum*100+5000)
  Dz# = CarPosZ - Waypoints#(CarNum,CurrentWayPoint(CarNum),1)
  Dist# = Sqrt((Dx#*Dx#)+0+(Dz#*Dz#))
EndFunction Dist#

Function Tilt_Object(ObjNum,MatNum,Ox#,Oy#,Oz#,ObjWid#,ObjHig#,ObjDep#)

  Rem The Calculations...
  OAy# = Object Angle Y(ObjNum): DirX# = Sin(OAy#): DirZ# = Cos(OAy#)
  rem Text 500,10,Str$(OAy#)

  Rem Get Matrix Height At Front Of Box
  FX# = Ox# + (ObjDep#/2.0) * DirX#: FZ# = Oz# + (ObjDep#/2.0) * DirZ#
  FrontY# = Get Ground Height(MatNum,FX#,FZ#)
  Position Object 2001, FX#, FrontY# + ObjHig#+1.5, FZ#
  Rem Get Matrix Height At Back Of Box
  BX# = Ox# - (ObjDep#/2.0) * DirX#: BZ# = Oz# - (ObjDep#/2.0) * DirZ#
  BackY# = Get Ground Height(MatNum,BX#,BZ#)
  Position Object 2002, BX#, BackY# + ObjHig#+1.5, BZ#
  Rem Get Matrix Height At Left Of Box
  LX# = Ox# - (ObjWid#/2.0) * DirZ#: LZ# = Oz# + (ObjWid#/2.0) * DirX#
  LeftY# = Get Ground Height(MatNum,LX#,LZ#)
  Position Object 2003, LX#, LeftY# + ObjHig#+1.5, LZ#
  Rem Get Matrix Height At Right Of Box
  RX# = Ox# + (ObjWid#/2.0) * DirZ#: RZ# = Oz# - (ObjWid#/2.0) * DirX#
  RightY# = Get Ground Height(MatNum,RX#,RZ#)
  Position Object 2004, RX#, RightY# + ObjHig#+1.5, RZ#

  Rem Set Object Rotation ZYX ObjNum
  Rem Set Object Rotation XYZ ObjNum
  Rem XATF = WrapValue(Atanfull(FZ#-BZ#, FrontY#-BackY#))
  Rem ZATF = WrapValue(Atanfull(LX#-RX#, LeftY#-RightY#))


  If (OAy# > 0.0 And OAy# < 90.0) Or OAy# > 270.0: Rem Upish
    Rem XATF = WrapValue(Atanfull(FZ#-BZ#, FrontY#-BackY#)-90)
    Rem Xrotate Object ObjNum, XATF
    If OAy# > 270.0: Rem Up Leftish
      Rem ZATF = WrapValue(Atanfull(LX#-RX#,LeftY#-RightY#)+90)
      rem Zrotate Object ObjNum,ZATF-90
      rem Text 420,10,"Up Left      "
      XATF = WrapValue(XATF-0)
      ZATF = WrapValue(ZATF-0)
    Endif
    If OAy# > 0.0 And OAy# < 90.0: Rem Up Rightish
      Rem ZATF = WrapValue(Atanfull(RX#-LX#,RightY#-LeftY#)-90)
      XATF = WrapValue(XATF-0)
      ZATF = WrapValue(ZATF-0)
      rem Text 420,10,"Up Right      "
      Rem Zrotate Object ObjNum,ZATF-270
    Endif
  Endif

  If OAy# > 90.0 And OAy# < 270.0: Rem Downish
    Rem XATF = WrapValue(Atanfull(BZ#-FZ#, BackY#-FrontY#)+90)
    Rem Xrotate Object ObjNum, XATF
    If OAy# < 180.0: Rem Down Rightish
      XATF = WrapValue(XATF-0)
      ZATF = WrapValue(ZATF-0)
      rem Text 420,10,"Down Right      "
      Rem Zrotate Object ObjNum,ZATF
    Endif
    If OAy# > 180.0 And OAy# < 270.0: Rem Down Leftish
      rem Text 420,10,"Down Left      "
      XATF = WrapValue(XATF-0)
      ZATF = WrapValue(ZATF-0)
      Rem ZATF = WrapValue(Atanfull(LX#-RX#,LeftY#-RightY#)+90)
      Rem Zrotate Object ObjNum,ZATF
    Endif
  Endif



  If OAy#=0.0: Rem Exactly Up
    XATF = WrapValue(Atanfull(FZ#-BZ#, FrontY#-BackY#)-90)
    ZATF = WrapValue(Atanfull(LX#-RX#, LeftY#-RightY#)-270)
    Xrotate Object ObjNum,WrapValue(XATF)
    Zrotate Object ObjNum,WrapValue(ZATF)
    rem Text 420,10,"Up             "
  Endif

  If OAy#=180.0: Rem Exactly Down
    XATF = WrapValue(Atanfull(FZ#-BZ#, FrontY#-BackY#)-270)
    ZATF = WrapValue(Atanfull(LX#-RX#, LeftY#-RightY#)-90)
    Xrotate Object ObjNum,WrapValue(XATF)
    rem Text 420,10,"Down           "
  Endif

  If OAy#=90.0: Rem Exactly Right
    Rem Set Object Rotation ZYX ObjNum
    Rem XATF = WrapValue(Atanfull(LZ#-RZ#, LeftY#-RightY#)-90)
    ZATF = ABS(Atanfull(FX#-BX#, FrontY#-BackY#)-90)
    Rem Xrotate Object ObjNum, WrapValue(ZATF)
    Zrotate Object ObjNum,WrapValue(ZATF)
    rem Text 420,10,"Right          "
    Rem Set Object Rotation XYZ ObjNum
  Endif

  If OAy#=270.0: Rem Exactly Left
    XATF = WrapValue(Atanfull(FZ#-BZ#, FrontY#-BackY#)-270)
    ZATF = WrapValue(Atanfull(LX#-RX#, LeftY#-RightY#)-90)
    Zrotate Object ObjNum,WrapValue(ZATF)
    rem Text 420,10,"Left           "
  Endif


  remstart
  Rem Old version
  If OAy# <= 90 Or OAy# >= 270: Rem Pointing North
    XATF = WrapValue(Atanfull(Back#-Front#,FZ#-BZ#))
    Xrotate Object ObjNum, XATF
  Else: Rem Pointing South
    Rem XATF = WrapValue(Atanfull(Front#-Back#,BZ#-FZ#))
    Rem Xrotate Object ObjNum, XATF
  Endif
  If OAy# >= 180: Rem Pointing West
    Rem ZATF = WrapValue(Atanfull(BX#-FX#,Back#-Front#)-180)
    Rem ZATF = Wrapvalue(Atanfull(Left#-Right#,FX#-BX#)-180)
    Rem Zrotate Object ObjNum, ZATF
  Else: Rem Pointing East
    ZATF = WrapValue(Atanfull(FX#-BX#,Front#-Back#)-90)
    Zrotate Object ObjNum,ZATF
    Rem ZATF = Wrapvalue(Atanfull(Right#-Left#,BX#-FX#)-180)
    rem Zrotate Object ObjNum, Wrapvalue(Atanfull(Left#-Right#,FX#-BX#))
  Endif
  rem Set Object Rotation XYZ ObjNum
  remend

  rem Text 10,10,"Front: "+Str$(FrontY#)+"   Back: "+Str$(BackY#)+"   F-B: "+Str$(FrontY# - BackY#)+"   X ATF: "+Str$(XATF)
  rem Text 10,26,"Left: "+Str$(LeftY#)+"   Right: "+Str$(RightY#)+"   L-R: "+Str$(LeftY# - RightY#)+"   Z ATF: "+Str$(ZATF)
  rem Text 10,10,"X ATF: "+Str$(XATF)
  rem Text 10,26,"Z ATF: "+Str$(ZATF)

  Position Object ObjNum,Ox#,Oy#+(ObjHig#/2.0),Oz#
  Rem  Front#   Rear#   Left#   Right#  Back#-Front#  Front#-Back#  FX#-BX# BX#-FX#
endfunction

As you can see from the car you are following, the four small markers correctly mirror the slope of the matrix at the front, back, left and right of the car as it goes around the track.

What I can't achieve is applying the angles you can calculate from these four markers to the car itself. Damn Euler rotations!

I've started a new thread to see if we can achieve a solution to this problem by putting all our heads together. If we can figure it out, it would be very useful for future challenges - especially when media-less projects do rely a lot more on the good old matrix.

TDK

* TDK's Web Site *

Back to top

Profile PM Email Website

Dark Dragon

18

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 7th Aug 2009 20:35

Link

Quote: "Extended commands are now allowed in the challenge. I suggest everyone upgrade asap.

"

oh, cool, ive been gone quite a while then. any other rule changes i should know? I've got time this week to take a challange.

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Back to top

Profile PM

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 8th Aug 2009 01:38

Link

Quote: "did you ever finish updateing that second edition of "keeping your code orgenized" thingy,I would like to take a look at that."

I stopped working on it because there were a few areas I was too inexperienced to write about. I've learned a bit more since then and I'll add to it when I get the time and I get a new laptop (going to buy one next week!)

The incomplete version is here, the thread is auto-locked though.

TGC Forum - converting error messages into sarcasm since 2002.

Back to top

Profile PM Email

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 8th Aug 2009 02:13 Edited at: 8th Aug 2009 03:10

Link

[EDIT]
I just read TheComets next message and apparently I have more time! So I'll just remove this incomplete mess... [click] and hopefully have somehting better tomorrow

Enjoy your day.

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 8th Aug 2009 02:48

Link

Quote: "Anyway, I think I have about 30 minutes left so I'll try and put together something that resembles a racing game!"

I am very confusing, aren't I?

You actually have around 22 hours left until Saturday 24:00 CET. I'll have to look at your entry tomorrow morning, because this computer is ubuntu only.

TheComet

Make the path of your enemies easier with Waypoint Pro!

Back to top

Profile PM Email Website

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 8th Aug 2009 03:01

Link

woohoo I have time to make an entry!
I've really struggled for a decent idea on this one but I've come up with a very oldschool type idea, let's hope it's actually fun!

My other idea was that you race as an electron around a circuit board, you'd have LEDs that gave you a boost and resistors that only allowed one electron through at a time (crashes!) was a cool idea but this one is better.

TGC Forum - converting error messages into sarcasm since 2002.

Back to top

Profile PM Email

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 8th Aug 2009 18:04 Edited at: 8th Aug 2009 18:05

Link

That is an awesome idea, obese! If your next idea is better than the one I mentioned, then

.

This is the last 7 hour sprint. Time to start finishing off your programs and handing them in. No rush though, 7 hours is a long time.

TheComet

Make the path of your enemies easier with Waypoint Pro!

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 8th Aug 2009 18:39 Edited at: 9th Aug 2009 01:26

Link

Quote: "And did you ever finish updateing that second edition of "keeping your code orgenized" thingy,I would like to take a look at that."

There's also the 'original' one which may have inspired OBese87 to write his here. (See Programming For Beginners Part 2).

And there's also the utility DBATidy which I wrote. It will take your existing programs which are badly indented (or not indented at all) and 'tidy' them up - adding the correct indentation.

This means you don't have to go through old code and you can learn about indentation from the results.

DBA Tidy 1.4 attached (use download button below).

TDK

* TDK's Web Site *

Back to top

Profile PM Email Website

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 8th Aug 2009 18:43

Link

I havent tested it but sounds like a cool program TDK

Back to top

Profile PM Email

t10dimensional

16

Years of Service

User Offline

Joined: 22nd Mar 2009

Location: Code Cave, USA

Posted: 8th Aug 2009 21:48

Link

@TDK
I read that a while back going through your tutorials,might have to read again when I got the time.

And the DBAtidy program is AWWWWSOME

. I used it on some of my old projects code and it worked great.Thanks

@Obese
Thanks too.That should help me some.

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 9th Aug 2009 01:46

Link

I'm giving everyone one more hour until the deadline. Please enter your entries now.

TheComet

Make the path of your enemies easier with Waypoint Pro!

Back to top

Profile PM Email Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 9th Aug 2009 02:09

Link

Here's mine. I couldn't work any more on my original entry as it was getting really big and really complicated so i wrote up a new entry today.

Move around with the arrow keys. Try and get to the end of the matrix before any of the other sleds (boxes). You are sled 1. Needs a bit of work:

remstart
   ==============================================================
   =  Title  : Matrix Race
   =  Author : latch
   =  Date   : 08/08/2009
   =  Update :
   =  Version: .01
   ==============================================================
   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 _init
   do
      `gosub _move_camera
      c=1
      ccam=1
      gosub _input
      gosub _player_pillar_hit
      gosub _ai
      gosub _wall_collision
      text 0,0,str$(screen fps())

sync
   loop

end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _init:
      rem textures
      bmp=1
      `grass
      grass=1
      create bitmap bmp,256,256
      cls rgb(0,60,0)
      for n=1 to 20000
         ink rgb(rnd(10),rnd(120)+60,rnd(5)),0
         dot rnd(255),rnd(255)
      next n
      get image grass,0,0,256,256
      sync

delete bitmap bmp

gosub _make_ground
      gosub _lighting
      gosub _make_cars
      gosub _make_trees

`position camera 0,0,0
   return
`----------------------------------------------------------------
   _make_ground:
      mat=1
      tilex=10
      tilez=400
      matx#=1000
      matz#=60000
      maxheight#=50
      sizex#=matx#/tilex/2
      sizez#=matz#/tilez/2

make matrix mat,matx#,matz#,tilex,tilez
      randomize 1
      randomize matrix mat,maxheight#
      prepare matrix texture mat,1,1,1
      calc_mat_normals(mat,tilex,tilez,sizex#,sizez#)

return
`----------------------------------------------------------------
   _lighting:
      color ambient light rgb(128,128,128)
      set directional light 0,1,-.5,.2
   return
`----------------------------------------------------------------
   _make_cars:
      read carcount
      c=carcount
      dim obj(c)
      dim pivot(c)
      dim bounce#(c)
      dim zspeedmax#(c)
      dim zspeed#(c)
      dim xspeedmax#(c)
      dim xspeed#(c)
      dim accel#(c)
      dim friction#(c)

for c=1 to carcount
         read obj(c)
         `make object box obj(c),50,20,100
         `set object collision off obj(c)
         read pivot(c)
         make object box pivot(c),50,20,100
         make mesh from object pivot(c),pivot(c)
         add limb pivot(c),1,pivot(c)
         delete mesh pivot(c)
         `color object pivot(c),0
         `set object pivot(c),1,0,1
         set object collision to boxes pivot(c)
         hide limb pivot(c),0
         `glue object to limb obj(c),pivot(c),0
         position object pivot(c),c*85,10+get ground height(mat,c*85,150),100
         tilt(mat,1,pivot(c))
         read bounce#(c)
         read zspeedmax#(c)
         read zspeed#(c)
         read xspeedmax#(c)
         read xspeed#(c)
         read accel#(c)
         read friction#(c)
      next c

return

`----------------------------------------------------------------
   _make_trees:
      obj=1
      make object box obj,20,200,20
      offset limb obj,0,0,100,0
      make mesh from object obj,obj
      delete object obj
      make object obj,obj,0
      for lmb=1 to 500
         add limb obj,lmb,obj
         offset limb obj,lmb,rnd(int(matx#)),0,rnd(30000)+rnd(30000)
      next lmb
      delete mesh obj
      make mesh from object obj,obj
      delete object obj
      make object obj,obj,0
      color object obj,RGB(192,192,192)
      delete mesh obj
      set object collision off obj
      set object collision on obj
      set object collision to polygons obj
   return
`----------------------------------------------------------------
   _move_camera:
      move camera (upkey()-downkey())*5
      yang#=wrapvalue(camera angle y()+mousemovex())
      yrotate camera yang#
      xrotate camera wrapvalue(camera angle x()+mousemovey())

return
`----------------------------------------------------------------
   _input:
      forward=upkey()
      backward=downkey()
      right=rightkey()
      left=leftkey()

move_player(c,mat,forward,backward,left,right,ccam)
      tilt(mat,1,pivot(c))
   return
`----------------------------------------------------------------
   _ai:
      for sled=1 to carcount
         if sled ! c
            forward=1
            if rnd(1)
               left=1
               right=0
            else
               right=1
               left=0
            endif
            backward=0
            bang=object hit(pivot(sled),0)
            rem check for collision with sleds
            if bang > 1000
               sled2=(bang-1020)+1
               if object position z(pivot(sled2)) > object position z(pivot(sled))
                  zspeed#(sled2)=zspeed#(sled2)+abs(zspeed#(sled)*bounce#(sled))
                  zspeed#(sled)=abs(zspeed#(sled))*bounce#(sled)
               else
                  zspeed#(sled)=zspeed#(sled)+abs(zspeed#(sled2)*bounce#(sled2))
                  zspeed#(sled2)=abs(zspeed#(sled2))*bounce#(sled2)
               endif
               if object position x(pivot(sled2)) > object position x(pivot(sled))
                  xspeed#(sled)=abs(xspeed#(sled))*bounce#(sled)
                  xspeed#(sled2)=(xspeed#(sled2))*abs(bounce#(sled2))
               else
                  xspeed#(sle2)=abs(xspeed#(sled2))*bounce#(sled2)
                  xspeed#(sled)=(xspeed#(sled))*abs(bounce#(sled))
               endif
            endif
            if bang > 0 and bang < 1000
               a=rnd(2)-1
               zspeed#(sled)=zspeedmax#(sled)*bounce#(sled)*a
               xspeed#(sled)=xspeedmax#(sled)*bounce#(sled)*a
            endif
            move_player(sled,mat,forward,backward,left,right,ccam)
            tilt(mat,1,pivot(sled))
         endif
      next sled
   return
`----------------------------------------------------------------
   _wall_collision:
      for sled=1 to carcount
         objx#=object position x(pivot(sled))
         objz#=object position z(pivot(sled))
         if objx# <= 0
            xspeed#(sled)=abs(xspeedmax#(sled)*bounce#(sled))
         endif
         if objx# >= matx#
            xspeed#(sled)=abs(xspeedmax#(sled))*bounce#(sled)
         endif

if objz# >= matz#
            ink rgb(255,255,255),0
            repeat
               center text screen width()/2, screen height()/2,"SLED "+str$(sled)+" WINS!"
               sync
            until spacekey()=1
            end
         endif
      next sled
   return
`----------------------------------------------------------------
   _player_pillar_hit:
      pilhit=object hit(pivot(c),1)
      if pilhit
         zspeed#(c)=zspeed#(c)*bounce#(c)
         xspeed#(c)=xspeed#(c)*bounce#(c)
      endif
   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
`----------------------------------------------------------------
   function tilt(mat,obj,pivot)
      rem matrix tilt object
      rem by latch
      rem 03/13/2009
      sx#=object size x(pivot)
      sz#=object size z(pivot)
      rem left side
      lx#=newxvalue(object position x(pivot),wrapvalue(object angle y(pivot)-90),sx#/2.0)
      lz#=newzvalue(object position z(pivot),wrapvalue(object angle y(pivot)-90),sx#/2.0)
      ly#=get ground height(mat,lx#,lz#)
      rem right side
      rx#=newxvalue(object position x(pivot),wrapvalue(object angle y(pivot)+90),sx#/2.0)
      rz#=newzvalue(object position z(pivot),wrapvalue(object angle y(pivot)+90),sx#/2.0)
      ry#=get ground height(mat,rx#,rz#)
      rem front
      fx#=newxvalue(object position x(pivot),object angle y(pivot),sz#/2.0)
      fz#=newzvalue(object position z(pivot),object angle y(pivot),sz#/2.0)
      fy#=get ground height(mat,fx#,fz#)
      rem back
      bx#=newxvalue(object position x(pivot),wrapvalue(object angle y(pivot)+180),sz#/2.0)
      bz#=newzvalue(object position z(pivot),wrapvalue(object angle y(pivot)+180),sz#/2.0)
      by#=get ground height(mat,bx#,bz#)

rem left right tilt
      `zang#=curveangle(wrapvalue(atanfull(ry#-ly#,sx#)),object angle z(obj),10)
      zang#=curveangle(wrapvalue(atanfull(ry#-ly#,sx#)),limb angle z(pivot,obj),10)
      `text 0,0,str$(zang#)
      `zrotate object obj,zang#

rem fron back tilt
      `xang#=curveangle(wrapvalue(atanfull(by#-fy#,sz#)),object angle x(obj),10)
      xang#=curveangle(wrapvalue(atanfull(by#-fy#,sz#)),limb angle x(pivot,obj),10)
      `text 0,20,str$(xang#)
      `xrotate object obj,xang#

`rotate object obj,xang#,object angle y(obj),zang#

rotate limb pivot,obj,xang#,0,zang#
   endfunction
`----------------------------------------------------------------
   function move_player(c,mat,forward,backward,left,right,ccam)
      if forward|backward
         if abs(zspeed#(c)) > zspeedmax#(c)
            `zspeed#(c)=(abs(zspeed#(c))/zspeed#(c))*zspeedmax#(c)
            zspeed#(c)=zspeed#(c)*friction#(c)
         else
            zspeed#(c)=zspeed#(c)+((forward-backward)*accel#(c))
         endif
      else
         zspeed#(c)=zspeed#(c)*friction#(c)
      endif
      if right|left
         xspeed#(c)=xspeed#(c)+((right-left)*accel#(c))
         if abs(xspeed#(c)) > xspeedmax#(c)
            xspeed#(c)=(abs(xspeed#(c))/xspeed#(c))*xspeedmax#(c)
         endif
      else
         xspeed#(c)=xspeed#(c)*friction#(c)
      endif

objx#=object position x(pivot(c))+xspeed#(c)
      objz#=object position z(pivot(c))+zspeed#(c)
      if mat > 0
         objy#=get ground height(mat,objx#,objz#)+10
      else
         objy#=object position y(pivot(c))
      endif

angy#=object angle y(pivot(c))
      position object pivot(c),objx#,objy#,objz#

if ccam > 0
         set camera to follow object position x(pivot(ccam)),object position y(pivot(ccam))+50,object position z(pivot(ccam)),angy#,300,100,6,1
      endif
   endfunction
rem =============================================================
rem = DATA STATEMENTS
rem =============================================================
   _car_stats:
      rem obj,pivot,bounce#,zspeedmax#,zspeed#,xspeedmax#,xspeed#,accel#,friction#
      rem first value is number of cars
      data 10
      data 1000,1020,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1001,1021,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1002,1022,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1003,1023,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1004,1024,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1005,1025,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1006,1026,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1007,1027,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1008,1028,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1009,1029,-.90,20.0,0.0,20.0,0.0,.3,.97

+ Code Snippet

remstart
   ==============================================================
   =  Title  : Matrix Race
   =  Author : latch
   =  Date   : 08/08/2009
   =  Update :
   =  Version: .01
   ==============================================================
   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 _init
   do
      `gosub _move_camera
      c=1
      ccam=1
      gosub _input
      gosub _player_pillar_hit
      gosub _ai
      gosub _wall_collision
      text 0,0,str$(screen fps())

      sync
   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _init:
      rem textures
      bmp=1
      `grass
      grass=1
      create bitmap bmp,256,256
      cls rgb(0,60,0)
      for n=1 to 20000
         ink rgb(rnd(10),rnd(120)+60,rnd(5)),0
         dot rnd(255),rnd(255)
      next n
      get image grass,0,0,256,256
      sync

      delete bitmap bmp

      gosub _make_ground
      gosub _lighting
      gosub _make_cars
      gosub _make_trees

      `position camera 0,0,0
   return
`----------------------------------------------------------------
   _make_ground:
      mat=1
      tilex=10
      tilez=400
      matx#=1000
      matz#=60000
      maxheight#=50
      sizex#=matx#/tilex/2
      sizez#=matz#/tilez/2

      make matrix mat,matx#,matz#,tilex,tilez
      randomize 1
      randomize matrix mat,maxheight#
      prepare matrix texture mat,1,1,1
      calc_mat_normals(mat,tilex,tilez,sizex#,sizez#)

   return
`----------------------------------------------------------------
   _lighting:
      color ambient light rgb(128,128,128)
      set directional light 0,1,-.5,.2
   return
`----------------------------------------------------------------
   _make_cars:
      read carcount
      c=carcount
      dim obj(c)
      dim pivot(c)
      dim bounce#(c)
      dim zspeedmax#(c)
      dim zspeed#(c)
      dim xspeedmax#(c)
      dim xspeed#(c)
      dim accel#(c)
      dim friction#(c)

      for c=1 to carcount
         read obj(c)
         `make object box obj(c),50,20,100
         `set object collision off obj(c)
         read pivot(c)
         make object box pivot(c),50,20,100
         make mesh from object pivot(c),pivot(c)
         add limb pivot(c),1,pivot(c)
         delete mesh pivot(c)
         `color object pivot(c),0
         `set object pivot(c),1,0,1
         set object collision to boxes pivot(c)
         hide limb pivot(c),0
         `glue object to limb obj(c),pivot(c),0
         position object pivot(c),c*85,10+get ground height(mat,c*85,150),100
         tilt(mat,1,pivot(c))
         read bounce#(c)
         read zspeedmax#(c)
         read zspeed#(c)
         read xspeedmax#(c)
         read xspeed#(c)
         read accel#(c)
         read friction#(c)
      next c

   return

`----------------------------------------------------------------
   _make_trees:
      obj=1
      make object box obj,20,200,20
      offset limb obj,0,0,100,0
      make mesh from object obj,obj
      delete object obj
      make object obj,obj,0
      for lmb=1 to 500
         add limb obj,lmb,obj
         offset limb obj,lmb,rnd(int(matx#)),0,rnd(30000)+rnd(30000)
      next lmb
      delete mesh obj
      make mesh from object obj,obj
      delete object obj
      make object obj,obj,0
      color object obj,RGB(192,192,192)
      delete mesh obj
      set object collision off obj
      set object collision on obj
      set object collision to polygons obj
   return
`----------------------------------------------------------------
   _move_camera:
      move camera (upkey()-downkey())*5
      yang#=wrapvalue(camera angle y()+mousemovex())
      yrotate camera yang#
      xrotate camera wrapvalue(camera angle x()+mousemovey())

   return
`----------------------------------------------------------------
   _input:
      forward=upkey()
      backward=downkey()
      right=rightkey()
      left=leftkey()

      move_player(c,mat,forward,backward,left,right,ccam)
      tilt(mat,1,pivot(c))
   return
`----------------------------------------------------------------
   _ai:
      for sled=1 to carcount
         if sled ! c
            forward=1
            if rnd(1)
               left=1
               right=0
            else
               right=1
               left=0
            endif
            backward=0
            bang=object hit(pivot(sled),0)
            rem check for collision with sleds
            if bang > 1000
               sled2=(bang-1020)+1
               if object position z(pivot(sled2)) > object position z(pivot(sled))
                  zspeed#(sled2)=zspeed#(sled2)+abs(zspeed#(sled)*bounce#(sled))
                  zspeed#(sled)=abs(zspeed#(sled))*bounce#(sled)
               else
                  zspeed#(sled)=zspeed#(sled)+abs(zspeed#(sled2)*bounce#(sled2))
                  zspeed#(sled2)=abs(zspeed#(sled2))*bounce#(sled2)
               endif
               if object position x(pivot(sled2)) > object position x(pivot(sled))
                  xspeed#(sled)=abs(xspeed#(sled))*bounce#(sled)
                  xspeed#(sled2)=(xspeed#(sled2))*abs(bounce#(sled2))
               else
                  xspeed#(sle2)=abs(xspeed#(sled2))*bounce#(sled2)
                  xspeed#(sled)=(xspeed#(sled))*abs(bounce#(sled))
               endif
            endif
            if bang > 0 and bang < 1000
               a=rnd(2)-1
               zspeed#(sled)=zspeedmax#(sled)*bounce#(sled)*a
               xspeed#(sled)=xspeedmax#(sled)*bounce#(sled)*a
            endif
            move_player(sled,mat,forward,backward,left,right,ccam)
            tilt(mat,1,pivot(sled))
         endif
      next sled
   return
`----------------------------------------------------------------
   _wall_collision:
      for sled=1 to carcount
         objx#=object position x(pivot(sled))
         objz#=object position z(pivot(sled))
         if objx# <= 0
            xspeed#(sled)=abs(xspeedmax#(sled)*bounce#(sled))
         endif
         if objx# >= matx#
            xspeed#(sled)=abs(xspeedmax#(sled))*bounce#(sled)
         endif

         if objz# >= matz#
            ink rgb(255,255,255),0
            repeat
               center text screen width()/2, screen height()/2,"SLED "+str$(sled)+" WINS!"
               sync
            until spacekey()=1
            end
         endif
      next sled
   return
`----------------------------------------------------------------
   _player_pillar_hit:
      pilhit=object hit(pivot(c),1)
      if pilhit
         zspeed#(c)=zspeed#(c)*bounce#(c)
         xspeed#(c)=xspeed#(c)*bounce#(c)
      endif
   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
`----------------------------------------------------------------
   function tilt(mat,obj,pivot)
      rem matrix tilt object
      rem by latch
      rem 03/13/2009
      sx#=object size x(pivot)
      sz#=object size z(pivot)
      rem left side
      lx#=newxvalue(object position x(pivot),wrapvalue(object angle y(pivot)-90),sx#/2.0)
      lz#=newzvalue(object position z(pivot),wrapvalue(object angle y(pivot)-90),sx#/2.0)
      ly#=get ground height(mat,lx#,lz#)
      rem right side
      rx#=newxvalue(object position x(pivot),wrapvalue(object angle y(pivot)+90),sx#/2.0)
      rz#=newzvalue(object position z(pivot),wrapvalue(object angle y(pivot)+90),sx#/2.0)
      ry#=get ground height(mat,rx#,rz#)
      rem front
      fx#=newxvalue(object position x(pivot),object angle y(pivot),sz#/2.0)
      fz#=newzvalue(object position z(pivot),object angle y(pivot),sz#/2.0)
      fy#=get ground height(mat,fx#,fz#)
      rem back
      bx#=newxvalue(object position x(pivot),wrapvalue(object angle y(pivot)+180),sz#/2.0)
      bz#=newzvalue(object position z(pivot),wrapvalue(object angle y(pivot)+180),sz#/2.0)
      by#=get ground height(mat,bx#,bz#)

      rem left right tilt
      `zang#=curveangle(wrapvalue(atanfull(ry#-ly#,sx#)),object angle z(obj),10)
      zang#=curveangle(wrapvalue(atanfull(ry#-ly#,sx#)),limb angle z(pivot,obj),10)
      `text 0,0,str$(zang#)
      `zrotate object obj,zang#

      rem fron back tilt
      `xang#=curveangle(wrapvalue(atanfull(by#-fy#,sz#)),object angle x(obj),10)
      xang#=curveangle(wrapvalue(atanfull(by#-fy#,sz#)),limb angle x(pivot,obj),10)
      `text 0,20,str$(xang#)
      `xrotate object obj,xang#

      `rotate object obj,xang#,object angle y(obj),zang#

      rotate limb pivot,obj,xang#,0,zang#
   endfunction
`----------------------------------------------------------------
   function move_player(c,mat,forward,backward,left,right,ccam)
      if forward|backward
         if abs(zspeed#(c)) > zspeedmax#(c)
            `zspeed#(c)=(abs(zspeed#(c))/zspeed#(c))*zspeedmax#(c)
            zspeed#(c)=zspeed#(c)*friction#(c)
         else
            zspeed#(c)=zspeed#(c)+((forward-backward)*accel#(c))
         endif
      else
         zspeed#(c)=zspeed#(c)*friction#(c)
      endif
      if right|left
         xspeed#(c)=xspeed#(c)+((right-left)*accel#(c))
         if abs(xspeed#(c)) > xspeedmax#(c)
            xspeed#(c)=(abs(xspeed#(c))/xspeed#(c))*xspeedmax#(c)
         endif
      else
         xspeed#(c)=xspeed#(c)*friction#(c)
      endif

      objx#=object position x(pivot(c))+xspeed#(c)
      objz#=object position z(pivot(c))+zspeed#(c)
      if mat > 0
         objy#=get ground height(mat,objx#,objz#)+10
      else
         objy#=object position y(pivot(c))
      endif

      angy#=object angle y(pivot(c))
      position object pivot(c),objx#,objy#,objz#

      if ccam > 0
         set camera to follow object position x(pivot(ccam)),object position y(pivot(ccam))+50,object position z(pivot(ccam)),angy#,300,100,6,1
      endif
   endfunction
rem =============================================================
rem = DATA STATEMENTS
rem =============================================================
   _car_stats:
      rem obj,pivot,bounce#,zspeedmax#,zspeed#,xspeedmax#,xspeed#,accel#,friction#
      rem first value is number of cars
      data 10
      data 1000,1020,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1001,1021,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1002,1022,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1003,1023,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1004,1024,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1005,1025,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1006,1026,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1007,1027,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1008,1028,-.90,20.0,0.0,20.0,0.0,.3,.97
      data 1009,1029,-.90,20.0,0.0,20.0,0.0,.3,.97

Enjoy your day.

Back to top

Profile PM

Dark Dragon

18

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 9th Aug 2009 02:33 Edited at: 9th Aug 2009 02:35

Link

@TDK

LOL! THAT PROGRAM WAS MADE FOR ME!

@everyone

Dang, i tried to make mine but........its nowhere near finshed. I missed this challange but will look forward to the next!

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 9th Aug 2009 02:57 Edited at: 9th Aug 2009 03:02

Link

Info:

Results are being processed. Please be patient. Thank you very much for your cooperation and entry.

TheComet

Make the path of your enemies easier with Waypoint Pro!

Back to top

Profile PM Email Website

Dark Dragon

18

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 9th Aug 2009 03:00

Link

oooooooooooooooooooooooooooooooooooooooooooh.....cant wait to see whom the victor is on this one.....

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 9th Aug 2009 03:39 Edited at: 9th Aug 2009 03:39

Link

TDK : You have put a lot of effort into your challenge, but didn't get finished. The graphics and style of the game were great, but you didn't add any player input or power ups.

Ooska : Very good game, I liked the way you used only text as graphics. And you added a power up with the turds.

Nano : Nice physics and random city generator, but it is not a racing game yet.

Razerx : Very innovative concept. I enjoyed playing it with my friend. Nice graphics and overall comfort with gameplay. But no power ups, only power downs.

Latch : Also nice game. A little more texture and a sky wouldn't have hurt, but nice game play. Although there weren't any power-ups.

Runner up:

+ Code Snippet

Latch!

Winner:

+ Code Snippet

Razerx!!!!!!!!!

Congrats to the winner, I'm awaiting the next challenge!

TheComet

Make the path of your enemies easier with Waypoint Pro!

Back to top

Profile PM Email Website

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 9th Aug 2009 03:50

Link

Razerx can't set the next challenge because he his head has exploded...

Sorry I couldn't get mine in on time, I'll keep working on it, not much to look at but it is CRAZY! I'm not sure if you can actually play the game yet. It's called Radius if that gives you a hint.

Congrats Razerx!

Can't wait for the next challenge... so hurry up!

TGC Forum - converting error messages into sarcasm since 2002.

Back to top

Profile PM Email

Dark Dragon

18

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 9th Aug 2009 03:59

Link

Quote: "Can't wait for the next challenge... so hurry up! "

Diddo.

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Back to top

Profile PM

t10dimensional

16

Years of Service

User Offline

Joined: 22nd Mar 2009

Location: Code Cave, USA

Posted: 9th Aug 2009 06:59 Edited at: 9th Aug 2009 07:17

Link

Quote: "Razerx can't set the next challenge because he his head has exploded..."

Ya,just about.

Thanks everyone.

~~~NEXT CHALLENGE~~~

Type: Survival/Defence Game

Deadline: Sunday,August 16,24:00

Rules: None other than the rules mentioned in the first post.

I think the type leaves the challenge open for noobish and skilled programers.It also should get everyone to particapate in this challenge as it should be fun.

The deadline will be extended if needed.

Back to top

Profile PM

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 9th Aug 2009 10:56

Link

Quote: ": Survival/Defence Game"

Kinda ambiguous there, what exactly do you mean? I mean, survival and defense pretty much sums up key elements in games from pitfall to World of Warcraft

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

NanoGamez guy

18

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 9th Aug 2009 13:20

Link

Congratulations Razerx!

What kind of games did you have in mind when you thought of the challenge?

My current wallpaper:

"I trust you have prepared new insults for today" - Spock, Star Trek

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 9th Aug 2009 18:01

Link

Quote: "Kinda ambiguous there"

I have to agree. I think it would help us all if you could narrow it down a bit - if only to help you when it comes to judging, (it's very difficult to judge games of different genres against each other).

Personally, I would prefer something a bit more specific.

And...

After the last one, I am a bit wary of challenges being full 'games'.

I tend to go at them far too seriously and although what I do is OK, I just can't finish them.

Can we not pick some specific element of a game so we can write smaller examples to demonstrate how we would all do it - rather than a full working game?

TDK

* TDK's Web Site *

Back to top

Profile PM Email Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 9th Aug 2009 21:03

Link

Here's my entry:

rem circle wars
rem by TheComet

rem names
input "please enter a name for player 1>",name1$
if name1$="" then name1$="Player 1"
if len(name1$)>30 then name1$=left$(name1$,30)
print "Welcome, "+name1$+", you will be the red circle and you stear with the arrow keys"
print
input "please enter a name for player 2>",name2$
if name2$="" then name2$="Player 2"
if len(name2$)>30 then name2$=left$(name2$,30)
print "Welcome, "+name2$+", you will be playing with the yellow circle and you stear with a,d,w"
print
input "press enter to start...",e$

rem setup screen
set display mode 1024,768,32
set camera view 0,0,screen width(),screen height()
sync on
sync rate 60
backdrop off
color backdrop 0
autocam off
position camera 100000,100000,10000
hide mouse

rem load music
if file exist("game.xm") then load music "game.xm",1
update_loading(24,0)
if file exist("pause.xm") then load music "pause.xm",2
update_loading(48,1)
if file exist("menu.xm") then load music "menu.xm",3
update_loading(72,1)

rem load instructions
create bitmap 1,600,436
ink rgb(0,0,255),0
box 6,56,274,101
box 6,106,274,190
box 6,195,274,329
box 6,336,274,434
box 281,56,595,160
box 281,168,595,285
ink 0,0
box 7,57,273,100
box 7,107,273,189
box 7,196,273,328
box 7,337,273,433
box 282,57,594,159
box 282,169,594,284
ink rgb(255,0,0),0
for t=1 to 11
   x=rnd(30)+10
   y=rnd(35)+60
   dot x,y
next t
set text size 30
center text 300,10,"INSTRUCTIONS"
set text size 20
text 60,64,"=FOOD"
set text size 10
text 10,200,"Player 1 : UP=MOVE"
text 10,217,"               LEFT=TURN LEFT"
text 10,234,"               RIGHT=TURN RIGHT"
text 136,350,"FRONT OF SHIP"
text 283,57,"THE BIGGER CIRCLES EAT THE SMALLER"
text 283,74,"ONES. TRY AND GET AS BIG AS YOU CAN."
text 283,91,"YOU WILL EXPLODE WHEN YOU GET REALLY"
text 283,108,"BIG, INSTANTLY KILLING EVERYONE. (THAT"
text 283,125,"IS GOOD). FOOD SPEEDS YOU UP, ENEMIES"
text 283,142,"SLOW YOU DONW. HAVE FUN! :)"
text 382,174,"IF YOU GET HIT BY A TURRET,"
text 382,191,"YOU WILL SHRINK, AND"
text 382,208,"YOUR SPEED WILL INCREASE."
text 344,240,"TURRET"
text 299,265,"BULLET"
line 366,235,348,199
line 318,259,302,206
line 180,367,106,389
circle 39,238,15
line 39,238,54,238
ink rgb(255,255,0),0
text 10,270,"Player 2 : W=MOVE"
text 10,287,"               A=TURN LEFT"
text 10,304,"               D=TURN RIGHT"
circle 39,306,15
line 39,306,54,306
circle 53,388,42
line 53,388,95,388
ink rgb(255,0,255),0
circle 343,193,12
line 343,193,318,192
line 343,193,321,205
circle 303,205,4
ink rgb(0,255,0),0
circle 343,193,21
ink rgb(0,255,255),0
circle 45,149,37
circle 122,145,28
circle 175,146,16
circle 203,153,8
line 45,149,82,146
line 122,145,149,145
line 175,146,190,149
line 203,153,210,156
get image 1,0,0,600,436
delete bitmap 1
update_loading(96,1)

rem make rock textures
create bitmap 1,128,128
for t=1 to 60000
   ink rgb(rnd(40)+42,rnd(30)+47,rnd(10)+10),0
   dot rnd(128),rnd(128)
next t
get image 2,0,0,128,128
delete bitmap 1

rem load rocks
make object sphere 1,4:texture object 1,2
update_loading(174,1)
make object sphere 2,2:texture object 2,2
update_loading(175,1)
make object sphere 5,3:texture object 5,2
update_loading(176,0)
delete image 2

rem scale rocks
load=176
for t=1 to  5
   if t<3 or t=5 then scale object t,300,300,300:inc load:update_loading(load,1)
next t

rem load and make backdrop
create bitmap 1,300,350
ink 0,0
box 0,0,299,249
ink rgb(255,255,255),0
for t=1 to 100
   dot rnd(300),rnd(350)
next t
get image 2,0,0,300,350
delete bitmap 1
update_loading(180,1)
make object plain 3,1200,1000
update_loading(181,1)
position object 3,0,0,700
update_loading(182,1)
update_loading(183,1)
set object 3,1,0,0
update_loading(184,1)
ghost object on 3
update_loading(185,1)
make object plain 4,1200,1000
update_loading(186,1)
position object 4,0,0,710
update_loading(187,1)
update_loading(188,1)
set object 4,1,0,0
update_loading(189,1)
ghost object on 4
update_loading(190,1)
texture object 3,2
texture object 4,2
update_loading(191,1)
scale object texture 3,2,2
scale object texture 4,2,2
fade object 3,0
fade object 4,0
update_loading(192,0)
lock object on 3
lock object on 4
backdrop on

rem variables
enemymax=15
food=60
turrets=3
music_state$="ON"
steer1$="up=move, left and right to steer"
steer2$="up=move, left and right to steer"

rem menu
color backdrop 0
start:
sel=1
if music_state$="ON" and music exist(3) then loop music 3
do

rem control backdrop
scroll object texture 3,0.001,0.0005
scroll object texture 4,0.0005,0.0002

rem control rocks
inc sine,rnd(2)
inc sine2#,0.125

s#=sin(sine)*nmz#/1.5
c#=cos(sine)*nmz#/1.5
sz#=sin(sine2#)*100
nmx#=curvevalue(s#,nmx#,30)
nmy#=curvevalue(s#,nmx#,30)
nmz#=sz#+120
position object 1,nmx#,nmy#/3,nmz#
position object 2,0-(nmx#/4),nmy#/2,nmz#/2
position object 5,0-nmx#,nmy#/3,nmz#
for t=1 to 5
   if t<3 or t=5 then rotate object t,wrapvalue(object angle x(t)+5),wrapvalue(object angle y(t)+3),wrapvalue(object angle z(t)+4)
next t

rem instructions
paste image 1,212,300

rem box with lines around writing
ink rgb(0,0,255),0
box 206,103,818,290
box 106,50,918,97
ink 0,0
box 207,104,817,289
box 107,51,917,96

rem move
if moving=0
   if upkey()=1 then dec sel
   if downkey()=1 then inc sel
   if sel>8 then sel=8
   if sel<1 then sel=1
   moving=1
endif
if upkey()=0 and downkey()=0 then moving=0

rem list menu
ink rgb(255,255,255),0
center text 512,60,"Welcome to TheComet`s Circle Wars"
center text 512,80,"Up and down arrow keys to select, use left and right arrow keys to change and press enter to start"
if sel=1 then ink rgb(255,0,0),0
if sel=1 then center text 512,120,"1 Player <---¦":ink rgb(255,255,255),0 else center text 512,120,"1 Player"
if sel=2 then ink rgb(255,0,0),0
if sel=2 then center text 512,140,"2 Player <---¦":ink rgb(255,255,255),0 else center text 512,140,"2 Player"
if sel=3 then ink rgb(255,0,0),0
if sel=3 then center text 512,160,"Enemies : "+str$(enemymax)+" <---¦":ink rgb(255,255,255),0 else center text 512,160,"Enemies : "+str$(enemymax)
if sel=4 then ink rgb(255,0,0),0
if sel=4 then center text 512,180,"Food : "+str$(food)+" <---¦":ink rgb(255,255,255),0 else center text 512,180,"Food : "+str$(food)
if sel=5 then ink rgb(255,0,0),0
if sel=5 then center text 512,200,"Music : "+music_state$+" <---¦":ink rgb(255,255,255),0 else center text 512,200,"Music : "+music_state$
if sel=6 then ink rgb(255,0,0),0
if sel=6 then center text 512,220,"Turrets : "+str$(turrets)+" <---¦":ink rgb(255,255,255),0 else center text 512,220,"Turrets : "+str$(turrets)
if sel=7 then ink rgb(255,0,0),0
if sel=7 then center text 512,240,"Steering type Player 1 : "+steer1$+" <---¦":ink rgb(255,255,255),0 else center text 512,240,"Steering type Player 1 : "+steer1$
if sel=8 then ink rgb(255,0,0),0
if sel=8 then center text 512,260,"Steering type Player 2 : "+steer2$+" <---¦":ink rgb(255,255,255),0 else center text 512,260,"Steering type Player 2 : "+steer2$

rem change enemies
if sel=3
   if rightkey()=1 then inc enemymax
   if leftkey()=1 then dec enemymax
   if enemymax<2 then enemymax=2
endif

rem change food
if sel=4
   if rightkey()=1 then inc food
   if leftkey()=1 then dec food
   if food<0 then food=0
endif

rem change music
if sel=5
   if rightkey()=1 or leftkey()=1
      if mmoving=0
         if music exist(3)
            if music_state$="ON" then music_state$="OFF":if music playing(3)=1:stop music 3:endif else music_state$="ON":if music playing(3)=0 then loop music 3
         endif
         mmoving=1
      endif
   endif
endif

rem change turret amount
if sel=6
   if rightkey()=1 and mmoving=0 then inc turrets:mmoving=1
   if leftkey()=1 and mmoving=0 then dec turrets:mmoving=1:if turrets<0 then turrets=0
endif

rem change steering type player 1
if sel=7
   if rightkey()=1 or leftkey()=1
      if mmoving=0
         if steer1$="up=move, left and right to steer" then steer1$="up=up, down=down, left=left, right=right" else steer1$="up=move, left and right to steer"
         mmoving=1
      endif
   endif
endif

rem change steering type player 2
if sel=8
   if rightkey()=1 or leftkey()=1
      if mmoving=0
         if steer2$="up=move, left and right to steer" then steer2$="up=up, down=down, left=left, right=right" else steer2$="up=move, left and right to steer"
         mmoving=1
      endif
   endif
endif

rem reset mmoving
if leftkey()=0 and rightkey()=0 then mmoving=0

rem exit
if sel=1 or sel=2:if returnkey()=1:exit:endif:endif

rem refresh screen
sync

rem end of main loop
loop
repeat:until returnkey()=0
backdrop off:cls:sync

rem loading
update_loading(0,0)

rem dimensions
dim esize(enemymax)
update_loading(12,1)
dim ex#(enemymax)
update_loading(24,1)
dim ez#(enemymax)
update_loading(36,1)
dim speed#(enemymax)
update_loading(48,1)
dim fx(food)
update_loading(60,1)
dim fz(food)
update_loading(72,1)
dim tx#(turrets)
update_loading(84,1)
dim tz#(turrets)
update_loading(96,1)
dim ta#(turrets)
update_loading(108,1)
dim dta#(turrets)
update_loading(120,1)
dim bx#(turrets)
update_loading(132,1)
dim bz#(turrets)
update_loading(144,1)
dim ba#(turrets)
update_loading(150,1)
dim dba#(turrets)
update_loading(156,1)
dim bullet_life(turrets)
update_loading(162,1)
dim time_to_shoot(turrets)
update_loading(168,1)

backdrop on

rem music
if music exist(3) then stop music 3
if music_state$="ON" and music exist(1) then loop music 1

rem randomize
reset:
for t=0 to enemymax-1
   esize(t)=rnd(4)+3
   ex#(t)=rnd(screen width())
   ez#(t)=rnd(screen height())
   speed#(t)=2
next t
for t=0 to food-1
   fx(t)=rnd(screen width())
   fz(t)=rnd(screen height())
next t
for t=0 to turrets-1
   tx#(t)=rnd(screen width())
   tz#(t)=rnd(screen height())
next t

rem set time for how long names are displayed
name1time=320
name2time=320

rem main loop
score1=0
score2=0
position camera 0,0,0
point camera 0,0,100
do

rem control backdrop
scroll object texture 3,0.001,0.0005
scroll object texture 4,0.0005,0.0002

rem control rocks
inc sine,rnd(2)
inc sine2#,0.125

s#=sin(sine)*nmz#/1.5
c#=cos(sine)*nmz#/1.5
sz#=sin(sine2#)*100
nmx#=curvevalue(s#,nmx#,30)
nmy#=curvevalue(s#,nmx#,30)
nmz#=sz#+120
position object 1,nmx#,nmy#/3,nmz#
position object 2,0-(nmx#/4),nmy#/2,nmz#/2
position object 5,0-nmx#,nmy#/3,nmz#
for t=1 to 5
   if t<3 or t=5 then rotate object t,wrapvalue(object angle x(t)+5),wrapvalue(object angle y(t)+3),wrapvalue(object angle z(t)+4)
next t

rem scores
text 50,0,name1$+" : "+str$(score1)
if sel=2 then text screen width()-len(name2$)-180,0,name2$+" : "+str$(score2)

rem move around turret and point at biggest circle
if turrets>0
   size=0
   for b=0 to enemymax-1:if esize(b)>size:size=esize(b):destination_object=b:endif:next b
   for t=0 to turrets-1
      dta#(t)=atanfull(ex#(destination_object)-tx#(t),ez#(destination_object)-tz#(t))
      ta#(t)=curveangle(dta#(t),ta#(t),15)
      tx#(t)=newxvalue(tx#(t),ta#(t),0.1+(t*0.1))
      tz#(t)=newzvalue(tz#(t),ta#(t),0.1+(t*0.1))
      ink rgb(0,255,0),0
      circle tx#(t),tz#(t),20
      ink rgb(255,0,255),0
      circle tx#(t),tz#(t),12
      ink rgb(150,0,150),0
      line tx#(t),tz#(t),tx#(t)+(sin(ta#(t)-15)*25),tz#(t)+(cos(ta#(t)-15)*25)
      line tx#(t),tz#(t),tx#(t)+(sin(ta#(t)+15)*25),tz#(t)+(cos(ta#(t)+15)*25)

rem shoot bullet out of turret
      if bullet_life(t)<0
         bx#(t)=-5
         bz#(t)=-5
         time_to_shoot(t)=time_to_shoot(t)+1
         if time_to_shoot(t)>100 then bx#(t)=tx#(t):bz#(t)=tz#(t):ba#(t)=ta#(t):bullet_life(t)=120:time_to_shoot(t)=0
      endif
      bullet_life(t)=bullet_life(t)-1
      if bullet_life(t)>0
         dba#(t)=atanfull(ex#(destination_object)-bx#(t),ez#(destination_object)-bz#(t))
         ba#(t)=curveangle(dba#(t),ba#(t),50)
         bx#(t)=newxvalue(bx#(t),ba#(t),5)
         bz#(t)=newzvalue(bz#(t),ba#(t),5)
         ink rgb(255,0,255),0
         circle bx#(t),bz#(t),5
         dot bx#(t),bz#(t)
      endif
   next t
endif

rem move around player 1
if steer1$="up=move, left and right to steer"
   if upkey()=1 then ex#(0)=newxvalue(ex#(0),a1#,speed#(0)):ez#(0)=newzvalue(ez#(0),a1#,speed#(0))
   if leftkey()=1 then inc a1#,2
   if rightkey()=1 then dec a1#,2
else
   player_move1=0
   if upkey()=1 then da1#=180:player_move1=1
   if leftkey()=1 then da1#=270:player_move1=1
   if rightkey()=1 then da1#=90:player_move1=1
   if downkey()=1 then da1#=0:player_move1=1
   if upkey()=1 and leftkey()=1 then da1#=225:player_move1=1
   if leftkey()=1 and downkey()=1 then da1#=315:player_move1=1
   if downkey()=1 and rightkey()=1 then da1#=45:player_move1=1
   if rightkey()=1 and upkey()=1 then da1#=135:player_move1=1
   a1#=curveangle(da1#,a1#,10)
   if player_move1=1 then ex#(0)=newxvalue(ex#(0),a1#,speed#(0)):ez#(0)=newzvalue(ez#(0),a1#,speed#(0))
endif
a1#=wrapvalue(a1#)
ink rgb(255,0,0),0
circle ex#(0),ez#(0),esize(0)
line ex#(0),ez#(0),ex#(0)+sin(a1#)*esize(0),ez#(0)+cos(a1#)*esize(0)
dec name1time
if name1time>0 then center text ex#(0),ez#(0)-esize(0)-20,name1$

rem move around player 2
if sel=2
   if steer2$="up=move, left and right to steer"
      if keystate(17)=1 then ex#(1)=newxvalue(ex#(1),a2#,speed#(1)):ez#(1)=newzvalue(ez#(1),a2#,speed#(1))
      if keystate(30)=1 then inc a2#,2
      if keystate(32)=1 then dec a2#,2
   else
      player_move2=0
      if keystate(17)=1 then da2#=180:player_move2=1
      if keystate(30)=1 then da2#=270:player_move2=1
      if keystate(32)=1 then da2#=90:player_move2=1
      if keystate(31)=1 then da2#=0:player_move2=1
      if keystate(17)=1 and keystate(30)=1 then da2#=225:player_move2=1
      if keystate(30)=1 and keystate(31)=1 then da2#=315:player_move2=1
      if keystate(31)=1 and keystate(32)=1 then da2#=45:player_move2=1
      if keystate(32)=1 and keystate(17)=1 then da2#=135:player_move2=1
      a2#=curveangle(da2#,a2#,10)
      if player_move2=1 then ex#(1)=newxvalue(ex#(1),a2#,speed#(1)):ez#(1)=newzvalue(ez#(1),a2#,speed#(1))
   endif
   a2#=wrapvalue(a2#)
   ink rgb(255,255,0),0
   circle ex#(1),ez#(1),esize(1)
   line ex#(1),ez#(1),ex#(1)+sin(a2#)*esize(1),ez#(1)+cos(a2#)*esize(1)
   dec name2time
   if name2time>0 then center text ex#(1),ez#(1)-esize(1)-20,name2$
endif

rem control enemies
rem AI : find smallest circle and point at it, else find food. if no food then point randomly
if sel=2
   for t=2 to enemymax-1
      found=0
      for g=0 to enemymax-1:if esize(g)<esize(t):found=1:exit:endif:next g
      if found=1
         ea#=atanfull(ex#(g)-ex#(t),ez#(g)-ez#(t))
      else
         if food=1
            ea#=atanfull(fx(t)-ex#(t),fz(t)-ez#(t))
         else
            ea#=rnd(360)
         endif
      endif
      ex#(t)=newxvalue(ex#(t),ea#,speed#(t))
      ez#(t)=newzvalue(ez#(t),ea#,speed#(t))
      ink rgb(0,255,255),0
      circle ex#(t),ez#(t),esize(t)
      line ex#(t),ez#(t),ex#(t)+sin(ea#)*esize(t),ez#(t)+cos(ea#)*esize(t)
   next t
else
   for t=1 to enemymax-1
      for g=0 to enemymax-1:if esize(g)<esize(t):exit:endif:next g
      ea#=atanfull(ex#(g)-ex#(t),ez#(g)-ez#(t))
      ex#(t)=newxvalue(ex#(t),ea#,speed#(t))
      ez#(t)=newzvalue(ez#(t),ea#,speed#(t))
      ink rgb(0,255,255),0
      circle ex#(t),ez#(t),esize(t)
      line ex#(t),ez#(t),ex#(t)+sin(ea#)*esize(t),ez#(t)+cos(ea#)*esize(t)
   next t
endif

rem collision
for t=0 to enemymax-1
   for g=0 to enemymax-1
      if sqrt((ex#(g)-ex#(t))^2+(ez#(g)-ez#(t))^2)<esize(t)+esize(g)
         if esize(t)>esize(g)
            if g=0 then name1time=320:if esize(0)>30 then inc score1,esize(0)
            if g=1 then name2time=320:if esize(1)>30 then inc score2,esize(1)
            esize(t)=esize(t)+(esize(g)/5)
            esize(g)=rnd(4)+3
            ex#(g)=rnd(screen width())
            ez#(g)=rnd(screen height())
            speed#(g)=2
            speed#(t)=curvevalue(0.1,speed#(t),30)
            if t=0 then inc score1,esize(g)*2
            if t=1 then inc score2,esize(g)*2
         endif
         if esize(g)>esize(t)
            if t=0 then name1time=320:if esize(0)>30 then inc score1,esize(0)
            if t=1 then name2time=320:if esize(1)>30 then inc score2,esize(1)
            esize(g)=esize(g)+(esize(t)/5)
            esize(t)=rnd(4)+3
            ex#(t)=rnd(screen width())
            ez#(t)=rnd(screen height())
            speed#(t)=2
            speed#(t)=2
            speed#(g)=curvevalue(0.1,speed#(g),30)
            if g=0 then inc score1,esize(t)*2
            if g=1 then inc score2,esize(t)*2
         endif
      endif
   next g

rem collision with bullets
   for g=0 to turrets-1
      if sqrt((ex#(t)-bx#(g))^2+(ez#(t)-bz#(g))^2)<esize(t)+5
         if esize(t)>5 then esize(t)=esize(t)-1:speed#(t)=speed#(t)+0.1
      endif
   next g
next t

rem draw food
ink rgb(255,0,0),0
for t=0 to food-1
   dot fx(t),fz(t)
next t

rem collision with food
for t=0 to enemymax-1
   for g=0 to food-1
      if sqrt((fx(g)-ex#(t))^2+(fz(g)-ez#(t))^2)<esize(t)
         esize(t)=esize(t)+1
         fx(g)=rnd(screen width())
         fz(g)=rnd(screen height())
         speed#(t)=speed#(t)+0.05
         if t=0 then inc score1,1
         if t=1 then inc score2,1
      endif
   next g
next t

rem make sure players and enemies don`t leave screen
for t=0 to enemymax-1
   if ex#(t)<0 then ex#(t)=0
   if ez#(t)<0 then ez#(t)=0
   if ex#(t)>screen width() then ex#(t)=screen width()
   if ez#(t)>screen height() then ez#(t)=screen height()
next t

rem enemies and players explode
for t=0 to enemymax-1
   if esize(t)>2000
      esize(t)=5
      speed#(t)=2
      if t=0 then inc score1,2000:player1time=120:rem dec turrets,2:if turrets<0 then turrets=0:dec enemymax,5:if enemymax<2 then enemymax=2
      if t=1 then inc score2,2000:player2time=120:rem dec turrets,2:if turrets<0 then turrets=0:dec enemymax,5:if enemymax<2 then enemymax=2
   endif
next t

rem win
if enemymax=1 and turrets=0
   for t=1 to 120
   center text screen width()/2,screen height()/2,"WINNER!! ENTERING NEXT LEVEL..."
   sync
   next t
   undim esize(enemymax)
   undim ex#(enemymax)
   undim ez#(enemymax)
   undim speed#(enemymax)
   undim fx(food)
   undim fz(food)
   undim tx#(turrets)
   undim tz#(turrets)
   undim ta#(turrets)
   undim dta#(turrets)
   undim bx#(turrets)
   undim bz#(turrets)
   undim ba#(turrets)
   undim dba#(turrets)
   undim bullet_life(turrets)
   undim time_to_shoot(turrets)
   goto reset
endif

rem reset game
center text 512,0,"Press Enter to pause"
if returnkey()=1
   repeat:until returnkey()=0
   insel=1
   if music exist(1) and music exist(2)
      if music playing(1)=1 then stop music 1
      if music_state$="ON" then loop music 2
   endif
   do

rem control backdrop
   scroll object texture 3,0.001,0.0005
   scroll object texture 4,0.0005,0.0002

rem control rocks
   inc sine,rnd(2)
   inc sine2#,0.125

s#=sin(sine)*nmz#/1.5
   c#=cos(sine)*nmz#/1.5
   sz#=sin(sine2#)*100
   nmx#=curvevalue(s#,nmx#,30)
   nmy#=curvevalue(s#,nmx#,30)
   nmz#=sz#+120
   position object 1,nmx#,nmy#/3,nmz#
   position object 2,0-(nmx#/4),nmy#/2,nmz#/2
   position object 5,0-nmx#,nmy#/3,nmz#
   for t=1 to 5
      if t<3 or t=5 then rotate object t,wrapvalue(object angle x(t)+5),wrapvalue(object angle y(t)+3),wrapvalue(object angle z(t)+4)
   next t

rem box with lines around writing
   ink rgb(0,0,255),0
   box 206,93,818,230
   ink 0,0
   box 207,94,817,229

rem move
   if moving=0
      if upkey()=1 then dec insel
      if downkey()=1 then inc insel
      if insel>6 then insel=6
      if insel<1 then insel=1
      moving=1
   endif
   if upkey()=0 and downkey()=0 then moving=0

rem print menu
   ink rgb(255,255,255),0
   if insel=1 then ink rgb(255,0,0),0
   if insel=1 then center text 512,100,"Continue <---¦":ink rgb(255,255,255),0 else center text 512,100,"Continue"
   if insel=2 then ink rgb(255,0,0),0
   if insel=2 then center text 512,120,"Back to Menu <---¦":ink rgb(255,255,255),0 else center text 512,120,"Back to Menu"
   if insel=3 then ink rgb(255,0,0),0
   if insel=3 then center text 512,140,"Reset Game <---¦":ink rgb(255,255,255),0 else center text 512,140,"Reset Game"
   if insel=4 then ink rgb(255,0,0),0
   if insel=4 then center text 512,160,"Music : "+music_state$+" <---¦":ink rgb(255,255,255),0 else center text 512,160,"Music : "+music_state$
   if insel=5 then ink rgb(255,0,0),0
   if insel=5 then center text 512,180,"Steering type Player 1 : "+steer1$+" <---¦":ink rgb(255,255,255),0 else center text 512,180,"Steering type Player 1 : "+steer1$
   if insel=6 then ink rgb(255,0,0),0
   if insel=6 then center text 512,200,"Steering type Player 2 : "+steer2$+" <---¦":ink rgb(255,255,255),0 else center text 512,200,"Steering type Player 2 : "+steer2$

rem change music
   if insel=4
      if rightkey()=1 or leftkey()=1
         if mmoving=0
            if music_state$="ON" then music_state$="OFF" else music_state$="ON"
            mmoving=1
            if music exist(2)
               if music_state$="ON" and music playing(2)=0 then loop music 2
               if music_state$="OFF" and music playing(2)=1 then stop music 2
            endif
         endif
      endif
   endif
   if leftkey()=0 and rightkey()=0 then mmoving=0

rem change steering type player 1
   if insel=5
      if rightkey()=1 or leftkey()=1
         if mmoving=0
            if steer1$="up=move, left and right to steer" then steer1$="up=up, down=down, left=left, right=right" else steer1$="up=move, left and right to steer"
            mmoving=1
         endif
      endif
   endif

rem change steering type player 2
   if insel=6
      if rightkey()=1 or leftkey()=1
         if mmoving=0
            if steer2$="up=move, left and right to steer" then steer2$="up=up, down=down, left=left, right=right" else steer2$="up=move, left and right to steer"
            mmoving=1
         endif
      endif
   endif

rem exit
   if returnkey()=1 then exit
   sync
   loop
   repeat:until returnkey()=0

rem music
   if music exist(1) and music exist(2)
      if music playing(2)=1 then stop music 2
      if music_state$="ON" then loop music 1
   endif

rem reset
   if insel=3 then goto reset

rem back to main menu
   repeat:until returnkey()=0
   if insel=2
      if music exist(1)
         if music playing(1)=1 then stop music 1
      endif
      undim esize(enemymax)
      undim ex#(enemymax)
      undim ez#(enemymax)
      undim speed#(enemymax)
      undim fx(food)
      undim fz(food)
      undim tx#(turrets)
      undim tz#(turrets)
      undim ta#(turrets)
      undim dta#(turrets)
      undim bx#(turrets)
      undim bz#(turrets)
      undim ba#(turrets)
      undim dba#(turrets)
      undim bullet_life(turrets)
      undim time_to_shoot(turrets)
      goto start
   endif
endif

rem refresh screen
sync

rem end of main loop
loop

function update_loading(p,s)

text 400,300,"Loading..."
ink rgb(128,128,128),0
box 400,330,594,340
ink 0,0
box 401,331,593,339
ink rgb(255,255,255),0
box 401,331,401+p,339
if s=1 then sync else sleep 1000

endfunction

+ Code Snippet

rem circle wars
rem by TheComet

rem names
input "please enter a name for player 1>",name1$
if name1$="" then name1$="Player 1"
if len(name1$)>30 then name1$=left$(name1$,30)
print "Welcome, "+name1$+", you will be the red circle and you stear with the arrow keys"
print
input "please enter a name for player 2>",name2$
if name2$="" then name2$="Player 2"
if len(name2$)>30 then name2$=left$(name2$,30)
print "Welcome, "+name2$+", you will be playing with the yellow circle and you stear with a,d,w"
print
input "press enter to start...",e$

rem setup screen
set display mode 1024,768,32
set camera view 0,0,screen width(),screen height()
sync on
sync rate 60
backdrop off
color backdrop 0
autocam off
position camera 100000,100000,10000
hide mouse

rem load music
if file exist("game.xm") then load music "game.xm",1
update_loading(24,0)
if file exist("pause.xm") then load music "pause.xm",2
update_loading(48,1)
if file exist("menu.xm") then load music "menu.xm",3
update_loading(72,1)

rem load instructions
create bitmap 1,600,436
ink rgb(0,0,255),0
box 6,56,274,101
box 6,106,274,190
box 6,195,274,329
box 6,336,274,434
box 281,56,595,160
box 281,168,595,285
ink 0,0
box 7,57,273,100
box 7,107,273,189
box 7,196,273,328
box 7,337,273,433
box 282,57,594,159
box 282,169,594,284
ink rgb(255,0,0),0
for t=1 to 11
   x=rnd(30)+10
   y=rnd(35)+60
   dot x,y
next t
set text size 30
center text 300,10,"INSTRUCTIONS"
set text size 20
text 60,64,"=FOOD"
set text size 10
text 10,200,"Player 1 : UP=MOVE"
text 10,217,"               LEFT=TURN LEFT"
text 10,234,"               RIGHT=TURN RIGHT"
text 136,350,"FRONT OF SHIP"
text 283,57,"THE BIGGER CIRCLES EAT THE SMALLER"
text 283,74,"ONES. TRY AND GET AS BIG AS YOU CAN."
text 283,91,"YOU WILL EXPLODE WHEN YOU GET REALLY"
text 283,108,"BIG, INSTANTLY KILLING EVERYONE. (THAT"
text 283,125,"IS GOOD). FOOD SPEEDS YOU UP, ENEMIES"
text 283,142,"SLOW YOU DONW. HAVE FUN! :)"
text 382,174,"IF YOU GET HIT BY A TURRET,"
text 382,191,"YOU WILL SHRINK, AND"
text 382,208,"YOUR SPEED WILL INCREASE."
text 344,240,"TURRET"
text 299,265,"BULLET"
line 366,235,348,199
line 318,259,302,206
line 180,367,106,389
circle 39,238,15
line 39,238,54,238
ink rgb(255,255,0),0
text 10,270,"Player 2 : W=MOVE"
text 10,287,"               A=TURN LEFT"
text 10,304,"               D=TURN RIGHT"
circle 39,306,15
line 39,306,54,306
circle 53,388,42
line 53,388,95,388
ink rgb(255,0,255),0
circle 343,193,12
line 343,193,318,192
line 343,193,321,205
circle 303,205,4
ink rgb(0,255,0),0
circle 343,193,21
ink rgb(0,255,255),0
circle 45,149,37
circle 122,145,28
circle 175,146,16
circle 203,153,8
line 45,149,82,146
line 122,145,149,145
line 175,146,190,149
line 203,153,210,156
get image 1,0,0,600,436
delete bitmap 1
update_loading(96,1)

rem make rock textures
create bitmap 1,128,128
for t=1 to 60000
   ink rgb(rnd(40)+42,rnd(30)+47,rnd(10)+10),0
   dot rnd(128),rnd(128)
next t
get image 2,0,0,128,128
delete bitmap 1

rem load rocks
make object sphere 1,4:texture object 1,2
update_loading(174,1)
make object sphere 2,2:texture object 2,2
update_loading(175,1)
make object sphere 5,3:texture object 5,2
update_loading(176,0)
delete image 2

rem scale rocks
load=176
for t=1 to  5
   if t<3 or t=5 then scale object t,300,300,300:inc load:update_loading(load,1)
next t

rem load and make backdrop
create bitmap 1,300,350
ink 0,0
box 0,0,299,249
ink rgb(255,255,255),0
for t=1 to 100
   dot rnd(300),rnd(350)
next t
get image 2,0,0,300,350
delete bitmap 1
update_loading(180,1)
make object plain 3,1200,1000
update_loading(181,1)
position object 3,0,0,700
update_loading(182,1)
update_loading(183,1)
set object 3,1,0,0
update_loading(184,1)
ghost object on 3
update_loading(185,1)
make object plain 4,1200,1000
update_loading(186,1)
position object 4,0,0,710
update_loading(187,1)
update_loading(188,1)
set object 4,1,0,0
update_loading(189,1)
ghost object on 4
update_loading(190,1)
texture object 3,2
texture object 4,2
update_loading(191,1)
scale object texture 3,2,2
scale object texture 4,2,2
fade object 3,0
fade object 4,0
update_loading(192,0)
lock object on 3
lock object on 4
backdrop on

rem variables
enemymax=15
food=60
turrets=3
music_state$="ON"
steer1$="up=move, left and right to steer"
steer2$="up=move, left and right to steer"

rem menu
color backdrop 0
start:
sel=1
if music_state$="ON" and music exist(3) then loop music 3
do

rem control backdrop
scroll object texture 3,0.001,0.0005
scroll object texture 4,0.0005,0.0002

rem control rocks
inc sine,rnd(2)
inc sine2#,0.125

s#=sin(sine)*nmz#/1.5
c#=cos(sine)*nmz#/1.5
sz#=sin(sine2#)*100
nmx#=curvevalue(s#,nmx#,30)
nmy#=curvevalue(s#,nmx#,30)
nmz#=sz#+120
position object 1,nmx#,nmy#/3,nmz#
position object 2,0-(nmx#/4),nmy#/2,nmz#/2
position object 5,0-nmx#,nmy#/3,nmz#
for t=1 to 5
   if t<3 or t=5 then rotate object t,wrapvalue(object angle x(t)+5),wrapvalue(object angle y(t)+3),wrapvalue(object angle z(t)+4)
next t

rem instructions
paste image 1,212,300

rem box with lines around writing
ink rgb(0,0,255),0
box 206,103,818,290
box 106,50,918,97
ink 0,0
box 207,104,817,289
box 107,51,917,96

rem move
if moving=0
   if upkey()=1 then dec sel
   if downkey()=1 then inc sel
   if sel>8 then sel=8
   if sel<1 then sel=1
   moving=1
endif
if upkey()=0 and downkey()=0 then moving=0

rem list menu
ink rgb(255,255,255),0
center text 512,60,"Welcome to TheComet`s Circle Wars"
center text 512,80,"Up and down arrow keys to select, use left and right arrow keys to change and press enter to start"
if sel=1 then ink rgb(255,0,0),0
if sel=1 then center text 512,120,"1 Player <---¦":ink rgb(255,255,255),0 else center text 512,120,"1 Player"
if sel=2 then ink rgb(255,0,0),0
if sel=2 then center text 512,140,"2 Player <---¦":ink rgb(255,255,255),0 else center text 512,140,"2 Player"
if sel=3 then ink rgb(255,0,0),0
if sel=3 then center text 512,160,"Enemies : "+str$(enemymax)+" <---¦":ink rgb(255,255,255),0 else center text 512,160,"Enemies : "+str$(enemymax)
if sel=4 then ink rgb(255,0,0),0
if sel=4 then center text 512,180,"Food : "+str$(food)+" <---¦":ink rgb(255,255,255),0 else center text 512,180,"Food : "+str$(food)
if sel=5 then ink rgb(255,0,0),0
if sel=5 then center text 512,200,"Music : "+music_state$+" <---¦":ink rgb(255,255,255),0 else center text 512,200,"Music : "+music_state$
if sel=6 then ink rgb(255,0,0),0
if sel=6 then center text 512,220,"Turrets : "+str$(turrets)+" <---¦":ink rgb(255,255,255),0 else center text 512,220,"Turrets : "+str$(turrets)
if sel=7 then ink rgb(255,0,0),0
if sel=7 then center text 512,240,"Steering type Player 1 : "+steer1$+" <---¦":ink rgb(255,255,255),0 else center text 512,240,"Steering type Player 1 : "+steer1$
if sel=8 then ink rgb(255,0,0),0
if sel=8 then center text 512,260,"Steering type Player 2 : "+steer2$+" <---¦":ink rgb(255,255,255),0 else center text 512,260,"Steering type Player 2 : "+steer2$

rem change enemies
if sel=3
   if rightkey()=1 then inc enemymax
   if leftkey()=1 then dec enemymax
   if enemymax<2 then enemymax=2
endif

rem change food
if sel=4
   if rightkey()=1 then inc food
   if leftkey()=1 then dec food
   if food<0 then food=0
endif

rem change music
if sel=5
   if rightkey()=1 or leftkey()=1
      if mmoving=0
         if music exist(3)
            if music_state$="ON" then music_state$="OFF":if music playing(3)=1:stop music 3:endif else music_state$="ON":if music playing(3)=0 then loop music 3
         endif
         mmoving=1
      endif
   endif
endif

rem change turret amount
if sel=6
   if rightkey()=1 and mmoving=0 then inc turrets:mmoving=1
   if leftkey()=1 and mmoving=0 then dec turrets:mmoving=1:if turrets<0 then turrets=0
endif

rem change steering type player 1
if sel=7
   if rightkey()=1 or leftkey()=1
      if mmoving=0
         if steer1$="up=move, left and right to steer" then steer1$="up=up, down=down, left=left, right=right" else steer1$="up=move, left and right to steer"
         mmoving=1
      endif
   endif
endif

rem change steering type player 2
if sel=8
   if rightkey()=1 or leftkey()=1
      if mmoving=0
         if steer2$="up=move, left and right to steer" then steer2$="up=up, down=down, left=left, right=right" else steer2$="up=move, left and right to steer"
         mmoving=1
      endif
   endif
endif

rem reset mmoving
if leftkey()=0 and rightkey()=0 then mmoving=0

rem exit
if sel=1 or sel=2:if returnkey()=1:exit:endif:endif

rem refresh screen
sync

rem end of main loop
loop
repeat:until returnkey()=0
backdrop off:cls:sync

rem loading
update_loading(0,0)

rem dimensions
dim esize(enemymax)
update_loading(12,1)
dim ex#(enemymax)
update_loading(24,1)
dim ez#(enemymax)
update_loading(36,1)
dim speed#(enemymax)
update_loading(48,1)
dim fx(food)
update_loading(60,1)
dim fz(food)
update_loading(72,1)
dim tx#(turrets)
update_loading(84,1)
dim tz#(turrets)
update_loading(96,1)
dim ta#(turrets)
update_loading(108,1)
dim dta#(turrets)
update_loading(120,1)
dim bx#(turrets)
update_loading(132,1)
dim bz#(turrets)
update_loading(144,1)
dim ba#(turrets)
update_loading(150,1)
dim dba#(turrets)
update_loading(156,1)
dim bullet_life(turrets)
update_loading(162,1)
dim time_to_shoot(turrets)
update_loading(168,1)

backdrop on

rem music
if music exist(3) then stop music 3
if music_state$="ON" and music exist(1) then loop music 1

rem randomize
reset:
for t=0 to enemymax-1
   esize(t)=rnd(4)+3
   ex#(t)=rnd(screen width())
   ez#(t)=rnd(screen height())
   speed#(t)=2
next t
for t=0 to food-1
   fx(t)=rnd(screen width())
   fz(t)=rnd(screen height())
next t
for t=0 to turrets-1
   tx#(t)=rnd(screen width())
   tz#(t)=rnd(screen height())
next t

rem set time for how long names are displayed
name1time=320
name2time=320

rem main loop
score1=0
score2=0
position camera 0,0,0
point camera 0,0,100
do

rem control backdrop
scroll object texture 3,0.001,0.0005
scroll object texture 4,0.0005,0.0002

rem control rocks
inc sine,rnd(2)
inc sine2#,0.125

s#=sin(sine)*nmz#/1.5
c#=cos(sine)*nmz#/1.5
sz#=sin(sine2#)*100
nmx#=curvevalue(s#,nmx#,30)
nmy#=curvevalue(s#,nmx#,30)
nmz#=sz#+120
position object 1,nmx#,nmy#/3,nmz#
position object 2,0-(nmx#/4),nmy#/2,nmz#/2
position object 5,0-nmx#,nmy#/3,nmz#
for t=1 to 5
   if t<3 or t=5 then rotate object t,wrapvalue(object angle x(t)+5),wrapvalue(object angle y(t)+3),wrapvalue(object angle z(t)+4)
next t

rem scores
text 50,0,name1$+" : "+str$(score1)
if sel=2 then text screen width()-len(name2$)-180,0,name2$+" : "+str$(score2)

rem move around turret and point at biggest circle
if turrets>0
   size=0
   for b=0 to enemymax-1:if esize(b)>size:size=esize(b):destination_object=b:endif:next b
   for t=0 to turrets-1
      dta#(t)=atanfull(ex#(destination_object)-tx#(t),ez#(destination_object)-tz#(t))
      ta#(t)=curveangle(dta#(t),ta#(t),15)
      tx#(t)=newxvalue(tx#(t),ta#(t),0.1+(t*0.1))
      tz#(t)=newzvalue(tz#(t),ta#(t),0.1+(t*0.1))
      ink rgb(0,255,0),0
      circle tx#(t),tz#(t),20
      ink rgb(255,0,255),0
      circle tx#(t),tz#(t),12
      ink rgb(150,0,150),0
      line tx#(t),tz#(t),tx#(t)+(sin(ta#(t)-15)*25),tz#(t)+(cos(ta#(t)-15)*25)
      line tx#(t),tz#(t),tx#(t)+(sin(ta#(t)+15)*25),tz#(t)+(cos(ta#(t)+15)*25)

      rem shoot bullet out of turret
      if bullet_life(t)<0
         bx#(t)=-5
         bz#(t)=-5
         time_to_shoot(t)=time_to_shoot(t)+1
         if time_to_shoot(t)>100 then bx#(t)=tx#(t):bz#(t)=tz#(t):ba#(t)=ta#(t):bullet_life(t)=120:time_to_shoot(t)=0
      endif
      bullet_life(t)=bullet_life(t)-1
      if bullet_life(t)>0
         dba#(t)=atanfull(ex#(destination_object)-bx#(t),ez#(destination_object)-bz#(t))
         ba#(t)=curveangle(dba#(t),ba#(t),50)
         bx#(t)=newxvalue(bx#(t),ba#(t),5)
         bz#(t)=newzvalue(bz#(t),ba#(t),5)
         ink rgb(255,0,255),0
         circle bx#(t),bz#(t),5
         dot bx#(t),bz#(t)
      endif
   next t
endif

rem move around player 1
if steer1$="up=move, left and right to steer"
   if upkey()=1 then ex#(0)=newxvalue(ex#(0),a1#,speed#(0)):ez#(0)=newzvalue(ez#(0),a1#,speed#(0))
   if leftkey()=1 then inc a1#,2
   if rightkey()=1 then dec a1#,2
else
   player_move1=0
   if upkey()=1 then da1#=180:player_move1=1
   if leftkey()=1 then da1#=270:player_move1=1
   if rightkey()=1 then da1#=90:player_move1=1
   if downkey()=1 then da1#=0:player_move1=1
   if upkey()=1 and leftkey()=1 then da1#=225:player_move1=1
   if leftkey()=1 and downkey()=1 then da1#=315:player_move1=1
   if downkey()=1 and rightkey()=1 then da1#=45:player_move1=1
   if rightkey()=1 and upkey()=1 then da1#=135:player_move1=1
   a1#=curveangle(da1#,a1#,10)
   if player_move1=1 then ex#(0)=newxvalue(ex#(0),a1#,speed#(0)):ez#(0)=newzvalue(ez#(0),a1#,speed#(0))
endif
a1#=wrapvalue(a1#)
ink rgb(255,0,0),0
circle ex#(0),ez#(0),esize(0)
line ex#(0),ez#(0),ex#(0)+sin(a1#)*esize(0),ez#(0)+cos(a1#)*esize(0)
dec name1time
if name1time>0 then center text ex#(0),ez#(0)-esize(0)-20,name1$

rem move around player 2
if sel=2
   if steer2$="up=move, left and right to steer"
      if keystate(17)=1 then ex#(1)=newxvalue(ex#(1),a2#,speed#(1)):ez#(1)=newzvalue(ez#(1),a2#,speed#(1))
      if keystate(30)=1 then inc a2#,2
      if keystate(32)=1 then dec a2#,2
   else
      player_move2=0
      if keystate(17)=1 then da2#=180:player_move2=1
      if keystate(30)=1 then da2#=270:player_move2=1
      if keystate(32)=1 then da2#=90:player_move2=1
      if keystate(31)=1 then da2#=0:player_move2=1
      if keystate(17)=1 and keystate(30)=1 then da2#=225:player_move2=1
      if keystate(30)=1 and keystate(31)=1 then da2#=315:player_move2=1
      if keystate(31)=1 and keystate(32)=1 then da2#=45:player_move2=1
      if keystate(32)=1 and keystate(17)=1 then da2#=135:player_move2=1
      a2#=curveangle(da2#,a2#,10)
      if player_move2=1 then ex#(1)=newxvalue(ex#(1),a2#,speed#(1)):ez#(1)=newzvalue(ez#(1),a2#,speed#(1))
   endif
   a2#=wrapvalue(a2#)
   ink rgb(255,255,0),0
   circle ex#(1),ez#(1),esize(1)
   line ex#(1),ez#(1),ex#(1)+sin(a2#)*esize(1),ez#(1)+cos(a2#)*esize(1)
   dec name2time
   if name2time>0 then center text ex#(1),ez#(1)-esize(1)-20,name2$
endif

rem control enemies
rem AI : find smallest circle and point at it, else find food. if no food then point randomly
if sel=2
   for t=2 to enemymax-1
      found=0
      for g=0 to enemymax-1:if esize(g)<esize(t):found=1:exit:endif:next g
      if found=1
         ea#=atanfull(ex#(g)-ex#(t),ez#(g)-ez#(t))
      else
         if food=1
            ea#=atanfull(fx(t)-ex#(t),fz(t)-ez#(t))
         else
            ea#=rnd(360)
         endif
      endif
      ex#(t)=newxvalue(ex#(t),ea#,speed#(t))
      ez#(t)=newzvalue(ez#(t),ea#,speed#(t))
      ink rgb(0,255,255),0
      circle ex#(t),ez#(t),esize(t)
      line ex#(t),ez#(t),ex#(t)+sin(ea#)*esize(t),ez#(t)+cos(ea#)*esize(t)
   next t
else
   for t=1 to enemymax-1
      for g=0 to enemymax-1:if esize(g)<esize(t):exit:endif:next g
      ea#=atanfull(ex#(g)-ex#(t),ez#(g)-ez#(t))
      ex#(t)=newxvalue(ex#(t),ea#,speed#(t))
      ez#(t)=newzvalue(ez#(t),ea#,speed#(t))
      ink rgb(0,255,255),0
      circle ex#(t),ez#(t),esize(t)
      line ex#(t),ez#(t),ex#(t)+sin(ea#)*esize(t),ez#(t)+cos(ea#)*esize(t)
   next t
endif

rem collision
for t=0 to enemymax-1
   for g=0 to enemymax-1
      if sqrt((ex#(g)-ex#(t))^2+(ez#(g)-ez#(t))^2)<esize(t)+esize(g)
         if esize(t)>esize(g)
            if g=0 then name1time=320:if esize(0)>30 then inc score1,esize(0)
            if g=1 then name2time=320:if esize(1)>30 then inc score2,esize(1)
            esize(t)=esize(t)+(esize(g)/5)
            esize(g)=rnd(4)+3
            ex#(g)=rnd(screen width())
            ez#(g)=rnd(screen height())
            speed#(g)=2
            speed#(t)=curvevalue(0.1,speed#(t),30)
            if t=0 then inc score1,esize(g)*2
            if t=1 then inc score2,esize(g)*2
         endif
         if esize(g)>esize(t)
            if t=0 then name1time=320:if esize(0)>30 then inc score1,esize(0)
            if t=1 then name2time=320:if esize(1)>30 then inc score2,esize(1)
            esize(g)=esize(g)+(esize(t)/5)
            esize(t)=rnd(4)+3
            ex#(t)=rnd(screen width())
            ez#(t)=rnd(screen height())
            speed#(t)=2
            speed#(t)=2
            speed#(g)=curvevalue(0.1,speed#(g),30)
            if g=0 then inc score1,esize(t)*2
            if g=1 then inc score2,esize(t)*2
         endif
      endif
   next g

   rem collision with bullets
   for g=0 to turrets-1
      if sqrt((ex#(t)-bx#(g))^2+(ez#(t)-bz#(g))^2)<esize(t)+5
         if esize(t)>5 then esize(t)=esize(t)-1:speed#(t)=speed#(t)+0.1
      endif
   next g
next t

rem draw food
ink rgb(255,0,0),0
for t=0 to food-1
   dot fx(t),fz(t)
next t

rem collision with food
for t=0 to enemymax-1
   for g=0 to food-1
      if sqrt((fx(g)-ex#(t))^2+(fz(g)-ez#(t))^2)<esize(t)
         esize(t)=esize(t)+1
         fx(g)=rnd(screen width())
         fz(g)=rnd(screen height())
         speed#(t)=speed#(t)+0.05
         if t=0 then inc score1,1
         if t=1 then inc score2,1
      endif
   next g
next t

rem make sure players and enemies don`t leave screen
for t=0 to enemymax-1
   if ex#(t)<0 then ex#(t)=0
   if ez#(t)<0 then ez#(t)=0
   if ex#(t)>screen width() then ex#(t)=screen width()
   if ez#(t)>screen height() then ez#(t)=screen height()
next t

rem enemies and players explode
for t=0 to enemymax-1
   if esize(t)>2000
      esize(t)=5
      speed#(t)=2
      if t=0 then inc score1,2000:player1time=120:rem dec turrets,2:if turrets<0 then turrets=0:dec enemymax,5:if enemymax<2 then enemymax=2
      if t=1 then inc score2,2000:player2time=120:rem dec turrets,2:if turrets<0 then turrets=0:dec enemymax,5:if enemymax<2 then enemymax=2
   endif
next t

rem win
if enemymax=1 and turrets=0
   for t=1 to 120
   center text screen width()/2,screen height()/2,"WINNER!! ENTERING NEXT LEVEL..."
   sync
   next t
   undim esize(enemymax)
   undim ex#(enemymax)
   undim ez#(enemymax)
   undim speed#(enemymax)
   undim fx(food)
   undim fz(food)
   undim tx#(turrets)
   undim tz#(turrets)
   undim ta#(turrets)
   undim dta#(turrets)
   undim bx#(turrets)
   undim bz#(turrets)
   undim ba#(turrets)
   undim dba#(turrets)
   undim bullet_life(turrets)
   undim time_to_shoot(turrets)
   goto reset
endif

rem reset game
center text 512,0,"Press Enter to pause"
if returnkey()=1
   repeat:until returnkey()=0
   insel=1
   if music exist(1) and music exist(2)
      if music playing(1)=1 then stop music 1
      if music_state$="ON" then loop music 2
   endif
   do

   rem control backdrop
   scroll object texture 3,0.001,0.0005
   scroll object texture 4,0.0005,0.0002

   rem control rocks
   inc sine,rnd(2)
   inc sine2#,0.125

   s#=sin(sine)*nmz#/1.5
   c#=cos(sine)*nmz#/1.5
   sz#=sin(sine2#)*100
   nmx#=curvevalue(s#,nmx#,30)
   nmy#=curvevalue(s#,nmx#,30)
   nmz#=sz#+120
   position object 1,nmx#,nmy#/3,nmz#
   position object 2,0-(nmx#/4),nmy#/2,nmz#/2
   position object 5,0-nmx#,nmy#/3,nmz#
   for t=1 to 5
      if t<3 or t=5 then rotate object t,wrapvalue(object angle x(t)+5),wrapvalue(object angle y(t)+3),wrapvalue(object angle z(t)+4)
   next t

   rem box with lines around writing
   ink rgb(0,0,255),0
   box 206,93,818,230
   ink 0,0
   box 207,94,817,229

   rem move
   if moving=0
      if upkey()=1 then dec insel
      if downkey()=1 then inc insel
      if insel>6 then insel=6
      if insel<1 then insel=1
      moving=1
   endif
   if upkey()=0 and downkey()=0 then moving=0

   rem print menu
   ink rgb(255,255,255),0
   if insel=1 then ink rgb(255,0,0),0
   if insel=1 then center text 512,100,"Continue <---¦":ink rgb(255,255,255),0 else center text 512,100,"Continue"
   if insel=2 then ink rgb(255,0,0),0
   if insel=2 then center text 512,120,"Back to Menu <---¦":ink rgb(255,255,255),0 else center text 512,120,"Back to Menu"
   if insel=3 then ink rgb(255,0,0),0
   if insel=3 then center text 512,140,"Reset Game <---¦":ink rgb(255,255,255),0 else center text 512,140,"Reset Game"
   if insel=4 then ink rgb(255,0,0),0
   if insel=4 then center text 512,160,"Music : "+music_state$+" <---¦":ink rgb(255,255,255),0 else center text 512,160,"Music : "+music_state$
   if insel=5 then ink rgb(255,0,0),0
   if insel=5 then center text 512,180,"Steering type Player 1 : "+steer1$+" <---¦":ink rgb(255,255,255),0 else center text 512,180,"Steering type Player 1 : "+steer1$
   if insel=6 then ink rgb(255,0,0),0
   if insel=6 then center text 512,200,"Steering type Player 2 : "+steer2$+" <---¦":ink rgb(255,255,255),0 else center text 512,200,"Steering type Player 2 : "+steer2$

   rem change music
   if insel=4
      if rightkey()=1 or leftkey()=1
         if mmoving=0
            if music_state$="ON" then music_state$="OFF" else music_state$="ON"
            mmoving=1
            if music exist(2)
               if music_state$="ON" and music playing(2)=0 then loop music 2
               if music_state$="OFF" and music playing(2)=1 then stop music 2
            endif
         endif
      endif
   endif
   if leftkey()=0 and rightkey()=0 then mmoving=0

   rem change steering type player 1
   if insel=5
      if rightkey()=1 or leftkey()=1
         if mmoving=0
            if steer1$="up=move, left and right to steer" then steer1$="up=up, down=down, left=left, right=right" else steer1$="up=move, left and right to steer"
            mmoving=1
         endif
      endif
   endif

   rem change steering type player 2
   if insel=6
      if rightkey()=1 or leftkey()=1
         if mmoving=0
            if steer2$="up=move, left and right to steer" then steer2$="up=up, down=down, left=left, right=right" else steer2$="up=move, left and right to steer"
            mmoving=1
         endif
      endif
   endif

   rem exit
   if returnkey()=1 then exit
   sync
   loop
   repeat:until returnkey()=0

   rem music
   if music exist(1) and music exist(2)
      if music playing(2)=1 then stop music 2
      if music_state$="ON" then loop music 1
   endif

   rem reset
   if insel=3 then goto reset

   rem back to main menu
   repeat:until returnkey()=0
   if insel=2
      if music exist(1)
         if music playing(1)=1 then stop music 1
      endif
      undim esize(enemymax)
      undim ex#(enemymax)
      undim ez#(enemymax)
      undim speed#(enemymax)
      undim fx(food)
      undim fz(food)
      undim tx#(turrets)
      undim tz#(turrets)
      undim ta#(turrets)
      undim dta#(turrets)
      undim bx#(turrets)
      undim bz#(turrets)
      undim ba#(turrets)
      undim dba#(turrets)
      undim bullet_life(turrets)
      undim time_to_shoot(turrets)
      goto start
   endif
endif

rem refresh screen
sync

rem end of main loop
loop

function update_loading(p,s)

text 400,300,"Loading..."
ink rgb(128,128,128),0
box 400,330,594,340
ink 0,0
box 401,331,593,339
ink rgb(255,255,255),0
box 401,331,401+p,339
if s=1 then sync else sleep 1000

endfunction

The game is more enjoyable if you download the attached music, unzip it and place it in the same directory as the code. But the game also runs without music. Enjoy! xD

TheComet

Make the path of your enemies easier with Waypoint Pro!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / The DB Classic Programming Challenge Thread