Log in

View Full Version : What I have so far.



Evva
02-02-2012, 02:58 AM
So I want this to be a Wc Island bot.
What I need help on is:
Walking
Banking
Using ring of kinship to tele
and clicking the resource dung

Here is what I got
program New;

{$DEFINE SMART}
{.include SRL\SRL.simba}


Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;

procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(8) of
0:
begin
HoverSkill('Woodcutting', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;
end;
end;

procedure ChopTree;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x, y, 'hop', 2633301, 35) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop');
end;
repeat
wait(400+random(250));
AntiBan;
Until not IsUpText('ew') or (InvFull);
until(InvFull);
end;


begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ChopTree;
end.
any type of help would be great.(all will be put in the special thanks part of the cod)

~Evva

jatex
02-02-2012, 03:02 AM
There are multiple tutorials on everything you need to know.. Just check out Tutorials for Beginners and intermediates. Everything you need to know should easily be able to be found in there.