1st Person Racing game: Having alot of problems in general!!

Author

Message

Mike Schlueter

19

Years of Service

User Offline

Joined: 28th Nov 2005

Location: Somewhere that I\'m not suppose to be

Posted: 8th Jan 2010 20:53

Link

Well after the many helpful tips that were given to me on my previous threads, I was able to come up with this program below.
(Warning, its a fair read)

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`     Mike's Racing Game
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`  Started Project: 10:50PM, Thursday, October 15, 2009
`  Finished Project: N/A
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`  By Michael T. Schlueter
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
REMSTART
                           'Notes'
06/01/2010-Program Requires "Beach Bug 2" from the DarkMATTER Browser installed with Dark Basic Pro CD-ROM. Not sure if it's
            on the online version. The file name is 'H-Beach Bug 2-Move.x.  Also, need to find a better way to check for
            multiple environment objects with the cars.

REMEND
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`  Start Of Program
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````

hide mouse

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`Variables
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````

`Object Variables
AoR=3 `Amount of Cars in the Race. Minimum is 2, Maximum is 50.
Grnd=51 `Environment starts in 50s. This is the main ground.
EvrmtMax=Grnd+2 `Determinds the maximum value for the environment objects. Exculdes Ground: so if you have ground and 1 jump, its Grnd+1
Evrmt=Grnd `Makes Evrmt start with Ground.

`Physic Variables
F#=0.25 `Turning Force of  A  wheel
L#=0.05 `Force of the ground pushing back on the car
Grav#=0.05 `force of gravity
Mult#=10 `multiplier
JuAir=0
NoSpd=0 `Car in Idle
dim CurSpd#(AoR) `Current speed of car in array
for S=1 to AoR
   CurSpd#(S)=0
next S
TopSpd=1 `the maximum speed the car can go
Accel#=0.0005 `the acceleration of the car
Decel#=0.00001 `the deacceleration of the car
Brake#=0.001 `the braking power of the car

`Controller Variables
DIM Control(AoR,4) `1=Gas, 2=Right turn, 3=Left turn, 4=Brake
for C=1 to AoR
   for H=1 to 4
      Control(C,H)=0
   next H
next C

dim HghtY#(AoR)
for H=1 to AoR
   HghtY#(H)=0
next H

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`Setup
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````

`Race Car Maker
DIM Car(AoR)
for R=1 to AoR
   Car(R)=R
   load object "Beach Bug 2\H-Beach Bug 2-Move.x",Car(R)
   yrotate object Car(R),180
   fix object pivot Car(R)
   Scale object Car(R),200,200,200
   position object Car(R),rnd(50)-25,10,rnd(50)-25
next R

`Environment Maker
`The Main Ground
Make object plain Grnd,10000,10000
xrotate object Grnd,90
`A jump
Make object box 52,5,10,2
position object 52,20,0,-20
xrotate object 52,-45
`A jump
Make object box 53,5,10,2
position object 53,-20,0,20
xrotate object 53,45

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`                             The Main Loop Begins**************************************************************************
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
Do

`Control Camera
   position camera 0,25,-50
   point camera object position x(Car(1)),object position y(Car(1)),object position z(Car(1))

`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   `Keyboard Controls
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   if upkey()=1
      Control(1,1)=1 `Gas=1
   else
      Control(1,1)=0 `Gas=0
   endif
   if Rightkey()=1
      Control(1,2)=1 `R Turn=1
   else
      Control(1,2)=0 `R Turn=0
   endif
   if Leftkey()=1
      Control(1,3)=1 `L Turn=1
   else
      Control(1,3)=0 `L Turn=0
   endif
   if Downkey()=1
      Control(1,4)=1 `Brake=1
   else
      Control(1,4)=0 `Brake=0
   endif

remstart
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   `AI Controls
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   `Creates a Controller for each Car minus the Human controlled one. All AI controller objects are in 200s.
   for AI=302 to AoR+300
      `Looks to the Ai's next checkpoint
      make object plain AI,1,1
      `2 plains that if the looker plain looks through either one, the car will turn achordingly.
      make object plain AI+50,50,50
      instance object AI+60,AI+50
      `Positioning and rotaing the plains in their spots
      yrotate object AI+50,90
      yrotate object AI+60,90
      position object AI+50,limb position x (Car(AI-300),4),limb position y (Car(AI-300),4),limb position z (Car(AI-300),1)
      position object AI+60,limb position x (Car(AI-300),10),limb position y (Car(AI-300),10),limb position z (Car(AI-300),10)
      position object AI,limb position x (Car(AI-300),1),limb position y (Car(AI-300),1),limb position z (Car(AI-300),1)
      `The Check
   next AI
   remend

