PHP Code:
Index: Tutorial Runner/POMS Tutorial Runner [ Run me ].scar
===================================================================
--- Tutorial Runner/POMS Tutorial Runner [ Run me ].scar (revision 186)
+++ Tutorial Runner/POMS Tutorial Runner [ Run me ].scar (working copy)
@@ -93,7 +93,7 @@
procedure DeclarePlayers;
begin
- HowManyPlayers := 5; // How many players declared?
+ HowManyPlayers := 1; // How many players declared?
CurrentPlayer := 0; // Number of player to start with.
NumberOfPlayers(HowManyPlayers);
@@ -105,6 +105,7 @@
Loc := 'Not started'; // Don't change unless you know what you are doing, see Readme file
Active := True; //If slot in use, set this to True.
end;
+{
with Players[1] do
begin
Name := '';
@@ -113,6 +114,8 @@
Loc := 'Not started'; // Don't change unless you know what you are doing, see Readme file
Active := True; //If slot in use, set this to True.
end;
+}
+{
with Players[2] do
begin
Name := '';
@@ -121,6 +124,8 @@
Loc := 'Not started'; // Don't change unless you know what you are doing, see Readme file
Active := True; //If slot in use, set this to True.
end;
+}
+{
with Players[3] do
begin
Name := '';
@@ -129,6 +134,8 @@
Loc := 'Not started'; // Don't change unless you know what you are doing, see Readme file
Active := True; //If slot in use, set this to True.
end;
+}
+{
with Players[4] do
begin
Name := '';
@@ -137,6 +144,7 @@
Loc := 'Not started'; // Don't change unless you know what you are doing, see Readme file
Active := True; //If slot in use, set this to True.
end;
+}
end;
{*******************************************************************************
@@ -1866,14 +1874,6 @@
Mouse(MMCX - 2, MMCY - 15, 3, 3, True);
Wait(RandomRange(1000, 2000));
Flag;
- ZXC := GetSystemTime + 60000;
- while (FindNPCChatText('ention', Nothing)) and (GetSystemTime < ZXC) do
- Wait(1000);
- ZXC := GetSystemTime + 15000;
- while (not ClickContinue(True, True)) and (GetSystemTime < ZXC) do
- Wait(50);
- if (GetSystemTime >= ZXC) then
- Break;
SetAngle(True);
MakeCompass('N');
Mouse(581, 69, 3, 3, True);
@@ -1899,53 +1899,19 @@
end;
if (Players[CurrentPlayer].Loc = 'Right after food bowl') then
begin
- Wait(RandomRange(1000, 2000));
- Mouse(671, 94, 3, 3, True);
- Wait(RandomRange(1000, 2000));
- Flag;
- Wait(RandomRange(1000, 2000));
- Mouse(661, 149, 3, 3, True);
- Wait(RandomRange(1000, 2000));
- Flag;
- Wait(RandomRange(2000, 3000));
- PreFindLowWall;
- if (not (FindLowWall(P))) then
+ if (not (WaitTilNPCText('out', 80000))) then
Break;
- Mouse(P.X, P.Y, 0, 0, True);
- Wait(RandomRange(5000, 7000));
- Players[CurrentPlayer].Loc := 'Dragon hide';
- end;
- if (Players[CurrentPlayer].Loc = 'Dragon hide') then
- begin
- if (not (TalkToSirVant)) then
- Break;
- Flag;
- Wait(1000 + Random(1000));
- ZXC := GetSystemTime + 15000;
- while (not ClickContinue(True, True)) and (GetSystemTime < ZXC) do
- Wait(50);
- if (GetSystemTime >= ZXC) then
- Break;
- Wait(RandomRange(2000, 3000));
- if (not (FindNPCChatText('one', ClickLeft))) then
- Break;
- Wait(RandomRange(2000, 3000));
if (ClickContinueEx) then
Break;
- if (not (WaitTilNPCText('iding', 120000))) then
- Break;
- ZXC := GetSystemTime + 15000;
- while (not ClickContinue(True, True)) and (GetSystemTime < ZXC) do
- Wait(50);
- if (GetSystemTime >= ZXC) then
- Break;
- if (not (WalkToNPCDots)) then
- Break;
- Wait(1000 + Random(1000));
+ Wait(5000 + Random(2000));
if (not (TalkToSirVant)) then
Break;
+ Flag;
+ Wait(5000 + Random(2000));
if (ClickContinueEx) then
Break;
+ MakeCompass('N');
+ SetAngle(True);
Players[CurrentPlayer].Loc := '2nd search bag';
end;
if (Players[CurrentPlayer].Loc = '2nd search bag') then
@@ -1954,17 +1920,6 @@
Break;
if (not (WaitTilNPCText('electio', 30000))) then
Break;
- Players[CurrentPlayer].Loc := 'Walk to pillars';
- end;
- if (Players[CurrentPlayer].Loc = 'Walk to pillars') then
- begin
- Mouse(625, 27, 3, 3, True);
- Wait(RandomRange(1000, 2000));
- Flag;
- Mouse(602, 73, 3, 3, True);
- Wait(RandomRange(1000, 2000));
- Flag;
- Wait(RandomRange(2000, 3000));
Players[CurrentPlayer].Loc := 'Burn pillars';
end;
if (Players[CurrentPlayer].Loc = 'Burn pillars') then
@@ -2055,23 +2010,17 @@
if (GetSystemTime >= ZXC) then
Break;
Wait(RandomRange(500, 800));
- Mouse(537, 18, 15, 15, True);
- ZXC := GetSystemTime + 15000;
- while (not ClickContinue(True, True)) and (GetSystemTime < ZXC) do
- Wait(50);
- if (GetSystemTime >= ZXC) then
- Break;
- Mouse(640, 26, 0, 0, True);
+ Mouse(584, 134, 5, 5, True);
Players[CurrentPlayer].Loc := 'Meet roddeck';
end;
if (Players[CurrentPlayer].Loc = 'Meet roddeck') then
begin
- if (not (WaitTilNPCText('oddec', 60000))) then
+ if (not (WaitTilNPCText('odd', 60000))) then
Break;
- Wait(1000 + Random(1000));
if (ClickContinueEx) then
Break;
Wait(RandomRange(500, 800));
+ MakeCompass('N');
SetAngle(True);
Wait(RandomRange(500, 800));
if (not (TalkToRoddeck)) then
@@ -2285,6 +2234,22 @@
Wait(50);
if (GetSystemTime >= ZXC) then
Break;
+ Mouse(90, 394, 2, 2, True);
+ Wait(100);
+ Mouse(57, 421, 2, 2, True);
+ Wait(100);
+ Mouse(284, 393, 2, 2, True);
+ Wait(100);
+ Mouse(195, 423, 2, 2, True);
+ Wait(100);
+ Mouse(390, 394, 2, 2, True);
+ Wait(100);
+ TypeSend('1990');
+ Wait(100);
+ Mouse(448, 396, 2, 2, True);
+ Wait(100);
+ Mouse(174, 214, 2, 2, True);
+ Wait(100);
WriteLn('DONE!');
Inc(TotalScript[1]);
Inc(Total[1]);
Index: Essence Miner/POMS Essence Miner [ Run me ].scar
===================================================================
--- Essence Miner/POMS Essence Miner [ Run me ].scar (revision 186)
+++ Essence Miner/POMS Essence Miner [ Run me ].scar (working copy)
@@ -67,7 +67,7 @@
{.Include ..\Includes\Updater.SCAR}
{.Include ..\Includes\SRLStats.SCAR}
{.Include ..\Includes\Walker.SCAR}
-//{.Include ..\Includes\Debug.SCAR} // <-- UnComment this line to Enable Debug (This is for DEV purposes, or if you want to see the intense debug / tpa debugging. lols.)
+{.Include ..\Includes\Debug.SCAR} // <-- UnComment this line to Enable Debug (This is for DEV purposes, or if you want to see the intense debug / tpa debugging. lols.)
{*******************************************************************************
CONSTANTS
@@ -86,7 +86,7 @@
RealTimeDebugUpdate = False; // (*SCAR ONLY*) Requires Debug.scar to be un commented. Suggested you have a good processor.
UseFasterReflectionWalking = True; //Walks with reflection faster (speeds up mouse, if you're cautious about mouse speed, change this to false.)
//Default is True.
-
+
function BoxReward: TStringArray;
begin
Result := ['XP', 'oins']; // Box rewards
@@ -355,7 +355,7 @@
*******************************************************************************}
function ToMine: TPointArray;
begin
- Result := [Point(3258, 3409), Point(3253, 3401)];
+ Result := [GetMyPos, Point(3258, 3409), Point(3253, 3401)];
end;
{*******************************************************************************
@@ -365,9 +365,56 @@
*******************************************************************************}
function ToBank: TPointArray;
begin
- Result := [Point(3258, 3411), Point(3253, 3420)];
+ Result := [GetMyPos, Point(3258, 3411), Point(3253, 3420)];
end;
+function FlagExx(Dist: Integer; Path: TPointArray): Boolean;
+var
+ Tx, Ty, M, D1, D2, ii: Integer;
+ LL, CL: TPoint;
+ Path2, PT: TPointArray;
+begin
+ Result := False;
+ M := GetSystemTime;
+ LL := GetMyPos;
+ while (FindColor(Tx, Ty, FlagColor, MMX1, MMY1, MMX2, MMY2)) do
+ begin
+ wait(50);
+ D1 := Distance(Tx, Ty + 14, MMCX, MMCY);
+ if (D1 <= Dist) then
+ begin
+ Result := True;
+ Exit;
+ end;
+ Wait(100);
+ if (GetColor(6, 6) <> clWhite) then
+ if (GetSystemTime - M > 5000) then
+ begin
+ if (D1 = D2) then Exit;
+ D2 := D1;
+ M := GetSystemTime;
+ end;
+ if (Random(20) = 0) then IdleTime(500, 1000, 0.005);
+ if SRL_Procs[SRL_AntiBan] <> nil then
+ SRL_Procs[SRL_AntiBan]();
+ {$IFDEF POMS_DEBUG}
+ CL := GetMyPos;
+ if (LL.x <> CL.x) or (LL.y <> CL.y) then
+ begin
+ SetLength(Path2, Length(Path));
+ for ii := 0 to High(Path) do
+ Path2[ii] := TileToMM(Path[ii]);
+ PT := MakeSplinePath(Path2, 0.005);
+ ClearTPA;
+ DDebugTPA(PT);
+ LL := GetMyPos;
+ end;
+ {$ENDIF}
+ end;
+ Wait(RandomRange(200, 400));
+ ClearTPA;
+end;
+
{*******************************************************************************
function WalkOurPath(Path: TPointArray): Boolean;
By: Timer
@@ -375,11 +422,21 @@
*******************************************************************************}
function WalkOurPath(Path: TPointArray): Boolean;
var
- i, tMouseT, TH: Integer;
- P: TPoint;
+ i, ii, tMouseT, TH: Integer;
+ P, LL: TPoint;
+ PT, Path2: TPointArray;
begin
TH := High(Path);
- for i := 0 to TH do
+ {$IFDEF POMS_DEBUG}
+ SetLength(Path2, Length(Path));
+ for ii := 0 to High(Path) do
+ Path2[ii] := TileToMM(Path[ii]);
+ PT := MakeSplinePath(Path2, 0.005);
+ ClearTPA;
+ DDebugTPA(PT);
+ LL := GetMyPos;
+ {$ENDIF}
+ for i := 1 to TH do
begin
if (not TileOnMM(Path[i])) then
Exit;
@@ -393,7 +450,7 @@
end else
Mouse(P.x, P.y, 8, 8, True);
Wait(250);
- Flag;
+ FlagExx(0, Path);
if (not UseFasterReflectionWalking) then
Wait(1500 + Random(500));
end;
Index: Includes/Debug.scar
===================================================================
--- Includes/Debug.scar (revision 186)
+++ Includes/Debug.scar (working copy)
@@ -17,28 +17,30 @@
BMP, BMP2, I, Usless, II, III: Integer;
TPA: TPointArray;
begin
- POMS_DEBUGLINE('Clearing SMART Canvas....');
- BMP := BitmapFromString(765, 503, '');
- SCanvas := GetBitmapCanvas(BMP);
- SCanvas.handle := SmartGetDebugDC;
- BMP2 := BitmapFromString(765, 503, '');
- TPA := LoadTextTPA('POMS rev' + IntToStr(POMS_Current_Revision), StatChars, Usless);
- for I := 0 to High(TPA) do
- FastSetPixel(BMP2, TPA[I].x + 25, TPA[I].y + 35, clWhite);
- TPA := LoadTextTPA(POMS_SCRIPT, StatChars, Usless);
- for I := 0 to High(TPA) do
- FastSetPixel(BMP2, TPA[I].x + 25, TPA[I].y + 45, clWhite);
- for II := 0 to High(POMS_VARIABLES) do
- begin
- TPA := LoadTextTPA(POMS_VARIABLES[II], StatChars, Usless);
- for III := 0 to High(TPA) do
- FastSetPixel(BMP2, TPA[III].x + 25, TPA[III].y + 35 + ((II + 3) * 10), clWhite);
- end;
- Canvas := GetBitmapCanvas(BMP2);
- CopyCanvas(Canvas, SCanvas, 0, 0, 765, 503, 0, 0, 765, 503);
- FreeBitmap(BMP);
- FreeBitmap(BMP2);
- POMS_DEBUGLINE('Cleared SMART Canvas!!');
+ try
+ POMS_DEBUGLINE('Clearing SMART Canvas....');
+ BMP := BitmapFromString(765, 503, '');
+ SCanvas := GetBitmapCanvas(BMP);
+ SCanvas.handle := SmartGetDebugDC;
+ BMP2 := BitmapFromString(765, 503, '');
+ TPA := LoadTextTPA('POMS rev' + IntToStr(POMS_Current_Revision), StatChars, Usless);
+ for I := 0 to High(TPA) do
+ FastSetPixel(BMP2, TPA[I].x + 25, TPA[I].y + 35, clWhite);
+ TPA := LoadTextTPA(POMS_SCRIPT, StatChars, Usless);
+ for I := 0 to High(TPA) do
+ FastSetPixel(BMP2, TPA[I].x + 25, TPA[I].y + 45, clWhite);
+ for II := 0 to High(POMS_VARIABLES) do
+ begin
+ TPA := LoadTextTPA(POMS_VARIABLES[II], StatChars, Usless);
+ for III := 0 to High(TPA) do
+ FastSetPixel(BMP2, TPA[III].x + 25, TPA[III].y + 35 + ((II + 3) * 10), clWhite);
+ end;
+ Canvas := GetBitmapCanvas(BMP2);
+ CopyCanvas(Canvas, SCanvas, 0, 0, 765, 503, 0, 0, 765, 503);
+ FreeBitmap(BMP);
+ FreeBitmap(BMP2);
+ POMS_DEBUGLINE('Cleared SMART Canvas!!');
+ except end;
end;
procedure DebugTPA(TPA: TPointArray);
@@ -47,29 +49,32 @@
BMP, BMP2, I, Usless, II, III: Integer;
TPAA: TPointArray;
begin
- POMS_DEBUGLINE('Found ' + IntToStr(Length(TPA)) + ' colours!');
- POMS_DEBUGLINE('Debugging TPA!');
- BMP := BitmapFromString(765, 503, '');
- SCanvas := GetBitmapCanvas(BMP);
- SCanvas.handle := SmartGetDebugDC;
- BMP2 := BitmapFromString(765, 503, '');
- for I := 0 to High(TPA) do
- FastSetPixel(BMP2, TPA[I].x, TPA[I].y, clRed);
- TPAA := LoadTextTPA('POMS rev' + IntToStr(POMS_Current_Revision), StatChars, Usless);
- for I := 0 to High(TPAA) do
- FastSetPixel(BMP2, TPAA[I].x + 25, TPAA[I].y + 35, clWhite);
- TPAA := LoadTextTPA(POMS_SCRIPT, StatChars, Usless);
- for I := 0 to High(TPAA) do
- FastSetPixel(BMP2, TPAA[I].x + 25, TPAA[I].y + 45, clWhite);
- for II := 0 to High(POMS_VARIABLES) do
- begin
- TPAA := LoadTextTPA(POMS_VARIABLES[II], StatChars, Usless);
- for III := 0 to High(TPAA) do
- FastSetPixel(BMP2, TPAA[III].x + 25, TPAA[III].y + 35 + ((II + 3) * 10), clWhite);
+ try
+ POMS_DEBUGLINE('Found ' + IntToStr(Length(TPA)) + ' colours!');
+ POMS_DEBUGLINE('Debugging TPA!');
+ BMP := BitmapFromString(765, 503, '');
+ SCanvas := GetBitmapCanvas(BMP);
+ SCanvas.handle := SmartGetDebugDC;
+ BMP2 := BitmapFromString(765, 503, '');
+ for I := 0 to High(TPA) do
+ FastSetPixel(BMP2, TPA[I].x, TPA[I].y, clRed);
+ TPAA := LoadTextTPA('POMS rev' + IntToStr(POMS_Current_Revision), StatChars, Usless);
+ for I := 0 to High(TPAA) do
+ FastSetPixel(BMP2, TPAA[I].x + 25, TPAA[I].y + 35, clWhite);
+ TPAA := LoadTextTPA(POMS_SCRIPT, StatChars, Usless);
+ for I := 0 to High(TPAA) do
+ FastSetPixel(BMP2, TPAA[I].x + 25, TPAA[I].y + 45, clWhite);
+ for II := 0 to High(POMS_VARIABLES) do
+ begin
+ TPAA := LoadTextTPA(POMS_VARIABLES[II], StatChars, Usless);
+ for III := 0 to High(TPAA) do
+ FastSetPixel(BMP2, TPAA[III].x + 25, TPAA[III].y + 35 + ((II + 3) * 10), clWhite);
+ end;
+ Canvas := GetBitmapCanvas(BMP2);
+ CopyCanvas(Canvas, SCanvas, 0, 0, 765, 503, 0, 0, 765, 503);
+ FreeBitmap(BMP);
+ FreeBitmap(BMP2);
+ POMS_DEBUGLINE('Debuged TPA Successfully!');
+ except
end;
- Canvas := GetBitmapCanvas(BMP2);
- CopyCanvas(Canvas, SCanvas, 0, 0, 765, 503, 0, 0, 765, 503);
- FreeBitmap(BMP);
- FreeBitmap(BMP2);
- POMS_DEBUGLINE('Debuged TPA Successfully!');
end;
\ No newline at end of file
It works again---YAY?