Sorry your browser is not supported!

SYNC ON : SYNC RATE 60 : AUTOCAM OFF : HIDE MOUSE

TYPE hurlRock
   obj AS INTEGER
   vel AS FLOAT
   fric AS FLOAT
ENDTYPE

DIM redHurls(4) AS hurlRock
DIM blueHurls(4) as hurlRock

redTex = MakeHurlTexture(RGB(255,0,0))
blueTex = MakeHurlTexture(RGB(0,0,255))
INK RGB(255,255,255),0

FOR i = 1 TO 4
   redHurls(i).obj = MakeHurlRock(redTex)
   blueHurls(i).obj = MakeHurlRock(blueTex)
NEXT i

MOVE OBJECT redHurls(1).obj, 20

DO
   ControlCam()
   SYNC
LOOP

FUNCTION ControlCam()
   IF UPKEY() = 1 THEN XROTATE CAMERA CAMERA ANGLE X()-1
   IF DOWNKEY() = 1 THEN XROTATE CAMERA CAMERA ANGLE X()+1
   IF LEFTKEY() = 1 THEN YROTATE CAMERA CAMERA ANGLE Y()-1
   IF RIGHTKEY() = 1 THEN YROTATE CAMERA CAMERA ANGLE Y()+1   
   POSITION CAMERA OBJECT POSITION X(redHurls(1).obj),OBJECT POSITION Y(redHurls(1).obj),OBJECT POSITION Z(redHurls(1).obj) 
   MOVE CAMERA -20
   CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, "ARROW KEYS TO ROTATE AROUND THE HURLROCK of spooky DOOM!"
ENDFUNCTION

FUNCTION MakeHurlTexture(color AS DWORD)
   CREATE BITMAP 1, 129, 129
   INK color, 0
   BOX 1,1,128,32
   INK RGB(200,200,150), 0
   BOX 1,33,128,128
   ti = NextImage(1)
   GET IMAGE ti,1,1,128,128
   SET CURRENT BITMAP 0
ENDFUNCTION ti

FUNCTION MakeHurlRock(tex)
   o = NextObj(1)
   MAKE OBJECT SPHERE o, 5
   o1 = NextObj(1)
   MAKE OBJECT BOX o1, .3, 1.2, .3
   o2 = NextObj(1)
   MAKE OBJECT BOX o2, .3, .35, 1.25
   SCALE OBJECT o, 100, 60, 100
   MAKE MESH FROM OBJECT 1, o1
   ADD LIMB o, 1, 1
   DELETE MESH 1
   MAKE MESH FROM OBJECT 1, o2
   ADD LIMB o, 2, 1
   DELETE MESH 1
   SCALE LIMB TEXTURE o, 1, 0.1, 0.1
   SCALE LIMB TEXTURE o, 2, 0.1, 0.1
   OFFSET LIMB o, 1, 0, 2.7, -.7
   ROTATE LIMB o, 1, 20, 0, 0
   OFFSET LIMB o, 2, 0, 3.1, 0   
   TEXTURE OBJECT o, tex
ENDFUNCTION o

FUNCTION NextObj(n)
   FOR i = n TO 65535
      IF OBJECT EXIST(i) <> 1 THEN EXITFUNCTION i
   NEXT i
ENDFUNCTION 0

FUNCTION NextImage(n)
   FOR i = n TO 65535
      IF IMAGE EXIST(i) <> 1 THEN EXITFUNCTION i
   NEXT i
ENDFUNCTION 0