`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   `Controlling the Cars
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   for R=1 to AoR
      `HghtY#(R)=object position y (Car(R))
      `set object speed Car(R),CurSpd#*100
      `make the car fall to the ground
      `dec HghtY#(R),Grav#
      `position object Car(R),object position x (Car(R)),HghtY#(R),object position z (Car(R))
      `Control speed and direction
      if Control(R,1)=1 and CurSpd#(R)<TopSpd
         `CurSpd#(R)=curvevalue(TopSpd,CurSpd#(R),Accel#)
         inc CurSpd#(R),Accel#
      else
         `CurSpd#(R)=curvevalue(NoSpd,CurSpd#(R),Decel#)
         if CurSpd#(R)>NoSpd
            dec CurSpd#(R),Decel#
         endif
      endif
      if Control(R,2)=1 then turn object right Car(R),F#
      if Control(R,3)=1 then turn object left Car(R),F#
      if Control(R,4)=1
         Control(R,1)=0
         `CurSpd#(R)=curvevalue(NoSpd,CurSpd#(R),Brake#)
         if CurSpd#(R)>NoSpd
            dec CurSpd#(R),Brake#
         endif
      endif
      move object Car(R),CurSpd#(R)
   next R

remstart
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   `Ground Detection
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   for R=1 to AoR
      `If the environment object number exceeds the Max reset it.
      If Evrmt>EvrmtMax then Evrmt=Grnd
      `Detects if a wheel is touching the ground
      `Left Front Wheel:4
      if intersect object (Grnd,limb position x (Car(R),4),limb position y (Car(R),4),limb position z (Car(R),4),limb position x (Car(R),4),limb position y (Car(R),4)-2,limb position z (Car(R),4))>0
         roll object left Car(R),F#
         pitch object down Car(R),F#
         `move object up Car(R),L#
          inc HghtY#(R),F#*Mult#
      endif
      `Left Rear Wheel:6
      if intersect object (Grnd,limb position x (Car(R),6),limb position y (Car(R),6),limb position z (Car(R),6),limb position x (Car(R),6),limb position y (Car(R),6)-2,limb position z (Car(R),6))>0
         roll object right Car(R),F#
         pitch object down Car(R),F#
         `move object up Car(R),L#
         inc HghtY#(R),F#*Mult#
      endif
      `Right Rear Wheel:8
      if intersect object (Grnd,limb position x (Car(R),8),limb position y (Car(R),8),limb position z (Car(R),8),limb position x (Car(R),8),limb position y (Car(R),8)-2,limb position z (Car(R),8))>0
         roll object left Car(R),F#
         pitch object up Car(R),F#
         `move object up Car(R),L#
         inc HghtY#(R),F#*Mult#
      endif
      `Right Front Wheel:10
      if intersect object (Grnd,limb position x (Car(R),10),limb position y (Car(R),10),limb position z (Car(R),10),limb position x (Car(R),10),limb position y (Car(R),10)-2,limb position z (Car(R),10))>0
         roll object right Car(R),F#
         pitch object up Car(R),F#
         `move object up Car(R),L#
         inc HghtY#(R),F#*Mult#
      endif
      `Increases the environment object number
      inc Evrmt,1
   next R
   remend

remstart
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   `Functions
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   CarPhysics()
   AIController()
   HumanController()
   ControlReturn()
   remend

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`                             The Main Loop Ends****************************************************************************
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
Loop

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`Functions (are currently commented out, do to the fact they're not working at the moment.)
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
remstart
function CarPhysics()
   for R=1 to AoR
      `If the environment object number exceeds the Max reset it.
      If Evrmt>EvrmtMax then Evrmt=Grnd
      `Detects if a wheel is touching the ground
      `Left Front Wheel
      if intersect object (Evrmt,limb position x (Car(R),4),limb position y (Car(R),4),limb position z (Car(R),4),limb position x (Car(R),4),limb position y (Car(R),4)-1,limb position z (Car(R),4))>0
         roll object right Car(R),F#
         pitch object up Car(R),F#
         move object up Car(R),L#
      endif
      `Left Rear Wheel
      if intersect object (Evrmt,limb position x (Car(R),6),limb position y (Car(R),6),limb position z (Car(R),6),limb position x (Car(R),6),limb position y (Car(R),6)-1,limb position z (Car(R),6))>0
         roll object right Car(R),F#
         pitch object down Car(R),F#
         move object up Car(R),L#
      endif
      `Right Rear Wheel
      if intersect object (Evrmt,limb position x (Car(R),8),limb position y (Car(R),8),limb position z (Car(R),8),limb position x (Car(R),8),limb position y (Car(R),8)-1,limb position z (Car(R),8))>0
         roll object left Car(R),F#
         pitch object down Car(R),F#
         move object up Car(R),L#
      endif
      `Right Rear Wheel
      if intersect object (Evrmt,limb position x (Car(R),10),limb position y (Car(R),10),limb position z (Car(R),10),limb position x (Car(R),10),limb position y (Car(R),10)-1,limb position z (Car(R),10))>0
         roll object left Car(R),F#
         pitch object up Car(R),F#
         move object up Car(R),L#
      endif
      `Increases the environment object number
      inc Evrmt,1
   next R
endfunction

function AIController()
   `Creates a Controller for each Car minus the Human controlled one. All AI controller objects are in 200s.
   for AI=202 to AoR+200
      `Looks to the Ai's next checkpoint
      make object plain AI,1,1
      `2 plains that if the looker plain looks through either one, the car will turn achordingly.
      make object plain AI+50,50,50
      instance object AI+60,AI+50
      `Positioning and rotaing the plains in their spots
      yrotate object AI+50,90
      yrotate object AI+60,90
      position object AI+50,limb position x (Car(AI-200),4),limb position y (Car(AI-200),4),limb position z (Car(AI-200),1)
      position object AI+60,limb position x (Car(AI-200),10),limb position y (Car(AI-200),10),limb position z (Car(AI-200),10)
      position object AI,limb position x (Car(AI-200),1),limb position y (Car(AI-200),1),limb position z (Car(AI-200),1)
      `The Check
   next AI
endfunction

function HumanController()
   `Keyboard Controls
   if upkey()=1
      Control(1,1)=1 `Gas=1
   else
      Control(1,1)=0 `Gas=0
   endif
   if Rightkey()=1
      Control(1,2)=1 `R Turn=1
   else
      Control(1,2)=0 `R Turn=0
   endif
   if Leftkey()=1
      Control(1,3)=1 `L Turn=1
   else
      Control(1,3)=0 `L Turn=0
   endif
   if Downkey()=1
      Control(1,4)=1 `Brake=1
   else
      Control(1,4)=0 `Brake=0
   endif
endfunction

function ControlReturn()
   for R=1 to AoR
      if Control(R,1)=1
         CurSpd#(R)=curvevalue(TopSpd,CurSpd#(R),Accel#)
      else
         CurSpd#(R)=curvevalue(NoSpd,CurSpd#(R),Decel#)
      endif
      if Control(R,2)=1 then turn object right Car(R),F#
      if Control(R,3)=1 then turn object left Car(R),F#
      if Control(R,4)=1
         Control(R,1)=0
         CurSpd#(R)=curvevalue(NoSpd,CurSpd#(R),Brake#)
      endif
      move object Car(R),CurSpd#(R)
   next R
endfunction
remend

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`                                      Below is Commented Out. Left for Reference.
`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
remstart
`Environment Objects
Ground=FreeObject()

position camera 0,50,-100
                        Point Camera 0,0,0

`Make Quick Ground
make object plain Ground,1000,1000
xrotate object Ground, 90

`Racers
dim Racer(5)
Racer(1)=FreeObject()
Racer(2)=FreeObject()
Racer(3)=FreeObject()
Racer(4)=FreeObject()
Racer(5)=FreeObject()

`A 'FOR' loop to figure out how many players
for P=1 to 5 step 1
   load object "Beach Bug 2\H-Beach Bug 2-Move.x",
   `load object "Beach Bug 2\H-Beach Bug 2-Move.x",Racer(P)
next P

`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`        Main Loop
`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
Do
Loop
`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`        End Main Loop
`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````

remstart
` Free Object
Function FreeObject( )

` Add to array
   Array Insert At Bottom _ObjTaken(0)
   Obj = Array Count( _ObjTaken(0) )

` If object Obj doesnt exist, and isnt reserved..
   If ( (Object Exist( Obj ) = 0) && (_ObjTaken(Obj) = 0) )

` Reserve
      _ObjTaken( Obj ) = 1

` Return object
                ExitFunction Obj

Endif

EndFunction 0

`Find a Free object
function FreeObject()
   ID=1
   while (object exist(ID))
   inc ID
   endwhile
endfunction ID
remend

+ Code Snippet

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`     Mike's Racing Game
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`  Started Project: 10:50PM, Thursday, October 15, 2009
`  Finished Project: N/A
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`  By Michael T. Schlueter
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
REMSTART
                           'Notes'
06/01/2010-Program Requires "Beach Bug 2" from the DarkMATTER Browser installed with Dark Basic Pro CD-ROM. Not sure if it's
            on the online version. The file name is 'H-Beach Bug 2-Move.x.  Also, need to find a better way to check for
            multiple environment objects with the cars.

REMEND
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`  Start Of Program
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````

hide mouse

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`Variables
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````

`Object Variables
AoR=3 `Amount of Cars in the Race. Minimum is 2, Maximum is 50.
Grnd=51 `Environment starts in 50s. This is the main ground.
EvrmtMax=Grnd+2 `Determinds the maximum value for the environment objects. Exculdes Ground: so if you have ground and 1 jump, its Grnd+1
Evrmt=Grnd `Makes Evrmt start with Ground.

`Physic Variables
F#=0.25 `Turning Force of  A  wheel
L#=0.05 `Force of the ground pushing back on the car
Grav#=0.05 `force of gravity
Mult#=10 `multiplier
JuAir=0
NoSpd=0 `Car in Idle
dim CurSpd#(AoR) `Current speed of car in array
for S=1 to AoR
   CurSpd#(S)=0
next S
TopSpd=1 `the maximum speed the car can go
Accel#=0.0005 `the acceleration of the car
Decel#=0.00001 `the deacceleration of the car
Brake#=0.001 `the braking power of the car

`Controller Variables
DIM Control(AoR,4) `1=Gas, 2=Right turn, 3=Left turn, 4=Brake
for C=1 to AoR
   for H=1 to 4
      Control(C,H)=0
   next H
next C

dim HghtY#(AoR)
for H=1 to AoR
   HghtY#(H)=0
next H

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`Setup
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````

`Race Car Maker
DIM Car(AoR)
for R=1 to AoR
   Car(R)=R
   load object "Beach Bug 2\H-Beach Bug 2-Move.x",Car(R)
   yrotate object Car(R),180
   fix object pivot Car(R)
   Scale object Car(R),200,200,200
   position object Car(R),rnd(50)-25,10,rnd(50)-25
next R

`Environment Maker
`The Main Ground
Make object plain Grnd,10000,10000
xrotate object Grnd,90
`A jump
Make object box 52,5,10,2
position object 52,20,0,-20
xrotate object 52,-45
`A jump
Make object box 53,5,10,2
position object 53,-20,0,20
xrotate object 53,45

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`                             The Main Loop Begins**************************************************************************
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
Do

   `Control Camera
   position camera 0,25,-50
   point camera object position x(Car(1)),object position y(Car(1)),object position z(Car(1))

   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   `Keyboard Controls
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   if upkey()=1
      Control(1,1)=1 `Gas=1
   else
      Control(1,1)=0 `Gas=0
   endif
   if Rightkey()=1
      Control(1,2)=1 `R Turn=1
   else
      Control(1,2)=0 `R Turn=0
   endif
   if Leftkey()=1
      Control(1,3)=1 `L Turn=1
   else
      Control(1,3)=0 `L Turn=0
   endif
   if Downkey()=1
      Control(1,4)=1 `Brake=1
   else
      Control(1,4)=0 `Brake=0
   endif

   remstart
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   `AI Controls
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   `Creates a Controller for each Car minus the Human controlled one. All AI controller objects are in 200s.
   for AI=302 to AoR+300
      `Looks to the Ai's next checkpoint
      make object plain AI,1,1
      `2 plains that if the looker plain looks through either one, the car will turn achordingly.
      make object plain AI+50,50,50
      instance object AI+60,AI+50
      `Positioning and rotaing the plains in their spots
      yrotate object AI+50,90
      yrotate object AI+60,90
      position object AI+50,limb position x (Car(AI-300),4),limb position y (Car(AI-300),4),limb position z (Car(AI-300),1)
      position object AI+60,limb position x (Car(AI-300),10),limb position y (Car(AI-300),10),limb position z (Car(AI-300),10)
      position object AI,limb position x (Car(AI-300),1),limb position y (Car(AI-300),1),limb position z (Car(AI-300),1)
      `The Check
   next AI
   remend

   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   `Controlling the Cars
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   for R=1 to AoR
      `HghtY#(R)=object position y (Car(R))
      `set object speed Car(R),CurSpd#*100
      `make the car fall to the ground
      `dec HghtY#(R),Grav#
      `position object Car(R),object position x (Car(R)),HghtY#(R),object position z (Car(R))
      `Control speed and direction
      if Control(R,1)=1 and CurSpd#(R)<TopSpd
         `CurSpd#(R)=curvevalue(TopSpd,CurSpd#(R),Accel#)
         inc CurSpd#(R),Accel#
      else
         `CurSpd#(R)=curvevalue(NoSpd,CurSpd#(R),Decel#)
         if CurSpd#(R)>NoSpd
            dec CurSpd#(R),Decel#
         endif
      endif
      if Control(R,2)=1 then turn object right Car(R),F#
      if Control(R,3)=1 then turn object left Car(R),F#
      if Control(R,4)=1
         Control(R,1)=0
         `CurSpd#(R)=curvevalue(NoSpd,CurSpd#(R),Brake#)
         if CurSpd#(R)>NoSpd
            dec CurSpd#(R),Brake#
         endif
      endif
      move object Car(R),CurSpd#(R)
   next R

   remstart
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   `Ground Detection
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   for R=1 to AoR
      `If the environment object number exceeds the Max reset it.
      If Evrmt>EvrmtMax then Evrmt=Grnd
      `Detects if a wheel is touching the ground
      `Left Front Wheel:4
      if intersect object (Grnd,limb position x (Car(R),4),limb position y (Car(R),4),limb position z (Car(R),4),limb position x (Car(R),4),limb position y (Car(R),4)-2,limb position z (Car(R),4))>0
         roll object left Car(R),F#
         pitch object down Car(R),F#
         `move object up Car(R),L#
          inc HghtY#(R),F#*Mult#
      endif
      `Left Rear Wheel:6
      if intersect object (Grnd,limb position x (Car(R),6),limb position y (Car(R),6),limb position z (Car(R),6),limb position x (Car(R),6),limb position y (Car(R),6)-2,limb position z (Car(R),6))>0
         roll object right Car(R),F#
         pitch object down Car(R),F#
         `move object up Car(R),L#
         inc HghtY#(R),F#*Mult#
      endif
      `Right Rear Wheel:8
      if intersect object (Grnd,limb position x (Car(R),8),limb position y (Car(R),8),limb position z (Car(R),8),limb position x (Car(R),8),limb position y (Car(R),8)-2,limb position z (Car(R),8))>0
         roll object left Car(R),F#
         pitch object up Car(R),F#
         `move object up Car(R),L#
         inc HghtY#(R),F#*Mult#
      endif
      `Right Front Wheel:10
      if intersect object (Grnd,limb position x (Car(R),10),limb position y (Car(R),10),limb position z (Car(R),10),limb position x (Car(R),10),limb position y (Car(R),10)-2,limb position z (Car(R),10))>0
         roll object right Car(R),F#
         pitch object up Car(R),F#
         `move object up Car(R),L#
         inc HghtY#(R),F#*Mult#
      endif
      `Increases the environment object number
      inc Evrmt,1
   next R
   remend

   remstart
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   `Functions
   `````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
   CarPhysics()
   AIController()
   HumanController()
   ControlReturn()
   remend

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`                             The Main Loop Ends****************************************************************************
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
Loop

````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`Functions (are currently commented out, do to the fact they're not working at the moment.)
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
remstart
function CarPhysics()
   for R=1 to AoR
      `If the environment object number exceeds the Max reset it.
      If Evrmt>EvrmtMax then Evrmt=Grnd
      `Detects if a wheel is touching the ground
      `Left Front Wheel
      if intersect object (Evrmt,limb position x (Car(R),4),limb position y (Car(R),4),limb position z (Car(R),4),limb position x (Car(R),4),limb position y (Car(R),4)-1,limb position z (Car(R),4))>0
         roll object right Car(R),F#
         pitch object up Car(R),F#
         move object up Car(R),L#
      endif
      `Left Rear Wheel
      if intersect object (Evrmt,limb position x (Car(R),6),limb position y (Car(R),6),limb position z (Car(R),6),limb position x (Car(R),6),limb position y (Car(R),6)-1,limb position z (Car(R),6))>0
         roll object right Car(R),F#
         pitch object down Car(R),F#
         move object up Car(R),L#
      endif
      `Right Rear Wheel
      if intersect object (Evrmt,limb position x (Car(R),8),limb position y (Car(R),8),limb position z (Car(R),8),limb position x (Car(R),8),limb position y (Car(R),8)-1,limb position z (Car(R),8))>0
         roll object left Car(R),F#
         pitch object down Car(R),F#
         move object up Car(R),L#
      endif
      `Right Rear Wheel
      if intersect object (Evrmt,limb position x (Car(R),10),limb position y (Car(R),10),limb position z (Car(R),10),limb position x (Car(R),10),limb position y (Car(R),10)-1,limb position z (Car(R),10))>0
         roll object left Car(R),F#
         pitch object up Car(R),F#
         move object up Car(R),L#
      endif
      `Increases the environment object number
      inc Evrmt,1
   next R
endfunction

function AIController()
   `Creates a Controller for each Car minus the Human controlled one. All AI controller objects are in 200s.
   for AI=202 to AoR+200
      `Looks to the Ai's next checkpoint
      make object plain AI,1,1
      `2 plains that if the looker plain looks through either one, the car will turn achordingly.
      make object plain AI+50,50,50
      instance object AI+60,AI+50
      `Positioning and rotaing the plains in their spots
      yrotate object AI+50,90
      yrotate object AI+60,90
      position object AI+50,limb position x (Car(AI-200),4),limb position y (Car(AI-200),4),limb position z (Car(AI-200),1)
      position object AI+60,limb position x (Car(AI-200),10),limb position y (Car(AI-200),10),limb position z (Car(AI-200),10)
      position object AI,limb position x (Car(AI-200),1),limb position y (Car(AI-200),1),limb position z (Car(AI-200),1)
      `The Check
   next AI
endfunction

function HumanController()
   `Keyboard Controls
   if upkey()=1
      Control(1,1)=1 `Gas=1
   else
      Control(1,1)=0 `Gas=0
   endif
   if Rightkey()=1
      Control(1,2)=1 `R Turn=1
   else
      Control(1,2)=0 `R Turn=0
   endif
   if Leftkey()=1
      Control(1,3)=1 `L Turn=1
   else
      Control(1,3)=0 `L Turn=0
   endif
   if Downkey()=1
      Control(1,4)=1 `Brake=1
   else
      Control(1,4)=0 `Brake=0
   endif
endfunction

function ControlReturn()
   for R=1 to AoR
      if Control(R,1)=1
         CurSpd#(R)=curvevalue(TopSpd,CurSpd#(R),Accel#)
      else
         CurSpd#(R)=curvevalue(NoSpd,CurSpd#(R),Decel#)
      endif
      if Control(R,2)=1 then turn object right Car(R),F#
      if Control(R,3)=1 then turn object left Car(R),F#
      if Control(R,4)=1
         Control(R,1)=0
         CurSpd#(R)=curvevalue(NoSpd,CurSpd#(R),Brake#)
      endif
      move object Car(R),CurSpd#(R)
   next R
endfunction
remend


````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`                                      Below is Commented Out. Left for Reference.
`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
remstart
`Environment Objects
Ground=FreeObject()

                        position camera 0,50,-100
                        Point Camera 0,0,0

`Make Quick Ground
make object plain Ground,1000,1000
xrotate object Ground, 90

`Racers
dim Racer(5)
Racer(1)=FreeObject()
Racer(2)=FreeObject()
Racer(3)=FreeObject()
Racer(4)=FreeObject()
Racer(5)=FreeObject()

`A 'FOR' loop to figure out how many players
for P=1 to 5 step 1
   load object "Beach Bug 2\H-Beach Bug 2-Move.x",
   `load object "Beach Bug 2\H-Beach Bug 2-Move.x",Racer(P)
next P

`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`        Main Loop
`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
Do
Loop
`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
`        End Main Loop
`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````

remstart
` Free Object
Function FreeObject( )

   ` Add to array
   Array Insert At Bottom _ObjTaken(0)
   Obj = Array Count( _ObjTaken(0) )

   ` If object Obj doesnt exist, and isnt reserved..
   If ( (Object Exist( Obj ) = 0) && (_ObjTaken(Obj) = 0) )

      ` Reserve
      _ObjTaken( Obj ) = 1

                ` Return object
                ExitFunction Obj

   Endif

EndFunction 0

`Find a Free object
function FreeObject()
   ID=1
   while (object exist(ID))
   inc ID
   endwhile
endfunction ID
remend

Problem A: I've commented out My functions as I found they weren't working for some reason. I'm not too familiar with them, so I probaly missed something there.

Problem B: My Physic aren't working correctly. The Cars do funky rotations on just the flat plain(Grnd) and I've spent a day and a half trying to figure out what is wrong with no luck.

I've also commented this part out of the loop.

Problem C: So when I couldn't get the 2 fellas above working, I moved on to see if I could get the AI working. So I copied the code from the function and decided to see what error I'd get from this if any. Sure enough, at line 132 object already exists. Considering the the first object made is 302 (it was at 202, but I moved it up 100 units to try and fix it, which didn't work), and I had not programed any object higher than 100, I was completely stumped.
This I commented out as well and then played around with the AoR variable and found the Max and Mins for racers.

Well I'll thank you all ahead of time for looking through and finding what I can't. Oh and I have the Car object on the download thingy, and it's image on the post below. You'll have to edit the file name for the object path in the SETUP section of the code or just put it in a folder called "Beach Bug 2" or if you have darkMATTER you can find it in vehicles as beach bug 2 and avoid the whole download process altogether.

Mike

If you've noticed this notice, you will have noticed that this notice was not worth noticing.

Back to top

Profile PM Email

Mike Schlueter

19

Years of Service

User Offline

Joined: 28th Nov 2005

Location: Somewhere that I\'m not suppose to be

Posted: 8th Jan 2010 20:53

Link

Here the pic

If you've noticed this notice, you will have noticed that this notice was not worth noticing.

Back to top

Profile PM Email

Mike Schlueter

19

Years of Service

User Offline

Joined: 28th Nov 2005

Location: Somewhere that I\'m not suppose to be

Posted: 10th Jan 2010 16:04

Link

Bump

If you've noticed this notice, you will have noticed that this notice was not worth noticing.

Back to top

Profile PM Email

paul5147

19

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 10th Jan 2010 21:32 Edited at: 10th Jan 2010 21:37

Link

Hi Mike,try reading up a bit on the variable types that can be accessed from within functions.
Theres 2 types basicly "local" and "global",if you want to use the same variable within your main loop and your functions then the variable needs to be declared as global first.

+ Code Snippet

global MyVariableName as integer=100

or

global MyVariableName as float=100.0

Doing this meens any changes to the variables you make within a function also applies to the rest of your code.
Otherwise whatever variables you use within your function will cease to exist once the function is exited they are whats called "local".

+ Code Snippet

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 12
set text transparent
position camera 0,10,-50
point camera 0,0,0

global test1 as integer=0`this is a gloabl variable and is changeable in all the code
test2=0 `this is only a local variable and isnt useable from within functions unless passed to it
test3=0 `this is only a local variable and isnt useable from within functions unless passed to it
do
	cls
	test3=my_function(test3)`pass this variable to the function and place the result back into itself
	text 0,0,str$(test1)
	text 0,15,str$(test2)
	text 0,30,str$(test3)
	text 0,45,str$(num)	
	sync
loop
function my_function(num)
	inc test1 `this is the global variable
	inc test2 `this variable is not the same as the declared at the top and is local to this function only
	inc num `this variable is local to this function only but is used to manipulate test3 that was passed into the function
endfunction num

hope this helps a bit

Back to top

Profile PM

Mike Schlueter

19

Years of Service

User Offline

Joined: 28th Nov 2005

Location: Somewhere that I\'m not suppose to be

Posted: 15th Jan 2010 18:08

Link

Thanks Paul.

I haven't been able to try that out, been too busy in the past while.

If you've noticed this notice, you will have noticed that this notice was not worth noticing.

Back to top

Profile PM Email

Mike Schlueter

19

Years of Service

User Offline

Joined: 28th Nov 2005

Location: Somewhere that I\'m not suppose to be

Posted: 18th Jan 2010 17:38

Link

Anyone have the slightest idea on the other 2 problems??

If you've noticed this notice, you will have noticed that this notice was not worth noticing.

Back to top

Profile PM Email

paul5147

19

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 18th Jan 2010 21:42 Edited at: 18th Jan 2010 21:43

Link

Small bit of code to show how the functions work in the way you need them to.Remember that any variables you need to use in you function and your main loop need to be defined as global before you use them.Try to build on this,the object i use for the car has 4 limbs for wheels just the same as the model you use except there numbered 1 to 4.
Theres no AI for the other cars and no atempt at physics either,the AI is easy enought to do if all you need is a few waypoints and you simply turn the car to point at the next one when one is reached.
The physics is a lot more complicated then your code is trying to implement and there are some free plugins that can make the job a lot easier(sparkys collision and ezrotate free).sparkys is probably the simplest and best,once set up the 4 points of contact such as the wheels can be found on any terrain and the body rotated from the results obtained to allign it with the ground.
If you need a demo of it in action then let me know.

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 12
set text transparent
position camera 30,20,-80
point camera 0,0,0

global enviroment as integer=1000

global vehicles as integer=2000
global num_vehicles=20
dim speed(num_vehicles) as float
global max_speed as float=1.0
global acceleration as float=0.02
global decelleration as float=0.005

global dummy as integer=10000``used to make limbs for wheels

make_ground()
make_vehicles()

do
	control_car(vehicles)``only controls player car
	if num_vehicles>1
		random_car_control(vehicles+1,vehicles+num_vehicles-1)
	endif
	set camera to follow object position x(vehicles),object position y(vehicles),object position z(vehicles),object angle y(vehicles),10,5,50,1
	sync
loop

function make_ground()
	make object plain enviroment,5000,5000
	xrotate object enviroment,90
endfunction

function make_vehicles()
	for l=vehicles to vehicles+num_vehicles-1
		make object cube l,1``car body
		make object cylinder dummy,1
		zrotate object dummy,90
		make mesh from object 1,dummy
		delete object dummy
		``front right wheel
		add limb l,1,1
		offset limb l,1,2,-0.5,2
		``front left wheel
		add limb l,2,1
		offset limb l,2,-2,-0.5,2
		``rear right wheel
		add limb l,3,1
		offset limb l,3,2,-0.5,-2
		``rear left wheel
		add limb l,4,1
		offset limb l,4,-2,-0.5,-2
		position object l,rnd(100)-50,1,rnd(100)-50
		if l=vehicles
			color object l,rgb(255,0,0)
		else
			color object l,rgb(0,255,0)
		endif
	next l
endfunction

function control_car(obj)
	if upkey()
		if speed(obj-vehicles)<max_speed then speed(obj-vehicles)=speed(obj-vehicles)+acceleration
		move object obj,speed(obj-vehicles)
	endif
	if leftkey() and speed(obj-vehicles)>0 then turn object left obj,2
	if rightkey() and speed(obj-vehicles)>0 then turn object right obj,2
	if speed(obj-vehicles)>0.0 then speed(obj-vehicles)=speed(obj-vehicles)-decelleration	
endfunction

function random_car_control(first_obj,last_obj)
	for l=first_obj to last_obj
		steer=rnd(100)
		if steer>30 and steer<70
			if speed(l-vehicles)<max_speed then speed(l-vehicles)=speed(l-vehicles)+acceleration
			move object l,speed(l-vehicles)
		endif
		if steer>20 and steer<=30 and speed(l-vehicles)>0 then turn object left l,2
		if steer>=70 and steer<80 and speed(l-vehicles)>0 then turn object right l,2
		if speed(l-vehicles)>0.0 then speed(l-vehicles)=speed(l-vehicles)-decelleration	
	next l
endfunction

+ Code Snippet

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 12
set text transparent
position camera 30,20,-80
point camera 0,0,0

global enviroment as integer=1000

global vehicles as integer=2000
global num_vehicles=20
dim speed(num_vehicles) as float
global max_speed as float=1.0
global acceleration as float=0.02
global decelleration as float=0.005

global dummy as integer=10000``used to make limbs for wheels

make_ground()
make_vehicles()

do
	control_car(vehicles)``only controls player car
	if num_vehicles>1
		random_car_control(vehicles+1,vehicles+num_vehicles-1)
	endif
	set camera to follow object position x(vehicles),object position y(vehicles),object position z(vehicles),object angle y(vehicles),10,5,50,1
	sync
loop


function make_ground()
	make object plain enviroment,5000,5000
	xrotate object enviroment,90
endfunction

function make_vehicles()
	for l=vehicles to vehicles+num_vehicles-1
		make object cube l,1``car body
		make object cylinder dummy,1
		zrotate object dummy,90
		make mesh from object 1,dummy
		delete object dummy
		``front right wheel
		add limb l,1,1
		offset limb l,1,2,-0.5,2
		``front left wheel
		add limb l,2,1
		offset limb l,2,-2,-0.5,2
		``rear right wheel
		add limb l,3,1
		offset limb l,3,2,-0.5,-2
		``rear left wheel
		add limb l,4,1
		offset limb l,4,-2,-0.5,-2
		position object l,rnd(100)-50,1,rnd(100)-50
		if l=vehicles
			color object l,rgb(255,0,0)
		else
			color object l,rgb(0,255,0)
		endif
	next l
endfunction

function control_car(obj)
	if upkey()
		if speed(obj-vehicles)<max_speed then speed(obj-vehicles)=speed(obj-vehicles)+acceleration
		move object obj,speed(obj-vehicles)
	endif
	if leftkey() and speed(obj-vehicles)>0 then turn object left obj,2
	if rightkey() and speed(obj-vehicles)>0 then turn object right obj,2
	if speed(obj-vehicles)>0.0 then speed(obj-vehicles)=speed(obj-vehicles)-decelleration	
endfunction

function random_car_control(first_obj,last_obj)
	for l=first_obj to last_obj
		steer=rnd(100)
		if steer>30 and steer<70
			if speed(l-vehicles)<max_speed then speed(l-vehicles)=speed(l-vehicles)+acceleration
			move object l,speed(l-vehicles)
		endif
		if steer>20 and steer<=30 and speed(l-vehicles)>0 then turn object left l,2
		if steer>=70 and steer<80 and speed(l-vehicles)>0 then turn object right l,2
		if speed(l-vehicles)>0.0 then speed(l-vehicles)=speed(l-vehicles)-decelleration	
	next l
endfunction

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / 1st Person Racing game: Having alot of problems in general!!