--- deliantra/server/ext/ipo.ext	2007/01/14 11:00:48	1.5
+++ deliantra/server/ext/ipo.ext	2007/08/12 05:59:24	1.8
@@ -21,7 +21,7 @@
       sub { $_[0]->value (1000 * $price_fact) }
    ],
    mailscroll => [
-      1, 'scroll',
+      1, 'mailscroll_empty',
       sub {
          $_[0]->name    ("mailscroll T: $_[2] F: $_[1]");
          $_[0]->name_pl ("mailscrolls T: $_[2] F: $_[1]");
@@ -203,9 +203,9 @@
          }
 
          if ($cnt) {
-            $who->reply ($npc, $cnt == 1 ? "Here is your pakage." : "Here are your packages.");
+            $who->reply ($npc, $cnt == 1 ? "Here is your package." : "Here are your packages.");
          } else {
-            $who->reply ($npc, "Sorry, no deliverys for you sir.");
+            $who->reply ($npc, "Sorry, no deliveries for you sir.");
          }
       }
 
@@ -264,7 +264,7 @@
 use POSIX qw/strftime/;
 use CFDB;
 
-my $MAILDB = CFDB->new (db_file => cf::localdir . "/crossfiremail");
+my $MAILDB = CFDB->new (db_file => "$LOCALDIR/crossfiremail");
 
 sub get_mail {
    my ($toname) = @_;