[Randomize]

На добром слове спасибо конешно, но я нетакой... эм... любитель потыкать)
Приведу сорец чтоли...

'_input buttons			
		Local mbUP%    = KeyDown(KEY_UP) + KeyDown(KEY_W) 
		Local mbDown% = KeyDown(KEY_DOWN) + KeyDown(KEY_S)	
		Local mbLeft%    = KeyDown(KEY_LEFT) + KeyDown(KEY_A) 
		Local mbRight%  = KeyDown(KEY_RIGHT) + KeyDown(KEY_D) 	
		'_actions
		If (mbUP+mbDown+mbLeft+mbRight)=2
			If(mbRight And mbDown) dest_angle = 45    ; x:+ speed ; y:+ speed
			If(mbDown And mbLeft)   dest_angle = 135  ; y:+ speed ; x:-speed	
			If(mbLeft And mbUP)       dest_angle = 180 ; x:- speed ; y:-speed
			If(mbUP And mbRight)     dest_angle=270;y:- speed;x:+speed		
		ElseIf (mbUP+mbDown+mbLeft+mbRight)=1
			If(mbRight)  dest_angle = 0 ; x:+ speed
			If(mbDown) dest_angle=90; y:+ speed
			If(mbLeft)    dest_angle=180x:- speed
			If(mbUP)     dest_angle=270y:- speed	
		EndIf
		If (mbUP+mbDown+mbLeft+mbRight)<>0 Then wheel1_pos:+ 1 ; wheel2_pos:+ 1
		If NearlyEqual%(angle , 360, 1) Then angle=0
		angle=CurveAngle(dest_angle,angle,smooth#)