I think i m some "kinda back" - i really think we should have a im service or irc chat to swap data and ideas
also we should recode it - i developed sum nice stuff allready:
global PlayerHealth
ShowHud:
if PlayerHealth > 100 then PlayerHealth = 100
if PlayerHealth < 0 then PlayerHealth = 0
box 100-2,100-2,220+2,110+2,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
box 100-2,100-2,220+2,110+2,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
box 100,100,220,110,rgb(255,0,0),rgb(255,0,0),rgb(0,255,0),rgb(0,255,0)
box 100 + (PlayerHealth * 1.2),100,220,110,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
return
Rem ----------------------------------------------------------
Function CreateCar(CarID as integer, CarColorR as integer,CarColorG as integer,CarColorB as integer,X as float,Y as float,Z as float)
inc CurrentCarID
CarTexture = free_image()
load image "media/cars/" + CarName(CarID) + ".bmp",CarTexture
CarObject = free_object()
load object "media/cars/" + CarName(CarID) + ".x",CarObject
texture object CarObject,CarTexture
set object diffuse CarObject,rgb(CarColorR,CarColorG,CarColorB)
Position object CarObject,x,y,z
endfunction CurrentCarID
Rem ----------------------------------------------------------
Rem do aiming
RotY = RotY + MouseMovex()
RotX = RotX + MouseMovey()*0.75
PlayerHealth = PlayerHealth + mousemovez()
if RotX => 10 then RotX = 10
if RotX <= -10 then RotX = -10
rotate object PlayerObject,0,RotY,0
position camera object position x(PlayerObject) + ((sin(object angle y(PlayerObject)) * 50) * (2.5-(abs(RotX) / 5))) ,object position y(PlayerObject) + 50 + (RotX * 10), object position z(PlayerObject) + ((cos(object angle y(PlayerObject)) * 50) * (2.5-(abs(RotX) / 5)))
point camera object position x(PlayerObject), object position y(PlayerObject)+50, object position z(PlayerObject)
//Edit
forgot the car loader :$
its crapy - so we should do onfoot part first - then move to the car part...
It's me...
