Simba Code:
procedure MainLoop;
var
i, Timer : Integer;
Judge, Judge2, RoundFin : Boolean;
myPath: TPointArray;
begin
StatsGuise('MainLoop');
if FindNormalRandoms then
if not LoggedIn then
Exit;
StatsGuise('Finding Judge');
repeat
MarkTime(Timer);
repeat
if FindObjTPA(x, y, 1845548, 11, 2, 15, 15, 50, ['ition']) or
FindObjTPA(x, y, 2702911, 13, 2, 15, 15, 50, ['ition']) then
begin
Mouse(x, y, 5, 5, False);
Wait(200 + Random(150) + Laggy);
if OptionsExist(['mpete'], Nothing) then
begin
Judge := True;
ChooseOption('mpete');
end else
Judge2 := True;
end else
begin
Mouse(266, 136, 10, 30, False);
if WaitOption('mpete', 500) then
Judge := True;
end;
until((TimeFromMark(Timer) > 20000) or Judge or Judge2);
if TimeFromMark(Timer) > 20000 then
begin
if not InCords(2510, 2965, 2545, 2990) then
myPath := [Point(2554, 2927), Point(2542, 2935), Point(2534, 2947), Point(2524, 2955), Point(2515, 2963), Point(2515, 2982)];
SPS_WalkPath(myPath);
ClickNorth(1);
MakeCompass(35 + Random(5));
if FindObjTPA(x, y, 1845548, 11, 2, 15, 15, 50, ['ition']) or
FindObjTPA(x, y, 2702911, 13, 2, 15, 15, 50, ['ition']) then
Mouse(x, y, 5, 5, False);
Wait(200 + Random(150) + Laggy);
if WaitOption('to C', 500) then
Judge2 := True;
end;
until (Judge or Judge2)
StatsGuise('MainLoop');
Wait(800 + Random(150));
if Judge then
begin
KeyDown(49);
Wait(20+random(20));
KeyUp(49);
Wait(1500);
KeyDown(49);
Wait(20+random(20));
KeyUp(49);
Wait(800 + Random(150) + (Laggy * 2));
If PinScreen Then
begin
StatsGuise('Enter pin...');
InPin(Players[CurrentPlayer].Pin);
end;
ArrowDTM := DTMFromString('mggAAAHicY2NgYOACYhEgFgBiXiDmYIAAZigN4vMDsTCUdtEA6WDCwCIM2AEjDgwBAGIcASA=');
If FindDTM(ArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) Then
begin
Mouse(x, y, 5, 5, True);
end;
FreeDTM(ArrowDTM)
end;
if not RightClickMethod then
begin
StatsGuise('Spamming Targets');
MarkTime(Timer);
repeat
if FindColorTolerance(x, y, 4310482, 230, 162, 296, 219, 11) then
MMouse(487, 42, 5, 5);
Wait(600);
if IsUpText('lose') then
ClickMouse2(True);
if FindObjEx(x, y, ['arget'], [5041405, 5238269], 7, 31, MSX1, MSY1, 375, 65) then
repeat
ClickMouse2(True);
Wait(RandomRange(15, 40));
if FindNPCChatText('orry', Nothing) then
RoundFin := True;
until(not IsUpText('-at') or RoundFin);
until(RoundFin or (TimeFromMark(Timer) > 40000));
if TimeFromMark(Timer) > 40000 then
begin
if not InCords(2510, 2965, 2545, 2990) then
myPath := [Point(2554, 2927), Point(2542, 2935), Point(2534, 2947), Point(2524, 2955), Point(2515, 2963), Point(2515, 2982)];
SPS_WalkPath(myPath);
ClickNorth(1);
MakeCompass(35 + Random(5));
end;
end;
if RightClickMethod then
begin
StatsGuise('Shooting Targets');
for i := 1 to 10 do
begin
if FindObjEx(x, y, ['arget'], [5041405, 5238269], 7, 31, MSX1, MSY1, 375, 65) then
ClickMouse2(False);
Wait(200 + Random(150));
ChooseOptionEx('arget', 'object');
Wait(2400 + Random(150) + Laggy);
MMouse(487, 42, 3, 3);
Wait(550 + Random(150) + Laggy);
if IsUpText('lose') then
ClickMouse2(True);
repeat;
end;
if FindObjTPA(x, y, 1845548, 11, 2, 15, 15, 50, ['ition']) or
FindObjTPA(x, y, 2702911, 13, 2, 15, 15, 50, ['ition']) then
Mouse(x, y, 5, 5, False);
WaitOption('to C', 500);
end;
CoursesDone := (CoursesDone + 1);
end;