`texture subroutines
gosub olympictexture
gosub woodtexture
gosub grasstexture
gosub PlusSign
gosub MinusSign
gosub NewGameText
gosub OptionsText
gosub EndGameText
gosub NewGameText1
gosub OptionsText1
gosub EndGameText1
gosub PlusSign1
gosub MinusSign1
gosub MainMenu
gosub target
gosub cementmaker
global wind as integer
global distance as integer
global power as float
global points as integer
global totalpoints as integer

wind=3
distance=30
goto menu


menu:
show mouse
do

   paste image 1,screen width()/2-50,0
   paste image 6, screen width()/2-34,70
   paste image 7,screen width()/2-30,90
   paste image 8,screen width()/2-34,110
   if mousex()>screen width()/2-34
      if mousex()<screen width()/2+34
         if mousey()<89
            if mousey()>71
               paste image 9,screen width()/2-34,70

                  if mouseclick()=1
                     goto game
                  endif
            endif
         endif
      endif
   endif

   if mousex()>screen width()/2-30
      if mousex()<screen width()/2+30
         if mousey()<109
            if mousey()>91
               paste image 10,screen width()/2-30,90

                  if mouseclick()=1
                     cls
                     goto options
                  endif

            endif
         endif
      endif
   endif

   if mousex()>screen width()/2-34
      if mousex()<screen width()/2+34
         if mousey()<129
            if mousey()>111
               paste image 11,screen width()/2-34,110

                  if mouseclick()=1
                     end
                  endif

            endif
         endif
      endif
   endif

loop
return

options:
do
cls
paste image 1,screen width()/2-50,0
ink rgb(255,255,255),rgb(255,255,255)
   text screen width()/2-text width("Distance:"),100,"Distance:"+" "+str$(distance)

   text screen width()/2-text width("Wind Violence (1-10):"),130,"Wind Violence (1-10):"+" "+str$(wind)

   paste image 5,screen width()/2+30,100
   paste image 4,screen width()/2+55,100
   paste image 5,screen width()/2+30,130
   paste image 4,screen width()/2+55,130
   text 0,screen height()-16,"To return to the menu, press the down key"
   if mousex()>screen width()/2+30
      if mousex()<screen width()/2+50
         if mousey()>100
            if mousey()<120
               paste image 13,screen width()/2+30,100

               if mouseclick()=1
                  dec distance
                  wait 40
               endif
            endif
         endif
      endif
   endif

   if mousex()>screen width()/2+55
      if mousex()<screen width()/2+75
         if mousey()>100
            if mousey()<120
               paste image 12,screen width()/2+55,100
               if mouseclick()=1
                  inc distance
                  wait 40
               endif
            endif
         endif
      endif
   endif

   if mousex()>screen width()/2+30
      if mousex()<screen width()/2+50
         if mousey()>130
            if mousey()<150
               paste image 13,screen width()/2+30,130

               if mouseclick()=1
                  dec wind
                  wait 200
               endif
            endif
         endif
      endif
   endif

   if mousex()>screen width()/2+55
      if mousex()<screen width()/2+75
         if mousey()>130
            if mousey()<150
               paste image 12,screen width()/2+55,130
               if mouseclick()=1
                  inc wind
                  wait 200
               endif
            endif
         endif
      endif
   endif

   if wind>10
      wind=10
   endif

   if wind<1
      wind=1
   endif

   if distance>700
      distance=700
   endif

   if distance<1
      distance=1
   endif

   if downkey()=1
      cls
      goto menu
   endif



loop
return

game:
wait 1000
sync on
sync rate 60
autocam off
make object plain 1,50,distance+20
rotate object 1,90,0,0
position object 1,25,0,(distance+20)/2
texture object 1,3

make object box 2,4,4,1
make mesh from object 1,2
delete object 2
make object box 2,0.9,5,0.9
add limb 2,1,1
offset limb 2,1,0,4,0
position object 2, 25,2,distance
texture object 2,2
texture limb 2,1,15
make object plain 3, 50,distance*2
position object 3,25,distance,distance+20
texture object 3,16

totalarrows=3
make object cone 4,0.4
make mesh from object 2,4
delete object 4
hide mouse

position camera 25,4,25
point camera 25,4,distance

limit=0
make camera 1

set camera view 1, screen width()-150, screen height()-150,screen width(),screen height()

do

   paste image 1,screen width()/2-50,0

   gosub AimingReticule

   gosub Camera1Controls

   gosub PowerBar

   gosub FiringConditions

   gosub Firing

   text 0,0,"Points: "+str$(totalpoints)

   sync

loop

return








AimingReticule:
   ink rgb(0,0,255),rgb(0,0,255)
   circle screen width()/2, screen height()/2, 1
   ink rgb(255,0,0),rgb(255,0,0)
   circle screen width()/2, screen height()/2, 2
return



Camera1Controls:
   rotate camera camera angle x(0)+(mousemovey()/2.0),camera angle y(0)+(mousemovex()/2.0),0

   if wrapvalue(camera angle x(0))>95
      if wrapvalue(camera angle x(0))<180
         xrotate camera 0,95
      endif
   endif

   if wrapvalue(camera angle x(0))>180
      if wrapvalue(camera angle x(0))<280
         xrotate camera 0,280
      endif
   endif
return

PowerBar:
   text 0,screen height()-17, "Power:"

   a#=power#/100
   b#=a#*255
   c#=a#*70
   d=c#

   ink rgb(b#,0,0),rgb(b#,0,0)
   text text width("Power")+10, screen height()-17, str$(power#,0)
   box 1,screen height()-28,d,screen height()-18

   if upkey()=1
      if fired=0
         inc power#
         wait 10
      endif
   endif

   if downkey()=1
      if fired=0
         dec power#
         wait 10
      endif
   endif

   if power#>100
      power#=100
   endif

   if power#<1
      power#=1
   endif

return

FiringConditions:
   if mouseclick()=1
      if fired=0
         gosub CreateArrow
         fired=1
         limit=0
         position object totalarrows, camera position x(0), camera position y(0), camera position z(0)
         rotate object totalarrows, camera angle x(0), camera angle y(0), camera angle z(0)
         move object totalarrows,0.1
         rotate object totalarrows,object angle x(totalarrows),object angle y(totalarrows),object angle z(totalarrows)
      endif
   endif

   if object position y(totalarrows)<0
      fired=0
   endif
return

Firing:
   if fired=1

      point camera 1, object position x(totalarrows),object position y(totalarrows),object position z(totalarrows)
      position camera 1,object position x(totalarrows)-4,object position y(totalarrows),object position z(totalarrows)
      show object totalarrows
      move object totalarrows,a#*6

      if limit=0
         g#= abs(180-wrapvalue(object angle x(totalarrows)))
         g#= 1-((-g#+180)/180)
         rotate object totalarrows,wrapvalue(object angle x(totalarrows))+g#,object angle y(totalarrows),object angle z(totalarrows)
      endif

      if wrapvalue(object angle x(totalarrows))>90
         if wrapvalue(object angle x(totalarrows))<100
            limit=1
         endif
      endif

      if object collision(totalarrows,2)=1
         x= object position x(totalarrows)
         y= object position y(totalarrows)

         if points=0
            if x>object position x(2)-0.5
               if x<object position x(2)+0.5
                  if y>5.5
                     if y<6.5
                        points=10
                     endif
                  endif
               endif
            endif
         endif

         if points=0
            if x>object position x(2)-1
               if x<object position x(2)+1
                  if y>5
                     if y<7
                        points=8
                     endif
                  endif
               endif
            endif
         endif

         if points=0
            if x>object position x(2)-1.5
               if x<object position x(2)+1.5
                  if y>4.5
                     if y<7.5
                        points=6
                     endif
                  endif
               endif
            endif
         endif

         if points=0
            if x>object position x(2)-2
               if x<object position x(2)+2
                  if y>4
                     if y<8
                        points=5
                     endif
                  endif
               endif
            endif
         endif

         fired=0
         inc totalpoints, points
         points=0
      endif
   endif
return

CreateArrow:
   inc totalarrows
   make object box totalarrows,0.1,0.1,2
   add limb totalarrows,1,2
   offset limb totalarrows,1,0,0,1
   rotate limb totalarrows,1,90,0,0
   add limb totalarrows,2,2
   offset limb totalarrows,2,0,0,-1.02
   rotate limb totalarrows,2,90,0,0
   color object totalarrows, rgb(100,50,50)

return
`Texture making subroutines



