Move toward shell storing update as list

This commit is contained in:
2022-07-20 11:49:10 +01:00
parent 6eb09a991e
commit 577cf0c44e
8 changed files with 162 additions and 34 deletions
+15 -15
View File
@@ -1,20 +1,20 @@
module Dodge.Projectile.Create where
import Dodge.Data
import Dodge.Item.Weapon.Shell
import Dodge.Base.Collide
import Dodge.Base
import Dodge.Payload
import Dodge.SoundLogic
import Dodge.Movement.Turn
import Dodge.Item.Location
import Dodge.EnergyBall
import Dodge.WorldEvent.Cloud
import LensHelp
import qualified IntMapHelp as IM
import Geometry
import RandomHelp
import Data.Maybe
--import Dodge.Item.Weapon.Shell
--import Dodge.Base.Collide
--import Dodge.Base
--import Dodge.Payload
--import Dodge.SoundLogic
--import Dodge.Movement.Turn
--import Dodge.Item.Location
--import Dodge.EnergyBall
--import Dodge.WorldEvent.Cloud
--import LensHelp
--import qualified IntMapHelp as IM
--import Geometry
--import RandomHelp
--
--import Data.Maybe
createProjectile :: ProjectileCreate -> Item -> Creature -> World -> World
createProjectile pt = case pt of