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.2 by root, Fri Mar 17 03:13:49 2006 UTC vs.
Revision 1.14 by root, Mon Aug 28 07:06:12 2006 UTC

… …
32 32
33sub skills_get($) { 33sub skills_get($) {
34 my ($ob) = @_; 34 my ($ob) = @_;
35 35
36 +{ 36 +{
37 map +($_->skill => $_->exp), 37 map +($_->skill => $_->stats->exp),
38 grep $_->type == cf::SKILL, 38 grep $_->type == cf::SKILL,
39 $ob->inv 39 $ob->inv
40 } 40 }
41} 41}
42 42
43sub skills_set($$) { 43sub skills_set($$) {
44 my ($ob, $skill) = @_; 44 my ($ob, $skills) = @_;
45 45
46 for (grep $_->type == cf::SKILL, $ob->inv) { 46 for my $skill (grep $_->type == cf::SKILL, $ob->inv) {
47 $_->set_exp ($skill->{$_->skill}) 47 my $name = $skill->skill;
48 if exists $skill->{$_->skill}; 48
49 if ($skill->stats->exp < $skills->{$name}) {
50 $skill->stats->exp ($skills->{$name});
51 $ob->player_lvl_adj ($skill);
52 }
49 } 53 }
50} 54}
51 55
52# called when the player will likely die (modulo explore mode) 56# called when the player will likely die (modulo explore mode)
53# but before any stats/exp is changed 57# but before any stats/exp is changed
54sub on_player_death { 58cf::attach_to_players
59 on_death => sub {
55 my ($event) = @_; 60 my ($pl) = @_;
61 my $ob = $pl->ob;
56 62
57 my $ob = $event->{who}; 63 # save player stats and experience to restore it later
58 my $pl = $ob->contr;
59 64
60 # 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 };
61 72
62 my $save = { 73 $ob->{in_nimbus} = $save;
63 stats => stats_get $ob->stats,
64 orig_stats => stats_get $pl->orig_stats,
65 savebed => [$pl->get_savebed],
66 skill_exp => skills_get $ob,
67 };
68 74
69 $ob->{nimbus_save} = $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 }
70 80
71 my $path = sprintf "%s/%s/%s/%s", 81 my $path = sprintf "%s/%s/%s/%s",
72 cf::localdir, cf::playerdir, $ob->name, "nimbus"; 82 cf::localdir, cf::playerdir, $ob->name, "nimbus";
73 83
84 if ($ob->map->path ne $path) {
74 my $nimbus = cf::map::get_map "/schmorp/nimbus"; 85 my $nimbus = cf::map::get_map "/schmorp/nimbus";
75 $nimbus->set_path ($path); 86 $nimbus->set_path ($path);
76 $nimbus->set_unique (1); 87 $nimbus->set_unique (1);
77 88
78 $pl->set_savebed ($path, 24, 12); 89 $pl->set_savebed ($path, 24, 12);
90 }
91 },
92;
93
94sub teleport {
95 my ($pl, $map, $x, $y) = @_;
96
97 return if $pl->ob->map->path eq $map
98 && abs ($pl->ob->x - $x) <= 1
99 && abs ($pl->ob->y - $y) <= 1;
100
101 my $portal = cf::object::new "exit";
102
103 $portal->set_slaying ($map);
104 $portal->set_hp ($x);
105 $portal->set_sp ($y);
106
107 $portal->apply ($pl->ob);
108
109 $portal->free;
79} 110}
80 111
81sub on_trigger { 112cf::register_attachment nimbus_exit =>
82 my ($event) = @_; 113 on_trigger => sub {
83 my $options = $event->{options}; 114 my ($self, $ob) = @_;
84 my $ob = $event->{activator};
85 my $pl = $ob->contr;
86 my @savebed;
87 115
88 warn "trigger $options $ob->{nimbus_save}\n";#d# 116 my $pl = $ob->contr;
89 warn $ob->name; 117 my @savebed;
90 118
91 if (my $save = delete $ob->{nimbus_save}) { 119 if (my $save = delete $ob->{in_nimbus}) {
92 @savebed = @{$save->{savebed}}; 120 @savebed = @{$save->{savebed}};
93 121
94 if ($options eq "restore" || 1) { 122 if ($self->{nimbus_exit}{restore}) {
123 $ob->message ("The gods acknowledge your success.\n");
95 stats_set $ob->stats, $save->{stats}; 124 stats_set $ob->stats, $save->{stats};
96 stats_set $pl->orig_stats, $save->{orig_stats}; 125 stats_set $pl->orig_stats, $save->{orig_stats};
126 $ob->player_lvl_adj; # update overall level
97 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
132 } else {
133 @savebed = ("/scorn/taverns/inn", 10, 5);
98 } 134 }
99 135
100 } else { 136 $pl->set_savebed (@savebed);
101 @savebed = ("/scorn/taverns/inn", 10, 5);
102 }
103 137
104 $pl->set_savebed (@savebed); 138 my $map = $ob->map;
105 139
106 # TODO: you wake up... 140 teleport $pl, @savebed;
107 $ob->teleport (cf::map::get_map $savebed[0], $savebed[1], $savebed[2]);
108 141
109 # TODO: invalidate map 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";
110 146
111 1 147 $map->delete_map;
112}
113 148
149 $pl->play_sound_player_only (cf::SOUND_PLAYER_DIES);
150
151 $ob->message ("You feel as if you woke up from a dream.\n");
152 $ob->message ("You have a headache.\n");
153 $ob->message ("Maybe you should have a drink.\n");
154
155 cf::override;
156 },
157;
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