equal
deleted
inserted
replaced
154 end |
154 end |
155 end; |
155 end; |
156 |
156 |
157 procedure ProcessBot; |
157 procedure ProcessBot; |
158 begin |
158 begin |
159 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do |
159 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do //HACK: v--- temp hack to make AI work |
160 if (Gear <> nil)and((Gear.State and gstHHDriven) <> 0) then |
160 if (Gear <> nil)and((Gear.State and gstHHDriven) <> 0) and (TurnTimeLeft < 29990) then |
161 begin |
161 begin |
162 if IsActionListEmpty then Think; |
162 if IsActionListEmpty then Think; |
163 ProcessAction |
163 ProcessAction |
164 end |
164 end |
165 end; |
165 end; |