Hi really need help - GameCreators Forum

Author

Message

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 30th Dec 2004 04:09

Link

Hi I know I have asked this before but I am really stuck on this "in and out of vehicles " thing. this bit of code I need to know where I am going on as I keep gettting a "syntax error" on this code.

But the problem I really have is the in and out of vehicle3s using models so can I get some help please after this al I need is to do the A.I (both friendly and enemy) and then I have a game level. Please help someone, thank you

Rem * Title  : Solar_Dominion_Test_Level_1
Rem * Author : Ian George
Rem * Date   : 11/11/04
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM  Solar Dominion Test Level 1a
REM  By Ian George aka Vampyre
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************

autocam off
hide mouse
sync rate 60
sync on

Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Randomize the matrix
randomize matrix 1,125
update matrix 1
X#=5000
Z#=5000

rem Make drone to mark a back position
make object sphere 3,10
hide object 3

rem Load 3D object and append walking data to it
LOAD OBJECT "Walk.x",1 : APPEND OBJECT "walk.x",1,100

rem Rotate and fix data so character faces right way
xrotate object 1,0
yrotate object 1,180
zrotate object 1,0
fix object pivot 1

X# = object position X(1)
Z# = object position Z(1)
Y# = Get ground height(1,X#,Z#)
Position object 1,X#,Y#,Z#

REM Gosub Controls
   gosub _Input
   gosub _UpdateCar
   gosub _UpdatePlayer
   gosub _UpdateCam

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 1,100,100,100
cammode = 0

do

rem movement

rem Modify character angle based on left/right keys
_UpdatePlayer:
 stage=0
 if upkey()=1 or keystate(17)
   x# = newxvalue(x#,wrapvalue(AngleY#),30)
   z# = newzvalue(z#,wrapvalue(AngleY#),30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif
 rem backward
   if downkey()=1 or keystate(31)
   x# = newxvalue(x#,wrapvalue(AngleY#),-30)
   z# = newzvalue(z#,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

rem left
 if leftkey()=1 or keystate(30)
 x# = newxvalue(x#,wrapvalue(AngleY#-90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#-90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

rem right
 if rightkey()=1 or keystate(32)
 x# = newxvalue(x#,wrapvalue(AngleY#+90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#+90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

rem Loop 3D object animation from 0 to 20 (idle)
 LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,40

rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF
 xMouse=mousemovex()
 yMouse=mousemovey()
 AngleY#=wrapvalue(AngleY#+xMouse)
 AngleX#=wrapvalue(AngleX#+yMouse)

Position object 1,x#,60,z#
 rotate object 1,AngleX#,AngleY#,0.025
 a#=wrapvalue(a#)

rem Player jumping
if controlkey()=1 and ajump=1
   jumpb=1
   height=60
endif
if jumpb=1
   height=height-1
   position object 1,object position x(1),object position y(1)+height,object position z(1)
endif
if object position y(1)>100 then ajump=0 else ajump=1
if object position y(1)<100
   position object 1,object position x(1),100,object position z(1)
   jump=0
   height=0
endif

