--- deliantra/maps/perl/invite.ext	2006/09/08 17:33:55	1.13
+++ deliantra/maps/perl/invite.ext	2006/12/12 16:59:34	1.14
@@ -61,9 +61,11 @@
 
 my %invite;
 
-cf::register_command invite => 10, sub {
+cf::register_command invite => sub {
    my ($who, $args) = @_;
 
+   $who->speed_left ($who->speed_left - 0.2);
+
    my $name = $who->name;
 
    if ($args ne "" && $name ne $args) {
@@ -104,12 +106,14 @@
 
    $portal->apply ($pl);
 
-   $portal->free;
+   $portal->destroy;
 }
 
-cf::register_command "accept-invitation" => 10, sub {
+cf::register_command "accept-invitation" => sub {
    my ($who, $args) = @_;
 
+   $who->speed_left ($who->speed_left - 0.2);
+
    my $name = $who->name;
    my ($map, $x, $y) = ($who->map, $who->x, $who->y);