Вопрос возник в следующем .
Ситуация . Едет машинка, натыкается на препятствие, это препятствие она должна объехать и поехать дальше.
Func Moving ()
Local $i
$i=0
while $Speed <> 0
if speed () = 0
Sleep (250)
MoveLeft () ; функция поворота на небольшой угол налево
MoveForward (2) ; движение вперед .
$i = $i + 1
ElseIf MoveForward (3) ; движение вперед быстрее
EndIf
if $i >= 6 Then
for $k = 1 to $i+1 Step 1
MoveRight () ; соответственно поворот вправо .
Sleep (250)
Next
EndIf
Sleep (1000)
Send ("S")
WEnd
EndFunc
Ситуация . Едет машинка, натыкается на препятствие, это препятствие она должна объехать и поехать дальше.
Func Moving ()
Local $i
$i=0
while $Speed <> 0
if speed () = 0
Sleep (250)
MoveLeft () ; функция поворота на небольшой угол налево
MoveForward (2) ; движение вперед .
$i = $i + 1
ElseIf MoveForward (3) ; движение вперед быстрее
EndIf
if $i >= 6 Then
for $k = 1 to $i+1 Step 1
MoveRight () ; соответственно поворот вправо .
Sleep (250)
Next
EndIf
Sleep (1000)
Send ("S")
WEnd
EndFunc