Log in

View Full Version : Cowhide Collecter help



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?

begginer
02-11-2012, 09:24 PM
Do you have the procedure to collect hides from ground?

kitchenrange
02-11-2012, 09:26 PM
You could use any type of walking you want. It would depend on where you are walking. Are there lots of trees and things? If so, you could look into ObjectDTM walking. If not, maybe SPS will work for you. I like to make my own DTMs and use them, but you can't do that at all places.

Check out the tutorials on these subjects and try them until you find which one works best for your script.

Vinyl Scratch
02-11-2012, 09:35 PM
I got my script to work, but i still need it to walk to the bank, but when i drag the crosshair to the client, and run it, it works. But moves INCREDIBLY SLOW! try it out on your own, and see if it works for you..

Vinyl Scratch
02-12-2012, 02:28 AM
Bump. I still need help.... :D lol

kitchenrange
02-12-2012, 04:27 AM
Upload the newer version of your script.

From the OP there is nothing that should be slowing down your script.

Vilenueve
02-12-2012, 04:33 AM
u see i didnt take anything

Vinyl Scratch
02-12-2012, 07:41 AM
Spam. And, I fixed this.. Anyway.. thanks for the help guys...


Vile, learn to script, and ill respect you more.

Vinyl Scratch
02-15-2012, 05:03 AM
Bump... Need help again.....


How do I get my script to talk, in Runescape?


For an antiban procedure.

begginer
02-15-2012, 02:26 PM
Bump... Need help again.....


How do I get my script to talk, in Runescape?


For an antiban procedure.

Maybe a type procedure. I am not sure but this can happen.

Shatterhand
02-15-2012, 06:03 PM
Bump... Need help again.....
How do I get my script to talk, in Runescape?
For an antiban procedure.
I have this very simple chat procedure:
procedure ChatResponder;
begin
if FindTextTPAMulti(ClBlue,50, 0,435,MCX2,459,['Bot?','U bot?','ot','otting','otter'], SmallChars, Nothing) then
begin
TypeSend('no');
Wait(RandomRange(1000,3000));
end;
if FindTextTPAMulti(ClBlue,50, 0,435,MCX2,459,['thing?','mithing?','mithing lvl?','mithing level?'], SmallChars, Nothing) then
begin
KeyDown(13); KeyUp(13);
Wait(RandomRange(500,1000));
Sendkeys('s');
Wait(RandomRange(500,1000));
Sendkeys('b');
Wait(RandomRange(500,1000));
Sendkeys('2');
Wait(RandomRange(1000,3000));
end;
end;
It answers no for bot questions, and qc level when people ask.