Stealing and Snooping

[ti]

Помогите доделать скрипт на Stealing нужно чтоб чар таб отжимал.. тоесть был не варе...

Code: Select all

Program snop_steal; 
{$Include 'timer.inc'} 
{$Include 'checksave.inc'} 
{$Include 'skilloger.inc'} 

const 
BackEny = $4024DF48;   // ИД бекпака чара на ком качаемся 
Sunduk = $400980D5;   // Сундук с котлетками 
itemst = $0E21;      // Что будем красть 
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(2500); 
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('Слямзить что-либо не удалось!', STime, Now)<>-1) or (Count(Itemst) > ist) or Dead; 
  end; 
 FindType(itemst,backpack); 
 if (FindCount > 0) AND (Count(itemst) >= 10) then 
 begin 
  moveitem(FindItem,5,Sunduk,0,0,0); 
  wait(800); 
 end; 
  skillLogger(skills, @journalLogger); 
 until (GetSkillValue('Stealing') >= 100) or Dead; 
end; 

Begin 
if (GetSkillValue('Snooping') < 100) then 
begin 
 AddToSystemJournal('Snooping'); 
 snooping; 
end; 
 AddToSystemJournal('Stealing'); 
 stealing; 

END.

[WladL]

Code: Select all

WarMode:=false;