20 lines
533 B
Text
20 lines
533 B
Text
|
module Screeps.Storage where
|
||
|
|
import Prelude
|
||
|
|
import Screeps.Types
|
||
|
|
import Screeps.FFI (unsafeField,runThisFn0)
|
||
|
|
|
||
|
|
storeFreeCapacity ∷ Store → Int
|
||
|
|
storeFreeCapacity = runThisFn0 "getFreeCapacity"
|
||
|
|
|
||
|
|
storeCapacity ∷ Store → Int
|
||
|
|
storeCapacity = unsafeField "storeCapacity"
|
||
|
|
|
||
|
|
store ∷ Storage → Store
|
||
|
|
store = unsafeField "store"
|
||
|
|
|
||
|
|
storageGet ∷ Storage → ResourceType → Int
|
||
|
|
storageGet s (ResourceType res) = unsafeField res (store s)
|
||
|
|
|
||
|
|
storeGet ∷ Store → ResourceType → Int
|
||
|
|
storeGet s (ResourceType res) = unsafeField res s
|