Регистрация Главная Сообщество
Сообщения за день Справка Регистрация

Рабочие Скрипты: Пишу скрипты сам ...

-

Боты, скрипты и прочий софт для Aion

- Весь софт по Aion, скрипты и боты для игры

Ответ
Страница 1 из 3 1 23
 
Опции темы
Старый 24.12.2011, 15:55   #1
 Разведчик
Аватар для f1qwer
 
f1qwer никому не известный тип
Регистрация: 02.10.2011
Сообщений: 19
Популярность: 18
Сказал(а) спасибо: 2
Поблагодарили 4 раз(а) в 3 сообщениях
 
Arrow Рабочие Скрипты: Пишу скрипты сам ...
PHP код:
var

SpeedTable1:array[1..10] of integer;
cSpeed:integer;
rSpeed:single;
vx1:variant;

DangePacket:array[1..10] of string;
//DangePacket1:string;
//DangePacket2:string;

CharID:array[1..4] of integer;
TargetID:integer;

{
$413F851F - 12.0(9.0+3.0)
$40C00000 - 6.0
$3FC00000 - 1.5
$40EA3D71 - 7.3 (6.0+1.3) ($2A3D71)

}

procedure Init; //Вызывается при включении скрипта
begin
SpeedTable1[1]:=$413F851F;
SpeedTable1[2]:=$41C00000;
SpeedTable1[3]:=$42C00000;
SpeedTable1[4]:=$42C00000;

cSpeed:=SpeedTable1[1];


rSpeed:=11.7;
vx1:=rSpeed;
//cSpeed:=vx1;

//sendmsg(Format('%x',[WriteSi(11.7)]));

end;

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

end;

var
msgName:string;

procedure PHX_Message(msg1:string);

begin
         buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
         msgName:='[PHX]';
         WriteS(msgName);
         WriteS(msg1);
         SendToClient;
end;


procedure Resurect;
begin
   pck:='';
   buf:=HStr('6B 57 08 03  ');
   SendToServer;
end;


procedure SetSpeed1;
begin
   pck:='';
   PHX_Message('Use Speed 1');
   cSpeed:=SpeedTable1[1];
end;

procedure SetSpeed2;
begin
   pck:='';
   PHX_Message('Use Speed 2');
   cSpeed:=SpeedTable1[2];
end;

procedure SetSpeed3;
begin
   pck:='';
   PHX_Message('Use Speed 3');
   cSpeed:=SpeedTable1[3];
end;

procedure InitDange(d1:integer);
begin
   DangePacket[d1]:='';
   pck:='';
   PHX_Message(Format('Обнулил Данж %d',[d1]));
end;


procedure TP_To_Dange(d1:integer);
begin
   buf:=DangePacket[d1];
   pck:='';
   SendToServer;
   PHX_Message(Format('Телепорт в Данж %d',[d1]));
end;



procedure OpenAuk1;
begin
   pck:='';
   buf:=HStr('9C 57 5B 00 00 00 00 0D 00 01 00 0A 00 00 00 00 00 00 00 ');
   WriteD(TargetID,4);
   SendToServer;

end;

procedure OpenWrh1;
begin
   pck:='';
   buf:=HStr('9C 57 5B 00 00 00 00 14 00 01 00 0A 00 00 00 00 00 00 00 ');
   WriteD(TargetID,4);
   SendToServer;

end;

procedure TestTP1;
begin
   pck:='';
   buf:=HStr('9E 57 5D B3 D2 C0 44 1D 1A C2 44 06 0F 98 43 0C 00 ');
   SendToServer;
   buf:=HStr('67 57 04 ');
   SendToServer;

end;

procedure StealLoot;
var
i:integer;
begin
   pck:='';
   
    for i:=1 to 30 do
      begin
           buf:=Hstr('39 57 F6 ');
           writeD(TargetID);
           writeC(i);
           SendToServer;
      end;



end;




var
x1,y1,z1:integer;
speed_triger1:boolean;
sp1:single;



procedure TpToSave1;
begin
        pck:='';
        buf:=HStr('9E 57 5D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ');
        WriteD(X1,4);
        WriteD(Y1,8);
        WriteD(Z1,12);
        SendToServer;
        buf:=HStr('67 57 04 ');
        SendToServer;


end;



begin

