From 84f3302418aedf87eb920ac62b4f29695955f658 Mon Sep 17 00:00:00 2001
From: Shaun Kerr <shaundavidkerr@gmail.com>
Date: Thu, 16 May 2019 16:04:32 +1200
Subject: [PATCH] non working condition

---
 .Types.hs.swp | Bin 0 -> 12288 bytes
 Main.hs       |  33 +++++++++++++++++++++++++++++++++
 State.hs      |  23 ++++++++++++++++++++++-
 3 files changed, 55 insertions(+), 1 deletion(-)
 create mode 100644 .Types.hs.swp
 create mode 100644 Main.hs

diff --git a/.Types.hs.swp b/.Types.hs.swp
new file mode 100644
index 0000000000000000000000000000000000000000..28ed585bc8cc89d2d73445ea9c1763db8ed69d3b
GIT binary patch
literal 12288
zcmeI&%}&BV5Ww+4&jzC}FzQ7wEb7IWc<@3(3`(^1zQ|$|3lbJEUi6842Omdy3b)W+
zI6yeo{5RQ7X1~(;B|S84r~cS%=|!zBq3vduMf<uD@rj)bih&ieW7BbBy&bJslTCfh
z4>ZkI`|duvzK!%DiW?2ncix+@|HY-LaZ~$bqW7WmwZyMEk7)!D*hF9_K0iC1Kk7$^
z2fDu(Z?c)S2q1s}0tg_000IagP;!Csup*zKhONAg?L1bNVxAHZKmY**5I_I{1Q0*~
z0R#|0po9XpEAm|x`3XJy{$ITR&qDrNjF+%3ZW#dt5I_I{1Q0*~0R#|00D*rj@azWK
eQ?FN{U+N+|4g)75{nzd!bz1yeuWyMPIr#&nk1|vM

literal 0
HcmV?d00001

diff --git a/Main.hs b/Main.hs
new file mode 100644
index 0000000..672f85e
--- /dev/null
+++ b/Main.hs
@@ -0,0 +1,33 @@
+data CardSym = Card1 -- | Card2 | Card3 | Card4 etc etc
+data TypeSym = Angel
+             | Character
+             | MainCharacter
+             | Instrumentality
+             | Battle
+             | Put
+             | Drama
+             | Eva
+
+
+data CardInfo = CardInfo
+   { ciName :: String
+   , ciFaction :: Faction
+   , ci -- etc etc etc etc etc
+   }
+
+data CardMeta = CardMeta
+   { cmOwner :: PlayerId
+   }
+
+type CardId = Integer
+type PlayerId = Integer
+
+class SymLookup where
+   getSym :: CardId -> CardSym
+
+class MetaLookup where
+   getMeta :: CardId -> CardMeta
+
+class CardLookup where
+   getCard :: CardSym -> CardInfo
+
diff --git a/State.hs b/State.hs
index 139ee25..8fc9912 100644
--- a/State.hs
+++ b/State.hs
@@ -1,8 +1,29 @@
 module State where
 
+-- needed state:
+-- NeoTokyo groups
+-- Put cards
+-- id counter
+--
+--
+--
+--
+
 type Group = [MainCharacter]
 type NeoTokyo = [Group]
 type Downed = [MainCharacter]
-type BoardState = (NeoTokyo, Downed)
+type Angels = [Angel]
+type BoardState = (NeoTokyo, Downed, Angels)
 data MainCharacter = Asuka | Shinji | Rei | Misato | Ritsuko | Gendo
    deriving (Show, Eq)
+data Angel = Sachial | Shamshel | Ramiel | Gaghiel | Israfel
+           | Sandalphon | Matariel | Sahaquiel | Treul | Leliel
+           | Bardiel | Zeruel | Arael | Armisael | Kaworu | Man | Lillith | Adam
+
+data Card = MainCharacter | Angel | Eva | Put | Battle | Instrumentality | Character
+type Deck = [Card]
+type Hand = [Card]
+type Discard = [Card]
+type Player = (String, Hand, Deck, Discard, Instrumentality)
+type Players = [Player]
+