tA/evac
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

comments or some bullshit

Browse Source
This commit is contained in:
Shaun Kerr 2019-05-20 16:43:29 +12:00
parent 61f9d76acc
commit 3821f609ff
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Connect.hs
View File

@ -29,6 +29,7 @@ conHurt charX charY oldBoardState
oldGroups = (ntGroups . bsNeoTokyo) oldBoardState oldGroups = (ntGroups . bsNeoTokyo) oldBoardState
oldPut = (ntPutCards . bsNeoTokyo) oldBoardState oldPut = (ntPutCards . bsNeoTokyo) oldBoardState
-- Passes state for X to attract Y
conAttract :: MainCharacter -> MainCharacter -> BoardState -> BoardState conAttract :: MainCharacter -> MainCharacter -> BoardState -> BoardState
conAttract charX charY oldBoardState conAttract charX charY oldBoardState
| not $ isAdjacent charX charY oldGroups = oldBoardState | not $ isAdjacent charX charY oldGroups = oldBoardState