-- Visual version of the sessile Medusa.

class V_SESSILE_MEDUSA

inherit

  V_SESSILE
  undefine
    react, win, restart, create_record, build_record,
    customized_init
  redefine
    northwest, bitmap
  end

  SESSILE_MEDUSA
  undefine
    clear
  redefine
    northwest
  end

  V_MEDUSA
  undefine
    on_paint
  redefine
    bitmap
  end

creation

  make, make_customized

feature{NONE}

  bitmap : WEL_BITMAP

  get_bitmaps is
  do
    smiling := configuration.game_smiling_medusa_pixmap( Current )
    unsmiling := configuration.game_medusa_pixmap( Current )
    rock := configuration.rock_medusa_pixmap( Current )
    bitmap := unsmiling 
  end

  get_id is
  do
    id := configuration.sessile_medusa_code
  end

feature

  northwest : V_GAME_CELL

end