package mymonster;
use base 'Games::Roguelike::Mob';

package myitem;
use base 'Games::Roguelike::Item';

package main;

$map = '
##########
#k.<+..!.#
########.#
#>..D....#
##########
';

%key = (
        'k'=>{class=>'mymonster', type=>'kobold', name=>'Harvey', hd=>12,
              items=>['potion of healing',
                      {class=>'myweapon', name=>'Blue Sword', hd=>9, dd=>4, drain=>1, glow=>1}
                     ]
             },
        '!'=>{lib=>'potion of speed'},
        'D'=>{lib=>'blue dragon', name=>'Charlie', hp=>209},
        '+'=>{color=>'blue'}
       );

%lib = (
        'potion of speed'=>{class=>'myitem', sym=>'!', type=>'potion', effect=>'speed', power=>1},
        'potion of healing'=>{class=>'myitem', sym=>'!', type=>'potion', effect=>'heal', power=>1},
        'blue dragon'=>{class=>'mymonster', sym=>'D', type=>'dragon', breath=>'lightning', hp=>180, hd=>12, at=>[10,5], dm=>[5,10], speed=>5, color=>'cyan'},
       );

use Games::Roguelike::World;
use Games::Roguelike::Area;

$w = new Games::Roguelike::World;
$a = new Games::Roguelike::Area (world=>$w, name=>'level 1');

$a->load(map=>$map, key=>\%key, lib=>\%lib);

$w->area($a);

$w->drawmap();

sleep(2);