Code: Select all
turna = GetAngle (x,y,bx,by)
If turna = Not 0 Then
If turna >270 Then
If bdirection + 3>360 Then bdirection = 3 Else bdirection = bdirection + (bspeed*2)
EndIf
If turna >0 And turna <270 Then
If bdirection - 3<0 Then bdirection = 357 Else bdirection = bdirection - (bspeed*2)
EndIf
EndIf
Text 0,36,turna