Показать сообщение отдельно
Старый 23.05.2009, 12:48   #8
Новичок
 
Аватар для MaRK
 
Регистрация: 17.05.2009
Адрес: украина
Сообщений: 9
Сказал Спасибо: 43
Имеет 2 спасибок в 1 сообщении
MaRK пока неопределено
По умолчанию

КУ ЛЮДИ ПОМОГИТЕ
//Grinch пишите по русски ваш албанский никому не нужен

Добавлено через 17 часов 22 минуты
delphi Код:
const    nik='RIDERR';    Enchant=13; var    UseItem, EnchantItem: string;    Count, CurrentEnch: integer;    Timer01: TTimer; procedure Init; begin    Timer01:=TTimer.Create(nil);    Timer01.OnTimer:=@OnTimer01;    Timer01.enabled:=false;    Timer01.interval:=80; end; procedure OnTimer01(Sender: TObject); begin    buf:=UseItem;    SendToServerEx(nik);    buf:=EnchantItem;    SendToServerEx(nik);    if CurrentEnch=Enchant-1 then Timer01.enabled:=false; end; procedure Free; begin   Timer01.free;   count:=0;   CurrentEnch:=0; end; begin     if FromServer and (pck[1]=#$87) then CurrentEnch:=ReadD(2);     if FromClient and (pck[1]=#$19) then UseItem:=pck;     if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;     if FromClient and (pck=#$34#$02#$00#$00#$00) then        begin           pck:='';           Timer01.enabled:=not(Timer01.enabled);        end; end.
ау люди че у меня не правильно с скриптом помогите плизз =) я просто в скрипте нуб =)

//mks: еще просьба если вставляете скрипты использовать следующий вид:
[ HIGHLIGHT="DELPHI" ] СКРИПТ [ /HIGHLIGHT ] без пробелов

Последний раз редактировалось mks, 23.05.2009 в 15:11. Причина: Добавлено сообщение
MaRK вне форума   Ответить с цитированием
За это сообщение MaRK нажился 2 спасибками от: