SCAR Code:
procedure scriptloop(sender: TObject);
begin
frmDesign.ModalResult:= mrOk;
activateclient;
repeat
wait(2000+random(2000));
openthebank;
if foundbanker then
begin
withdrawl;
foundbanker := false;
logonknifect;
hoverovertheskill;
fletchwait;
bankthebows;
foundbanker := false;
doneall;
report;
end;
until false;
end;
begin
setupscript;
report;
SafeInitForm;
SafeShowFormModal;
end.
SCAR Code:
var timed,todo,logdone,s,x,y:integer;
username: string;
foundbanker : boolean;
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
startscript : TButton;
cancelscript : TButton;
p1username : TEdit;
p1password : TEdit;
custdebug : TMemo;
p2username : TEdit;
p2password : TEdit;
logtype : TEdit;
hmtd : TEdit;
Don't want to post whole script cause of leechers.