372 newGear:= AddGear(hwRound(lx), hwRound(ly), gtResurrector, 0, _0, _0, 0); |
372 newGear:= AddGear(hwRound(lx), hwRound(ly), gtResurrector, 0, _0, _0, 0); |
373 newGear^.SoundChannel := LoopSound(sndResurrector); |
373 newGear^.SoundChannel := LoopSound(sndResurrector); |
374 end; |
374 end; |
375 //amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000); |
375 //amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000); |
376 amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000); |
376 amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000); |
377 amIceGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0); |
377 amIceGun: begin |
|
378 newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0); |
|
379 newGear^.radius := 8; |
|
380 end; |
378 end; |
381 end; |
379 if altUse and (newGear <> nil) then |
382 if altUse and (newGear <> nil) then |
380 begin |
383 begin |
381 newGear^.dX:= newDx / newGear^.Density; |
384 newGear^.dX:= newDx / newGear^.Density; |
382 newGear^.dY:= newDY / newGear^.Density |
385 newGear^.dY:= newDY / newGear^.Density |