.repair для игроков

Достали игроки пинать наших ГМов с просьбой поменять им координаты (когда игра останавливается после выбора чара и висит экран загрузки). Вот собственно набросал следующее в команды юзверя (repair.f), работает, не знаю на сколько правильно написано, в форте не силён может кому пригодится...
Игрок может вытащить своего чара другим с того же аккаунта.

1.  Repair character l2.club-ix.net.ua
2.  called as ".repair char-name"
3.  
4. : bypass_do_user_repair
5.         dup is-null if
6.                 drop
7.                 "Character name can not be empty!" show
8.                 exit
9.         then   
10.        
11.         >slashes
12.  
13.         "update `characters` set `x`=-84318, `y`=244579, `z`=-3730 where `char_name` = '" swap s+
14.         "' and `online`=0 and `account_name` = '" s+
15.         player@ "AccountName" p@ >slashes s+
16.         "';" s+
17.  
18.         update ?dup if
19.                 "Error while update: " swap s+ show
20.                 exit
21.         then
22.  
23.         0 = if
24.                 "Can not repair character!" show
25.                 exit
26.         then   
27.  
28.         drop
29.         "Character repaired!" show
30. ;
31.  
32. : user_repair
33.         '<font color="LEVEL">Enter character name from your account to repair:</font>'
34.         '<table width=250><tr><td><edit var="charname" width=200 height=15></td>' s+
35.         '<td><button value="Repair" action="bypass -h jbf_do_user_repair $charname" width=50 height=15 back="sek.cbui94" fore="sek.cbui92"></td></tr></table>' s+
36.         show
37.         tail drop  drop tail of command. Antihack.
38. ;

Выложил на SVN (правда, не проверял, на вид - всё ок)