Vinyl Scratch
02-11-2012, 09:20 PM
I'm working a a script, and i need help with a banking procedure. I dont know if i should use SPS of Radial... I'll post the script:
program Trolls_Cowhide_Collecter;
//{$DEFINE SMART}
//{$IFDEF SMART}
// {$i SRL/SRL/Misc/Smart.simba}
//{$ENDIF}
//{$i SRL/SRL.simba}
const
SRLStats_Username = ''; //SRL Stats User
SRLStats_Pass = ''; //SRL Stats Pass
BreakEvery = '60'; //Break Every Log, Or Never.
BreakFor = '7'; //Break For How long, Now?
Version = '1.0'; // Don't Touch.
NumbOfPlayers = 1; //Number of Players That You Will Be using.
StartPlayer = 0; //Start Which Player?
var
X, Y, CowsKilled: integer;
StartingXP: integer;
procedure DeclarePlayers;
var i: Integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
begin
Players[0].Name := ''; // Your Username.
Players[0].Pass := ''; // Your Password.
Players[0].Pin := ''; // Your Bank Pin. (Leave Blank If You Don't Have One.)
Member := True; // Are You A Member? (Yes = True, No = False)
Active := True; // Is This Player Active? (same as above rule)
end;
end;
procedure StatsGuise(Stats:String);
begin
Status(stats);
Disguise(stats);
end;
procedure AntiBan;
begin
case Random(250) of
0: begin StatsGuise('AntiBan') GameTab(tab_stats) HoverSkill ('Mining', false) GameTab(28); end;
1: begin StatsGuise('AntiBan') SleepAndMoveMouse (9000+random(600)); end;
2: begin StatsGuise('AntiBan') GameTab(tab_inv) ExamineInv; GameTab(28); end;
3: begin StatsGuise('AntiBan') RandomAngle(1); end;
4: begin StatsGuise('AntiBan') GameTab(tab_stats) HoverSkill ('Attack', false) GameTab(28); end;
5: begin StatsGuise('AntiBan') SleepAndMoveMouse (4000+random(250)); end;
6: begin StatsGuise('AntiBan') RandomAngle(2); end;
end;
end;
Procedure ProgressReport;
var Exp: integer;
begin
Exp := (GetXPBarTotal - StartingXP);
writeLn('=====================================');
writeLn('=======Trolls Cowhide Collecter======');
writeLn('=======Time Running: ' + TimeRunning);
writeLn('=======Logs: ' + IntToStr(CowsKilled));
writeLn('=======Exp: ' + IntToStr(EXP));
writeLn('=====================================');
end;
procedure FailSafe(Reason:String);
begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
ProgressReport;
TerminateScript;
end;
procedure KillCow;
begin
if FindObjCustom(x, y, ['ttack', 'ow'], [3029313, 15452812, 5663109, 3557221, 14938352], 5) Then
begin
StatsGuise('Cow! Attacking...')
GetMousePos(X, Y);
case Random(2) of
0: Mouse(X, Y, 5, 5, True);
1: begin
Mouse(X, Y, 5, 5, False);
WaitOption('ttack', 250);
end;
end;
Flag;
repeat
Marktime(CowsCounter);
AntiBan;
wait(100);
if InvCount=PlusOne then
WriteLn ('Killed the Cow.');
until (InvCount=PlusOne)
end;
end;
end;
procedure Banking;
begin
begin
DeclarePlayers;
StatsGuise;
AntiBan;
ProgressReport;
Failsafe;
repeat
KillCow;
Banking;
until(false);
end.
What, and how should I do this?
program Trolls_Cowhide_Collecter;
//{$DEFINE SMART}
//{$IFDEF SMART}
// {$i SRL/SRL/Misc/Smart.simba}
//{$ENDIF}
//{$i SRL/SRL.simba}
const
SRLStats_Username = ''; //SRL Stats User
SRLStats_Pass = ''; //SRL Stats Pass
BreakEvery = '60'; //Break Every Log, Or Never.
BreakFor = '7'; //Break For How long, Now?
Version = '1.0'; // Don't Touch.
NumbOfPlayers = 1; //Number of Players That You Will Be using.
StartPlayer = 0; //Start Which Player?
var
X, Y, CowsKilled: integer;
StartingXP: integer;
procedure DeclarePlayers;
var i: Integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
begin
Players[0].Name := ''; // Your Username.
Players[0].Pass := ''; // Your Password.
Players[0].Pin := ''; // Your Bank Pin. (Leave Blank If You Don't Have One.)
Member := True; // Are You A Member? (Yes = True, No = False)
Active := True; // Is This Player Active? (same as above rule)
end;
end;
procedure StatsGuise(Stats:String);
begin
Status(stats);
Disguise(stats);
end;
procedure AntiBan;
begin
case Random(250) of
0: begin StatsGuise('AntiBan') GameTab(tab_stats) HoverSkill ('Mining', false) GameTab(28); end;
1: begin StatsGuise('AntiBan') SleepAndMoveMouse (9000+random(600)); end;
2: begin StatsGuise('AntiBan') GameTab(tab_inv) ExamineInv; GameTab(28); end;
3: begin StatsGuise('AntiBan') RandomAngle(1); end;
4: begin StatsGuise('AntiBan') GameTab(tab_stats) HoverSkill ('Attack', false) GameTab(28); end;
5: begin StatsGuise('AntiBan') SleepAndMoveMouse (4000+random(250)); end;
6: begin StatsGuise('AntiBan') RandomAngle(2); end;
end;
end;
Procedure ProgressReport;
var Exp: integer;
begin
Exp := (GetXPBarTotal - StartingXP);
writeLn('=====================================');
writeLn('=======Trolls Cowhide Collecter======');
writeLn('=======Time Running: ' + TimeRunning);
writeLn('=======Logs: ' + IntToStr(CowsKilled));
writeLn('=======Exp: ' + IntToStr(EXP));
writeLn('=====================================');
end;
procedure FailSafe(Reason:String);
begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
ProgressReport;
TerminateScript;
end;
procedure KillCow;
begin
if FindObjCustom(x, y, ['ttack', 'ow'], [3029313, 15452812, 5663109, 3557221, 14938352], 5) Then
begin
StatsGuise('Cow! Attacking...')
GetMousePos(X, Y);
case Random(2) of
0: Mouse(X, Y, 5, 5, True);
1: begin
Mouse(X, Y, 5, 5, False);
WaitOption('ttack', 250);
end;
end;
Flag;
repeat
Marktime(CowsCounter);
AntiBan;
wait(100);
if InvCount=PlusOne then
WriteLn ('Killed the Cow.');
until (InvCount=PlusOne)
end;
end;
end;
procedure Banking;
begin
begin
DeclarePlayers;
StatsGuise;
AntiBan;
ProgressReport;
Failsafe;
repeat
KillCow;
Banking;
until(false);
end.
What, and how should I do this?