Simba Code:
Program Cats_Bar_Smither;
var
Bar:Integer;
Mouse:integer;
Procedure Move_Mouse_One;
var
i,x,y: integer
begin
i := randomRange(0, 19);
begin
if (i = 1) then
begin
ClickMouse(x +1,y +1,mouse_Left);
WriteLn('1');
end;
if (i = 2) then
begin
ClickMouse(x +1,y +2,mouse_Left);
WriteLn('2');
end;
if (i = 3) then
begin
ClickMouse(x +2,y +3,mouse_Left);
WriteLn('3');
end;
if (i = 4) then
begin
ClickMouse(x +2,y +4,mouse_Left);
WriteLn('4');
end;
if (i = 5) then
begin
ClickMouse(x +3,y +5,mouse_Left);
WriteLn('5');
end;
if (i = 6) then
begin
ClickMouse(x +5,y +2,mouse_Left);
WriteLn('6');
end;
if (i = 7) then
begin
ClickMouse(x +12,y +8,mouse_Left);
WriteLn('7');
end;
if (i = 8) then
begin
ClickMouse(x +4,y +3,mouse_Left);
WriteLn('8');
end;
if (i = 9) then
begin
ClickMouse(x +9,y +1,mouse_Left);
WriteLn('9');
end;
if (i = 10) then
begin
ClickMouse(x +9,y +1,mouse_Left);
WriteLn('10');
end;
if (i = 11) then
begin
ClickMouse(x +21,y +15,mouse_Left);
WriteLn('11');
end;
if (i = 12) then
begin
ClickMouse(x +19,y +11,mouse_Left);
WriteLn('12');
end;
if (i = 13) then
begin
ClickMouse(x +12,y +21,mouse_Left);
WriteLn('13');
end;
if (i = 14) then
begin
ClickMouse(x +6,y +20,mouse_Left);
WriteLn('14');
end;
if (i = 15) then
begin
ClickMouse(x +1,y +25,mouse_Left);
WriteLn('15');
end;
if (i = 16) then
begin
ClickMouse(x +15,y +2,mouse_Left);
WriteLn('16');
end;
if (i = 17) then
begin
ClickMouse(x +12,y +21,mouse_Left);
WriteLn('17');
end;
if (i = 18) then
begin
ClickMouse(x +6,y +16,mouse_Left);
WriteLn('18');
end;
if (i = 19) then
begin
ClickMouse(x +27,y +11,mouse_Left);
WriteLn('19');
end;
if (i = 0) then
begin
ClickMouse(x +20,y +10,mouse_Left);
WriteLn('0');
end;
end;
end;
Procedure Move_Mouse_Two;
var
i,x,y: integer
begin
i := randomRange(0, 19);
begin
if (i = 1) then
begin
ClickMouse(x +1,y +1,mouse_Left);
WriteLn('1');
end;
if (i = 2) then
begin
ClickMouse(x +11,y +5,mouse_Left);
WriteLn('2');
end;
if (i = 3) then
begin
ClickMouse(x +21,y +8,mouse_Left);
WriteLn('3');
end;
if (i = 4) then
begin
ClickMouse(x +8,y +10,mouse_Left);
WriteLn('4');
end;
if (i = 5) then
begin
ClickMouse(x +36,y +2,mouse_Left);
WriteLn('5');
end;
if (i = 6) then
begin
ClickMouse(x +27,y +8,mouse_Left);
WriteLn('6');
end;
if (i = 7) then
begin
ClickMouse(x +34,y +8,mouse_Left);
WriteLn('7');
end;
if (i = 8) then
begin
ClickMouse(x +39,y +3,mouse_Left);
WriteLn('8');
end;
if (i = 9) then
begin
ClickMouse(x +19,y +4,mouse_Left);
WriteLn('9');
end;
if (i = 10) then
begin
ClickMouse(x +26,y +2,mouse_Left);
WriteLn('10');
end;
if (i = 11) then
begin
ClickMouse(x +7,y +7,mouse_Left);
WriteLn('11');
end;
if (i = 12) then
begin
ClickMouse(x +12,y +6,mouse_Left);
WriteLn('12');
end;
if (i = 13) then
begin
ClickMouse(x +39,y +10,mouse_Left);
WriteLn('13');
end;
if (i = 14) then
begin
ClickMouse(x +18,y +8,mouse_Left);
WriteLn('14');
end;
if (i = 15) then
begin
ClickMouse(x +1,y +12,mouse_Left);
WriteLn('15');
end;
if (i = 16) then
begin
ClickMouse(x ,y,mouse_Left);
WriteLn('16');
end;
if (i = 17) then
begin
ClickMouse(x +35,y +2,mouse_Left);
WriteLn('17');
end;
if (i = 18) then
begin
ClickMouse(x +26,y +6,mouse_Left);
WriteLn('18');
end;
if (i = 19) then
begin
ClickMouse(x +29,y +6,mouse_Left);
WriteLn('19');
end;
if (i = 0) then
begin
ClickMouse(x +20,y +10,mouse_Left);
WriteLn('0');
end;
end;
end;
Procedure click;
var
x,y,i: integer;
begin
GetMousePos(x, y);
WriteLn('Found mouse');
Move_Mouse_One;
WriteLn('First click');
wait(randomRange(700,3900));
Move_Mouse_Two;
WriteLn('Second click - long wait');
wait(randomRange(1080,2790));
MoveMouse(x + 1000, y+1000);
wait(randomRange(37000,39000));
WriteLn('Repeating');
inc (Bar);
MoveMouse(x, y);
end;
Procedure Progress_Report;
var
Exp,Tip:integer
Begin
Cleardebug;
EXP :=bar*240;
Tip :=bar*50;
WriteLn('=================From The Mayors Guide=================');
WriteLn(' Cats Bar Smasher');
WriteLn(' Bars Smashed Filled: ' + intToStr(Bar));
WriteLn(' Exp Gained: ' + intToStr(EXP));
WriteLn(' Tips Created: ' + intToStr(Tip));
Writeln('=======================================================');
End;
Begin
Writeln('Start in front of anvil nearest varrock bank.');
Writeln('Set your camera up so the begin smithing button lines up');
Writeln('with the centre of the anvil.');
repeat
Click;
Progress_report;
until Bar > 100;//change this to the number of bars you want to use.
end.
Simba Code:
Program Cats_Bar_Smither;
var
Bar:integer
Procedure click ;
var
x,y,a,b,c,d,i: integer;
Begin
GetMousePos(x, y);
WriteLn('Found mouse');
MoveMouse(x + random(-29, 29), y + random(-25, 25));
GetMousePos(a, b);
HoldMouse(a,b,mouse_Left);
ReleaseMouse(a,b,mouse_Left);
WriteLn('First click');
Wait(randomRange(700,4900));
MoveMouse(x + random(-4, 41), y + random(-12, 12));
GetMousePos(c,d);
HoldMouse(c,d,mouse_Left);
ReleaseMouse(c,d,mouse_Left);
WriteLn('Second click - long wait');
Wait(randomRange(1080,2790));
Wait(randomRange(37000,49000));
WriteLn('Repeating');
Inc (Bar);
MoveMouse(x, y);
end;
Procedure Progress_Report;
var
Exp,Tip:integer
Begin
Cleardebug;
EXP :=bar*240;
Tip :=bar*50;
WriteLn('=================From The Mayors Guide=================');
WriteLn(' Cats Bar Smasher');
WriteLn(' Bars Smashed Filled: ' + intToStr(Bar));
WriteLn(' Exp Gained: ' + intToStr(EXP));
WriteLn(' Tips Created: ' + intToStr(Tip));
Writeln('=======================================================');
End;
Begin
Writeln('Start in front of anvil nearest varrock bank.');
Writeln('Set your camera up so the begin smithing button lines up');
Writeln('with the centre of the anvil.');
repeat
click;
Progress_report;
until Bar > 100;//change this to the number of bars you want to use.
end.