server/ext/nimbus.ext

#! perl # MANDATORY

# handle the nimbus map and other stuff

my @STATS = qw(
   Str Dex Con Wis Cha Int Pow
   wc ac hp maxhp sp maxsp grace maxgrace
   exp food dam luck
);

sub stats_get($) {
   my ($stats, $save) = @_;

   $save->{$_} = $stats->$_
      for @STATS;
   
   $save
}

sub stats_set($$) {
   my ($stats, $save) = @_;

   $stats->$_ ($save->{$_})
      for @STATS;

   $stats->hp    ($stats->maxhp);
   $stats->grace ($stats->maxgrace);
   $stats->food  (999);
}

sub skills_get($) {
   my ($ob) = @_;

   +{
      map +($_->skill => $_->stats->exp),
         grep $_->type == cf::SKILL,
            $ob->inv
   }
}

sub skills_set($$) {
   my ($ob, $skills) = @_;

   for my $skill (grep $_->type == cf::SKILL, $ob->inv) {
      my $name = $skill->skill;

      if ($skill->stats->exp < $skills->{$name}) {
         $skill->stats->exp ($skills->{$name});
         $ob->player_lvl_adj ($skill);
      }
   }
}

# called when the player will likely die (modulo explore mode)
# but before any stats/exp is changed
cf::player->attach (
   on_death => sub {
      my ($pl) = @_;
      my $ob = $pl->ob;

      # save player stats and experience to restore it later

      unless ($ob->{in_nimbus}) {
         my $save = {
            stats      => stats_get $ob->stats,
            orig_stats => stats_get $pl->orig_stats,
            savebed    => [$pl->savebed],
            skill_exp  => skills_get $ob,
         };

         $ob->{in_nimbus} = $save;

         $ob->message ("\n");
         $ob->message ("You start to feel dizzy.\n");
         $ob->message ("The world around you blurs.\n");
         $ob->message ("\n");
      }

      $pl->savebed ("/nimbus", 24, 12);
   },
);

cf::object::attachment nimbus_exit =>
   on_trigger => sub {
      my ($self, $ob) = @_;

      my $pl = $ob->contr;
      my @savebed;

      if (my $save = delete $ob->{in_nimbus}) {
         @savebed = @{$save->{savebed}};

         if ($self->{nimbus_exit}{restore}) {
            $ob->message ("The gods acknowledge your success.\n");
            stats_set $ob->stats, $save->{stats};
            stats_set $pl->orig_stats, $save->{orig_stats};
            $ob->player_lvl_adj; # update overall level
            skills_set $ob, $save->{skill_exp};
         } else {
            $ob->message ("The gods are disappointed with you.\n");
         }

      } else {
         @savebed = ("/scorn/taverns/inn", 10, 5);
      }

      my $map = $ob->map;
      $pl->savebed (@savebed);
      $ob->goto (@savebed);

      $map->nuke;

      $pl->play_sound_player_only (cf::SOUND_PLAYER_DIES);

      $ob->message ("You feel as if you woke up from a dream.\n");
      $ob->message ("You have a headache.\n");
      $ob->message ("Maybe you should have a drink.\n");

      cf::override;
   },
;

Revision:	1.8
Committed:	Sat Jan 13 23:06:13 2007 UTC (19 years, 8 months ago) by root
Branch:	MAIN
Changes since 1.7:	+1 -1 lines
Log Message:	WARNING: this release is BROKEN - rewrote map handling. map types are now completely pluggable, maybe too pluggable, as everything is a plug-in now. - mark mandatory extensions as such. - handle overloaded attachable objects correctly. - many minor changes.
#	User	Rev	Content
1	root	1.8	#! perl # MANDATORY
2	root	1.1
3			# handle the nimbus map and other stuff
4
5			my @STATS = qw(
6			Str Dex Con Wis Cha Int Pow
7			wc ac hp maxhp sp maxsp grace maxgrace
8			exp food dam luck
9			);
10
11			sub stats_get($) {
12			my ($stats, $save) = @_;
13
14			$save->{$_} = $stats->$_
15			for @STATS;
16
17			$save
18			}
19
20			sub stats_set($$) {
21			my ($stats, $save) = @_;
22
23			$stats->$_ ($save->{$_})
24			for @STATS;
25
26			$stats->hp ($stats->maxhp);
27			$stats->grace ($stats->maxgrace);
28			$stats->food (999);
29			}
30
31			sub skills_get($) {
32			my ($ob) = @_;
33
34			+{
35			map +($_->skill => $_->stats->exp),
36			grep $_->type == cf::SKILL,
37			$ob->inv
38			}
39			}
40
41			sub skills_set($$) {
42			my ($ob, $skills) = @_;
43
44			for my $skill (grep $_->type == cf::SKILL, $ob->inv) {
45			my $name = $skill->skill;
46
47			if ($skill->stats->exp < $skills->{$name}) {
48			$skill->stats->exp ($skills->{$name});
49			$ob->player_lvl_adj ($skill);
50			}
51			}
52			}
53
54			# called when the player will likely die (modulo explore mode)
55			# but before any stats/exp is changed
56	root	1.2	cf::player->attach (
57	root	1.1	on_death => sub {
58			my ($pl) = @_;
59			my $ob = $pl->ob;
60
61			# save player stats and experience to restore it later
62
63			unless ($ob->{in_nimbus}) {
64			my $save = {
65			stats => stats_get $ob->stats,
66			orig_stats => stats_get $pl->orig_stats,
67			savebed => [$pl->savebed],
68			skill_exp => skills_get $ob,
69			};
70
71			$ob->{in_nimbus} = $save;
72
73			$ob->message ("\n");
74			$ob->message ("You start to feel dizzy.\n");
75			$ob->message ("The world around you blurs.\n");
76			$ob->message ("\n");
77			}
78
79	root	1.6	$pl->savebed ("/nimbus", 24, 12);
80	root	1.1	},
81	root	1.2	);
82	root	1.1
83	root	1.2	cf::object::attachment nimbus_exit =>
84	root	1.1	on_trigger => sub {
85			my ($self, $ob) = @_;
86
87			my $pl = $ob->contr;
88			my @savebed;
89
90			if (my $save = delete $ob->{in_nimbus}) {
91			@savebed = @{$save->{savebed}};
92
93			if ($self->{nimbus_exit}{restore}) {
94			$ob->message ("The gods acknowledge your success.\n");
95			stats_set $ob->stats, $save->{stats};
96			stats_set $pl->orig_stats, $save->{orig_stats};
97			$ob->player_lvl_adj; # update overall level
98			skills_set $ob, $save->{skill_exp};
99			} else {
100			$ob->message ("The gods are disappointed with you.\n");
101			}
102
103			} else {
104			@savebed = ("/scorn/taverns/inn", 10, 5);
105			}
106
107	root	1.4	my $map = $ob->map;
108	root	1.1	$pl->savebed (@savebed);
109	root	1.7	$ob->goto (@savebed);
110	root	1.1
111	root	1.5	$map->nuke;
112	root	1.1
113			$pl->play_sound_player_only (cf::SOUND_PLAYER_DIES);
114
115			$ob->message ("You feel as if you woke up from a dream.\n");
116			$ob->message ("You have a headache.\n");
117			$ob->message ("Maybe you should have a drink.\n");
118
119			cf::override;
120			},
121			;
122