root/lang/haskell/nario/Actor/AnimBlock.hs @ 22619

-- -*- mode: haskell; Encoding: UTF-8 -*-
-- Block bounce animation

module Actor.AnimBlock (
        newAnimBlock
) where

import Actor (Actor(..))
import AppUtil (cellCrd, putimg)
import Const
import Field (Cell, chr2img)
import Event (Event(..))


data AnimBlock = AnimBlock {
        startcy :: Int,
        x :: Int,
        y :: Int,
        vy :: Int,
        chr :: Cell
        }

instance Actor AnimBlock where
        update fld self
                | not (bDead self)      = (self', ev')
                | otherwise                     = (self, [])

                where
                        vy' = vy self + gravity
                        y' = y self + vy'
                        self' = self { vy = vy', y = y' }
                        ev' = if bDead self'
                                then [EvSetField (cellCrd $ x self) (startcy self) $ chr self]
                                else []

        render self imgres scrx sur =
                putimg sur imgres (chr2img $ chr self) (x self `div` one - scrx) (y self `div` one - 8)

        bDead self = vy self > 0 && y self >= startcy self * chrSize * one

newAnimBlock :: Int -> Int -> Cell -> AnimBlock
newAnimBlock cx cy c =
        AnimBlock { startcy = cy, x = cx * chrSize * one, y = cy * chrSize * one, vy = -3 * one, chr = cc }
        where
                cc = case c of
                        '?'     -> '#'
                        'K'     -> '#'
                        x       -> x