--- deliantra/maps/perl/invite.ext	2006/02/07 23:35:56	1.5
+++ deliantra/maps/perl/invite.ext	2006/02/09 01:15:25	1.6
@@ -7,6 +7,8 @@
 
 # implement a 'follow' command
 
+#TODO: fon't invite on damned ground
+
 my $TIMEOUT = 60;
 
 # determine level available to the player
@@ -109,9 +111,11 @@
    } elsif ($invite{$args}{$name}[0] < time) {
       $who->message ("Sorry, $args\'s invitation has expired.");
    } else {
+      my $inv = delete $invite{$args}{$name};
       $who->message ("A godly force starts to pull you up...");
-      teleport $who, @{$invite{$args}{$name}}[1,2,3];
+      teleport $who, @{$inv}[1,2,3];
       $who->message ("... and sets you down where $args invited you to.");
+
    }
 }