From: SRLKing
Give it a second to load, also post more info, what are you trying to do?
tried something different i loaded this script into the simba, then i typed in username&password. i pressed the green run button. it turns to "running" bottom left corner and the box went empty where output goes. but no client pops up, but claims its running?
program AutoRangeGuilder_11;
//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:='username'; //enter your username
P07_Playerpass:='password'; //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
else
begin
MMouse(675,184,10,10); //equipment
ClickMouse2(mouse_left);
if FindDTM(BronzeArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Open_Inv_Tab;
Start_Comp;
Click_to_Continue;
end;
end;
FreeDTM(BronzeArrowDTM);
end;
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 FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
MMouse(x,y,7,7);
ClickMouse2(mouse_left);
wait(randomrange(2350,2500));
mouseclickcount := mouseclickcount + 1;
end;
if FindDTM(CloseDTM, a, b, MSX1, MSY1, MSX2, MSY2) then
begin
MMouse(a,b,5,5);
ClickMouse2(mouse_left);
mouseclickcount2 := mouseclickcount2 + 1;
end;
until(mouseclickcount2 or mouseclickcount = 10);
begin
if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
MMouse(x,y,5,5);
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
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.