equal
deleted
inserted
replaced
124 TryDo(Count < MAXACTIONS, 'AI: actions overflow', true); |
124 TryDo(Count < MAXACTIONS, 'AI: actions overflow', true); |
125 end |
125 end |
126 end; |
126 end; |
127 |
127 |
128 procedure CheckHang(Me: PGear); |
128 procedure CheckHang(Me: PGear); |
129 const PrevX: LongInt = 0; |
|
130 timedelta: Longword = 0; |
|
131 begin |
129 begin |
132 if hwRound(Me^.X) <> PrevX then |
130 if hwRound(Me^.X) <> PrevX then |
133 begin |
131 begin |
134 PrevX:= hwRound(Me^.X); |
132 PrevX:= hwRound(Me^.X); |
135 timedelta:= 0 |
133 timedelta:= 0 |