olympictexture:
create bitmap 1,100,53
set current bitmap 1
cls
for x=1 to 100
   for y=1 to 53
      dot x,y, rgb(255,255,255)
   next y
next x
ink rgb(0,0,255),rgb(0,0,255)
circle 17,17,15
circle 17,17,14
ink rgb(0,0,0),rgb(0,0,0)
circle 51,17,15
circle 51,17,14
ink rgb(255,0,0),rgb(255,0,0)
circle 85,17,15
circle 85,17,14
ink rgb(255,255,0),rgb(255,255,0)
circle 34,34,15
circle 34,34,14
ink rgb(0,255,0),rgb(0,255,0)
circle 68,35,15
circle 68,35,14
get image 1,1,1,100,53
set current bitmap 0
delete bitmap 1
return
woodtexture:
create bitmap 1,50,50
set current bitmap 1
for x=1 to 50
   for y=1 to 50
      abc=rnd(20)+50
      dot x,y, rgb(abc+40,abc,abc)
   next y
next x
get image 2,1,1,50,50
set current bitmap 0
delete bitmap 1
return
grasstexture:
create bitmap 1, 50, 50
set current bitmap 1
for x=1 to 50
   for y=1 to 50
      dot x,y,RGB(0,rnd(60)+130,0)
   next x
next y
get image 3,1,1,50,50
set current bitmap 0
delete bitmap 1
return
PlusSign:
create bitmap 1, 20,20
set current bitmap 1
for x=1 to 20
for y=1 to 20
dot x,y,rgb(200,200,200)
next y
next x
ink rgb(0,0,0),rgb(0,0,0)
line 10,5,10,15
line 5,10,15,10
get image 4,1,1,20,20
set current bitmap 0
delete bitmap 1
return
MinusSign:
create bitmap 1, 20,20
set current bitmap 1
for x=1 to 20
   for y=1 to 20
      dot x,y,rgb(200,200,200)
   next y
