Implement level portal

2021-04-22 13:06:39 +02:00
parent 60b2327909
commit 0e88544de2
9 changed files with 83 additions and 115 deletions
@@ -251,29 +251,32 @@ startCr = defaultCreature
    , _crMass = 10
    , _crHP = 10000
    , _crMaxHP = 1500
-    , _crInv = IM.fromList (zip [0..20] 
-        (
-        [pistol
-        ,blinkGun
-        ,spawnGun lamp
-        ,poisonSprayer
-        ,autoGun
-        ,launcher
-        ,lasGun
-        ,grenade
-        ,ltAutoGun,flamer,multGun,spreadGun,remoteLauncher
-        ,longGun
-        ,hvAutoGun
-        ,teslaGun
-        ,latchkey 0
-        ,miniGun
-        ,medkit 50
-        ,bezierGun
-        ] 
-          ++ repeat NoItem)) 
+    , _crInv = startInventory 
    , _crCorpse = onLayer CorpseLayer $ color (greyN 0.5) $ pictures [color (greyN 0.8) $ circleSolid 10, circLine 10]
    }

+startInventory = IM.fromList (zip [0..20] 
+    (
+    --[pistol
+    --,blinkGun
+    --,spawnGun lamp
+    --,poisonSprayer
+    --,autoGun
+    --,launcher
+    --,lasGun
+    --,grenade
+    --,ltAutoGun,flamer,multGun,spreadGun,remoteLauncher
+    --,longGun
+    --,hvAutoGun
+    --,teslaGun
+    --,latchkey 0
+    --,miniGun
+    --,medkit 50
+    --,bezierGun
+    --] 
+    --  ++ 
+    repeat NoItem))
+
 smokeGenGun = effectGun "smoke" $ \_ -> spawnSmokeAtCursor

 enemyPict :: Color -> Creature -> Picture