Code:
program AutoRangeGuilder_11;
{$DEFINE SMART8}
//Welcome to the AutoRangeGuilder_11! This is my first official script so please feel
//free to comment me on the forums/inbox for problems and suggestions.
//Currently I know that it keeps 'talking' to the judge sometimes, simply end the script
//and try a different spot or rotate the camera a bit.
//Thanks to everyone who dedicated their time for the OldSchool Simba support.
//First script, no leech. There is something you may want to change however.
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}
var
TargetDTM, BronzeArrowDTM, CloseDTM, x, y, a, b, mouseclickcount, mouseclickcount2, competitionsplayedcount: integer;
const
judgecolor1 = 3364126;
judgecolor2 = 3033937;
judgecolor3 = 3763576;
procedure P07_DeclarePlayer;
begin
P07_Playername:=''; //enter your username
P07_Playerpass:=''; //enter your password
end;
procedure Open_Inv_Tab;
begin
if(not P07_TabInventoryTab(4)) then
begin
P07_TabInventoryTab(4)
end;
end;
procedure Start_Comp;
begin
wait(randomrange(500,1000));
begin
case random(10000) of
1..50: wait(randomrange(3000,6000));
200..276: wait(randomrange(7000,12000));
9875..10000: P07_HoverSkill('ranged', random(6000));
end;
end;
P07_MakeCameraAngleHigh;
begin
if P07_FindObjCustom(x, y, ['omp', 'tition', 'judge'], [judgecolor1, judgecolor2, judgecolor3], 5) then
begin
MMouse(x,y,5,5);
ClickMouse2(mouse_left);
writeln('');
writeln('Talking to the Judge...');
end
else
begin
writeln('Unable to find the Judge, looking again...');
P07_MakeCameraAngleHigh;
Start_Comp;
end;
end;
end;
procedure Click_to_Continue;
begin
wait(randomrange(1000,1500));
begin
case random(50) of //click to continue
1..20: MMouse(380,454,5,5);
21..35: MMouse(310,455,5,5);
36..50: MMouse(246,453,5,5);
end;
end;
ClickMouse2(mouse_left);
ClickMouse2(mouse_left);
wait(randomrange(600,1000));
begin
case random(50) of //click sure
1..20: MMouse(320,396,5,5);
21..35: MMouse(273,390,5,5);
36..50: MMouse(197,394,5,5);
end;
end;
ClickMouse2(mouse_left);
ClickMouse2(mouse_left);
wait(randomrange(600,1000));
begin
case random(50) of //click to continue
1..20: MMouse(380,454,5,5);
21..35: MMouse(310,455,5,5);
36..50: MMouse(246,453,5,5);
end;
end;
ClickMouse2(mouse_left);
ClickMouse2(mouse_left);
wait(randomrange(600,1000)); //click to continue
ClickMouse2(mouse_left);
ClickMouse2(mouse_left);
wait(randomrange(400,600));
writeln('The competition has started! Wielding the Bronze arrows...');
end;
procedure Wield_Arrow;
begin
BronzeArrowDTM := DTMFromString('mggAAAHicY2NgYDjBxMBwCIj3AvFxID4LxNuBmImRgeE/AwT/BeJ/QCwAFHM2lgXjeE8dMK2nIsKQK8LLwA+Ux4YZcWAIAACNZgyT');
if FindDTM(BronzeArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
MMouse(x,y,5,5);
ClickMouse2(mouse_left);
end;
FreeDTM(BronzeArrowDTM);
end;
MMouse(675,184,10,10); //equipment <----------------- LINE 114
ClickMouse2(mouse_left);
if FindDTM(BronzeArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
procedure Fire_Target;
begin
P07_MakeCameraAngleLow;
P07_MakeCompassDegree(randomrange(304,316));
writeln('Compass Angle set for:' + IntToStr(P07_GetCompassAngle));
mouseclickcount := 0;
mouseclickcount2 := 0;
wait(randomrange(300,500));
TargetDTM := DTMFromString('mlwAAAHicY2dgYPgDxD+B+B+U/Q2IGRghYvJArAvEekCsCcTKUGwIxM9vRzNs2tjDEJkizpAVZsMQnTWfYW2YP0N8rhEDF1AeF2bEg6EAAKUoEN4=');
CloseDTM := DTMFromString('mFQEAAHic42VgYHjKyMDwCogfQjGIfQ+I3zJC5J5B2feQxDWB+lSgWA+KNRgg4kpAbAilYWwQZmBgxMAp4Y5gXJDoxhDiaQ6mYWwQZgWqIhVj2kIYowAAOJcV5Q==');
if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
writeln('Firing at Target!');
repeat
if Findcolorspiraltolerance(x, y, 10513243, 209, 24, 248, 48, 10) then
begin
clickmouse(x, y, mouse_left);
wait(randomrange(75, 100));
mouseclickcount := mouseclickcount + 1;
end;
until(findcolorspiraltolerance(x, y, 128, 175, 352, 433, 402, 10));
begin
if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
ClickMouse(x, y, mouse_left);
wait(randomrange(50, 60));
end;
end;
end
else
begin
FreeDTM(TargetDTM);
writeln('Unable to find Target... Trying again...');
Fire_Target;
end;
competitionsplayedcount := competitionsplayedcount + 1;
writeln('Competitions Played:' + IntToStr(competitionsplayedcount) +'!');
FreeDTM(TargetDTM);
FreeDTM(CloseDTM);
end;
ClickMouse2(mouse_left);
ClickMouse2(mouse_left);
wait(randomrange(200,600));
end;
end;
end
else
begin
FreeDTM(TargetDTM);
writeln('Unable to find Target... Trying again...');
Fire_Target;
end;
competitionsplayedcount := competitionsplayedcount + 1;
writeln('Competitions Played:' + IntToStr(competitionsplayedcount) +'!');
FreeDTM(TargetDTM);
FreeDTM(CloseDTM);
end;
begin
setupSRL;
SetupP07Include;
ActivateClient;
ClearDebug;
Wait(1000);
If (Not P07_LoggedIn) then
begin
P07_LogInPlayer;
end;
repeat
Open_Inv_Tab;
Start_Comp;
Click_to_Continue;
Wield_Arrow;
Fire_Target;
until(competitionsplayedcount = 3);
begin
writeln('Number of Competitions completed!');
writeln('Logging out...');
MMouse(644,483,5,5);
ClickMouse2(mouse_left);
wait(randomrange(500,1500));
MMouse(633,378,5,5);
ClickMouse2(mouse_left);
end;
TerminateScript;
end.