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.
var
LooperInteger, RandomInteger, xx, yy, WhichArrow, ArrowLeft, ArrowRight, Female, FemaleOrMale : Integer;
//by bullzeye95 slightly edited... :P
function IsEvenReturn(ValueId: Integer): Boolean;
begin
Result:= ((ValueId mod 2) = 0);
end;
procedure LoadBMPs;
begin
ArrowLeft := BitmapFromString2(False, 'a086E078DA6D905BAEC3' +
'300844B76463F3FA043BDDFF926A0C525BDD9B482708660694D65' +
'AEFBD9D67BD0E703E8734D6871D8212C4478242419DD1C7E88044' +
'8D187A7CC59442DE882399153EC4D8C20F07E1E63B0657B8D8230' +
'7664CBB036D527C18CE1078F1244D669F00178EEAD0A9E5BC636A' +
'E999CF719570EBEA18217A7A653231C81660C7070DDB4F426E4CE' +
'FEDA4ABBC2A838F54448AE9C53ED79CB9E5FB869C96F76E34D02E' +
'DBCE0A854AB8DE891346E514BFBCA934D3AD622F1BBA93D93F772' +
'27532DCA8C5FB67F2FEDA78F5EEE76B8E664695732FF961EA2F53' +
'99AE45AE8E0B1C1DFEC9F9CB7BED1B468');
ArrowRight := BitmapFromString2(False, 'a5803378DA75904992C' +
'4200C04BF6484D62336F8FF4F6A2D443787191F32148548C95CD7' +
'D5802FFF56907039B93F3F36082A7C13BAA38706641D5799D4098' +
'A9150F6BC6163C853694E31F891DEE0926FC2AF056724BCC22677' +
'D840C2D604B5C9CDF324133762067AA8572D22B14A9ECA23C826C' +
'00FC31FCCCEAA49A9A331BB47EBD6764E365ADB73D8FECBCB438B' +
'065D3A15E45614F6B3B20D26BAF7DCE4F69C49F650C307B16C26A' +
'A8A4535ED3EAD6CC9F35FF6AD834808DDAA2EC3F0550D0658F3FD' +
'72C3F2EC17C87DB63F5F83074DB2A2CFF237DE9E77749B9BC3A66' +
'9E5A7ED0335E');
Female := BitmapFromString2(False, 'aE875F78DA7D915B0E85200' +
'C44B754A0D5F2A920FB5FD2A5D490315CEDC749334C5F4A445463' +
'07E9D1912A778A6EC636C897F1D2A9471D1E29D3B38D067C8CFC9' +
'4CE3D55CBF760792C534F6A0C69638BD05AD68E41B17828EE719D' +
'9B109FA29285D183B5C8F5954660E755C1ADB00A9DF79428912B4' +
'E710F6E782BE07405EF5A6F79380B57CEDFFADB14543C5F6FF99E' +
'821BBE29FE5FD66E7F6AE1CBFC009D2');
end;
procedure CharLook;
begin
FemaleOrMale := RandomRange(1 , 20);
if(IsEvenReturn(FemaleOrMale)) then
begin
if( FindBitmapIn(Female, xx, yy, 614, 538, 684, 574) ) then
begin
xx := xx+random(12);
yy := yy+random(12);
MMouse(xx, yy, 0, 0);
wait(100+random(154));
ClickMouse(xx, yy, true);
end;
end;
//Button One
WhichArrow := RandomRange(RandomRange(1, 10), RandomRange(11, 20));
if(IsEvenReturn(WhichArrow)) then
begin
if( FindBitmap(ArrowLeft, xx, yy) ) then
begin
xx := xx+random(12);
yy := yy+random(12);
wait(200+random(300));
MMouse(xx, yy, 0, 0);
//Variables
RandomInteger := RandomRange(RandomClickNum, RandomRangeInteger);
LooperInteger := 0;
for LooperInteger := 0 to RandomInteger do
begin
wait(300+random(2101));
ClickMouse(xx, yy, true);
end;
end;
end;
if(not IsEvenReturn(WhichArrow)) then
begin
if( FindBitmapIn(ArrowRight, xx, yy, 220, 326, 383, 366) ) then
begin
xx := xx+random(12);
yy := yy+random(12);
MMouse(xx, yy, 0, 0);
//Variables
RandomInteger := RandomRange(RandomClickNum, RandomRangeInteger);
LooperInteger := 0;
for LooperInteger := 0 to RandomInteger do
begin
wait(300+random(2000));
ClickMouse(xx, yy, true);
end;
end;
end;
//Procedure END.
end;
begin
SetupSRL;
LoadBMPs;
FindWindow('RuneScape - the massive online adventure game by Jagex Ltd - Windows Internet Explorer');
ActivateClient;
CharLook;
end.