Подскажите как написать скрипт - Страница 2

semiromid · 26.09.2011, 03:44

Вот так работает .Сделал как сказал NLObP

Код:

const
name = 'Кортик';  

begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Перотехник' then            //проверяем от кого
       buf:=hstr('43 01 00 00 00')
    else
      buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;                              //Отправляем его на сервер
  end;  

end.

Но теперь другая проблемка. Я хочу что бы отправлялось 2-а пакета этот buf:=hstr('43 01 00 00 00') и еще другой buf:=hstr('49 01 00 00 00').Не могу понять как сделать что бы это реализовать

И еще после прихода пакета buf:=hstr('49 01 00 00 00'). возможно сделать метку ? или может функцию .Я хочу что бы после выполнения этого пакета , бафер бафа 1-н раз .

Nickers · 26.09.2011, 15:42

Если

delphi Код:

//...
if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Перотехник' then            //проверяем от кого
      begin
         buf:=hstr('49 01 00 00 00');  //Формирование 1го пакета
         SendToServer;                   //Посылка 1го
         buf:=hstr('43 01 00 00 00')   //Формирование 2го пакета
      end;
    else
//...

Не сработает (Не успеет обработать 2 пакета подряд), то нужно будет реализовывать через таймер.

Добавлено через 4 минуты
(Или через делей, который не очень)

semiromid · 26.09.2011, 20:34

вот написал с помощью delay()

Код:

const
name = 'AntBuf';  

begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Пиротехник' then            //проверяем от кого
       buf:=hstr('43 01 00 00 00'); 
       delay(5000); 
       buf:=hstr('43 01 00 00 00') 
    else
      buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;                              //Отправляем его на сервер
  end;  

end.

Но чего то выдает ошибку на против "else"

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

Цитата:

Сообщение от goodvin1709

Код:

VAR
Timer:TTimer;
Procedure Init;
begin
               Timer := TTimer.Create(nil) ;
               Timer.Interval := 1000;//Интервал.
               Timer.Enabled := False ;//Его включеность при старте.
               Timer.Ontimer := @OnTimer ; //Вызов Процедуры.
End;
Procedure Free;
begin
timer.free;
end;


Procedure OnTimer(Sender : TObject) ;
begin
Timer.enabled:=false;
buf:=#$42;
      SendToServer;//Отправили Пакет.
end;


