Changeset 20670 for lang/haskell/nario/Actor.hs

Timestamp:

10/04/08 13:02:36 (3 months ago)

Author:

mokehehe

Message:

きのこ追加

Files:

• lang/haskell/nario/Actor.hs (modified) (3 diffs)

lang/haskell/nario/Actor.hs

@@ -2 +2 @@
 
 module Actor (
-        Actor (..),
-        ObjWrapper (..),
+        Actor(..),
+        ObjWrapper(..),
         updateActors,
         filterActors,
@@ -13 +13 @@
 import Event
 import AppUtil
+import Field 
 
 
 class Actor a where
-        update :: a -> (a, [Event])
+        update :: Field -> a -> (a, [Event])
         render :: a -> ImageResource -> Int -> Surface -> IO ()
         bDead :: a -> Bool
-
+        bDead _ = False
 
 -- ============================================================================
@@ -26 +27 @@
 data ObjWrapper = forall a. Actor a => ObjWrapper a     -- 存在型aの動く範囲を型クラスに制限
 
-updateActors :: [ObjWrapper] -> [(ObjWrapper, [Event])]
-updateActors = map (\(ObjWrapper x) -> let (x', ev') = update x in (ObjWrapper x', ev'))
+updateActors :: Field -> [ObjWrapper] -> [(ObjWrapper, [Event])]
+updateActors fld = map (\(ObjWrapper x) -> let (x', ev') = update fld x in (ObjWrapper x', ev'))
 
 filterActors :: [ObjWrapper] -> [ObjWrapper]