//         buf:=Hstr('42 54 E1 BA A0 0B 00 0B 02 00 00 00 40 41 ');
//         buf:=Hstr('42 54 E1 BA A0 0B 00 0B 02 00 00 00 40 42 ');
//         SendToClient;

   if FromServer and (ReadC(1)=$42) and (speed_triger1) then 
   begin
         buf:=pck;
//         sp1:=(readd(11));
//         PHX_Message(FloatToStr(sp1));
         pck:='';
         WriteD(cSpeed,11);
         SendToClient;
       
   end;

   if FromClient and (ReadD(1)=$1A6657C9) then 
   begin
         speed_triger1:=not speed_triger1;
         pck:='';
         buf:=HStr('AC 57 4B 79 63 01 00 58 02 00 00 07 00 00 00 ');
         SendToServer;
         if speed_triger1 then PHX_Message('Set Fast Speed') else PHX_Message('Set Normal Speed');
         
   end;


         



   if FromServer and (ReadC(1)=$56) then 
   begin
         x1:=ReadD(16);
         y1:=ReadD(20);
         z1:=ReadD(24);

         //sendMSG(Format('sdfsdfsd %d',[x1]));
         buf:=HStr('17 54 D4 08 00 00 00 00 00 5B 00 50 00 48 00 58 00 5D 00 00 00 ');
         WriteS(Format('Save Coordinates [%d, %d, %d]',[x1,y1,z1]));
         SendToClient;
        
   end;

   if FromClient and (ReadC(1)=$C9) and (ReadH(4)=533) then
   begin
        pck:='';
        buf:=HStr('9E 57 5D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ');
        WriteD(X1,4);
        WriteD(Y1,8);
        WriteD(Z1,12);
        SendToServer;
        buf:=HStr('67 57 04 ');
        SendToServer;
   end;

//Видеть инвиз 2
   if FromServer and (ReadC(1)=$63) then 
   begin
         buf:=pck;
         pck:='';
         WriteC(2,9);
         SendToClient;
        
   end;

   if FromClient and (ReadC(1)=$9A{Use Target}) then
   begin
     if DangePacket[1]='' then 
        begin
           DangePacket[1]:=pck;
           PHX_Message(Format('Set Dange 1 %x',[ReadD(4)]));
        end;
     if DangePacket[2]='' then 
        begin
           DangePacket[2]:=pck;
           PHX_Message(Format('Set Dange 2 %x',[ReadD(4)]));
        end;

   end;

   if FromClient and (ReadC(1)=$B5{select}) then
   begin
     TargetID:=ReadD(4);
     if DangePacket[1]='' then 
        begin
           buf:=HStr('9A 57 59 ');
           WriteD(TargetID);
           DangePacket[1]:=buf;
           PHX_Message(Format('Set Dange 1 %x',[TargetID]));
        end;
     if DangePacket[2]='' then 
        begin
           buf:=HStr('9A 57 59 ');
           WriteD(TargetID);
           DangePacket[2]:=buf;
           PHX_Message(Format('Set Dange 2 %x',[TargetID]));
        end;

   end;




if FromClient and (ReadC(1)=$66) then
    CharID[1]:=ReadD(4);


if FromClient and (ReadC(1)=$B5) then TargetID:=ReadD(4);


 if FromClient and (ReadC(1)=$B9) then  
 begin
       if (ReadS(5)='.') then Resurect;
       if (ReadS(5)='.spd1') then SetSpeed1;
       if (ReadS(5)='.spd2') then SetSpeed2; 
       if (ReadS(5)='.spd3') then SetSpeed3;

       if (ReadS(5)='.initD1') then InitDange(1);
       if (ReadS(5)='.initD2') then InitDange(2);

       if (ReadS(5)='.tptoD1') then TP_To_Dange(1);
       if (ReadS(5)='.tptoD2') then TP_To_Dange(2);
       if (ReadS(5)='.openAuk') then OpenAuk1;
       if (ReadS(5)='.openWrh') then OpenWrh1;
       if (ReadS(5)='.tpToP1') then TestTP1;
       if (ReadS(5)='.steal') then StealLoot;
       if (ReadS(5)='.tpToSave1') then TpToSave1;
              
          
 end;



   
end. 
Скил пак на инвиз скорость бега 12

PHP код:
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 2126;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(2126, 5);
Delay(500);
DoTheSkill(1987, 1);
Delay(500);               
DoTheSkill(1990, 1);                                                    
end;
end. 
Скил пак на сина Засада Атака ядом Клинок обморока С паузами 0,5 сек


