SCAR Code:
{.include SRL\SRL.SCAR}
Function EvilMolly : Boolean;
begin
If GetColor(648, 83)= 0 then
Result:= true;
end;
Procedure AttemptMolly;
var Tried : Integer;
begin
if EvilMolly then begin
KeyDown(38)
Sleep(2000 + random(1000))
KeyUp(38)
Mouse(343, 161, 5, 5, true)
sleep(1500 +random(100))
ClickToContinue;
sleep(100 +random(100))
mouse(253, 396, 3, 3, true)
ClickToContinue;
ClickToContinue;
Mouse(441, 243, 7, 7, true)
Mouse(647, 271, 3, 3, true)
Mouse(647, 271, 3, 3, true)
Mouse(647, 271, 3, 3, true)
Mouse(647, 271, 3, 3, true)
Mouse(647, 271, 3, 3, true)
MMouse(262, 167, 4, 4)
repeat
Sleep(100)
until(isuptext('rab'))
Mouse(704, 424, 6, 6, true)
if ischatmessage('innocent') then begin
Tried := Tried + 1;
if Tried > 2 then begin
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'Varrock Bar';
end else
AttemptMolly;
end;
ClickToContinue;
ClickToContinue;
MouseFlag(28, 113, 3, 3)
MouseFlag(58, 236, 3, 3)
sleep(100+random(100))
clicktocontinue;
clicktocontinue;
clicktocontinue;
end;
end;