begin
  if FromServer and (pck[1]=#$39) then Timer.enabled:=true;
   end.
//Включили таймер.

А как можно несколько пакетов отсылать с определенным промежутком времени , каждого пакета?

Pinko · 26.09.2011, 21:22

http://coderx.ru/showthread.php?t=8701

semiromid · 26.09.2011, 22:25

Цитата:

Сообщение от Pinko

http://coderx.ru/showthread.php?t=8701

Спасибо за ссылку Но я сам хочу понимать что я пишу

NLObP · 26.09.2011, 23:19

semiromid, ищи

Цитата:

Сообщение от Nickers

нужно будет реализовывать через таймер

semiromid · 27.09.2011, 02:16

Код:

begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Пиротехник' then               //проверяем от кого 
    buf:=Hstr('43 01 00 00 00');
    timer.enabled:=true;
    TimerStep:=1  
    else     
      buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;                            //Отправляем его на сервер
  end;

Опять напротив else ошибку выдает(

Код:

const
name = 'AntBuf';  

var
    timer:TTimer;
    TimerStep:byte;
procedure Init; 
begin
    TimerStep:=1;
    timer:=TTimer.Create(nil);
    timer.OnTimer:=@OnTimer;
    timer.enabled:=false;
    timer.interval:=1000; //время задержки между отправкой пакетов.
end;

procedure Free;
begin
    timer.free;
end;

procedure OnTimer;
    begin
        case TimerStep of
        
                   
            1: 
                begin  
                    timer.interval:=1000;
                    buf:=Hstr('49 14 04 3E 04 31 04 40 04 3E 04 20 00 3F 04 3E 04 36 04 30 04 3B 04 3E 04 32 04 30 04 42 04 4C 04 20 00 3A 04 20 00 31 04 30 04 44 04 35 04 40 04 43 04 20 00 3A 04 3B 04 30 04 3D 04 30 04 20 00 22 00 1B 04 38 04 33 04 30 04 22 00 20 00 21 00 00 00 03 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;        
        
            2: 
                begin
                    timer.interval:=1000;
                    buf:=Hstr('39 93 03 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;
            3: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 10 01 00 00 00 00 00 00 00');
                    SendToServerEx(name); 
                    Inc(TimerStep);                
                end; 
            4: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 36 01 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;
            5: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 0F 01 00 00 00 00 00 00 00');
                    SendToServerEx(name); 
                    Inc(TimerStep);                
                end; 
            6: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 DD 03 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;

            7: 
                begin 
                    timer.interval:=1000;
                    buf:=Hstr('39 13 01 00 00 00 00 00 00 00');
                    SendToServerEx(name); 
                    Inc(TimerStep);                
                end; 
            8: 
                begin 
                    timer.interval:=1000;
                    buf:=Hstr('39 12 01 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;                                               
            9: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('49 21 04 3F 04 30 04 41 04 38 04 31 04 3E 04 20 00 47 04 42 04 3E 04 20 00 32 04 3E 04 41 04 3F 04 3E 04 3B 04 4C 04 37 04 3E 04 32 04 30 04 3B 04 38 04 41 04 4C 04 20 00 48 04 42 04 30 04 42 04 3D 04 4B 04 3C 04 20 00 3A 04 3B 04 30 04 3D 04 20 00 31 04 30 04 44 04 35 04 40 04 3E 04 3C 04 21 00 1F 04 40 04 38 04 45 04 3E 04 34 04 38 04 42 04 35 04 20 00 35 04 49 04 35 04 20 00 3A 00 29 00 00 00 03 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);                       
                end;
            10: 
                begin 
                    buf:=Hstr('44');
                    SendToServerEx(name);              
                    timer.enabled:=false;     
                end;                            
        end;
    end;

begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Пиротехник' then               //проверяем от кого 
    buf:=Hstr('43 01 00 00 00');
    timer.enabled:=true;
    TimerStep:=1  
    else     
      buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;                            //Отправляем его на сервер
  end; 

end.

dyh9l · 27.09.2011, 07:16

Не уверен, но мож после then надо открыть begin ?

semiromid · 27.09.2011, 16:26

Вот сдела. Все работает . Но когда наприер "Сэрик" дает пати "Вива" то она почемута его берет , а "AntBuf'" начинает давать денсы (

Код:

const
name = 'AntBuf';  

var
 Paname: String;

    timer:TTimer;
    TimerStep:byte;
procedure Init; 
begin
    TimerStep:=1;
    timer:=TTimer.Create(nil);
    timer.OnTimer:=@OnTimer;
    timer.enabled:=false;
    timer.interval:=1000; //время задержки между отправкой пакетов.
end;

procedure Free;
begin
    timer.free;
end;

procedure OnTimer;
    begin
        case TimerStep of
        
                   
            1: 
                begin  
                    timer.interval:=1000;
                    buf:=Hstr('49 14 04 3E 04 31 04 40 04 3E 04 20 00 3F 04 3E 04 36 04 30 04 3B 04 3E 04 32 04 30 04 42 04 4C 04 20 00 3A 04 20 00 31 04 30 04 44 04 35 04 40 04 43 04 20 00 3A 04 3B 04 30 04 3D 04 30 04 20 00 22 00 1B 04 38 04 33 04 30 04 22 00 20 00 21 00 00 00 03 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;        
        
            2: 
                begin
                    timer.interval:=1000;
                    buf:=Hstr('39 10 01 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;
            3: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 12 01 00 00 00 00 00 00 00');
                    SendToServerEx(name); 
                    Inc(TimerStep);                
                end; 
            4: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 35 06 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;
            5: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 37 06 00 00 00 00 00 00 00');
                    SendToServerEx(name); 
                    Inc(TimerStep);                
                end; 
            6: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 39 06 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;

            7: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 0F 01 00 00 00 00 00 00 00');
                    SendToServerEx(name); 
                    Inc(TimerStep);                
                end; 
            8: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 13 01 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end; 
            9: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 36 01 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;                     
                                                              
            10: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('49 21 04 3F 04 30 04 41 04 38 04 31 04 3E 04 20 00 47 04 42 04 3E 04 20 00 32 04 3E 04 41 04 3F 04 3E 04 3B 04 4C 04 37 04 3E 04 32 04 30 04 3B 04 38 04 41 04 4C 04 20 00 48 04 42 04 30 04 42 04 3D 04 4B 04 3C 04 20 00 3A 04 3B 04 30 04 3D 04 20 00 31 04 30 04 44 04 35 04 40 04 3E 04 3C 04 21 00 1F 04 40 04 38 04 45 04 3E 04 34 04 38 04 42 04 35 04 20 00 35 04 49 04 35 04 20 00 3A 00 29 00 00 00 03 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);                       
                end;
            11: 
                begin  
                    timer.interval:=1000;
                    buf:=Hstr('44');
                    SendToServerEx(name);
                    Inc(TimerStep);                  
                end;
            12: 
                begin 
                    timer.interval:=1000;
                    buf:=Hstr('19 F5 5E 30 10 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);                   
                end;
            13: 
                begin 
                    timer.interval:=1000;
                    buf:=Hstr('19 F5 5E 30 10 00 00 00 00');
                    SendToServerEx(name);              
                    timer.enabled:=false;     
                end;                                                
            14: 
                begin                                          
                    buf:=Hstr('1C 01 00 00 00');
                    SendToServerEx(name);                       
                    timer.enabled:=false;     
                end;                   
                
                
                
                
                
        end;
    end;

begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39     
  
   PAname:= ReadS(2);
    if (PAName = 'Сэрик') or (PAName = 'еенн') or (PAName = 'тете') or (PAName = 'Огнн') or (PAName = 'бдбдбд') or (PAName = 'LIGAsword') or (PAName = 'Вива') or (PAName = 'wuiwiw')  then   begin
    
    buf:=Hstr('43 01 00 00 00');  
    timer.enabled:=true;
    TimerStep:=1; 
      
  end else 
     buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;        
                        
  end;
 

 
 
//даем мп 

begin
  if FromServer and (pck[1]=#$70) then begin   //от сервера получен пакет $39     
  
    
    buf:=Hstr('55 01 00 00 00');  
    timer.enabled:=true;
    timer.interval:=5000; 
    TimerStep:=14;                                   
    SendToServer;                            //Отправляем его на сервер
  end;
  end; 
  
  
  
  
  

end.

semiromid · 27.09.2011, 16:31

Цитата:

Сообщение от semiromid

Вот сдела. Все работает . Но когда наприер "Сэрик" дает пати "Вива" то она почемута его берет , а "AntBuf'" начинает давать денсы (

Код:

const
name = 'AntBuf';  

var
 Paname: String;

    timer:TTimer;
    TimerStep:byte;
procedure Init; 
begin
    TimerStep:=1;
    timer:=TTimer.Create(nil);
    timer.OnTimer:=@OnTimer;
    timer.enabled:=false;
    timer.interval:=1000; //время задержки между отправкой пакетов.
end;

procedure Free;
begin
    timer.free;
end;

procedure OnTimer;
    begin
        case TimerStep of
        
                   
            1: 
                begin  
                    timer.interval:=1000;
                    buf:=Hstr('49 14 04 3E 04 31 04 40 04 3E 04 20 00 3F 04 3E 04 36 04 30 04 3B 04 3E 04 32 04 30 04 42 04 4C 04 20 00 3A 04 20 00 31 04 30 04 44 04 35 04 40 04 43 04 20 00 3A 04 3B 04 30 04 3D 04 30 04 20 00 22 00 1B 04 38 04 33 04 30 04 22 00 20 00 21 00 00 00 03 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;        
        
            2: 
                begin
                    timer.interval:=1000;
                    buf:=Hstr('39 10 01 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;
            3: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 12 01 00 00 00 00 00 00 00');
                    SendToServerEx(name); 
                    Inc(TimerStep);                
                end; 
            4: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 35 06 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;
            5: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 37 06 00 00 00 00 00 00 00');
                    SendToServerEx(name); 
                    Inc(TimerStep);                
                end; 
            6: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 39 06 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;

            7: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 0F 01 00 00 00 00 00 00 00');
                    SendToServerEx(name); 
                    Inc(TimerStep);                
                end; 
            8: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 13 01 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end; 
            9: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('39 36 01 00 00 00 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);
                end;                     
                                                              
            10: 
                begin 
                    timer.interval:=2000;
                    buf:=Hstr('49 21 04 3F 04 30 04 41 04 38 04 31 04 3E 04 20 00 47 04 42 04 3E 04 20 00 32 04 3E 04 41 04 3F 04 3E 04 3B 04 4C 04 37 04 3E 04 32 04 30 04 3B 04 38 04 41 04 4C 04 20 00 48 04 42 04 30 04 42 04 3D 04 4B 04 3C 04 20 00 3A 04 3B 04 30 04 3D 04 20 00 31 04 30 04 44 04 35 04 40 04 3E 04 3C 04 21 00 1F 04 40 04 38 04 45 04 3E 04 34 04 38 04 42 04 35 04 20 00 35 04 49 04 35 04 20 00 3A 00 29 00 00 00 03 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);                       
                end;
            11: 
                begin  
                    timer.interval:=1000;
                    buf:=Hstr('44');
                    SendToServerEx(name);
                    Inc(TimerStep);                  
                end;
            12: 
                begin 
                    timer.interval:=1000;
                    buf:=Hstr('19 F5 5E 30 10 00 00 00 00');
                    SendToServerEx(name);
                    Inc(TimerStep);                   
                end;
            13: 
                begin 
                    timer.interval:=1000;
                    buf:=Hstr('19 F5 5E 30 10 00 00 00 00');
                    SendToServerEx(name);              
                    timer.enabled:=false;     
                end;                                                
            14: 
                begin                                          
                    buf:=Hstr('1C 01 00 00 00');
                    SendToServerEx(name);                       
                    timer.enabled:=false;     
                end;                   
                
                
                
                
                
        end;
    end;

begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39     
  
   PAname:= ReadS(2);
    if (PAName = 'Сэрик') or (PAName = 'еенн') or (PAName = 'тете') or (PAName = 'Огнн') or (PAName = 'бдбдбд') or (PAName = 'LIGAsword') or (PAName = 'Вива') or (PAName = 'wuiwiw')  then   begin
    
    buf:=Hstr('43 01 00 00 00');  
    timer.enabled:=true;
    TimerStep:=1; 
      
  end else 
     buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;        
                        
  end;
 

 
 
//даем мп 

begin
  if FromServer and (pck[1]=#$70) then begin   //от сервера получен пакет $39     
  
    
    buf:=Hstr('55 01 00 00 00');  
    timer.enabled:=true;
    timer.interval:=5000; 
    TimerStep:=14;                                   
    SendToServer;                            //Отправляем его на сервер
  end;
  end; 
  
  
  
  
  

end.

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

Код:

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');
                SendToServer;
                              //Отправляем его на сервер
  end; 
  
    
end.