author | unc0rr |
Sun, 26 Nov 2006 20:33:46 +0000 | |
changeset 279 | 5df0ab96b60a |
parent 250 | d7f744a9bf28 |
child 295 | 8834f3cb620e |
permissions | -rw-r--r-- |
4 | 1 |
(* |
2 |
* Hedgewars, a worms-like game |
|
51 | 3 |
* Copyright (c) 2005, 2006 Andrey Korotaev <unC0Rr@gmail.com> |
4 | 4 |
* |
183 | 5 |
* This program is free software; you can redistribute it and/or modify |
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
4 | 8 |
* |
183 | 9 |
* This program is distributed in the hope that it will be useful, |
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
4 | 13 |
* |
183 | 14 |
* You should have received a copy of the GNU General Public License |
15 |
* along with this program; if not, write to the Free Software |
|
16 |
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
|
4 | 17 |
*) |
18 |
||
19 |
unit uAI; |
|
20 |
interface |
|
21 |
{$INCLUDE options.inc} |
|
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
22 |
procedure ProcessBot(FrameNo: Longword); |
64 | 23 |
procedure FreeActionsList; |
4 | 24 |
|
25 |
implementation |
|
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
26 |
uses uTeams, uConsts, SDLh, uAIMisc, uGears, uAIAmmoTests, uAIActions, uMisc, |
196 | 27 |
uAIThinkStack; |
4 | 28 |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
29 |
var BestActions: TActions; |
75 | 30 |
CanUseAmmo: array [TAmmoType] of boolean; |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
31 |
AIThinkStart: Longword; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
32 |
isThinking: boolean = false; |
4 | 33 |
|
64 | 34 |
procedure FreeActionsList; |
35 |
begin |
|
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
36 |
isThinking:= false; |
64 | 37 |
BestActions.Count:= 0; |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
38 |
BestActions.Pos:= 0 |
64 | 39 |
end; |
4 | 40 |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
41 |
procedure TestAmmos(var Actions: TActions; Me: PGear); |
136 | 42 |
var Time, BotLevel: Longword; |
71 | 43 |
Angle, Power, Score, ExplX, ExplY, ExplR: integer; |
64 | 44 |
i: integer; |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
45 |
a, aa: TAmmoType; |
4 | 46 |
begin |
136 | 47 |
BotLevel:= PHedgehog(Me.Hedgehog).BotLevel; |
48 |
||
64 | 49 |
for i:= 0 to Pred(Targets.Count) do |
80 | 50 |
if (Targets.ar[i].Score >= 0) then |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
51 |
begin |
75 | 52 |
with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do |
53 |
a:= Ammo[CurSlot, CurAmmo].AmmoType; |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
54 |
aa:= a; |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
55 |
repeat |
75 | 56 |
if CanUseAmmo[a] then |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
57 |
begin |
136 | 58 |
Score:= AmmoTests[a](Me, Targets.ar[i].Point, BotLevel, Time, Angle, Power, ExplX, ExplY, ExplR); |
139 | 59 |
if Actions.Score + Score > BestActions.Score then |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
60 |
begin |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
61 |
BestActions:= Actions; |
136 | 62 |
inc(BestActions.Score, Score); |
194 | 63 |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
64 |
AddAction(BestActions, aia_Weapon, Longword(a), 500); |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
65 |
if Time <> 0 then AddAction(BestActions, aia_Timer, Time div 1000, 400); |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
66 |
if (Angle > 0) then AddAction(BestActions, aia_LookRight, 0, 200) |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
67 |
else if (Angle < 0) then AddAction(BestActions, aia_LookLeft, 0, 200); |
83 | 68 |
if (Ammoz[a].Ammo.Propz and ammoprop_NoCrosshair) = 0 then |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
69 |
begin |
83 | 70 |
Angle:= integer(Me.Angle) - Abs(Angle); |
71 |
if Angle > 0 then |
|
72 |
begin |
|
73 |
AddAction(BestActions, aia_Up, aim_push, 500); |
|
74 |
AddAction(BestActions, aia_Up, aim_release, Angle) |
|
75 |
end else if Angle < 0 then |
|
76 |
begin |
|
77 |
AddAction(BestActions, aia_Down, aim_push, 500); |
|
78 |
AddAction(BestActions, aia_Down, aim_release, -Angle) |
|
79 |
end |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
80 |
end; |
70 | 81 |
AddAction(BestActions, aia_attack, aim_push, 800); |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
82 |
AddAction(BestActions, aia_attack, aim_release, Power); |
71 | 83 |
if ExplR > 0 then |
84 |
AddAction(BestActions, aia_AwareExpl, ExplR, 10, ExplX, ExplY); |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
85 |
end |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
86 |
end; |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
87 |
if a = High(TAmmoType) then a:= Low(TAmmoType) |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
88 |
else inc(a) |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
89 |
until (a = aa) or (PHedgehog(Me.Hedgehog).AttacksNum > 0) |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
90 |
end |
64 | 91 |
end; |
4 | 92 |
|
64 | 93 |
procedure Walk(Me: PGear); |
80 | 94 |
const FallPixForBranching = cHHRadius * 2 + 8; |
75 | 95 |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
96 |
var Actions: TActions; |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
97 |
ticks, maxticks, steps, BotLevel: Longword; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
98 |
BaseRate, Rate: integer; |
75 | 99 |
GoInfo: TGoInfo; |
80 | 100 |
CanGo: boolean; |
101 |
AltMe: TGear; |
|
64 | 102 |
begin |
136 | 103 |
BotLevel:= PHedgehog(Me.Hedgehog).BotLevel; |
75 | 104 |
|
136 | 105 |
if (Me.State and gstAttacked) = 0 then maxticks:= max(0, TurnTimeLeft - 5000 - 4000 * BotLevel) |
75 | 106 |
else maxticks:= TurnTimeLeft; |
107 |
||
194 | 108 |
BaseRate:= RatePlace(Me); |
75 | 109 |
|
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
110 |
repeat |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
111 |
if not Pop(ticks, Actions, Me^) then |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
112 |
begin |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
113 |
isThinking:= false; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
114 |
exit |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
115 |
end; |
193 | 116 |
|
194 | 117 |
AddAction(Actions, Me.Message, aim_push, 10); |
193 | 118 |
if (Me.Message and gm_Left) <> 0 then AddAction(Actions, aia_WaitXL, round(Me.X), 0) |
119 |
else AddAction(Actions, aia_WaitXR, round(Me.X), 0); |
|
75 | 120 |
AddAction(Actions, Me.Message, aim_release, 0); |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
121 |
steps:= 0; |
194 | 122 |
if ((Me.State and gstAttacked) = 0) then TestAmmos(Actions, Me); |
82 | 123 |
|
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
124 |
while not PosInThinkStack(Me) do |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
125 |
begin |
80 | 126 |
CanGo:= HHGo(Me, @AltMe, GoInfo); |
75 | 127 |
inc(ticks, GoInfo.Ticks); |
128 |
if ticks > maxticks then break; |
|
194 | 129 |
|
136 | 130 |
if (BotLevel < 5) and (GoInfo.JumpType = jmpHJump) then // hjump support |
80 | 131 |
if Push(ticks, Actions, AltMe, Me^.Message) then |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
132 |
with ThinkStack.States[Pred(ThinkStack.Count)] do |
80 | 133 |
begin |
134 |
AddAction(MadeActions, aia_HJump, 0, 305); |
|
135 |
AddAction(MadeActions, aia_HJump, 0, 350); |
|
250 | 136 |
if (Me.dX < 0) then AddAction(MadeActions, aia_WaitXL, round(AltMe.X), 0) |
137 |
else AddAction(MadeActions, aia_WaitXR, round(AltMe.X), 0); |
|
80 | 138 |
end; |
136 | 139 |
if (BotLevel < 3) and (GoInfo.JumpType = jmpLJump) then // ljump support |
80 | 140 |
if Push(ticks, Actions, AltMe, Me^.Message) then |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
141 |
with ThinkStack.States[Pred(ThinkStack.Count)] do |
250 | 142 |
begin |
80 | 143 |
AddAction(MadeActions, aia_LJump, 0, 305); |
250 | 144 |
if (Me.dX < 0) then AddAction(MadeActions, aia_WaitXL, round(AltMe.X), 0) |
145 |
else AddAction(MadeActions, aia_WaitXR, round(AltMe.X), 0); |
|
146 |
end; |
|
144 | 147 |
|
80 | 148 |
if not CanGo then break; |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
149 |
inc(steps); |
75 | 150 |
Actions.actions[Actions.Count - 2].Param:= round(Me.X); |
70 | 151 |
Rate:= RatePlace(Me); |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
152 |
if Rate > BaseRate then |
70 | 153 |
begin |
154 |
BestActions:= Actions; |
|
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
155 |
BestActions.Score:= 1; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
156 |
isThinking:= false; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
157 |
exit |
70 | 158 |
end |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
159 |
else if Rate < BaseRate then break; |
193 | 160 |
if GoInfo.FallPix >= FallPixForBranching then |
161 |
Push(ticks, Actions, Me^, Me^.Message xor 3); // aia_Left xor 3 = aia_Right |
|
162 |
||
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
163 |
if ((Me.State and gstAttacked) = 0) |
194 | 164 |
and ((steps mod 4) = 0) then |
165 |
begin |
|
166 |
if SDL_GetTicks - AIThinkStart > 3 then |
|
167 |
begin |
|
168 |
dec(Actions.Count, 3); |
|
169 |
Push(ticks, Actions, Me^, Me^.Message); |
|
170 |
exit |
|
171 |
end; |
|
172 |
TestAmmos(Actions, Me) |
|
173 |
end |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
174 |
end; |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
175 |
until false |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
176 |
end; |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
177 |
|
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
178 |
procedure Think(Me: PGear); |
74 | 179 |
var BackMe, WalkMe: TGear; |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
180 |
begin |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
181 |
AIThinkStart:= SDL_GetTicks; |
74 | 182 |
BackMe:= Me^; |
183 |
WalkMe:= BackMe; |
|
184 |
if (Me.State and gstAttacked) = 0 then |
|
185 |
if Targets.Count > 0 then |
|
186 |
begin |
|
187 |
Walk(@WalkMe); |
|
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
188 |
if not isThinking then |
146 | 189 |
begin |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
190 |
if BestActions.Score < -1023 then |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
191 |
begin |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
192 |
BestActions.Count:= 0; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
193 |
AddAction(BestActions, aia_Skip, 0, 250); |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
194 |
end; |
194 | 195 |
Me.State:= Me.State and not gstHHThinking |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
196 |
end |
80 | 197 |
end else |
74 | 198 |
else begin |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
199 |
FillBonuses(true); |
193 | 200 |
Walk(@WalkMe); |
201 |
AddAction(BestActions, aia_Wait, GameTicks + 100, 100); |
|
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
202 |
end |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
203 |
end; |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
204 |
|
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
205 |
procedure StartThink(Me: PGear); |
75 | 206 |
var a: TAmmoType; |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
207 |
tmp: integer; |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
208 |
begin |
70 | 209 |
if ((Me.State and gstAttacking) <> 0) or isInMultiShoot then exit; |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
210 |
ThinkingHH:= Me; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
211 |
isThinking:= true; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
212 |
|
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
213 |
ClearThinkStack; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
214 |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
215 |
Me.State:= Me.State or gstHHThinking; |
144 | 216 |
Me.Message:= 0; |
70 | 217 |
FillTargets; |
80 | 218 |
if Targets.Count = 0 then |
219 |
begin |
|
220 |
OutError('AI: no targets!?'); |
|
221 |
exit |
|
222 |
end; |
|
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
223 |
|
70 | 224 |
FillBonuses((Me.State and gstAttacked) <> 0); |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
225 |
|
75 | 226 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
227 |
CanUseAmmo[a]:= Assigned(AmmoTests[a]) and HHHasAmmo(PHedgehog(Me.Hedgehog), a); |
|
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
228 |
|
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
229 |
BestActions.Count:= 0; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
230 |
BestActions.Pos:= 0; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
231 |
BestActions.Score:= 0; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
232 |
tmp:= random(2) + 1; |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
233 |
Push(0, BestActions, Me^, tmp); |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
234 |
Push(0, BestActions, Me^, tmp xor 3); |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
235 |
BestActions.Score:= Low(integer); |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
236 |
|
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
237 |
Think(Me) |
4 | 238 |
end; |
239 |
||
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
240 |
procedure ProcessBot(FrameNo: Longword); |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
241 |
const LastFrameNo: Longword = 0; |
4 | 242 |
begin |
64 | 243 |
with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
244 |
if (Gear <> nil) |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
245 |
and ((Gear.State and gstHHDriven) <> 0) |
144 | 246 |
and (TurnTimeLeft < cHedgehogTurnTime - 50) then |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
247 |
if not isThinking then |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
248 |
if (BestActions.Pos >= BestActions.Count) then StartThink(Gear) |
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
249 |
else ProcessAction(BestActions, Gear) |
193 | 250 |
else if FrameNo <> LastFrameNo then |
251 |
begin |
|
252 |
LastFrameNo:= FrameNo; |
|
253 |
Think(Gear) |
|
254 |
end; |
|
4 | 255 |
end; |
256 |
||
257 |
end. |