--- cf.schmorp.de/maps/perl/nimbus.ext 2006/08/27 15:23:30 1.13 +++ cf.schmorp.de/maps/perl/nimbus.ext 2006/09/08 16:22:14 1.17 @@ -66,7 +66,7 @@ my $save = { stats => stats_get $ob->stats, orig_stats => stats_get $pl->orig_stats, - savebed => [$pl->get_savebed], + savebed => [$pl->savebed], skill_exp => skills_get $ob, }; @@ -82,11 +82,11 @@ cf::localdir, cf::playerdir, $ob->name, "nimbus"; if ($ob->map->path ne $path) { - my $nimbus = cf::map::get_map "/schmorp/nimbus"; - $nimbus->set_path ($path); - $nimbus->set_unique (1); + my $nimbus = cf::map::find "/schmorp/nimbus"; + $nimbus->path ($path); + $nimbus->unique (1); - $pl->set_savebed ($path, 24, 12); + $pl->savebed ($path, 24, 12); } }, ; @@ -100,9 +100,9 @@ my $portal = cf::object::new "exit"; - $portal->set_slaying ($map); - $portal->set_hp ($x); - $portal->set_sp ($y); + $portal->slaying ($map); + $portal->hp ($x); + $portal->sp ($y); $portal->apply ($pl->ob); @@ -133,7 +133,7 @@ @savebed = ("/scorn/taverns/inn", 10, 5); } - $pl->set_savebed (@savebed); + $pl->savebed (@savebed); my $map = $ob->map; @@ -142,7 +142,6 @@ # should make this a temporary map and let cf deal with it unlink $map->path; unlink $map->path . ".pst"; - unlink $map->path . ".cfperl"; $map->delete_map;