n3ss3s
2009-08-14 16:55:27
{******************************************************************************)
(* *)
(* A L I R A P E R *)
(* *)
(* by Markus *)
(* Modded & Improved by Narcle *)
(* Credits to Ray, Wizz, King of Knives, n3ss3s and The Crew! *)
(******************************************************************************)
(* *)
(* DESCRIPTION: This script rapes Ali Morrisane's and Aubury's Sudoku *)
(* REQUIRMENTS: The Feud done, and started the Rogue Trader minigame *)
(* INSTRUCTION: Open the Sudoku screen of the large sudoku (really, small *)
(* is way too easy, I do that one while owning TzTok-Jad) *)
(* then run the script :) If you want it to be safe for your *)
(* char, set const 'Rule7Proof' to true, it'll give you the *)
(* solution in the debug window. *)
(* *)
(******************************************************************************}
{$DEFINE SRL_SMART}
program ALIRAPER;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
const
Rule7proof = false; //TRUE TO BE LEGAL!
DisplayDetails = false;//shows all the crap in Debug/Report windows :P
debugmode = false;
procedure debug(s : string); begin if debugmode then writeln(s) else Status(s); end;
var
Playground : Array of Array of byte;
lolz : TStringArray;
DTM : array [1..9] of integer;
ownarr : array [1..9] of TPoint;
FailTime, Solved, ReportTime, A: integer;
NorthLast, UnSolvable: Boolean;
abc: Integer;
//STOOOOOOF
// mind = 1 1536183
// fire = 2 1121931 -414252
// earth= 3 736087 -800096
// law = 4 12000535 +10464352
// water= 5 9115153 +7578970
// body = 6 11016981 +9480798
// chaos= 7 1542839 +6656
// death= 8 1315861 (splittpa+length?)
// air = 9 ^ -220322
//STOOOOOOF
ColourArray: array [1..9] of integer;
const
XStart = 116;
YStart = 8;
XOff = 37;
YOff = 37;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
SRLid:= '';
SRLpassword:= '';
Players[0].Name := 'xxxxxxxx';
Players[0].Pass := 'xxxxx';
Players[0].Nick := 'xxx';
Players[0].Active := true;
end;
Procedure LoadPlayGround;
var
X,Y,D,i, cx, cy: Integer;
s, ss : string;
begin
debug('Getting rune colours');
ColourArray[1] := getcolor(22, 103);
ColourArray[2] := ColourArray[1] - 414252;
ColourArray[3] := ColourArray[1] - 800096;
ColourArray[4] := ColourArray[1] + 10464352;
ColourArray[5] := ColourArray[1] + 7578970;
ColourArray[6] := ColourArray[1] + 9480798;
ColourArray[7] := ColourArray[1] + 6656;
ColourArray[8] := ColourArray[1] -220322;
SetLength(playground, 9);
for i := 0 to 8 do
SetLength(playground[i], 9);
ColorToleranceSpeed(1);
for y := 0 to 8 do
begin
//s := '';
SS := '';
for x := 0 to 8 do
begin
d := 0;
for i := 1 to 8 do
begin
if FindColorTolerance(cx, cy, colourarray[i], x*xoff+xstart, y*yoff+ystart, (x+1)*xoff+xstart-5, (y+1)*yoff+ystart-5, 3) then
begin
d := i;
break;
end;
end;
if d = 8 then
if(countcolortolerance(colourarray[i],x*xoff+xstart, y*yoff+ystart, (x+1)*xoff+xstart-5, (y+1)*yoff+ystart-5,3)) <= 14
then d := 9;
if d > 0 then
try
SS := SS + lolz[d-1] + ' | '
except writeln(inttostr(d)) end else
SS := SS + ' | ';
s := s + inttostr(D);
Playground[Y][X] := D;
end;
//if DisplayDetails then
writeln(ss);
end;{}
end;
type
SuSquare = record
Number,c : Integer;
Possibilities : Array of byte;
InBox : TBox;
end;
SuStack = record
x, y,num : byte;
end;
var
Solver : Array[0..8] of Array[0..8] of SuSquare;
Stack : Array of SuStack;
InStack : Array of boolean;
Survived : Boolean;
TmpStack : SuStack;
Str: String;
I,ii,x,y,C,xx,yy,minx,maxx,miny,maxy,x1,y1,x2,y2,TotalEmpty,
Row, StackPos : integer;
SearchBoxes : array[0..8] of tbox;
Procedure BoxToInt( Box : TBox; var xx1,yy1,xx2,yy2 : integer);
begin;
xx1 := Box.x1;
yy1 := Box.y1;
xx2 := Box.x2;
yy2 := Box.y2;
end;
Procedure LoadPossibilities;
var
Tmp : Array of byte;
begin;
Tmp := [1,2,3,4,5,6,7,8,9];
for x := 0 to 8 do
for y := 0 to 8 do
begin;
minx := trunc(x div 3)*3;
miny := trunc(y div 3)*3;
Solver[x][y].InBox := IntToBox(Minx,Miny,Minx + 2,Miny + 2);
SetLength(Solver[x][y].possibilities,9);// := [1,2,3,4,5,6,7,8,9];
end;
for y := 0 to 8 do
begin;
Tmp := [1,2,3,4,5,6,7,8,9];
for x := 0 to 8 do
if Solver[x][y].Number <> 0 then
tmp[Solver[x][y].Number-1] := 0;
for x := 0 to 8 do
if Solver[x][y].Number = 0 then
for i := 0 to 8 do
Solver[x][y].possibilities[i] := tmp[i];
end;
for x := 0 to 8 do
begin;
Tmp := [1,2,3,4,5,6,7,8,9];
for y := 0 to 8 do
if Solver[x][y].Number <> 0 then
tmp[Solver[x][y].Number-1] := 0;
for y := 0 to 8 do
if Solver[x][y].Number = 0 then
for i := 0 to 8 do
if tmp[i] = 0 then
Solver[x][y].possibilities[i] := tmp[i];
end;
for xx := 0 to 2 do
for yy := 0 to 2 do
begin;
Minx := xx * 3;
Miny := yy * 3;
Maxx := Minx + 2;
Maxy := miny + 2;
Tmp := [1,2,3,4,5,6,7,8,9];
for x := minx to maxx do
for y := miny to maxy do
if Solver[x][y].number <> 0 then
tmp[Solver[x][y].Number-1] := 0;
for x := minx to maxx do
for y := miny to maxy do
if Solver[x][y].Number = 0 then
for i := 0 to 8 do
if tmp[i] = 0 then
Solver[x][y].possibilities[i] := tmp[i];
end;
for x := 0 to 8 do
for y := 0 to 8 do
begin;
c := 0;
for i := 0 to 8 do
if Solver[x][y].possibilities[i] > 0 then
inc(c);
Solver[x][y].c := c;
end;
end;
Procedure AddToStack(x,y,num : byte);
begin;
if InStack[y*9+x] then
exit
else
InStack[y*9+x] := true;
inc(StackPos);
Stack[StackPos].x := x;
Stack[StackPos].y := y;
Stack[StackPos].num := num;
end;
Procedure ChangeNumber(xpos,ypos: integer; number : byte);
var
Num : Integer;
begin;
InStack[ypos*9+xpos] := false;
Dec(TotalEmpty);
Solver[xpos][ypos].Number := Number;
Num := Number - 1;
Solver[xpos][ypos].c := 0;
Solver[xpos][ypos].Possibilities := [0,0,0,0,0,0,0,0,0];
BoxToInt(Solver[xpos][ypos].inbox,x1,y1,x2,y2);
for xx := x1 to x2 do
for yy := y1 to y2 do
if Solver[xx][yy].possibilities[Num] > 0 then
begin;
Solver[xx][yy].possibilities[Num] := 0;
Solver[xx][yy].c := Solver[xx][yy].c - 1;
if Solver[xx][yy].c = 1 then
for I := 0 to 8 do
if Solver[xx][yy].possibilities[i] > 0 then
begin;
AddToStack(xx,yy, Solver[xx][yy].possibilities[i]);
Break;
end;
end;
for yy := 0 to 8 do
if Solver[xpos][yy].possibilities[Num] > 0 then
begin;
Solver[xpos][yy].possibilities[Num] := 0;
Solver[xpos][yy].c := Solver[xpos][yy].c - 1;
if Solver[xpos][yy].c = 1 then
for I := 0 to 8 do
if Solver[xpos][yy].possibilities[i] > 0 then
begin;
AddToStack(xpos,yy, Solver[xpos][yy].possibilities[i]);
Break;
end;
end;
for xx := 0 to 8 do
if Solver[xx][ypos].possibilities[Num] > 0 then
begin;
Solver[xx][ypos].possibilities[Num] := 0;
Solver[xx][ypos].c := Solver[xx][ypos].c - 1;
if Solver[xx][ypos].c = 1 then
for I := 0 to 8 do
if Solver[xx][ypos].possibilities[i] > 0 then
begin;
AddToStack(xx,ypos, Solver[xx][ypos].possibilities[i]);
Break;
end;
end;
end;
Function SudokuMenu: Boolean;
var
TPA: TPointArray;
begin
FindColorsTolerance(TPA, 797794, 0, 0, 95, 85, 0);
Result := High(TPA) > 50;
end;
{
function EnterSudoku: boolean;
var
x, y, z, y1, x1, z1, x2, y2, T : integer;
randomarr : TIntegerArray;
randompoints : T2DPointArray;
ss : string;
canExit: Boolean;
begin
// DisplayDebugImgWindow(280, 270);
RandomArr := [1,2,3,4,5,6,7,8,9];
for i := 0 to 8 do
swap(randomarr[random(9)], randomarr[random(9)]);
SetLength(randompoints, 9);
for x := 0 to 8 do
SetLength(randompoints[x], 9);
for x := 0 to 8 do
for y := 0 to 8 do
randompoints[x][y] := point(x, y);
for i := 1 to 81 do
Swap(randompoints[random(9)][random(9)], randompoints[random(9)][random(9)]);
for y := 0 to 8 do
begin
ss := '';
for x := 0 to 8 do
begin
try
SS := SS + lolz[Solver[x][y].number-1] + ' | ';
except
end;
SafeDrawBitmap(dtm[Solver[x][y].number], getdebugcanvas, x*30+(x/3*4), y*29+(y/3*4)); //Draw sudoku at debug (with roster).
end;
if DisplayDetails then
writeln(ss);
end;
if rule7proof then exit;
for z1 := 1 to 9 do
begin
if Not SudokuMenu then
Exit;
z := randomarr[z1-1];
MouseBox(ownarr[z].x, ownarr[z].y, ownarr[z].x+20, ownarr[z].y+20, 1);
for y1 := 0 to 8 do
begin
for x1 := 0 to 8 do
begin
if Not SudokuMenu then
Exit;
x := randompoints[x1][y1].x;
y := randompoints[x1][y1].y;
SafeDrawBitmap(dtm[Solver[x][y].number], getdebugcanvas, x*30+(x/3*4), y*29+(y/3*4)); //Draw sudoku at debug (with roster).
if (not(getcolor(X*XOff+XStart+10, Y*YOff+YStart+10) = 498170) or (getcolor(X*XOff+XStart+10, Y*YOff+YStart+10) = 114921)) then
continue;
if Solver[x][y].number = z then
begin
mousebox(X*XOff+XStart+4, Y*YOff+YStart+4, (X+1)*XOff+XStart-9, (Y+1)*YOff+YStart-8, 1);
SafeDrawBitmap(dtm[Solver[x][y].number], getdebugcanvas, x*30+((x) div 3 * 4), y*29+((y) div 3 * 4));
end;
end;
end;
end;
wait(750);
repeat
CanExit:= True;
for x:= 0 to 8 do
for y:= 0 to 8 do
// if not FindColor(x2, y2, 65536, X*XOff+XStart+4, Y*YOff+YStart+4, (X+1)*XOff+XStart-9, (Y+1)*YOff+YStart-8) then
if(GetColor(X*XOff+XStart+18, Y*YOff+YStart+18) = 498170) or (GetColor(X*XOff+XStart+18, Y*YOff+YStart+18) = 114921)then
try
MouseBox(ownarr[Solver[x][y].Number].x, ownarr[Solver[x][y].Number].y, ownarr[Solver[x][y].Number].x+20, ownarr[Solver[x][y].Number].y+20, 1);
wait(300 + Random(400));
mousebox(X*XOff+XStart+4, Y*YOff+YStart+4, (X+1)*XOff+XStart-9, (Y+1)*YOff+YStart-8, 1);
wait(100 + Random(400));
CanExit:= False;
except
end;
until(CanExit) or (not(LoggedIn))
//writeln('Took us... '+inttostr(TimeFromMark(SudoTime))+' msecs!!!!');
MouseBox(14, 61, 89, 78, 1);
Result := true;
MarkTime(T);
while SudokuMenu and (TimeFromMark(T) < 10000) do
Wait(100);
if not SudokuMenu then
begin
Status('Sudoku Solved!');
Exit;
end;
if SudokuMenu then
begin
Status('Sudoku Solving Failed!');
Mouse(13, 13, 13, 13, true);//Closes Sudoku Menu
Result := False;
Exit;
end;
end; }
{
Function getNext(TPA: TPointArray; P: TPoint): TPoint;
Var
I: Integer;
Begin
SortTPAFrom(TPA, P);
For I := 0 To High(TPA) Do
If TPA[i].x > 0 Then
Begin
Result := TPA[i];
TPA[i] := Point(0, 0);
Exit;
End;
Result := Point(0, 0);
End; }
function EnterSudoku: boolean;
var
x, y, z, CurrentRune, sudotime, T : integer;
randomarr : TIntegerArray;
randompoints : T2DPointArray;
ss : string;
CurPoint : TPoint;
canexit : boolean;
//n3sWasHere: TPointArray;
//clicky, ffsx, ffsy: Integer;
//lol: TPoint;
begin
if (UnSolvable) then
exit;
MarkTime(sudotime);
randomarr := [1, 2, 3, 4, 5, 6, 7, 8, 9]; //Array of the runes we gonna enter
for z := 1 to 100 do //100 random swaps should suffice? :p
swap(randomarr[random(9)], randomarr[random(9)]);
SetLength(randompoints, 9);
for y := 0 to 8 do //Create 9x9 grid.
setlength(randompoints[y], 9);
for y := 0 to 8 do //fill 9x9 grid with points
for x := 0 to 8 do
randompoints[y][x] := point(x, y);
for i := 0 to 10000 do
try
swap(randompoints[random(9)][random(9)], randompoints[random(9)][random(9)]);
except
writeln('exception thrown.');
end;
for y := 0 to 8 do
for x := 0 to 8 do
try
SafeDrawBitmap(dtm[Solver[x][y].number], getdebugcanvas, x*30+(x/3*4), y*29+(y/3*4)); //Draw sudoku at debug (with roster).
except
end;
for z := 0 to 8 do
begin
//SetArrayLength(n3sWasHere, 0);
CurrentRune := RandomArr[z];
Mouse(OwnArr[CurrentRune].x, OwnArr[CurrentRune].y, 20, 20, true); //Click the rune
for y := 0 to 8 do
for x := 0 to 8 do
begin
CurPoint := RandomPoints[y][x];
debug(inttostr(curpoint.x));
debug(inttostr(length(playground)));
debug('-');
if Solver[CurPoint.x][CurPoint.y].number = CurrentRune then
begin
debug('Op: '+inttostr(curpoint.x)+', '+inttostr(curpoint.y)+' moet een '+lolz[currentrune-1]);
if (getcolor(CurPoint.x*xoff+xstart+15, CurPoint.y*yoff+ystart+15) = 498170) or (getcolor(CurPoint.x*xoff+xstart+15, CurPoint.y*yoff+ystart+15) = 114921) then
begin
Mouse(CurPoint.x*xoff+xstart+10, CurPoint.y*yoff+ystart+10, 20, 20, true);
//SetArrayLength(n3sWasHere, GetArrayLength(n3sWasHere) + 1);
//n3sWasHere[High(n3sWasHere)] := Point(CurPoint.x * xoff + xstart + 10 + Random(20), CurPoint.y * yoff + ystart + 10 + Random(20));
end;
end;
end;
{ GetMousePos(ffsx, ffsy);
SortTPAFrom(n3sWasHere, Point(ffsx, ffsy));
Lol := n3sWasHere[0];
Repeat
Mouse(Lol.x, Lol.y, 0, 0, True);
Lol := getNext(n3sWasHere, Lol);
Until(Lol.x = 0);
writeln('wat'); }
end;
repeat
CanExit:= True;
wait(500 + Random(400));
for x:= 0 to 8 do
for y:= 0 to 8 do
// if not FindColor(x2, y2, 65536, X*XOff+XStart+4, Y*YOff+YStart+4, (X+1)*XOff+XStart-9, (Y+1)*YOff+YStart-8) then
if(GetColor(X*XOff+XStart+18, Y*YOff+YStart+18) = 498170) or (GetColor(X*XOff+XStart+18, Y*YOff+YStart+18) = 114921)then
try
MouseBox(ownarr[Solver[x][y].Number].x, ownarr[Solver[x][y].Number].y, ownarr[Solver[x][y].Number].x+20, ownarr[Solver[x][y].Number].y+20, 1);
wait(300 + Random(400));
mousebox(X*XOff+XStart+4, Y*YOff+YStart+4, (X+1)*XOff+XStart-9, (Y+1)*YOff+YStart-8, 1);
wait(100 + Random(400));
CanExit:= False;
except
end;
//wait(500 + Random(400));
until(CanExit) or (not(LoggedIn))
writeln('Took us... '+inttostr(TimeFromMark(SudoTime))+' msecs!!!!');
MouseBox(14, 61, 89, 78, 1);
Result := true;
MarkTime(T);
while SudokuMenu and (TimeFromMark(T) < 10000) do
Wait(100);
if not SudokuMenu then
begin
Status('Sudoku Solved!');
MarkTime(FailTime);
Exit;
end;
if SudokuMenu then
begin
Status('Sudoku Solving Failed!');
Mouse(13, 13, 13, 13, true);//Closes Sudoku Menu
Result := False;
Exit;
end;
end;
procedure LoadArrays;
begin
OwnArr[1] := Point(20, 100); //Mind
dtm[1]:= BitmapFromString(30, 29, 'beNqdletOE1EUhfGnD2HCI/g' +
'OJKRqJESCBCUNShpERNI0FREkFcGKgFiRCsjFSkUuUrlZLASKmuhr' +
'+Ne38EtWsnMyMx0ak5Wmnc58e5219zlzeu7v6RmqqamoM58NZ+6uf' +
'txfXz/Y+lwqFI52do73dk++7n//dvDz6PA/+Hpk8/1yYeXDdj6/t/' +
'apuLkh+OH2F/gG/3VyXCVft+Wy2dV38xtLi1u5HHBsA8c5fCTzLvx' +
'3uRwO59/sxMRCJiPy2uICtgXHOVKJQDjPXqytrYTNpNNGzs/NyTaC' +
'/2f8AqKEquA/EB6IHR9+YuTlmTcrs2+Bi495kVWFVSDMc8WF+21zJ' +
'dX3YCyVElkQBB/zlFAVSqiKFmK30VMX7ienh4amRkdnX04ie2pp+j' +
'VSCVXRQvQvVQgH8yRTLhaBu7b5nujufpxMijw99nxm/AUy+PyrKfK' +
'5fOm85F8I+dBZZpJRF9zI8a6ugUTi2eDg5MhT4IhYKKEqxjT5F0I4' +
'tJWZIfYfpZLgfN7v7OyPx0cGHhE1opWUUBWjaSF0QT+1EKQSCDjOF' +
'Ysy4fNeLNbX2zvc/xA4zokFUUIQK8ESVELXaYf4ghMLmWObTIx851' +
'Z7sqeHJgpufBG0BL64fIR/t9dkTuB0k1Exckdbm5potyHgIrgRqQW' +
'Wj+A4l2dGhbRppZFvNjcravoIH/PyL4L8u/nruvoruMg6Z9ieRr7e' +
'2Hi34zZRC258ESwcwS0cF07U2kGQ6aORGyKRWDRK1MCNHwi38C0Z4' +
'CLbxicQ2y98iba0EDUS3zXvn2dP7NiGTAdlW1gjyzZbxuDqo8e8G7' +
'tukG3I2jKk7TmXlDaDLbg7JJ62urG7J4Cm2jVs5Cv19WTCkLhwf1t' +
'duDLRCcmEsGsCz38uNjVcJRPgxrfY3bYaHNsia0j8ho0cqatjtplA' +
'YvHAlbwL98w5/PAXFnCcEwtb3uDiu7F7zOu9HGjY8+4mc5fvyjOZl' +
'DBmCFbS9tEotjZdg4/ab7RyvFCIrGwt1VgN4YeoSquV+OGq+Ow/hk' +
'Okmg==');
OwnArr[2] := Point(20, 150);
DTM[2]:= BitmapFromString(30, 29, 'beNqdlW9Lk1EYxu1V36DXvul9' + //Fire
'30GQQSSSmFgyLBlmajLGMtNkmbZMzZY5nfmn5TKdufzXbIqOCuo79' +
'aofXHBz2J49PgkX4zA9v/s617nvs8zlv5lzVFd3qZbO3evP3N/4dL' +
'i1dbTzpVQonOztnR7sn307/PH96NfJ8QX42rL9Ya2w/nE3lzvY/Fz' +
'czgt+vPsVvsF/n50G5Ovfsun0xvul/OrKTjYLHNvAcQ4fybwL/1Mu' +
'+8P5a3p6ejmVEnlzZRnbguMcqYQnnL3X6utrYVPJpJFzmYxsI/hWQ' +
'lXw7wn3xE6NPTPy2vy79cUF4OJjHlkVSiDMk7wLr7bNN4nBR5OJhJ' +
'FX594CR5inhKpQQlWsBOZJhjt14dXk5Ojo7MTE4usZtPRmFqmEqlA' +
'if/WKHYS1DkI4mCeZcrEI3LXNOtbb+zQeF3lu8uX81CuEeUpAUAnE' +
'2g7CGukgmOdmSYZWF9zI0Z6e4VjsxcjIzPhz4IhYKIHYTomKKpxCZ' +
'EooLsJRMsT+s1QSnM+H3d1D0ej48BOiRlwlJZC2q4rWSCVMdiPAca' +
'5YlAmffZHI4MDA2NBj4DgnFkQJ284pbE1QLtmum1jIHNtkYuT7dzv' +
'j/f1couDiu9vNP3L9GxwymRM4t0mrGLmro0OXCNz4Fdt9RPjyTKuQ' +
'Nldp5DutrYqaexQ/OFYSWe8M42nkW83ND7ruEbXg6L+wdA5Ra4Igc' +
'49GbgqFIuEwUQMX/wJkG3wCsXlhEW5rI2okfnA4PUm3QOYGZVtYI8' +
's2I2Pw4GS6BbJGhrQr3iWlTWMbHPkzNVN6EGgPdbVr2MjXGxvJhCY' +
'RXPxaWA2UplUvJLNJY3u+/3zZ0nSDTIAb3xNu04ptkfWOVRs2cqih' +
'gd6mA4nFhVvPWMMDl217Z+D7/2ABxzmxMPIVybhw48u8fpc9DVf8d' +
'pO5y3dVXcWYPlhJ46NWbG+5CR913m7neaEQWdlZglj14fsooNVafH' +
'/V3PsPNBttjQ==');
OwnArr[3] := Point(20, 300); //eart
dtm[3]:= BitmapFromString(30, 29, 'beNqdlQtOE2EUhXEDroEluAc' +
'S0kQlRIIEJQ1KGkTEpmkqIkgqghV5WZEKyMNKRR5SeVksBIqa6Frc' +
'hV9ykpvJdGY6mJw0TWG+c+bc+8+cX/p7XkN1db6qeW0wc3/90+Hm5' +
'tHOl3KxeLK3d3qwf/bt8Mf3o18nx//B1yXbH1aLax93C4WDjc+l7S' +
'3Bj3e/wjf477PTkHz9Wz6XW3+/uLWyvJPPAyc2cJLDRwrvhP+pVIL' +
'h/DU3ObmUzYq8sbxEbMFJjmThCefaK/X1fthsJmPkwsKCYiP4ZiEX' +
'8nvCPbETI8+MvDr3dm3+HXDxCY/MBQtEeJp3wqtj80u6/9F4Om3kl' +
'dk3wBHhsZALFnIxC8LTDDN1wqvJmeHhmbGx+ekptPh6BslCLljIxX' +
'UjlEN4mqmUSsCdsfme7O19mkqJPDv+cm7iFSK8uWARcCOEZ7I0w6o' +
'LbuRET89gMvliaGhq9DlwRC1YyAULuXjeSPzaZUQ5aobaf5bLgvP5' +
'sLt7IJEYHXxC1YhRYiEXXVhTuAAnuWpRJ3w+iMX64/GRgcfASU4tK' +
'CQTKT+10Dmx6cTI9+50pvr6GKLgKDwWaUvpnMKZJqti5K6ODg0RuP' +
'EJr/zOijQCTcGmTPnKzKrQNqM08u3WVlXNHAP4zv5dcJH1nOF4Gvl' +
'mc/P9rrtULbjxgTvLF9zCqwrBqVonCDJzNHJTJBKLRqkauPFDlkxy' +
'ke3gU4idF75E29qoGsG/0PiohdiQmaBiC2tkxebIAL8omdiQdTBp2' +
'/VcUtsstuAkVzl+Y7Xa9UBgPbTVzsBGvtrYSCcsieDie47V4Jqmnp' +
'BsCIvt+fznx5am63QC3PgGd4Y3OLFF1gZWBzZypKGB3WYDqcUFdzU' +
'D3LXn8INfWMBJTi0ceb9mgLvC673sGdj17qZzJ9+pahdjBmAlHR+t' +
'YnvLDfio81Y7jxeM6MruJUzUAH6AQkb14wfL99p/plWVbQ==');
OwnArr[4] := Point(70, 300); //law
dtm[4] := BitmapFromString(30, 29, 'beNqdlW1LU3EYh+2DBL7pfd' +
'9BkEEkkqhYMiwZZmYyxjLTZJm2TM2WutR8aLnMh1w+NZuis4L6Gr3' +
'tW3TBD27+nHN2HMHNYWznXPfvXPd9zs4v/T2/oGpqKtaF14Yz99c/' +
'Hm5uHu18LhUKJ3t7pwf7Z18Pv387+nly/B98XbL9frWw9mE3nz/Y+' +
'FTc3hL8ePcLfIP/Ojutkq/Tctns+rvFrZXlnVwOOLGBkxw+pfAu/H' +
'e5HA7n1+zk5FImI/LG8hKxBSc5pRaBcK69WltbCZtJp42cX1hQbAq' +
'+tVAX8gfCA7ETI0+NvDo3uzb/Frj4hKesCy0owmPehftj802q/+F4' +
'KmXklZk3wC9f+RNStCA8ZpipC/eT08PD02Nj86+mKC5cfD0dTqa4E' +
'eQQHjPlYhG4G5vPiZ6eJ8mkyDPjL+YmXnIV4f0oboRiCriSLlwRns' +
'lihlUX3Mjx7u7BROL50NDU6DPgFFrgqAstrAs3IlfqwlFd8C8zaP9' +
'RKgnO8UFX10A8Pjr4GNUU59OCo1pQtBCZFqaLFhw1EQo4yaVFTjje' +
'j8X6+/pGBh4BJznnY8Za6EZENlcUfM1CcLTgnNg4MfLd2x3J3l6GK' +
'DgnwwfOB/hso26B8udXeMg4RzjTZFWM3NneriECpzxTkyL45idwsl' +
'p7bDNKI99qbpZq5gjfc5Xyu3IqkfWe4fE0cktj473OO6gW3H+hwUn' +
'uyvHstsjM0cgNkUgsGkU1cPHtfJPvTtYDRzhDtAcfIfa88CHa2opq' +
'SnyFlxzBjePCpZ1tgcwEFVtYIys2j4wLN/PuWF0zwLUtkPXIYNvzX' +
'pJtFtvgbvgQ7XohsNjaajewka/V1+OEJRHcDe8hSztwi63dZrED3/' +
'982dRwHSfAjQ888C0nOLFNCLb9gY0cqatjt9lAtLhw2xl3pn7h4X9' +
'YwEmOFh75QDOCG1/h9b8cGNjz341zl++Wv4sxQ7AqPT5axbamG/Cp' +
'jpttvF5ohCu7l2qihvBDqsqolfjhVfHaf6+Hoao=');
OwnArr[8] := Point(70, 200); //dea
dtm[8]:= BitmapFromString(30, 29, 'beNqdlW1LU2Ech+1Vn0B660f' +
'oCwiSJIORWGJiybBEzMxExjLTZJlmpmZmLmc+tFzmQy6fmk3RUUF9' +
'D6Ev0asu+MGfm3O24wh+jMP0XPfvXP/7Pkue/5s8I2Vl54rlzHuDm' +
'burH/fX1w+2PucymaOdneO93ZOv+9+/Hfw8OvwPvm7ZfL+cWfmwnU' +
'7vrX3Kbm4Ifrj9Bb7Bf50cl8jXv6USidV38xtLi1upFHBqA6c5fKL' +
'yLvx3Ph8M56+JiYmF6WmR1xYXqC04zYmWKAjn3osVFcWw06OjRk4n' +
'k6pN4P85PVW0Cv0Lwgtix4eeGHl59s3K3Fvg4htW4SkI5THvwv21+' +
'Sbe+2AsHjfy0sxr4ITyoC6Ul4vJha71IJTHDDN14X7y6ODg1MjI3M' +
'tJMv9qirCEAT1kwhQIciiPmXw2C9ytzXW0s/NxLCbyzNjz2fEXhPI' +
's4SG7kS5cUZ7JYoatLriRezo6+qPRZwMDk8NPgRO0sATxAy1yRVgC' +
'OTKD9h+5nOB83m9v7+vpGe5/hGrCKFlCq7goay5duHInApzm0iInf' +
'N5ra+vt7oZMaI4W4l9CZImSK/EFRwvOqY0TI9+51RLr6mKIQ30PiZ' +
'/vNpcoG4RmDRnnCGeabBUjt9xokmrmCF9LiK8lxNcj2BSsvMg6s9h' +
'mlEa+2dCAEFQT41tJvx+Pf5ojBKzeMxxPI9fXXpEQbBvfsxOsvN8M' +
'tSHr7EBmjkauDYUQwq4mxvfDPVF5aYFs70aE2Hnhoqn+GrWx7YEX4' +
'5sZaovMrhZcWCNTO9LYiG0XHlweuNW2lxhwz3tJtlubmzk1gosfLI' +
'RoqzBEwd3CRg5VV8uJ4MQD8ZdXbQkRvOD733VC4LsQd096dovB/YW' +
'NfLmq6npdHdsbLXdbbxscLe5YteHtNBk8+AfrUmVluKYG5y5fchT8' +
'u0vAB67f5YKFPb/dOL8aDqOdfd4WiSiMwBayRwBuzACsouMj7ciBT' +
'/CvVeBrCvBLqRrAD0iJVYvxg1P03n8ZoDi3');
OwnArr[6] := Point(70, 150); //bo
dtm[6]:= BitmapFromString(30, 29, 'beNqdlVtLVGEYhe2qXyBddCP' +
'9gv6DIAORSGJiiVgymJmJiJlpYqaZqdlkmmMemjTzkJOntFFUKqjr' +
'/k5XPbBg8TGHrQSLYbP3fM+7vvW+397J83+Tp6io6Fwhnbo2mrm9/' +
'HF3dXV/43MmnT7c2jra2T7+uvv92/7Pw4P/4GvJ+vuF9OKHzaWlnZ' +
'VPe+trgh9sfoFv+K/jozPy9bfU1NTyu5m1+bmNVAo4toHjHD6S+RD' +
'+++QkGs7TqdHR2URC5JW5WWwLjnOkEnnhrL1cUlIImxgaMnkpmZRt' +
'BP/ipT+IEqqC/7zwvNiR/icmL0y+WZx+C1x8zIusKuwC6U4Iz7XNn' +
'b7OB8N9fSJrCXCEeUqoCiVURRvR3xA9DeG55KHe3vHBwemXY0hLMD' +
'8/8RqphKp4I86H5EnmZG8PeGib6/bm5scdHSJPDD+fHHmBtJAqM6/' +
'GKXGhuFjyRniqEuRDZ5lJRl1wk9uamrrb25/19IwNPAWOiIUSqkI+' +
'YlJCF7kbIRzayswQ+49MRnB+7zc2drW1DXQ/ImpEKymhKpQQTRvRt' +
'TeiuNQR4DhXLMqE33vxeGdra3/XQ+A4JxakEkKFuzDcfMGJhcyxTS' +
'Ym37lV39HSQhMFN18QbSFMSfdJyb1W5gRONxkVkxtqa9VE/w0Bd9c' +
'ckfNxC+RcnhlI0qaVJt+sqlLU9BE+5u0fvkoYHoZjuMh6z3A8Tb5e' +
'UXG34TZRC24+cPGhhcnbvOFErRMEmT6aXB6LxevqiBq4+aF5ZZKbv' +
'OAi++ATiM8LF3XV1USNxM8y78DD2OmF4NiGTAdlW1iTZZsjY7hbCT' +
'yLrGT0VLYh68iQdtZ7SWkz2IIbW6itIRwxHprq0LDJV8rKyIQhAe4' +
'ledtquG1rQjg1ed//3Kwsv0omwBFLwthD84Zjm1Z6SHINmxwrLWW2' +
'mUBikXnDlXwIdyYaFfjRHyzgOCcWjrzh4mvvgmeZ13c5r+GsbzeZh' +
'/xQWZNJCTMjsJKOj0axpvIafFR/o4bXC4XIyns5i9UIfoTOaLUQP1' +
'oF1/4DsP9/ng==');
dtm[9] := BitmapFromString(30, 29, 'beNqdlX1LU2EYxu2vvoYfoe' +
'8gyCASSUwsGZYMMzMZY5lpskxbpqbLXM58abnMl1y+NZuio4L6HkJ' +
'for/6wQU3D+ecHUdwIWfzPL/7eq77fp7lLv/NXaC6ukvVdOHacOb+' +
'+sfDzc2jnc/lYvFkb+/0YP/s6+H3b0c/T47/g68l2+9Xi2sfdguFg' +
'41Ppe0twY93v8A3+K+z0xr5ei2fza6/W9xaWd7J54FjGzjO4SOZd+' +
'G/K5VwOP/NTk0tZTIibywvYVtwnCOVCISz9kp9fTVsJp02ciGXk20' +
'E30qoCv4D4YHYydGnRl6df7O28Ba4+JhHlPhzfo4ogTBP8i7cb5tv' +
'UgMPJ1IpI6/MvQaOME8JVRFW0kYwTzL01IX7yemRkZnx8YVX02hxd' +
'gaphFCUcMlIGyEczJNMpVQC7trmOdHb+ySZFHlu4sX85EuEeVUxlF' +
'UxKSvM01mSYdQFN3K8p2cokXg+PDw99gw40kJVoYQ+aiMeOCIrwlE' +
'yxP6jXBacvw+6uwfj8bGhx0SNaKWtInlkH7URD1kdAY5zxaJM+Hs/' +
'Fhvo7x8dfAQc58SCbKE2ErgLSwkysZA5tsnEyHdvdyb7+mii4Lwsv' +
'gu3LQBHLllTSuYETjcZFSN3dXSoicCR3geO9ExEesC8Jx/lL8+MCm' +
'nTSiPfam1V1PQRvt43/8j8Y94NRyJ5kXXPcDyNfKO5+V7XHaIW3JY' +
'AR/Kvb2gu8sCJnah1SCHTRyM3RSKxaJSogRtf4dhyNxl3eIysUwmZ' +
'QOy88BBtayNqJL5rXp01vttZiWmBTAdlW1gjyzZHxuBa5U/ezLvTA' +
'lk3DGl77iWlzWAb3MwbxDVvsetCYDw01a5hI19tbCQThkTwQPNu8s' +
'SibuqGZEIY7MD7ny9bmq6RCXDjm3PP2CgWuimyzqbfsJEjDQ3MNhN' +
'ILB64Z2aIRd3UqIgf/oMFHOfEwpH3J2Nw48u8fpcDDXt+u8nc5bvy' +
'VzFmCFbS8dEotrdch486b7ZzvVCIrGwvtVgN4YeoRqvV+OGquvYfY' +
'L9Zvw==');
OwnArr[9] := Point(20, 200); //air
OwnArr[7] := Point(70, 250); //chaos
DTM[7]:= BitmapFromString(30, 29, 'beNqdle1KVGEUhe1XdAHSr8B' +
'L6AYESZIpSSwxsWSwRMzMZBgmM03MtMnUzExzzI9MMx1z8qsxFR0q' +
'qNsQoZvoVw8s2LycM3McgsUwnJn32eusvfc5idN/EyeooOBULp14N' +
'pi5ufRxe2VlZ+3zbiq1v7FxsLV5+HX7+7edn/t7/8HXkdX3c6mFD+' +
'uLi1vLn9KrScH31r/AN/ivw4M8+frb/MTE0rup5OzM2vw8cGwDxzl' +
'8JPMu/HcmEwzn14mhoenRUZGXZ6axLTjOkUpkhXP2fFFRLuxoPG7k' +
'xURCthF8K6Eq+M8Kz4od7H1i5LnxNwuTb4GLj3lkVSiBME/yLtxvm' +
'ys97Q8GenqMPDv2GjjCPCVUhRKqYiUwTzL01IX7yfHu7pH+/smXw2' +
'jq1QhSCXSUPOeR3QjhYJ5kMuk0cNc236MtLY9jMZHHBp6PD75AmFc' +
'VP1ayG8E8nSUZRl1wI0eamzuj0WddXcN9T4EjYqEEEuTP8bErg5OV' +
'4iIcJUPsP3Z3BefzflNTRyTS1/mIqBGtpATyYy9fOoNcuHUEOM4Vi' +
'zLh815jY3tbG2SEc2JBdlbAXGRrN7GQObbJxMh3btXHWltpYm/HQy' +
'R+nmT1GjKZEzjdZFSMXH+jVlHTR/gq4ZL9sl9ptMiaFtKmlUa+WV1' +
'NIESNjO8nny0sRB4yU8T8EIjmnA1iPY1cVXFFgZC2y3fJLtaFMz/Y' +
'hmzrSR+NXBEKEQhTjYwPPFcgdt3mH7I9GwnE9oUvtVXXsE3aJ8Lti' +
'oaTyReZqRZcWCNjO1xTQ9ouXPysC8hYMvnaLGzbQwy457mktBvq6t' +
'gawV3zHqyNPba1sDRRcNewkUOlpcpEcE8yhtVMCi7bCkTwrM9/NxN' +
'k5v0zI7hsu3C/YSNfLCm5XlnJeBPL3YbbLtxtq8E9zoNfWBeKi8vL' +
'ysjcwzdRyC0h83ovZzXseXeT+dXycmJnzhvDYYkWWCG7BeDGDMBKW' +
'h/FTjjwEfmrCnzrQj5WA/gBytNqLn6wcp79Bwmw8AM=');
OwnArr[5] := Point(20, 250); //water
dtm[5]:= BitmapFromString(30, 29, 'beNqdlW1LU3EYxu1V36BXvfA' +
'j9B0EGUQiiYklw5JhZiZjLDNNpmnL1GyZy5kPLZfpzOXjbIoODeo7' +
'9aofXHBzOE+O4GKM6fld17nu+39O7urf3CWqq7sSpEuvDWfurX892' +
'Nw82v5eKZVOdndP9/fODg/Ofx79Ojn+D74u2fq8Wlr7slMo7G98K2' +
'8VBT/e+QHf4L/PTmvk69/y2ez6p8XiyvJ2Pg+c2MBJDh8pvBP+p1o' +
'Nh/PX7PT0UiYj8sbyErEFJzmShS+ca2/U1wdhM+m0kQu5nGIj+GYh' +
'F/L7wn2xU2OjRl6d/7C28BG4+IRH5oIFIjzNO+He2PySGng6mUoZe' +
'WXuPXBEeCzkcu16US5mQXiaYaZOuJecHhmZnZhYeDuDFt/NIlnIBQ' +
'vI3huhHMLTTLVcBu6MzfdEb++LZFLkucnX81NvEOHNBQsE2XsjWBC' +
'eydIMqy64keM9PUOJxKvh4Znxl8ARtWAhFywQWOS9EblQjpqh9otK' +
'RXA+n3R3D8bj40PPqRoxSizkgoVcREauG7GJACe5alEnfD6OxQb6+' +
'8cGnwEnObUgl4WRvUUJTi10Tmw6MfLD+53Jvj6GKLjx7RYMK1lLBo' +
'dM5xTONFkVI3d1dGiIwI0P3PgusheuzKwKbTNKI99rbVXVzNGX7yW' +
'74CLrOcPxNPKd5uZHXQ+oWnDjAxffl6zJCk7VOkGQmaORmyKRWDRK' +
'1cCNb+F9sciWU2Q7+BRi54Uv0bY2qkbiO8MHkQ1ObMhMULGFNbJic' +
'2SccPGDsNpJxYasI0PbrueS2maxDW58X6wtvB4IrIe22hnYyDcbG+' +
'mEJRHcGd6FtYW32NoQFtv3+c+PLU236AS48QV3kW0hiW2F0LY3sJE' +
'jDQ3sNhtILS64a2eA2zmy5OEvLOAkpxaOvG8zghtf4fVe9g3senfT' +
'uZPvlNfFmCFYScdHq9jechs+6rzbzuMFI7qye6klagg/RDVGDeKHK' +
'/Dafzorm1Y=');
lolz := ['mind ', 'fire ', 'earth', ' law ', 'water', 'body ', 'chaos', 'death', ' air ', ' '];
end;
function SudokuSolver: boolean;
var
EmptyStone : SuSquare;
EmptyStack : SuStack;
begin
UnSolvable := false;
ClearReport;
//Cleardebug;
Status('Solving Sudoku...');
for i := 0 to 8 do
for ii := 0 to 8 do
Solver[i][ii] := EmptyStone;
SetLength(Stack,0);
SetLength(InStack,0);
SetLength(PlayGround,0);
Survived := False;
TmpStack := EmptyStack;
Str := '';
i := 0;ii:=0;x:=0;y:=0;c:=0;xx := 0;yy := 0; minx := 0;maxx := 0;miny := 0;Maxy:=0;x1:=0;y1:=0;x2 :=0;y2 :=0;TotalEmpty := 0;
row := 0;StackPos := 0;
for i := 0 to 8 do
SearchBoxes[i] := IntToBox(0,0,0,0);
SetLength(PlayGround,9);
for i := 0 to 8 do
SearchBoxes[i] := IntToBox(i div 3*3,i mod 3*3,i div 3*3 + 2,i mod 3*3+2);
SetLength(stack,9*9);
SetLength(InStack,9*9);
LoadPlayground;
// Solver[0][0].Possibilities := ReturnPossibilities(Playground[0], Solver[0][0].c);
// for I := 0 to Solver[0][0].c do
// Writeln(inttostr(Solver[0][0].Possibilities[i]));
for x := 0 to 8 do
for y := 0 to 8 do
if PlayGround[y][x] = 0 then
inc(TotalEmpty)
else
Solver[x][y].Number := Playground[y][x];
for x := 0 to 8 do
for y := 0 to 8 do
begin
end;
// begin;
SetLength(PlayGround,0);
for y := 0 to 8 do
begin;
str := '';
for x := 0 to 8 do
begin;
if Solver[x][y].number > 0 then
Str := Str + Inttostr(Solver[x][y].number) + '|'
else
Str := Str + ' |';
end;
if DisplayDetails then
Writeln(str);
// Writeln('-------------');
end;
if DisplayDetails then
Writeln(inttostr(TotalEmpty));
LoadPossibilities;
for y := 0 to 8 do
begin;
str := '';
for I := 0 to 8 do
str := str + '-' + inttostr(solver[0][y].Possibilities[i]);
// Writeln(inttostr(solver[0][y].Possibilities[i]));
if DisplayDetails then
addtoreport(inttostr(solver[0][y].c) + '-' + str);
end;
StackPos := -1;
for x := 0 to 8 do
for y := 0 to 8 do
if Solver[x][y].c = 1 then
for i := 0 to 8 do
if Solver[x][y].possibilities[i] > 0 then
begin;
AddToStack(x,y,Solver[x][y].possibilities[i]);
Break;
end;
while totalempty > 0 do
if StackPos > -1 then
begin;
Dec(Stackpos);
ChangeNumber( Stack[Stackpos+1].x,stack[stackpos+1].y,stack[stackpos+1].num);
Continue;
end else
begin;
for i := 0 to 8 do
for ii := 0 to 8 do
begin;
c := 0;
for x := SearchBoxes[i].x1 to Searchboxes[i].x2 do
for y := SearchBoxes[i].y1 to Searchboxes[i].y2 do
if (Solver[x][y].possibilities[ii] > 0) then
if c = 0 then
begin;
TmpStack.x := x;
TmpStack.y := y;
TmpStack.num := ii;
inc(c);
end else
inc(c);
if c = 1 then
AddToStack(tmpstack.x,tmpstack.y,tmpstack.num + 1);
end;
for y := 0 to 8 do
for ii := 0 to 8 do
begin;
c := 0;
for x := 0 to 8 do
if (Solver[x][y].possibilities[ii] > 0) then
if c = 0 then
begin;
TmpStack.x := x;
TmpStack.y := y;
TmpStack.num := ii;
inc(c);
end else
inc(c);
if c = 1 then
AddToStack(tmpstack.x,tmpstack.y,tmpstack.num + 1);
end;
for x := 0 to 8 do
for ii := 0 to 8 do
begin;
c := 0;
for y := 0 to 8 do
if (Solver[x][y].possibilities[ii] > 0) then
if c = 0 then
begin;
TmpStack.x := x;
TmpStack.y := y;
TmpStack.num := ii;
inc(c);
end else
inc(c);
if c = 1 then
AddToStack(tmpstack.x,tmpstack.y,tmpstack.num + 1);
end;
if StackPos = -1 then
begin;
Survived := False;
for i := 0 to 8 do
for ii := 0 to 8 do
begin;
c := 0;
for y := SearchBoxes[i].y1 to Searchboxes[i].y2 do
for x := SearchBoxes[i].x1 to Searchboxes[i].x2 do
if (Solver[x][y].possibilities[ii] > 0) then
if c = 0 then
begin;
Row := y;
inc(c);
Break;
end else
inc(c);
if c = 1 then
for x := 0 to 8 do
if not ((x >= SearchBoxes[i].x1) and ( x <= SearchBoxes[i].x2)) then
if Solver[x][row].possibilities[ii] > 0 then
begin;
Survived := True;
Solver[x][row].possibilities[ii] := 0;
end;
c := 0;
for x := SearchBoxes[i].x1 to Searchboxes[i].x2 do
for y := SearchBoxes[i].y1 to Searchboxes[i].y2 do
if (Solver[x][y].possibilities[ii] > 0) then
if c = 0 then
begin;
Row := x;
inc(c);
Break;
end else
inc(c);
if c = 1 then
for y := 0 to 8 do
if not ((y >= SearchBoxes[i].y1) and ( y <= SearchBoxes[i].y2)) then
if Solver[row][y].possibilities[ii] > 0 then
begin;
Survived := True;
Solver[row][y].possibilities[ii] := 0;
end;
end;
if Survived = false then
begin;
Writeln('Unsolvable sudoku..');
UnSolvable := True;
Break;
end;
end;
end;
result := EnterSudoku
end;
procedure Report;
var
SpH, H,M,S: integer;
begin
ConvertTime(gettimerunning, H, M, S);
SpH := Round((Solved * 3600.0) / (GetTimeRunning / 1000.0));
Writeln('Sudoku Solver ' + inttostr(H) + 'h:' + inttostr(M) + 'm:' + inttostr(S)+'s');
Writeln('Solved: '+ inttostr(Solved)+' | SpH: ' + IntToStr(SpH));
SendSRLReport;
ReportTime := GetSystemTime + 310000;
end;
procedure ScriptTerminate;
var
i: integer;
begin
for i := 1 to 9 do
FreeBitmap(DTM[i]);
Disguise('End Sudoku');
end;
function DoSudoku: Boolean;
var
SudoTime: Integer;
begin
while (not SudokuMenu) and LoggedIn do
Wait(100);
if not (SudokuMenu or LoggedIn) then
Exit;
MarkTime(SudoTime);
if SudokuSolver then
begin
Inc(Solved);
Inc(ReportVars[0]);
Disguise('Solved: '+inttostr(Solved)+' Sudokus');
repeat
if FindNPCChatText('all the runes', ClickLeft) then
begin
Writeln('Took us... '+inttostr(TimeFromMark(SudoTime))+' msecs!!!!');
Result := true;
Exit;
end;
wait(100);
until (Not LoggedIn)
end else begin
Writeln('Failed to Solve :(');
Mouse(13, 13, 13, 13, true);
wait(500);
end;
Result:= LoggedIn;
end;
function TalkToAli: boolean;
var
i, x, y, L, T: integer;
M: TPoint;
TPA: TPointArray;
ATPA: T2DPointArray;
begin
Result:= ChooseOption('orris');
if(Result)then exit;
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 7887684, 75, 55, 441, 290, 20);
ATPA := SplitTPA(TPA, 20);
L := High(ATPA)
for i := 0 to L do
begin
writeln('hi');
M := MiddleTPA(ATPA[i]);
MMouse(M.x, M.y, 4, 4);
Wait(250+random(150));
if IsUpText('orris') then
begin
if FindTextTPA(clBlack, 0, MCX1, MCY1, MCX2, MCY2,'nough coins', NPCChars, Nothing) then
begin
Writeln('Not enough coins in inventory.');
Report;
TerminateScript;
end;
GetMousePos(x, y);
case Random(10) of
100: begin
Mouse(x, y, 0, 0, false);
wait(25+random(25));
result := ChooseOption('orris');
end;
else begin
Mouse(x, y, 0, 0, True);
T:= GetSystemTime;
while (GetSystemTime - T) < 500 do
begin
Result:= FindColor(x, y, 255, x - 20, y - 20, x + 20, y + 20);
if(Result)then break;
end;
end;
end;
FFlag(0);
Wait(200+random(200));
if(Result)then exit;
end;
end;
end;
var
SleepTime: Integer;
Chats: TStringArray;
ChatPhase, Countage: Integer;
begin
SetupSRL;
ClearDebug;
displaydebugimgwindow(300, 300);
writeln(' ALI RAPER!');
writeln(' by Markus');
writeln(' Modded & Improved by Narcle');
writeln(' Credits to:');
writeln(' Ray for his awesome Sudoku solver');
writeln(' King of Knives for his somehow lesser sudoku solver (sorry!)');
writeln(' n3ss3s for showin me da minigame');
writeln(' Wizzup? for mental support and reminding me of that game ;)');
Writeln('');
DeclarePlayers;
ScriptID := '1037';
LoadArrays;
ReportTime := GetSystemTime + 310000;
MarkTime(FailTime);
MarkTime(SleepTime);
Clickcontinue(true, true);//quick chat world check
loadarrays;
NorthLast:= True;
MakeCompass('N');
SetAngle(False);
Chats := ['I would like to have a look at your selection of runes',
'Try to open a large casket of runes',
'Examine lock'];
repeat
// if xCoinAmount('inv') < 59000 then
// TerminateScript;
debug('hoi?');
if SudokuMenu then
DoSudoku;
for A:= 1 to 10 do
begin
if(TalkToAli)then break;
wait(1000);
end;
if(A = 11)then
begin
if(NorthLast)then
MakeCompass('315')
else
MakeCompass('N');
NorthLast:= not NorthLast;
for A:= 1 to 10 do
begin
if(TalkToAli)then break;
wait(1000);
end;
end;
if A < 11 then
repeat
ClickContinue(True, False);
If FindNPCChatText('Select an Option', Nothing) Then
for Countage := ChatPhase To 2 Do
If Not FindNPCChatText(Chats[Countage], ClickLeft) Then
If Countage = 2 Then
ChatPhase := 0;
if(GetColor(54, 61) = 1319729)then
begin
DoSudoku;
break;
end;
until(not(LoggedIn));
if(not(LoggedIn))then exit;
{if TimeFromMark(SleepTime) > 30 * 60000 then
begin
SleepTime := RandomRange(3*60000, 6*60000);
Disguise('Sleeping for ' + IntToSTr(Round(SleepTime / 60000)) + ' mins.');
LogOut;
Wait(SleepTime);
MarkTime(SleepTime);
LoginPlayer;
Wait(RandomRange(58000, 62000));
MarkTime(FailTime);
end;}
if (TimeFromMark(FailTime) > 600000) then
TerminateScript;
if (GetSystemTime > ReportTime) then
Report;
until false;
end.
http://85.17.90.18/repositories/srl-opendev
This is just to get my sudoku vers and updated SRL to my laptop, as the priv message char limit is too low for sending scripts :<
Zeph: I accidentally put in pass and user first, if someone stealz I kno hu it iz!!!