Refactor, try to limit dependencies
This commit is contained in:
+1
-10
@@ -8,20 +8,18 @@ module Dodge.Default (
|
||||
module Dodge.Default,
|
||||
module Dodge.Default.Item,
|
||||
module Dodge.Default.LightSource,
|
||||
module Dodge.Default.Weapon,
|
||||
module Dodge.Default.Wall,
|
||||
module Dodge.Default.Creature,
|
||||
module Dodge.Default.Terminal,
|
||||
) where
|
||||
|
||||
import Control.Lens
|
||||
import Dodge.Data
|
||||
import Dodge.Data.World
|
||||
import Dodge.Default.Creature
|
||||
import Dodge.Default.Item
|
||||
import Dodge.Default.LightSource
|
||||
import Dodge.Default.Terminal
|
||||
import Dodge.Default.Wall
|
||||
import Dodge.Default.Weapon
|
||||
import Dodge.SoundLogic
|
||||
import Geometry
|
||||
import Picture
|
||||
@@ -32,14 +30,7 @@ defaultEquipment =
|
||||
& itInvColor .~ yellow
|
||||
& itUse .~ EquipUse defaultEquip
|
||||
|
||||
defaultItZoom :: ItZoom
|
||||
defaultItZoom = ItZoom 20 0.2 1
|
||||
|
||||
defaultConsumable :: Item
|
||||
defaultConsumable =
|
||||
defaultItem
|
||||
& itUse .~ ConsumeUse CDoNothing 1
|
||||
& itInvColor .~ blue
|
||||
|
||||
defaultFlIt :: FloorItem
|
||||
defaultFlIt = FlIt{_flItRot = 0, _flIt = defaultConsumable, _flItPos = V2 0 0, _flItID = 0}
|
||||
|
||||
Reference in New Issue
Block a user