battle of smielys

var constr_front_left;
var constr_front_right;

var constr_back_left;
var constr_back_right;

VECTOR mom_speed;
var max_angle;
var stear_contr;

var max_speed = 1500;
var ang_force;
var speed_contr;

function mass()
{
pXent_setmass(my,60);
pXent_setfriction (my, 100);
pXent_setdamping (my, 20, 20);
pXent_setelasticity (my,20);
}

action warthdog()
{
pXent_settype(my,PH_RIGID,PH_CONVEX);
pXent_setmass (my, 15);

pXent_setfriction (my, 20);
pXent_setdamping (my, 5, 5);
pXent_setelasticity (my, 10);

ENTITY* constr_front_left = ent_create("tire.mdl",vector(my.x+75,my.y-45,my.z-10),mass);
ENTITY* constr_front_right = ent_create("tire.mdl",vector(my.x+75,my.y+45,my.z-10),mass);
ENTITY* constr_back_left = ent_create("tire.mdl",vector(my.x-70,my.y-45,my.z-10),mass);
ENTITY* constr_back_right = ent_create("tire.mdl",vector(my.x-70,my.y+45,my.z-10),mass);
pXcon_add ( PH_WHEEL, constr_front_left, my, 0 );
pXcon_add ( PH_WHEEL, constr_front_right, my, 0 );
pXcon_add ( PH_WHEEL, constr_back_left, my, 0 );
pXcon_add ( PH_WHEEL, constr_back_right, my, 0 );
while(1)
{
stear_contr = (key_d - key_a);
max_angle += stear_contr * 3 * time_step;
max_angle = clamp (max_angle, -30, 30);
if (stear_contr != 0)
{
pXcon_setparams2 (constr_front_left, vector (max_angle, max_angle, 0), nullvector, vector (95000, 500, 0));
pXcon_setparams2 (constr_front_right, vector (max_angle, max_angle, 0), nullvector, vector (95000, 500, 0));
}
else
{
max_angle = max_angle * (1 - (0.25 * time_step));
if (abs(max_angle) < 1)
max_angle = 0;
pXcon_setparams2 (constr_front_left, vector (max_angle, max_angle, 0), nullvector, vector (95000, 500, 0));
pXcon_setparams2 (constr_front_right, vector (max_angle, max_angle, 0), nullvector, vector (95000, 500, 0));
}
speed_contr = (key_w - key_s);
ang_force = speed_contr * 1000 * time_step;

pXcon_setmotor(constr_back_left, vector(-ang_force, max_speed, 0), nullvector);
pXcon_setmotor(constr_back_right, vector(-ang_force, max_speed, 0), nullvector);
wait(1);
}
}
}

function mass()
{
while(you)
{
pXent_setmass(my,60);
pXent_setfriction (my, 100);
pXent_setdamping (my, 20, 20);
pXent_setelasticity (my,20);
//pXent_addforcecentral (my,vector(0,0,2000));
wait(1);
}
pXent_addvelcentral(my,vector(-2000 + random(4000),-2000 + random(4000),2000 + random(4000)));
pXent_settype(my,PH_RIGID,PH_CONVEX);
wait(-20);
ent_remove(my);
}

action warthdog()
{
c_setminmax(my);

pXent_settype(my,PH_RIGID,PH_CONVEX);
pXent_setmass (my, 15);

pXent_setfriction (my, 20);
pXent_setdamping (my, 5, 5);
pXent_setelasticity (my, 10);

ENTITY* FLwheel = ent_create("tire.mdl",vector(my.x+75,my.y-45,my.z-20),mass);
ENTITY* FRwheel = ent_create("tire.mdl",vector(my.x+75,my.y+45,my.z-20),mass);
ENTITY* BLwheel = ent_create("tire.mdl",vector(my.x-70,my.y-45,my.z-20),mass);
ENTITY* BRwheel = ent_create("tire.mdl",vector(my.x-70,my.y+45,my.z-20),mass);
pXcon_add ( PH_WHEEL, FLwheel, my, 0 );
pXcon_add ( PH_WHEEL, FRwheel, my, 0 );
pXcon_add ( PH_WHEEL, BLwheel, my, 0 );
pXcon_add ( PH_WHEEL, BRwheel, my, 0 );
pXcon_setparams2 (FLwheel, NULL, vector(62, 100, 0), vector(500, 100, 4));
pXcon_setparams2 (FRwheel, NULL, vector(62, 100, 0), vector(500, 100, 4));
pXcon_setparams2 (BLwheel, NULL, vector(150, 300, 0), vector(500, 100, 4));
pXcon_setparams2 (BRwheel, NULL, vector(150, 300, 0), vector(500, 100, 4));

while(1)
{
var speed=0;
var lenk=0;

speed=clamp(speed,-10000,10000);
lenk=clamp(lenk,-45,45);

if(key_w)
{
speed-=1000;
}
else
if(key_w==0)
speed+=1000;

if(key_s)
{
speed+=1000;
}

if(key_a)
{
lenk-=5;
}

if(key_d)
{
lenk+=5;
}

pXcon_setwheel (FLwheel,lenk,0,0);
pXcon_setwheel (FRwheel,lenk,0,0);
pXcon_setwheel (BLwheel,0,speed,0);
pXcon_setwheel (BRwheel,0,speed,0);

pXent_addvelcentral(my,vector(0,0,-10));

if(key_shift)
{
pXcon_setwheel (BLwheel,0,0,5000);
pXcon_setwheel (BRwheel,0,0,5000);
}
}
wait(1);
}
}

for (you = ent_next(NULL); you != NULL; you = ent_next(you))
{
if ((you != my) && (you.entity_typ == 3))
{
set(you,INVISIBLE);
}
else
{
reset(my,INVISIBLE);
}
}