1-й скрип
Code: Select all
Program snop_steal;
{$Include 'timer.inc'}
{$Include 'checksave.inc'}
{$Include 'skilloger.inc'}
const
BackEny = $40041466; // ИД бекпака чара на ком качаемся
Sunduk = $40041466; // Сундук с котлетками
itemst = $097B; // Что будем красть
eda = $097B; // Что будем кушать
procedure snooping;
var ctime:TTimer;
skills : array of TSkill;
begin
skills := [makeSkill('Snooping')];
ctime:=setTimer(60000*5);
repeat
if (isTimerExpire(ctime)) then
begin
FindType(eda,backpack)
if FindCount > 0 then
begin
checksave;
UseObject(FindItem);
wait(500);
end;
resetTimer(ctime);
end;
checksave;
UseObject(BackEny);
wait(2500);
skillLogger(skills, @journalLogger);
until (GetSkillValue('Snooping') = 100) or Dead;
end;
procedure Stealing;
var ctime:TTimer;
stime : TDateTime;
ist:integer;
skills : array of TSkill;
begin
skills := [makeSkill('Stealing')];
ctime:=setTimer(60000*5);
UseObject(BackEny);
wait(1000);
repeat
if (isTimerExpire(ctime)) then
begin
FindType(eda,backpack)
if FindCount > 0 then
begin
checksave;
UseObject(FindItem);
wait(500);
end;
resetTimer(ctime);
end;
checksave;
FindType(itemst,BackEny);
if FindCount > 0 then
begin
WaitTargetObject(FindItem);
wait(300);
UseSkill('Stealing');
stime:=Now;
ist:=Count(itemst);
repeat
wait(500);
until (InJournalBetweenTimes('You fail', STime, Now)<>-1) or (Count(Itemst) > ist) or Dead;
end;
FindType(itemst,backpack);
if (FindCount > 0) AND (Count(itemst) > 10) then
begin
moveitem(FindItem,ist,Sunduk,0,0,0);
wait(800);
end;
skillLogger(skills, @journalLogger);
until (GetSkillValue('Stealing') >= 100) or Dead;
end;
Begin
snooping;
stealing;
END.
Code: Select all
Program Popolnit_stealing;
const
Sunduk = $4035FF1B; // Сундук с котлетками
itemst = $097B; // Что будут красть
Begin
repeat
FindType(itemst,backpack);
if (FindCount=0) OR (GetQuantity(FindItem)<10) then
begin
useobject(Sunduk);
wait(500);
FindType(itemst,Sunduk);
if FindCount > 0 then
Begin
Grab(FindItem,100);
end;
end;
wait(10000);
until dead;
End.