next x
ink rgb(0,0,0),rgb(0,0,0)
line 5,10,15,10
get image 5,1,1,20,20
set current bitmap 0
delete bitmap 1
return
NewGameText:
create bitmap 1,68,20
set current bitmap 1
for x=1 to 68
   for y=1 to 20
      dot x,y,rgb(200,200,200)
   next y
next x
text 2,2,"New Game"
get image 6,1,1,68,20
set current bitmap 0
delete bitmap 1
return
OptionsText:
create bitmap 1,60,20
set current bitmap 1

for x=1 to 60
   for y=1 to 20
      dot x,y,rgb(200,200,200)
   next y
next x
text 2,2,"Options"
get image 7,1,1,60,20
set current bitmap 0
delete bitmap 1
return
EndGameText:
create bitmap 1,68,20
set current bitmap 1
for x=1 to 68
   for y=1 to 20
      dot x,y,rgb(200,200,200)
   next y
next x
text 2,2,"End Game"
get image 8,1,1,68,20
set current bitmap 0
delete bitmap 1
return
NewGameText1:
create bitmap 1,68,20
set current bitmap 1
for x=1 to 68
   for y=1 to 20
      dot x,y,rgb(150,150,150)
   next y
next x
text 2,2,"New Game"
get image 9,1,1,68,20
set current bitmap 0
delete bitmap 1
return
OptionsText1:
create bitmap 1,60,20
set current bitmap 1
for x=1 to 60
   for y=1 to 20
      dot x,y,rgb(150,150,150)
   next y
next x
text 2,2,"Options"
get image 10,1,1,60,20
set current bitmap 0
delete bitmap 1
return
EndGameText1:
create bitmap 1,68,20
set current bitmap 1
for x=1 to 68
   for y=1 to 20
      dot x,y,rgb(150,150,150)
   next y
next x
text 2,2,"End Game"
get image 11,1,1,68,20
set current bitmap 0
delete bitmap 1
return
PlusSign1:
create bitmap 1, 20,20
set current bitmap 1
for x=1 to 20
for y=1 to 20
dot x,y,rgb(150,150,150)
next y
next x
ink rgb(0,0,0),rgb(0,0,0)
line 10,5,10,15
line 5,10,15,10
get image 12,1,1,20,20
set current bitmap 0
delete bitmap 1
return
MinusSign1:
create bitmap 1, 20,20
set current bitmap 1
for x=1 to 20
   for y=1 to 20
      dot x,y,rgb(150,150,150)
   next y
next x
ink rgb(0,0,0),rgb(0,0,0)
line 5,10,15,10
get image 13,1,1,20,20
set current bitmap 0
delete bitmap 1
return
MainMenu:
create bitmap 1, 76,20
set current bitmap 1
for x=1 to 76
   for y=1 to 20
      dot x,y,rgb(0,0,rnd(50)+100)
   next y
next x
text 2,2, "Main Menu"
get image 14,1,1,76,20
set current bitmap 0
delete bitmap 1
return


target:

create bitmap 1, 20,20
set current bitmap 1
for x=1 to 20
   for y=1 to 20
      dot x,y,rgb(255,0,0)
   next y
next x
b=1
for a=1 to 9
changed=0
   if b=1
      if changed=0
         b=0
         changed=1
      endif
   endif

   if b=0
      if changed=0
         b=1
         changed=1
      endif
   endif

   if b=0
      ink rgb(255,255,255),rgb(255,255,255)
      circle 10,10,a
   endif
   if b=1
      ink rgb(255,0,0),rgb(255,0,0)
      circle 10,10,a
   endif
next a

get image 15,1,1,20,20
set current bitmap 0
delete bitmap 1
return

cementmaker:
create bitmap 1, 300, 300
set current bitmap 1
for x=1 to 300
   for y=1 to 300
      a=rnd(10)+130
      dot x,y,rgb(a,a,a)
   next y
next x

for a=1 to 50
   dot rnd(300),rnd(300),rgb(0,0,0)
next a

get image 16,1,1,300,300
set current bitmap 0
delete bitmap 1

return

Vee - Archery

Moe - Archery

Hide Mouse
Rem *** Vee's Dodge Racer! 2008
Set Display Mode 1024,768,32
Sync On : Sync Rate 60
randomize timer()

