Stealth Client Forum

Code: Select all

Program Begging;
var t : Integer;
enemyA,enemyB,enemyC,bank : Cardinal;
 
{$Include 'all.inc'}
 
Begin
EnemyA := $********;
enemyB := $********;
enemyC := $********;
bank:=objAtLayer(BankLayer);
 
SetARStatus(true);
Hungry(1,backpack);
clearjournal;
while not Dead do
begin
if Connected then
begin
for t := 0 to 10 do
begin
CheckSave;
UseSkill('Begging');
WaitTargetObject(enemyA);
Wait(10000);
UseSkill('Begging');
WaitTargetObject(enemyB);
Wait(10000);
UseSkill('Begging');
WaitTargetObject(enemyC);
Wait(10000);
end;
uoSay('bank');
            wait(4500);
FindType($0E7D,backpack);
MoveItem(finditem,1,Bank,0,0,0);
Hungry(1,backpack);
 
end;
end;
End.

Code: Select all

4:35:32 [Bardik]: Character Bardik Connected.
14:35:35 [Bardik]: Compiling
14:35:35 [Bardik]: Compiler: [Error] (Begging Bardik.sc at 6:1): Syntax error
14:35:35 [Bardik]: Compiling failed
14:35:35 [Bardik]: Script Begging Bardik.sc stopped successfuly

Code: Select all

EnemyA := $4024129B; 
enemyB := $4024129B; 
enemyC := $4024129B;