381 newGear:= AddGear(hwRound(lx), hwRound(ly), gtResurrector, 0, _0, _0, 0); |
381 newGear:= AddGear(hwRound(lx), hwRound(ly), gtResurrector, 0, _0, _0, 0); |
382 newGear^.SoundChannel := LoopSound(sndResurrector); |
382 newGear^.SoundChannel := LoopSound(sndResurrector); |
383 end; |
383 end; |
384 //amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000); |
384 //amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000); |
385 amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000); |
385 amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000); |
386 amIceGun: begin |
386 amIceGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0); |
387 newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0); |
|
388 newGear^.radius := 8; |
|
389 end; |
|
390 end; |
387 end; |
391 if altUse and (newGear <> nil) then |
388 if altUse and (newGear <> nil) then |
392 begin |
389 begin |
393 newGear^.dX:= newDx / newGear^.Density; |
390 newGear^.dX:= newDx / newGear^.Density; |
394 newGear^.dY:= newDY / newGear^.Density |
391 newGear^.dY:= newDY / newGear^.Density |