// ball.wdl 2008-12-09
function main {
	level_load("ball.wmb");
	wait(3);
}
var earthgravity[3]=0,0,-386;

entity* ball_ent;
action ball_act{
	my.polygon=on;
	
	var earthgravity[3] = 0,0, -386;
	ball_ent=me;
	while(me==null){wait(1);}
	var start_pos_tmo;
	phent_settype ( me, PH_RIGID, 0 );

	phent_settype ( me, 0, 0 );
	ph_setgravity( earthgravity );
	phent_settype ( me, PH_RIGID, PH_box );	
	move_car_func();
}

function move_car_func{
	var tmp;
	while(1){
		wait(time);
		if(key_cul){earthgravity.x-=10;wait(5);}
		if(key_cur){earthgravity.x+=10;wait(5);}
		phent_setmass(me, 25, PH_SPHERE);
		ph_setgravity( earthgravity );
		phent_setfriction(my, 10);

		if(key_0){phent_enable( me, 0 );}
		if(key_1){phent_enable( me, 1 );}
		
	}
}