SCAR Code:
program Tut_Runner;
{.include SRL/SRL.scar}
const
//Program Constants\\
RandomRangeInteger = 10; //Must be Integer and at least 1 more than RandomClickNum.
RandomClickNum = 1; //Must be Integer and at least 1 less than RandomRangeInteger.
smooth = true;
var
LooperInteger, RandomInteger, Mox, Moy, ClickCont, xx, yy, XDump, YDump, WhichArrow, FemaleOrMale : Integer;
//By bullzeye95 slightly edited... XD
function IsEvenReturn(ValueId: Integer): Boolean;
begin
Result:= ((ValueId mod 2) = 0);
end;
procedure ClickerMouse(BoolLeft: Boolean);
begin
GetMousePos(Mox, Moy);
HoldMouse(Mox, Moy, BoolLeft);
wait(14+random(100));
ReleaseMouse(Mox, Moy, BoolLeft);
end;
procedure LoadBMPs;
begin
ClickCont := BitmapFromString2(False, 'aA909D78DAE594410EC3' +
'200C04BF8401033E020DFF7F523195A248C8C429EAA9398CD0621' +
'6D622186300C0F4AFB60E9773271E89590E6618CA8BE9B8C4600A' +
'9DC1D5736C93E7310EA58D59CB953EBACE68590F8D983414283C5' +
'B7997509015B2E73879D6A10C8BD66616CA9840A4258A2851F4FC' +
'D44C0E62A55023291A4F29DD4D6A29EF75AD7086B522EA1767699' +
'5C673CEB576D37027AF2ACBB2F36B4FCD5DD2DCE1FDBC9A3E3FAD' +
'D9EFF02FF2EA77D4F4E7E93BB09FFABBBD6EDE37F5FFABF2FC1BB' +
'E01231');
end;
procedure CharButton(Color1, xc1, yc1, xd1, yd1, tol1, Color2, xc2, yc2, xd2, yd2, tol2, RandClickNum, RandRangeInteger: Integer);
begin
WhichArrow := RandomRange(RandomRange(1, 10), RandomRange(11, 20));
if(IsEvenReturn(WhichArrow)) then
begin
if(FindColorTolerance(xx, yy, Color1, xc1, yc1, xd1, yd1, tol1)) then
begin
wait(200+random(300));
MMouse(xx, yy, 10, 8);
RandomInteger := RandomRange(RandClickNum, RandRangeInteger);
for LooperInteger := 0 to RandomInteger do
begin
wait(300+random(2101));
ClickerMouse(true);
end;
end;
end;
if(not IsEvenReturn(WhichArrow)) then
begin
if(FindColorTolerance(xx, yy, Color2, xc2, yc2, xd2, yd2, tol2)) then
begin
wait(200+random(300));
MMouse(xx, yy, 10, 8);
RandomInteger := RandomRange(RandClickNum, RandRangeInteger);
for LooperInteger := 0 to RandomInteger do
begin
wait(300+random(2000));
Mouse(xx, yy, 3, 3, true);
end;
end;
end;
end;
procedure CharLook;
begin
FemaleOrMale := RandomRange(1 , 20);
if(IsEvenReturn(FemaleOrMale)) then
begin
if(FindColorTolerance(xx, yy, 2070783, 421, 277, 490, 309, 3)) then
begin
Mouse(xx, yy, 3, 3, true);
wait(100+random(154));
end;
end;
CharButton(12172745, 27, 72, 78, 104, 5, 12172745, 140, 74, 192, 107, 5, RandomClickNum, RandomRangeInteger);
CharButton(12172745, 27, 108, 80, 142, 5, 12172745, 139, 108, 193, 143, 5, RandomClickNum, RandomRangeInteger);
CharButton(12172745, 28, 146, 79, 176, 5, 12172745, 141, 146, 190, 177, 5, RandomClickNum, RandomRangeInteger);
CharButton(12172745, 29, 178, 76, 212, 5, 12172745, 141, 177, 188, 213, 5, RandomClickNum, RandomRangeInteger);
CharButton(12172745, 33, 213, 77, 247, 5, 12172745, 142, 215, 189, 247, 5, 1, 2);
CharButton(12172745, 31, 248, 81, 281, 5, 12172745, 144, 247, 191, 280, 5, RandomClickNum, RandomRangeInteger);
CharButton(12172745, 27, 284, 81, 313, 5, 12172745, 139, 283, 190, 314, 5, RandomClickNum, RandomRangeInteger);
CharButton(12172745, 331, 79, 378, 113, 5, 12172745, 440, 78, 489, 114, 5, RandomClickNum, RandomRangeInteger);
CharButton(12172745, 327, 133, 375, 149, 5, 12172745, 442, 114, 487, 148, 5, RandomClickNum, RandomRangeInteger);
CharButton(12172745, 327, 151, 376, 185, 5, 12172745, 436, 148, 490, 183, 5, RandomClickNum, RandomRangeInteger);
CharButton(12172745, 330, 183, 378, 217, 5, 12172745, 443, 185, 490, 219, 5, RandomClickNum, RandomRangeInteger);
CharButton(12172745, 328, 219, 378, 259, 5, 12172745, 443, 220, 489, 256, 5, RandomClickNum, RandomRangeInteger);
if(FindColorTolerance(xx, yy, 49152, 210, 261, 303, 310, 0)) then
begin
wait(200+random(600));
Mouse(xx, yy, 10, 8, true);
end;
end;
procedure GuideRoom;
begin
PerfectNorth;
wait(300+random(700));
HighestAngle;
wait(300+random(200));
LooperInteger:= 0;
while(LooperInteger = 0 and FindBitmap(ClickCont, XDump, YDump) = False) do // Line 115
begin
if(FindColorTolerance(xx, yy, 397183, 6, 7, 513, 335, 10) or FindColorTolerance(xx, yy, 331107, 6, 7, 513, 335, 10) or FindColorTolerance(xx, yy, 331119, 6, 7, 513, 335, 10) or FindColorTolerance(xx, yy, 198456, 6, 7, 513, 335, 10) or FindColorTolerance(xx, yy, 198465, 6, 7, 513, 335, 10) or FindColorTolerance(xx, yy, 198991, 6, 7, 513, 335, 10)) then
begin
wait(300+random(100));
if(FindColorTolerance(xx, yy, 15460843, xx, yy, xx+20, yy+20, 15) or FindColorTolerance(xx, yy, 5524820, xx, yy, xx+20, yy+20, 15) or FindColorTolerance(xx, yy, 10128539, xx, yy, xx+20, yy+20, 15) or FindColorTolerance(xx, yy, 11445166, xx, yy, xx+20, yy+20, 15) or FindColorTolerance(xx, yy, 15263464, xx, yy, xx+20, yy+20, 15) or FindColorTolerance(xx, yy, 4011837, xx, yy, xx+20, yy+20, 15)) then
begin
wait(300+random(100));
MMouse(xx, yy, 5, 5);
wait(300+random(100));
if(Option2('Rune')) then
begin
ClickerMouse(true);
wait(300+random(100));
LooperInteger := 1;
end;
end;
end;
end;
end;
begin
LoadBMPs;
MouseSpeed := 4;
rs_DeleteUID;
ActivateClient;
wait(2000);
SetupSRL;
GuideRoom;
end.