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

Nice tank-border collision detection

Browse source
This commit is contained in:
Matthias Schiffer 2010-03-09 22:36:22 +01:00
parent f3d9814ad5
commit e85dc20a48
4 changed files with 65 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CPUPlayer.hs
View file

@ -16,4 +16,4 @@ data CPUPlayer = CPUPlayer Micro
deriving (Typeable, Show)
instance Player CPUPlayer where
playerUpdate (CPUPlayer angle) _ = (CPUPlayer (if (angle+0.1) > 180 then angle-359.9 else angle+0.1), Just angle, True, Just (-angle), False)
playerUpdate (CPUPlayer angle) _ = (CPUPlayer (if (angle+0.1) > 180 then angle-359.08 else angle+0.02), Just angle, True, Just (-angle), False)