Приминения такое. - 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.