Stealth Client Forum

Code: Select all

program stiling;
var c: integer;
stime : TDateTime;
Const
victim = $001E0E26;
item = $097B;
{$Include 'all.inc'}


Begin
CheckSave;
Waitconnection(3000);
While not dead do
begin
CheckSave;
WaitTargetObject(victim);
UseSkill('Stealing');
WaitJournalLine(Now,'opened|fail|need to stay close|cannot be stolen|perform|noticed',10000);
{WaitTargetObject(findtype(item,lastcontainer));
UseSkill('Stealing');
WaitTargetObject(item);
WaitJournalLine(Now,'cannot be stolen|successfully stolen|perform|noticed',10000);
end
Hungry(1,ground);
end

End.