Cleanup

2021-03-24 00:21:07 +01:00
parent 746f905ba1
commit 26ac0142b1
2 changed files with 18 additions and 24 deletions
@@ -1547,16 +1547,12 @@ explodeRemoteRocket itid ptid n w
        $ set (projectiles . ix ptid . ptPict) blank
        $ set (itPoint . wpFire) (flip const)
        $ resetName
--        $ resetScope
        $ makeExplosionAt (_ptPos (_projectiles w IM.! ptid)) w
-        -- $ makeShrapnelBombAt (_ptPos (_projectiles w IM.! ptid)) w
    where resetName = set (itPoint . itName) "REMOTELAUNCHER"
--          resetScope = creatures . ix n . crInv . ix j . itScope . _Just . scopePos .~ (0,0)
          itPoint = pointToItem $ _itemPositions w IM.! itid

 throwRemoteBomb :: Int -> World -> World
 throwRemoteBomb n w = setLocation $ removePict $ resetFire 
-                                  -- $ resetName $ over projectiles addG $ set randGen g w
                                  $ resetName $ over projectiles addG w
    where addG = IM.insert i
                        $ Projectile { _ptPos = p