PHP код:
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 2115;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(2115, 2);
Delay(500);
DoTheSkill(2280, 2);
Delay(500);
DoTheSkill(853, 3);
end;
end. 
Скил пак 2 на сина Кровоточащий порез Клык зверя воздушный плен

PHP код:
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 721;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(721, 4);
Delay(500);
DoTheSkill(737, 4);
Delay(500);
DoTheSkill(2074, 3);
end;
end. 
Скил пак 1 на лучника Выстрел град стрел спиральный выстрел


PHP код:
     var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 736;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(736, 4);
Delay(500);
DoTheSkill(719, 3);
end;
end. 
Скил пак для лучника 2 Внезаптный выстрел Взрывной выстрел


Позже сделаю на эти 2 класса бафы с паузами что бы не было паливно.
Скил паки рабочие сам тестил на каком сервере не буду говорить.
Факт в том что скил пак работает но нужно учитывать еще и вашь пинг. Если пинг слишком высокий то вам лутше убрать со скрипта паузы ..
Но тогда больше палива для вас ((.
Для отдельных классов приму заявку на скилпак только сразу оговариваю прописывайте мне серию которую вы хотели бы видеть на своем персонаже ..
Кому помог ловлю спасибо ...
  Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Renixx (29.01.2012), vergilelend (22.02.2012)
Старый 24.12.2011, 16:07   #2
 Сержант
Аватар для Yukikaze
 
Yukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядом
Регистрация: 01.10.2011
Сообщений: 128
Популярность: 5723
Сказал(а) спасибо: 25
Поблагодарили 174 раз(а) в 105 сообщениях
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
Что бы не парить мозг автору, объясню пару моментов:

Код:
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 2238; //ID скилла при котором начнется макрос
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(2238, 4); //первое значение ID выполняемого скила, второе значение его уровень
Delay(500); //Задержка в миллисекундах
DoTheSkill(2233, 5); //первое значение ID выполняемого скила, второе значение его уровень

//Сюда можете добавить еще сколько угодно скиллов в формате DoTheSkill(<ID скила>,<уровень скила>);
end;
end.
ЗЫ Нафига еще одна такая тема, мне вообще не понятно, но кто я такой что бы судить
________________
Talk is cheap. Show me the code
— Linus Torvalds
Последний раз редактировалось Yukikaze; 24.12.2011 в 16:09.
  Ответить с цитированием
Пользователь сказал cпасибо:
c-lavr (12.01.2012)
Старый 24.12.2011, 16:09   #3
 Пехотинец
Аватар для ioann
 
ioann на правильном путиioann на правильном пути
Регистрация: 11.09.2010
Сообщений: 85
Популярность: 142
Сказал(а) спасибо: 57
Поблагодарили 47 раз(а) в 34 сообщениях
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
автор напишы что рабоает только до 2.5 версии !
  Ответить с цитированием
Старый 24.12.2011, 16:50   #4
 Разведчик
Аватар для f1qwer
 
f1qwer никому не известный тип
Регистрация: 02.10.2011
Сообщений: 19
Популярность: 18
Сказал(а) спасибо: 2
Поблагодарили 4 раз(а) в 3 сообщениях
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
Цитата:
Сообщение от ioannПосмотреть сообщение
автор напишы что рабоает только до 2.5 версии !


Эти скилпаки работаю на версиях 2.6 2.7

Помог поставь спасибо ...

Добавлено через 2 минуты
Цитата:
Сообщение от YukikazeПосмотреть сообщение
Что бы не парить мозг автору, объясню пару моментов:

Код:
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 2238; //ID скилла при котором начнется макрос
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(2238, 4); //первое значение ID выполняемого скила, второе значение его уровень
Delay(500); //Задержка в миллисекундах
DoTheSkill(2233, 5); //первое значение ID выполняемого скила, второе значение его уровень

//Сюда можете добавить еще сколько угодно скиллов в формате DoTheSkill(<ID скила>,<уровень скила>);
end;
end.
ЗЫ Нафига еще одна такая тема, мне вообще не понятно, но кто я такой что бы судить




Не все люди которые только начинают играть понимают такие вот темы им проще взять срисовать и поставь себе готовый скил пак для того и нужна такая тема..

Кому помог поставь спасибку ...
Последний раз редактировалось f1qwer; 24.12.2011 в 16:53. Причина: Добавлено сообщение
  Ответить с цитированием
Старый 24.12.2011, 17:10   #5
 Сержант
Аватар для Yukikaze
 
Yukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядомYukikaze в состоянии испепелить взглядом
Регистрация: 01.10.2011
Сообщений: 128
Популярность: 5723
Сказал(а) спасибо: 25
Поблагодарили 174 раз(а) в 105 сообщениях
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
Цитата:
Сообщение от ioannПосмотреть сообщение
и как ты юзаешь их на 2.7 не расскажешь ? тут тебе 100 спс на ставят если раскроешь секрет ... на 2.7 пх не корректно работает , как ты там можешь юзать эти сприпты ?

всего то надо написать newxor.dll для расшифровки трафика 2.7, а этим пока никто не занимался, а если и занимался то в паблике этого нет
________________
Talk is cheap. Show me the code
— Linus Torvalds
  Ответить с цитированием
Старый 24.12.2011, 17:24   #6
Подпольщик Aion
 Лейтенант-командор
Аватар для talala
 
talala сломал счётчик популярности :(talala сломал счётчик популярности :(talala сломал счётчик популярности :(talala сломал счётчик популярности :(talala сломал счётчик популярности :(talala сломал счётчик популярности :(talala сломал счётчик популярности :(talala сломал счётчик популярности :(talala сломал счётчик популярности :(talala сломал счётчик популярности :(talala сломал счётчик популярности :(
Регистрация: 17.07.2009
Сообщений: 683
Популярность: 11669
Золото Zhyk.Ru: 100
Сказал(а) спасибо: 567
Поблагодарили 1,011 раз(а) в 383 сообщениях
Отправить сообщение для talala с помощью ICQ
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
Цитата:
Сообщение от YukikazeПосмотреть сообщение
всего то надо написать newxor.dll для расшифровки трафика 2.7, а этим пока никто не занимался, а если и занимался то в паблике этого нет

Обсуждается здесь и больше нигде.
________________

Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
- для суровых подпольщиков

Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Восстановлена работоспособность одного из лучших
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
для Аион. Спасибо автору(ам) =)
Path of Exile - в настоящее время там.
  Ответить с цитированием
Старый 24.12.2011, 17:36   #7
 Сержант
Аватар для happytorn
 
happytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небеhappytorn лучик света в грозовом небе
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
Отправить сообщение для happytorn с помощью Skype™
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
Цитата:
Сообщение от f1qwerПосмотреть сообщение
Сам лично проверял на 2 разных серверах скрипты работаю даже щас в скап знакомы отписал что все пашет на 2.7 если ты не пробывал не пиши ерунду...

На каких серверах тестилось можешь написать?
  Ответить с цитированием
Старый 24.12.2011, 19:29   #8
 Рыцарь-лейтенант
Аватар для mars2107
 
mars2107 сломал счётчик популярности :(mars2107 сломал счётчик популярности :(mars2107 сломал счётчик популярности :(mars2107 сломал счётчик популярности :(mars2107 сломал счётчик популярности :(mars2107 сломал счётчик популярности :(mars2107 сломал счётчик популярности :(mars2107 сломал счётчик популярности :(mars2107 сломал счётчик популярности :(mars2107 сломал счётчик популярности :(mars2107 сломал счётчик популярности :(
Регистрация: 10.06.2011
Сообщений: 467
Популярность: 31147
Сказал(а) спасибо: 231
Поблагодарили 488 раз(а) в 226 сообщениях
Отправить сообщение для mars2107 с помощью ICQ Отправить сообщение для mars2107 с помощью Skype™
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
Автор, скрипты для классов писать Тут тема, прежде чем корзину создавать, посмотри на полках.
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

[Ссылки могут видеть только зарегистрированные пользователи. ]
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).


[Ссылки могут видеть только зарегистрированные пользователи. ]
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
  Ответить с цитированием
Старый 25.12.2011, 15:08   #9
 Разведчик
Аватар для Pocuk
 
Pocuk никому не известный тип
Регистрация: 01.11.2011
Сообщений: 44
Популярность: 13
Сказал(а) спасибо: 1
Поблагодарили 11 раз(а) в 10 сообщениях
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
ахахах афтар красавчег))
первый скрипт нагло стырен отсюда - http://zhyk.ru/forum/showthread.php?t=202685
то как сделать все остальние скрипты я думаю все уже знают, а то что вы в них добавили ( Delay(500) ) сразу показивает что в скриптах вы ничерта не разбираетесь)) http://zhyk.ru/forum/showthread.php?p=2120867
  Ответить с цитированием
Старый 12.01.2012, 11:40   #10
 Разведчик
Аватар для idtoria007
 
idtoria007 никому не известный тип
Регистрация: 24.08.2010
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
можно написать скрипт на обнуления Отката ДАНЖА(данжей)?
  Ответить с цитированием
Старый 12.01.2012, 17:08   #11
 Разведчик
Аватар для Pocuk
 
Pocuk никому не известный тип
Регистрация: 01.11.2011
Сообщений: 44
Популярность: 13
Сказал(а) спасибо: 1
Поблагодарили 11 раз(а) в 10 сообщениях
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
Цитата:
Сообщение от idtoria007Посмотреть сообщение
можно написать скрипт на обнуления Отката ДАНЖА(данжей)?

сначала надо баг найти которым можно обнулить, а потом скрипт писать.
  Ответить с цитированием
Старый 25.01.2012, 12:20   #12
 Разведчик
Аватар для f1qwer
 
f1qwer никому не известный тип
Регистрация: 02.10.2011
Сообщений: 19
Популярность: 18
Сказал(а) спасибо: 2
Поблагодарили 4 раз(а) в 3 сообщениях
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
Скрипт для глада активация серии Яростный удар


PHP код:
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 177;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
 
DoTheSkill(177, 5);
Delay(500);     
DoTheSkill(180, 5);
Delay(500);  
DoTheSkill(304, 4);
end;
end. 


Скрипт для глада активация серии Вамперическая волна

PHP код:
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 2268;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
 
DoTheSkill(2268, 2);
Delay(800);       
DoTheSkill(2017, 3);
Delay(500);  
DoTheSkill(297, 3);
 end;
 end. 
  Ответить с цитированием
Старый 25.01.2012, 12:40   #13
 Пехотинец
Аватар для ioann
 
ioann на правильном путиioann на правильном пути
Регистрация: 11.09.2010
Сообщений: 85
Популярность: 142
Сказал(а) спасибо: 57
Поблагодарили 47 раз(а) в 34 сообщениях
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
Цитата:
Сообщение от f1qwerПосмотреть сообщение
Эти скилпаки работаю на версиях 2.6 2.7

Помог поставь спасибо ..

на 2.7 он не будет работать , да и на 2.6 тоже !
тк сменились пакеты на 2 байтные
форма будет такого типа D0 но не как не CF !!!
пс . это 101 повтор ! таких тем на форуме полного ....
есть даже гайд как их состовлять http://zhyk.ru/forum/showthread.php?t=248490

и за что тебе спасибку ? ты мне лично нечем не помог !
  Ответить с цитированием
Старый 26.01.2012, 19:43   #14
 Разведчик
Аватар для haiivan
 
haiivan никому не известный тип
Регистрация: 21.11.2011
Сообщений: 43
Популярность: 14
Сказал(а) спасибо: 18
Поблагодарили 2 раз(а) в 2 сообщениях
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
Интересно 1 скрипт только инвиз кросов и стрелков палит или админа может попалить?? хД
  Ответить с цитированием
Старый 26.01.2012, 20:24   #15
 Разведчик
Аватар для Радзюкевич
 
Радзюкевич никому не известный тип
Регистрация: 10.01.2012
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Рабочие Скрипты: Пишу скрипты сам ...
Сможешь прописать скрипт на закла,что то вроде бы атака элементаля земли "Волнение"?
  Ответить с цитированием
Ответ
Страница 1 из 3 1 23

« Предыдущая тема | Следующая тема »

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Услуги] Пишу/дополняю скрипты на JavaScript/AutoHotkey FelikZ Товары/услуги в Сети 1 18.07.2011 01:17
[Помогите!] Скрипты ctarr5 Общение и обсуждение 5 05.05.2011 18:02
скрипты LISS_ug Общение и обсуждение Counter-Strike 3 17.11.2010 20:53

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 23:04.

Обратная связь - Zhyk.org - Первый Чит-портал RUнета без хайдов! - Архив - Условия использования - Вверх
Пишите нам: forum@zhyk.ru
Copyright © 2025 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net