Game:
Type PlayerType
   ObjNum As Integer
   PosX As Float
   PosY As Float
   PosZ As Float
   Speed As Float
   TurnSpeed As Float
   TurnSpeed2 As Float
   MPH As Float
EndType

Type MakeRoadType
   ObjNum As Integer
   PosX As Integer
   PosY As Integer
   PosZ As integer
EndType

Type MakeLeftWallType
   ObjNum As Integer
   PosX As Integer
   PosY As Integer
   PosZ As integer
EndType

Type MakeRightWallType
   ObjNum As Integer
   PosX As Integer
   PosY As Integer
   PosZ As integer
EndType

Type MakeBoxType
   ObjNum As Integer
   PosX As Integer
   PosY As Integer
   PosZ As Integer
EndType

   Global Car1 As PlayerType
   Global Road As MakeRoadType
   Global WallL As MakeLeftWallType
   Global WallR As MakeRightWallType
   Global Message As Integer
   Global lives As Integer = 3
   Global GameState As Integer
   Global FlashCount As Integer
   Global CarDamage As Integer
   Global Score As Integer
   Global ScoreTimer As Integer = Timer()
   Global ScoreInterval = 10000
   Global ScoreEnabled As Integer
   Global DamageCount As Integer
   Dim Boxs(115) As MakeBoxType

   MakeGameOver()
   MakeRoadTexture()
   MakeRoad(2)
   MakeLeftWall(3)
   MakeRightWall(4)
   MakePlayer(10000)
   MakeFlashHit()
   MakeFinishLine()

   For CountBoxes = 0 to 115
      MakeBoxs(CountBoxes)
   Next CountBoxes


StartCamera()


Do

   FollowCamera()
   Car1Controls()
   WallCollision()
   Damage()
   FlashAction()
   GameOver()
   WinGame()

   For CountBoxes = 0 to 115
       RespawnBoxes(CountBoxes)
       CarCollision(CountBoxes)
   Next CountBoxes
   Set Text Size 28
   Text 320,0,"Vee's Dodge Racer! 2008"
   Text 760,0,"Lives: " + str$(lives)
   Text 20,0,"Score: " + str$(Score)
   Text 760,40,"Damage: " + str$(CarDamage)

sync
loop

Function StartCamera()
   Position Camera 0,900,0
   Point Camera 0,0,0
   Set Camera Range 1,100000000
EndFunction

Function FollowCamera()
   Position Camera Object Position X(Car1.ObjNum),10,Object Position Z(Car1.ObjNum)-40
   Point Camera Object Position X(Car1.ObjNum),0,Object Position Z(Car1.ObjNum)
EndFunction

Function MakeRoadTexture()
   Create bitmap 1,128,128
   box 0,0,2,64
   Blur Bitmap 1,2
   Get Image 1,0,0,128,128
   Set Current Bitmap 0
EndFunction

Function MakePlayer(i)
   Car1.ObjNum = i
   Make Object Cube i,1
   Car1.PosX = 0
   Car1.PosY = 2
   Car1.PosZ = 0
   Scale Object Car1.ObjNum,200,100,800
   Position Object Car1.ObjNum,Car1.PosX,Car1.PosY,Car1.PosZ
   SET OBJECT COLLISION TO BOXES Car1.ObjNum

EndFunction

Function MakeRoad(i)
   Road.ObjNum = i
   Make Object Plain Road.ObjNum,100,600000
   Rotate Object Road.ObjNum,-90,0,0
   Color Object Road.ObjNum,rgb(0,0,0)
   Texture object Road.ObjNum,1
   Scale object texture Road.ObjNum,4.0,1024.0
   Disable Object Zwrite Road.ObjNum
EndFunction

Function MakeLeftWall(i)
   WallL.ObjNum = i
   Make Object Cube WallL.ObjNum,2
   Scale Object WallL.ObjNum,100,400,30000000
   Position Object WallL.ObjNum,WallL.PosX-50,0,0
   Disable Object Zwrite WallL.ObjNum
EndFunction

Function MakeRightWall(i)
   WallR.objNum = i
   Make Object Cube WallR.ObjNum,2
   Scale Object WallR.ObjNum,100,400,30000000
   Position Object WallR.ObjNum,WallR.PosX+50,0,0
   Disable Object Zwrite WallR.ObjNum
EndFunction

Function MakeBoxs(CountBoxes As Integer)
   Boxs(CountBoxes).ObjNum = CountBoxes+1000
   Make object Cube Boxs(CountBoxes).objNum,10
    Position Object Boxs(CountBoxes).ObjNum,Boxs(CountBoxes).PosX-45+rnd(90),Boxs(CountBoxes).PosY+2,Object Position Z(Car1.ObjNum)*1000000+rnd(15000)
   Color object Boxs(CountBoxes).ObjNum,RGB(120,120,0)
   SET OBJECT COLLISION TO BOXES Boxs(CountBoxes).ObjNum
