Прокачка мулътов

[myownstyle]

Зделал малый скрипт для прокачки мулътов. Для тех кто особо не разбирается как найдти тип объекта(хотя таких наверное будет мало, но мало ли)я добавил с верху обозначения таргетов по ид. С низу добавил примеры с юзанием скила без таргета, с таргетом, или двумя таргетами.

Приминения такое. - UseSkillUntil(Умения, До какого значения кочатъ ,Время задержки, 1 Целъ, Използоватъ 1 целъ?, 2Целъ, Използоватъ 2 целъ?);

Code: Select all

́́
Program TrainingSkills;
Const 
Target1  = $00000001;
Target2  = $00000002;

Procedure UseSkillUntil(SkillName: String; SkillValue: Double; WaitTime: Cardinal; FirstTargetID: Cardinal; UseFirstTarget: Boolean; SecondTargetID: Cardinal; UseSecondTarget: Boolean);
begin
    while GetSkillValue(Skillname) < SkillValue do
    begin 
        if Warmode then SetWarMode(false);
        while Dead do Wait(10000);
        while not Connected() do 
        begin
            Connect();
            Wait(10000);
        end; 
        UseSkill(Skillname); 
        if UseFirstTarget = True then
        begin
            WaitForTarget(1000); 
            if TargetPresent then TargetToObject(FirstTargetID);  
        end; 
        if UseSecondTarget = True then
        begin 
            WaitForTarget(1000); 
            if TargetPresent then TargetToObject(SecondTargetID);  
        end;
        Wait(WaitTime);
    end;
end;

begin  
    UseSkillUntil('Hiding', 100.0, 4000, Target1, False, Target2,False);
    UseSkillUntil('Stealth', 100.0, 4000, Target1, False, Target2,False);
    UseSkillUntil('Anatomy', 100.0, 1000, Target1, True, Target2,False);
    UseSkillUntil('Evaluate Intelligence',100.0,1000,FindType($0190,Ground),True,Target2,False);
    UseSkillUntil('Poisoning', 100.0, 5000, FindTypeEx($0F0E,$049B,backpack,false),True,FindTypeEx($1401,$0174,backpack,false),True);  
    FindDistance:= 10;  
    UseSkillUntil('Provocation',100.0,5000,FindType($00D8,Ground),True,FindType($00CB,Ground),True);  
end.   

[myownstyle]

Малий апгрейд

Code: Select all

Program AutoSkills;
var
CastTimeOut : Cardinal;
stime : tdatetime;

Procedure UseSkillUntil(skillName: String; useFirstTarget: Boolean; firstTargetType: Cardinal; firstTargetLocation:Word;useSecondTarget: Boolean; secondTargetType: Cardinal; secondTargetLocation:Word;waitTime: Cardinal;waitLine: String;skillValue: Double);
begin
  FindDistance:= 30;
  Ignore(SelfID);
  while GetSkillValue(skillName) < skillValue do
  begin
    if Warmode then SetWarMode(false);
    while Dead do Wait(10000);
    while not Connected() do
    begin
      Connect();
      Wait(10000);
    end;
    CastTimeOut :=Timer;
    sTime := Now;
    UseSkill(skillName);
    if useFirstTarget = True then
    begin
      WaitForTarget(1000);
      if TargetPresent then TargetToObject(FindType(firstTargetType,firstTargetLocation));
    end;
    if useSecondTarget = True then
    begin
      WaitForTarget(1000);
      if TargetPresent then TargetToObject(FindType(secondTargetType,secondTargetLocation));
    end;
    repeat
      wait(50);
    until (Timer > (CastTimeOut + (waitTime))) or (InJournalBetweenTimes(waitLine, stime, CastTimeOut) >= 0);
  end;
end;


Begin
  UseSkillUntil('Arms Lore', True, $1400, backpack, False, $0000, ground, 4000, 'is a bit|uncertain',100.0);
  UseSkillUntil('Anatomy', True, $0190, ground, False, $0191, ground, 4000,'SucessMessage|FailMessage',100.0);
  UseSkillUntil('Evaluate Intelligence', True, $0190, ground, False, $0191, ground, 3000, 'SucessMessage|FailMessage',100.0);
  UseSkillUntil('Hiding', False, $0000, ground, False, $0000, ground, 4000, 'SucessMessage|FailMessage',100.0);
  UseSkillUntil('Stealth', False, $0000, ground, False, $0000, ground, 4000, 'SucessMessage|FailMessage',100.0);
  UseSkillUntil('Detect Hidden', False, $0000, ground, False, $0000, ground, 4000, 'SucessMessage|FailMessage',100.0);
  UseSkillUntil('Item ID', True, $1400, backpack, False, $0000, ground, 4000, 'SucessMessage|FailMessage',100.0);
  UseSkillUntil('Animal Lore', True, $00C8, ground, False, $0000, ground, 6000, 'SucessMessage|FailMessage',100.0);
End.