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

 

_Sky_

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

code text
  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. ;
 
+
-
edit
 

Balancer

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

в начало страницы | новое
 
Поиск
Настройки
Твиттер сайта
Статистика
Рейтинг@Mail.ru