author | unc0rr |
Thu, 27 Jan 2011 22:10:24 +0300 | |
branch | server_refactor |
changeset 4599 | a9e4093a7e78 |
parent 4403 | 0dfe26f48ec1 |
child 4900 | 8ad0e23e6d63 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
3236
4ab3917d7d44
Update (c) lines to 2010 as unc0rr requested - they all had varying values so I just took the first year mentioned, then tacked on -2010
nemo
parents:
3038
diff
changeset
|
3 |
* Copyright (c) 2005-2010 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 |
||
2630 | 19 |
{$INCLUDE "options.inc"} |
20 |
||
4 | 21 |
unit uAI; |
22 |
interface |
|
351 | 23 |
uses uFloat; |
2630 | 24 |
|
3038 | 25 |
procedure initModule; |
26 |
procedure freeModule; |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2695
diff
changeset
|
27 |
|
433 | 28 |
procedure ProcessBot; |
64 | 29 |
procedure FreeActionsList; |
4 | 30 |
|
31 |
implementation |
|
4377 | 32 |
uses uConsts, SDLh, uAIMisc, uAIAmmoTests, uAIActions, |
4373 | 33 |
uAmmos, SysUtils{$IFDEF UNIX}, cthreads{$ENDIF}, uTypes, |
4403 | 34 |
uVariables, uCommands, uUtils, uDebug; |
4 | 35 |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
36 |
var BestActions: TActions; |
509 | 37 |
CanUseAmmo: array [TAmmoType] of boolean; |
433 | 38 |
StopThinking: boolean; |
599 | 39 |
ThinkThread: TThreadID; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2695
diff
changeset
|
40 |
hasThread: LongInt; |
599 | 41 |
|
369 | 42 |
procedure FreeActionsList; |
64 | 43 |
begin |
433 | 44 |
{$IFDEF DEBUGFILE}AddFileLog('FreeActionsList called');{$ENDIF} |
509 | 45 |
if hasThread <> 0 then |
433 | 46 |
begin |
47 |
{$IFDEF DEBUGFILE}AddFileLog('Waiting AI thread to finish');{$ENDIF} |
|
48 |
StopThinking:= true; |
|
509 | 49 |
repeat |
50 |
SDL_Delay(10) |
|
51 |
until hasThread = 0 |
|
433 | 52 |
end; |
434 | 53 |
|
602 | 54 |
with CurrentHedgehog^ do |
445 | 55 |
if Gear <> nil then |
56 |
if BotLevel <> 0 then |
|
2289 | 57 |
StopMessages(Gear^.Message); |
740 | 58 |
|
64 | 59 |
BestActions.Count:= 0; |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
60 |
BestActions.Pos:= 0 |
369 | 61 |
end; |
62 |
||
543
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
63 |
procedure TestAmmos(var Actions: TActions; Me: PGear; isMoved: boolean); |
3407 | 64 |
var BotLevel: Byte; |
543
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
65 |
ap: TAttackParams; |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
66 |
Score, i: LongInt; |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
67 |
a, aa: TAmmoType; |
4 | 68 |
begin |
4372 | 69 |
BotLevel:= Me^.Hedgehog^.BotLevel; |
433 | 70 |
|
64 | 71 |
for i:= 0 to Pred(Targets.Count) do |
509 | 72 |
if (Targets.ar[i].Score >= 0) and (not StopThinking) then |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
73 |
begin |
602 | 74 |
with CurrentHedgehog^ do |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3617
diff
changeset
|
75 |
a:= CurAmmoType; |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
76 |
aa:= a; |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
77 |
repeat |
543
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
78 |
if (CanUseAmmo[a]) and |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
79 |
((not isMoved) or ((AmmoTests[a].flags and amtest_OnTurn) = 0)) then |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
80 |
begin |
3407 | 81 |
{$HINTS OFF} |
543
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
82 |
Score:= AmmoTests[a].proc(Me, Targets.ar[i].Point, BotLevel, ap); |
3407 | 83 |
{$HINTS ON} |
139 | 84 |
if Actions.Score + Score > BestActions.Score then |
3407 | 85 |
if (BestActions.Score < 0) or (Actions.Score + Score > BestActions.Score + Byte(BotLevel) * 2048) then |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
86 |
begin |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
87 |
BestActions:= Actions; |
136 | 88 |
inc(BestActions.Score, Score); |
194 | 89 |
|
543
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
90 |
AddAction(BestActions, aia_Weapon, Longword(a), 300 + random(400), 0, 0); |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
91 |
if (ap.Time <> 0) then AddAction(BestActions, aia_Timer, ap.Time div 1000, 400, 0, 0); |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
92 |
if (ap.Angle > 0) then AddAction(BestActions, aia_LookRight, 0, 200, 0, 0) |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
93 |
else if (ap.Angle < 0) then AddAction(BestActions, aia_LookLeft, 0, 200, 0, 0); |
83 | 94 |
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
|
95 |
begin |
543
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
96 |
ap.Angle:= LongInt(Me^.Angle) - Abs(ap.Angle); |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
97 |
if ap.Angle > 0 then |
83 | 98 |
begin |
543
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
99 |
AddAction(BestActions, aia_Up, aim_push, 300 + random(250), 0, 0); |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
100 |
AddAction(BestActions, aia_Up, aim_release, ap.Angle, 0, 0) |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
101 |
end else if ap.Angle < 0 then |
83 | 102 |
begin |
543
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
103 |
AddAction(BestActions, aia_Down, aim_push, 300 + random(250), 0, 0); |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
104 |
AddAction(BestActions, aia_Down, aim_release, -ap.Angle, 0, 0) |
83 | 105 |
end |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
106 |
end; |
543
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
107 |
if (Ammoz[a].Ammo.Propz and ammoprop_NeedTarget) <> 0 then |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
108 |
begin |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
109 |
AddAction(BestActions, aia_Put, 0, 1, ap.AttackPutX, ap.AttackPutY) |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
110 |
end; |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
111 |
if (Ammoz[a].Ammo.Propz and ammoprop_AttackingPut) = 0 then |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
112 |
begin |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
113 |
AddAction(BestActions, aia_attack, aim_push, 650 + random(300), 0, 0); |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
114 |
AddAction(BestActions, aia_attack, aim_release, ap.Power, 0, 0); |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
115 |
end; |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
116 |
if ap.ExplR > 0 then |
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
117 |
AddAction(BestActions, aia_AwareExpl, ap.ExplR, 10, ap.ExplX, ap.ExplY); |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
118 |
end |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
119 |
end; |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
120 |
if a = High(TAmmoType) then a:= Low(TAmmoType) |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
121 |
else inc(a) |
509 | 122 |
until (a = aa) or |
2608 | 123 |
(CurrentHedgehog^.MultiShootAttacks > 0) or // shooting same weapon |
509 | 124 |
StopThinking |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
125 |
end |
64 | 126 |
end; |
4 | 127 |
|
64 | 128 |
procedure Walk(Me: PGear); |
80 | 129 |
const FallPixForBranching = cHHRadius * 2 + 8; |
433 | 130 |
cBranchStackSize = 12; |
131 |
||
132 |
type TStackEntry = record |
|
133 |
WastedTicks: Longword; |
|
134 |
MadeActions: TActions; |
|
135 |
Hedgehog: TGear; |
|
136 |
end; |
|
941
b5222ddafe1f
- Fix bug with picking up ammos from cases, when total ammo count may become more than AMMO_INFINITE
unc0rr
parents:
936
diff
changeset
|
137 |
|
433 | 138 |
var Stack: record |
139 |
Count: Longword; |
|
140 |
States: array[0..Pred(cBranchStackSize)] of TStackEntry; |
|
141 |
end; |
|
142 |
||
143 |
function Push(Ticks: Longword; const Actions: TActions; const Me: TGear; Dir: integer): boolean; |
|
2695 | 144 |
var bRes: boolean; |
433 | 145 |
begin |
2695 | 146 |
bRes:= (Stack.Count < cBranchStackSize) and (Actions.Count < MAXACTIONS - 5); |
147 |
if bRes then |
|
433 | 148 |
with Stack.States[Stack.Count] do |
149 |
begin |
|
150 |
WastedTicks:= Ticks; |
|
151 |
MadeActions:= Actions; |
|
152 |
Hedgehog:= Me; |
|
153 |
Hedgehog.Message:= Dir; |
|
154 |
inc(Stack.Count) |
|
155 |
end; |
|
2695 | 156 |
Push:= bRes |
433 | 157 |
end; |
158 |
||
159 |
procedure Pop(var Ticks: Longword; var Actions: TActions; var Me: TGear); |
|
160 |
begin |
|
161 |
dec(Stack.Count); |
|
162 |
with Stack.States[Stack.Count] do |
|
163 |
begin |
|
164 |
Ticks:= WastedTicks; |
|
165 |
Actions:= MadeActions; |
|
166 |
Me:= Hedgehog |
|
167 |
end |
|
168 |
end; |
|
169 |
||
170 |
function PosInThinkStack(Me: PGear): boolean; |
|
171 |
var i: Longword; |
|
172 |
begin |
|
173 |
i:= 0; |
|
174 |
while (i < Stack.Count) do |
|
175 |
begin |
|
176 |
if(not(hwAbs(Stack.States[i].Hedgehog.X - Me^.X) + |
|
498 | 177 |
hwAbs(Stack.States[i].Hedgehog.Y - Me^.Y) > _2)) and |
433 | 178 |
(Stack.States[i].Hedgehog.Message = Me^.Message) then exit(true); |
179 |
inc(i) |
|
180 |
end; |
|
181 |
PosInThinkStack:= false |
|
182 |
end; |
|
183 |
||
184 |
||
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
185 |
var Actions: TActions; |
3407 | 186 |
ticks, maxticks, steps, tmp: Longword; |
433 | 187 |
BaseRate, BestRate, Rate: integer; |
75 | 188 |
GoInfo: TGoInfo; |
80 | 189 |
CanGo: boolean; |
190 |
AltMe: TGear; |
|
3407 | 191 |
BotLevel: Byte; |
64 | 192 |
begin |
3407 | 193 |
ticks:= 0; // avoid compiler hint |
433 | 194 |
Actions.Count:= 0; |
195 |
Actions.Pos:= 0; |
|
196 |
Actions.Score:= 0; |
|
197 |
Stack.Count:= 0; |
|
4372 | 198 |
BotLevel:= Me^.Hedgehog^.BotLevel; |
75 | 199 |
|
433 | 200 |
tmp:= random(2) + 1; |
201 |
Push(0, Actions, Me^, tmp); |
|
202 |
Push(0, Actions, Me^, tmp xor 3); |
|
203 |
||
4374 | 204 |
if (Me^.State and gstAttacked) = 0 then maxticks:= Max(0, TurnTimeLeft - 5000 - LongWord(4000 * BotLevel)) |
433 | 205 |
else maxticks:= TurnTimeLeft; |
75 | 206 |
|
543
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
207 |
if (Me^.State and gstAttacked) = 0 then TestAmmos(Actions, Me, false); |
433 | 208 |
BestRate:= RatePlace(Me); |
4374 | 209 |
BaseRate:= Max(BestRate, 0); |
75 | 210 |
|
2605 | 211 |
while (Stack.Count > 0) and (not StopThinking) and (GameFlags and gfArtillery = 0) do |
433 | 212 |
begin |
213 |
Pop(ticks, Actions, Me^); |
|
193 | 214 |
|
433 | 215 |
AddAction(Actions, Me^.Message, aim_push, 250, 0, 0); |
3894 | 216 |
if (Me^.Message and gmLeft) <> 0 then AddAction(Actions, aia_WaitXL, hwRound(Me^.X), 0, 0, 0) |
370
c75410fe3133
- Repair bots: they can walk and use bazooka, possible cannot jump (why?)
unc0rr
parents:
369
diff
changeset
|
217 |
else AddAction(Actions, aia_WaitXR, hwRound(Me^.X), 0, 0, 0); |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
218 |
steps:= 0; |
82 | 219 |
|
433 | 220 |
while (not StopThinking) and (not PosInThinkStack(Me)) do |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
221 |
begin |
3407 | 222 |
{$HINTS OFF} |
80 | 223 |
CanGo:= HHGo(Me, @AltMe, GoInfo); |
3407 | 224 |
{$HINTS ON} |
75 | 225 |
inc(ticks, GoInfo.Ticks); |
226 |
if ticks > maxticks then break; |
|
194 | 227 |
|
136 | 228 |
if (BotLevel < 5) and (GoInfo.JumpType = jmpHJump) then // hjump support |
80 | 229 |
if Push(ticks, Actions, AltMe, Me^.Message) then |
433 | 230 |
with Stack.States[Pred(Stack.Count)] do |
80 | 231 |
begin |
791
928d2830fd0c
Make AI aware of new high jump technique (there's still an issue with two successive jumps)
unc0rr
parents:
741
diff
changeset
|
232 |
if Me^.dX.isNegative then AddAction(MadeActions, aia_LookRight, 0, 200, 0, 0) |
928d2830fd0c
Make AI aware of new high jump technique (there's still an issue with two successive jumps)
unc0rr
parents:
741
diff
changeset
|
233 |
else AddAction(MadeActions, aia_LookLeft, 0, 200, 0, 0); |
928d2830fd0c
Make AI aware of new high jump technique (there's still an issue with two successive jumps)
unc0rr
parents:
741
diff
changeset
|
234 |
AddAction(MadeActions, aia_HJump, 0, 305 + random(50), 0, 0); |
369 | 235 |
AddAction(MadeActions, aia_HJump, 0, 350, 0, 0); |
791
928d2830fd0c
Make AI aware of new high jump technique (there's still an issue with two successive jumps)
unc0rr
parents:
741
diff
changeset
|
236 |
if Me^.dX.isNegative then AddAction(MadeActions, aia_LookLeft, 0, 200, 0, 0) |
928d2830fd0c
Make AI aware of new high jump technique (there's still an issue with two successive jumps)
unc0rr
parents:
741
diff
changeset
|
237 |
else AddAction(MadeActions, aia_LookRight, 0, 200, 0, 0); |
80 | 238 |
end; |
136 | 239 |
if (BotLevel < 3) and (GoInfo.JumpType = jmpLJump) then // ljump support |
80 | 240 |
if Push(ticks, Actions, AltMe, Me^.Message) then |
433 | 241 |
with Stack.States[Pred(Stack.Count)] do |
791
928d2830fd0c
Make AI aware of new high jump technique (there's still an issue with two successive jumps)
unc0rr
parents:
741
diff
changeset
|
242 |
AddAction(MadeActions, aia_LJump, 0, 305 + random(50), 0, 0); |
433 | 243 |
|
80 | 244 |
if not CanGo then break; |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
245 |
inc(steps); |
544 | 246 |
Actions.actions[Pred(Actions.Count)].Param:= hwRound(Me^.X); |
70 | 247 |
Rate:= RatePlace(Me); |
433 | 248 |
if Rate > BestRate then |
70 | 249 |
begin |
250 |
BestActions:= Actions; |
|
433 | 251 |
BestRate:= Rate; |
2580
aeccc8f51d3f
completes touch input/control (problems with moving camera)
koda
parents:
2376
diff
changeset
|
252 |
Me^.State:= Me^.State or gstAttacked // we have better place, go there and do not use ammo |
70 | 253 |
end |
433 | 254 |
else if Rate < BestRate then break; |
255 |
if ((Me^.State and gstAttacked) = 0) |
|
543
465e2ec8f05f
- Better randomness of placing hedgehogs on the land
unc0rr
parents:
542
diff
changeset
|
256 |
and ((steps mod 4) = 0) then TestAmmos(Actions, Me, true); |
193 | 257 |
if GoInfo.FallPix >= FallPixForBranching then |
258 |
Push(ticks, Actions, Me^, Me^.Message xor 3); // aia_Left xor 3 = aia_Right |
|
433 | 259 |
end; |
193 | 260 |
|
433 | 261 |
if BestRate > BaseRate then exit |
262 |
end |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
263 |
end; |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
264 |
|
508 | 265 |
function Think(Me: Pointer): ptrint; |
74 | 266 |
var BackMe, WalkMe: TGear; |
433 | 267 |
StartTicks: Longword; |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
268 |
begin |
509 | 269 |
InterlockedIncrement(hasThread); |
433 | 270 |
StartTicks:= GameTicks; |
500 | 271 |
BackMe:= PGear(Me)^; |
509 | 272 |
|
500 | 273 |
if (PGear(Me)^.State and gstAttacked) = 0 then |
74 | 274 |
if Targets.Count > 0 then |
275 |
begin |
|
509 | 276 |
WalkMe:= BackMe; |
74 | 277 |
Walk(@WalkMe); |
433 | 278 |
if (StartTicks > GameTicks - 1500) and not StopThinking then SDL_Delay(2000); |
279 |
if BestActions.Score < -1023 then |
|
146 | 280 |
begin |
433 | 281 |
BestActions.Count:= 0; |
282 |
AddAction(BestActions, aia_Skip, 0, 250, 0, 0); |
|
283 |
end; |
|
80 | 284 |
end else |
74 | 285 |
else begin |
433 | 286 |
while (not StopThinking) and (BestActions.Count = 0) do |
287 |
begin |
|
288 |
FillBonuses(true); |
|
289 |
WalkMe:= BackMe; |
|
509 | 290 |
Walk(@WalkMe); |
291 |
if not StopThinking then SDL_Delay(100) |
|
433 | 292 |
end |
293 |
end; |
|
500 | 294 |
PGear(Me)^.State:= PGear(Me)^.State and not gstHHThinking; |
509 | 295 |
Think:= 0; |
296 |
InterlockedDecrement(hasThread) |
|
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
297 |
end; |
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
298 |
|
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
299 |
procedure StartThink(Me: PGear); |
75 | 300 |
var a: TAmmoType; |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
301 |
begin |
542 | 302 |
if ((Me^.State and (gstAttacking or gstHHJumping or gstMoving)) <> 0) |
439 | 303 |
or isInMultiShoot then exit; |
506 | 304 |
|
2376 | 305 |
//DeleteCI(Me); // this might break demo |
369 | 306 |
Me^.State:= Me^.State or gstHHThinking; |
307 |
Me^.Message:= 0; |
|
509 | 308 |
|
309 |
BestActions.Count:= 0; |
|
310 |
BestActions.Pos:= 0; |
|
311 |
BestActions.Score:= Low(integer); |
|
312 |
||
433 | 313 |
StopThinking:= false; |
314 |
ThinkingHH:= Me; |
|
509 | 315 |
|
70 | 316 |
FillTargets; |
80 | 317 |
if Targets.Count = 0 then |
318 |
begin |
|
369 | 319 |
OutError('AI: no targets!?', false); |
80 | 320 |
exit |
321 |
end; |
|
941
b5222ddafe1f
- Fix bug with picking up ammos from cases, when total ammo count may become more than AMMO_INFINITE
unc0rr
parents:
936
diff
changeset
|
322 |
|
369 | 323 |
FillBonuses((Me^.State and gstAttacked) <> 0); |
75 | 324 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
4372 | 325 |
CanUseAmmo[a]:= Assigned(AmmoTests[a].proc) and HHHasAmmo(Me^.Hedgehog^, a); |
433 | 326 |
{$IFDEF DEBUGFILE}AddFileLog('Enter Think Thread');{$ENDIF} |
500 | 327 |
BeginThread(@Think, Me, ThinkThread) |
433 | 328 |
end; |
191
a03c2d037e24
Bots are in the same thread as game. Fixes FreePascal issues.
unc0rr
parents:
183
diff
changeset
|
329 |
|
433 | 330 |
procedure ProcessBot; |
331 |
const StartTicks: Longword = 0; |
|
509 | 332 |
cStopThinkTime = 40; |
4 | 333 |
begin |
602 | 334 |
with CurrentHedgehog^ do |
66
9643d75baf1e
Many AI improvements, bots do think in separate thread
unc0rr
parents:
64
diff
changeset
|
335 |
if (Gear <> nil) |
369 | 336 |
and ((Gear^.State and gstHHDriven) <> 0) |
4225
ce9e2b05e9c1
Revert yet again for breaking stuff. No more chances on this. If there'd been a release, this would have been twice with serious breakage. P.S. - as per koda's complaint last time, only reverted the non-iphone, probably means iphone is now broken. Oh well.
nemo
parents:
4211
diff
changeset
|
337 |
and (TurnTimeLeft < cHedgehogTurnTime - 50) then |
433 | 338 |
if ((Gear^.State and gstHHThinking) = 0) then |
509 | 339 |
if (BestActions.Pos >= BestActions.Count) |
340 |
and (TurnTimeLeft > cStopThinkTime) then |
|
433 | 341 |
begin |
936
ba582673db7d
Fix 'AI may break demos playing' message while loading saves
unc0rr
parents:
883
diff
changeset
|
342 |
if Gear^.Message <> 0 then |
ba582673db7d
Fix 'AI may break demos playing' message while loading saves
unc0rr
parents:
883
diff
changeset
|
343 |
begin |
ba582673db7d
Fix 'AI may break demos playing' message while loading saves
unc0rr
parents:
883
diff
changeset
|
344 |
StopMessages(Gear^.Message); |
ba582673db7d
Fix 'AI may break demos playing' message while loading saves
unc0rr
parents:
883
diff
changeset
|
345 |
TryDo((Gear^.Message and gmAllStoppable) = 0, 'Engine bug: AI may break demos playing', true); |
ba582673db7d
Fix 'AI may break demos playing' message while loading saves
unc0rr
parents:
883
diff
changeset
|
346 |
end; |
ba582673db7d
Fix 'AI may break demos playing' message while loading saves
unc0rr
parents:
883
diff
changeset
|
347 |
if Gear^.Message <> 0 then exit; |
433 | 348 |
StartThink(Gear); |
349 |
StartTicks:= GameTicks |
|
350 |
end else ProcessAction(BestActions, Gear) |
|
509 | 351 |
else if ((GameTicks - StartTicks) > cMaxAIThinkTime) |
352 |
or (TurnTimeLeft <= cStopThinkTime) then StopThinking:= true |
|
369 | 353 |
end; |
4 | 354 |
|
3038 | 355 |
procedure initModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2695
diff
changeset
|
356 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2716
diff
changeset
|
357 |
hasThread:= 0; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2695
diff
changeset
|
358 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2695
diff
changeset
|
359 |
|
3038 | 360 |
procedure freeModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2695
diff
changeset
|
361 |
begin |
3617 | 362 |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2695
diff
changeset
|
363 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2695
diff
changeset
|
364 |
|
4 | 365 |
end. |