--- deliantra/server/ext/ipo.ext	2006/12/26 09:56:52	1.3
+++ deliantra/server/ext/ipo.ext	2007/01/07 02:39:14	1.4
@@ -54,7 +54,7 @@
 
    # lets message player ingame: this is a NEW feature from the perl IPO :-)
    for (keys %sent_targets) {
-      if (my $player = cf::player::find $_) {
+      if (my $player = cf::player::find_active $_) {
          my $cnt = $sent_targets{$_};
 
          if ($cnt == 1) {
@@ -169,7 +169,7 @@
    my ($cmd, $arguments) = split /\s+/, $msg, 2;
    $cmd = lc $cmd;
 
-   my $pl = cf::player::find $who->name;
+   my $pl = cf::player::find_active $who->name;
    my ($x, $y) = ($pl->ob->x, $pl->ob->y);
 
    if (my $pr = $prices{$cmd}) {