ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/maps/perl/nimbus.ext
(Generate patch)

Comparing deliantra/maps/perl/nimbus.ext (file contents):
Revision 1.4 by root, Mon Mar 20 22:49:26 2006 UTC vs.
Revision 1.19 by root, Tue Dec 12 16:59:34 2006 UTC

… …
3# handle the nimbus map and other stuff 3# handle the nimbus map and other stuff
4 4
5my @STATS = qw( 5my @STATS = qw(
6 Str Dex Con Wis Cha Int Pow 6 Str Dex Con Wis Cha Int Pow
7 wc ac hp maxhp sp maxsp grace maxgrace 7 wc ac hp maxhp sp maxsp grace maxgrace
8 food dam luck 8 exp food dam luck
9); 9);
10 10
11sub stats_get($) { 11sub stats_get($) {
12 my ($stats, $save) = @_; 12 my ($stats, $save) = @_;
13 13
14 for my $stat (@STATS) {
15 $save->{$stat} = $stats->$stat; 14 $save->{$_} = $stats->$_
16 } 15 for @STATS;
17 16
18 $save 17 $save
19} 18}
20 19
21sub stats_set($$) { 20sub stats_set($$) {
22 my ($stats, $save) = @_; 21 my ($stats, $save) = @_;
23 22
24 for my $stat (@STATS) {
25 $stats->$stat ($save->{$stat}); 23 $stats->$_ ($save->{$_})
26 } 24 for @STATS;
27 25
28 $stats->hp ($stats->maxhp); 26 $stats->hp ($stats->maxhp);
29 $stats->grace ($stats->maxgrace); 27 $stats->grace ($stats->maxgrace);
30 $stats->food (999); 28 $stats->food (999);
31} 29}
32 30
33sub skills_get($) { 31sub skills_get($) {
34 my ($ob) = @_; 32 my ($ob) = @_;
35 33
36 +{ 34 +{
37 "" => $ob->stats->exp,
38
39 map +($_->skill => $_->stats->exp), 35 map +($_->skill => $_->stats->exp),
40 grep $_->type == cf::SKILL, 36 grep $_->type == cf::SKILL,
41 $ob->inv 37 $ob->inv
42 } 38 }
43} 39}
44 40
45sub skills_set($$) { 41sub skills_set($$) {
46 my ($ob, $skill) = @_; 42 my ($ob, $skills) = @_;
47 43
48 for (grep $_->type == cf::SKILL, $ob->inv) { 44 for my $skill (grep $_->type == cf::SKILL, $ob->inv) {
49 $_->set_exp ($skill->{$_->skill}) 45 my $name = $skill->skill;
50 if exists $skill->{$_->skill}; 46
47 if ($skill->stats->exp < $skills->{$name}) {
48 $skill->stats->exp ($skills->{$name});
49 $ob->player_lvl_adj ($skill);
50 }
51 } 51 }
52} 52}
53 53
54# called when the player will likely die (modulo explore mode) 54# called when the player will likely die (modulo explore mode)
55# but before any stats/exp is changed 55# but before any stats/exp is changed
56sub on_player_death { 56cf::attach_to_players
57 on_death => sub {
57 my ($event) = @_; 58 my ($pl) = @_;
59 my $ob = $pl->ob;
58 60
59 my $ob = $event->{who}; 61 # save player stats and experience to restore it later
60 my $pl = $ob->contr;
61 62
62 # save player stats and experience to restore it later 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 };
63 70
64 my $save = { 71 $ob->{in_nimbus} = $save;
65 stats => stats_get $ob->stats,
66 orig_stats => stats_get $pl->orig_stats,
67 savebed => [$pl->get_savebed],
68 skill_exp => skills_get $ob,
69 };
70 72
71 $ob->{nimbus_save} ||= $save; 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 }
72 78
73 my $path = sprintf "%s/%s/%s/%s", 79 my $path = sprintf "%s/%s/%s/%s",
74 cf::localdir, cf::playerdir, $ob->name, "nimbus"; 80 cf::localdir, cf::playerdir, $ob->name, "nimbus";
75 81
82 if ($ob->map->path ne $path) {
76 my $nimbus = cf::map::get_map "/schmorp/nimbus"; 83 my $nimbus = cf::map::find "/schmorp/nimbus";
77 $nimbus->set_path ($path); 84 $nimbus->path ($path);
78 $nimbus->set_unique (1); 85 $nimbus->unique (1);
79 86
80 $pl->set_savebed ($path, 24, 12); 87 $pl->savebed ($path, 24, 12);
88 }
89 },
90;
81 91
82 0 92sub teleport {
93 my ($pl, $map, $x, $y) = @_;
94
95 return if $pl->ob->map->path eq $map
96 && abs ($pl->ob->x - $x) <= 1
97 && abs ($pl->ob->y - $y) <= 1;
98
99 my $portal = cf::object::new "exit";
100
101 $portal->slaying ($map);
102 $portal->stats->hp ($x);
103 $portal->stats->sp ($y);
104
105 $portal->apply ($pl->ob);
106
107 $portal->destroy;
83} 108}
84 109
85sub on_trigger { 110cf::register_attachment nimbus_exit =>
86 my ($event) = @_; 111 on_trigger => sub {
87 my $options = $event->{options}; 112 my ($self, $ob) = @_;
88 my $ob = $event->{activator};
89 my $pl = $ob->contr;
90 my @savebed;
91 113
92 warn "trigger $options $ob->{nimbus_save}\n";#d# 114 my $pl = $ob->contr;
93 warn $ob->name; 115 my @savebed;
94 116
95 if (my $save = delete $ob->{nimbus_save}) { 117 if (my $save = delete $ob->{in_nimbus}) {
96 @savebed = @{$save->{savebed}}; 118 @savebed = @{$save->{savebed}};
97 119
98 if ($options eq "restore" || 1) { 120 if ($self->{nimbus_exit}{restore}) {
121 $ob->message ("The gods acknowledge your success.\n");
99 stats_set $ob->stats, $save->{stats}; 122 stats_set $ob->stats, $save->{stats};
100 stats_set $pl->orig_stats, $save->{orig_stats}; 123 stats_set $pl->orig_stats, $save->{orig_stats};
124 $ob->player_lvl_adj; # update overall level
101 skills_set $ob, $save->{skill_exp}; 125 skills_set $ob, $save->{skill_exp};
126 } else {
127 $ob->message ("The gods are disappointed with you.\n");
128 }
129
130 } else {
131 @savebed = ("/scorn/taverns/inn", 10, 5);
102 } 132 }
103 133
104 } else { 134 $pl->savebed (@savebed);
105 @savebed = ("/scorn/taverns/inn", 10, 5);
106 }
107 135
108 $pl->set_savebed (@savebed); 136 my $map = $ob->map;
109 137
110 # TODO: you wake up... 138 teleport $pl, @savebed;
111 $ob->teleport (cf::map::get_map $savebed[0], $savebed[1], $savebed[2]);
112 139
113 # TODO: invalidate map 140 # should make this a temporary map and let cf deal with it
141 unlink $map->path;
142 unlink $map->path . ".pst";
114 143
115 1 144 $map->delete_map;
116}
117 145
146 $pl->play_sound_player_only (cf::SOUND_PLAYER_DIES);
147
148 $ob->message ("You feel as if you woke up from a dream.\n");
149 $ob->message ("You have a headache.\n");
150 $ob->message ("Maybe you should have a drink.\n");
151
152 cf::override;
153 },
154;
155

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines