… | |
… | |
75 | # this handler notifies the player of new mail |
75 | # this handler notifies the player of new mail |
76 | cf::player->attach ( |
76 | cf::player->attach ( |
77 | on_login => sub { |
77 | on_login => sub { |
78 | my ($pl) = @_; |
78 | my ($pl) = @_; |
79 | |
79 | |
80 | my $cnt = @{ $pl->{ip_mails} }; |
80 | my $cnt = @{ $pl->{ipo_mails} }; |
81 | |
81 | |
82 | if ($cnt == 1) { |
82 | if ($cnt == 1) { |
83 | $pl->ob->message ("You got one mail."); |
83 | $pl->ob->message ("You got one mail."); |
84 | } elsif ($cnt > 1) { |
84 | } elsif ($cnt > 1) { |
85 | $pl->ob->message ("You got $cnt mails."); |
85 | $pl->ob->message ("You got $cnt mails."); |
… | |
… | |
224 | cf::async { |
224 | cf::async { |
225 | $Coro::current->{desc} = "ipo send"; |
225 | $Coro::current->{desc} = "ipo send"; |
226 | |
226 | |
227 | my $storage = cf::map::find ("/planes/IPO_storage"); |
227 | my $storage = cf::map::find ("/planes/IPO_storage"); |
228 | unless ($storage) { |
228 | unless ($storage) { |
229 | $who->reply ($npc, "Sorry, our package delivery service is currently in strike. Please come back later."); |
229 | $who->reply ($npc, "Sorry, our package delivery service is currently on strike. Please come back later."); |
230 | return 1; |
230 | return 1; |
231 | } |
231 | } |
232 | $storage->load; |
232 | $storage->load; |
233 | |
233 | |
234 | my $cnt; |
234 | my $cnt; |
… | |
… | |
295 | my $msg = "From: $fromname\rTo: $toname\rDate: $time\n\n$message\n"; |
295 | my $msg = "From: $fromname\rTo: $toname\rDate: $time\n\n$message\n"; |
296 | |
296 | |
297 | store_mail $type, $toname, $fromname, $msg; |
297 | store_mail $type, $toname, $fromname, $msg; |
298 | } |
298 | } |
299 | |
299 | |
300 | 1 |
|
|
301 | |
|
|