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

added downed suppert

Browse Source
This commit is contained in:
Thorn Avery 2019-05-15 18:46:48 +12:00
parent 7a6c7db914
commit 151b75d1d2
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Groups.hs
View File

@ -2,6 +2,8 @@ module Groups where
type Group = [MainCharacter] type Group = [MainCharacter]
type NeoTokyo = [Group] type NeoTokyo = [Group]
type Downed = [MainCharacter]
type BoardState = (NeoTokyo, Downed)
data MainCharacter = Asuka | Shinji | Rei | Misato | Ritsuko | Gendo data MainCharacter = Asuka | Shinji | Rei | Misato | Ritsuko | Gendo
deriving (Show, Eq) deriving (Show, Eq)
@ -44,11 +46,17 @@ getAdj :: MainCharacter -> NeoTokyo -> [MainCharacter]
getAdj x nt = curFrens x nt ++ (foldr (++) [] (adjGroups x nt)) getAdj x nt = curFrens x nt ++ (foldr (++) [] (adjGroups x nt))
-- Hurt character x -- Hurt character x
hurt :: MainCharacter -> NeoTokyo -> NeoTokyo hurt :: MainCharacter -> BoardState -> BoardState
hurt x nt hurt x (nt,d)
| curFrens x nt == [] = nt | x `elem` d = if (curFrens x nt == [])
| otherwise = [x] : (filter (/= x) $ charsGroup x nt) : (otherGroups x nt) then (nt, d)
else ([x] : (groupMinusChar x) : (otherGroups x nt), d)
| otherwise = (nt, x:d)
where
groupMinusChar x = (filter (/= x) $ charsGroup x nt)
-- Attract X and Y -- Attract X and Y
attract :: MainCharacter -> MainCharacter -> NeoTokyo -> NeoTokyo attract :: MainCharacter -> MainCharacter -> BoardState -> BoardState
attract x y nt = (uniq (charsGroup x nt ++ charsGroup y nt)) : (otherGroups y (otherGroups x nt)) attract x y (nt,d)
| x `elem` d = (nt, (filter (/= x) d))
| otherwise = ((uniq (charsGroup x nt ++ charsGroup y nt)) : (otherGroups y (otherGroups x nt)), d)