changeset 2514 | df9d0728c5bb |
parent 2512 | ab0e6aacb6da |
child 2515 | 51d3f4b6293a |
2513:182c585b49d1 | 2514:df9d0728c5bb |
---|---|
1327 end |
1327 end |
1328 end else begin |
1328 end else begin |
1329 if (Gear^.State and gsttmpFlag) <> 0 then |
1329 if (Gear^.State and gsttmpFlag) <> 0 then |
1330 begin |
1330 begin |
1331 Gear^.Radius:= 9; |
1331 Gear^.Radius:= 9; |
1332 AmmoShove(Gear, 2, 100); |
1332 AmmoShove(Gear, 2, 30); |
1333 Gear^.Radius:= 1 |
1333 Gear^.Radius:= 1 |
1334 end; |
1334 end; |
1335 if Gear^.Timer > 0 then |
1335 if Gear^.Timer > 0 then |
1336 begin |
1336 begin |
1337 dec(Gear^.Timer); |
1337 dec(Gear^.Timer); |