The DB Classic Programming Challenge Thread

Author

Message

NinJA999

18

Years of Service

User Offline

Joined: 11th Nov 2005

Location: NH

Posted: 1st Jun 2007 03:18

Link

Well, I might work on my own racer, but for now here's Link102's racer with some modifications that I find help me in the game:

remstart
   -------------------------------------------------------------------
   Cube Race
   -------------------------------------------------------------------
   modified by NinJA999
   originally written by Link102
   -------------------------------------------------------------------
   I added a map, direction pointers, and a waypoint counter.
   -------------------------------------------------------------------
remend

`set display mode 1152,864,16
set display mode 1024,768,16
sync on:sync rate 30
hide mouse
randomize timer()

make matrix 1,200,200,10,10
position matrix 1,0,-2,0

make object cube 1,4
color object 1,RGB(55,55,55)

make object cube 2,4
color object 2,RGB(20,20,20)

`make map!
create bitmap 1,200,200
set current bitmap 1
ink rgb(0,255,0),rgb(0,255,0)
cls
get image 1,0,0,200,200
set current bitmap 0
ink rgb(255,255,255),0
`more map making!
make object plain 32,200,200
lock object on 32
position object 32,-490,-320,800
ghost object on 32
texture object 32,1

length=20

for t=3 to length
make object cube t,4
position object t,rnd(200),0,rnd(200)
next t
color object 3,RGB(225,0,0)

`Cone pointer
make object cone 30,4
zrotate object 30, 90
xrotate object 30, 90
fix object pivot 30
color object 30,RGB(255,255,0)

`AI cone pointer (for show)
make object cone 31,4
zrotate object 31, 90
xrotate object 31, 90
fix object pivot 31
color object 31,RGB(252,206,67)

T#=Timer()
set text font "Berlin Sans FB"
set text size 50

`___________________________________________________________________________________

do
   Elapsed#=(Timer()-T#)/1000
   if waypoint#>ai_waypoint# then pos$="1st"
   if waypoint#=ai_waypoint# and root#<ai_root# then pos$="1st"
   if waypoint#=ai_waypoint# and root#>ai_root# then pos$="2nd"
   if waypoint#<ai_waypoint# then pos$="2nd"

Text 10,10,pos$

`Display current waypoint!
   Text 10,60,Str$(waypoint#)+"/"+Str$(length-2)

if upkey()=1 and speed#=>0 then speed#=speed#+0.02
   if upkey()=1 and speed#<0 then speed#=speed#+0.05
   if downkey()=1 and speed#>-1 then speed#=speed#-0.05
   if downkey()=0 and upkey()=0 then speed#=speed#/1.02

if rightkey()=1 and steer#<2.5 then steer#=steer#+0.1
   if leftkey()=1 and steer#>-2.5 then steer#=steer#-0.1
   if rightkey()=0 and leftkey()=0 then steer#=steer#/1.2
   if speed#>0 then angleY#=angleY#+steer#
   if speed#<0 then angleY#=angleY#-steer#

gosub collision
   gosub ai_collision
`___________________________________________________________________________________

