Подскажите как написать скрипт

[Pinko]

const
name = 'AntBuf';  

begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = ('Пиротехник') or ('Пиротyехник') then   //проверяем от кого       
       buf:=hstr('43 01 00 00 00'); // принять пати
                SendToServerEx(name);//  от имени name = 'AntBuf';  
                              //Отправляем его на сервер
  end; 
  
    
end.

посмотри может пригодится
http://coderx.ru/showthread.php?t=2080

[semiromid]

Подскажите почему где ошибка ?
Я хочу что бы когда приходил пакет 39
копирывалось с него вторая строчка , и заменяла в 49 пакете 4 строку

const
 Name='Вива'; 
var  
Paname: String;

begin
  if FromClient and (pck[1] = #$39) then  //Отлавливаем от клиента пакет XX
begin
     Paname:=ReadS(2);
     buf:=#$49#$3E#$04#$3E#$04#$00#$00#$02#$00#$00#$00#$12#$04#$38#$04#$32#$04#$30#$04#$00#$00; 
    
    WriteS(Paname),4);
    SendToServerEx(name);
  

  end;  
  
 
end.

[Nickers]

Так, секунду. Вопрос странный. Ты что сейчас пытаешься сделать? Как ты хочешь заменить там 4ю строчку оО

(49) (3E 04 3E 04) (00 00 02 00) (00 00 12 04) (38 04 32 04) (30 04 00 00);

WriteS(Paname),4); //Вряд ли так можно... 
 

Добавлено через 10 минут

// Составление пакета:
begin
   buf:=#$45;
   WriteD(64);
   WriteC(1);
   buf:=buf+#$33#$32;
   SendToHell;
end;

Пакет, который мы отправили в АД:

45 40 00 00 00 01 00 33 32

[Pinko]

http://coderx.ru/search.php?searchid=499805

[Nickers]

Pinko, нет совпадений.

[Pinko]

Tип: 0x49 (Say2)
Pазмер: 21+2
Время прихода: 00:52:35:950
0002 s Text: оо
0008 d Type: 2 (0x00000002)
0012 s Target: Вива

const
 Name='Вива'; 
var  
Paname: String;

begin
  if FromClient and (pck[1] = #$39) then  //Отлавливаем от клиента пакет XX
begin
   Paname:=ReadS(2);
   buf:=#$49;
  WriteS('оо');
  WriteD(2);
  WriteS(Paname);
  SendToServerEx(name);
  end;  
  end.

[semiromid]

if FromServer and (ConnectName=Name) and (pck[1]=#$39) then begin
mana:= ReadS(2);
buf:=Hstr('49 21 04 3F 04 30 04 41 04 38 04 31 04 3E 04 20 00 37 04 30 04 20 00 3C 04 30 04 3D 04 43 04 20 00 3D 00 29 00 00 00 02 00 00 00');
WriteS(mana);
buf := buf + HStr('');
SendToServer;
end;
end.

[Nickers]

semiromid, Вопрос хотяб задайте, как вам помочь?))

Добавлено через 30 секунд

buf := buf + HStr('');

Не уверен, что это верно. То есть смысла не вижу.

[Санчес]

Здравствуйте уважаемые читеры. чтобы не создавать новую тему, попрошу совета тут. В дельфи не секу, сейчас юзаю поиск.
Необходимо, чтобы клиент посылал серверу два строго определенных пакета с интервалом 0.5 сек.
Выражаясь языком Asi надо сделать скрипт

Label (123) //начало цикла
послать пакет 1
delay 500
послать пакет 2
delay 500
jmp(123) //вернуться в начало цикла.

Пожалуйста, помогите.
з.ы. я знаю что есть функция отправить пакет на сервер, но мне надо отправлять несколько пакетов с заданным интервалом, иначе часть из них просто не успеет обработаться.
Вот пример скрипта. (если от серва пакет 1, то отправить пакет 2.)

begin
if FromClient and (pck=HStr('FE 58 00 01 00 00 00')) then begin
buf:=HStr('D0 26 00 C0 00 23 40');
SendToServer;
end;
end.

что не так? в 4ой строчке чего то не хватает. подскажите плиз. и как добавить второй пакет с делеем 500 в отправку

[Pinko]

Санчес,
поиск на что ??
хотя бы
http://coderx.ru/showpost.php?p=149439&postcount=9
http://coderx.ru/showthread.php?t=80...EA%E5%F2%EE%E2