equal
deleted
inserted
replaced
220 Gear:= Gear^.NextGear |
220 Gear:= Gear^.NextGear |
221 end; |
221 end; |
222 end; |
222 end; |
223 |
223 |
224 procedure ProcessGears; |
224 procedure ProcessGears; |
225 var t: PGear; |
225 var t, tmpGear: PGear; |
226 i, j, AliveCount: LongInt; |
226 i, j, AliveCount: LongInt; |
227 s: ansistring; |
227 s: ansistring; |
228 prevtime: LongWord; |
228 prevtime: LongWord; |
229 stirFallers: boolean; |
229 stirFallers: boolean; |
230 begin |
230 begin |
475 end; |
475 end; |
476 stSpawn: |
476 stSpawn: |
477 begin |
477 begin |
478 if (not isInMultiShoot) then |
478 if (not isInMultiShoot) then |
479 begin |
479 begin |
480 SpawnBoxOfSmth; |
480 tmpGear:= SpawnBoxOfSmth; |
|
481 if tmpGear <> nil then |
|
482 ScriptCall('onCaseDrop', tmpGear^.uid) |
|
483 else |
|
484 ScriptCall('onCaseDrop'); |
481 delay:= delayFinal; |
485 delay:= delayFinal; |
482 inc(step); |
486 inc(step); |
483 end |
487 end |
484 else |
488 else |
485 inc(step, 2) |
489 inc(step, 2) |