rotate object 1,0,wrapvalue(angleY#),wrapvalue(0-angleZ#)
   X#=newXvalue(X#,angleY#,speed#)
   Z#=newZvalue(Z#,angleY#,speed#)
   if X#>250 then X#=250:speed#=speed#/1.02
   if X#<-50 then X#=-50:speed#=speed#/1.02
   if Z#>250 then Z#=250:speed#=speed#/1.02
   if Z#<-50 then Z#=-50:speed#=speed#/1.02
   Position object 1,X#,0,Z#
   `Make the cone pointer point!
   Position object 30,X#,5,Z#
   point object 30,OBJECT POSITION X(waypoint#+3),5,OBJECT POSITION Z(waypoint#+3)

cam_angleY#=cam_angleY#+(angleY#-cam_angleY#)/10
   angleZ#=angleZ#+(AngleY#-angleZ#)/10
   camX#=newXvalue(object position x(1),cam_angleY#+180,speed#+20)
   camZ#=newZvalue(object position z(1),cam_angleY#+180,speed#+20)
   position camera camX#,speed#+10,camZ#
   point camera object position x(1),1,object position z(1)

fov#=speed#/5
   set camera fov fov#+1

root#=sqrt((((object position X(waypoint#+3)-X#)/2)^2)+(((object position Z(waypoint#+3)-Z#)/2)^2))
`___________________________________________________________________________________

ang#=atanfull(ai_X#-object position X(ai_waypoint#+3),ai_Z#-object position Z(ai_waypoint#+3))-ai_angleY#

if ang#<-180
      ai_behaviour=2
   else
      ai_behaviour=1
   endif
   ai_root#=sqrt((((object position X(ai_waypoint#+3)-ai_X#)/2)^2)+(((object position Z(ai_waypoint#+3)-ai_Z#)/2)^2))

if ai_speed#*2<ai_root#/10 then ai_speed#=ai_speed#+0.02 else ai_speed#=ai_speed#/1.02
   if ai_behaviour=1 and ai_steer#<2.5 then ai_steer#=ai_steer#+0.5
   if ai_behaviour=2 and ai_steer#>-2.5 then ai_steer#=ai_steer#-0.5
   if ai_behaviour<>1 and ai_behaviour<>2 then ai_steer#=ai_steer#/1.2
   if ai_speed#>0 then ai_angleY#=ai_angleY#+ai_steer#
   if ai_speed#<0 then ai_angleY#=ai_angleY#-ai_steer#

rotate object 2,0,wrapvalue(ai_angleY#),wrapvalue(0-ai_angleZ#)
   ai_X#=newXvalue(ai_X#,ai_angleY#,ai_speed#)
   ai_Z#=newZvalue(ai_Z#,ai_angleY#,ai_speed#)
   if ai_X#>250 then ai_X#=250:ai_speed#=ai_speed#/1.02
   if ai_X#<-50 then ai_X#=-50:ai_speed#=ai_speed#/1.02
   if ai_Z#>250 then ai_Z#=250:ai_speed#=ai_speed#/1.02
   if ai_Z#<-50 then ai_Z#=-50:ai_speed#=ai_speed#/1.02
   Position object 2,ai_X#,0,ai_Z#
   `Make the cone pointer point!
   Position object 31,ai_X#,5,ai_Z#
   point object 31,OBJECT POSITION X(ai_waypoint#+3),5,OBJECT POSITION Z(ai_waypoint#+3)

ai_angleZ#=ai_angleZ#+(ai_AngleY#-ai_angleZ#)/10

`map update
   gosub update_map
loop
`___________________________________________________________________________________

collision:
   if object collision(1,waypoint#+3)=1
      hide object waypoint#+3
      if waypoint#=length-3
         gosub finnish
      endif
      color object waypoint#+4,RGB(225,0,0)
      waypoint#=waypoint#+1
   endif
return

ai_collision:
   if object collision(2,ai_waypoint#+3)=1
      ghost object on ai_waypoint#+3
      if ai_waypoint#=length-3
         aiwon=1
         gosub finnish
      endif
      ai_waypoint#=ai_waypoint#+1
   endif
return

`map updating!
update_map:
   set current bitmap 1
   ink rgb(0,255,0),rgb(0,255,0)
   cls
   `the player cube (yellow, 2x as big)
   ink rgb(255,255,0),0
   box X#-2,Z#-2,X#+2,Z#+2
   `the ai cube (black)
   ink 0,0
   box ai_X#-1,ai_Z#-1,ai_X#+1,ai_Z#+1
   ink rgb(255,255,255),0
   `the waypoint cubes (white)
   for t=waypoint#+3 to length
      box OBJECT POSITION X(t)-1,OBJECT POSITION Z(t)-1,OBJECT POSITION X(t)+1,OBJECT POSITION Z(t)+1
   next t
   `the destination waypoint cube (red, 2x as big)
   ink rgb(255,0,0),0
   box OBJECT POSITION X(waypoint#+3)-2,OBJECT POSITION Z(waypoint#+3)-2,OBJECT POSITION X(waypoint#+3)+2,OBJECT POSITION Z(waypoint#+3)+2
   get image 1,0,0,200,200
   set current bitmap 0
   ink rgb(255,255,255),0
   texture object 32,1
return

finnish:
   if Elapsed#>60 then Elapsed#=Elapsed#-60:min=min+1:goto finnish
   repeat
      cls rgb(225,30,30)

a=rnd(5)
      if a=0 then ink rgb(225,30,30),0 else ink rgb(0,0,0),0
      set text font "impact"
      set text size 100
      if aiwon=1 then center text screen width()/2,screen height()/2-100,"YOU LOZE!!" else center text screen width()/2,screen height()/2-100,"FINISH!!"

ink rgb(0,0,0),0
      set text font "Courier"
      set text size 15
      if min>0
         center text screen width()/2,screen height()/2-10,"In just "+Str$(min)+" minute(s) and "+Str$(Elapsed#)+" seconds"
      else
         center text screen width()/2,screen height()/2-10,"In just "+Str$(Elapsed#)+" seconds"
      endif

sync
   until world_domination=1

+ Code Snippet

remstart
   -------------------------------------------------------------------
   Cube Race
   -------------------------------------------------------------------
   modified by NinJA999
   originally written by Link102
   -------------------------------------------------------------------
   I added a map, direction pointers, and a waypoint counter.
   -------------------------------------------------------------------
remend

`set display mode 1152,864,16
set display mode 1024,768,16
sync on:sync rate 30
hide mouse
randomize timer()

make matrix 1,200,200,10,10
position matrix 1,0,-2,0

make object cube 1,4
color object 1,RGB(55,55,55)

make object cube 2,4
color object 2,RGB(20,20,20)

`make map!
create bitmap 1,200,200
set current bitmap 1
ink rgb(0,255,0),rgb(0,255,0)
cls
get image 1,0,0,200,200
set current bitmap 0
ink rgb(255,255,255),0
`more map making!
make object plain 32,200,200
lock object on 32
position object 32,-490,-320,800
ghost object on 32
texture object 32,1

length=20

for t=3 to length
make object cube t,4
position object t,rnd(200),0,rnd(200)
next t
color object 3,RGB(225,0,0)

`Cone pointer
make object cone 30,4
zrotate object 30, 90
xrotate object 30, 90
fix object pivot 30
color object 30,RGB(255,255,0)

`AI cone pointer (for show)
make object cone 31,4
zrotate object 31, 90
xrotate object 31, 90
fix object pivot 31
color object 31,RGB(252,206,67)

T#=Timer()
set text font "Berlin Sans FB"
set text size 50

`___________________________________________________________________________________

`___________________________________________________________________________________

do
   Elapsed#=(Timer()-T#)/1000
   if waypoint#>ai_waypoint# then pos$="1st"
   if waypoint#=ai_waypoint# and root#<ai_root# then pos$="1st"
   if waypoint#=ai_waypoint# and root#>ai_root# then pos$="2nd"
   if waypoint#<ai_waypoint# then pos$="2nd"

   Text 10,10,pos$

   `Display current waypoint!
   Text 10,60,Str$(waypoint#)+"/"+Str$(length-2)

   if upkey()=1 and speed#=>0 then speed#=speed#+0.02
   if upkey()=1 and speed#<0 then speed#=speed#+0.05
   if downkey()=1 and speed#>-1 then speed#=speed#-0.05
   if downkey()=0 and upkey()=0 then speed#=speed#/1.02

   if rightkey()=1 and steer#<2.5 then steer#=steer#+0.1
   if leftkey()=1 and steer#>-2.5 then steer#=steer#-0.1
   if rightkey()=0 and leftkey()=0 then steer#=steer#/1.2
   if speed#>0 then angleY#=angleY#+steer#
   if speed#<0 then angleY#=angleY#-steer#

   gosub collision
   gosub ai_collision
`___________________________________________________________________________________

   rotate object 1,0,wrapvalue(angleY#),wrapvalue(0-angleZ#)
   X#=newXvalue(X#,angleY#,speed#)
   Z#=newZvalue(Z#,angleY#,speed#)
   if X#>250 then X#=250:speed#=speed#/1.02
   if X#<-50 then X#=-50:speed#=speed#/1.02
   if Z#>250 then Z#=250:speed#=speed#/1.02
   if Z#<-50 then Z#=-50:speed#=speed#/1.02
   Position object 1,X#,0,Z#
   `Make the cone pointer point!
   Position object 30,X#,5,Z#
   point object 30,OBJECT POSITION X(waypoint#+3),5,OBJECT POSITION Z(waypoint#+3)

   cam_angleY#=cam_angleY#+(angleY#-cam_angleY#)/10
   angleZ#=angleZ#+(AngleY#-angleZ#)/10
   camX#=newXvalue(object position x(1),cam_angleY#+180,speed#+20)
   camZ#=newZvalue(object position z(1),cam_angleY#+180,speed#+20)
   position camera camX#,speed#+10,camZ#
   point camera object position x(1),1,object position z(1)

   fov#=speed#/5
   set camera fov fov#+1

   root#=sqrt((((object position X(waypoint#+3)-X#)/2)^2)+(((object position Z(waypoint#+3)-Z#)/2)^2))
`___________________________________________________________________________________

   ang#=atanfull(ai_X#-object position X(ai_waypoint#+3),ai_Z#-object position Z(ai_waypoint#+3))-ai_angleY#

   if ang#<-180
      ai_behaviour=2
   else
      ai_behaviour=1
   endif
   ai_root#=sqrt((((object position X(ai_waypoint#+3)-ai_X#)/2)^2)+(((object position Z(ai_waypoint#+3)-ai_Z#)/2)^2))

   if ai_speed#*2<ai_root#/10 then ai_speed#=ai_speed#+0.02 else ai_speed#=ai_speed#/1.02
   if ai_behaviour=1 and ai_steer#<2.5 then ai_steer#=ai_steer#+0.5
   if ai_behaviour=2 and ai_steer#>-2.5 then ai_steer#=ai_steer#-0.5
   if ai_behaviour<>1 and ai_behaviour<>2 then ai_steer#=ai_steer#/1.2
   if ai_speed#>0 then ai_angleY#=ai_angleY#+ai_steer#
   if ai_speed#<0 then ai_angleY#=ai_angleY#-ai_steer#

   rotate object 2,0,wrapvalue(ai_angleY#),wrapvalue(0-ai_angleZ#)
   ai_X#=newXvalue(ai_X#,ai_angleY#,ai_speed#)
   ai_Z#=newZvalue(ai_Z#,ai_angleY#,ai_speed#)
   if ai_X#>250 then ai_X#=250:ai_speed#=ai_speed#/1.02
   if ai_X#<-50 then ai_X#=-50:ai_speed#=ai_speed#/1.02
   if ai_Z#>250 then ai_Z#=250:ai_speed#=ai_speed#/1.02
   if ai_Z#<-50 then ai_Z#=-50:ai_speed#=ai_speed#/1.02
   Position object 2,ai_X#,0,ai_Z#
   `Make the cone pointer point!
   Position object 31,ai_X#,5,ai_Z#
   point object 31,OBJECT POSITION X(ai_waypoint#+3),5,OBJECT POSITION Z(ai_waypoint#+3)

   ai_angleZ#=ai_angleZ#+(ai_AngleY#-ai_angleZ#)/10

   `map update
   gosub update_map
loop
`___________________________________________________________________________________

collision:
   if object collision(1,waypoint#+3)=1
      hide object waypoint#+3
      if waypoint#=length-3
         gosub finnish
      endif
      color object waypoint#+4,RGB(225,0,0)
      waypoint#=waypoint#+1
   endif
return

ai_collision:
   if object collision(2,ai_waypoint#+3)=1
      ghost object on ai_waypoint#+3
      if ai_waypoint#=length-3
         aiwon=1
         gosub finnish
      endif
      ai_waypoint#=ai_waypoint#+1
   endif
return

`map updating!
update_map:
   set current bitmap 1
   ink rgb(0,255,0),rgb(0,255,0)
   cls
   `the player cube (yellow, 2x as big)
   ink rgb(255,255,0),0
   box X#-2,Z#-2,X#+2,Z#+2
   `the ai cube (black)
   ink 0,0
   box ai_X#-1,ai_Z#-1,ai_X#+1,ai_Z#+1
   ink rgb(255,255,255),0
   `the waypoint cubes (white)
   for t=waypoint#+3 to length
      box OBJECT POSITION X(t)-1,OBJECT POSITION Z(t)-1,OBJECT POSITION X(t)+1,OBJECT POSITION Z(t)+1
   next t
   `the destination waypoint cube (red, 2x as big)
   ink rgb(255,0,0),0
   box OBJECT POSITION X(waypoint#+3)-2,OBJECT POSITION Z(waypoint#+3)-2,OBJECT POSITION X(waypoint#+3)+2,OBJECT POSITION Z(waypoint#+3)+2
   get image 1,0,0,200,200
   set current bitmap 0
   ink rgb(255,255,255),0
   texture object 32,1
return

finnish:
   if Elapsed#>60 then Elapsed#=Elapsed#-60:min=min+1:goto finnish
   repeat
      cls rgb(225,30,30)

      a=rnd(5)
      if a=0 then ink rgb(225,30,30),0 else ink rgb(0,0,0),0
      set text font "impact"
      set text size 100
      if aiwon=1 then center text screen width()/2,screen height()/2-100,"YOU LOZE!!" else center text screen width()/2,screen height()/2-100,"FINISH!!"

      ink rgb(0,0,0),0
      set text font "Courier"
      set text size 15
      if min>0
         center text screen width()/2,screen height()/2-10,"In just "+Str$(min)+" minute(s) and "+Str$(Elapsed#)+" seconds"
      else
         center text screen width()/2,screen height()/2-10,"In just "+Str$(Elapsed#)+" seconds"
      endif

      sync
   until world_domination=1

42
http://www.nictitatingrabbit.com
http://penchantpages.nictitatingrabbit.com

Back to top

Profile PM Email Website

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 1st Jun 2007 08:08

Link

I liked that added map so I added a little orientation to it on Ninjas modification to Links entry:

remstart
   -------------------------------------------------------------------
   Cube Race
   -------------------------------------------------------------------
   additional modification by Latch
   positioned radar (map) orientation relative to view

modified by NinJA999
   originally written by Link102
   -------------------------------------------------------------------
   NinJA999 - I added a map, direction pointers, and a waypoint counter.
   -------------------------------------------------------------------
remend

`set display mode 1152,864,16
set display mode 1024,768,16
sync on:sync rate 30
hide mouse
randomize timer()

make matrix 1,200,200,10,10
position matrix 1,0,-2,0

make object cube 1,4
color object 1,RGB(55,55,55)

make object cube 2,4
color object 2,RGB(20,20,20)

`make map!
create bitmap 1,200,200
set current bitmap 1
ink rgb(0,255,0),rgb(0,255,0)
cls
get image 1,0,0,200,200
set current bitmap 0
ink rgb(255,255,255),0
`more map making!
make object plain 32,200,200
lock object on 32
position object 32,-490,-320,800
ghost object on 32
texture object 32,1

length=20

for t=3 to length
make object cube t,4
position object t,rnd(200),0,rnd(200)
next t
color object 3,RGB(225,0,0)

`Cone pointer
make object cone 30,4
zrotate object 30, 90
xrotate object 30, 90
fix object pivot 30
color object 30,RGB(255,255,0)

`AI cone pointer (for show)
make object cone 31,4
zrotate object 31, 90
xrotate object 31, 90
fix object pivot 31
color object 31,RGB(252,206,67)

T#=Timer()
set text font "Berlin Sans FB"
set text size 50

`___________________________________________________________________________________

do
   Elapsed#=(Timer()-T#)/1000
   if waypoint#>ai_waypoint# then pos$="1st"
   if waypoint#=ai_waypoint# and root#<ai_root# then pos$="1st"
   if waypoint#=ai_waypoint# and root#>ai_root# then pos$="2nd"
   if waypoint#<ai_waypoint# then pos$="2nd"

Text 10,10,pos$

`Display current waypoint!
   Text 10,60,Str$(waypoint#)+"/"+Str$(length-2)

if upkey()=1 and speed#=>0 then speed#=speed#+0.02
   if upkey()=1 and speed#<0 then speed#=speed#+0.05
   if downkey()=1 and speed#>-1 then speed#=speed#-0.05
   if downkey()=0 and upkey()=0 then speed#=speed#/1.02

if rightkey()=1 and steer#<2.5 then steer#=steer#+0.1
   if leftkey()=1 and steer#>-2.5 then steer#=steer#-0.1
   if rightkey()=0 and leftkey()=0 then steer#=steer#/1.2
   if speed#>0 then angleY#=angleY#+steer#
   if speed#<0 then angleY#=angleY#-steer#

gosub collision
   gosub ai_collision
`___________________________________________________________________________________

rotate object 1,0,wrapvalue(angleY#),wrapvalue(0-angleZ#)
   X#=newXvalue(X#,angleY#,speed#)
   Z#=newZvalue(Z#,angleY#,speed#)
   if X#>250 then X#=250:speed#=speed#/1.02
   if X#<-50 then X#=-50:speed#=speed#/1.02
   if Z#>250 then Z#=250:speed#=speed#/1.02
   if Z#<-50 then Z#=-50:speed#=speed#/1.02
   Position object 1,X#,0,Z#
   `Make the cone pointer point!
   Position object 30,X#,5,Z#
   point object 30,OBJECT POSITION X(waypoint#+3),5,OBJECT POSITION Z(waypoint#+3)

cam_angleY#=cam_angleY#+(angleY#-cam_angleY#)/10
   angleZ#=angleZ#+(AngleY#-angleZ#)/10
   camX#=newXvalue(object position x(1),cam_angleY#+180,speed#+20)
   camZ#=newZvalue(object position z(1),cam_angleY#+180,speed#+20)
   position camera camX#,speed#+10,camZ#
   point camera object position x(1),1,object position z(1)

fov#=speed#/5
   set camera fov fov#+1

root#=sqrt((((object position X(waypoint#+3)-X#)/2)^2)+(((object position Z(waypoint#+3)-Z#)/2)^2))
`___________________________________________________________________________________

ang#=atanfull(ai_X#-object position X(ai_waypoint#+3),ai_Z#-object position Z(ai_waypoint#+3))-ai_angleY#

if ang#<-180
      ai_behaviour=2
   else
      ai_behaviour=1
   endif
   ai_root#=sqrt((((object position X(ai_waypoint#+3)-ai_X#)/2)^2)+(((object position Z(ai_waypoint#+3)-ai_Z#)/2)^2))

if ai_speed#*2<ai_root#/10 then ai_speed#=ai_speed#+0.02 else ai_speed#=ai_speed#/1.02
   if ai_behaviour=1 and ai_steer#<2.5 then ai_steer#=ai_steer#+0.5
   if ai_behaviour=2 and ai_steer#>-2.5 then ai_steer#=ai_steer#-0.5
   if ai_behaviour<>1 and ai_behaviour<>2 then ai_steer#=ai_steer#/1.2
   if ai_speed#>0 then ai_angleY#=ai_angleY#+ai_steer#
   if ai_speed#<0 then ai_angleY#=ai_angleY#-ai_steer#

rotate object 2,0,wrapvalue(ai_angleY#),wrapvalue(0-ai_angleZ#)
   ai_X#=newXvalue(ai_X#,ai_angleY#,ai_speed#)
   ai_Z#=newZvalue(ai_Z#,ai_angleY#,ai_speed#)
   if ai_X#>250 then ai_X#=250:ai_speed#=ai_speed#/1.02
   if ai_X#<-50 then ai_X#=-50:ai_speed#=ai_speed#/1.02
   if ai_Z#>250 then ai_Z#=250:ai_speed#=ai_speed#/1.02
   if ai_Z#<-50 then ai_Z#=-50:ai_speed#=ai_speed#/1.02
   Position object 2,ai_X#,0,ai_Z#
   `Make the cone pointer point!
   Position object 31,ai_X#,5,ai_Z#
   point object 31,OBJECT POSITION X(ai_waypoint#+3),5,OBJECT POSITION Z(ai_waypoint#+3)

ai_angleZ#=ai_angleZ#+(ai_AngleY#-ai_angleZ#)/10

`map update
   gosub update_map
loop
`___________________________________________________________________________________

collision:
   if object collision(1,waypoint#+3)=1
      hide object waypoint#+3
      if waypoint#=length-3
         gosub finnish
      endif
      color object waypoint#+4,RGB(225,0,0)
      waypoint#=waypoint#+1
   endif
return

ai_collision:
   if object collision(2,ai_waypoint#+3)=1
      ghost object on ai_waypoint#+3
      if ai_waypoint#=length-3
         aiwon=1
         gosub finnish
      endif
      ai_waypoint#=ai_waypoint#+1
   endif
return

`map updating!
update_map:
   set current bitmap 1
   ink rgb(0,255,0),rgb(0,255,0)
   cls
   `the player cube (yellow, 2x as big)
   ink rgb(255,255,0),0
   box X#-2,Z#-2,X#+2,Z#+2
   `the ai cube (black)
   ink 0,0
   box ai_X#-1,ai_Z#-1,ai_X#+1,ai_Z#+1
   ink rgb(255,255,255),0
   `the waypoint cubes (white)
   for t=waypoint#+3 to length
      box OBJECT POSITION X(t)-1,OBJECT POSITION Z(t)-1,OBJECT POSITION X(t)+1,OBJECT POSITION Z(t)+1
   next t
   `the destination waypoint cube (red, 2x as big)
   ink rgb(255,0,0),0
   box OBJECT POSITION X(waypoint#+3)-2,OBJECT POSITION Z(waypoint#+3)-2,OBJECT POSITION X(waypoint#+3)+2,OBJECT POSITION Z(waypoint#+3)+2
   flip bitmap 1
   get image 1,0,0,200,200
   set current bitmap 0
   ink rgb(255,255,255),0
   texture object 32,1

zrotate object 32,object angle y(1)
return

finnish:
   if Elapsed#>60 then Elapsed#=Elapsed#-60:min=min+1:goto finnish
   repeat
      cls rgb(225,30,30)

a=rnd(5)
      if a=0 then ink rgb(225,30,30),0 else ink rgb(0,0,0),0
      set text font "impact"
      set text size 100
      if aiwon=1 then center text screen width()/2,screen height()/2-100,"YOU LOZE!!" else center text screen width()/2,screen height()/2-100,"FINISH!!"

ink rgb(0,0,0),0
      set text font "Courier"
      set text size 15
      if min>0
         center text screen width()/2,screen height()/2-10,"In just "+Str$(min)+" minute(s) and "+Str$(Elapsed#)+" seconds"
      else
         center text screen width()/2,screen height()/2-10,"In just "+Str$(Elapsed#)+" seconds"
      endif

sync
   until world_domination=1

+ Code Snippet

remstart
   -------------------------------------------------------------------
   Cube Race
   -------------------------------------------------------------------
   additional modification by Latch
   positioned radar (map) orientation relative to view

   modified by NinJA999
   originally written by Link102
   -------------------------------------------------------------------
   NinJA999 - I added a map, direction pointers, and a waypoint counter.
   -------------------------------------------------------------------
remend

`set display mode 1152,864,16
set display mode 1024,768,16
sync on:sync rate 30
hide mouse
randomize timer()

make matrix 1,200,200,10,10
position matrix 1,0,-2,0

make object cube 1,4
color object 1,RGB(55,55,55)

make object cube 2,4
color object 2,RGB(20,20,20)

`make map!
create bitmap 1,200,200
set current bitmap 1
ink rgb(0,255,0),rgb(0,255,0)
cls
get image 1,0,0,200,200
set current bitmap 0
ink rgb(255,255,255),0
`more map making!
make object plain 32,200,200
lock object on 32
position object 32,-490,-320,800
ghost object on 32
texture object 32,1

length=20

for t=3 to length
make object cube t,4
position object t,rnd(200),0,rnd(200)
next t
color object 3,RGB(225,0,0)

`Cone pointer
make object cone 30,4
zrotate object 30, 90
xrotate object 30, 90
fix object pivot 30
color object 30,RGB(255,255,0)

`AI cone pointer (for show)
make object cone 31,4
zrotate object 31, 90
xrotate object 31, 90
fix object pivot 31
color object 31,RGB(252,206,67)

T#=Timer()
set text font "Berlin Sans FB"
set text size 50

`___________________________________________________________________________________

`___________________________________________________________________________________

do
   Elapsed#=(Timer()-T#)/1000
   if waypoint#>ai_waypoint# then pos$="1st"
   if waypoint#=ai_waypoint# and root#<ai_root# then pos$="1st"
   if waypoint#=ai_waypoint# and root#>ai_root# then pos$="2nd"
   if waypoint#<ai_waypoint# then pos$="2nd"

   Text 10,10,pos$

   `Display current waypoint!
   Text 10,60,Str$(waypoint#)+"/"+Str$(length-2)

   if upkey()=1 and speed#=>0 then speed#=speed#+0.02
   if upkey()=1 and speed#<0 then speed#=speed#+0.05
   if downkey()=1 and speed#>-1 then speed#=speed#-0.05
   if downkey()=0 and upkey()=0 then speed#=speed#/1.02

   if rightkey()=1 and steer#<2.5 then steer#=steer#+0.1
   if leftkey()=1 and steer#>-2.5 then steer#=steer#-0.1
   if rightkey()=0 and leftkey()=0 then steer#=steer#/1.2
   if speed#>0 then angleY#=angleY#+steer#
   if speed#<0 then angleY#=angleY#-steer#

   gosub collision
   gosub ai_collision
`___________________________________________________________________________________

   rotate object 1,0,wrapvalue(angleY#),wrapvalue(0-angleZ#)
   X#=newXvalue(X#,angleY#,speed#)
   Z#=newZvalue(Z#,angleY#,speed#)
   if X#>250 then X#=250:speed#=speed#/1.02
   if X#<-50 then X#=-50:speed#=speed#/1.02
   if Z#>250 then Z#=250:speed#=speed#/1.02
   if Z#<-50 then Z#=-50:speed#=speed#/1.02
   Position object 1,X#,0,Z#
   `Make the cone pointer point!
   Position object 30,X#,5,Z#
   point object 30,OBJECT POSITION X(waypoint#+3),5,OBJECT POSITION Z(waypoint#+3)

   cam_angleY#=cam_angleY#+(angleY#-cam_angleY#)/10
   angleZ#=angleZ#+(AngleY#-angleZ#)/10
   camX#=newXvalue(object position x(1),cam_angleY#+180,speed#+20)
   camZ#=newZvalue(object position z(1),cam_angleY#+180,speed#+20)
   position camera camX#,speed#+10,camZ#
   point camera object position x(1),1,object position z(1)

   fov#=speed#/5
   set camera fov fov#+1

   root#=sqrt((((object position X(waypoint#+3)-X#)/2)^2)+(((object position Z(waypoint#+3)-Z#)/2)^2))
`___________________________________________________________________________________

   ang#=atanfull(ai_X#-object position X(ai_waypoint#+3),ai_Z#-object position Z(ai_waypoint#+3))-ai_angleY#

   if ang#<-180
      ai_behaviour=2
   else
      ai_behaviour=1
   endif
   ai_root#=sqrt((((object position X(ai_waypoint#+3)-ai_X#)/2)^2)+(((object position Z(ai_waypoint#+3)-ai_Z#)/2)^2))

   if ai_speed#*2<ai_root#/10 then ai_speed#=ai_speed#+0.02 else ai_speed#=ai_speed#/1.02
   if ai_behaviour=1 and ai_steer#<2.5 then ai_steer#=ai_steer#+0.5
   if ai_behaviour=2 and ai_steer#>-2.5 then ai_steer#=ai_steer#-0.5
   if ai_behaviour<>1 and ai_behaviour<>2 then ai_steer#=ai_steer#/1.2
   if ai_speed#>0 then ai_angleY#=ai_angleY#+ai_steer#
   if ai_speed#<0 then ai_angleY#=ai_angleY#-ai_steer#

   rotate object 2,0,wrapvalue(ai_angleY#),wrapvalue(0-ai_angleZ#)
   ai_X#=newXvalue(ai_X#,ai_angleY#,ai_speed#)
   ai_Z#=newZvalue(ai_Z#,ai_angleY#,ai_speed#)
   if ai_X#>250 then ai_X#=250:ai_speed#=ai_speed#/1.02
   if ai_X#<-50 then ai_X#=-50:ai_speed#=ai_speed#/1.02
   if ai_Z#>250 then ai_Z#=250:ai_speed#=ai_speed#/1.02
   if ai_Z#<-50 then ai_Z#=-50:ai_speed#=ai_speed#/1.02
   Position object 2,ai_X#,0,ai_Z#
   `Make the cone pointer point!
   Position object 31,ai_X#,5,ai_Z#
   point object 31,OBJECT POSITION X(ai_waypoint#+3),5,OBJECT POSITION Z(ai_waypoint#+3)

   ai_angleZ#=ai_angleZ#+(ai_AngleY#-ai_angleZ#)/10

   `map update
   gosub update_map
loop
`___________________________________________________________________________________

collision:
   if object collision(1,waypoint#+3)=1
      hide object waypoint#+3
      if waypoint#=length-3
         gosub finnish
      endif
      color object waypoint#+4,RGB(225,0,0)
      waypoint#=waypoint#+1
   endif
return

ai_collision:
   if object collision(2,ai_waypoint#+3)=1
      ghost object on ai_waypoint#+3
      if ai_waypoint#=length-3
         aiwon=1
         gosub finnish
      endif
      ai_waypoint#=ai_waypoint#+1
   endif
return

`map updating!
update_map:
   set current bitmap 1
   ink rgb(0,255,0),rgb(0,255,0)
   cls
   `the player cube (yellow, 2x as big)
   ink rgb(255,255,0),0
   box X#-2,Z#-2,X#+2,Z#+2
   `the ai cube (black)
   ink 0,0
   box ai_X#-1,ai_Z#-1,ai_X#+1,ai_Z#+1
   ink rgb(255,255,255),0
   `the waypoint cubes (white)
   for t=waypoint#+3 to length
      box OBJECT POSITION X(t)-1,OBJECT POSITION Z(t)-1,OBJECT POSITION X(t)+1,OBJECT POSITION Z(t)+1
   next t
   `the destination waypoint cube (red, 2x as big)
   ink rgb(255,0,0),0
   box OBJECT POSITION X(waypoint#+3)-2,OBJECT POSITION Z(waypoint#+3)-2,OBJECT POSITION X(waypoint#+3)+2,OBJECT POSITION Z(waypoint#+3)+2
   flip bitmap 1
   get image 1,0,0,200,200
   set current bitmap 0
   ink rgb(255,255,255),0
   texture object 32,1

   zrotate object 32,object angle y(1)
return

finnish:
   if Elapsed#>60 then Elapsed#=Elapsed#-60:min=min+1:goto finnish
   repeat
      cls rgb(225,30,30)

      a=rnd(5)
      if a=0 then ink rgb(225,30,30),0 else ink rgb(0,0,0),0
      set text font "impact"
      set text size 100
      if aiwon=1 then center text screen width()/2,screen height()/2-100,"YOU LOZE!!" else center text screen width()/2,screen height()/2-100,"FINISH!!"

      ink rgb(0,0,0),0
      set text font "Courier"
      set text size 15
      if min>0
         center text screen width()/2,screen height()/2-10,"In just "+Str$(min)+" minute(s) and "+Str$(Elapsed#)+" seconds"
      else
         center text screen width()/2,screen height()/2-10,"In just "+Str$(Elapsed#)+" seconds"
      endif

      sync
   until world_domination=1

Enjoy your day.

Back to top

Profile PM

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 1st Jun 2007 11:31

Link

@LBFN
Having tidy code has no difference on how I judge it. But it makes it easier to work out and if needs be, modify it.

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

NinJA999

18

Years of Service

User Offline

Joined: 11th Nov 2005

Location: NH

Posted: 1st Jun 2007 13:51

Link

wow, Latch! I was thinking of doing that, but had no idea how. just one line! cool.

42
http://www.nictitatingrabbit.com
http://penchantpages.nictitatingrabbit.com

Back to top

Profile PM Email Website

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 2nd Jun 2007 00:49

Link

Hey guys, i just played through link's racer that you all modified. It is wonderful, hehe..replace with a model and fill the matrix and you got yourself a game

. Great job, can't wait for next challenge.

Latch-Thank you for helping me out on my baseball game, up to 200 lines now and going strong.

Back to top

Profile PM Email

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 2nd Jun 2007 02:38

Link

Quote: "Wouldn't work. There isn't a youwin label."

Oh dear... sorry about that.

remstart
   Amazing Circle VS. Clock Race Game
   Made by Sinani201
   ~The DB Classic Programming Thread~
remend

cls
print "Welcome to Sinani201's Amazing racing game!!!!"
print "Click the small circle to hover the big one."
print "When the big circle touches the end of the screen, you win!"
print "But if time runs out, you lose!"
print "Press any key to start. Good luck!"
wait key
goto playgame
playgame:
  cls
  radius=3
  circlexpos=456
  do
  set text opaque
    Ink RGB(255,255,255),0
    Seconds=90
    T=Timer()
    Repeat
      Elapsed=(Timer()-T)/1000
      TimeLeft=Seconds-Elapsed
      text 0,0,Str$(TimeLeft)+"   "
      position mouse mousex()+rnd(5)-2,mousey()+rnd(5)-2
      if mouseclick()=1
        mx=mousex()
        my=mousey()
        if SQRT((x-mx)^2 + (y-my)^2)<radius
          inc circleypos,19
          timer=0
        endif
      endif
      if timer=0
        cls
        x=rnd(screen width()/2)
        y=rnd(screen height())
        circle x,y,radius
        timer=200+rnd(3000)
      endif
      if circleypos=456
        gosub youwin
      endif
      dec timer
      circle circlexpos,circleypos,30
      sync
    Until TimeLeft=0
    gosub gameover
  loop
  gameover:
    cls
    print "  Sorry, time ran out. Press any key to exit"
    suspend for key
    end
  return
  youwin:
    cls
    print "Congratulations, you won! Good job."
    do
    print
loop

+ Code Snippet

remstart
   Amazing Circle VS. Clock Race Game
   Made by Sinani201
   ~The DB Classic Programming Thread~
remend

cls
print "Welcome to Sinani201's Amazing racing game!!!!"
print "Click the small circle to hover the big one."
print "When the big circle touches the end of the screen, you win!"
print "But if time runs out, you lose!"
print "Press any key to start. Good luck!"
wait key
goto playgame
playgame:
  cls
  radius=3
  circlexpos=456
  do
  set text opaque
    Ink RGB(255,255,255),0
    Seconds=90
    T=Timer()
    Repeat
      Elapsed=(Timer()-T)/1000
      TimeLeft=Seconds-Elapsed
      text 0,0,Str$(TimeLeft)+"   "
      position mouse mousex()+rnd(5)-2,mousey()+rnd(5)-2
      if mouseclick()=1
        mx=mousex()
        my=mousey()
        if SQRT((x-mx)^2 + (y-my)^2)<radius
          inc circleypos,19
          timer=0
        endif
      endif
      if timer=0
        cls
        x=rnd(screen width()/2)
        y=rnd(screen height())
        circle x,y,radius
        timer=200+rnd(3000)
      endif
      if circleypos=456
        gosub youwin
      endif
      dec timer
      circle circlexpos,circleypos,30
      sync
    Until TimeLeft=0
    gosub gameover
  loop
  gameover:
    cls
    print "  Sorry, time ran out. Press any key to exit"
    suspend for key
    end
  return
  youwin:
    cls
    print "Congratulations, you won! Good job."
    do
    print
loop

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 2nd Jun 2007 02:47

Link

sinai-Nice job dude, i was on my toes for that one

.

Back to top

Profile PM Email

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 2nd Jun 2007 04:40

Link

@NinJA

Thanks - Actually, I snuck in two lines
flip bitmap 1
and zrotate etc...

@Zombie
You're welcome

@Sinani
Nice combination of the this and the last challenge!

Enjoy your day.

Back to top

Profile PM

NinJA999

18

Years of Service

User Offline

Joined: 11th Nov 2005

Location: NH

Posted: 2nd Jun 2007 05:17

Link

I'm working on a racer where you have to swerve around cones...It uses a control system loosely based on Link102's (read: like 2 similar lines), and hopefully I can finish it by the 7th.

42
http://www.nictitatingrabbit.com
http://penchantpages.nictitatingrabbit.com

Back to top

Profile PM Email Website

NinJA999

18

Years of Service

User Offline

Joined: 11th Nov 2005

Location: NH

Posted: 2nd Jun 2007 16:00

Link

does anyone know why when I print text on the screen then "wait 2000" the text disappears during the wait? how can I make it stay?

42
http://www.nictitatingrabbit.com
http://penchantpages.nictitatingrabbit.com

Back to top

Profile PM Email Website

Link102

19

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 2nd Jun 2007 19:36 Edited at: 2nd Jun 2007 20:05

Link

if you're in 3d do somethig like this

+ Code Snippet

set cursor 0,0
if counter>-2000 then print "text":counter=counter-1

or if you want the game to pause during this

+ Code Snippet

repeat
set cursor 0,0
print "text"
counter=counter-1
until counter<-2000

Don't look at my sig!

Back to top

Profile PM

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 2nd Jun 2007 20:16

Link

@Zombie 20:

Quote: "can't wait for next challenge"

This one's not over yet!

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 2nd Jun 2007 22:30 Edited at: 3rd Jun 2007 00:24

Link

Quote: "sinai-Nice job dude"

Too many people mistaken my username on other forums... don't join them.
On the happy side, thanks for complimenting! I'm working on a version of it in 3D but for now this is my entry.
-----------------------------------------------------------
Can this thread be stickied? The DBPro one is, so why can't this one be stickied?

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

NinJA999

18

Years of Service

User Offline

Joined: 11th Nov 2005

Location: NH

Posted: 3rd Jun 2007 05:59

Link

Well, my cone dodger is finished! Here it is. Try to beat 17 seconds--my personal best! The controls might take a couple tries to master--my friend's first try was 3min, 20sec, but her second try was 32sec. If you get tired of my map, make your own down in the data statements. Keep in mind I did this in three days, while *in* a play (I worked on it while offstage), and right before my birthday (tomorrow). Hope you like it!!

It uses a controls system VERY loosely based on link102's, and a camera system more closely based on link102's. Also, the grass texture is loosely based on the grass texture from Jeff Losee's example in the new DBC's examples folder.

remstart
   -------------------------------------------------------------------
   Cone Racer
   -------------------------------------------------------------------
   By NinJA999
   05/31/07
   -------------------------------------------------------------------
   Try to beat 17 seconds--my personal best!
   It might take a few tries to get used to the controls, though.
   If you beat it, try making your own map in the data statements!
   -------------------------------------------------------------------
remend

`---Setup---
set display mode 1024,768,32
sync on
sync rate 60
hide mouse

`Color choices!
dim cubecolors(8)
cubecolors(0)=RGB(255,0,0)
cubecolors(1)=RGB(255,128,0)
cubecolors(2)=RGB(255,255,0)
cubecolors(3)=RGB(0,255,0)
cubecolors(4)=RGB(0,0,255)
cubecolors(5)=RGB(128,0,128)
cubecolors(6)=RGB(255,0,255)
cubecolors(7)=RGB(255,255,255)
curcolor=0
cubecolor = cubecolors(curcolor)

`For centering text
screenhcenter=screen width()/2
screenvcenter=screen height()/2
set text font "Georgia"
set text size 20
ink rgb(255,0,0),0

`Intro screen
do
   cls
   ink rgb(255,0,0),0
   center text screenhcenter,screenvcenter-40,"--Cone Racer--"
   center text screenhcenter,screenvcenter-15,"Press Left and Right to change the color of the controllable cube."
   center text screenhcenter,screenvcenter+5,"Press Space to Start."
   ink cubecolor,0
   center text screenhcenter,screenvcenter+30,"<- CHANGE COLOR ->"
   ink rgb(255,0,0),0
   center text screenhcenter,screenvcenter+50,"During the game, use the arrow keys to swerve the cube around"
   center text screenhcenter,screenvcenter+65,"the cones.  Follow the red patches of grass."
   if spacekey() then goto startgame
   if rightkey() then inc curcolor
   if leftkey() then dec curcolor
   if curcolor>7 then curcolor=0
   if curcolor<0 then curcolor=7
   cubecolor = cubecolors(curcolor)
   `to allow for arrow presses
   wait 100
   sync
loop

`actual game setup
startgame:
set text size 40
ink rgb(255,255,255),0
draw to back
cls
center text screenhcenter,screenvcenter,"LOADING!"
sync
sync
autocam off
set global collision on
gosub fieldsetup
make object cube 1,5
X#=initialX#
Z#=initialZ#
Y#=2.5
position object 1,X#,Y#,Z#
set object collision on 1
color object 1,cubecolor
angle# = 180
draw to front
ink rgb(255,255,255),0
set text size 40
set text font "Georgia"
starttime#=Timer()
waypoint=1
color backdrop rgb(128,128,255)

`---MAIN LOOP---
do

`controls
   if upkey() and spacekey() = 0 then speed#=speed#+0.05
   if downkey() and spacekey() = 0 then speed#=speed#-0.05
   if upkey() = 0 and downkey() = 0 and spacekey() = 0 then speed#=speed#/1.02

if rightkey() and spacekey() = 0 then turnp#=turnp#+0.2
   if leftkey() and spacekey() = 0 then turnp#=turnp#-0.2
   if rightkey() = 0 and leftkey() = 0 and spacekey() = 0 then turnp#=turnp#/1.2

if spacekey() then speed#=speed#/1.1
   if spacekey() and rightkey() then turnp#=turnp#+0.6
   if spacekey() and leftkey() then turnp#=turnp#-0.6

`allow speed to reach 0 at a point
   if speed# > -0.04 and speed# < 0.04 then speed# = 0

`limit preliminary turn
   if turnp# > 10 then turnp# = 10
   if turnp# < -10 then turnp# = -10

`more car-like turning (turn faster if you're moving slower)
   if speed# > 0 or speed# < 0 then turn#=turnp#/speed#
   `except when you're moving really slow!
   if speed# < 0.2 and speed# > -0.2 then turn# = turnp#*speed#

`limit turn and speed
   if turn# > 8 then turn# = 8
   if turn# < -8 then turn# = -8
   if speed# > 3.5 then speed# = 3.5
   if speed# < -3.5 then speed# = -3.5

angle#=angle#+turn#

rotate object 1,0,wrapvalue(angle#),0
   X#=newXvalue(X#,angle#,speed#)
   Z#=newZvalue(Z#,angle#,speed#)

`if you go over the edge, you fall!
   if X#>100 or X#<0 then Y#=Y#-10
   if Z#>200 or Z#<0 then Y#=Y#-10
   if Y#<2.5
      if X#<101 then X#=101
      if X#>-1 then X#=-1
      if Z#<201 then X#=201
      if Z#>-1 then Z#=-1
   endif

if Y#<-300 then gosub restart

Position object 1,X#,Y#,Z#

`camera stuff
   cam_angle#=cam_angle#+(angle#-cam_angle#)/5

camX#=newXvalue(X#,cam_angle#+180,speed#+20)
   camZ#=newZvalue(Z#,cam_angle#+180,speed#+20)

position camera camX#,speed#+10,camZ#

point camera X#,Y#,Z#

fov#=speed#/5
   set camera fov fov#+1

elapsedtime#=(Timer()-starttime#)/1000
   min#=elapsedtime#/60

`HUD
   text 10,10,"Speed: "+str$(Round(speed#,1))
   text 10,50,str$(waypoint-1)+" Cones out of 6"
   if min#>1
      text 10,90,"Elapsed: "+str$(Int(min#))+" min, "+str$(Int(elapsedtime#-(Int(min#)*60)))+" sec"
   else
      text 10,90,"Elapsed: "+str$(Int(elapsedtime#))+" sec"
   endif

`Cone collision checking
   for i=10 to (coneobj-1)
      if object collision(i,1) then gosub restart
   next i

`Waypoint collision checking
   for i=20 to (boxobj-1)
      if object collision(i,1) then waypoint=waypoint+1
      if waypoint>7 then goto youwin
   next i

`take care of deleting the boxes (in case the waypoint changes)
   for i=20 to boxobj-1
      delete object i
   next i
   boxobj=20

gosub waypoint:

sync
loop

`make the field
fieldsetup:
`allow for grass & red grass:
create bitmap 1,256,128
set current bitmap 1
`grass
for i=0 to 128
   for j=0 to 128
      ink rgb(10,100+rnd(30),25),0
      dot i,j
   next j
next i
`red grass
for i=128 to 256
   for j=0 to 128
      ink rgb(100+rnd(100),0,0),0
      dot i,j
   next j
next i
get image 1,0,0,256,128
cls
set current bitmap 0
delete bitmap 1
make matrix 1,100,200,10,20
prepare matrix texture 1,1,2,1
fill matrix 1,0.0,1
`Cone counter (cone objects start with 10)
coneobj=10
`Box counter (box objects start with 20)
boxobj=20
`read map stored in data statements & place cones and cube
for i=1 to 20
   for j=1 to 10
      Read r
      select r
         case 8
            initialX#=(11-j)*10-5
            initialZ#=i*10-5
         endcase
         case 9
            make object cone coneobj, 5
            position object coneobj, (11-j)*10-5, 3, i*10-5
            color object coneobj, rgb(255,128,0)
            set object collision on coneobj
            set object collision to polygons coneobj
            coneobj=coneobj+1
         endcase
      endselect
   next j
next i
restore
update matrix 1
return

`called each loop, and makes the waypoint collision boxes and red grass
waypoint:
for i=1 to 20
   for j=1 to 10
      Read r
      select r
         case waypoint
            `red grass
            set matrix tile 1,(11-j)-1,i-1,2
            `collision box
            make object box boxobj,10,5,10
            position object boxobj, (11-j)*10-5,2.5,i*10-5
            set object collision on boxobj
            hide object boxobj
            boxobj=boxobj+1
         endcase
         case default
            `everything else should be normal grass
            set matrix tile 1,(11-j)-1,i-1,1
         endcase
      endselect
   next j
next i
restore
`after about an hour, finally realized why the matrix wasn't showing my tiles!
update matrix 1
return

`after going off the side, or hitting a cone, everything except the time must be reset.
restart:
   X#=initialX#
   Z#=initialZ#
   Y#=2.5
   angle#=180
   speed#=0
   waypoint=1
return

`WINNER!!! display how long it took
youwin:
   elapsedtime#=(Timer()-starttime#)/1000
   min#=elapsedtime#/60
   do
      ink rgb(255,0,0),rgb(0,0,0)
      cls
      if min#>1
         center text screenhcenter,screenvcenter,"YOU FINISHED IN "+str$(Int(min#))+" min and "+str$(Int(elapsedtime#-(Int(min#)*60)))+" sec!!!"
      else
         center text screenhcenter,screenvcenter,"YOU FINISHED IN "+str$(Int(elapsedtime#))+" sec!!!"
      endif
      sync
   loop
end

remstart
---CONE FIELD DATA---
100x200 field area
10x10 blocks
10x20 coded area:
0 = Blank
1-6 = Cone Collision Boxes
7 = Finish
8 = Start
9 = Cone

Try your hand at making your own field, if you are tired of mine!
remend

Data 0,0,0,0,9,7,9,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,9,6,6
Data 0,0,0,0,0,0,0,0,0,0
Data 5,5,9,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,9,4,4,4
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 3,3,9,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,9,2,2
Data 0,0,0,0,0,0,0,0,0,0
Data 1,1,1,1,1,1,9,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,9,8,9,0

`for rounding the speed
Function Round(toround#,digits)
   rounded#=Int(toround#*(10^digits))
   rounded#=rounded#/(10^digits)
Endfunction rounded#

+ Code Snippet

remstart
   -------------------------------------------------------------------
   Cone Racer
   -------------------------------------------------------------------
   By NinJA999
   05/31/07
   -------------------------------------------------------------------
   Try to beat 17 seconds--my personal best!
   It might take a few tries to get used to the controls, though.
   If you beat it, try making your own map in the data statements!
   -------------------------------------------------------------------
remend

`---Setup---
set display mode 1024,768,32
sync on
sync rate 60
hide mouse

`Color choices!
dim cubecolors(8)
cubecolors(0)=RGB(255,0,0)
cubecolors(1)=RGB(255,128,0)
cubecolors(2)=RGB(255,255,0)
cubecolors(3)=RGB(0,255,0)
cubecolors(4)=RGB(0,0,255)
cubecolors(5)=RGB(128,0,128)
cubecolors(6)=RGB(255,0,255)
cubecolors(7)=RGB(255,255,255)
curcolor=0
cubecolor = cubecolors(curcolor)

`For centering text
screenhcenter=screen width()/2
screenvcenter=screen height()/2
set text font "Georgia"
set text size 20
ink rgb(255,0,0),0

`Intro screen
do
   cls
   ink rgb(255,0,0),0
   center text screenhcenter,screenvcenter-40,"--Cone Racer--"
   center text screenhcenter,screenvcenter-15,"Press Left and Right to change the color of the controllable cube."
   center text screenhcenter,screenvcenter+5,"Press Space to Start."
   ink cubecolor,0
   center text screenhcenter,screenvcenter+30,"<- CHANGE COLOR ->"
   ink rgb(255,0,0),0
   center text screenhcenter,screenvcenter+50,"During the game, use the arrow keys to swerve the cube around"
   center text screenhcenter,screenvcenter+65,"the cones.  Follow the red patches of grass."
   if spacekey() then goto startgame
   if rightkey() then inc curcolor
   if leftkey() then dec curcolor
   if curcolor>7 then curcolor=0
   if curcolor<0 then curcolor=7
   cubecolor = cubecolors(curcolor)
   `to allow for arrow presses
   wait 100
   sync
loop

`actual game setup
startgame:
set text size 40
ink rgb(255,255,255),0
draw to back
cls
center text screenhcenter,screenvcenter,"LOADING!"
sync
sync
autocam off
set global collision on
gosub fieldsetup
make object cube 1,5
X#=initialX#
Z#=initialZ#
Y#=2.5
position object 1,X#,Y#,Z#
set object collision on 1
color object 1,cubecolor
angle# = 180
draw to front
ink rgb(255,255,255),0
set text size 40
set text font "Georgia"
starttime#=Timer()
waypoint=1
color backdrop rgb(128,128,255)

`---MAIN LOOP---
do

   `controls
   if upkey() and spacekey() = 0 then speed#=speed#+0.05
   if downkey() and spacekey() = 0 then speed#=speed#-0.05
   if upkey() = 0 and downkey() = 0 and spacekey() = 0 then speed#=speed#/1.02

   if rightkey() and spacekey() = 0 then turnp#=turnp#+0.2
   if leftkey() and spacekey() = 0 then turnp#=turnp#-0.2
   if rightkey() = 0 and leftkey() = 0 and spacekey() = 0 then turnp#=turnp#/1.2

   if spacekey() then speed#=speed#/1.1
   if spacekey() and rightkey() then turnp#=turnp#+0.6
   if spacekey() and leftkey() then turnp#=turnp#-0.6

   `allow speed to reach 0 at a point
   if speed# > -0.04 and speed# < 0.04 then speed# = 0

   `limit preliminary turn
   if turnp# > 10 then turnp# = 10
   if turnp# < -10 then turnp# = -10

   `more car-like turning (turn faster if you're moving slower)
   if speed# > 0 or speed# < 0 then turn#=turnp#/speed#
   `except when you're moving really slow!
   if speed# < 0.2 and speed# > -0.2 then turn# = turnp#*speed#

   `limit turn and speed
   if turn# > 8 then turn# = 8
   if turn# < -8 then turn# = -8
   if speed# > 3.5 then speed# = 3.5
   if speed# < -3.5 then speed# = -3.5

   angle#=angle#+turn#

   rotate object 1,0,wrapvalue(angle#),0
   X#=newXvalue(X#,angle#,speed#)
   Z#=newZvalue(Z#,angle#,speed#)

   `if you go over the edge, you fall!
   if X#>100 or X#<0 then Y#=Y#-10
   if Z#>200 or Z#<0 then Y#=Y#-10
   if Y#<2.5
      if X#<101 then X#=101
      if X#>-1 then X#=-1
      if Z#<201 then X#=201
      if Z#>-1 then Z#=-1
   endif

   if Y#<-300 then gosub restart

   Position object 1,X#,Y#,Z#

   `camera stuff
   cam_angle#=cam_angle#+(angle#-cam_angle#)/5

   camX#=newXvalue(X#,cam_angle#+180,speed#+20)
   camZ#=newZvalue(Z#,cam_angle#+180,speed#+20)

   position camera camX#,speed#+10,camZ#

   point camera X#,Y#,Z#

   fov#=speed#/5
   set camera fov fov#+1

   elapsedtime#=(Timer()-starttime#)/1000
   min#=elapsedtime#/60

   `HUD
   text 10,10,"Speed: "+str$(Round(speed#,1))
   text 10,50,str$(waypoint-1)+" Cones out of 6"
   if min#>1
      text 10,90,"Elapsed: "+str$(Int(min#))+" min, "+str$(Int(elapsedtime#-(Int(min#)*60)))+" sec"
   else
      text 10,90,"Elapsed: "+str$(Int(elapsedtime#))+" sec"
   endif

   `Cone collision checking
   for i=10 to (coneobj-1)
      if object collision(i,1) then gosub restart
   next i

   `Waypoint collision checking
   for i=20 to (boxobj-1)
      if object collision(i,1) then waypoint=waypoint+1
      if waypoint>7 then goto youwin
   next i

   `take care of deleting the boxes (in case the waypoint changes)
   for i=20 to boxobj-1
      delete object i
   next i
   boxobj=20

   gosub waypoint:

sync
loop

`make the field
fieldsetup:
`allow for grass & red grass:
create bitmap 1,256,128
set current bitmap 1
`grass
for i=0 to 128
   for j=0 to 128
      ink rgb(10,100+rnd(30),25),0
      dot i,j
   next j
next i
`red grass
for i=128 to 256
   for j=0 to 128
      ink rgb(100+rnd(100),0,0),0
      dot i,j
   next j
next i
get image 1,0,0,256,128
cls
set current bitmap 0
delete bitmap 1
make matrix 1,100,200,10,20
prepare matrix texture 1,1,2,1
fill matrix 1,0.0,1
`Cone counter (cone objects start with 10)
coneobj=10
`Box counter (box objects start with 20)
boxobj=20
`read map stored in data statements & place cones and cube
for i=1 to 20
   for j=1 to 10
      Read r
      select r
         case 8
            initialX#=(11-j)*10-5
            initialZ#=i*10-5
         endcase
         case 9
            make object cone coneobj, 5
            position object coneobj, (11-j)*10-5, 3, i*10-5
            color object coneobj, rgb(255,128,0)
            set object collision on coneobj
            set object collision to polygons coneobj
            coneobj=coneobj+1
         endcase
      endselect
   next j
next i
restore
update matrix 1
return

`called each loop, and makes the waypoint collision boxes and red grass
waypoint:
for i=1 to 20
   for j=1 to 10
      Read r
      select r
         case waypoint
            `red grass
            set matrix tile 1,(11-j)-1,i-1,2
            `collision box
            make object box boxobj,10,5,10
            position object boxobj, (11-j)*10-5,2.5,i*10-5
            set object collision on boxobj
            hide object boxobj
            boxobj=boxobj+1
         endcase
         case default
            `everything else should be normal grass
            set matrix tile 1,(11-j)-1,i-1,1
         endcase
      endselect
   next j
next i
restore
`after about an hour, finally realized why the matrix wasn't showing my tiles!
update matrix 1
return

`after going off the side, or hitting a cone, everything except the time must be reset.
restart:
   X#=initialX#
   Z#=initialZ#
   Y#=2.5
   angle#=180
   speed#=0
   waypoint=1
return

`WINNER!!! display how long it took
youwin:
   elapsedtime#=(Timer()-starttime#)/1000
   min#=elapsedtime#/60
   do
      ink rgb(255,0,0),rgb(0,0,0)
      cls
      if min#>1
         center text screenhcenter,screenvcenter,"YOU FINISHED IN "+str$(Int(min#))+" min and "+str$(Int(elapsedtime#-(Int(min#)*60)))+" sec!!!"
      else
         center text screenhcenter,screenvcenter,"YOU FINISHED IN "+str$(Int(elapsedtime#))+" sec!!!"
      endif
      sync
   loop
end

remstart
---CONE FIELD DATA---
100x200 field area
10x10 blocks
10x20 coded area:
0 = Blank
1-6 = Cone Collision Boxes
7 = Finish
8 = Start
9 = Cone

Try your hand at making your own field, if you are tired of mine!
remend

Data 0,0,0,0,9,7,9,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,9,6,6
Data 0,0,0,0,0,0,0,0,0,0
Data 5,5,9,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,9,4,4,4
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 3,3,9,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,9,2,2
Data 0,0,0,0,0,0,0,0,0,0
Data 1,1,1,1,1,1,9,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,9,8,9,0

`for rounding the speed
Function Round(toround#,digits)
   rounded#=Int(toround#*(10^digits))
   rounded#=rounded#/(10^digits)
Endfunction rounded#

42
http://www.nictitatingrabbit.com
http://penchantpages.nictitatingrabbit.com

Back to top

Profile PM Email Website

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 3rd Jun 2007 10:10

Link

Here's an update to Insert Name Here's entry. Changed the structure a bit, added speed up, and added current time display.

rem update to Insert Name Here's race against the clock entry.
rem it gets gradually faster as the program runs making it more difficult
rem to achieve a good time (the lower the better)
rem by latch
rem restructured program with subroutines, added speed up, added time display

hide mouse
sync on
sync rate 60

create bitmap 1,200,21
cls 0
set current bitmap 0

top:
make object cone 1,0.5
color backdrop rgb(0,0,0)
color object 1,rgb(50,50,250)
position object 1,x,-0.5,z
set object collision to boxes 1
do
center text 320,200,"Welcome to INH's racing game."
center text 320,220,"Dodge the boxes. How fast can you win?"
center text 320,240,"Press space to begin. Good luck!"
if spacekey()=1 then goto letsgo
sync
loop

letsgo:
   a=timer()
   oy#=.8
   pause = 200
   do
      color object 1,rgb(50,50,250)
      gosub _move_object
      gosub _move_player
      gosub _bang
      gosub _timer
      pause=pause-2
      if pause <= 1 then pause = 1
      wait pause
      inc gametime
      if gametime >= 300 then goto _gamend
      sync
   loop
   _move_player:
      if leftkey()=1 then x#=x#-.8
      if rightkey()=1 then x#=x#+.8
      if x# >= .8 then x# = .8
      if x# <= -.8 then x# = -.8
      position object 1,x#,-.5,0
   return
   _move_object:
      if object exist(2) < 1
         p=rnd(2)-1
         make object cube 2,.5
         position object 2,.8*p,oy#,0
         set object collision to boxes 2
      else
         oy#=oy#-0.2
         position object 2,.8*p,oy#,0
      endif
      if oy# < -0.4
         oy#=0.8
         delete object 2
      endif
   return
   _bang:
      bump=object collision(1,0)
      if bump > 0
         color object 1,rgb(250,0,0)
         wait 1*2000
         delete object 2
      endif
   return
   _timer:
      set current bitmap 1
      calc=timer()-a
      text 0,0,"Time Used Up  :"+str$(calc)
      get image 1,0,0,200,20
      cls
      set current bitmap 0
      sprite 1,0,0,1
      set sprite 1,0,0
   return
   _gamend:
      delete object 1
      if object exist(2)=1 then delete object 2
      repeat
         center text screen width()/2,screen height()/2,"Times Up!!  It took you "+str$(calc)+" milliseconds."
         sync
      until spacekey()=1
      end

+ Code Snippet

rem update to Insert Name Here's race against the clock entry.
rem it gets gradually faster as the program runs making it more difficult
rem to achieve a good time (the lower the better)
rem by latch
rem restructured program with subroutines, added speed up, added time display


hide mouse
sync on
sync rate 60

create bitmap 1,200,21
cls 0
set current bitmap 0

top:
make object cone 1,0.5
color backdrop rgb(0,0,0)
color object 1,rgb(50,50,250)
position object 1,x,-0.5,z
set object collision to boxes 1
do
center text 320,200,"Welcome to INH's racing game."
center text 320,220,"Dodge the boxes. How fast can you win?"
center text 320,240,"Press space to begin. Good luck!"
if spacekey()=1 then goto letsgo
sync
loop

letsgo:
   a=timer()
   oy#=.8
   pause = 200
   do
      color object 1,rgb(50,50,250)
      gosub _move_object
      gosub _move_player
      gosub _bang
      gosub _timer
      pause=pause-2
      if pause <= 1 then pause = 1
      wait pause
      inc gametime
      if gametime >= 300 then goto _gamend
      sync
   loop
   _move_player:
      if leftkey()=1 then x#=x#-.8
      if rightkey()=1 then x#=x#+.8
      if x# >= .8 then x# = .8
      if x# <= -.8 then x# = -.8
      position object 1,x#,-.5,0
   return
   _move_object:
      if object exist(2) < 1
         p=rnd(2)-1
         make object cube 2,.5
         position object 2,.8*p,oy#,0
         set object collision to boxes 2
      else
         oy#=oy#-0.2
         position object 2,.8*p,oy#,0
      endif
      if oy# < -0.4
         oy#=0.8
         delete object 2
      endif
   return
   _bang:
      bump=object collision(1,0)
      if bump > 0
         color object 1,rgb(250,0,0)
         wait 1*2000
         delete object 2
      endif
   return
   _timer:
      set current bitmap 1
      calc=timer()-a
      text 0,0,"Time Used Up  :"+str$(calc)
      get image 1,0,0,200,20
      cls
      set current bitmap 0
      sprite 1,0,0,1
      set sprite 1,0,0
   return
   _gamend:
      delete object 1
      if object exist(2)=1 then delete object 2
      repeat
         center text screen width()/2,screen height()/2,"Times Up!!  It took you "+str$(calc)+" milliseconds."
         sync
      until spacekey()=1
      end

Enjoy your day.

Back to top

Profile PM

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 3rd Jun 2007 16:04

Link

Sinani201 -I'm sorry

.

everyone's projects are looking good.

Back to top

Profile PM Email

Link102

19

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 3rd Jun 2007 16:39 Edited at: 4th Jun 2007 01:01

Link

I've tweaked the ai in my racer.
I've fixed the checkpoints variable (you can now easily edit it on the top of the code).
And I've added the map

Didn't like the cone on the top of the car one bit, so I left that out, maybe I'll add it later.

`The number of checkpoints in the race
checkpoints=20

gosub setupgame
`___________________________________________________________________________________

do
   if endgame=0
      if endgame=0 then Elapsed#=(Timer()-T#)/1000
      if waypoint#>ai_waypoint# then pos$="1st"
      if waypoint#=ai_waypoint# and root#<ai_root# then pos$="1st"
      if waypoint#=ai_waypoint# and root#>ai_root# then pos$="2nd"
      if waypoint#<ai_waypoint# then pos$="2nd"

Text 10,10,pos$
      Text 10,60,Str$(waypoint#)+"/"+Str$(checkpoints)
   endif

if endgame=0
      if upkey()=1 and speed#=>0 then speed#=speed#+0.02
      if upkey()=1 and speed#<0 then speed#=speed#+0.05
      if downkey()=1 and speed#>-1 then speed#=speed#-0.05
      if downkey()=0 and upkey()=0 then speed#=speed#/1.02
   endif
   if endgame=1 and speed#>0 then speed#=speed#-0.05

if rightkey()=1 and steer#<2.5 then steer#=steer#+0.1
   if leftkey()=1 and steer#>-2.5 then steer#=steer#-0.1
   if rightkey()=0 and leftkey()=0 then steer#=steer#/1.2
   if speed#>0 then angleY#=angleY#+steer#
   if speed#<0 then angleY#=angleY#-steer#

if endgame=0
      gosub collision
      gosub ai_collision
   endif
`___________________________________________________________________________________

rotate object 1,0,wrapvalue(angleY#),wrapvalue(0-angleZ#)
   X#=newXvalue(X#,angleY#,speed#)
   Z#=newZvalue(Z#,angleY#,speed#)
   if X#>250 then X#=250:speed#=speed#/1.02
   if X#<-50 then X#=-50:speed#=speed#/1.02
   if Z#>250 then Z#=250:speed#=speed#/1.02
   if Z#<-50 then Z#=-50:speed#=speed#/1.02
   Position object 1,X#,0,Z#

cam_angleY#=cam_angleY#+(angleY#-cam_angleY#)/10
   angleZ#=angleZ#+(AngleY#-angleZ#)/10
   camX#=newXvalue(object position x(1),cam_angleY#+180,speed#+20)
   camZ#=newZvalue(object position z(1),cam_angleY#+180,speed#+20)
   position camera camX#,speed#+10,camZ#
   point camera object position x(1),1,object position z(1)

fov#=speed#/5
   set camera fov fov#+1

root#=sqrt((((object position X(waypoint#)-X#)/2)^2)+(((object position Z(waypoint#)-Z#)/2)^2))
`___________________________________________________________________________________

ai_ang#=wrapvalue(atanfull(ai_X#-object position X(ai_waypoint#),ai_Z#-object position Z(ai_waypoint#))-ai_angleY#)

if wrapvalue(ai_ang#-ai_steer#)<180 then ai_behaviour=2
   if wrapvalue(ai_ang#-ai_steer#)>180 then ai_behaviour=1
   if wrapvalue(ai_ang#-ai_steer#)=180 then ai_behaviour=0

ai_root#=sqrt((((object position X(ai_waypoint#)-ai_X#)/2)^2)+(((object position Z(ai_waypoint#)-ai_Z#)/2)^2))

if ai_speed#*2<ai_root#/10 then ai_speed#=ai_speed#+0.02 else ai_speed#=ai_speed#/1.02
   if ai_behaviour=1 and ai_steer#<2.5 then ai_steer#=ai_steer#+0.5
   if ai_behaviour=2 and ai_steer#>-2.5 then ai_steer#=ai_steer#-0.5
   if ai_behaviour<>1 and ai_behaviour<>2 then ai_steer#=ai_steer#/1.2
   if ai_speed#>0 then ai_angleY#=ai_angleY#+ai_steer#
   if ai_speed#<0 then ai_angleY#=ai_angleY#-ai_steer#

rotate object 2,0,wrapvalue(ai_angleY#),wrapvalue(0-ai_angleZ#)
   ai_X#=newXvalue(ai_X#,ai_angleY#,ai_speed#)
   ai_Z#=newZvalue(ai_Z#,ai_angleY#,ai_speed#)
   if ai_X#>250 then ai_X#=250:ai_speed#=ai_speed#/1.02
   if ai_X#<-50 then ai_X#=-50:ai_speed#=ai_speed#/1.02
   if ai_Z#>250 then ai_Z#=250:ai_speed#=ai_speed#/1.02
   if ai_Z#<-50 then ai_Z#=-50:ai_speed#=ai_speed#/1.02
   Position object 2,ai_X#,0,ai_Z#
   ai_angleZ#=ai_angleZ#+(ai_AngleY#-ai_angleZ#)/10

if endgame=1 and speed#<0 then gosub finnish
   if endgame=0 then gosub update_map
loop
`___________________________________________________________________________________

setupgame:
   checkpoints=checkpoints+2
   waypoint#=3
   ai_waypoint#=3
   set display mode 1280,1024,32
   sync on:sync rate 30
   hide mouse
   randomize timer()

make matrix 1,200,200,10,10
   position matrix 1,0,-2,0

make object cube 1,4
   make object cube 2,4

color object 1,RGB(55,55,55)
   color object 2,RGB(20,20,20)

create bitmap 1,200,200
   set current bitmap 1
   get image 1,0,0,200,200
   set current bitmap 0
   ink rgb(255,255,255),0

make object plain 32,200,200
   lock object on 32
   position object 32,-490,-320,800
   ghost object on 32
   texture object 32,1

for t=3 to checkpoints
   make object cube t,4
   position object t,rnd(200),0,rnd(200)
   next t
   color object 3,RGB(225,0,0)

T#=Timer()
   set text font "Berlin Sans FB"
   set text size 50
return

collision:
   if object collision(1,waypoint#)=1
      hide object waypoint#
      if waypoint#=checkpoints
         message$="FINISH!!"
         endgame=1
         return
         `gosub finnish
      endif
      color object waypoint#+1,RGB(225,0,0)
      waypoint#=waypoint#+1
   endif
return

ai_collision:
   if object collision(2,ai_waypoint#)=1
      ghost object on ai_waypoint#
      if ai_waypoint#=checkpoints
         message$="YOU LOZE!!"
         endgame=1
         return
         `gosub finnish
      endif
      ai_waypoint#=ai_waypoint#+1
   endif
return

update_map:
   set current bitmap 1
   ink rgb(0,100,0),rgb(0,100,0)
   cls

`the player cube (yellow, 2x as big)
   ink rgb(255,255,0),0
   box X#-2,Z#-2,X#+2,Z#+2

`the ai cube (black)
   ink 0,0
   box ai_X#-1,ai_Z#-1,ai_X#+1,ai_Z#+1
   ink rgb(255,255,255),0

`the waypoint cubes (white)
   for t=waypoint# to checkpoints
      box object position X(t)-1,object position Z(t)-1,object position X(t)+1,object position Z(t)+1
   next t

`the destination waypoint cube (red, 2x as big)
   ink rgb(255,0,0),0
   box object position X(waypoint#)-2,object position Z(waypoint#)-2,object position X(waypoint#)+2,object position Z(waypoint#)+2
   flip bitmap 1

get image 1,0,0,200,200
   set current bitmap 0
   ink rgb(255,255,255),0
   texture object 32,1

zrotate object 32,object angle y(1)
return

finnish:
   if Elapsed#>60 then Elapsed#=Elapsed#-60:min=min+1:goto finnish
   repeat
      cls rgb(225,30,30)

a=rnd(5)
      if a=0 then ink rgb(225,30,30),0 else ink rgb(0,0,0),0
      set text font "impact"
      set text size 100
      center text screen width()/2,screen height()/2-100,message$

ink rgb(0,0,0),0
      set text font "Courier"
      set text size 15
      if min>0
         center text screen width()/2,screen height()/2-10,"In just "+Str$(min)+" minute(s) and "+Str$(int(Elapsed#))+" seconds"
      else
         center text screen width()/2,screen height()/2-10,"In just "+Str$(int(Elapsed#))+" seconds"
      endif

sync
   until world_domination=1

remstart
   this is the part where I explain what all the varaibles are

ai_behaviour      = used for the ai steering behaviour; 0=no steeing 1=right 2=left
   checkpoints       = the total number of checkpoints
   endgame           = if 1 then the game has ended
   min               = number of minutes the player used to get all the checkpoints; used only in the finnish subroutine
   t                 = used for displaying white dots on the map; used only in the update_map subroutine
   world_domination  = used at the end of the game; to make the end message flikker on and off

ai_ang#           = if 0 then the ai player is facing directly to the current ai checkpoint
   ai_angleY#        = the angle of the ai player; viewed from above
   ai_angleZ#        = the angle of the ai player; viewed from the back
   ai_root#          = the distance between the ai and the current active checkpoint for the ai
   ai_speed#         = the speed of the ai
   ai_steer#         = the steering angle for the ai
   ai_waypoint#      = the active checkpoint for the ai
   ai_X#             = the X position of the ai player
   ai_Z#             = the Z position of the ai player
   angleY#           = the angle of the player; viewed from above
   angleZ#           = the angle of the player; viewed from the back (where the camera sits)
   cam_angleY#       = the angle of the camera; viewed from above
   camX#             = the X position of the camera
   camZ#             = the Z position of the camera
   Elapsed#          = the time that has elapsed in the game
   fov#              = the field of vieuw for the camera
   root#             = the distance between the player and the current active checkpoint for the player
   speed#            = the speed of the player
   steer#            = the steering angle (the angle of the front wheels)
   T#                = the time at the beginning of the game
   waypoint#         = the current active (red) checkpoint for the player
   X#                = the X position of the player
   Z#                = the Z position of the player

message$          = the end message
   pos$              = your position in the game

+ Code Snippet

`The number of checkpoints in the race
checkpoints=20

gosub setupgame
`___________________________________________________________________________________

do
   if endgame=0
      if endgame=0 then Elapsed#=(Timer()-T#)/1000
      if waypoint#>ai_waypoint# then pos$="1st"
      if waypoint#=ai_waypoint# and root#<ai_root# then pos$="1st"
      if waypoint#=ai_waypoint# and root#>ai_root# then pos$="2nd"
      if waypoint#<ai_waypoint# then pos$="2nd"

      Text 10,10,pos$
      Text 10,60,Str$(waypoint#)+"/"+Str$(checkpoints)
   endif

   if endgame=0
      if upkey()=1 and speed#=>0 then speed#=speed#+0.02
      if upkey()=1 and speed#<0 then speed#=speed#+0.05
      if downkey()=1 and speed#>-1 then speed#=speed#-0.05
      if downkey()=0 and upkey()=0 then speed#=speed#/1.02
   endif
   if endgame=1 and speed#>0 then speed#=speed#-0.05

   if rightkey()=1 and steer#<2.5 then steer#=steer#+0.1
   if leftkey()=1 and steer#>-2.5 then steer#=steer#-0.1
   if rightkey()=0 and leftkey()=0 then steer#=steer#/1.2
   if speed#>0 then angleY#=angleY#+steer#
   if speed#<0 then angleY#=angleY#-steer#

   if endgame=0
      gosub collision
      gosub ai_collision
   endif
`___________________________________________________________________________________

   rotate object 1,0,wrapvalue(angleY#),wrapvalue(0-angleZ#)
   X#=newXvalue(X#,angleY#,speed#)
   Z#=newZvalue(Z#,angleY#,speed#)
   if X#>250 then X#=250:speed#=speed#/1.02
   if X#<-50 then X#=-50:speed#=speed#/1.02
   if Z#>250 then Z#=250:speed#=speed#/1.02
   if Z#<-50 then Z#=-50:speed#=speed#/1.02
   Position object 1,X#,0,Z#

   cam_angleY#=cam_angleY#+(angleY#-cam_angleY#)/10
   angleZ#=angleZ#+(AngleY#-angleZ#)/10
   camX#=newXvalue(object position x(1),cam_angleY#+180,speed#+20)
   camZ#=newZvalue(object position z(1),cam_angleY#+180,speed#+20)
   position camera camX#,speed#+10,camZ#
   point camera object position x(1),1,object position z(1)

   fov#=speed#/5
   set camera fov fov#+1

   root#=sqrt((((object position X(waypoint#)-X#)/2)^2)+(((object position Z(waypoint#)-Z#)/2)^2))
`___________________________________________________________________________________

   ai_ang#=wrapvalue(atanfull(ai_X#-object position X(ai_waypoint#),ai_Z#-object position Z(ai_waypoint#))-ai_angleY#)

   if wrapvalue(ai_ang#-ai_steer#)<180 then ai_behaviour=2
   if wrapvalue(ai_ang#-ai_steer#)>180 then ai_behaviour=1
   if wrapvalue(ai_ang#-ai_steer#)=180 then ai_behaviour=0

   ai_root#=sqrt((((object position X(ai_waypoint#)-ai_X#)/2)^2)+(((object position Z(ai_waypoint#)-ai_Z#)/2)^2))

   if ai_speed#*2<ai_root#/10 then ai_speed#=ai_speed#+0.02 else ai_speed#=ai_speed#/1.02
   if ai_behaviour=1 and ai_steer#<2.5 then ai_steer#=ai_steer#+0.5
   if ai_behaviour=2 and ai_steer#>-2.5 then ai_steer#=ai_steer#-0.5
   if ai_behaviour<>1 and ai_behaviour<>2 then ai_steer#=ai_steer#/1.2
   if ai_speed#>0 then ai_angleY#=ai_angleY#+ai_steer#
   if ai_speed#<0 then ai_angleY#=ai_angleY#-ai_steer#

   rotate object 2,0,wrapvalue(ai_angleY#),wrapvalue(0-ai_angleZ#)
   ai_X#=newXvalue(ai_X#,ai_angleY#,ai_speed#)
   ai_Z#=newZvalue(ai_Z#,ai_angleY#,ai_speed#)
   if ai_X#>250 then ai_X#=250:ai_speed#=ai_speed#/1.02
   if ai_X#<-50 then ai_X#=-50:ai_speed#=ai_speed#/1.02
   if ai_Z#>250 then ai_Z#=250:ai_speed#=ai_speed#/1.02
   if ai_Z#<-50 then ai_Z#=-50:ai_speed#=ai_speed#/1.02
   Position object 2,ai_X#,0,ai_Z#
   ai_angleZ#=ai_angleZ#+(ai_AngleY#-ai_angleZ#)/10

   if endgame=1 and speed#<0 then gosub finnish
   if endgame=0 then gosub update_map
loop
`___________________________________________________________________________________

setupgame:
   checkpoints=checkpoints+2
   waypoint#=3
   ai_waypoint#=3
   set display mode 1280,1024,32
   sync on:sync rate 30
   hide mouse
   randomize timer()

   make matrix 1,200,200,10,10
   position matrix 1,0,-2,0

   make object cube 1,4
   make object cube 2,4

   color object 1,RGB(55,55,55)
   color object 2,RGB(20,20,20)

   create bitmap 1,200,200
   set current bitmap 1
   get image 1,0,0,200,200
   set current bitmap 0
   ink rgb(255,255,255),0

   make object plain 32,200,200
   lock object on 32
   position object 32,-490,-320,800
   ghost object on 32
   texture object 32,1

   for t=3 to checkpoints
   make object cube t,4
   position object t,rnd(200),0,rnd(200)
   next t
   color object 3,RGB(225,0,0)

   T#=Timer()
   set text font "Berlin Sans FB"
   set text size 50
return

collision:
   if object collision(1,waypoint#)=1
      hide object waypoint#
      if waypoint#=checkpoints
         message$="FINISH!!"
         endgame=1
         return
         `gosub finnish
      endif
      color object waypoint#+1,RGB(225,0,0)
      waypoint#=waypoint#+1
   endif
return

ai_collision:
   if object collision(2,ai_waypoint#)=1
      ghost object on ai_waypoint#
      if ai_waypoint#=checkpoints
         message$="YOU LOZE!!"
         endgame=1
         return
         `gosub finnish
      endif
      ai_waypoint#=ai_waypoint#+1
   endif
return

update_map:
   set current bitmap 1
   ink rgb(0,100,0),rgb(0,100,0)
   cls

   `the player cube (yellow, 2x as big)
   ink rgb(255,255,0),0
   box X#-2,Z#-2,X#+2,Z#+2

   `the ai cube (black)
   ink 0,0
   box ai_X#-1,ai_Z#-1,ai_X#+1,ai_Z#+1
   ink rgb(255,255,255),0

   `the waypoint cubes (white)
   for t=waypoint# to checkpoints
      box object position X(t)-1,object position Z(t)-1,object position X(t)+1,object position Z(t)+1
   next t

   `the destination waypoint cube (red, 2x as big)
   ink rgb(255,0,0),0
   box object position X(waypoint#)-2,object position Z(waypoint#)-2,object position X(waypoint#)+2,object position Z(waypoint#)+2
   flip bitmap 1

   get image 1,0,0,200,200
   set current bitmap 0
   ink rgb(255,255,255),0
   texture object 32,1

   zrotate object 32,object angle y(1)
return

finnish:
   if Elapsed#>60 then Elapsed#=Elapsed#-60:min=min+1:goto finnish
   repeat
      cls rgb(225,30,30)

      a=rnd(5)
      if a=0 then ink rgb(225,30,30),0 else ink rgb(0,0,0),0
      set text font "impact"
      set text size 100
      center text screen width()/2,screen height()/2-100,message$

      ink rgb(0,0,0),0
      set text font "Courier"
      set text size 15
      if min>0
         center text screen width()/2,screen height()/2-10,"In just "+Str$(min)+" minute(s) and "+Str$(int(Elapsed#))+" seconds"
      else
         center text screen width()/2,screen height()/2-10,"In just "+Str$(int(Elapsed#))+" seconds"
      endif

      sync
   until world_domination=1


remstart
   this is the part where I explain what all the varaibles are

   ai_behaviour      = used for the ai steering behaviour; 0=no steeing 1=right 2=left
   checkpoints       = the total number of checkpoints
   endgame           = if 1 then the game has ended
   min               = number of minutes the player used to get all the checkpoints; used only in the finnish subroutine
   t                 = used for displaying white dots on the map; used only in the update_map subroutine
   world_domination  = used at the end of the game; to make the end message flikker on and off

   ai_ang#           = if 0 then the ai player is facing directly to the current ai checkpoint
   ai_angleY#        = the angle of the ai player; viewed from above
   ai_angleZ#        = the angle of the ai player; viewed from the back
   ai_root#          = the distance between the ai and the current active checkpoint for the ai
   ai_speed#         = the speed of the ai
   ai_steer#         = the steering angle for the ai
   ai_waypoint#      = the active checkpoint for the ai
   ai_X#             = the X position of the ai player
   ai_Z#             = the Z position of the ai player
   angleY#           = the angle of the player; viewed from above
   angleZ#           = the angle of the player; viewed from the back (where the camera sits)
   cam_angleY#       = the angle of the camera; viewed from above
   camX#             = the X position of the camera
   camZ#             = the Z position of the camera
   Elapsed#          = the time that has elapsed in the game
   fov#              = the field of vieuw for the camera
   root#             = the distance between the player and the current active checkpoint for the player
   speed#            = the speed of the player
   steer#            = the steering angle (the angle of the front wheels)
   T#                = the time at the beginning of the game
   waypoint#         = the current active (red) checkpoint for the player
   X#                = the X position of the player
   Z#                = the Z position of the player

   message$          = the end message
   pos$              = your position in the game

Don't look at my sig!

Back to top

Profile PM

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 3rd Jun 2007 23:22 Edited at: 3rd Jun 2007 23:33

Link

@ Link102
I was falling off the platform a lot!

Your first entry stopped the cube from going off the platform.
@ NinJA999
Please read the rules. No external media is allowed. If you want external media, make it yourself with CODE ONLY
@ Zombie 20
It's fine, I just wanna make sure everyone gets my username right.

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 4th Jun 2007 00:16

Link

Quote: "Please read the rules. No external media is allowed. If you want external media, make it yourself with CODE ONLY"

Where in his program does he load any external media?

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Link102

19

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 4th Jun 2007 00:21

Link

Quote: "@ Link102
I was falling off the platform a lot! Your first entry stopped the cube from going off the platform."

there isn't gravity in my code, I think your mastaken with NinJA999 cone dodger

Don't look at my sig!

Back to top

Profile PM

NinJA999

18

Years of Service

User Offline

Joined: 11th Nov 2005

Location: NH

Posted: 4th Jun 2007 00:44

Link

@Sinani201 - Please don't YELL AT ME if you have NO IDEA WHAT YOU ARE TALKING ABOUT!!!!!! I generated all textures myself! The map is in the code! What are you talking about? And the falling off the platform is intentional--learn how to use the brake!

Oh, and a friend got 16 seconds. Beat that.

42
http://www.nictitatingrabbit.com
http://penchantpages.nictitatingrabbit.com

Back to top

Profile PM Email Website

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 4th Jun 2007 03:16 Edited at: 4th Jun 2007 03:20

Link

OK then, I wasn't falling off the matrix but the cube can come off of it.
-----------------------------------------------
NinJA, I'm sorry. I didn't read the part at the bottom of your post that said based on. I made a mistake.
And I said about falling off the platform for Link's entry, not your's

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

Link102

19

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 4th Jun 2007 16:03 Edited at: 5th Jun 2007 13:52

Link

well, there are borders on the map acctually, only they're not that noticable since they're 50 units out. I did that so the ai wouln't bounce up on them.

here's the code with the borders back to the matrix

`The number of checkpoints in the race
checkpoints=26

gosub setupgame
`___________________________________________________________________________________

do
   if endgame=0
      if endgame=0 then Elapsed#=(Timer()-T#)/1000
      if waypoint#>ai_waypoint# then pos$="1st"
      if waypoint#=ai_waypoint# and root#<ai_root# then pos$="1st"
      if waypoint#=ai_waypoint# and root#>ai_root# then pos$="2nd"
      if waypoint#<ai_waypoint# then pos$="2nd"

Text 10,10,pos$
      Text 10,60,Str$(waypoint#-2)+"/"+Str$(checkpoints-2)
   endif

if endgame=0
      if upkey()=1 and speed#=>0 then speed#=speed#+0.02
      if upkey()=1 and speed#<0 then speed#=speed#+0.05
      if downkey()=1 and speed#>-1 then speed#=speed#-0.05
      if downkey()=0 and upkey()=0 then speed#=speed#/1.02
   endif
   if endgame=1 and speed#>0 then speed#=speed#-0.05

if rightkey()=1 and steer#<2.5 then steer#=steer#+0.1
   if leftkey()=1 and steer#>-2.5 then steer#=steer#-0.1
   if rightkey()=0 and leftkey()=0 then steer#=steer#/1.2
   if speed#>0 then angleY#=angleY#+steer#
   if speed#<0 then angleY#=angleY#-steer#

if endgame=0
      gosub collision
      gosub ai_collision
   endif
`___________________________________________________________________________________

rotate object 1,0,wrapvalue(angleY#),wrapvalue(0-angleZ#)
   X#=newXvalue(X#,angleY#,speed#)
   Z#=newZvalue(Z#,angleY#,speed#)
   if X#>200 then X#=200:speed#=speed#/1.02
   if X#<0 then X#=0:speed#=speed#/1.02
   if Z#>200 then Z#=200:speed#=speed#/1.02
   if Z#<0 then Z#=0:speed#=speed#/1.02
   Position object 1,X#,0,Z#

cam_angleY#=cam_angleY#+(angleY#-cam_angleY#)/10
   angleZ#=angleZ#+(AngleY#-angleZ#)/10
   camX#=newXvalue(object position x(1),cam_angleY#+180,speed#+20)
   camZ#=newZvalue(object position z(1),cam_angleY#+180,speed#+20)
   position camera camX#,speed#+10,camZ#
   point camera object position x(1),1,object position z(1)

fov#=speed#/5
   set camera fov fov#+1

root#=sqrt((((object position X(waypoint#)-X#)/2)^2)+(((object position Z(waypoint#)-Z#)/2)^2))
`___________________________________________________________________________________

ai_ang#=wrapvalue(atanfull(ai_X#-object position X(ai_waypoint#),ai_Z#-object position Z(ai_waypoint#))-ai_angleY#)

if wrapvalue(ai_ang#-ai_steer#)<180 then ai_behaviour=2
   if wrapvalue(ai_ang#-ai_steer#)>180 then ai_behaviour=1
   if wrapvalue(ai_ang#-ai_steer#)=180 then ai_behaviour=0

ai_root#=sqrt((((object position X(ai_waypoint#)-ai_X#)/2)^2)+(((object position Z(ai_waypoint#)-ai_Z#)/2)^2))

if ai_speed#*2<ai_root#/10 then ai_speed#=ai_speed#+0.02 else ai_speed#=ai_speed#/1.02
   if ai_behaviour=1 and ai_steer#<2.5 then ai_steer#=ai_steer#+0.5
   if ai_behaviour=2 and ai_steer#>-2.5 then ai_steer#=ai_steer#-0.5
   if ai_behaviour<>1 and ai_behaviour<>2 then ai_steer#=ai_steer#/1.2
   if ai_speed#>0 then ai_angleY#=ai_angleY#+ai_steer#
   if ai_speed#<0 then ai_angleY#=ai_angleY#-ai_steer#

rotate object 2,0,wrapvalue(ai_angleY#),wrapvalue(0-ai_angleZ#)
   ai_X#=newXvalue(ai_X#,ai_angleY#,ai_speed#)
   ai_Z#=newZvalue(ai_Z#,ai_angleY#,ai_speed#)
   if ai_X#>200 then ai_X#=200:ai_speed#=ai_speed#/1.02
   if ai_X#<0 then ai_X#=0:ai_speed#=ai_speed#/1.02
   if ai_Z#>200 then ai_Z#=200:ai_speed#=ai_speed#/1.02
   if ai_Z#<0 then ai_Z#=0:ai_speed#=ai_speed#/1.02
   Position object 2,ai_X#,0,ai_Z#
   ai_angleZ#=ai_angleZ#+(ai_AngleY#-ai_angleZ#)/10