CodeBase - Ceckpoints

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators ` It is reproduced here with full permission ` http://www.thegamecreators.com sync on sync rate 60 hide mouse randomize timer() wp=8 dim wx#(wp) dim wz#(wp) dim dist(wp) make object cube 1,20 rem waypoints for wayp=101 to wp+100 make object sphere wayp,10 wx#(wayp-100)=250*sin((wayp-100)*360.0/wp) wz#(wayp-100)=250*cos((wayp-100)*360.0/wp) position object wayp,wx#(wayp-100)+rnd(40)-20,0,wz#(wayp-100)+rnd(40)-20 next wayp current=1 rem camera position camera 0,450,0 point camera 0,0,0 vitesse#=3 do rem angle posx#=(wx#(current)-object position x(1)) posz#=(wz#(current)-object position z(1)) angle#=wrapvalue(atanfull(posx#,posz#)) rem smooth rotation ay#=curveangle(object angle y(1),angle#,1.05) yrotate object 1,ay# rem move x#=newxvalue(x#,ay#,vitesse#) z#=newzvalue(z#,ay#,vitesse#) position object 1,x#,0,z# for w=101 to wp+100 rem distance waypoint/player dist(w-100)=sqrt((wx#(w-100)-object position x(1))^2+(wz#(w-100)-object position z(1))^2) if dist(current)<10 then inc current if current>wp then current=1 : inc tour rem colors if w-100<current then color object w,rgb(0,255,0) if w-100=current then color object w,rgb(255,255,0) if w-100>current then color object w,rgb(255,0,0) next w set cursor 0,0 print "next checkpoint : ",current print "lap n°",tour+1 if tour=2 center text 320,240,"FINSIH" if vitesse#>0 then dec vitesse#,0.05 else end endif sync loop

Download

Please login to download