Reorganise weapons, start work on drones

2021-11-22 00:37:27 +00:00
parent 1aa797ddef
commit 213f573011
19 changed files with 559 additions and 403 deletions
@@ -510,6 +510,8 @@ data Ammo
        , _amBulWth :: Float
        , _amBulVel :: Point2
        }
+    | DroneAmmo
+        { _amString :: String }
    | GenericAmmo
 data PjParam = PjParam
    { _pjMoveParam :: Int -> Item -> Creature -> Prop -> World -> World
@@ -541,6 +543,14 @@ data Prop
        , _pjID :: Int
        , _pjUpdate :: Prop -> World -> World
        }
+    | Drone
+        { _pjPos :: Point2
+        , _pjStartPos :: Point2
+        , _pjVel :: Point2
+        , _prDraw :: Prop -> SPic
+        , _pjID :: Int
+        , _pjUpdate :: Prop -> World -> World
+        }
    | RecursiveProp
        { _pjPos    :: Point2
        , _pjID     :: Int