EndFunction

Function Car1Controls()

   If Car1.Speed > 80.0 then Car1.Speed = 80.0
   Car1.Speed = Car1.Speed + 0.01
   If Car1.MPH > 810.0 then Car1.MPH = 810.0
   Car1.MPH  = Car1.MPH + 0.1
   Move Object Car1.ObjNum,Car1.Speed

   If Car1.TurnSpeed > 1.5 then Car1.TurnSpeed = 1.5
   Car1.TurnSpeed = Car1.TurnSpeed + 1.5
   Move Object Right Car1.ObjNum,Car1.TurnSpeed*MouseMoveX()*0.1

   If Car1.TurnSpeed < -1.5 then Car1.TurnSpeed = -1.5
   Car1.TurnSpeed = Car1.TurnSpeed - 1.5
   Move Object Left Car1.ObjNum,-Car1.TurnSpeed*MouseMoveX()*-0.1

   Text 100,650,"MPH: " + str$(int(Car1.MPH))
EndFunction

Function WallCollision()
   If Object Position X(Car1.ObjNum) >= Object Position X(WallR.ObjNum)
      Car1.PosX =  49.4
      Position Object Car1.ObjNum,Car1.PosX,Car1.PosY,Car1.PosZ
      Car1.Speed = 0.0
      Car1.MPH = 0.1
      Move Object Car1.ObjNum,Car1.Speed
      DamageCount = 20
   Endif

   If Object Position X(Car1.ObjNum) <= Object Position x(WallL.ObjNum)
      Car1.PosX = -49.4
      Position object Car1.objNum,Car1.PosX,Car1.PosY,Car1.PosZ
      Car1.Speed = 0.0
      Car1.MPH = 0.1
      Move Object Car1.ObjNum,Car1.Speed
      DamageCount = 20
   Endif

   If Object Position Z(Car1.ObjNum) = Object position Z(16000)
      Car1.PosZ = 100000.0
      Position object Car1.objNum,Car1.PosX,Car1.PosY,Car1.PosZ
      Car1.Speed = 0.0
      Car1.MPH = 0.1
      Move Object Car1.ObjNum,Car1.Speed
   Endif
EndFunction

Function RespawnBoxes(CountBoxes As integer)
   If Object Position Z(Car1.ObjNum) > Object Position Z(Boxs(CountBoxes).ObjNum) or  Object Position Z(Boxs(CountBoxes).ObjNum) < Object Position Z(Car1.ObjNum)
      Position Object Boxs(CountBoxes).ObjNum,Boxs(CountBoxes).PosX-45+rnd(90),Boxs(CountBoxes).PosY+2,Object Position Z(Car1.ObjNum)*4+rnd(2)
   Endif
EndFunction

Function CarCollision(CountBoxes As Integer)
   If ScoreEnabled = 1
      If Car1.MPH > 50.0
         If timer() > ScoreTimer + ScoreInterval
            Score = Score + 1
            If Score = 10 then lives = lives + 1
            ScoreTimer = Timer()
         Endif
      Endif
   Endif
   If Message = 1
      Position Object Boxs(CountBoxes).ObjNum,Boxs(CountBoxes).PosX-45+rnd(90),Boxs(CountBoxes).PosY+2,Object Position Z(Car1.ObjNum)*1000000+rnd(16000)
      `Text 20,80,"Collision!"
   Else
      Message = 0
      `Text 20,100,"No Collision!"
   Endif

   If Object Hit(Car1.ObjNum,Boxs(CountBoxes).ObjNum) > 0 or Object Hit(Boxs(CountBoxes).ObjNum,Car1.ObjNum) > 0
      Message = 1
      FlashCount = 10
      lives = lives - 1
      CarDamage = 0
      Car1.PosX = 0
      Car1.PosY = 2
      Car1.PosZ = 0
      Car1.Speed = 0.0
      Car1.MPH = 0.1
      Color Object Car1.ObjNum,RGB(255,255,255)
      Position Object Car1.ObjNum,PosX,Car1.PosY,Car1.PosZ
      Position Object Boxs(CountBoxes).ObjNum,Boxs(CountBoxes).PosX,Boxs(CountBoxes).PosY,Boxs(CountBoxes).PosZ
      If Score > 0 then Score = Score - 1
   Else
      Message = 0
      ScoreEnabled = 1
   Endif
   If lives = 0 then GameState = 1
