Arkheli I tried to adapt your code using a car model from Dark Basic aas I wish to use ready made models and not make them in Dark Basic Classic but I am having quite a lot of trouble doing it
Here is what I am trying to you
sync rate 0
hide mouse
autocam off
REM Variables
player = 1
car = 2
REM load objects
load object "CAR34.X", 1
REM Make Objects
make object cylinder player,1
REM Variable Mesurements
carX# = 150.0
carY# = 3.0
carZ# = 150.0
carAngY# = 0.0
playerX# = 50.0
playerY# = 3.0
playerZ# = 50.0
playerAngX# = 0.0
playerAngY# = 45.0
camX# = 0.0
camY# = 0.0
camZ# = 0.0
camAngX# = 0.0
camAngY# = 0.0
REM Invehicle and Player View Control
inVehicle = 0
playerView = 0
do
gosub _Input
gosub _UpdateCar
gosub _UpdatePlayer
gosub _UpdateCam
sync
loop
_Input:
if controlkey()
if oldctrl = 0
ctrl = 1
else
ctrl = 0
endif
oldctrl = 1
else
oldctrl = 0
ctrl = 0
endif
if keystate(47)
if oldv = 0
v = 1
else
v = 0
endif
oldv = 1
else
oldv = 0
v = 0
endif
if v = 1
if playerView = 0 then playerView = 1 else playerView = 0
endif
return
REM Player Controls
_UpdatePlayer:
if inVehicle = 0
playerAngX# = wrapvalue(playerAngX# + mousemovey()*0.25)
playerAngY# = wrapvalue(playerAngY# + mousemovex()*0.25)
if keystate(17)
playerX# = newxvalue(playerX#,playerAngY#,1.0)
playerZ# = newzvalue(playerZ#,playerAngY#,1.0)
endif
if keystate(31)
playerX# = newxvalue(playerX#,playerAngY#,-1.0)
playerZ# = newzvalue(playerZ#,playerAngY#,-1.0)
endif
if keystate(30)
playerX# = newxvalue(playerX#,wrapvalue(playerAngY#-90.0),1.0)
playerZ# = newzvalue(playerZ#,wrapvalue(playerAngY#-90.0),1.0)
endif
if keystate(32)
playerX# = newxvalue(playerX#,wrapvalue(playerAngY#+90.0),1.0)
playerZ# = newzvalue(playerZ#,wrapvalue(playerAngY#+90.0),1.0)
endif
playerY# = 3.0
else
playerAngX# = wrapvalue(playerAngX# + mousemovey()*0.25)
playerAngY# = carAngY#
playerX# = newxvalue(carX#,wrapvalue(carAngY#-45.0),3.0)
playerZ# = newzvalue(carZ#,wrapvalue(carAngY#-45.0),3.0)
playerY# = 5.0
endif
position object player,playerX#,playerY#,playerZ#
rotate object player,0.0,playerAngY#,0.0
return
REM Car Controls
_UpdateCar:
if inVehicle = 1
if keystate(17)
carX# = newxvalue(carX#,carAngY#,2.0)
carZ# = newzvalue(carZ#,carAngY#,2.0)
endif
if keystate(31)
carX# = newxvalue(carX#,carAngY#,-1.5)
carZ# = newzvalue(carZ#,carAngY#,-1.5)
endif
if keystate(30)
carAngY# = wrapvalue(carAngY#-2.0)
endif
if keystate(32)
carAngY# = wrapvalue(carAngY#+2.0)
endif
if ctrl = 1
inVehicle = 0
playerX# = newxvalue(carX#,wrapvalue(carAngY#-90.0),12.0)
endif
else
if ctrl = 1
if (playerX#-carX#)^2+(playerZ#-carZ#)^2 <= 160
inVehicle = 1
endif
endif
endif
position object car,carX#,carY#,carZ#
rotate object car,carAngX#,carAngY#,carAngZ#
position object windshield,newxvalue(carX#,carAngY#,5.0),8.0-(sqrt(2.0)/2.0),newzvalue(carZ#,carAngY#,5.0)
rotate object windshield,150.0,carAngY#,0.0
return
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
Can you help and can you do a version where the player charector attaches to the car without a key lock and one version that does have a key lock? Please?
