| changeset 540 | b06c5aace2fa |
| parent 539 | 6a9bf1852bbc |
| child 542 | ec26095f1bed |
| 539:6a9bf1852bbc | 540:b06c5aace2fa |
|---|---|
285 Result^.Timer:= 7500; |
285 Result^.Timer:= 7500; |
286 end; |
286 end; |
287 gtSmallDamage: begin |
287 gtSmallDamage: begin |
288 Result^.Timer:= 1100; |
288 Result^.Timer:= 1100; |
289 Result^.Z:= 2000; |
289 Result^.Z:= 2000; |
290 end; |
|
291 gtSwitcher: begin |
|
292 Result^.Z:= cCurrHHZ |
|
290 end; |
293 end; |
291 end; |
294 end; |
292 InsertGearToList(Result); |
295 InsertGearToList(Result); |
293 AddGear:= Result |
296 AddGear:= Result |
294 end; |
297 end; |