PDA

View Full Version : Looping a bot?



cento330
03-26-2013, 06:26 AM
I'm currently running the barbarian fishing bot and it only runs one invy then stops running. What is the loop code I have to type in?

rj
03-26-2013, 09:51 AM
can you post the script?

Repeat
procedure here
until conditions met here (False would be infinate)

cento330
03-26-2013, 11:25 AM
Here is the script brother. Please feel free to add in what needs added and thanks for your time.


program Fisher;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
{$i sps/sps.simba}
var
CHANGE_COUNT, b, b1, b2, b2one, b3, b3one, b3two, b4, b5, b6: integer;



Procedure AntiBan;
begin
case(random(250)) of
0: MMouse(random(500), random(500), 1, 2);
10: P07_HoverSkill('Fishing',1000+Random(4000));
20: P07_HoverSkill('Fishing',1000+Random(4000));
30: P07_MakeCameraAngleHigh;
40: P07_MakeCameraAngleLow;
50: P07_MakeCompassDegree(random(360));
end;
end;

procedure FindRod;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['rod'],[1208726,1141389],5) Then
begin
ClickMouse2(mouse_left);
wait(1250+random(200))
end;
end;

procedure ClickGenie;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['enie'],[5704020, 4786501, 9376393, 8719998, 4390976],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['enie'],[1650385],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['enie'],[1650385],10))
end;
end;

procedure ClickMan;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['ious','alk'],[5849352],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['ious','alk'],[5849352],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['ious','alk'],[5849352],10))
end;
end;

procedure RunSwarm;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['alk','ere'],[255],10) Then
begin
wait(8000+random(500))
If P07_FindObjCustom(x,y,['alk','ere'],[255],10) Then
begin
If P07_FindObjCustom(x,y,['alk','ere'],[3179891],10) Then
begin
ClickMouse2(mouse_left);
wait(3000+random(1000))
end;
end;
end;
end;

procedure ClickJekyll;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['yll'],[594262],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['yll'],[594262],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['ekyll'],[594262],10))
end;
end;

procedure ClickFruit;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10) Then
begin
wait(5000+random(1000))
ClickMouse2(mouse_left);
If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10))
end;