equal
deleted
inserted
replaced
91 if (Action.Action and ai_specmask) = 0 then |
91 if (Action.Action and ai_specmask) = 0 then |
92 WriteLnToConsole('AI action: '+ActionIdToStr[Action.Action]) |
92 WriteLnToConsole('AI action: '+ActionIdToStr[Action.Action]) |
93 else begin |
93 else begin |
94 WriteLnToConsole('AI action: '+SpecActionIdToStr[Action.Action]); |
94 WriteLnToConsole('AI action: '+SpecActionIdToStr[Action.Action]); |
95 if (Action.Action = aia_WaitXL) or (Action.Action = aia_WaitXR) then |
95 if (Action.Action = aia_WaitXL) or (Action.Action = aia_WaitXR) then |
96 WriteLnToConsole('AI action Wait X = '+inttostr(Action.Param)+', current X = '+inttostr(hwRound(Me^.X))); |
96 WriteLnToConsole('AI action Wait X = '+inttostr(Action.Param)+', current X = '+inttostr(hwRound(Me^.X))) |
|
97 else if (Action.Action = aia_AwareExpl) then WriteLnToConsole('Aware X = ' + inttostr(Action.X) + ', Y = ' + inttostr(Action.Y)); |
97 end |
98 end |
98 end; |
99 end; |
99 {$ENDIF} |
100 {$ENDIF} |
100 |
101 |
101 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt); |
102 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt); |