neocturne/htanks
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added bullet/bullet collision

Browse source
This commit is contained in:
Matthias Schiffer 2010-03-16 02:34:31 +01:00
parent 90b8d87e02
commit 98ae7f48c5
2 changed files with 25 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/Collision.hs
View file

@ -1,7 +1,9 @@
module Collision ( collisionTankBorder
, collisionBulletBullet
) where
import Tank
import Game
import Data.Fixed
import Data.Ratio
@ -12,6 +14,9 @@ tankWidth = 0.95
tankLength :: Micro
tankLength = 0.95
bulletDiameter :: Micro
bulletDiameter = 0.2
collisionTankBorder :: Micro -> Micro -> Tank -> Tank
collisionTankBorder lw lh tank = tank {tankX = newx, tankY = newy}
where
@ -39,3 +44,8 @@ collisionTankBorder lw lh tank = tank {tankX = newx, tankY = newy}
newx = (tankX tank) + dx
newy = (tankY tank) + dy
collisionBulletBullet :: (Bullet, Bullet) -> (Bullet, Bullet) -> Bool
collisionBulletBullet (b1, b1') (b2, b2') = distancesq < (bulletDiameter^2)
where
distancesq = (bulletX b1' - bulletX b2')^2 + (bulletY b1' - bulletY b2')^2