Цитата:
Сообщение от SeregaZ
из древнего вот:
PHP код:
var
a:integer;
j:integer;
nick:string;
text:string;
procedure Init; //Вызывается при включении скрипта
begin
useforconnectname := 'PonyVod';
//useforconnectname := 'SVPONIVOD';
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromServer and (pck[1]=#$39) then begin //проверка имени пати кидающего и принятие если это я
if (pck[2]+pck[3]+pck[4]+pck[5]=HStr('45 00 6C 00')) or (pck[2]+pck[3]+pck[4]+pck[5]=HStr('53 00 65 00'))
then begin
buf:=HStr('2A 01 00 00 00'); //пати принял
SendToServer;
buf:=HStr('2F 34 05 00 00 00 00 00 00 00'); //вызов коня
SendToServer;
a:=1; //пати принято, значит надо блокануть пакет непринятия пати.
end;
end;
if FromClient and (pck=HStr('2A 00 00 00 00')) and (a = 1) //блок пакета непринятия пати
then begin
pck:='';
end;
if FromServer and (pck[1]=#$50) //если пати распущено, то бот готов принять сл пати
then begin
a:=0;
end;
if FromServer and (pck[1]=#$4A) and (pck[6]=#$03) and //пати чат просят баф
then begin
j:=10; // j - стартовая позиция указателя
//CharOID:=ReadD(j); // -- OID перса
//TextType:=ReadD(j); //-- индекс чата в котором пишется текст
nick:=ReadS(j); //-- считывается ник, и, одновременно, указатель байта сдвигается на его длинну, т.е после выполнения команды будет j:=j+(длинна_блока_оканчивающегося "00 00")
text:=ReadS(j); //-- считываем текст сообщения
if (text='баф') or (text='аф') then begin
buf:=HStr('45 F3 03 00 00 00 00 00 00 00');
SendToServer;
end;
end;
end.
не бегает, нет таймера. вызывал коня по киданию в пати. причем принимал пати только после проверки части ника... не помню что там должно было по "Se" чтоли проверялось... сто летней давности. сам разбирайся, докручивай таймер, проверку на своего коня и все что надо. |
Братан я же объясняю что я даже таймер прикрутить не шарю как ) помоги ты сделать 2 недели уже тут обитаю ) неужели тебе 20минут в падлу потратить.. и помочь