justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2022-06-08 22:14:50 +01:00
parent b90e8a2118
commit 970858e129
9 changed files with 41 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Data.hs
+15 -18
View File
@@ -436,8 +436,8 @@ data PressPlate = PressPlate
}
data FloorItem = FlIt { _flIt :: Item , _flItPos :: Point2 , _flItRot :: Float, _flItID :: Int}
data ItemPos
= InInv { _itCrId :: Int , _itInvId :: Int }
| OnFloor { _itFlID :: Int }
= InInv { _ipCrId :: Int , _ipInvId :: Int }
| OnFloor { _ipFlID :: Int }
data ItemUse
= RightUse
{ _rUse :: Item -> Creature -> World -> World
@@ -549,30 +549,27 @@ data ReloadType
-- I believe this is called every frame, not sure when though
data ItEffect
= NoItEffect
-- | ItSimpleInvEffect
-- {_itInvEffect :: Item -> Creature -> World -> World
-- }
| ItInvEffect
{_itInvEffect :: Item -> Creature -> World -> World
,_itEffectCounter :: Int
{_ieInv :: Item -> Creature -> World -> World
,_ieCounter :: Int
}
| ItRewindEffect
{_itInvEffect :: Item -> Creature -> World -> World
,_itStoredWorlds :: [World]
{_ieInv :: Item -> Creature -> World -> World
,_ieStoredWorlds :: [World]
}
| ItEffect
{_itInvEffect :: Item -> Creature -> World -> World
,_itFloorEffect :: Int -> World -> World
,_itEffectCounter :: Int
{_ieInv :: Item -> Creature -> World -> World
,_ieFloor :: Int -> World -> World
,_ieCounter :: Int
}
| ItInvEffectID
{_itInvEffect :: Item -> Creature -> World -> World
,_itEffectID :: Maybe Int
}
{_ieInv :: Item -> Creature -> World -> World
,_ieMID :: Maybe Int
} -- the duplication of ieMID may cause errors...
| ItInvEffectDrop
{ _itInvEffect :: Item -> Creature -> World -> World
, _itEffectDrop :: Item -> Creature -> World -> World
, _itEffectMID :: Maybe Int
{ _ieInv :: Item -> Creature -> World -> World
, _ieDrop :: Item -> Creature -> World -> World
, _ieMID :: Maybe Int
}
data IntID a = IntID Int a