SCAR Code:
program MythWarMokkaFinder;
{.include SRL/SRL.scar}
var
WormBMP:Integer;
x1,y1:integer;
JungleKingBMP, auto :Integer; //Needed to add auto to variables
escape:Integer;
Procedure CauseAFight;
begin
mouse(7, 363,0,0,true);
mouse(791,327,0,0,true);
mouse(791,327,0,0,true);
end;
Procedure FindJungleKing;
begin
JungleKingBMP:=BitmapFromString(9,3,'z78DA3330201FB8185'+
'85A184349530B5313530B630B130B2703630313134B286962606A'+
'E26440090000F71D1F44');
escape:=BitmapFromString(3,8,'z78DA3330C00E9C0C2C0D4C2D'+
'0CF002330B530323743526060400A6C98640080300C7A11B74');
IF (FindBitmapToleranceIn(JungleKingBMP,x,y,MSX1,MSY1,MSX2,MSY2,15))then // procedure name had to be FindBitmapToleranceIn
Begin
if(FindBitMapToleranceIn(escape,x,y,MSX1,MSY1,MSX2,MSY2,15))then
Mouse(x,y,0,0,true);
end;
end;
Procedure FindAuto;
begin
Auto:=BitmapFromString(10,3,'z78DA330A014185B18391B5AB'+
'81A381998581802A18185B1055018461A183A1B1840648D0D402A'+
'29B6D000004D9F22C8');
If(FindBitmapToleranceIn(Auto,x,y,MSX1,MSY1,MSX2,MSY2,15)) then
Mouse(x,y,0,0,true);
End; //to many ends
Begin
SetupSRL;
Repeat
FindAuto;
FindJungleKing;
Wait(500);
Until (False);
End.