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.12 by root, Fri Aug 25 15:07:43 2006 UTC

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

Diff Legend

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