1h1tk0y0un0w
2007-05-18 17:56:21
<!– BEGIN TEMPLATE: formanswers –>
1h1tk0y0un0w - SRL Member Application Form
1h1tk0y0un0w
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Java, Delphi
Other Communitys
None
How Long have You Played Runescape
7 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have completed University, graduated in intergrated Technology, And have my Masters Degree in Computer Engeneering. I play runescape 7 hours a day, with no distractions.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
1h1tk0y0un0w - SRL Member Application Form
1h1tk0y0un0w
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Java, Delphi
Other Communitys
None
How Long have You Played Runescape
7 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have completed University, graduated in intergrated Technology, And have my Masters Degree in Computer Engeneering. I play runescape 7 hours a day, with no distractions.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program Guildex_Miner;
{
| NAME :ma GUiLD MINER |
| WRITER : 1h1tk0y0un0w |
| CATEGORY : Guild Miner |
| |
| DESCRIPTION : |
| This Script Will Mine a Load of Coal IN the Miners Guild And |
| Go Back And Bank It. |
| |
| AUTOCOLOR : Yes |
| CONTACT : [email]ghrfk@Hotmail.com[/email] |
| Note : I Made This Script On SCAR 3.6 |
__|______________________________________________________________|__
| INSTRUCTIONS: |
| 1: RuneScape Low Detail |
| 2: Make Sure Your Screen Is 32 Bit True Colors. |
| 3: Fill Every Thing Out, Duh! (Form) |
| 4: Start In Falador (Fally) East Bank. |
| 5: Hit Run Muhahaha!!! |
| 6: Kick Back And Go Make yah somthing to eat.. |
|____________________________________________________________________|
| Thanks: |
| SRL Devs |
|____________________________________________________________________|
Help : Somtimes script might not run so keep hitting run...
Make sure.. you can see the bank symbol !
}
//----------------------------------------------------------------------------//
//-- Kinda Needed To Fill Out --//
//----------------------------------------------------------------------------//
Const
LoadsToDo = 50; // how many load to mine
//----------------------------------------------------------------------------//
//-- Not Really Needed To Fill But (Optional) --//
//----------------------------------------------------------------------------//
Const
StartPlayer = 0; // Start Wich Player First ( Leave Zero for first Player )
ChatMin = 4; // Chat randomly every _ Minutes
AntiMin = 5; // Performs some AntiBan every_ Minuts
ReSpondMore = True; // Respond more often
MineSpeed = 500; // the control of the mining speed
LogOutToMods = False; // If Find a Mod Log out?
PickUpRocks = True; // somtimes it finds coal rocks do you want to pick them up?
//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//
{.Include SRL/SRL.scar}
{.Include SRL/SRL/SKILL/Mining.scar}
Var // Script variabls
CoalRockColor, MMRockColor, LadderColor,
Gas, SpeakTime, Rocks, Chatted, AntiMark : Integer;
Chatters : String; // These are the people who talk to you
PickHeadbmp : Array [1..6] of integer;
MiningLvl, CombatLvl : Integer;
RunScript : Boolean;
//----------------------------------------------------------------------------//
Var
MainForm : TForm;
MainImage: TImage; // Forms
StayOnTop: TCHECKBOX;
AutoColor : TCOMBOBOX;
ColorLabel : Array [0..2] of TLabel;
GuildColors : Array [0..2] of TEdit;
MemoBox : TMEMO;
PlayerBnt, StartScript, PickColors : TBUTTON;
GroupColors : TGroupBox;
SRLT: Integer;
Procedure AllSenders(Sender: Tobject);
Var
x, y, color, i: Integer;
begin
if(Sender = StayOnTop) then
Case StayOnTop.Checked Of
True: MainForm.Formstyle := fsStayOnTop;
False: MainForm.Formstyle := fsNormal;
end;
if(Sender = AutoColor) then
Case LowerCase(AutoColor.Text) Of
'true': begin
For i := 0 to 2 do
begin
GuildColors[i].Hide;
ColorLabel[i].Hide;
end;
PickColors.Hide;
GroupColors.SetBounds(10, 90, 240, 50);
MainForm.Height := 280;
end;
'false': begin
For i := 0 to 2 do
begin
GuildColors[i].Show;
ColorLabel[i].Show;
end;
PickColors.Show;
GroupColors.SetBounds(10, 90, 240, 200);
MainForm.Height := 400;
end;
end;
if(Sender = PickColors) then
begin
PickColor(Color, x, y);
MemoBox.Lines.Add('Color Picked: ' + Inttostr(Color) +
' at ('+Inttostr(x)+', '+Inttostr(y)+')');
MemoBox.SelStart := Pos(inttostr(Color), MemoBox.Text)-1;
MemoBox.SelLength := Pos(inttostr(Color), MemoBox.Text) + Length(inttostr(Color));
MemoBox.CopyToClipboard; // Copy it !!
end;
if(Sender = PlayerBnt) then
begin
MainForm.Formstyle := fsNormal;
StartPlayers(True, 'Name Pass Active');
end;
if(Sender = StartScript) then
begin
Writeln('User Accepted!');
Try
If (LowerCase(AutoColor.Text) = 'false') then
begin
CoalRockColor := StrToInt(GuildColors[2].Text);
LadderColor := StrToInt(GuildColors[0].Text);
MMRockColor := StrToInt(GuildColors[1].Text);
end;
except
end;
MainForm.Modalresult := MrOk;
end;
end;
procedure NotDisplayForm;
Var c, radius, x, y, Radial, i :Integer;
Canvas, Canvas2 : TCanvas;
begin
MainForm := CreateForm;
MainForm.SetBounds(0, 0, 500, 280);
MainForm.POSITION:= poDesktopCenter;
MainForm.BORDERICONS:= [biMinimize, biSystemMenu];
MainForm.BORDERSTYLE:= bsSingle;
MainForm.Formstyle := fsStayOnTop;
MainForm.Caption := 'Guldex Miner By SKy Scripter';
MainImage:= TImage.Create(MainForm);
MainImage.parent:=MainForm;
MainImage.SetBounds(0, 0, 500, 400);
MainImage.Canvas.Pen.Width := 90;
For C:= 1 to 60 do
begin
radius:= radius + 5;
MainImage.CANVAS.Pen.COLOR := MainImage.CANVAS.Pen.COLOR+3;
For i:= 1 to 36 do // Draw Back Ground
begin
Radial := Radial + 10;
x:= Round(radius * Sin((Pi / 180) * Radial ) + 255);
y:= Round(-radius * Cos((Pi / 180) * Radial ) + 200);
MainImage.CANVAS.MoveTo(x, y);
MainImage.CANVAS.LineTo(x, y);
end;
Radial:= 0;
Wait(1);
end;
MainImage.Canvas.Font.Color := clSkyBlue;
MainImage.Canvas.Font.Size := 23;
MainImage.Canvas.Font.Name := 'Comic Sans MS';
MainImage.Canvas.Brush.Style:= bsClear;
MainImage.Canvas.TextOut(130, 0, 'Guildex Miner');
MainImage.Canvas.TextOut(120, 30, 'By SKy Scripter');
Canvas := GetBitmapCanvas(SRLT);
Canvas2 := GetBitmapCanvas(CreateMirroredBitmap(SRLT));
For y:= 1 to 57 do
For x:= 1 to 95 do // Change pixels to background
If (Canvas.Pixels[x, y] = clWhite) Then
Canvas.Pixels[x, y] := MainImage.Canvas.Pixels[-1 + x, -1 + y];
SafeCopyCanvas(Canvas, MainImage.Canvas, 0, 0, 95, 57, -1, -1, -1 + 95, -1 + 57);
For y:= 0 to 57 do
For x:= 0 to 95 do // Change pixels to background
If (Canvas2.Pixels[x, y] = clWhite) Then
Canvas2.Pixels[x, y] := MainImage.Canvas.Pixels[380 + x-1, 230 + y-1];
SafeCopyCanvas(Canvas2, MainImage.Canvas, 0, 0, 95, 57, 380, 230, 380 + 94, 230+ 56);
StayOnTop:= TCHECKBOX.Create(MainForm);
StayOnTop.Parent:= MainForm;
StayOnTop.SetBounds(400, 10, 100, 20);
StayOnTop.Caption := 'Stay On Top';
StayOnTop.Onclick := @AllSenders;
StayOnTop.Checked:= True;
GroupColors:= TGroupBox.Create(MainForm);
GroupColors.Parent:= MainForm;
GroupColors.SetBounds(10, 90, 240, 50);
GroupColors.Caption := 'Colors';
MainImage.Canvas.Font.Size := 10;
MainImage.Canvas.TextOut(20, 110, 'Auto-Color?');
AutoColor:= TComboBox.Create(MainForm);
AutoColor.Parent:= MainForm;
AutoColor.SetBounds(110, 110, 120, 50);
AutoColor.Text := 'True';
AutoColor.Items.Add('True');
AutoColor.Items.Add('False');
AutoColor.Onchange := @AllSenders;
PickColors:= TButton.Create(MainForm);
PickColors.Parent:= MainForm;
PickColors.SetBounds(70, 140, 75, 20);
PickColors.Caption := 'Pick Color';
PickColors.Onclick := @AllSenders;
PickColors.Hide;
PlayerBnt:= TButton.Create(MainForm);
PlayerBnt.Parent:= MainForm;
PlayerBnt.SetBounds(270, 140, 75, 25);
PlayerBnt.Caption := 'Edit Players';
PlayerBnt.Onclick := @AllSenders;
StartScript:= TButton.Create(MainForm);
StartScript.Parent:= MainForm;
StartScript.SetBounds(380, 140, 75, 25);
StartScript.Caption := 'Start Auto';
StartScript.Onclick := @AllSenders;
For i := 0 to 2 do
begin
GuildColors[i]:= TEdit.Create(MainForm);
GuildColors[i].parent:=MainForm;
GuildColors[i].FONT.Name:= 'Courier New';
GuildColors[i].FONT.Size:=10;
GuildColors[i].FONT.Color:= 255;
GuildColors[i].COLOR:= 0;
GuildColors[i].Text := '0';
GuildColors[i].SetBounds(130, 170 + (25 * i), 100, 20);
GuildColors[i].Hide;
end;
For i := 0 to 2 do
begin
ColorLabel[i]:= TLabel.Create(MainForm);
ColorLabel[i].parent:=MainForm;
ColorLabel[i].FONT.Name:= 'Courier New';
ColorLabel[i].FONT.Size:=10;
ColorLabel[i].FONT.Color:= 16777215;
ColorLabel[i].COLOR:= 0;
Case i of
0: ColorLabel[i].Caption := 'MMap Ladder:';
1: ColorLabel[i].Caption := 'MMap Rock:';
2: ColorLabel[i].Caption := 'MScreen Coal:';
end;
ColorLabel[i].SetBounds(20, 170 + (25 * i), 100, 20);
ColorLabel[i].Hide;
end;
MemoBox:= TMemo.Create(MainForm);
MemoBox.parent:=MainForm;
MemoBox.FONT.Name:= 'Courier New';
MemoBox.FONT.Size:=10;
MemoBox.Align:= albottom;
MemoBox.SCROLLBARS:= ssVertical;
MemoBox.WANTTABS:=True;
MemoBox.WANTRETURNS:=True;
MemoBox.FONT.Color:= 255;
MemoBox.COLOR:= 0;
MemoBox.Height := 75;
MemoBox.Lines.Add('Created By 1h1tk0y0un0w);
MemoBox.Lines.Add('Please Report All Bugs/Glitches Ect, To [email]ghrfk@HotMail.com[/email]');
MemoBox.Lines.Add('Read The Instructions (If Not Yet)');
MainForm.ShowModal;
end;
procedure DisplayForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('NotDisplayForm', v);
end;
Procedure SkyForm;
begin
Try
DisplayForm;
RunScript := (MainForm.Modalresult = MrOk);
Finally
Writeln('Freeing Memory');
FreeForm(MainForm)
FreeBitMap(SRLT);
If (Not(RunScript)) Then TerminateScript;
If (GetArrayLength(players) < 1 ) then
begin
Writeln('You Need To Set A Player');
TerminateScript;
end;
GetSelf.WindowState := wsMinimized;
Except
Writeln('ERROR: With Loading 1h1tk0y0un0w Guild Miner');
End;
end;
//----------------------------------------------------------------------------//
//-- Write Progress
//----------------------------------------------------------------------------//
Procedure WriteProgress(S : String);
Var
Space : String;
i : Integer;
begin
For i:= Length(S)+1 to 42 do
Space := Space + ' ';
Writeln('|' + S + Space + '|');
end;
//----------------------------------------------------------------------------//
//-- Progress report
//----------------------------------------------------------------------------//
Procedure Report;
Begin
Writeln('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
Writeln('| Created By 1h1tk0y0un0w |');
Writeln('| [email]ghrfk@Hotmail.com[/email] |');
Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
WriteProgress('Your Current Time Is : ' + TheTime);
WriteProgress(TimeRunning);
WriteProgress('Your Current Player Is : ' + Players[CurrentPlayer].Name);
If (Banks > 0 ) then
WriteProgress('You Have Banked ' + IntToStr(Banks) + ' Times');
If (Rocks > 0 ) then
WriteProgress('You Have Mined About ' + IntToStr(Rocks) + ' Rocks');
If (PickAxeAttached > 0 ) then
WriteProgress('You Have Attached Pick Head ' + IntToStr(PickAxeAttached) + ' Times');
If (Gas > 0 ) then
WriteProgress('You Have Found ' + IntToStr(Gas) + ' Gas Events');
If (Chatted > 0) then
WriteProgress('You Have Randomly Chatted About ' + Inttostr(Chatted) + ' Times');
Writeln('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');
end;
//----------------------------------------------------------------------------//
//-- Checks Brightness
//----------------------------------------------------------------------------//
Procedure CheckBrightNess;
Var
i : Integer;
begin
i:= rs_GetCurrentTab;
GameTab(11);
If (GetColor(713, 229) = 12437197) then
Mouse(711, 227, 5, 5, True);
GameTab(i);
end;
//----------------------------------------------------------------------------//
//-- For Some Reason BankScreen Wasnt Working... So i added This
//----------------------------------------------------------------------------//
Function BankWindow : Boolean;
Var
sx, sy: Integer;
begin
Result:= FindText(sx, sy, 'k of R', UpChars, 207, 32, 338, 52);
end;
//----------------------------------------------------------------------------//
//-- Closes Bank, Once Again SRL Failed :(
//----------------------------------------------------------------------------//
Function ExitBank : Boolean;
Var i : Integer;
begin
For i := 1 to 5 do
begin
Wait(500 + Random(500));
If BankWindow then
begin
Result := True;
Mouse(480, 34, 10, 10, True);
Wait(1000);
If Not BankWindow then
Exit;
end;
end;
end;
//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//
Procedure DepositStuff(slot, toslot, thetype: Integer);
var
slotnumber, col, row: Integer;
begin
if (BankWindow) then
begin
slotnumber := slot;
while (slotnumber <= toslot) do
begin
if ((slotnumber mod 4) = 0) then
col := 3
else
col := (slotnumber mod 4) - 1;
row := (slotnumber - 1) / 4;
if (FindColor(x, y, 65536, (571 + 47 * col), (215 + 36 * row), (601 + 47 *
col), (245 + 36 * row))) then
begin
if (thetype = 1) then
Mouse(x, y+3, 5, 5, True);
if (thetype = 2) then
begin
Mouse(x, y+3, 5, 5, False);
if (ChooseOption(x, y, 'All')) then
Wait(1000 + Random(100));
end;
end;
slotnumber := slotnumber + 1;
end;
end;
end;
//----------------------------------------------------------------------------//
//-- Well Sence BankScreen didint Work New Banker...
//----------------------------------------------------------------------------//
Function OpenFallyBank : Boolean;
Var
x, y, fs, fs2: Integer;
Begin // just like openbank3
if Not BankWindow then
repeat
if (FindObjMultiText(x, y, 'Use Bank', 'e ban', 'nk boo', 3627894, 20)) then
Mouse(x, y, 4, 4, False)
else
if (FindObjMultiText(x, y, 'Use Bank', 'e ban', 'nk boo', 4547193, 20)) then
Mouse(x, y, 4, 4, False);
Wait(250);
if (ClickOption('quickly', 1)) then
begin
Flag;
repeat
Wait(100);
fs := fs + 1;
until (BankWindow) or (fs >= 50);
end;
fs2 := fs2 + 1;
until (BankWindow) or (fs2 > 5);
if BankWindow then Result := True;
end;
//----------------------------------------------------------------------------//
//-- Loading Please Wait
//----------------------------------------------------------------------------//
Procedure PleaseWait;
begin
While (GetColor(224, 145) = 16777215) or
(GetColor(155, 158) = 16777215) or
(GetColor(217, 143) = 16777215) do
Wait(500);
end;
//----------------------------------------------------------------------------//
//-- Typs a random array of words --//
//----------------------------------------------------------------------------//
Procedure TypeInRandom(Texts : Array Of String);
begin
TypeSend(Texts[Random(GetArrayLength(Texts))]);
end;
//----------------------------------------------------------------------------//
//-- Finds array of words in one string then returns true if found. --//
//----------------------------------------------------------------------------//
Function PosMulti(substr : Array Of String; S: String) : Boolean;
Var
i : Integer;
begin
For i := 0 to GetArrayLength(Substr)-1 do
begin
Result:= (Pos(SubStr[i], S) > 0)
If (Result) then exit;
end;
end;
//----------------------------------------------------------------------------//
//-- counts how many seperaters there are. --//
//----------------------------------------------------------------------------//
Function CountSep(S:String; Seperater:Char) : Integer;
var i:Integer;
begin
for i:= 1 to length(S) do
if (S[i] = Seperater) then
Result:= Result + 1;
end;
//----------------------------------------------------------------------------//
//-- Returns the string in between the seperaters --//
//----------------------------------------------------------------------------//
Function BetweenSep(S:String; Seperater:Char): Array of String;
Var i, ST, c:Integer;
begin
ST:= CountSep(S, Seperater);
If (St > 0 ) Then St:= St + 1;
setarraylength(Result, st);
For i:= 1 to length(s) do
if (S[i] = Seperater ) then C:= c + 1
else
Result[c]:= Result[c] + S[i];
end;
//----------------------------------------------------------------------------//
//-- It Responds only once to each player --//
//-- so if a player ask your mining lvl twice then it only says it once --//
//----------------------------------------------------------------------------//
Procedure 1h1tResponder;
Var
Chatter, ChatText : String;
Talkers : Array of string;
i : Integer;
begin
If (FindColor(x, y, 16711680, 19, 415, 477, 431)) then
If (LastChatter(Chatter)) then
begin
If (Chatter = LowerCase(Players[CurrentPlayer].Name))then Exit;
GetLastChatText(ChatText);
Talkers := BetweenSep(Chatters, ',');
for i := 0 to GetArrayLength(Talkers)-1 do
If (Trim(Talkers[i]) = Chatter) then exit;
If (PosMulti(['lol', 'lmfao', 'rofal', 'ha '], ChatText)) then
begin
TypeInRandom(['Lol', 'lmfao', ':]', '=]', 'hehe', 'haha']);
MarkTime(SpeakTime);
Chatters := Chatters +','+ Chatter;
Chatted := Chatted + 1;
exit;
end;
If (PosMulti(['m l', 'mine l', 'mining l',
'm level', 'mine level', 'mining level'], ChatText)) then
begin
SayCurrentLevels('Mining');
Writeln(Chatter + ' Said : '+ Chattext);
Writeln('Said mining lvl to ' + Chatter);
MarkTime(SpeakTime);
Chatted := Chatted + 1;
Chatters := Chatters +','+ Chatter;
exit;
end;
If (PosMulti(['noob', 'loser',
'newbie', 'nub'], ChatText)) then
begin
TypeInRandom([':[', '=[', 'aww..', '?',
'ok...?', 'grr...']);
MarkTime(SpeakTime);
Writeln(Chatter + ' Said : '+ Chattext);
Chatters := Chatters +','+ Chatter;
Chatted := Chatted + 1;
exit;
end;
If (PosMulti(['auto'], ChatText)) then
begin
TypeInRandom(['gaw, autos make me mad..',
'dont auto..', 'autoing is wrong']);
MarkTime(SpeakTime);
Writeln(Chatter + ' Said : '+ Chattext);
Chatters := Chatters +','+ Chatter;
Chatted := Chatted + 1;
exit;
end;
If (PosMulti(['auto'], ChatText)) then
begin
TypeInRandom(['gaw, autos make me mad..',
'dont auto..', 'autoing is wrong']);
MarkTime(SpeakTime);
Writeln(Chatter + ' Said : '+ Chattext);
Writeln('Taked to ' + Chattext + ' about autoing');
Chatters := Chatters +','+ Chatter;
Chatted := Chatted + 1;
exit;
end;
If (PosMulti(['macro'], ChatText)) then
begin
TypeInRandom(['macro?',
'macro..', 'i report macros',
'grr.. macros are gay..']);
MarkTime(SpeakTime);
Writeln(Chatter + ' Said : '+ Chattext);
Writeln('Taked to ' + Chattext + ' about macros');
Chatters := Chatters +','+ Chatter;
Chatted := Chatted + 1;
exit;
end;
If (PosMulti(['bot'], ChatText)) then
begin
TypeInRandom(['no bot', 'nope',
'dont talk about that..']);
MarkTime(SpeakTime);
Writeln(Chatter + ' Said : '+ Chattext);
Writeln('Taked to ' + Chattext + ' about bots');
Chatters := Chatters +','+ Chatter;
Chatted := Chatted + 1;
exit;
end;
If (PosMulti(['sup', 'was up', 'hows it going',
'whats going on', 'how are you',
'how r u'], ChatText)) then
begin
TypeInRandom(['nothing much..', 'good..', 'bored', 'how r u doing?',
'fine', 'ok...', 'im happy']);
Writeln(Chatter + ' Said : '+ Chattext);
Writeln('Talked to ' + Chatter);
MarkTime(SpeakTime);
Chatters := Chatters +','+ Chatter;
Chatted := Chatted + 1;
exit;
end;
If (PosMulti(['hi', 'hey', 'halo',
'ello', 'yo', Players[CurrentPlayer].Name], ChatText)) then
begin
Wait(1000 + random(1000)); // Getting name ;)
TypeInRandom(['hi', 'hey', 'halo', 'ello',
'hi ' + Chatter, 'hey ' + Chatter]);
Writeln(Chatter + ' Said : '+ Chattext);
Writeln('Said hi to ' + Chatter);
MarkTime(SpeakTime);
Chatters := Chatters +','+ Chatter;
Chatted := Chatted + 1;
exit;
end;
end;
end;
//----------------------------------------------------------------------------//
//-- 1h1t Random Chatter --//
//-- chats randomly and only if its last chat the chatseconds ago --//
//----------------------------------------------------------------------------//
Procedure 1h1tChatter;
Begin
1h1tsResponder;
If ((Random(100)+1) < 80) then exit;
If (TimeFromMark(SpeakTime) / 1000 / 60 >= ChatMin) then
begin
If (Players[CurrentPlayer].Loc = 'In Bank') then
begin
If (InventoryFull) then
begin
TypeInRandom(['i got coal', 'gotz me some coal', 'Coal yah..',
'coaly coaly', ':]', '=]']);
MarkTime(SpeakTime);
Chatted := Chatted + 1;
exit;
end;
If (InventoryCount < 2) then
begin
TypeInRandom(['bored..', 'cant survive.. any longer..', 'huh...',
'=(', ':(', ':{', 'lalala', 'yady yady', 'lallalalal',
'agh..', 'yer..']);
MarkTime(SpeakTime);
Chatted := Chatted + 1;
exit;
end;
end;
If (Players[CurrentPlayer].Loc = 'In Guild') then
begin
If (InventoryCount > 20) and (InventoryCount < 26) then
begin
TypeInRandom(['almost full..', 'only '
+ inttostr(28 - InventoryCount)+ ' more to mine', 'only '
+ inttostr(28 - InventoryCount)+ ' more rocks to mine',
'almost :)','', '', '', '', 'Only ' + inttostr(28 - InventoryCount)+ ' More',
inttostr(28 - InventoryCount)+ ' More']);
MarkTime(SpeakTime);
Chatted := Chatted + 1;
exit;
end;
end;
If (InventoryCount < 10) then
begin
TypeInRandom(['huh..', 'bored..', 'for ever.. ',
'*tired*', 'lalala', 'lalal', 'rompe rompe', 'tired..',
'Mining is slow..', 'hehehe...', 'yer...', 'Cuh..',
'Yawnnn', 'Shakria!', 'Bang!', 'Guild Rocks!',
'heheheheheh', 'Duh...', 'Hold me..', 'im going to mine..'
]);
MarkTime(SpeakTime);
Chatted := Chatted + 1;
exit;
end;
end;
end;
//----------------------------------------------------------------------------//
//-- logs you out for a reason --//
//----------------------------------------------------------------------------//
Procedure LogOutPlayer(Loc : String; Active : Boolean);
begin
Players[CurrentPlayer].Loc := Loc;
Writeln('Logging out ' + Players[CurrentPlayer].Name );
Writeln('Player ' + Players[CurrentPlayer].Name + ' = ' + Loc);
Players[CurrentPlayer].Active := Active;
Logout;
end;
//----------------------------------------------------------------------------//
//-- Gets the coal rocks color --//
//----------------------------------------------------------------------------//
Function GetRockColor : Boolean;
Var
CoalBmp, Tol, Mx, My : Integer;
begin
if (Not(LoggedIn)) then Exit;
If (CoalRockColor > 0) then
begin
Result:= True;
Exit;
end;
CoalBmp := BitmapFromString(6, 6, 'z78DA337635763572343630363032C4' +
'240D5D81D00CBF2C548DA9B1A9913132892C8BA9C6C8D9C8D9D01' +
'993244A8DA3B1A591052E59434B434B03570013662E0C');
Mx := 515 shr 1;
My := 337 shr 1;
While Tol < 80 do
begin
If (FindBitmapSpiralTolerance(CoalBmp, Mx, My, 5, 5, 510, 332, Tol)) then
begin
MMouse(Mx, My, 0, 0);
Wait(200 + Random(100));
If (IsUpTextMulti('Mine', 'ine R', 'ine')) then
begin
CoalRockColor := GetColor(Mx + 1, My + 1);
Writeln('Found Coal Rock Color! ' + inttostr(CoalRockColor));
Result:= True;
Break;
end else
begin
Result := False;
Break;
end;
end;
Tol := Tol + 1;
end;
FreeBitmap(CoalBmp);
end;
//----------------------------------------------------------------------------//
//-- FindRockColor --//
//----------------------------------------------------------------------------//
Procedure GetMMRockColor;
Var
MMBmp, Tol, mx, my : Integer;
begin
if (Not(LoggedIn)) then Exit;
MMBmp := BitmapFromString(2, 2, '455341455341455341455341');
While Tol < 80 do
begin
mx := 648;
my := 83;
If (FindBitmapSpiralTolerance(MMBmp, mx, my, MMX1, MMY1, MMX2, MMY2, Tol)) then
begin
If (rs_OnMinimap(mx, my)) then
begin
MMRockColor := GetColor(mx, my)
Writeln('Found Mini Map Rock Color ' + Inttostr(MMRockColor));
end else
MMRockColor := FindRockColor;
Break;
end;
Tol := Tol + 1;
end;
FreeBitMap(MMBmp);
If (MMRockColor < 2) then
LogOutPlayer('Lost Cant Find MM Rock Color!', False);
end;
//----------------------------------------------------------------------------//
//-- FindLadderColor --//
//----------------------------------------------------------------------------//
Procedure GetLadderColor;
Var
MMBmp, Tol, mx, my : Integer;
begin
if (Not(LoggedIn)) then Exit;
MMBmp := BitmapFromString(2, 4, 'z78DA33313774313030219A0400F588' +
'0A01');
While Tol < 80 do
begin
mx := 648;
my := 83;
If (FindBitmapSpiralTolerance(MMBmp, mx, my, mx - 40, my - 40, mx + 40, my + 40, Tol)) then
begin
If (rs_OnMinimap(mx, my)) then
begin
LadderColor := GetColor(mx, my)
Writeln('Found Ladder Color ' + Inttostr(LadderColor));
end else
LadderColor := FindLadderColor;
Break;
end;
Tol := Tol + 1;
end;
FreeBitMap(MMBmp);
If (LadderColor < 2) then
LogOutPlayer('Lost Cant Find Ladder Rock Color!', False);
end;
//----------------------------------------------------------------------------//
//-- Finds array of diffrent string in the last chat --//
//----------------------------------------------------------------------------//
Function IsChatText(Texts: Array of string): Boolean;
var
x, y, i: Integer;
begin
if (Not(LoggedIn)) then Exit;
For i:= 0 to GetArrayLength(Texts)-1 do
begin
Result := FindText(x, y, Texts[i], SmallChars, 16,412, 479, 433);
If (Result) then
exit;
end;
end;
//----------------------------------------------------------------------------//
//-- Randomly Click Right or Left Click --//
//----------------------------------------------------------------------------//
Procedure MouseText(x, y, rx, ry : Integer; Text: String);
var
mx, my : integer;
begin
If ((Random(10)+1) > 9) then
begin
Mouse(x, y, rx, ry, False);
Wait(100 + random(100));
If (Not(ChooseOption(mx, my, Text))) then
If (ChooseOption(mx, my, 'Cancel')) then
begin
SleepAndMoveMouse(500 + Random(700));
Writeln('Could not find text just clicking');
Mouse(x, y, rx, ry, True);
end;
end
else
Mouse(x, y, rx, ry, True);
MarkTime(Mark);
While FlagPresent do
begin
Wait(3000 + Random(1000));
If (TimeFromMark(Mark) > 7000) then Exit;
if (IsChatText(['ing yo'])) then Exit;
end;
end;
//----------------------------------------------------------------------------//
//-- Fix The Coords Facing The Degree --//
//----------------------------------------------------------------------------//
Procedure FixCoords(Var x, y: Integer; Deg, Radius : Integer);
begin // Sky Scripter
x:= Trunc(Radius * Sin((Pi/180) * (Rs_GetCompassAngleDegrees + Deg)) + x);
y:= Trunc(-Radius * Cos((Pi/180) * (Rs_GetCompassAngleDegrees + Deg)) + y);
end;
//----------------------------------------------------------------------------//
//-- Walks The Given Direction --//
//----------------------------------------------------------------------------//
Procedure CompassWalk(Dir : String; Radius, Tol : Integer);
Var // Sky Scripter
dx, dy, Deg : Integer;
begin
Dir:= Trim(lowercase(dir));
Case Dir Of
's', 'south' : Deg := 180;
'e', 'east' : Deg := 90;
'w', 'west' : Deg := 270;
end;
dx:= Trunc(Radius * Sin((Pi/180) * (Rs_GetCompassAngleDegrees + FixD(Deg + Tol))) + 648);
dy:= Trunc(-Radius * Cos((Pi/180) * (Rs_GetCompassAngleDegrees + FixD(Deg + Tol))) + 83);
MouseFindFlag(dx, dy, -1, 1);
end;
//----------------------------------------------------------------------------//
// Like RadialWalk, But Walks The Compasss
//----------------------------------------------------------------------------//
Function CompassRadialWalk(Var P : TPoint; Color, StartRadial, EndRadial, Radius: Integer): Boolean;
var
i, xx, yy: Integer; // 1h1tk0y0um0w
begin //
if (StartRadial < EndRadial) then
begin
repeat
for i := StartRadial to EndRadial do
begin
xx := Round(Radius * Sin((Pi/180)* FixD(rs_GetCompassAngleDegrees + i)) + 646);
yy := Round(-Radius * Cos((Pi/180)* FixD(rs_GetCompassAngleDegrees + i)) + 84);
if (FindColor(x, y, Color, xx, yy, xx + 1, yy + 1)) then
begin
P.x:= x;
P.y:= y;
Result := True;
Exit;
end;
end;
Radius := Radius - 4;
until (Radius <= 1);
end;
if (StartRadial > EndRadial) then
begin
repeat
for i := StartRadial downto EndRadial do
begin
xx := Round(Radius * Sin((Pi/180)* FixD(rs_GetCompassAngleDegrees + i)) + 646);
yy := Round(-Radius * Cos((Pi/180)* FixD(rs_GetCompassAngleDegrees + i)) + 84);
if (FindColor(x, y, Color, xx, yy, xx + 1, yy + 1)) then
begin
P.x := x;
P.y := y;
Result := True;
Exit;
end;
end;
Radius := Radius - 4;
until (Radius <= 1);
end
end;
//----------------------------------------------------------------------------//
//-- RotateScreenTime --//
//----------------------------------------------------------------------------//
Procedure RotateScreenTime(Time : Integer);
begin
Case Random(2) + 1 of
1: begin
KeyDown(VK_RIGHT);
Wait(Random(100)+Time);
KeyUp(Vk_RIGHT);
end;
2: begin
KeyDown(Vk_Left);
Wait(Random(100)+Time);
KeyUp(Vk_Left);
end;
end;
end;
//----------------------------------------------------------------------------//
//-- --//
//-- Loads The Picks --//
//----------------------------------------------------------------------------//
procedure LoadPickHeads;
begin
PickHeadbmp[1] := BitmapFromString(5, 7, 'z78DA75CE410E803008' +
'04C02F15D85DE3B1B6F2FF27A9C1432FE54008038100841917920' +
'79C5DC029D76C5F98672414C2498B41E35533A536ECAD9CD65BAB' + // Rune
'AD55ABEFD3F255F1562F8D2439ABFF2B39A4ADD6571BAD5B6B7E0' +
'05A0A2C5F');
PickHeadbmp[2] := BitmapFromString(13, 6, 'z78DA9DD0410A43210' +
'C04D02B259949D165B5E4FE47AAFFC7851FA1481567233E268A8C' +
'A57290500480424741B820E85EF99AB762D70E348BF30469202AE' +
'B38EA46FD4FD3AE1431D7B748B65AB5CCC7AB86626DCFD5B18FC6' + // addy
'D00647A686CE8E9E6D4F7E6C6AB733B5DBD9B59C77CF87B3B4FAA' +
'D7D01D2FC61AB');
PickHeadbmp[3] := BitmapFromString(5, 7, 'z78DA7D8C510E80300C' +
'42AF5428DBBF5BEDFD8FE462FD983191267CF00A664B6032D57D5' + // mith
'D834F3FDB10A52E06432C77B86BEC3F956342666C38CCAA5574CF' +
'19C8452174BCE89D977B7AB67896B7D697E6AF2E9D232F02');
PickHeadbmp[4] := BitmapFromString(5, 6, '0000015C5656686161' +
'766E6D8379795A5454575151625B5A6B6363766E6D5751511C140' + // steel
'0251A00837979766E6D1C1400251A002D1F007E7575766E6D1C14' +
'002D1F002D1F007A7171766E6D251A002D1F002D1F007C7373766' +
'E6D');
PickHeadbmp[5] := BitmapFromString(6, 7, 'z78DA75CE310EC03008' +
'03C02F1930A93236B4F9FF931A850C2C05C98B4F08608DD86BDD3' + // iron
'A1B95EA6067F7CBC505D90E6B6B77522C2CAAAC464208A8CB0DE4' +
'856A6AAB8FCC659C93330D079D7ECC6E8F5106A39A7AE1D794363' +
'37FA8F901C2CC3452');
PickHeadbmp[6] := BitmapFromString(6, 7, 'z78DA758E3112C430' +
'0803BF84241C5FCAD877FCFF49C70C2E68A242CDEE08CC32E0176' + // bronze
'1562DA7B217A75550AD0F179E84C2F6A59B1854701C2A4ECCD33F' +
'463ACDEC0E363C6F0D3C66B5D09D4EEB1F0F6DAA1CBF74218ED37' +
'E3EB4397DE1CDF903A4103465');
end;
//----------------------------------------------------------------------------//
//-- Frees The Picks --//
//----------------------------------------------------------------------------//
procedure FreePickHeads;
Var
i:Integer;
begin
for i:= 1 to 6 do
FreeBitMap(PickHeadbmp[i]);
end;
//----------------------------------------------------------------------------//
//-- Finds The Best Pick In Bank --//
//----------------------------------------------------------------------------//
Function FindBestPick : Boolean;
Var
i, lvl, Tol: integer;
begin
LoadPickHeads;
If (BankWindow = False) then
begin
OpenFallyBank;
Flag;
Wait(1000 + Random(1000));
end;
Wait(1000);
DepositStuff(1, 28, 2);
For i := 1 to 6 do
begin
Case i of
6: Lvl := 0; // Bronze
5: Lvl := 0; // Iron
4: Lvl := 6; // Steel
3: Lvl := 21; // Mithral
2: Lvl := 31; // Addy
1: Lvl := 41; // Rune
end;
While Tol < 30 do
begin
If (FindBitmapTolerancein(PickHeadbmp[i],x,y,MSX1,MSY1,MSX2,MSY2,Tol))
and (MiningLvl >= Lvl) then
begin
Mouse(x, y, 2, 2, True)
NoPick := False;
Result := True;
Break;
end;
Tol := Tol + 2;
end;
If (Result) then Break;
Tol := 0;
Wait(100);
end;
FreePickHeads;
end;
//----------------------------------------------------------------------------//
//-- Climbs ladder --//
//----------------------------------------------------------------------------//
Procedure ClimbLadder(Loc : String);
Var
dx, dy, i: Integer;
begin
GameTab(4);
For i:= 1 to 10 do
begin
if (Not(LoggedIn)) then LoginPlayer;
If (FindObj(dx, dy, 'adder', 2840438, 40)) then
begin
Mouse(dx, dy, 0, 0, False);
Wait(200 + Random(200));
If (ChooseOption(dx, dy, 'Climb')) then
begin
Players[CurrentPlayer].Loc := Loc;
Flag;
exit;
end else
begin
ChooseOption(dx, dy, 'Cancel')
RotateScreenTime(1000);
end;
end;
end;
LogOutPlayer('Lost Cant Find Ladder', False);
end;
//----------------------------------------------------------------------------//
//-- If It Cant Find Flag Then it Waits the time --//
//----------------------------------------------------------------------------//
Function LongFlag(Time, Dist : Integer) : Boolean;
begin
Result:= True; // by 1h1tk0y0un0w
repeat
If (Random(2) = 0) then
SleepAndMoveMouse(100 + Random(500))
else
Wait(100);
PleaseWait;
If (Not(FlagPresent)) then
begin
MarkTime(Mark);
Repeat
If (Not LoggedIn) or
(TimeFromMark(Mark) >= Time) then
begin
Result := False;
exit;
end;
SleepAndMoveMouse(300 + Random(100));
Until (FlagPresent);
Writeln('Found Hidden Flag');
end;
until (FlagDistance <= Dist)
end;
//----------------------------------------------------------------------------//
//-- Run To Ladder --//
//----------------------------------------------------------------------------//
Procedure ToLadder(Run : 1h1tk0y0un0w);
Var P : TPoint;
mx, my, Trys : Integer;
Done : boolean;
begin
if (Not(LoggedIn)) then LoginPlayer;
PerfectNorth;
If (Run) then SetRun(Run);
repeat
if (Not(LoggedIn)) then LoginPlayer;
trys := trys + 1;
mx := MMCX;
my := MMCY;
If (MMRockColor < 1) then GetMMRockColor;
p.x := 0;
p.y := 0;
CompassRadialWalk(P, MMRockColor, 180, 320, 70)
If (( p.x < 1 )) then
begin
If (LadderColor < 1) then GetLadderColor;
If ((FindColorSpiral(mx, my, LadderColor, MMX1, MMY1, MMX2, MMY2))) then
begin
Writeln('Found Adder! (Ladder)');
FixCoords(mx, my, 300+ random(60), 2+random(10));
MouseFindFlag(mx, my, 1, 1);
LongFlag(1000, 0);
Done := True;
end;
If (Players[CurrentPlayer].Loc = 'In Fight') then
begin
If Not FindFight then
begin
Players[CurrentPlayer].Loc := 'In Guild';
CompassWalk('E', 30 + Random(11), Random(10)- Random(10));
Flag;
Exit;
end;
end;
end else
begin
MouseFindFlag(p.x, p.y, -1, -1);
Flag;
end;
If (Trys > 30) then
begin
LogOutPlayer('Lost in Guild', False);
Exit;
end;
until (Done)
If (Run) and (Not(Players[CurrentPlayer].Loc = 'In Fight')) then
SetRun(False);
GameTab(4);
If (Players[CurrentPlayer].Loc = 'In Fight') then
begin
If Not FindFight then
begin
Players[CurrentPlayer].Loc := 'In Guild';
CompassWalk('E', 30 + Random(11), Random(10)- Random(10));
Flag;
Exit;
end;
end;
ClimbLadder('To Bank');
end;
//----------------------------------------------------------------------------//
//-- PerForms a AntiBan --//
//----------------------------------------------------------------------------//
Procedure ImHuman;
Var
x, y: Integer;
begin
If (TimeFromMark(AntiMark) / 1000 / 60 > AntiMin) then
begin
x:= Random(20)+1;
Case x of
5 : HoverSkill('Mining', False);
10 : If Random(3) = 0 then
HoverSkill('Smithing', False);
15 : Case Random(2) of
0: BoredHuman;
1: RotateScreenTime(Random(1000) + 500);
end;
20 : Case Random(3) of
0: SetRun(True);
1: RandomEmote;
3: Case Random(3) of
0: SetChat('off', Random(1)+2);
1: SetChat('on', Random(1)+2);
3: SetChat('friends', Random(1)+2);
end;
end;
end;
For y:= 1 to 5 do
If (y * 5 = x) then
begin
MarkTime(AntiMark);
CloseWindow;
PerfectNorth;
HighestAngle;
end;
end;
end;
//----------------------------------------------------------------------------//
//-- Finds Randoms --//
//----------------------------------------------------------------------------//
function FindRandoms: 1h1tk0y0un0w;
var
i: Integer;
begin
for i := 1 to 13 do
begin
PleaseWait;
case I of
1: CloseWindow;
2: if FindDead then
Result := True;
3: If (LogOutToMods) then
If FindMod then
Result := True;
4: if FindMime then
Result := True;
5: if FindMaze then
Result := True;
6: if FindQuiz then
Result := True;
7: if FindDemon then
Result := True;
8: if FindScapeRune then
Result := True;
9: if FindLamp(LampSkill) then
Result := True;
10: if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleNewBox;
end;
11:
if NoGameTab then
begin
If (Not (LoggedIn)) then
begin
Loginplayer;
Exit;
end;
Result := True;
Players[CurrentPlayer].Rand := 'No GameTab';
LogOutPlayer('No Game Tab', False);
Exit;
end;
12: if RC then
Result := True;
13: if FindFight Then
begin
Result := True;
If (Players[CurrentPlayer].Loc <> 'In Guild') then
begin
RunTo('N', True);
Wait(30000 - (Random(10) * 1000) + Random(1000) );
RunBack;
end else
begin
Players[CurrentPlayer].Loc := 'In Fight';
ToLadder(True);
SleepAndMoveMouse(1000 + random(100));
If (Players[CurrentPlayer].Loc = 'In Fight') then
begin
while (GetColor(200, 145) = 16777215) do
SleepAndMoveMouse(500);
Wait(500 + Random(500));
ClimbLadder('In Guild');
Wait(1000 + Random(1000));
CompassWalk('E', 40 + Random(10), Random(10)-Random(10));
end;
end;
PerfectNorth;
end;
end;
if Result then Break;
Wait(1);
end;
SkyChatter;
if Result then
begin
SaveToChatLog;
SRLRandomsReport;
PerfectNorth;
HighestAngle;
end;
ImHuman;
end;
//----------------------------------------------------------------------------//
//-- Mines a Full Inven Of Guild Rocks --//
//----------------------------------------------------------------------------//
Procedure MineGuild;
Var
P: TPoint;
Mx, My, trys, i, tx, ty: Integer;
Found : Boolean;
begin
if (Not(LoggedIn)) then LoginPlayer;
If (Players[CurrentPlayer].Loc <> 'In Guild') then Exit;
If (MMRockColor < 1) then GetMMRockColor;
If (LadderColor < 1) then GetLadderColor;
If (CoalRockColor = 0) then
While (Not(GetRockColor)) do
begin
SleepAndMoveMouse(500 + random(2000));
If (Not (CompassRadialWalk(P, MMRockColor, 0, 180, 60))) then
CompassRadialWalk(P, MMRockColor, 180, 360, 60)
MouseFlag(p.x, p.y, 0, 0);
Flag;
FindRandoms;
trys := trys + 1;
If (Trys > 20) then
Begin
Writeln('Tried To Find The Coal Rock 20 Times!');
Writeln('Could not find It Logging player Out');
LogOutPlayer('Cant Find ore', False);
Exit;
end;
end;
repeat
if (Not(LoggedIn)) then LoginPlayer;
Repeat
if (Not(LoggedIn)) then Break;
If (InventoryFull) then Break;
Mx := MSCX;
My := MSCY;
Found := False;
// FindRandoms;
If (FindColorSpiral(mx, my, CoalRockColor, 5, 5, 510, 332)) then
begin
1h1tsResponder;
MMouse(mx, my, 2, 2);
wait(50 + random(50));
If (GasCheck(mx, my)) or
(GasColors(mx, My)) then
begin
tx := 648;
ty := 83;
FixCoords(tx, ty, Random(360)+1, Random(6)+2);
MouseFindFlag(tx, ty, 1, 1);
Wait(500 + random(1000));
If (CompassRadialWalk(P, MMRockColor, 0, 360, 60)) then
MouseFlag(p.x, p.y, 0, 0); // Get Out of that area
Flag;
gas := gas + 1;
Writeln('*** Found Gas ***');
Found := False;
Break;
end;
Wait(100 +random(200));
If (IsUpTextMulti('Mine', 'ine R', 'ine')) then
begin
GetMousePos(mx, my);
MouseText(mx, my, 0, 0, 'Mine');
Found := True;
end;
If PickUpRocks Then
If (IsUpTextMulti('Take', 'Tak', 'ake')) then
begin
GetMousePos(mx, my);
MouseText(mx, my, 0, 0, 'Take');
Found := True;
end;
end;
If (Not(Found)) then
begin
Mx := MMCX;
My := MMCY;
FindRandoms;
SkysResponder;
If (CompassRadialWalk(P, MMRockColor, 90, 450, 40)) then
MouseFlag(p.x, p.y, 0, 0);
Flag;
end;
For i:= 1 to 5 do
begin
if (Not(LoggedIn)) then Exit;
SleepAndMoveMouse(Random(Trunc(MineSpeed * 0.10)) + MineSpeed / 5);
SkysResponder;
Case i of
1: FindTalk;
3: FindPick;
5: FindTalk;
end;
If (IsChatText(['age to'])) or (NoPick) then
break;
end;
FindTrade;
Until (IsChatText(['age to'])) or (NoPick);
FindRandoms;
Until (InventoryFull) or (NoPick);
ToLadder(RBool);
SleepAndMoveMouse(1000 + random(100));
while (GetColor(200, 145) = 16777215) do SleepAndMoveMouse(500);
SleepAndMoveMouse(1000 - Random(200));
end;
//----------------------------------------------------------------------------//
//-- retruns true if user has a pick axe --//
//----------------------------------------------------------------------------//
Function PlayerHavePick : 1h1tk0y0un0w;
Var
Pick, dx, dy : Integer;
begin
if (Not(LoggedIn)) then Exit;
Pick:= DTMFromString('78DA633CC2C4C0B08491011530229140FA025' +
'0CD065435060A0AA86A7600D5ACC6AF06004B1C053C');
GameTab(4); // The Dtm Is The Pick head
Wait(200);
If (FindDTM(Pick, dx, dy, 556, 205, 738, 461)) then
begin
hc1 := GetColor(dx + 2, dy + 2);
hc2 := GetColor(dx, dy + 2);
hc3 := GetColor(dx + 1, dy + 2);
hc4 := GetColor(dx + 3, dy + 2);
hc5 := hc1;
Writeln('Found Pick In Iventory Color ' + IntToStr(hc1) + ', ' + IntToStr(hc2)
+ ', ' + IntToStr(hc3) + ', ' + IntToStr(hc4) );
EquipPick := False;
Result := True;
end else
begin
GameTab(5);
Wait(200);
If (FindDTM(Pick, dx, dy, 556, 205, 738, 461)) then
begin
hc1 := GetColor(dx + 2, dy + 2);
hc2 := GetColor(dx, dy + 2);
hc3 := GetColor(dx + 1, dy + 2);
hc4 := GetColor(dx + 3, dy + 2);
hc5 := hc1;
Writeln('Found Pick Equiped Colors ' + IntToStr(hc1) + ', ' + IntToStr(hc2)
+ ', ' + IntToStr(hc3) + ', ' + IntToStr(hc4) );
EquipPick := True;
Result := True;
GameTab(4);
end;
end;
MMouse(dx, dy, 0, 0);
FreeDtm(Pick);
end;
//----------------------------------------------------------------------------//
//-- Find The Bank Then Click In Front Of The Bankers --//
//----------------------------------------------------------------------------//
Function FindBankers : 1h1tk0y0un0w;
Var
Bankers, BColor : Integer;
Tol, Dx, Dy, i, id: Integer;
begin
if (Not(LoggedIn)) then Exit;
Bankers := BitmapFromString(2, 2, 'FCFC02F5F500FCFC02EDED00');
While Tol < 100 do
begin
if (Not(LoggedIn)) then Exit;
If (FindBitmapToleranceIn(Bankers, Dx, Dy, MMX1, MMY1, MMX2, MMY2, Tol)) Then
begin
BColor:= GetColor(dx + 1, Dy + 1);
Break;
end;
Tol := Tol + 2;
end;
If (BankColor = 0) Then BankColor := GetSymbolColor(x, y, 'Bank');
If (FindMMColor(x, y, BankColor)) Then
For i := 1 to 4 do
begin
if (Not(LoggedIn)) then Exit;
id := 90 * i;
FixCoords(x, y, id, 10);
If (FindColor(dx, dy, BColor, x-20, y-20, x+20, y+20)) then
begin
If (BankColor < 1) Then
begin
LogOutPlayer('Cant Find Bank symbol', False);
Exit;
end;
FixCoords(dx, dy, 12 - Random(3), 5+Random(3));
Mouse(dx, dy, 0, 0, True);
Result:= True;
Break;
end;
end;
FreeBitMap(Bankers);
end;
//----------------------------------------------------------------------------//
//-- Banks Everything but pick --//
//----------------------------------------------------------------------------//
Procedure BankOres;
Begin
if (Not(LoggedIn)) then Exit;
If (Not(BankWindow)) then OpenFallyBank;
Flag;
MarkTime(Mark);
While (Not (BankWindow)) do
begin
Wait(100);
If (TimeFromMark(Mark) > 120000) then
begin
LogOutPlayer('Cant Find Bank', False);
Writeln('Could Not Find Bank Screen');
Exit;
end;
end;
Players[CurrentPlayer].Loc := 'In Bank';
If (EquipPick) then
DepositStuff(1, 28, 2)
else
DepositStuff(2, 28, 2);
Banks := Banks + 1;
If (NoPick) then
If (Not (FindBestPick)) then
begin
ExitBank;
Wait(500);
Writeln('ERROR : No Pick');
LogOutPlayer('Cant Find Pick', False);
exit;
end else
begin
ExitBank;
Wait(500);
PlayerHavePick; // get colors
end;
Wait(800 + random(200));
If (Random(4)=0) then ExitBank;
end;
//----------------------------------------------------------------------------//
//-- Walks To bank... --//
//----------------------------------------------------------------------------//
Procedure WalkToBank;
Var
Ladder, Tol, Dx, Dy : Integer;
Ran : Boolean;
begin
if (Not(LoggedIn)) then LoginPlayer;
If (Players[CurrentPlayer].Loc <> 'To Bank') then Exit;
Ladder := BitmapFromString(2, 2, '5A2302BCB8975A23025A2302');
PerfectNorth;
// HighestAngle;
FindRandoms;
If (Random(50) > 30) then
begin
SetRun(True);
Ran := True;
end;
While Tol < 80 do
begin
if (Not(LoggedIn)) then Exit;
If (FindBitmapToleranceIn(Ladder, dx, dy, MMX1, MMY1, MMX2, MMY2, Tol)) then
begin
FixCoords(dx, dy, 200 + Random(30), 12 + Random(5));
MouseFindFlag(dx, dy, -1, 1);
LongFlag(4000, 20 + Random(6))
FindRandoms;
if (FindBankers) then
begin
If(LongFlag(8000, 20 - Random(6))) then
begin
Writeln('Found Bank!');
If (Random(7) > 2) and (Ran) then SetRun(False);
Gametab(4);
FindRandoms;
OpenFallyBank;
BankOres;
If EquipPick then
Rocks := Rocks + 28
else
Rocks := Rocks + 27
Banks := Banks + 1;
Exit;
end;
end;
end;
Tol := Tol + 2;
end;
LogOutPlayer('Lost Going to Bank', False);
end;
//----------------------------------------------------------------------------//
//-- Walks To The Guild... --//
//----------------------------------------------------------------------------//
Procedure WalkToGuild;
Var P : TPoint;
trys, times : Integer;
done, Ran : boolean;
begin
if (Not(LoggedIn)) then LoginPlayer;
If (BankWindow) then
begin
Players[CurrentPlayer].Loc := 'In Bank';
ExitBank;
end;
If (Players[CurrentPlayer].Loc <> 'In Bank') then Exit;
If (BankColor = 0) then BankColor := GetSymbolColor(x, y, 'Bank');
If (InventoryFull) then BankOres;
If (Random(50) > 30) And (Not(BankWindow)) then
begin
SetRun(True);
Ran := True;
end;
repeat
If (Not(LoggedIn)) then LoginPlayer;
while (Not (CompassRadialWalk(P, FindFallyRoadColor, 175, 120, 70))) or
(Times < 5) do
begin
If ((P.x) > 0) then Break;
If (Not(LoggedIn)) then LoginPlayer;
FindBankers;
MakeCompass('N');
Flag;
FindRandoms;
Times := Times + 1;
end;
Mouse(p.x, p.y, 0, 0,True)
if Ran then LongFlag(6000, 20) else LongFlag(10000, 20)
p.x := MMCX;
p.y := MMCY;
If (FindColorSpiralTolerance(p.x, p.y, 0, MMX1, MMY1, MMX2, MMY2, 0)) then
begin
MouseFlag(p.x, p.y, 0, 0)
FindRandoms;
Writeln('Found Guild Entrance!');
Players[CurrentPlayer].Loc := 'Guild Entrance';
ClimbLadder('In Guild');
Flag;
SleepAndMoveMouse(500 + random(100));
while (GetColor(200, 145) = 16777215) do SleepAndMoveMouse(500);
PerfectNorth;
// HighestAngle; Takes to long
If (LadderColor < 1) then GetLadderColor;
CompassWalk('E', 50 + random(8), 5 + random(10));
SleepAndMoveMouse(500 + Random(1000));
Flag;
If Random(7) > 4 then
SetRun(True);
If (MMRockColor < 1) then GetMMRockColor;
FindRandoms;
Done := True;
end;
Trys:= trys + 1;
until (done) or (Trys > 2);
If (Trys <= 2) then
begin
If (Ran) and (Random(7) > 1) then SetRun(false);
Wait(500);
Gametab(4);
end else
begin
LogOutPlayer('Player Lost', False);
Writeln('Player Name = '+Players[CurrentPlayer].Name+ ' is lost...');
Exit;
end;
end;
Procedure LoadSRLTractor;
begin // this bitmap size is fine because its not for RS
SRLT:= BitmapFromString(95, 57, 'z78DAED9DE9B623B991A45F09FBF2' +
'13EBFB3F527FE6882A49738E7AD4926A264B7DC9CA28269720183' +
'0989B391CC87B7F6E3FB7FFCCDB99E7DE30F3EC739D7CFA593FD7' +
'E4E7F68FDCFA1D71A490420BBDBB9EBBFFB9263FB7FFCB4DEC527' +
'AECAD7BE75C702EB6786238E1B43D6EBDFBFEA0E83F2BBEA867CF' +
'8A6BCC31E68CFD8C3E7D5F238DD9FBB8338F3AF68CBF1FFB74C38' +
'D3553DF7D8FD2263CD3DA1C67163E1BF95409392C3F7CF4D3A556' +
'DBADF5F8D377F8373437DC71E22D771317F70D6782C9C973F7465' +
'EB3C73CAABCE3E7F647DC0A57B8AEB0EA7235D551565935E55B46' +
'0D79945A6EA6B35B29B71173EAA9ABC50A853480C3E35476F36D9' +
'45D67CB257C475F67EEB5355F4AEEC5A7E1BA877DB2CB2D39CEE3' +
'6B6FA9F13DDFE3D24E2DF536BECDCEB9DEE3E65AAB8EEF9A7CA3A' +
'1EE7BFF7BEC5BE79BD41EDF760F20D68F3CD25ADBAD7BD2E1A484' +
'CC0D034E0D8B9FAEFEB7DD32D7B56DBFCB0EA5950D4A560DA5D4C' +
'630DDAF8F5E3F16575AF6D555BAB797BE1AD4D493F5B03016CA4C' +
'3CAA476278E416401A50CB31AFE473E24807FBE3563C89276BD04' +
'93E04AE0E0A896BA30D58CDA187EE28BCDC68DAEDBE376E135484' +
'F74E9EA3A9C27073A034D0DE5D232DCF6594946A9A6964DA9B6FD' +
'53888F02567449BBBF362E8CFED5F8B4A0736F7FC8150DA100E18' +
'E3B1855DF7DA85685277D7753E97F19BA024F5919B71F6B1E9D07' +
'393BD67CFB9C20C7D8C08376C5822B7D679277C15738A97AE73A5' +
'949DB75F21F846CFAE949FFE21F62562DE5D696EBEC5AFC139CBB' +
'E3781E700AA1569FC2D47AD8DF4BD3D36864CBCD2AE8753369FD8' +
'27ECA5CF9E30EB9C7300EF517B2E79E49E6B26C482447079C6394' +
'435679FFFB9FD73374FCFA459A6844862108388E9665D79F5B5D6' +
'DD691D54833F5CFA3EC155234A85ED0401FA6BA12B0AFDD0F9FBA' +
'4CF890FB33E9D0317953A8D8B16C60A7923262BD96D4FB8825C76' +
'12AFA45E5147C262A4B7C73C44CBCCF9D3960ACA7C87CEBFD5D7B' +
'442BAA518CEBBB5BC19F2F373FDD69EFDA1C27E172DF1C3150F0F' +
'A5DCF2CA335DA82EC060B9A74FFFD8A8F901C2FFD0F55CEB1D080' +
'04454B404CA95B17A967ADF0DF5E4E5EF0B3E69C4AB5BE3401D8F' +
'0C23410F763CA61FCE868236010A092C0F8EFAA06F76CB281C276' +
'B156FF48CFA958BEF1ED0019493504852257C5324442D718F7D7B' +
'5C6D4DD013899E9316A6239640F9FECE40F08D71869035893FEFF' +
'8F013C05AFDE26FDA02BB9451F9F09319022D6FFEE6EC3BA73E05' +
'FE7EE2D7FF283B079D387A2BA2341C03D032756DD1EB8D1E75B0C' +
'1C13709108C51D487238A9DA3DEB01E79F879FEE5399A3576987B' +
'345C98E082BA4563B4E2A2270036463B1A09F2693E059C79F42F9' +
'AC04F90C7E387E9694532E6F16BA3BC1CDFE080A6F287EDF34A89' +
'08553FAF64DCF23D2EA0AA1B72F27BFF7BA7B159796841FD1060D' +
'3CE1E8DEEC15102AF71FEE6BFEC0C3FD8F86FD9666B54AF85828D' +
'5CB440BCCA441C059A8ED274300CE182B13A78DD2214FEA5D6C9D' +
'8BF88A17BE20958AFB1BAA98B43FF811DCE99609D44F8CABD8DC0' +
'277A8B658213046C8A09EEF119E4009F18C3E1CCA3E626EC143E5' +
'1E19F882772E0398C8DC71B2BC2661BC5E5F8960D1AA6340D283D' +
'9F4A79C8798FED281D74F66BD563D417559F420633C190A3E3D02' +
'3FDDEB2EC5DFD639E9FF8F577E9863F53DA62AC7C8ACFC418744D' +
'7A3D8216B9A571553706A5E0A16E99E560B31A28AA0809F95C8B0' +
'868DAB8849FBD0AFD55E8D57501D918B30C218D8730D76E4867C4' +
'052191F11E8856D32B1F98F96847357B302AFC1CC3CF7C9A99381' +
'2619F38942500D7DBBAD7A2563E5267EED33C681D305BADCFC315' +
'79492D57C3CFFC9498B450DC72E78E6FBA00F446584F512BCB18A' +
'E2437C9AF34A61A3F91EBEF02870873929C54BDC9CBB0A251C368' +
'F4025A7854C4F21072E222BE40E7703AC2163B0D71C8328F091B2' +
'07E669B0B03A3CF4A9AB6751F7E90C56126E5662A1D43A473A8E1' +
'AE9010074148A67E851170E7F8749F16BD168BAB0B0692BFAB2DF' +
'099D3EB74638FB4DCDC9C91AF5B652BCDD86112F7FAF8681028D2' +
'38792CD3C6CF91E9D57386455307FFA095401B91CEB255B14080F' +
'986195D80D4505C013E2C69A2F360C0C7A86F7CFDA0E5BB4DAE47' +
'242AAD855BAEBBA035B848016A89597C5EB8FC177774351E53C1C' +
'7A20AD00329F5AC70D62CB234F3BCCB1CD924C68034E592872991' +
'D30C451B8AB9D5F301E885E840A784046E7628A10717367257BC7' +
'6D3C233E37A442AA01320436F19555B38B3625E1F725F000FC7E7' +
'E0B96CEAA7C120D1F0712D5A798B56860E533DD95CBBDCD80067E' +
'E0CC35BE1B36143336A0E6FF4D1C503AE43BCC9A50C7E0266E128' +
'7F24FE32DDB3D04E960FE00E2AE133B1D83FA60A86651F97A1F0D' +
'87F8AA87FCE2CF13ECA9C8CA1DCEC2939D7D2E254962ED4086B87' +
'C8E5993CF611999B15B7E875294BF8A763DF956DEBB8A18C83927' +
'EBE2F0BD40AFFEF286794CE915F776D8299421F0808B714BEC18B' +
'4C9409F4C5DF908397F2A1BF2EAC162D27A00CA42BD7F48FF2C90' +
'D4B1771EE856FF46820E1DA2FDD857F3C9EA142DE6A1C696429E7' +
'FA7BA647FE8FE7C179067301F55D640056E30A38300F7DF59EFE7' +
'22BEF2EED9C96BE975F56E0401F2D6900DAD1F520BBD6F1DF6B01' +
'5A23B7972C6360A8033E67C73F6FF61A25C308641839FA82EB883' +
'94A0B82E86BD69A1032AE20475ACEBE0C9E9875B4824DC9452373' +
'A502BFC344D1D3B7200EFF4574C1B194E2883B3D4718E97016621' +
'AF4C3DFB0F561F4CEA5AE0B41D38277CBF790FD34D629A9666167' +
'E6AA3F4410C5918B0B6AE03348A783A659F94ACB6623A25AD2173' +
'7943D3DABD9B141FF273011C602B71915A688E41EBABA3237F521' +
'12DD15EA36ED5DF190138E6C63F425C4800B29F6C6A8F131A9450' +
'0D3D1B6E04F703E38E7345F6B478D3320504D69FD9FEA510A304A' +
'E9C194E7A1459947102AEF188883EEFCD93827C03642FFDED8A1E' +
'9E90302567168968981CAAB562F1152FD74088E38FADC2DCCB660' +
'0E5CB9E6A2703F65D08F1D86D8055F126B8A41793D4D151486BE7' +
'3B00982A879098F9EE098975526E6D06F3C43EF60D1BD4B4ACF21' +
'D1538AC48BA8E7235A836033E1BD0C3EE1241EAFE012400363905' +
'C74C4CC8C29E718E5AA3B462C60E2C552A98895A04545D8EC180D' +
'4E33123597051E62CCD231C8B6597C8269B346C2CC216A064D936' +
'FE00116DC11FAA59D0E4E5C31EAB781F6808F8869C13E0A550315' +
'57CDBBCFA3382637AFC8642E0F7F41488CD063C4CB710F161A87F' +
'2F2FABCF2571661E39F0A39385564C5816FE4B2D3885CA438250A' +
'C3241A21941DC61C4F4C18E81D6D0C69283669D661001AC6FC087' +
'334DCEDE44A64AE524A4AC18099097E9C6B74A8031797E1B94109' +
'ACD67A21CA101BE84900B6E89303EF144E10C0E1CDE20FB1CAA2D' +
'70BEF591995D377D633956B1E688098CCF16AA45960B00388460C' +
'E3B359268DC83B0A309D916FE835A6A39C00CF6EF82E832B7E0C4' +
'75049B41D900C23016A68ADA42676C5A4E51A7004783DB0344A25' +
'CCF0105307F5C643D8EB0C25CD6A281B601E9E381489CB184BA21' +
'29E03362B808AE1C610C01872E108CD4D396B9F43616821F01849' +
'7D893CFF3C59230442C570CFBD67C6F52AE0A318F240F89E5CA06' +
'7200572101D046810C535BE1EAF43DFB921FB23B4DCB244E4A5CE' +
'408C934D07005CDB93B8D44D09630F068AC53BBC6E56CA074716B' +
'94C93C803F6F80C1DDF0819BAA038642094899B409488D94B4780' +
'838746508537306058264D60C68618279C66C63058198E6F3CC04' +
'1B66F06A24A4EBE4965432EB5E0BA93DE2A364B6E8384155DDBC3' +
'73E64A7C82A1DA88D58EB9D686682236621C69209F516C0C339F0' +
'A0D32864290FAC258C0BB8B6B0593600A6432B6FAFFA8BEC31160' +
'B3D2D534F6604080340DE603D3495635B11A26E42863FD27F36B9' +
'A1F3E035F5211BE869CAEEEE3374D7A01B41049BA9F0767316686' +
'9921214637FE29073D4E8C5F9E41374CC40DC6FC1040501218659' +
'C79D9A3AE5C37430D41CA636FBCD4542FD15B4E04B0C9480729C9' +
'0CB077E887E936AF229651040936A1518CCAAEF313492FB6DE4F7' +
'14E1B0758749E71C0A147D4F81844A865A9C60B1250E3037F0F36' +
'90FC3C8E022EDC45CC89D539D0B5BD4C7B5312B283138E1BE49C3' +
'E2221B7C1829531C420D89D869403090B4525406D84D102FF5CBF' +
'78C30881311542E7DB1DD7C4D1FE3C54B204BC9ACB0765D5AA7C5' +
'8390AD9E1684E102ED2600C2F0F75886EE38E3F1172C6D1BC12FD' +
'4ABFD08B4AB0142EFDD81ACBD369EA68B678F438F194E1077B920' +
'92D4431D426B8C2BC4CC50E5001279C597935CF21470F2341F65C' +
'EED4195605453817D7F70CA5A6A1F07C7B1ED05EE8B17AA01082A' +
'BB0C1881BB9C265974A2F458A4B8F97079F91EF42854F5882C733' +
'A1B940B8DAE9125EAC55F0000344CD7D5D102E46C28D0D6992465' +
'0BAC1C70D726044BFC1648515D1AE2A6A85CDB2D29D1C69213C86' +
'ED8B168735C9D5895635F42022EAA8357E071701448D58785CB0F' +
'DA52DA818768AD2F3432A3B35D07521F0B2F68E04622ED3B1CCC5' +
'D851F768F541A6ADF12ABF3E6694F5C88C0284190A87019D6E919' +
'19803BB435FA316A588E3E23143E4430EA280C7E2A2033BE1D7ED' +
'38BFA3A1883EBD20A7D1CBD534D28425189F449CCDE8C39AC1699' +
'3B8437C472478586810018813D05EC7B0C02568E0C14847ED1A27' +
'C0416242711A6778E72C133AFB50BA19BC3A7383059028A182969' +
'4E8B8E50BEF19038417A2ED25FC257103C219CE21E238EC54CF30' +
'273841AF8299098F8DE44123BAE88B8CC2D26DC862C05C7B033FF' +
'809221ACC8A2E4292477E205ADFA9BA0D6281F3A22A8C36DEF3A6' +
'ED756245E10C05037B3CA6577608AE55A2EAC529E52FCFF933708' +
'E669713A600C75823DEB623D82072541B23EBD3A2D8D4380A235B' +
'64CBB5C5EF829C433F8EACF4EFE2E88C6D885F36EA093E8D0F61C' +
'6DFF367A26C783580ABC4A7B231037161546C2E71C7CE13A44023' +
'B18320B5DDA641C107A9751863CBEBD1532B492E081E0B25E6312' +
'9D03D8F23989CC66C8AB3CBA6B9B0DB1D6736B6040CE2D3D3BBB4' +
'A408391E3E4B69235C233DAB2C8492D07823CE80A68209A78609B' +
'FBD45624FDFA008BCE5CA3B6F164711DDBA58B7E30BAE12987807' +
'1C262DD9F07607CF76328E788AEC51D452FEC10573674775418C8' +
'D94327A0B198DD4CE8820A9A3F68BE7035F3C557ECCA6AAABEA64' +
'1C2A23D16B52AAC5A94AF4C4D8B8DE6967871EC0A34A6030A2336' +
'C20A3023B0FF9CA4B7FA9F719508C6BC88BEB3CB97A7D481D75D3' +
'4B0DD43D9C3853268DB1DC505086252E312744CD3AC25F7B09127' +
'9797CCD48448BB95519084755BE4E853B9D08724C5975A25255B1' +
'C57215ACCF2973D502167A551FA5C91BFA038195E4D7680FCA5CA' +
'9C71DDDF71B6D4EACA094D03F68973EE9E9DE7C941700209CCDD1' +
'F1C4D3CC8F5A4423B980028B218AF598EF996D27B49CF2EF017EE' +
'3B713670F5C3A19117A5BC335D228E79EA38FBAD6963F248AE13D' +
'D263209B1739F517679BACA9A211FBF1DE07B75E2E8B58A1196B4' +
'6BCBB1A10A633616CE238A3E35383B97ABF4151081E59DD10801D' +
'0844942436157F7140CE611407699B2C4FA42BE98DA9E4F4BDA1A' +
'8D405F38B3D1CDECDC3219A6780DFDE15769AC3127278C622CEFE' +
'E2942254568452F91598A930C311F90F7414BC9455270A99C5D7F' +
'E489465A8C36018B2C3D9D1B6F49D90C9F911C11997E4B8182AD0' +
'2188457D5940C07A7B1512035D3B4839E7B451BCB7C26BAB13560' +
'B3A2DE2F12F8DECDB9B071C4A61F24E57550E873A1EBDE0211888' +
'0AB68D5F94CA4C5DB3A8D0FBD1647E9EDC7D5C910BCD0508BF76B' +
'0B28A166544E9F2DFB3A07A10C14D40B49E1023469C1002DBA82A' +
'B8F177AC24515975E296E52080E173578045B0592E27F90B1C6B4' +
'13156A2BCB22B2775628D62D6E0D8C54E3C96C95799C544461273' +
'D0A58D4B7E94FD4DCA4B8B065D69FEBC3328E1CC931765DED04E0' +
'E04AE85A8206ADCBC8814CA2F432DE8052FB3C639566C65571AA9' +
'1970CB650FFA0F8AC896EB1314FD72C76A9EE9B00CE479DC82A63' +
'A3CAF55048B8310B3684B791B7EB54FB1491812939057B12B7731' +
'D5084DE18A91708212F44D6286F7C3B1B41F424FB808AF6CD572A' +
'A8F25AAAD89206E368B81AE2E1D64E10F025790364A2D375312E5' +
'D7CB0A6E95A9C8F66640531CDA86C7CADD62171DC3C70F18F5280' +
'FCC9344E62F03C65B82B27C37680EF230B292326695E19CF0CD15' +
'D9601A89D196AF67E0E7A5A96BE8899106DE1CB1461E474900B03' +
'83C581AA85F2E1AE3F70C0794706AC0447A2360B131ADD5991F57' +
'8FA04515FB34D0E78B56051EA0533423DA945002BE7E206C5C955' +
'84A9330B755BD1867EEA825EC53577D5A233062A3BC65E7021218' +
'A34CCF2677E027A59C33B872BCDE9DAAEF71498C11CF8808E504E' +
'214016E4FDE42B8274A2B538D36564E03A9D32E3CE3887AC43EA2' +
'95AF28193EAB8C3AF1D7EA69ABE668076A7B18FDA85E059D5C528' +
'841B549E6D0976651CFFDD5940FAC48EB3D8051294E54824F3505' +
'156D71C5E25A37A7EA027AE2CD25305663E072477F931274B805A' +
'E46113F44DC4F5951D8E032237C1C88C2CD249596A6004690A0F8' +
'8BACF2F69D9B9BD21A1E71A1B044749358DAFDC2078CE188B9432' +
'76BE16755D206640E748E9632948FAFA03F95735896C9A740EFC8' +
'F4C32E5AE997E810ADF06A4735A7AA4A638C13E1E61AAA882D36E' +
'78EEE00278C16B01164979045AAF1D03CC9D1C21D2F29A2BA682E' +
'8566B688D75559714391E6BC36CE6E83935D71E55143C6A6D2F1E' +
'3D58E17CEA4694A01F119D81477459C746AC32DFB55B869C51968' +
'26DEA93C811E68DF95D7DCBC66D7F0A65611F46B640835B8549B9' +
'7873385B3C38D4E0577E047768620A3B923B81A5DA804AC66768C' +
'7F16BFE8E210F0D25E2AA804E838C3B2286858C8D466CF0DAD82F' +
'7AD195984BE8D1D4682EECB66545EFA77839E08411D219048C705' +
'2542AC2C471ED136E57D3B5FCF75A457D13C199D153513BB4C357' +
'9656FD0D8BE2B3379602497A57102ED84EA213234486D8B068FA5' +
'6A51E10CE484890E1FAAF319F5300CAC73005F098E4B025A950CE' +
'40FB1CAFE8029EE8EB336E5A2093DAA3B555610DF2D6F68381172' +
'067601E2D49C06E3443FE4C05B45A38FE00F8A7B2F44D0D21853A' +
'711D08033AA29FA58B97A0EBE719A16F483510BE0194EDB11A5E5' +
'BA5E75EEAF3127AE7BEF18551899EBA5748532FE847B4D254BE1D' +
'0FEEE9C8DCA04135D1084CBE2EF8C370F8222E3934156BCE62E3B' +
'AA7212843CAC82E90451902E7810DB28D1B6A5576D54E6280E411' +
'5D5DC541186134ED13449079FC2AD526C46D9E077D39F109266A3' +
'8927C7158B8F5C681AAE2C6292ED013A0BBEDA9C8B88A5996AB45' +
'9971892B99365C77C85269E012084E59551358A0BF4939E9A32FE' +
'DCF96E3013ADD223809BE8C5C89A6B3BA840DA80EB848B35371A9' +
'4385EE027D7137795419CF4BE26CFAA9C1A0C83D1E4FD8396A3BC' +
'9DAAB793A9192D2561642565AB52B89AF6648C082B93EF590CE48' +
'568D398918AD03CBCE6F436F2F0EFCF39AAF61A8A4366FCD13793' +
'324303AF681780906CA4E21263A6195A7A79E169AE12D76D3855C' +
'539FA74F29A662A09331E9671AAA1B9BAF208C765593BCD3B6F1B' +
'410B2E8A0A6E3C8F1723D2ADD0F8713BA842F5C82F33FA909BF47' +
'205930D6D712493B396E829E5C60006C11B9C4E61FBADFD54DD29' +
'01A6D22F0E4A800B880B52E7BBA2703442A37A7ED26680C777114' +
'BB3A7F53B8A5590B3C1B0C0196902EF54E28AD1A05FCD6F1246F4' +
'EB12314A82CE7314BA12FD58CC7522B0183890080C0998B5BE352' +
'A36F116DAA675F11BEE504A2C8741D4539B132E557D2F97087564' +
'1A8C6E4F59CB4C9D34A561D23B5527D1587C7A33CDA5797879177' +
'E8266ECF133F96F6BC66C8DC0B0B56FAAA1C574AA6EF36C3BFE31' +
'C8517D535D7CE17AE34D3C8CB248AA35702FEE83F6F87C9693761' +
'80236BC8353E79969D7DEC99B706988DE8E1E091AAF0905283104' +
'D3E2CB10316049B33918AF2034D09B304CD7A24DBE09BDC325D77' +
'856741756A55AF1750C219CB0CA05A11F94569CA643C0609090CF' +
'8C595BF56B6B93053EB9A7565BD5FC3C94647854D008AAD250556' +
'898D6239A1F12BF8EA0DF59B52E90D132952E945FE77D9E5FAA4A' +
'8E10846639CCCEDF379F789C9C741DB42095D111B58A396856D42' +
'7B1CD8D5241600B6ED358EC713BDA82EE4A0DE6D0627B38D3A639' +
'4C1677ABDDC0BAA2EE3C511E2580BE9BF0ACE2A614A790434BFDF' +
'15A5F166C9786AB424C95143464780B7C3B7E6CB419E5D7105F5A' +
'23B6FEA03A9FA9FB59BADB55514D1B06E655BB1972166D4EC6A28' +
'C42FD3A9AADF7A270796E58145EAFAFE1F4EADDAB29A5AF459E8E' +
'D18BD6E02C8C37390A8D47AF6B494FA59456B4753141E34C62503' +
'C5D4DDBD004703401CB2EAAA4E1FAA20052920E53B4049BEE1A92' +
'B7D6D6C1FCCE2ABED05744C4AB95C0D56E49EB185CB22954F41B5' +
'8158FF137F41A382182C06793366C8BD0CA814A9FD25A5AC9333C' +
'5A62C32F8A2DE39E4A9F2E39326807EFA4B89888ECAABC4D7394A' +
'96F4F75A5AE28966CBD7C8295EA4C36E3090B67BA3C689574B4CA' +
'B4944C7543D35D69A9D3F8723003623477675AB958AA84BE405C4' +
'0C92A0843F5A88E50152659C5DC65C7C550C4C028634063BBCA44' +
'B43EE3943F0239B602496C2ECB245C2FDB40209A32547555B61CE' +
'E559C509ED0AB50B39A62C48A3A61C80684F4B32896E69FA5C034' +
'AD7E498A854F70DD8BE51539A5FC2F8E89CBCE73AAA5CBCF47287' +
'2F03D8BBB96C4D8D6028C6FADD7450969593A0A080E8BC20C6289' +
'BE4B41ABB4E031CD08A9741E76882FE682104D4A894B839D79BFF' +
'51459846375F6502B5AC35620B7A0FC43B648949DB662D9EE2F0A' +
'87BB7BA13D5A5B9DF1B066466649E85D4E048BC23272D4282E956' +
'65CD1816514554119E3B2DCB5749D6C5D51F96BB5A08CAEC667A0' +
'09B3BF6A38A44A3852F5210AAC82FB05E177CB0628C1D3953BAAC' +
'A0320DC94AF6E0343F3F2EA350F541F6EA35E7C5C905C2FAA4B2C' +
'4BCAA4FF1BF163D1CA6AAEA3556B6BB417638F601C902D761402C' +
'3EB53E1441145D19E614D0F5F62B8DE4FE8203AA031B6B7BB267D' +
'BDE67F9509D53A3E4EEC55AF476774534D7230F011E778238B9E3' +
'5ADE5B518986F94AAB8AF9FF2B115DF0B76D1C463D77CA1F2C270' +
'F75681289F7A11E470BF78B49C414345458BC0544F48347456458' +
'62D038EF2F58D014917B665049789ABC534AA6912E35267BF50C7' +
'E31E238272144EE178D5E640C8A44F3B9194A080F9D49CD4B5591' +
'20DBB2A2350D075B5F7487B760707AD0C5859D51AD08CCA9B7164' +
'1D3FF9DE03A28853E5822ED52AE4924082ADBEE753BB558EE0AFB' +
'7A49A3AB47D51707215B482C3D8911B5695A414E88AB2F9379E0D' +
'01CD0572C6F937EC24B3BA8A8A65BF35B1A43B2351D262E8CEB5A' +
'A869160D7B0DBDF9AAC3977B110D284ABDC8C17D03F861DD49BD6' +
'3F10C11B5C7DEB0660DDD6F02DFE687D263FA1C2DCCAE6C221C12' +
'0969FDB15EA1853235B95284C246C46FB76585ABAC49FA8B5C2D2' +
'3A3E0849B0A4A916CD911C54A4E298E614F07418291847FB5DBCA' +
'891ABA92CE1C7D4BEDCBDD7C4B89C7E16DD85092850530E9FC448' +
'1F22004280CD44E0F2895F22E0A47D3BC009FD5293AACC9453727' +
'D642E45C753820D4141E58DAADF50D550D2140496151350EF0061' +
'9A1F8940C02A7F7A5F3C2E4AF570C21275DA1C87B66E819D06E77' +
'4DFABB50F1CDCEAF0AA1DFBF7BCEF8C984A6CC2AB6292237A6728' +
'87E6DB8ECD9083E459B7AB42B8FD3B4A36CC4F29318EAAC3C368B' +
'D9401C2123CD7A50F1DBAF7DFEFF5BB5BE12CA8914F560DAE3000' +
'79A210E495E416B03CE010EEB4556EC5EAD68FB965C9C0A8DD22B' +
'256C7446FF95A9585DB7F563BCA57A33ABC16E6CE4F196A0154C6' +
'C3662DC53427ADD895ED0C571B9B8457430EE68883FA45281A900' +
'B826A6FDA8FA52BAB5C941028652B49455FD32A48AE649B50CB07' +
'6AD8597BFE5C80DBB518AB358E5A2A7FBEFA5591E24E6F1E44553' +
'AAA725465C5050F433332AA25F88E2291DF8EEA652E34C724C845' +
'030D3899E047F32C57731323DA8C9B2A405E0D890C88EA88540F0' +
'0986933D1271EAB1010F9AA6A25A91EA06BF19A57876A2D18AD52' +
'C9F4B2BC474F0DB5D387EA9FE7BFC6393494A6AEAC4A46114F3F0' +
'A3E74E3E27E8C5682CD3E3422BCB3B8157CFAFEFF9E3FBA1B45A9' +
'AFD191DACEC612A7BACB6DD4B72209A5A10C16612715AB9344025' +
'9BEC3EB6E7ED70515C46BF57851711C6F1568914BA68197E9EFF1' +
'66464CC367FB2E1FC5408A1ADE6DCBDD592DB8DC10AD9FF8B1123' +
'4B33634A3AA8A659B9114DB3B5598ABA68B5EC3D1D0EF932312C0' +
'1EDFA4FA0D6566541AA2BECE2FB114EEDFA0A229342871070E6F4' +
'7535795DD6F55E96851CFC0AE8301D473F7A3155B795F0A241FCB' +
'64C8E1BD90635D036BCE3AC65E5685C017CA196D553E3130EE584' +
'B67D1DA93693317AA9F2C553B409CCAA058AABF9C3BA9986C6FD5' +
'8B40741860CEEC717036D3D354CAD0676E4FE7FC6B3ECB163CDAF' +
'CB832032A75D34DFB0C647E86D5E18B909AF609B84D7B2975E37C' +
'5B03CCADBFE7953203713AC57A8FAB665D344FA7BB55626B3F23C' +
'D0E13C5B442499952B99B63C2EA3E6C80A761712131888AAADC0D' +
'399A418A7EBBDFA75F9521E1AE9D2E34E18551F1D398502A45C9F' +
'EDEE839F338F7656B358F8431497D5BD4C02FBF7ED7C8052177E0' +
'C0EB1EDAD9E91DCFD02CFF655C437D43CC9F87B8AB8EA92C1F884' +
'AEA992804162D1E1AAA78B40A1CE5B14B02150B913E25B82754D0' +
'CE5C6BF7A225A4BD2E49F481318D7DD933BC7181350450D14E794' +
'B7327C82E503597AAB1FBAA5AFB8C4533B3A1395D2D075C5A265D' +
'E69561B748B417325A76C5CECFD940189FEDE169F57E06C20EE4B' +
'413FF20873E0C516F1F236FFBCF78DB0542BB881CDB5DC4D94A49' +
'7B8FAD7AEB6FEDBFD6436AABA4A57D06CE74E3225BB4799BCA7B0' +
'49A6C58D24E6E6F6708AD04552625DA3C51F5CA63545B175C7C7A' +
'B95F3CCE520E09CE41FF5A5D82044642C106CB6947B79467D3A47' +
'82DAAC06B55997E50A539D611B4E2EA100526B039600018D1EF19' +
'059207F1A5212DE1FF323D4848E346789EE73BAF826FD5ADF1CEA' +
'9790DABFD108A7252331C42841E2B74D2AA802A2D55690F4D13A8' +
'C49D9E85441878083655606F46A2F619B2D55E5755683AC21B96E' +
'69C2AA8CFCB7755F00A337DE9D9B3042BBF16DFE1D0A35D2B5687' +
'F69B6AF011042371B08E0A50C1D5E5FCAAA74C93EBCE67793BAF3' +
'232E082DB55214F3CB45EF456F9FCFF7BE6EBFCD5D119CA6CCDAD' +
'6189B0AAB5B9B389666D76E3400FFECD05C360DA1F8E0E88B66E4' +
'99B1E29131B5511218F8406451147CB831DCCBE6682B4FE82D103' +
'DBE142CD49EF60FB235905057181783789A24B752F6F86D1FC4BD' +
'3D6A64A126B26BD31163946AB7287C353E058C006633A45AB6354' +
'95BE3E45EC80A9B6CA24DF6C3E7C22B4A814B17E68694B15D8C83' +
'7AD2002E0A06A5AADF3D45CDA9E0D21F88E7E2CD94908E158EC20' +
'3669A1344D8C32D233D20EFA1CFC785D2FB8480B31C2B28270B01' +
'47806FE5871A92A68F26A406D2CD015B01FC58E481C7042549EF2' +
'E98BE3C4D59ABCA355C7F637B3FD198EF60558BFE02E9A6F87C6B' +
'7D3483F1BB2B25D536C1F8C66BBA84DF9E2261DBD314AAFD218E5' +
'A104922A9D34A70AD1A9E2C359B58CF69553255F6D5AAD403FE55' +
'3B44F93F640D8F23E3820CDD52A4717E4982039BE0E25ACAD9AC2' +
'2856F5EA6D920BFF0D42AAD5517B4D72D85133A75ACD110D5D182' +
'B5DEF7C5F75A26205A1318396ADA931D5A529C947BFA8621B346A' +
'CE6C8AE8A6964A7F47B0A3B5165A0FD3E120F8EE314C821FD0BB3' +
'3A0AE4490D23C8A9D60D832338EF74430D08D8B6C165E4E1BEC61' +
'0DC067E37BB76A2EA7B44D25B0F12C9CB6849F2E4E53FD651B572' +
'304FC2CED05D1B5D23E22A9C2D66E244A14FAFF47335CFFDCAD69' +
'0995766BBC5E0B8896F67B84528C7394752178800FCDA83EFC6C9' +
'807BD1C541B64F993B8A4969FB32ECD7CB1ACC951A5074A66AAEC' +
'8738B5B5700579A2051803E4A42CE3A1BC4752C76B5674465BA32' +
'165620861607B49110DE05745AFE5C7F9486B9466AB0EB9FA4B52' +
'B92EAD1FD3C20662858DEB064EC424AAE53A0866AD74567511310' +
'E540C90031AB4AD2F0C806D13C3683279A8F6FD4E5AC32BDAFD0C' +
'1755347BBECAB457BDF66CA84BFBC3681E171469E1D92EDACFAA1' +
'4AD9657C524B6895F456443458359CE3C0D934BA50ABC2AF62BD3' +
'569E4CAD24199C6768D531EFDC93CF12EF60478DEB5F7569058CB' +
'334CDA9DD04B9AAFA9552D6459B04209634FF1083DDDC9BD37B55' +
'ACC1473C55B599D6A1394E4B6FBF0C9ED3FE4E44235C8AD6ADE00' +
'9E1F881E3D0723721AF140D268EB67A2B3AF561A217969579AD56' +
'3030AB6B3328C0E8C5F755BBB324CDA70B6A42886AC596220831C' +
'8E251305669F232284FF183F2FB75787A39AB7F51AC5EEE9D00A4' +
'5A2FADE61217258B3EC5342ACDEDA1284205D4918A44A6E913AD8' +
'98E5A1402575CF44F1002391BB168E6AEBDA38B1CDA54EDBECE4C' +
'0445F810AA41916A8EC45C576D1B796875CA3BEA195508A8E22D4' +
'EAD697CEF89BCAA7A13308B38B78586E7EEF6CB41C7D4350CE991' +
'080B1128FFA50CEB63978AA39F987DCD6E6983ED6BF3559AC1521' +
'EF7581630199C64959C6D49A2FA04BC12AA7864AD13571AD8AB16' +
'A820B1895CDA9447B93B1452A50F62E81B3E41E3AE51EED4EE638' +
'C4D6DB6A26D0D19A7A0884BBC8944DA394E6B21EE9A5FA488D647' +
'EEC380F4069180E7B5E18EF60D7BBDACDE949BD6026271C58B294' +
'E693C2150D1E4E107244845A159E4B39487E51BA595C521936706' +
'28B4C7F4F586DFA2A2E17BFF779EA77897D06BEF9437F71631D54' +
'EB5A71992B3B5A4E15694B643774947310A0EAFAAF068C378FBE1' +
'9FEF05B5BB30C87FD16A7939AEA93DD5D11CDA772F4BCF2425CCA' +
'19C6AF55353BB9182126FB3A4DACF42997FA5958A65B38FD521C8' +
'7E5AA57090E787B6E01B144FC1E8A40596766A7957178E56F5266' +
'992D5DC3AA798231E8AF8BC45FBEB64EB41A9852D6B6DABC2BBDC' +
'4D1F5F5F9FA9EA434FBFE8BF40A4CD52E9F85D0CB3ED23E41F636' +
'8CF8F8A3762443BEBAFF574EFE39FA9BD54A2799FFC3020E56C28' +
'D20AC3C97058E6A4D2C745C5DC96319276665105DBB41A6BC3D28' +
'B56FAD43494063BDBFE302CF6FBAD25715865BFCA5FA49DDA367D' +
'1E3FADCEE7A4BBA49F895FFCFE5FB84E5E7BFA152D62C2B577ED0' +
'1AAFA02D54B5A0D1771C935D0E16D9628DA8C51B2C70F39BFC5B3' +
'F0FB9CE3C0C08DE8D037AA578D31A9363815D573AAE20E2D0D936' +
'B4D311E7910DF0BE02032EDD6B53B90C6357EB7E777FDBF9EB5F1' +
'6E3C530D335B3B39D93C8D6A96B507AF2607826689943441B9697' +
'50CAC84964EB06AF81D3F5A5568CC636CB3BEDE178AFC17D1FEFA' +
'79A1227D8F5F4B1E8A7E4332CF5B44DB0F27C65ACE5EED8F793E1' +
'6B2F3D8F7F6C7301F5A0C3FE08ACBFC31242DECDE784C9B96E5A1' +
'ED4BDC3CBFA05AD62E7D9623DA17CB456F6A5F5A95350D6D9C5ED' +
'BD2D26AEDFD0F2371F1347784FBF656A9A55A559FB665BA6752C5' +
'0B9148C5EE3096AA1DE4DF71F2AA5B0E21690309F5AF4284C3A82' +
'B237755AEBE3526E7D2EA502B7DB5511F7E732B5CFF654755B96B' +
'1718C6A3F58E22136C3EC61BA1FC0D154ACB9599319D03FF683E6' +
'96B5B0FFA574AE99D59FD18BF4CCBEBD903B31D63186F716719AB' +
'E40F6976FC3EF558E5AFDE63F8F1EFCCA658E2E7F79FAF7FD833B' +
'EFAE297618C4F6DEDDD6091CB8E2F165BD6C8338234BD37715ED3' +
'FEFD8E76FF2CB79769342DAD7D1E6DBFE271DDD26EEEAA3AABDBA' +
'F6A3B54E22717578D8E6F0A2A9A06C4963622942F2BEE14B54A09' +
'E5D473D4D6235A8FD0EBC6D4CDB3E3B16DE84E518689D8249D900' +
'D3F8ED1AA9E95DE902AEA4B993E94279869DA41F5C38CF0138D7F' +
'BCE99C6C3AF63CF5627DD76C5C6773EBCEB8C5FDD5F91F36EEC72' +
'A2FE2D8AB8F79DEABFF38171956376A5DAECD14F58BB020C7F12B' +
'9E227ABF4B58D215DC9617120E75DC4F65BDAC91ED6DAECD5F507' +
'CF73FE3366C4F51ED2DFA7618F576D4DEEE88609325AD6A3B536F' +
'B3AA2A5A26885825B346DC0439F968DFED64E31D3D0C1EF458DB7' +
'4C44F79FA17417EBFCECE9486AEBF65E1E007A99C373685AEFB57' +
'C7FD698F172F6CFF9CD73B9F5732756D7A297EFEA84CEDA961EAF' +
'47B86D75B7F4AF8D3DE76FCB4F16F18509EF07DE381A9A3B5AA59' +
'2659FDBEC7D3BA8376422ADF63BDB37C99C3A7C69551F4BFB7DFA' +
'B929FB1C09FD534C50272EEFF86DBD2F2F2C2B8C3EF809E5EA3D5' +
'30174D3573E9B8CA5C8A7C188BC63FCAD05E4345D088FD1B27221' +
'DFB30F062D643CEBBC2F0DEC80F3F9F66563F7EEF41D5680ED57A' +
'FF2907F4E7D00C076E5A98D116E072C7F765868DC1F83230991F8' +
'37DC7F7CC63B66D65607969EBDCA612A40F1B51BBF1C0BEDABF49' +
'EFEF861358784973E3D355A662C7F70C5748CECADE696A8DB110B' +
'F360C438BBBFF3B6FF1DB599DE3DB8716E3AA444EF178FAE2B496' +
'53CC4F44A8CAA3123190E0E629E65F66077ED7B13A2E53C8E3631' +
'8EB6B65426C2ED232BF53BA54FA277CBDA0B8F6F27EEB3D834FD1' +
'6CE5DD387CED8EAA45251B44BCC77A9E3ED3BFAB2245EA355F459' +
'0AED68F5ABA03FBF05B86BCD0424F7D1890823DDF7B1459E404D5' +
'9ABBF4CFF6C4A54D187E6EFF64D6518AC9FE3D9A6FD7CA0683688' +
'F8C29E72CFE7F7918A9DF3DD2371F644CFE1DC5E489BE53DD43DD' +
'D228756936312E45BBB38B74ADFE251DEDADBAB41F72E1513F78F' +
'EE74A349724D1A0629235B710A07F1F257EC7B5C51D07990F6BEC' +
'2C0567851976FC9B57DFF13D030685273B6E6D3E0D02B5E150411' +
'5BA9F7EFFB9FDDC7E6E3FB79FDBCFEDDDFE0BEF241684');
end;
Procedure SetUp;
begin
Rs_DeleteUID; // dont want rs to find stuff out
LoadSRLTractor;
1h1tForm;
If (Not(FindRs)) then TerminateScript;
ActivateClient;
SetupSRL;
SetupSRLMining;
MouseSpeed := 8;
BenMouse := True;
MarkTime(AntiMark);
if (Not(LoggedIn)) then
begin
LoginPlayer;
PleaseWait;
Wait(1000);
end;
GetSelf.Caption := 'www.youtube.com';
repeat
BankColor := 0;
CombatLvl := 0;
MiningLvl := 0;
BankColor := (GetSymbolColor(x,y, 'Bank'))
If (BankColor > 1) then
Players[CurrentPlayer].Loc := 'In Bank'
else begin
LogOutPlayer('Cant Find Bank Symbol', False);
NextPlayerOrder(False);
Wait(1000);
end;
MiningLvl := GetSkillLevel('Mining');
If (MiningLvl < 60) then
begin
LogOutPlayer('Players Mining Lvl Needs to be at least lvl 60 mining', False);
NextPlayerOrder(False);
Wait(1000);
end;
CombatLvl := GetCombatLevel;
If (CombatLvl < 20) then
begin
Writeln('Please Dont Abuse Autoing, Please..');
Writeln('Make Your Acount Level 20 or higher..');
LogOutPlayer('Abuse of Autoing', False);
NextPlayerOrder(False);
Wait(1000);
end;
If (CurrentPlayer >= GetArrayLength(Players)) then
begin
Writeln('Played All Players');
TerminateScript;
end;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
until (Players[CurrentPlayer].Loc = 'In Bank');
PerfectNorth;
HighestAngle;
CheckBrightNess;
If PlayerHavePick then
Begin
Writeln('Found Pick');
NoPick:= False
end else
begin
If FindBestPick then
begin
ExitBank;
PlayerHavePick
end
else
LogOutPlayer('Cannot find pick', False)
end;
end;
Var
i : Integer;
begin
SetUp;
For i := 1 to LoadsToDo do
begin
WalkToGuild;
MineGuild;
WalkToBank;
Report;
If (ReSpondMore) then
Chatters := ''; // Free The Chatters
If (Not(LoggedIn)) then
begin
If (CurrentPlayer >= GetArrayLength(Players)-1) then
begin
Writeln('Played All Players');
TerminateScript;
end;
NextPlayerOrder(False);
LoginPlayer;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
i := 1; // Repeat mining loop again
Wait(1000);
PerfectNorth;
HighestAngle;
MiningLvl := GetSkillLevel('Mining');
CombatLvl := GetCombatLevel;
If PlayerHavePick then
NoPick:= False
else
If Not FindBestPick then LogOutPlayer('Cannot find pick', False)
else
PlayerHavePick;
CheckBrightNess;
end;
end;
GetSelf.WindowState := wsNormal;
end.
——————————————————
<!– END TEMPLATE: formanswers –>