"Прокачка всех лоров в 1 скрипте" , (Оском 2)
Code: Select all
Program Lores;
//AdmiR(c)
//
//Shard Oskom Opay
//
//Complex macros for next 8 skills:
//Anatomy , Evaluating Int , Animal Lore , Item Ident , Taste Ident, Arms Lore, Musicianship, Tracking on Monsters .
//
//In Back Pack must be dagger and buben(a tambourine).
{$Include 'all.inc'}
//-- Options --
const
frazaAnatomy = 'looks|Вы так ничего';
frazaEvalInt = 'looks|Вы не узнали';
frazaAnimalLore = 'looks|Вы не узнали';
frazaItemId = 'appears|Вы не узнали';
frazaTasteId = 'It tastes|И не рыба';
frazaArmsLore = 'Вы считаете|Вы так ничего';
TSpellBook = $0EFA;
TDagger = $0F51;
TBuben = $0E9D;
//-- End Options --
procedure DoingSkill(Skill ,Msg : String; Id : Cardinal);
var
t : TDateTime;
begin
WaitConnection(500);
t := Now;
CancelWaitTarget;
CancelTarget;
WaitTargetObject(Id);
useskill(Skill);
WaitJournalLine (t,Msg,5000);
end;
Procedure SwitchWar();
begin
SetWarMode (True);
wait(10);
SetWarMode (False);
end;
begin
SetARStatus(true);
while (not dead and (GetSkillValue('Anatomy') < 100.0)) do DoingSkill('Anatomy',frazaAnatomy,self);
while (not dead and (GetSkillValue('Evaluate Intelligence') < 100.0)) do DoingSkill('Evaluate Intelligence',frazaEvalInt,self);
while (not dead and (GetSkillValue('Animal Lore') < 100.0)) do DoingSkill('Animal Lore',frazaAnimalLore,self);
while (not dead and (GetSkillValue('Item ID') < 100.0)) do DoingSkill('Item ID',frazaItemId,self);
while (not dead and (GetSkillValue('Taste Identification') < 100.0) and (FindType(TDagger,Backpack)>0)) do DoingSkill('Taste Identification',frazaTasteId,finditem);
while (not dead and (GetSkillValue('Arms Lore') < 100.0) and (FindType(TDagger,Backpack)>0)) do DoingSkill('Arms Lore',frazaArmsLore,finditem);
while (not dead and (GetSkillValue('Musicianship') < 100.0) and (FindType(TBuben,Backpack)>0)) do
begin
useobject(finditem);
wait(10);
SwitchWar();
wait(10);
end;
AutoMenu('Tracking', 'Monsters');
while (not dead and (GetSkillValue('Tracking') < 100.0)) do
begin
WaitConnection(500);
UseSkill('Tracking');
WaitJournalLine (Now,'You see',2000);
end;
end.