equal
deleted
inserted
replaced
67 function GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): TPGearArray; forward; |
67 function GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): TPGearArray; forward; |
68 procedure SpawnBoxOfSmth; forward; |
68 procedure SpawnBoxOfSmth; forward; |
69 procedure ShotgunShot(Gear: PGear); forward; |
69 procedure ShotgunShot(Gear: PGear); forward; |
70 procedure doStepCase(Gear: PGear); forward; |
70 procedure doStepCase(Gear: PGear); forward; |
71 |
71 |
|
72 |
|
73 var delay: LongWord; |
|
74 delay2: LongWord; |
|
75 step: (stDelay, stChDmg, stSweep, stTurnReact, |
|
76 stAfterDelay, stChWin, stWater, stChWin2, stHealth, |
|
77 stSpawn, stNTurn); |
|
78 upd: Longword; |
|
79 |
72 // For better maintainability the step handlers of gears are stored in |
80 // For better maintainability the step handlers of gears are stored in |
73 // separate files. |
81 // separate files. |
74 // Note: step handlers of gears that are hedgehogs are in a different file |
82 // Note: step handlers of gears that are hedgehogs are in a different file |
75 // than the handlers for all other gears. |
83 // than the handlers for all other gears. |
76 {$INCLUDE "GSHandlers.inc"} |
84 {$INCLUDE "GSHandlers.inc"} |
170 Gear:= Gear^.NextGear |
178 Gear:= Gear^.NextGear |
171 end; |
179 end; |
172 end; |
180 end; |
173 |
181 |
174 procedure ProcessGears; |
182 procedure ProcessGears; |
175 const delay: LongWord = 0; |
|
176 delay2: LongWord = 0; |
|
177 step: (stDelay, stChDmg, stSweep, stTurnReact, |
|
178 stAfterDelay, stChWin, stWater, stChWin2, stHealth, |
|
179 stSpawn, stNTurn) = stDelay; |
|
180 var Gear, t: PGear; |
183 var Gear, t: PGear; |
181 i, AliveCount: LongInt; |
184 i, AliveCount: LongInt; |
182 s: shortstring; |
185 s: shortstring; |
183 begin |
186 begin |
184 PrvInactive:= AllInactive; |
187 PrvInactive:= AllInactive; |
1313 SpeechType:= 1; |
1316 SpeechType:= 1; |
1314 skipFlag:= false; |
1317 skipFlag:= false; |
1315 |
1318 |
1316 AllInactive:= false; |
1319 AllInactive:= false; |
1317 PrvInactive:= false; |
1320 PrvInactive:= false; |
|
1321 |
|
1322 //typed const |
|
1323 delay:= 0; |
|
1324 delay2:= 0; |
|
1325 step:= stDelay; |
|
1326 upd:= 0; |
1318 end; |
1327 end; |
1319 |
1328 |
1320 procedure freeModule; |
1329 procedure freeModule; |
1321 begin |
1330 begin |
1322 FreeGearsList(); |
1331 FreeGearsList(); |