텍스트 비교

두 텍스트 파일의 차이점을 찾아보세요

실시간 편집
변경 없는 행 숨기기
줄바꿈 비활성화
레이아웃
비교 단위
구문 강조

Untitled diff

생성일 비교 결과 만료 없음
55 삭제
86 행
19 추가
78 행
procedure BankCustom;
procedure BankCustom;
var
var
TPAA: T2DPointArray;
TPAA: T2DPointArray;
CTS, L, I, X, Y, Tries, BankFound: Integer;
CTS, L, I, X, Y, Tries, BankFound: Integer;
TPA: TPointArray;
TPA: TPointArray;
begin
begin
repeat
repeat
PlayerProtection;
PlayerProtection;
CTS := GetColorToleranceSpeed;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.11, 2.93);
SetColorSpeed2Modifiers(0.11, 2.93);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 2051676, MSX1, MSY1, MSX2, MSY2, 4);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 2051676, MSX1, MSY1, MSX2, MSY2, 4);
TPAA := TPAToATPAEx(TPA, 200, 100);
TPAA := TPAToATPAEx(TPA, 200, 100);
DebugATPA(TPAA, '');
DebugATPA(TPAA,'');
L := High(TPAA);
L := High(TPAA);
ColorToleranceSpeed(CTS);
ColorToleranceSpeed(CTS);
for I := 0 to L do
for I := 0 to L do
begin
MiddleTPAEx(TPAA[i], X, Y);
MMouse(X, Y, 3, 3);
if WaitUptext('th', 300) then
begin
begin
MiddleTPAEx(TPAA[i], X, Y);
GetMousePos(X, Y);
MMouse(X, Y, 3, 3);
Mouse(X, Y, 0, 0, True);
if WaitUptext('th', 300) then
Wait(2500 + Random(500));
begin
BankFound := 1;
GetMousePos(X, Y);
Break;
Mouse(X, Y, 0, 0, True);
Wait(2500 + Random(500));
BankFound := 1;
Break;
end;
end;
end;
end;
if not BankScreen then
if not BankScreen then
begin
if not WaitUptext('th', 300) then
begin
begin
if not WaitUptext('th', 300) then
MakeCompass(randomrange( - 20, 20));
begin
blindwalk(Point(3254 + random(1), 3420 + random(1)));
MakeCompass(randomrange(-20, 20));
PlayerProtection;
blindwalk(Point(3254 + random(1), 3420 + random(1)));
inc(Tries);
PlayerProtection;
WriteLn('Attempt number: ' + IntToStr(Tries));
inc(Tries)
end;
WriteLn('Attempt number: ' + IntToStr(Tries));
end;
end;
if Tries > 5 then
end;
begin
WriteLn('Failed finding the bank too many times. Exiting Script.');
if Tries > 5 then
Logout;
begin
TerminateScript;
WriteLn('Failed finding the bank too many times. Exiting Script.');
end;
Logout;
until (BankFound = 1);
TerminateScript;
if PinScreen then
end;
begin
InPin(BANKPIN);
until(BankFound = 1);
end;
if PinScreen then
begin
InPin(BANKPIN);
end;
repeat
repeat
if BankScreen then
if BankScreen then
begin
begin
if finddtm(EssDTM, X, Y, MSX1, MSY1, MSX2, MSY2) then
if finddtm(EssDTM, X, Y, MSX1, MSY1, MSX2, MSY2) then
begin
begin
QuickDeposit('inv');
QuickDeposit('inv');
WriteLn('Commencing Banking');
WriteLn('Commencing Banking');
MMouse(X, Y, 3, 3);
MMouse(X, Y, 3, 3);
wait(randomrange(10, 30));
wait(randomrange(10, 30));
GetMousePos(X, Y);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, mouse_right);
Mouse(X, Y, 0, 0, mouse_right);
wait(randomrange(10, 30));
wait(randomrange(10, 30));
ChooseOption('Withdraw-All')
ChooseOption('Withdraw-All');
wait(randomrange(10, 30));
wait(randomrange(10, 30));
CloseBank;
CloseBank;
Writeln('Banking Complete');
Writeln('Banking Complete');
PlayerProtection;
PlayerProtection;
Exit;
Exit;
end else
end else
begin
begin
WriteLn('Could not find the Essence DTM. Consider making another one.');
WriteLn('Could not find the Essence DTM. Consider making another one.');
Logout;
Logout;
TerminateScript;
TerminateScript;
end;
end;
end;
end;
until (False);
until not (LoggedIn);
end;
end;
저장된 비교 결과