[Скрипт] AutoSkill под все классы

[c-lavr]

Опять загнался с какой-то ерундой
Нашел много отдельных тем, под каждые персонажы, под отдельные скиллы.. в одном скрипте можно чары бьют по 3 скилла сразу, в другом по 10... словом решил все объединить в одном
Итак, скрипт позволяет прямо в игре записать до 30 (и это не предел) скиллов и выбрать любой для активации.

Скрипт

//защищенно авторским правом CLAVR
var
Timer:TTimer;
name:string;
i,TargetID,TimerStep,writeStep,startSkill:integer;
control,controlwrite,controlstart:boolean;
SeriesSkill:array [1..30] of string;  

procedure Init;
begin
WriteStep:=1;
TimerStep:=1;
Timer:=TTimer.Create(nil); 
Timer.OnTimer:=@OnTimer;
Timer.interval:=150;
Timer.enabled:=false;
control:=false; 
controlwrite:=false; 
controlstart:=false; 
end;

procedure Free;
begin
   Timer.free;
end;

procedure record;
begin
   if controlwrite then
      begin
          SeriesSkill[writeStep]:=pck;
          buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00');
          WriteS('Скилл записан!');
          sendtoclient;
          inc(writeStep);
      end;
end;

procedure starting;
begin
   if controlstart then
      begin
         StartSkill:=ReadH(6);
         controlstart:=false;
         buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00');
         WriteS('скилл для зупуска записан! Настройка завершена');
         sendtoclient;
      end;   
end;  

procedure OnTimer(Sender: TObject);
begin
   buf:=SeriesSkill[TimerStep];
   WriteD(TargetID,10); 
   SendToServerEx(name);
   inc(TimerStep);
   if (TimerStep=writeStep) then
      begin
         Timer.enabled:=false;
         TimerStep:=1;
      end;        
end;

begin
   if FromClient and (ReadC(1) = $9F) then     
      name:=ConnectName;
      
   if FromClient and(ReadC(1)=$D0) then
      begin
         record;
         starting;
         if control and (ReadH(6)=StartSkill) then
            begin
               TargetID:=ReadD(10);
               Timer.enabled:=True;
            end;    
      end;
      
   if FromClient and (ReadC(1)=$B2) then   
      begin
         case ReadS(7) of
              'wron':
                    begin     
                       pck:='';
                       controlwrite:=True;
                       buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00');
                       WriteS('Нажмите последовательно скилы, которые будут использованы');
                       sendtoclient;
                    end;
              'wrof':
                    begin                                         
                       pck:='';   
                       controlwrite:=False;
                       buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00');
                       WriteS('Скиллы записаны! Теперь нажмите скилл ,который будет использоваться для запуска');
                       sendtoclient;
                       controlstart:=True;                          
                    end;
              'ason':
                    begin     
                       pck:='';
                       control:=True;
                       buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00');
                       WriteS('AutoSkill: включен');
                       sendtoclient;
                    end;
              'asof':
                    begin                                         
                       pck:='';   
                       control:=False;
                       buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00');
                       WriteS('AutoSkill: выключен');
                       sendtoclient;                         
                    end;                          
         end;
        if (pck[7]+ pck[9]=#$74+#$6D) then  
            begin              
               Timer.interval:=Int(StrToFloat(ReadS(11)));
               buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00');
               WriteS('задержка между скилами изменена');
               sendtoclient;
               pck:='';
            end;
      end; 
end.

Управление

Копируем скрипт, ставим галочку и настраиваем его под своего чара черз команды (все их пишем в чат):

1. Пишем команду wron
2. По очереди нажимаем скиллы которые будем потом юзать в скрипте (например "издеваемся" на кукле или своем лучшем друге)
3. Как набрали все нужные скиллы, пишем команду wrof
3. После этого используем скилл, который будет активировать наш скрипт
4. по умолчанию, задержка между скиллами 150 мс, если хотите изменить, то пишем в чат tm230 (где вместо 230 пишем свое значение в мс)

Все, настройка завершена!

После настройки используем команды для запуска скрипта:

ason - включает использование AutoSkill
asof - выключает использование AutoSkill

Во время настройки, будут высвечиваться подсказки, так-что думаю не запутаетесь)

P.S. Есть недосток - так как все скиллы не записываются в файл, то скрипт нужно настраивать каждый раз после запуска

[zufvbkfqn2]

Cпасибо!Все отлично работает.Cервер New Aion.

[Lir50sent]

почему-то когда все скилы выпускаешь прерывается соединение с сервером( сервер невка

[c-lavr]

Исправлены ошибки в скрипте! Пересохраните скрипт

[Lir50sent]

Цитата: Сообщение от c-lavr Исправлены ошибки с скрипте! Пересохраните скрипт

Исправлена ошибка вылетов?

[c-lavr]

Да) Теперь не вылетает. И поставил защиту на команды, пока одна команда не выполнится, следующая не будет включатся

[link0175]

а как этот скрипт установить по подробнее можно!!!!

[celsi]

а как удалить сохраненный команды ? Релог или ?

[c-lavr]

просто убери галку со скрипта и все) или заново перепиши команды)

[aionmax]

что та половина из записываемых скиллов не пашет сервер aion speedgame

[c-lavr]

С таймером играйся. Все зависит от скиллов которые ты используешь.

[celsi]

команда tm не робит ! пишу tm500 ничего не изменился ! бьет как 150

[aionmax]

ааа ну все да теперь пашет=)
тока теперь все скилы медленее юзаются но тот начел работатьили я о5 косячу=/

[celsi]

Цитата: Сообщение от aionmax что та половина из записываемых скиллов не пашет сервер aion speedgame

у меня все пашет там ! просто команда tm почему то не идет !

[c-lavr]

Цитата: Сообщение от celsi у меня все пашет там ! просто команда tm почему то не идет !

исправил