equal
deleted
inserted
replaced
46 end; |
46 end; |
47 |
47 |
48 with CurrentHedgehog^ do |
48 with CurrentHedgehog^ do |
49 if Gear <> nil then |
49 if Gear <> nil then |
50 if BotLevel <> 0 then |
50 if BotLevel <> 0 then |
51 begin |
51 StopMessages(Gear^.Message); |
52 if (Gear^.Message and gm_Left) <> 0 then ParseCommand('-left', true); |
|
53 if (Gear^.Message and gm_Right) <> 0 then ParseCommand('-right', true); |
|
54 end; |
|
55 |
52 |
56 BestActions.Count:= 0; |
53 BestActions.Count:= 0; |
57 BestActions.Pos:= 0 |
54 BestActions.Pos:= 0 |
58 end; |
55 end; |
59 |
56 |