I tried adding a power chopper to it >.<
but... i get an error with the drop... "DropToPosition"
Try it please and try to fix?
Code:
program ZomgCollinFirstScript;
{.include SRL\SRL.scar}
// ZomgCollin's First Script! AutoSinger/Talker!
// Song is "Don't Stop Me Now" by Queen!
// http://www.srl-forums.com/
var
Talked, Antibans, TotalTalks :integer;
const
Message1 = 'green: Im a sex machine ready to reload!';
Message2 = 'cyan: Like an atom BOMB!';
Message3 = 'red: Im bout to oh, oh, oh, oh, oh, EXPLODE!';
Message4 = 'green: Im burnin thru the sky! yeah!!!';
Message5 = 'cyan: 200 degrees, thats why they call me mr. fahrenheight!';
Message6 = 'red: Im travellin at the speed of light!!';
Message7 = 'green: Oh, I want to make a super-sonic man out of you!';
RunDirection = 'N';//N = North, E = East, And So on.
LoadsPerPlayer = 30; //Amounts of loads per player before switching.
TreeColor = 0; //Fill in the treecolor here.
WaitPerTree = 5000; //the time to wait while we are chopping the tree in Miliseconds.
procedure DeclarePlayers;
Begin
HowManyPlayers := 2; // how many players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // player to start
Players[0].Name := 'user'; //your runescape account
Players[0].Pass := 'pass'; // your runescape password of your account
Players[0].Nick := 'nick'; //3 or 4 letters of the name, used for finding randoms
Players[0].Active := True; // want this account to bot or not?
Players[1].Name := 'user'; //your runescape account
Players[1].Pass := 'pass'; // your runescape password of your account
Players[1].Nick := 'nick'; //3 or 4 letters of the name, used for finding randoms
Players[1].Active := True; // want this account to bot or not?
end;
Procedure FindFightEx;
Begin
If(FindFight) then
Begin
Status('Fight found!');
Writeln('Our player is being attacked!')
Writeln('Run the FUCK AWAY!!!!')
Begin
Status('Running the FUCK AWAY!!!!');
Writeln('Running the FUCK AWAY!!!!');
RunAway(RunDirection,False,1,8000+Random(3000))
Writeln('Whew, We got the FUCK AWAY!');
end;
end;
end;
Procedure AntiRandoms;
var
i : Integer;
Begin
Status('Doing AntiRandoms');
for i := 0 to 3 do
FindNormalRandoms;
FindFightEx;
FindNonInventoryRandoms;
wait(1);
end;
procedure Antiban;
begin
if not LoggedIn then Exit;
case Random(68) of
0:
begin
HoverSkill('Attack', False);
Antibans:=Antibans+1;
end;
1:
begin
HoverSkill('Strength', False);
Antibans:=Antibans+1;
end;
2:
begin
GameTab(1 + Random(12));
wait(800 + random(500));
GameTab(4);
Antibans:=Antibans+1;
end;
3:
begin
BoredHuman;
Antibans:=Antibans+1;
end;
4:
begin
AlmostLogout;
Antibans:=Antibans+1;
end;
5:
begin
DoEmote(400 + Random(90));
Antibans:=Antibans+1;
end;
end;
end;
procedure AutoTalk;
begin
if not LoggedIn then Exit;
case Random(7) of
0: Typesend(Message1);
1: Typesend(Message2);
2: Typesend(Message3);
3: Typesend(Message4);
4: Typesend(Message5);
5: Typesend(Message6);
6: Typesend(Message7);
end;
Talked:= Talked+1;
TotalTalks:=TotalTalks+1;
end;
procedure Proggy;
begin
cleardebug;
writeln('#+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#');
writeln('Talked ' +IntToStr(TotalTalks)+' Times!');
writeln('Performed '+IntToStr(Antibans)+' Antibans');
writeln('Ran for ' +TimeRunning);
writeln('#+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#');
end;
procedure ChopTree;
var
x, y, MyMark : integer;
begin
if not Loggedin then Exit;
MarkTime(MyMark);
repeat
if FindObj(x, y, 'hop', TreeColor, 30) then
begin
Mouse(x, y, 0, 0, False);
if ChooseOption('hop') then
begin
//increase 1 to the total tree chop - if we had one
Exit; //We clicked chop, now we can exit this procedure.
end;
end;
if TimeFromMark(MyMark) > (2 * 60 * 100) then
begin
Logout;
Exit;
end;
until false
end;
procedure mainloop;
begin
repeat
if Talked >= 25000 then
begin
writeln('We talked 25000 times!');
NextPlayer(True);
Talked:=Talked-Talked;
mainloop;
end;
AutoTalk;
AntiRandoms;
Antiban;
AntiRandoms;
Proggy;
until(false);
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
SetAngle(true);
MakeCompass('N');
mainloop;
if LoggedIn then Logout;
LoginPlayer;
repeat
ChopTree;
if InvFull then
begin
DropToPosition(2, 28);
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
begin
NextPlayer(True);
end;
end;
if not Loggedin then NextPlayer(False);
until false
end.
I set the amount of talks to 25000 so it doesnt relog when your chopping :P
Reply With Quote
Originally Posted by turbobk
).
