--------------------thread Closed--------------------
--------------------thread Closed--------------------
MMouse(MSX1, MSY1, MSX2, MSY2); <-- Cant use that in there Have to have it like i think : MMouse(Msx1,Msy2,1,1) <-- the 1,1 is the random ness of the click. Hope i helped
Nope, that line is fine. It will move the mouse randomly around the screen (antiban).
SCAR Code:mousespeed:=100;
I'm not liking the look of that lol... that setting is WAYY to high. Set it to around 15-22.
Standards fixed..
SCAR Code:{================================================= ========================]
[ ]
[ NAME : Rora's Power Chopper ]
[ WRITER : Rora ]
[ CATEGORY : Woodcutting ]
[ DESCRIPTION : Cuts Normal Trees and Drops Them ]
[ USAGE : To Raise Your WoodCutting Level ]
[ ]
[ ]
[================================================== =======================]
[ Instructions. ]
[================================================== =======================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Position Players In Woodcutting Spots (Lumbridge) ]
[ 4. Set Playernames and Passwords / SRL Id and Pass in DeclarePlayers ]
[ 5. Drag Cross Hair Over Client ]
[ 6. Start script Logged Out / In! ]
{================================================= ========================}
program PowerWoodCutter;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
var
x, y: Integer;
i: Integer;
const
TreeColor = 1922123;
LoadsPerPlayer = 10;
procedure DeclarePlayers;
begin
NumberOfPlayers(2);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := true;
Players[1].Name := ' ';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := true; //Fill this in
end;
procedure AntiBanMe;
var
TalkBack, TalkBack1, TalkBack2, TalkBack3, TalkBack4: Integer;
begin
if (InChat('hello')) or (InChat('Hi')) or (InChat('hey')) or (InChat('yo')) then TalkBack := Random(5);
case TalkBack of
1: TypeSend('hello');
2: TypeSend('hey');
3: TypeSend('Good Day');
4: TypeSend('Hello, how are you?');
5: TypeSend('ummm hi...');
end;
begin
if (InChat('noob')) or (InChat('nooblet')) then
begin
TalkBack1 := Random(5);
case TalkBack1 of
0: TypeSend('you the noob');
1: TypeSend('your face is a noob.');
2: TypeSend('look in the mirror noob.');
3: TypeSend('choob');
4: TypeSend('you fail.');
5: TypeSend('well, your garbage.');
end;
begin
if (InChat('auto')) or (InChat('autoer')) then TalkBack2 := Random(5);
case TalkBack2 of
1: TypeSend('??? i do not do that ???');
2: TypeSend('you wish');
3: TypeSend('i never cheated in my life');
4: TypeSend('go away noob.');
5: TypeSend('you auto');
end;
begin
if (InChat('report')) or (InChat('reported')) or (InChat('reporting')) then TalkBack3 := Random(5)case TalkBack3 of 1: TypeSend('Lol ok youll get repoted then');
2: TypeSend('*Cough Cough* Im no autoer *Cough Cough*');
3: TypeSend('ill report u then');
4: TypeSend('ur loss.. youll see');
5: TypeSend('ehemm?!?!?!?!');
end;
begin
if (InChat('lol')) or (InChat('rofl')) or (InChat('lmao')) then TalkBack4 := Random(5)case TalkBack4 of 1: TypeSend('-laughs-');
2: TypeSend('pretty funny');
3: TypeSend('ooo');
4: TypeSend('whats so funny?');
5: TypeSend('funny...');
end;
end;
end;
end;
end;
end;
end;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then Result := true;
2: if FindMod then Result := true;
3: if FindMime then Result := true;
4: if FindMaze then Result := true;
5: if FindQuiz then Result := true;
6: if FindDemon then Result := true;
7:
begin
if NoGameTab then
begin
Result := true;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
end;
end;
end;
procedure Chop;
begin
if not Loggedin then Exit;
if (FindColor(x, y, TreeColor, 117, 179, 889, 709)) then
begin
Mouse(x, y, 5, 5, true);
Wait(1000 + Random(8000));
case Random(10) of
1: typesend('this is boring')
2: typesend('i cant take any more!!!')
3: typesend(' Blink 182 are such beaasts!!!')
4: typesend('ugh')
5: typesend('zzzz...zzzz...')
6: typesend('This is so not fun')
7: typesend('when does it end!')
8: typesend('This is 3 hours straight!!!')
9: typesend('I wish i was on a shift!')
10: typesend(' 4 hours straight woodcutting!!!')
end;
Wait(10000 + Random(20000));
end;
end;
begin
SetupSRL
i := 0;
repeat
i := i + 1;
Chop;
MMouse(MSX1, MSY1, MSX2, MSY2);
if InvFull then
begin
DropToPosition(2, 28);
if (invfull = true) then mousespeed := 20;
wait(1500 + Random(100));
end;
until (i >= 50);
end.
All those long waits are not good, you need to check if the color you find is actually the tree you want, make sure its not an ent and click on it. What happens if the tree disappears in 2 seconds?, your script sits there and waits lol.
Rogeruk's Al-Kharid Tanner V1.1 [Released]
Rogeruk's Barbarian Crafter [Coming Soon]
Rogeruk's Guild Fisher [Coming Soon]
!! - Taking Requests - !!
Ohh Ok pl0x!!????
Can somebody answer my question at the bottom please :-(
It should, just with like a 28 seconds wait lol.
Rogeruk's Al-Kharid Tanner V1.1 [Released]
Rogeruk's Barbarian Crafter [Coming Soon]
Rogeruk's Guild Fisher [Coming Soon]
!! - Taking Requests - !!
Firstly, it's pretty dangerous to have the script talk EVERY time it clicks a tree.
Secondly,should beSCAR Code:MMouse(MSX1, MSY1, MSX2, MSY2);
, if you want it 100% precise. Your version is a little different, so it actually doesn't matter which you use.SCAR Code:MMouse(MSx1,MSy1,MSx2-MSx1,MSy2-MSy1)
Thirdly, "InvFull" is broken. Useinstead.SCAR Code:if InvCount = 28 then ...
That should solve it.
-Knives
oh ok and the cursor still goes crazy to co-ordinates i didn't tell it to go...
If you use FindColorTolerance, it would find the right color and click it. And the "wrong co-ordinates", are because of the antiban.
SCAR Code:MMouse(MSX1, MSY1, MSX2, MSY2);
EDIT: That's my guess.
-Knives
what does tolerance do?
Tolerance 1 searches for very similar colors. Tolerance 255 will search for any color. Basically, the higher tolerance, the less similarity the color searched for, will need to have compared to the original color.
^^ Sounds confusing, eh? Read it slowly :P
-Knives
oh right ah..... that all fits
thank you everybody
-THREAD CLOSED-
There are currently 1 users browsing this thread. (0 members and 1 guests)