Рейтинг@Mail.ru
Рекомендации - Форум atms
Главная Мой профиль Регистрация Выход Вход
- Пятница, 05:24:1
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Скриптинг L2PHX "Lineage C4" (Давно заброшенный раздел) » Скрипты L2PHX "для хроник С4" » Рекомендации
Рекомендации
ПользовательДата: Вторник, 01 Января 2013, 23:14 | Сообщение # 1
Некто
Группа: Обычный пользователь
Сообщений: 141
Репутация: 19
Статус: Нет на форме
Если вы играете в 2 и более окон и забываете или ленитесь рекомендовать свои же окна то скрипт для вас.
В скрипте записать ник кого хотите зарекать, и все ваши окна будут автоматически рекомендовать вашего перса.
Тоесть, у вас допустим запущено 4 окна, 3 окна в гиране и 1 в адене которое необходимо рекать.
Как тольо ваш чар делает тп в гиран из адена то 3 ваших окна автоматически рекают вашего чара, если вы релогнитесь то 3 окна снова рекнут вас.
Код

//Автор ATMS_DIFKS
{Все ваши окна и персонажи если увидят персонажа name, автоматически рекомендуют его}
var
name,name2,nik:string;
id,i,j,r,enterworld:integer;
n:array[1..30] of string;
d:array[1..30] of integer;
procedure Init; //Вызывается при включении скрипта
begin
enterworld:=-1;    
name:='****; //кого рекомендовать
i:=0;
r:=0;
end;

Procedure Rec(ident:integer;);
begin
buf:=#$B9;  
WriteD(id);
if id > 0 then SendToServer;  
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
   if FromServer and (pck[1]=#$04) and (ConnectName <> name) and (enterworld = 0) then  
  begin
  enterworld:=1;
  end;   
   
   if FromClient and (pck[1]=#$03) and (ConnectName <> name) then  
  begin
    enterworld:=0;
  end;
   
  if FromServer and (pck[1]=#$03) and (ConnectName <> name) then  
  begin
  id:=ReadD(18);  
  nik:=ReadS(22);  
   if nik = name then  
     begin   
       r:=0;
       for j:=1 to 30 do if (n[j] = ConnectName) and (d[j] = id) then r:=1;  
    
         if r = 0 then
          begin
           rec(id);  
           enterworld:=-1;
           i:=i+1;     
           n[i]:= ConnectName;
           d[i]:= id;
           if i >= 30 then i:=0;  
           end;
     end;
      
     if (nik = name) and (enterworld=1) then  
     begin
            rec(id);  
           enterworld:=-1;  
     end;
  end;
   
end.


Да хранит вас Ctrl+S.
Да убережет вас Alt+F4 от порнобанера.
Админь...
 
Форум » Скриптинг L2PHX "Lineage C4" (Давно заброшенный раздел) » Скрипты L2PHX "для хроник С4" » Рекомендации
  • Страница 1 из 1
  • 1
Поиск:

atms 2009 © 2021