when i run it and while running when scar reads the lines
107 and 144, i guess the lines which includes
SCAR Code:
If Result then Players[CurrentPlayer].Loc:=Where;
SCAR Code:
Program LMAO;
{.Include SRL/SRL.Scar}
Var
X, Y : Integer;
Const
{=========================]
Main Const
[=========================}
DetailedDebug = True;//True If You Want To See A Full Detailed Debug
Warning = False;//Let This...
{=========================]
Standard Const
[=========================}
MonkColor = 3234692;//Change This If Having Trouble Finding A Monk
procedure DeclarePlayers;
begin
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers); // set arraylength
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Loc:='Monastery';// let this
Players[0].Integers[0] := 5; //Monks To Kill
Players[0].Integers[0] := 5; //Max Time To Kill A Monk
Players[0].Booleans[0] := True;//True To Heal At Monks
{Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[1].Integers[0]:=5;//Monks To Kill
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[2].Integers[0]:=5;//Monks To Kill
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
Players[3].Integers[0]:=5;//Monks To Kill
}
end;
Procedure HW(WaitTime:integer);
Begin
Wait(WaitTime)
End;
Procedure HWL(TextLine:String);
Begin
If DetailedDebug Then Writeln(TextLine);
End;
Function AtMonastery:Boolean;//Will Check If The Character Is At Monks Or Not.
Var
Monastery:integer;
Begin
if Not LoggedIn Then Exit;
Monastery := DTMFromString('78DA63CC676260B06100034608C5B07DD36A8' +
'6FF50FE7F2060AC01AAF186C83141D54486CD609044D2C3980294' +
'F125A0260928A347404D2550461BBF1A001D4C1004');
Result:=DTMRotated(Monastery, X, Y, MMX1, MMY1, MMX2, MMY2);
FreeDTM(Monastery);
If Not Result then
begin
HWL('Location = Not At The Monastery')
Result:=FindSymbol(X, Y, 'Water');
End Else
HWL('Location = Monastery');
End;
Function ToMonastery(Where:string):Boolean;//Will Check If The Character Is At Monks Or Not.
Var
DTM:integer;
Begin
if Not LoggedIn Then Exit;
Case LowerCase(Where) of
'middle' :DTM := DTMFromString('78DA63CC676260B06100034608C5B07DD36A8' +
'6FF50FE7F2060AC01AAF186C83141D54486CD609044D2C3980294' +
'F125A0260928A347404D2550461BBF1A001D4C1004');
'upper left' :DTM := DTMFromString('78DA638C646260306600034608C5F0EFDF3F8' +
'6FF50FE7F2060CC00AAB183C83143D54486CD609044D2C3D80854' +
'634B400DC89C78026A9A806A12F0AB0100A1601130');
'lower left' :DTM := DTMFromString('78DA638C626260C86500034608C5909994C4F' +
'01FCAFF0F048C694035F6103966A89AC8B0190C92487A18EB816A' +
'6C08A86906AA8923A0260BA82611BF1A00AD9F0F9D');
'middle right':DTM := DTMFromString('78DA636C636260086000034608C5909994C4F' +
'01FCAFF0F048CE94035A9103966A89AC8B0190C92487A18EB816A' +
'9209A84902AA7121A0A61AA8C609BF1A00CC0F0FB1');
End;
Result:=DTMRotated(DTM, X, Y, MMX1, MMY1, MMX2, MMY2);
if Not result then Result:=FindSymbol(X, Y, 'Water');
If Not Result then HWL('Location = Not At The Monastery') Else HWL('Location = Monastery At The '+Where);
If Result Then MouseFlag(X, Y, 0, 0);
If Result then Players[CurrentPlayer].Loc:=Where;
FreeDTM(DTM);
End;
Procedure OtherPlace;
begin
Case LowerCase(Players[CurrentPlayer].Loc) of
'middle':Case Random(3) of
0:ToMonastery('Upper Left');
1:ToMonastery('Upper Left');
2:ToMonastery('Lower Left');
3:ToMonastery('Lower Left');
end;
'lower left':Case Random(2) of
0:ToMonastery('Middle');
1:ToMonastery('Middle Right');
2:ToMonastery('Middle');
End;
'upper left':Case Random(2) of
0:ToMonastery('Middle');
1:ToMonastery('Middle Right');
2:ToMonastery('Middle');
End;
'middle right':Case Random(3) of
0:ToMonastery('Upper Left');
1:ToMonastery('Upper Left');
2:ToMonastery('Lower Left');
3:ToMonastery('Lower Left');
end;
End;
End;
Function Heal:Boolean;//Will Heal At Monks.
Begin
if Not LoggedIn Then Exit;
If Players[CurrentPlayer].Booleans[0]Then//If You Want To Get Healt When Fighting Then It Will Heal.
Begin
OtherPlace;
End;
End;
Function FindMonk:Boolean;//This Finds The Monk Using Tpa.
Var
MonkTpa: TpointArray;
Monk: T2DPointArray;
XX, YY, H, CTS, I, Timer:Integer;
Begin
MouseSpeed:=20;
Timer:=GetSystemTime;
if not LoggedIn Then Exit;
CTS := GetColorToleranceSpeed;
If not CTS = 2 Then ColorToleranceSpeed(2);
FindColorsSpiralTolerance(XX, YY, MonkTPA, MonkColor, MSX1 + 15, MSY1 + 15, MSX2 - 15, MSY2 - 15, 5);
Monk:= TPAtoATPAEx(MonkTPA, 25, 35);
H:=High(Monk);
For I := 0 To H Do
Begin
MiddleTPAEx(Monk[i], X, Y);
HWL('Took '+ IntToStr(GetSystemTime - Timer) +' MiliSecs To Find The Monk.');
MMouse(X, Y, 3, 3);
Hw(50+random(25));
Result:=IsUpText('onk');
If Result Then Break;
Wait(100 + Random(50));
End;
If Not result Then HWL('Monk Not Found.');
If Result Then HWL('Took '+ IntToStr(GetSystemTime - Timer) +' MiliSecs To Move To The Monk And Check UpText.');
ColorToleranceSpeed(CTS);
MouseSpeed:=15;
End;
Function FightMonk:Boolean;
Begin
if Not LoggedIn Then Exit;
End;
Procedure SetUpPlayer;
Begin
If Not LoggedIn Then Exit;
End;
Procedure SetUpClient;
Var
MaxTime :Integer;
Begin
If Warning then
begin
MaxTime:= 0;
MarkTime(MaxTime);
ClearDebug;
Repeat
Writeln('');
Writeln('Make Sure That Your Accounts Are High Enough To Fight The Monks,');
Writeln('This Script Haves Healing But Level < 10s Will Die');
Writeln('');
wait(500);
ClearDebug;
Wait(500);
Until(timeFromMark(MaxTime)>2500);
ClearDebug;
Writeln('');
Writeln('Make Sure That Your Accounts Are High Enough To Fight The Monks,');
Writeln('This Script Haves Healing But Level < 10s Will Die');
Writeln('');
Wait(5000);
ClearDebug;
Writeln('To Turn This Warning Off Set Warning In The Main Const To False, Thank You.');
Writeln('If You Turn The Warning To Off(False) The Script Will Run');
Writeln('If You Do Not Know How Go Cry...');
Writeln('');
Writeln('');
Writeln('');
Writeln('');
Writeln('I Hope You Will Enjoy This Script!');
end else
ActivateClient;
//DeclarePlayers;
End;
{=========================]
MainLoop
[=========================}
Begin
SetUpSRL;
SetupClient;
AtMonastery;
FindMonk;
ToMonastery('Middle');
FindMonk;
ToMonastery('Upper Left');
FindMonk;
ToMonastery('Lower Left');
FindMonk;
ToMonastery('Middle Right');
Repeat
Heal;
Until False
End.
Could you fix this for me? thanks!