nek0/haskelloids
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

only shoot one haskelloid at at time

Browse source
This commit is contained in:
nek0 2016-12-30 14:52:42 +01:00
parent 9539d8df46
commit 3a1d7e990a
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Main.hs
View file

@ -378,7 +378,8 @@ shotsUpd sec part@Particle{..} = do
Just _ -> return $ Just h Just _ -> return $ Just h
Nothing -> return Nothing Nothing -> return Nothing
) (haskelloids ud) ) (haskelloids ud)
killings <- mapM haskelloidShotDown inters when (not $ null inters) $
haskelloidShotDown $ head inters
lost <- liftIO $ gegl_rectangle_intersect lost <- liftIO $ gegl_rectangle_intersect
(GeglRectangle (floor nnx) (floor nny) 4 4) (GeglRectangle (floor nnx) (floor nny) 4 4)
(GeglRectangle (GeglRectangle
@ -392,7 +393,7 @@ shotsUpd sec part@Particle{..} = do
) lost ) lost
return part return part
{ particlePosition = (nnx, nny) { particlePosition = (nnx, nny)
, particleTimeToLive = if (not $ null killings) then 0 else particleTimeToLive , particleTimeToLive = if (not $ null inters) then 0 else particleTimeToLive
} }
haskelloidShotDown :: Haskelloid -> Affection UserData () haskelloidShotDown :: Haskelloid -> Affection UserData ()