Permalink
Switch branches/tags
Nothing to show
Find file Copy path
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