EndFunction

Function MakeFlashHit()
   Make object plain 15000,1024,768
   Color object 15000,RGB(255,0,0)
   Hide Object 15000
EndFunction

Function FlashAction()
   If FlashCount > 0
      FlashCount = FlashCount - 1
      Show Object 15000
      Position Object 15000,Camera Position x(),Camera Position Y(),Camera Position z()+5
   Else
      Hide Object 15000
   Endif
EndFunction

Function MakeGameOver()
   Make object plain 20000,1024,768
   Color object 20000,RGB(255,0,0)
   Hide object 20000
EndFunction

Function GameOver()
   If GameState = 1
      Show object 20000
      Car1.MPH = 0.0
      Car1.PosX = 0
      Car1.PosY = 2
      Car1.PosZ = 0
      Car1.Speed = 0.0
      Score = 0
      Position object 20000,Camera Position x(),Camera Position Y(),Camera Position z()+5
      Color object 20000,RGB(255,0,0)
      Text 120,200,"Game Over!!! Press 'Y' To Play Again. Or 'Q' to quit"
      If keyState(21)=1
         for i = 1 to 20001
            delete object i
         Next i
         Goto Game
      Else
         If KeyState(16)=1 then end
      Endif
   Endif

If GameState = 2
      Show object 20000
      Car1.MPH = 0.0
      Car1.PosX = 0
      Car1.PosY = 2
      Car1.PosZ = 0
      Car1.Speed = 0.0
      Score = 0
      Position object 20000,Camera Position x(),Camera Position Y(),Camera Position z()+5
      Color object 20000,RGB(0,255,0)
      Text 120,200,"You Win,! Wow I can't believe it, You Are The Man!"
      Text 120,240,"Press 'Y' To Play Again. Or 'Q' to quit"
      If keyState(21)=1
         for i = 1 to 20001
            delete object i
         Next i
         Goto Game
      Else
         If KeyState(16)=1 then end
      Endif
   Endif
EndFunction

Function Damage()
   If DamageCount > 0
      DamageCount = DamageCount - 1
      FlashCount = 2
      If DamageCount = 1 then CarDamage = CarDamage + 1
         If CarDamage = 1 then Color object Car1.ObjNum,RGB(255,150,150)
         If CarDamage = 2 then Color object Car1.ObjNum,RGB(255,60,60)
         If CarDamage = 3 then Color object Car1.ObjNum,RGB(255,0,0)
         If CarDamage = 4
            lives  = lives - 1
            CarDamage = 0
         Endif
         If CarDamage = 0 then Color Object Car1.ObjNum,RGB(255,255,255)
         If lives = 0 then GameState = 1
   Endif
EndFunction

Function WinGame()
   If Object Position Z(Car1.ObjNum) > 300000.0
      Car1.Speed = 0.0
      GameState = 2
   Endif
EndFunction

Function MakeFinishLine()
   Make object cube 16000,2
   Scale object 16000,6000,1800,100
   Position object 16000,0,0,300000.0
   Color object 16000,rgb(0,255,0)
EndFunction

Rem Project: track editor
Rem Created: 04/08/2008 18:09:09

Rem ***** Main Source File *****


sync on
sync rate 0
backdrop on
color backdrop 0

max_points=100
max_pointss=1000
dim point_x(max_points)
dim point_y(max_points)

global numpoints

global pointselected

`points stored for smoothed thing!
dim point_sx(max_pointss)
dim point_sy(max_pointss)
dim normal_sx#(max_pointss)
dim normal_sy#(max_pointss)

global saved

do

ink rgb(100,100,100),0
`point # 0 not used!!
for n=1 to numpoints `if numpoints=0, auto skips!!
   `text 0,0,"^^"
   nextpoint=n+1
   if nextpoint=numpoints+1 then nextpoint=1 `inefficient check but doesn't matter
   line point_x(n),point_y(n),point_x(nextpoint),point_y(nextpoint)
next n

ink rgb(255,255,255),0
smooth_point=1 `don't use 0

