Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (16 sloc) 373 Bytes
module Event where
import Images (ImageType)
import Field (Cell)
import {-# SOURCE #-} Actor (ActorWrapper(..))
import Sounds
data Event =
-- Hit block: x y super?
EvHitBlock ImageType Int Int Bool
-- Modify field
| EvSetField Int Int Cell
-- Add actor
| EvAddActor ActorWrapper
-- Add score
| EvScoreAddEfe Int Int Int
-- Play SE
| EvSound SoundType