if ($message =~ /^\/?hlx_set ([^ ]+) (.+)$/i) {
my $set_field = lc($1);
my $set_value = $2;
if ($set_field eq "name" || $set_field eq "realname") {
&updatePlayerProfile($player, "fullName", $set_value);
} elsif ($set_field eq "email" || $set_field eq "e-mail") {
&updatePlayerProfile($player, "email", $set_value);
} elsif ($set_field eq "homepage" || $set_field eq "url") {
&updatePlayerProfile($player, "homepage", $set_value);
} elsif ($set_field eq "icq" || $set_field eq "uin") {
&updatePlayerProfile($player, "icq", $set_value);
} elsif ($set_field eq "geo") {
# string parsen aus $set_value
my $flag = substr($set_value,0,2);
my $cstr = substr($set_value,3,200);
$cstr =~ /\'([^\']+)\' /;
my $city = $1;
$cstr = substr($set_value,index($set_value,"'",4)+1,200);
$cstr =~ /([^ ]+) ([^ ]+)/;
my $lat = $1;
my $lng = $2;
my $region = "";
}