Rem Check distance of player near empty Hover Tank
if (playerX#-carX#)^2+(playerZ#-carZ#)^2 <= 160
inVehicle = 1
Rem Place Player in Cockpit of Tank
playerx#=newxvalue(hovertankx#,hovertanka#,5.5)
playerz#=newzvalue(hovertankz#,hovertanka#,5.5)
playerx#=newxvalue(playerx#,wrapvalue(hovertanka#+90),0.5)
playerz#=newzvalue(playerz#,wrapvalue(hovertanka#+90),0.5)
position object 1,playerx#,realhovertanky#+4,riderz#
rotate object 1,wrapvalue((tilt#-(speed#/0.5))+8),hovertanka#,0
hide object 1
endif

rem load hovercraft object
load object "FCHovertank1.X", 2

rem Rotate and fix data so character faces right way
xrotate object 2,0
yrotate object 2,360
zrotate object 2,0
fix object pivot 2

X# = object position X(2)
Z# = object position Z(2)
Y# = Get ground height(1,X#,Z#)
Position object 2,x,200,y
AngleY# = 0.0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,200,200,200
cammode = 0

do
  rem movement
_UpdateCar:
if inVehicle = 1
  if joystick left()=1 then AngleY# = wrapvalue( AngleY# - 1.5 )
  if joystick right()=1 then AngleY# = wrapvalue( AngleY# + 1.5 )
  if joystick up()=1  then pitch object up 2, 5.5
  if joystick down()=1 then pitch object down 2,5.5

rem forwards
   if joystick slider a()=0 or upkey()=1 or keystate(17)
   x = newxvalue(x,wrapvalue(AngleY#),60)
   z = newzvalue(z,wrapvalue(AngleY#),60)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif
rem backwards
   if joystick slider a()=65535 or downkey()=1 or keystate(31)
   x = newxvalue(x,wrapvalue(AngleY#),-30)
   z = newzvalue(z,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

rem right
 if joystick twist z()=1000 or rightkey()=1 or keystate(32)
 x = newxvalue(x,wrapvalue(AngleY#+90),40)
 z = newzvalue(z,wrapvalue(AngleY#+90),40)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

rem left
 if joystick twist z()=-1000 or leftkey()=1 or keystate(30)
 x = newxvalue(x,wrapvalue(AngleY#-90),40)
 z = newzvalue(z,wrapvalue(AngleY#-90),40)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif
 Position object 2,x,100,z
 yrotate object 2,AngleY#

rem jumping
if controlkey()=1 or joystick fire x(5) and ajump=1
   jumpb=1
   height=350
endif
if jumpb=1
   height=height-1
   position object 2,object position x(2),object position y(2)+height,object position z(2)
endif
if object position y(2)>100 then ajump=0 else ajump=1
if object position y(2)<100
   position object 2,object position x(2),100,object position z(2)
   jump=0
   height=0
endif
  If InKey$() = "1" Then cammode = 1 : ` third person
  If InKey$() = "2" Then cammode = 0 : ` first person

if lookRight = 1 then turn camera right 90.0
     if lookLeft = 1  then turn camera left 90.0
     if lookUp = 1    then pitch camera up 45.0
     if lookBack = 1  then turn camera right 180.0
   else

REM Camera Controls
_UpdateCam:
   if inVehicle = 0
      if playerView = 0
         camX# = playerX#
         camY# = playerY# + 2.5
         camZ# = playerZ#
         camAngX# = playerAngX#
         camAngY# = playerAngY#
      else
         camX# = newxvalue(playerX#,wrapvalue(playerAngY#+180.0),25.0)
         camY# = newyvalue(playerY#,playerAngX#,-25.0)
         camZ# = newzvalue(playerZ#,wrapvalue(playerAngY#+180.0),25.0)
         camAngX# = playerAngX#
         camAngY# = playerAngY#
      endif
   else
      if playerView = 0
         camX# = playerX#
         camY# = playerY# + 2.5
         camZ# = playerZ#
         camAngX# = 0.0
         camAngY# = carAngY#
      else
         camX# = newxvalue(carX#,wrapvalue(carAngY#+180.0),25.0)
         camY# = newyvalue(playerY#,playerAngX#,-25.0)
         camZ# = newzvalue(carZ#,wrapvalue(carAngY#+180.0),25.0)
         camAngX# = playerAngX#
         camAngY# = carAngY#
      endif
   endif
   position camera camX#,camY#,camZ#
   rotate camera camAngX#,camAngY#,0.0
return

+ Code Snippet

Rem * Title  : Solar_Dominion_Test_Level_1
Rem * Author : Ian George
Rem * Date   : 11/11/04
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM  Solar Dominion Test Level 1a
REM  By Ian George aka Vampyre
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************
REM ***************************************************************************************

autocam off
hide mouse
sync rate 60
sync on

Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Randomize the matrix
randomize matrix 1,125
update matrix 1
X#=5000
Z#=5000

rem Make drone to mark a back position
make object sphere 3,10
hide object 3

rem Load 3D object and append walking data to it
LOAD OBJECT "Walk.x",1 : APPEND OBJECT "walk.x",1,100

rem Rotate and fix data so character faces right way
xrotate object 1,0
yrotate object 1,180
zrotate object 1,0
fix object pivot 1

X# = object position X(1)
Z# = object position Z(1)
Y# = Get ground height(1,X#,Z#)
Position object 1,X#,Y#,Z#

REM Gosub Controls
   gosub _Input
   gosub _UpdateCar
   gosub _UpdatePlayer
   gosub _UpdateCam



rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 1,100,100,100
cammode = 0

do


 rem movement

 rem Modify character angle based on left/right keys
_UpdatePlayer:
 stage=0
 if upkey()=1 or keystate(17)
   x# = newxvalue(x#,wrapvalue(AngleY#),30)
   z# = newzvalue(z#,wrapvalue(AngleY#),30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif
 rem backward
   if downkey()=1 or keystate(31)
   x# = newxvalue(x#,wrapvalue(AngleY#),-30)
   z# = newzvalue(z#,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

 rem left
 if leftkey()=1 or keystate(30)
 x# = newxvalue(x#,wrapvalue(AngleY#-90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#-90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

 rem right
 if rightkey()=1 or keystate(32)
 x# = newxvalue(x#,wrapvalue(AngleY#+90),30)
 z# = newzvalue(z#,wrapvalue(AngleY#+90),30)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

rem Loop 3D object animation from 0 to 20 (idle)
 LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,40

 rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF
 xMouse=mousemovex()
 yMouse=mousemovey()
 AngleY#=wrapvalue(AngleY#+xMouse)
 AngleX#=wrapvalue(AngleX#+yMouse)

 Position object 1,x#,60,z#
 rotate object 1,AngleX#,AngleY#,0.025
 a#=wrapvalue(a#)

rem Player jumping
if controlkey()=1 and ajump=1
   jumpb=1
   height=60
endif
if jumpb=1
   height=height-1
   position object 1,object position x(1),object position y(1)+height,object position z(1)
endif
if object position y(1)>100 then ajump=0 else ajump=1
if object position y(1)<100
   position object 1,object position x(1),100,object position z(1)
   jump=0
   height=0
endif

Rem Check distance of player near empty Hover Tank
if (playerX#-carX#)^2+(playerZ#-carZ#)^2 <= 160
inVehicle = 1
Rem Place Player in Cockpit of Tank
playerx#=newxvalue(hovertankx#,hovertanka#,5.5)
playerz#=newzvalue(hovertankz#,hovertanka#,5.5)
playerx#=newxvalue(playerx#,wrapvalue(hovertanka#+90),0.5)
playerz#=newzvalue(playerz#,wrapvalue(hovertanka#+90),0.5)
position object 1,playerx#,realhovertanky#+4,riderz#
rotate object 1,wrapvalue((tilt#-(speed#/0.5))+8),hovertanka#,0
hide object 1
endif

rem load hovercraft object
load object "FCHovertank1.X", 2


rem Rotate and fix data so character faces right way
xrotate object 2,0
yrotate object 2,360
zrotate object 2,0
fix object pivot 2

X# = object position X(2)
Z# = object position Z(2)
Y# = Get ground height(1,X#,Z#)
Position object 2,x,200,y
AngleY# = 0.0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,200,200,200
cammode = 0

do
  rem movement
_UpdateCar:
if inVehicle = 1
  if joystick left()=1 then AngleY# = wrapvalue( AngleY# - 1.5 )
  if joystick right()=1 then AngleY# = wrapvalue( AngleY# + 1.5 )
  if joystick up()=1  then pitch object up 2, 5.5
  if joystick down()=1 then pitch object down 2,5.5

rem forwards
   if joystick slider a()=0 or upkey()=1 or keystate(17)
   x = newxvalue(x,wrapvalue(AngleY#),60)
   z = newzvalue(z,wrapvalue(AngleY#),60)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif
rem backwards
   if joystick slider a()=65535 or downkey()=1 or keystate(31)
   x = newxvalue(x,wrapvalue(AngleY#),-30)
   z = newzvalue(z,wrapvalue(AngleY#),-30)
   If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
   Endif
   Endif

 rem right
 if joystick twist z()=1000 or rightkey()=1 or keystate(32)
 x = newxvalue(x,wrapvalue(AngleY#+90),40)
 z = newzvalue(z,wrapvalue(AngleY#+90),40)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif

 rem left
 if joystick twist z()=-1000 or leftkey()=1 or keystate(30)
 x = newxvalue(x,wrapvalue(AngleY#-90),40)
 z = newzvalue(z,wrapvalue(AngleY#-90),40)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
 X#=XTest#
 Z#=ZTest#
 Endif
 Endif
 Position object 2,x,100,z
 yrotate object 2,AngleY#

rem jumping
if controlkey()=1 or joystick fire x(5) and ajump=1
   jumpb=1
   height=350
endif
if jumpb=1
   height=height-1
   position object 2,object position x(2),object position y(2)+height,object position z(2)
endif
if object position y(2)>100 then ajump=0 else ajump=1
if object position y(2)<100
   position object 2,object position x(2),100,object position z(2)
   jump=0
   height=0
endif
  If InKey$() = "1" Then cammode = 1 : ` third person
  If InKey$() = "2" Then cammode = 0 : ` first person

     if lookRight = 1 then turn camera right 90.0
     if lookLeft = 1  then turn camera left 90.0
     if lookUp = 1    then pitch camera up 45.0
     if lookBack = 1  then turn camera right 180.0
   else

REM Camera Controls
_UpdateCam:
   if inVehicle = 0
      if playerView = 0
         camX# = playerX#
         camY# = playerY# + 2.5
         camZ# = playerZ#
         camAngX# = playerAngX#
         camAngY# = playerAngY#
      else
         camX# = newxvalue(playerX#,wrapvalue(playerAngY#+180.0),25.0)
         camY# = newyvalue(playerY#,playerAngX#,-25.0)
         camZ# = newzvalue(playerZ#,wrapvalue(playerAngY#+180.0),25.0)
         camAngX# = playerAngX#
         camAngY# = playerAngY#
      endif
   else
      if playerView = 0
         camX# = playerX#
         camY# = playerY# + 2.5
         camZ# = playerZ#
         camAngX# = 0.0
         camAngY# = carAngY#
      else
         camX# = newxvalue(carX#,wrapvalue(carAngY#+180.0),25.0)
         camY# = newyvalue(playerY#,playerAngX#,-25.0)
         camZ# = newzvalue(carZ#,wrapvalue(carAngY#+180.0),25.0)
         camAngX# = playerAngX#
         camAngY# = carAngY#
      endif
   endif
   position camera camX#,camY#,camZ#
   rotate camera camAngX#,camAngY#,0.0
return

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 30th Dec 2004 05:15

Link

Well.. I'm not the best person to be asking about this.. but this is my take on the situation.

(I havent read the code), but if it's in 3d this is how i'd do it(assuming i had the time on my hands...

I would place say, 4 different hidden boxes around the car. If the character ran up to the car and was touching the left box, the animation for entering the vehicle from the left side would play..

Also, if he touched any of the boxes and say the e button was pressed, so the code would look something like..
for x = 1 to carboxes
if object collision(player,carboxes) and inputkey$ = "E"
Change into vehicle mode
endif

Something like that, not sure if it will help you, but it might open your mind to a new way of doing it.

Good luck

WindowsXP Home(Service pack 2), Athlon XP 2400+(2.1Ghz), 1GIG Ram, Ati Radeon 9800Pro 128MB.

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 30th Dec 2004 06:16

Link

Thanks Merix , I might have to start looking at it that way also I would like to do it where the player or a.i just get into the vehicle and drive or fly off so having 2 types of getting into and out of a vehicle.

Sorry that I have asked this yet again forum but I am really stuck on this part.

Back to top

Profile PM

DeHonCha

20

Years of Service

User Offline

Joined: 2nd Dec 2004

Location: A world of my own...

Posted: 6th Jan 2005 00:26

Link

bear with me vamp - i'm taking your matter seriously

cuz i had the same problem a few years ago (when darkbasic was at its version less than 1.0 stage

). i'll post this forum soon when i can.

For when they said I couldn't, I did...

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 17th Jan 2005 15:03 Edited at: 17th Jan 2005 15:05

Link

Thanks DeHonCha I really need help with this as I have almost everything ready except the friendly and enemy A.I but the vehicles are ready in 1st and 3rd person

Sorry that it took so long to post a reply.

Back to top

Profile PM

DeHonCha

20

Years of Service

User Offline

Joined: 2nd Dec 2004

Location: A world of my own...

Posted: 28th Jan 2005 20:59

Link

sorry for late post - my connection's all messed up = late post = slow help = um....

so - u need to have a player enter a vehicle when he's near it right?

For when they said I couldn't, I did...

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 16th Feb 2005 22:51 Edited at: 16th Feb 2005 22:53

Link

Sorry for late post DeHonCha

yeah, thats right the player enters the vehicle (if it is empty and then the player or a.i driver/pilot can drive the car hovercraft or fly the air/spaceplane.

If I can have your email address or you can email me at [email protected] then we can dicuss this better rather than replying to each other months later LOL

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 19th May 2005 01:35 Edited at: 20th May 2005 06:48

Link

DeHonCha, did you managed to solve the in and out of vehicles thing as I really need help with htis and most of my vehicles for my game are ready.

Please help someone

Back to top

Profile PM

jlb1987

20

Years of Service

User Offline

Joined: 10th May 2005

Location:

Posted: 19th May 2005 18:53

Link

hey. Mind if I interfer in this thread? I also really need to know how to do this incase I decide to turn one of my game ideas into practics in a couple of weeks. (the game idea I have is still just an idea, unfortuently). I'm going to have a look for a thread on this now, but I fear that nothing will come up. Here goes...

"We dads have a saying- You can't fix it 'til you've broken it." Brian Johnson.

Back to top

Profile PM Email

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 28th May 2005 00:14

Link

Fell free jib1987 I just want to know how you get in and out of vehicles using models as I know how to do it with just shapes but I want to know how to do it it with modela and how to have it so that you don't need a use key and one that you do need a use key

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Hi really need help