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.8 by root, Tue Mar 28 16:08:19 2006 UTC vs.
Revision 1.14 by root, Mon Aug 28 07:06:12 2006 UTC

… …
53 } 53 }
54} 54}
55 55
56# called when the player will likely die (modulo explore mode) 56# called when the player will likely die (modulo explore mode)
57# but before any stats/exp is changed 57# but before any stats/exp is changed
58sub on_player_death { 58cf::attach_to_players
59 on_death => sub {
59 my ($ob) = @_; 60 my ($pl) = @_;
61 my $ob = $pl->ob;
60 62
61 my $pl = $ob->contr; 63 # save player stats and experience to restore it later
62 64
63 # save player stats and experience to restore it later 65 unless ($ob->{in_nimbus}) {
66 my $save = {
67 stats => stats_get $ob->stats,
68 orig_stats => stats_get $pl->orig_stats,
69 savebed => [$pl->get_savebed],
70 skill_exp => skills_get $ob,
71 };
64 72
65 my $save = { 73 $ob->{in_nimbus} = $save;
66 stats => stats_get $ob->stats,
67 orig_stats => stats_get $pl->orig_stats,
68 savebed => [$pl->get_savebed],
69 skill_exp => skills_get $ob,
70 };
71 74
72 $ob->{in_nimbus} ||= $save; 75 $ob->message ("\n");
76 $ob->message ("You start to feel dizzy.\n");
77 $ob->message ("The world around you blurs.\n");
78 $ob->message ("\n");
79 }
73 80
74 my $path = sprintf "%s/%s/%s/%s", 81 my $path = sprintf "%s/%s/%s/%s",
75 cf::localdir, cf::playerdir, $ob->name, "nimbus"; 82 cf::localdir, cf::playerdir, $ob->name, "nimbus";
76 83
84 if ($ob->map->path ne $path) {
77 my $nimbus = cf::map::get_map "/schmorp/nimbus"; 85 my $nimbus = cf::map::get_map "/schmorp/nimbus";
78 $nimbus->set_path ($path); 86 $nimbus->set_path ($path);
79 $nimbus->set_unique (1); 87 $nimbus->set_unique (1);
80 88
81 $pl->set_savebed ($path, 24, 12); 89 $pl->set_savebed ($path, 24, 12);
82 90 }
83 $ob->message ("\n"); 91 },
84 $ob->message ("You start to feel dizzy.\n"); 92;
85 $ob->message ("The world around you blurs.\n");
86 $ob->message ("\n");
87
88 0
89}
90 93
91sub teleport { 94sub teleport {
92 my ($pl, $map, $x, $y) = @_; 95 my ($pl, $map, $x, $y) = @_;
93 96
94 return if $pl->ob->map->path eq $map 97 return if $pl->ob->map->path eq $map
… …
104 $portal->apply ($pl->ob); 107 $portal->apply ($pl->ob);
105 108
106 $portal->free; 109 $portal->free;
107} 110}
108 111
109sub on_trigger { 112cf::register_attachment nimbus_exit =>
110 my ($event) = @_; 113 on_trigger => sub {
111 my $options = $event->{options}; 114 my ($self, $ob) = @_;
112 my $ob = $event->{activator};
113 my $pl = $ob->contr;
114 my @savebed;
115 115
116 if (my $save = delete $ob->{in_nimbus}) { 116 my $pl = $ob->contr;
117 @savebed = @{$save->{savebed}}; 117 my @savebed;
118 118
119 if ($options eq "restore") { 119 if (my $save = delete $ob->{in_nimbus}) {
120 @savebed = @{$save->{savebed}};
121
122 if ($self->{nimbus_exit}{restore}) {
120 $ob->message ("The gods acknowledge your success.\n"); 123 $ob->message ("The gods acknowledge your success.\n");
121 stats_set $ob->stats, $save->{stats}; 124 stats_set $ob->stats, $save->{stats};
122 stats_set $pl->orig_stats, $save->{orig_stats}; 125 stats_set $pl->orig_stats, $save->{orig_stats};
123 $ob->player_lvl_adj; # update overall level 126 $ob->player_lvl_adj; # update overall level
124 skills_set $ob, $save->{skill_exp}; 127 skills_set $ob, $save->{skill_exp};
128 } else {
129 $ob->message ("The gods are disappointed with you.\n");
130 }
131
125 } else { 132 } else {
126 $ob->message ("The gods are disappointed with you.\n"); 133 @savebed = ("/scorn/taverns/inn", 10, 5);
127 } 134 }
128 135
129 } else { 136 $pl->set_savebed (@savebed);
130 @savebed = ("/scorn/taverns/inn", 10, 5);
131 }
132 137
133 $pl->set_savebed (@savebed); 138 my $map = $ob->map;
134 139
135 my $map = $ob->map; 140 teleport $pl, @savebed;
136 141
137 teleport $pl, @savebed; 142 # should make this a temporary map and let cf deal with it
143 unlink $map->path;
144 unlink $map->path . ".pst";
145 unlink $map->path . ".cfperl";
138 146
139 # should make this a temporary map and let cf deal with it
140 unlink $map->path;
141 unlink $map->path . ".cfperl";
142 $map->delete_map; 147 $map->delete_map;
143 148
144 $pl->play_sound_player_only (cf::SOUND_PLAYER_DIES); 149 $pl->play_sound_player_only (cf::SOUND_PLAYER_DIES);
145 150
146 $ob->message ("You feel as if you woke up from a dream.\n"); 151 $ob->message ("You feel as if you woke up from a dream.\n");
147 $ob->message ("You have a headache.\n"); 152 $ob->message ("You have a headache.\n");
148 $ob->message ("Maybe you should have a drink.\n"); 153 $ob->message ("Maybe you should have a drink.\n");
149 154
150 1 155 cf::override;
151} 156 },
157;
152 158
159cf::attach_to_maps #TODO#d# remove, onyl for upgrading old to new nimbus
160 on_upgrade => sub {
161 my ($map) = @_;
162
163 if ($map->path =~ /\/nimbus$/) {
164 warn "NIMBUS UPGRADE ", $map->path, "\n";
165
166 (grep length $_->slaying, $map->at (11, 1))[0]->attach (nimbus_exit => restore => 1);
167
168 for my $x (37 .. 58) {
169 for my $y (32 .. 53) {
170 $_->remove for $map->at ($x, $y);
171
172 my $portal = cf::object::new "well";
173
174 $portal->set_name ("free ride, courtesy of your friendly upgrade script");
175 $portal->set_slaying ($map->path);
176 $portal->set_hp (1);
177 $portal->set_sp (1);
178
179 $portal->insert_ob_in_map_at ($map, undef, cf::INS_ABOVE_FLOOR_ONLY, $x, $y);
180 }
181 }
182 }
183 },
184;
185

Diff Legend

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