[Скрипт] Скрипт на кач (ньюшка)

[celsi]

Спасибо Работает.

[vita123]

thedarknes, уважаемый нельзя ли данный скрипт заточить под Легенду?
А то что-то он на ней не работает, а самому разобраться не получается.

[kentavr99]

Тема ьаян пашет ток на хр или на 32 бита!

[lightbearer]

Цитата: Сообщение от kentavr99 Тема ьаян пашет ток на хр или на 32 бита!

причём тут винда?

[bruno_123]

Сделай скрипт для newaion x2 за асмо плиз, буду очень признателен! =)

[Kalmoran]

Цитата: Сообщение от Веселин не работает.всё сделал.в л2пш впихнул скрипит,Выполнил его.полетел в лагерь золотой ветви,взял в таргет бакалейщика,нажал улыбку и...ничего.абсолютно ничего.какова причина может быть?

Скажи сервер,может быть починили уже на нем=)

[MrAlexys]

Автор темы, пожалуйста сделай скрипт для асмов, и на х2 для асмов если можеш, поможеш мне с меня любые 2 пухи теграка за нях,если интересно в личку отпиши

[ewe(Roman)]

Напиши, пожалуйста для АСм. х75.

[sasha1234567890]

Зделайте скрипт на легенд!!

[KAPRIZzNIK]

На Асмов х2 бы такое... и желательно рабочее)

[ARTi4]

на няъ сделай такое только что б работало , а то этот не пашет

[GreenSmoke]

На нью х2. х75 по атакой, не робят сервера, Сделай плиз для асм для х1!
буду признателен!

[RemoteAccess]

Вот так, скрипт правилнее будет.

begin
 //не обрабатываем пустые пакеты
 if pck='' then exit;
 If FromClient and (pck=Hstr('C2 00 57 61 FF 15 21 00 00 00 00 00')) // Отчитаться (Думать)
  then 
       begin
            pck:=''; //запрещаем отправление пакета социального действия
            buf:=HStr('9D 00 57 5A FF 26 25 00 00 1A 00 01 00 0A 00 FE 0C 00 00 00 00'); //наполнили пакет данными
            SendToServer;  //послали пакет
            Delay(200);  //небольшая пауза (больше 500 не ставить!)
            buf:=HStr('9D 00 57 5A FF 26 25 00 00 F1 03 01 00 12 27 FE 0C 00 00 00 00'); //наполнили пакет данными                                  
            SendToServer;  //послали пакет
            Delay(200);  //небольшая пауза (больше 500 не ставить!)
       end;
If FromClient and (pck=Hstr('C2 00 57 61 FF 15 1C 00 00 00 00 00 ')) // Взять квест (Улыбка)
  then 
       begin
            pck:='';
            buf:=HStr('9D 00 57 5A FF 26 25 00 00 1A 00 01 00 0A 00 FE 0C 00 00 00 00');
            SendToServer;
            Delay(200);
            buf:=HStr('9D 00 57 5A FF 26 25 00 00 EA 03 01 00 04 00 FE 0C 00 00 00 00');                     
            SendToServer;
            Delay(200);
       end;  
end.

[Rustas]

Цитата: Сообщение от RemoteAccess Вот так, скрипт правилнее будет. begin //не обрабатываем пустые пакеты if pck='' then exit; If FromClient and (pck=Hstr('C2 00 57 61 FF 15 21 00 00 00 00 00')) // Отчитаться (Думать) then begin pck:=''; //запрещаем отправление пакета социального действия buf:=HStr('9D 00 57 5A FF 26 25 00 00 1A 00 01 00 0A 00 FE 0C 00 00 00 00'); //наполнили пакет данными SendToServer; //послали пакет Delay(200); //небольшая пауза (больше 500 не ставить!) buf:=HStr('9D 00 57 5A FF 26 25 00 00 F1 03 01 00 12 27 FE 0C 00 00 00 00'); //наполнили пакет данными SendToServer; //послали пакет Delay(200); //небольшая пауза (больше 500 не ставить!) end; If FromClient and (pck=Hstr('C2 00 57 61 FF 15 1C 00 00 00 00 00 ')) // Взять квест (Улыбка) then begin pck:=''; buf:=HStr('9D 00 57 5A FF 26 25 00 00 1A 00 01 00 0A 00 FE 0C 00 00 00 00'); SendToServer; Delay(200); buf:=HStr('9D 00 57 5A FF 26 25 00 00 EA 03 01 00 04 00 FE 0C 00 00 00 00'); SendToServer; Delay(200); end; end.

Это для элов серв х75? поправь меня

[RemoteAccess]

Цитата: Сообщение от Rustas Это для элов серв х75? поправь меня

Это поправленный скрипт топикстартера.
Присвоение два раза подряд переменной 'BUF' какого-либо значения без SendToServer не дает эффекта.
А для какого сервера - без понятия.