if numpoints>2 `possible to do cubic spline
for n=1 to numpoints `if numpoints=0, auto skips!!
   `text 0,0,"^^"
   nextpoint=n+1
   if nextpoint>numpoints then dec nextpoint,numpoints `inefficient check but doesn't matter
   prevpoint=n-1
   if prevpoint<1 then inc prevpoint,numpoints `inefficient check but doesn't matter
   nextpoint2=n+2
   if nextpoint2>numpoints then dec nextpoint2,numpoints `inefficient check but doesn't matter

   dxa=point_x(nextpoint)-point_x(prevpoint)
   dya=point_y(nextpoint)-point_y(prevpoint)
   dxb=0-(point_x(nextpoint2)-point_x(n))
   dyb=0-(point_y(nextpoint2)-point_y(n))

   d2xa=point_x(nextpoint)+point_x(prevpoint)-2*point_x(n)
   d2ya=point_y(nextpoint)+point_y(prevpoint)-2*point_y(n)
   d2xb=point_x(nextpoint2)+point_x(n)-2*point_x(nextpoint)
   d2yb=point_y(nextpoint2)+point_y(n)-2*point_y(nextpoint)

   for a#=0 to 0.95 step 0.1
      b#=1.0-a#
      x=b#*(point_x(n)+a#*(dxa/2.0)+a#*a#*(d2xa/2.0) ) + a#*(point_x(nextpoint)+b#*(dxb/2.0)+b#*b#*(d2xb/2.0) )
      y=b#*(point_y(n)+a#*(dya/2.0)+a#*a#*(d2ya/2.0) ) + a#*(point_y(nextpoint)+b#*(dyb/2.0)+b#*b#*(d2yb/2.0) )
      circle x,y,2

      `normal?!
      `gx#=b#*(dxa/2.0+a#*d2xa/0.66) - a#*(dxb/2.0+b#*d2xb/0.66)
      `gy#=b#*(dya/2.0+a#*d2ya/0.66) - a#*(dyb/2.0+b#*d2yb/0.66)   `could * up by 2 for simplicity..
      gx#=b#*(dxa+a#*3*d2xa) - a#*(dxb+b#*3*d2xb)
      gy#=b#*(dya+a#*3*d2ya) - a#*(dyb+b#*3*d2yb)
      mag#=sqrt(gx#*gx#+gy#*gy#)
      gx#=gx#/mag#
      gy#=gy#/mag#
      line x-9*gx#,y-9*gy#,x+9*gx#,y+9*gy#
      nx#=gy#
      ny#=0.0-gx#
      line x,y,x+8*nx#,y+8*ny#

      `fill data to draw smooth track later!
      `note this info can be generated upon loading level- only need the "clicked" points
      `from the editor to reproduce level..

      point_sx(smooth_point)=x
      point_sy(smooth_point)=y
      normal_sx#(smooth_point)=nx#
      normal_sy#(smooth_point)=ny#
      inc smooth_point

   next a#

next n

num_smooth_points=smooth_point-1

endif

if shiftkey()
cls
`draw smooth track

for p=1 to num_smooth_points

   nextp=p+1
   if nextp>num_smooth_points then nextp=1

   x=point_sx(p)
   y=point_sy(p)

   x2=point_sx(nextp)
   y2=point_sy(nextp)

   line x,y,x2,y2

   `outside and inside line!
   xout=point_sx(p)+5*normal_sx#(p)
   yout=point_sy(p)+5*normal_sy#(p)
   x2out=point_sx(nextp)+5*normal_sx#(nextp)
   y2out=point_sy(nextp)+5*normal_sy#(nextp)

   line xout,yout,x2out,y2out

   `dividing up lines
   `line x,y,xout,yout


   `inside line!
   xin=point_sx(p)-5*normal_sx#(p)
   yin=point_sy(p)-5*normal_sy#(p)
   x2in=point_sx(nextp)-5*normal_sx#(nextp)
   y2in=point_sy(nextp)-5*normal_sy#(nextp)

   line xin,yin,x2in,y2in

   `dividing up lines
   line xin,yin,xout,yout

next p


endif



spkey=mouseclick()&&1   `left click
if spkey>spkeylast
   inc numpoints
   point_x(numpoints)=mousex()
   point_y(numpoints)=mousey()
   saved=0
endif
spkeylast=spkey

if saved=0:if keystate(31) ` "S" to Save
   if file exist("track.dat")
      delete file "track.dat"
   endif
   open to write 1,"track.dat"
   for n=1 to numpoints
      write float 1,1.0*point_x(n)
      write float 1,1.0*point_y(n)
   next n
   close file 1
   saved=1
endif:endif

if keystate(38) ` "L" to Load
   if file exist("track.dat")
   open to read 1,"track.dat"
   numpoints=file size("track.dat")/8
   test=numpoints
   for n=1 to numpoints
      read float 1,point_x(n) `dont think file integer commands are available!!!!
      read float 1,point_y(n)
      `read float 1,k#:point_x(n)=k#
      `read float 1,k#:point_y(n)=k#
   next n
   close file 1
   endif
endif

text 0,50,str$(test)


sync


loop