get("zone", ""); $instance_id = $request->get("instance_id", "0"); @chars = $EQW->ListPlayers($zone, $instance_id); #( # { character => "Joe", account => "yay", location_short => "arena", location_long => "Arena" }, # { character => "Bob", account => "yay", location_short => "freportw", location_long => "West Freeport" }, # { character => "Monkey", account => "notyay", location_short => "freportn", location_long => "North Freeport" } # ); ?>

## Online Player List

".($#chars+1)." players logged in."; } else { print "There are ".($#chars+1)." players in $zone."; } ?>

Character | Account Name | Location
--- | --- | ---
GetPlayerDetails($charname); if(!$char) { $char->{character} = "ERROR: no char"; } elsif($char->{error}) { $char->{character} = "ERROR: ".$char->{error}; } print "
{character}\">"; if($char->{character} eq "") { print "Not Selected"; } else { print " | $char->{character}"; if(defined($char->{guild_id}) && $char->{guild_id} > 0) { print " <$char->{guild}>"; } print " "; print "$char->{level} $char->{race} $char->{class}"; print ""; } print " | $char->{account}"; if($char->{status} > 0) { print " (status $char->{status})"; } print " "; print " $char->{ip}"; print " | $char->{location_long} ($char->{location_short})"; print "
"; } ?>