SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
nicbaz - SRL Member Application Form
nicbaz

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Java,HTML,PHP

Other Communitys


How Long have You Played Runescape
4 Years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Hello My name is nicbaz. I have been scripting for a a few years i am very good at PD although it is very out of date.

I have been working on a scripts i am about 40% thougt it it will be a rune mystries quest. I wanted to that one beacuse i thought it would be much esyer with the new home telly feature. thanks.

THis scrript i will be showing you if a flax picker it is a bit old but works well with the up todate srl.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

Instructions
Start In Fally East
Fill out form.
recommened you have more picks visible at the top of the bank.

Features
Full autoColor
Multiplayer
Anti-ban
Antirandoms

Problems
Problems with rock finding in Divi. Advise you stay with 2.03 for the moment.

Code:

{=========================================================================]
[ Monster Guild Miner ]
[ ]
[ NAME : Monster Guild Miner ]
[ WRITER : ~alex~ ]
[ CATEGORY : Miner ]
[ DESCRIPTION : Mines from fally mining guild and banks coal ]
[ AUTOCOLOR : Yes ]
[ NOTES : Thanks to adamb_135 and spermis for testing :D ] ]
[ CONTACT : [email]gamesjunky1991@gmail.com[/email] ]
[ ]
[ ]
[=========================================================================]
[ ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Press run ]
[ 4. Fill out form ]
[ 5. Start in fally east bank ]
[=========================================================================}
program New;
{.include srl/srl.scar}
{.include SRL/SRL/Skill/Mining.scar}

var
coalrock1,coalrock2,coalrock3,bankbooth1,bankbooth2,bankbooth3,mmorangerock,mmGuildLadder,invCoal,pickaxehandle:integer;
runepickhead,addypickhead,mithpickhead,steelpickhead,ironpickhead,bronzepickhead:integer;
rockfound,clickedbank,lostpick:boolean;
rockColor,attempt,mininglvl:integer;

//******************** Set These Constants if Needed *******************//

const StartPlayer = 0; // Determines who will play first
useResponder = true; //Use the autoresponder? Can cause lag.

//************************************************************************//
const VersionNumber = '1.3'; // Compliant with Rev 568+
//************************************************************************//

procedure PlayerStats;

var Active: string;
var i: Integer;
begin
writeln('**********************************************');
writeln('Name : '+ Players[CurrentPlayer].Name);
writeln('Number : '+ inttostr(CurrentPlayer));
writeln('Mining Level : '+ inttostr(getskilllevel('Mining')))
writeln('Mined : ' + inttostr(players[currentplayer].integer2) + ' coal ores')
writeln('Select Skill : '+ Players[CurrentPlayer].Skill);
writeln('Script has been running for: ' + (timerunning))
writeln('Banked : '+ inttostr(Players[CurrentPlayer].Banked) + ' times.');
if Players[CurrentPlayer].Active=True then Active:='True' else Active:='False';
writeln('Active : '+ Active);
writeln('**********************************************');

for i := 0 to HowManyPlayers-1 do
begin
if Players.Active=True then Active:='True' else Active:='False';
writeln( (inttostr(i))+' : '+Players.name+ ' = '+Active+'. - Lvl : '+inttostr(Players.Level[15])+
'. - B :'+inttostr(Players.Banked)+' Times.'+
' - : '+IntToStr(Players.Worked)+' mins.'+' - Loc: '+Players.loc);
end
writeln('**********************************************');
end;

//************************************************************************//

procedure ProgressReport;
begin
begin
WriteLn(' ');
WriteLn('<============== -'+VersionNumber+'- Progress Report ===============>');
SRLRandomsReport;
Writeln(' ');
end;
PlayerStats;
end;

//************************************************************************//
//—————————————————————–//
//– Scar Standard Resource Library –//
//– » Player Array Forums –//
//—————————————————————–//
// *
// * procedure SetupPlayers; // * By: Masquerader //

{ var frmDesign: TForm;
Description: Mainform Handle}
var
frmDesign: TForm;

{ var Names, Passes, Nicks, Location, Skill: array of TEdit;
Description: EditBox Handles}

var
Names, Passes, Nicks, Skill,Ores: array of TEdit;

{ var Active: array of TCheckBox;
Description: Checkbox Handle}

var
Active: array of TCheckBox;

{ var NewUserButton, Ok: TButton;
Description: ButtonClicks}

var
NewUserButton, Ok: TButton;

{ var cFile : String;
Description: Filedata Variable}

var
cFile: string;

{*******************************************************************************
function getNumber: Integer;
By: RsN
Description: Gets Number of Users Saved
*******************************************************************************}

function getNumber: Integer;
var
i: Integer;
begin
for i := 0 to i + 1 do
begin
if (Pos('name' + IntToStr(i) + '=', cFile) = 0) then
begin
Result := i;
Exit;
end;
end;
end;

{*******************************************************************************
function getData(aChar: Integer; dName : String): String;
By: RsN
Description: Gets data by dName from aChar number
*******************************************************************************}

function getData(aChar: Integer; dName: string): string;
var
tString: string;
begin
Result := '';
tString := dName + IntToStr(aChar) + '=';
if (Pos(tString, cFile) = 0) then
Exit;
Result := cFile;
Delete(Result, 1, Pos(tString, cFile));
Result := Copy(Result, Length(tString), Pos(Chr(13), Result) -
Length(tString));
end;

{*******************************************************************************
procedure AddUser;
By: Masquerader
Description: Adds a UserSlot to the Form
*******************************************************************************}

procedure AddUser;
var
I: Integer;
begin
I := GetArrayLength(Names);
SetArrayLength(Names, I + 1);
SetArrayLength(Passes, I + 1);
SetArrayLength(Nicks, I + 1);
SetArrayLength(Active, I + 1);
SetArrayLength(Skill, I + 1);
SetarrayLength(Ores, I + 1);

Names := TEdit.Create(frmDesign);
Names.Parent := frmDesign;
Names.Left := 13;
if (I = 0) then
Names.Top := 54
else
Names.Top := Skill.Top + 30;
Names.Width := 121;
Names.Height := 21;
Names.Text := 'Username ' + IntToStr(i);

Passes := TEdit.Create(frmDesign);
Passes.Parent := frmDesign;
Passes.Left := 13;
Passes.Top := Names.Top + 21;
Passes.Width := 121;
Passes.Height := 21;
Passes.Text := 'Password ' + IntToStr(i);
//Passes.PasswordChar := '*';

Active := TCheckBox.Create(frmDesign);
Active.Parent := frmDesign;
Active.Left := 155;
Active.Top := Passes.Top;
Active.Width := 79;
Active.Height := 17;
Active.Caption := 'Active?';

Nicks := TEdit.Create(frmDesign);
Nicks.Parent := frmDesign;
Nicks.Left := 13;
Nicks.Top := Passes.Top + 21;
Nicks.Width := 121;
Nicks.Height := 21;
Nicks.Text := 'Nickname ' + IntToStr(i);

Ores := TEdit.Create(frmDesign);
Ores.Parent := frmDesign;
Ores.Left := 13;
Ores.Top := Nicks.Top + 21;
Ores.Width := 121;
Ores.Height := 21;
Ores.Text := 'Ores to mine ' + IntToStr(i);

Skill := TEdit.Create(frmDesign);
Skill.Parent := frmDesign;
Skill.Left := 13;
Skill.Top := Ores.Top + 21;
Skill.Width := 121;
Skill.Height := 21;
Skill.Text := 'Skill ' + IntToStr(i);

end;

{*******************************************************************************
procedure SaveSettings;
By: RSN and Masquerader
Description: Saves UserData to File
*******************************************************************************}

procedure SaveSettings; // taken from users.scar, by RSN
var // t = names written to file
afile, i, p, t: Integer; // p = players added to array
// temp : string;
begin
aFile := RewriteFile(AppPath + 'guildminer' + '.srl', False);
t := 0;
p := 0;
for i := 0 to GetArrayLength(Names) - 1 do
begin
//doesnt write unchanged or blank boxes :)
if (not (Names.text = 'Username ' + IntToStr(i)) and
(Length(Names.text) > 2)) then
begin
WriteFileString(aFile, 'name' + IntToStr(t) + '=' + Names.text +
Chr(13));
WriteFileString(aFile, 'pass' + IntToStr(t) + '=' + Passes.text +
Chr(13));
WriteFileString(aFile, 'nick' + IntToStr(t) + '=' + Nicks.text +
Chr(13));
WriteFileString(aFile, 'ores' + IntToStr(i) + '=' + ores.text +
Chr(13));
WriteFileString(aFile, 'skill' + IntToStr(i) + '=' + Skill.text +
Chr(13));

if (Active.state) then
begin
WriteFileString(aFile, 'active' + IntToStr(t) + '=true' + Chr(13));
SetArrayLength(players, p + 1);
Players[p].Name := Names.text;
Players[p].Pass := Passes.text;
Players[p].Nick := Nicks.text;
Players[p].integer1 := strtoint(Ores.text);
Players[p].Skill := Skill.text;
Players[p].Active := True;

p := p + 1;
end;
t := t + 1;
end;
end;
CloseFile(aFile);
WriteLn('Wrote ' + IntToStr(t) + ' users to ' + 'guildminer' + '.srl');
WriteLn('There is ' + IntToStr(p) + ' active users')
end;

{*******************************************************************************
procedure LoadSettings;
By: RSN and Masquerader
Description: Loads UserData from File
*******************************************************************************}

procedure LoadSettings; // taken from users.scar, by RSN
var
i, t, afile: Integer;
begin
afile := OpenFile(AppPath + 'guildminer' + '.srl', False);
if (aFile < 0) then
Exit;
ReadFileString(aFile, cFile, FileSize(aFile));
CloseFile(aFile);
t := getNumber;
for i := 0 to t - 1 do
AddUser;

for i := 0 to t - 1 do
begin
Names.Text := getData(i, 'name');
Passes.Text := getData(i, 'pass');
Nicks.Text := getData(i, 'nick');
ores.Text := getData(i, 'ores');
Skill.Text := getData(i, 'skill');
Active.state := (getData(i, 'active') = 'true');
end;
WriteLn('Loaded ' + IntToStr(t) + ' users from ' + 'guildminer' + '.srl');
end;

{*******************************************************************************
procedure buttonclick(sender: TObject);
By: Masquerader
Description: Handles Button Clicks
*******************************************************************************}

procedure buttonclick(sender: tobject);
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
if (Sender is TButton) then
case (TButton(Sender).tag) of
-1: ThreadSafeCall('AddUser', v);
-2:
begin
frmDesign.ModalResult := mrOk;
ThreadSafeCall('SaveSettings', v);
end;
end;
end;

{*******************************************************************************
procedure InitForm;
By: Masquerader
Description: Creates Form
*******************************************************************************}

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 259;
frmDesign.Top := 132;
frmDesign.Width := 440;
frmDesign.Height := 540;
frmDesign.Caption := 'Character Manager';
frmDesign.Color := clInactiveCaption;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;

NewUserButton := TButton.Create(frmDesign);
NewUserButton.Parent := frmDesign;
NewUserButton.Left := 116;
NewUserButton.Top := 21;
NewUserButton.Width := 75;
NewUserButton.Height := 25;
NewUserButton.Caption := 'New User';
NewUserButton.OnClick := @buttonclick;
NewUserButton.Tag := -1;

Ok := TButton.Create(frmDesign);
Ok.Parent := frmDesign;
Ok.Left := 258;
Ok.Top := 21;
Ok.Width := 75;
Ok.Height := 25;
Ok.Caption := 'Ok';
Ok.OnClick := @buttonclick;
Ok.Tag := -2;
end;

//—————————————————————–//

procedure SafeInitForm;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('InitForm', v);
SetArrayLength(V, 0);
ThreadSafeCall('LoadSettings', v);
end;

//—————————————————————–//

procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;

//—————————————————————–//

procedure SafeShowFormModal;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

{*******************************************************************************
procedure SetupPlayers;
By: Masquerader
Description: Open Form, Loads and Saves Data only procedure you need to use
*******************************************************************************}

procedure SetupPlayers;
begin
if FileName = '' then FileName := 'chars';
SafeInitForm;
SafeShowFormModal;
FreeForm(FrmDesign);

frmDesign := nil;
ok := nil;
NewUserButton := nil;
SetArrayLength(Names, 0);
SetArrayLength(Passes, 0);
SetArrayLength(Nicks, 0);
SetArrayLength(ores, 0);
SetArrayLength(Skill, 0);
SetArrayLength(Active, 0); //should free ALL memory used

HowManyPlayers := GetArrayLength(players);
if (howmanyplayers = 0) then
begin
WriteLn('You cant run this script without active players');
TerminateScript;
end;
end;
//Originally by Stipidooo, edited alot by ~alex~
function FindPickHeadColor2: Boolean;
var
fx,fy:integer;
begin
pickaxehandle := DTMFromString('78DA6314616060106540017A0A0C0C2780342' +
'310FF0702465E208393010D302291405A0C48B01350234B841A25' +
'20C14D408D3A901020A0461848481350C307241408A811041262F' +
'8D50000C6310694');
GameTab(4);
Wait(2000);
if findDtm(pickaxehandle,x,y,566,191,605,252) or
(FindBitmapSpiralTolerance(PickAxeSteel, fx, fy, 546, 198, 745, 468, 100))
then
begin
hc1 := GetColor(575, 218);
hc2 := GetColor(587,217);
hc3 := GetColor(581,219);
hc4 := GetColor(594, 222);
hc5 := GetColor(579,219);
WriteLn('Pick head colors… ' + IntToStr(hc1) + ' ' + IntToStr(hc2) + ' ' +
IntToStr(hc3) + ' ' + IntToStr(hc4) + ' ' + IntToStr(hc5));
EquipPick := False;
Result := True;
end;
if (Result = False) then
begin
GameTab(5);
Wait(200 + Random(200));
if findDtm(pickaxehandle,x,y,567,285,615,330) or
(FindBitmapSpiralTolerance(PickAxeSteel, fx, fy, 546, 198, 745, 468, 100))
then
begin
hc1 := GetColor(586,294);
hc2 := GetColor(581,295);
hc3 := GetColor(600,298);
hc4 := GetColor(594, 293);
hc5 := GetColor(604,300);
WriteLn('Pick head colors… ' + IntToStr(hc1) + ' ' + IntToStr(hc2) + ' ' +
IntToStr(hc3) + ' ' + IntToStr(hc4) + ' ' + IntToStr(hc5));
EquipPick := true;
Result := True;
EquipPick := True;
Result := True;
end;
end;
if (Result = False) then
begin
WriteLn('');
WriteLn('ERROR! cannot find pick in screen, please put pick in inventory or your equip page and restart the script!');
WriteLn('');
Result := False;
end;
end;

function FindChatText2(txt: string): Boolean; //Chat(1)
var
x, y: Integer;
begin
Result := FindText(x, y, txt, SmallChars, 16,412, 479, 433);
end;

procedure look;
var
chatter:string;
begin
lastchatter(chatter)
if chatter = players[currentplayer].name then
begin
exit;
end;
if(FindChatText2('Lol'))or
(FindChatText2('Rofl'))or
(FindChatText2('Lmao'))or
(FindChatText2('Roflmao'))then
begin
wait(500)
case random(5) of
0:TypeSend('haha');
1:TypeSend('lol');
2:TypeSend('lool');
3:TypeSend('rofl');
4:TypeSend('lmao');

end;
end;

if(findchattext2('Mining lvl'))or
findchattext2('Minin lvl')or
findchattext2('mining lvls')or
findchattext2('minin lvls')then
begin
typesend(inttostr(getskilllevel('mining')))
gametab(4)
wait(500)
end;

if(findchattext2('Smithing lvl')) or
(findchattext2('Smithing level')) or
(findchattext2('Smithin lvl')) then
begin
typesend(inttostr(getskilllevel('smithing')))
gametab(4)
wait(500)
end;

if(findchattext2('Hey')) or
(findchattext2('hello')) or
(findchattext2('hi')) then
begin
wait(500)
case random(3) of
0:typesend('Hey')
1:typesend('Hi')
2:typesend('Hello')
end;
end;
end;

//************************************************************************//
// thanks Wt-Fakawi - Edited by ~Alex~

function FindFastRandoms: Boolean;
var
i: Integer;
begin
for I := 1 to 11 do
begin
case I of
1: if FindDead then
Result := True;

2: if FindMod then
Result := True;

3: if FindMime then
Result := True;

4: if FindMaze then
Result := True;

5: if FindQuiz then
Result := True;

6: if FindDemon then
Result := True;

7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;

8 : if RC then
Result := True;

9 : if FindFight then
begin
Result := True;
RunTo('E',True)
end;

10: if FindTalk then
Result := True;

11: if not findpick then
begin
if players[currentplayer].loc = 'mining' then
begin
players[currentplayer].loc := 'leaving guild'
end;
lostpick:=true
end;
12: if useresponder then
begin
look;
end;
end;
Wait(1);
end;
end;


function bankOpener : boolean;

var
tolerance:integer;
found:boolean;
begin
bankBooth1 := BitmapFromString(13, 9, 'z78DAADCD490E8340104' +
'3D12BF550D8AE65D3C3FD8F14225004A291B260F356D6379D010B' +
'770B2370D687BB1B2B3338B1D1A0B3320AA598575FB455B14E245' +
'7D4896245BBD839302E0E0586BB1E9518272665A64308CC17B93D' +
'DB446DFFCB4497FFECAAC4839C38D4A8BB256AD045288FD72CA8F' +
'6ED063376C0F4E4BE99D8D02D1D3A86F5478166F52FF77284ACBC' +
'E50733879C1F');

bankBooth2 := BitmapFromString(11, 1, 'z78DAB33034B33071B4A' +
'0800400DD030E45');

bankBooth3 := BitmapFromString(14, 1, 'z78DA3335333132B2302' +
'582347204626CA4AB913310229100E65111DD');

makecompass('N')
tolerance:=10
repeat
repeat
if (findbitmaptolerancein(bankBooth1,x,y,msx1,msy1,msx2,msy2,tolerance)) or
(findbitmaptolerancein(bankBooth2,x,y,msx1,msy1,msx2,msy2,tolerance)) or
(findbitmaptolerancein(bankBooth3,x,y,msx1,msy1,msx2,msy2,tolerance)) then
begin
mmouse(x,y,3,3)
tolerance := tolerance + 1
if (isuptextmulti('booth','ank','nk bo')) then
begin
found := true
end;
end;
if tolerance >=250 then
begin
writeln('Could not find booth')
result:=false
exit;
end;
until((found = true) or not(loggedin))



if (not (loggedin)) then
begin
loginplayer
end;

if found then
begin
mouse(x,y,4,4,false)
if clickoption('Use-quickly',1) then
begin
result:=true
clickedbank:=true
flag;
end else
begin
clickoption('Cancel',1)
clickedbank:=false
end;
end else
begin
writeln('Could not find bank')
result:=false
end;
until(clickedbank=true)
freebitmap(bankbooth1)
freebitmap(bankbooth2)
freebitmap(bankbooth3)
end;


procedure walkToGuild;
Var inGuild:boolean;
begin //1
makecompass('N')
setrun(true)
gametab(4)
RadialWalkEx(x,y,MMCX,MMCY,7243146,50,100,175,70)
mouse(x,y,0,0,true)
findfastrandoms;
findnormalrandoms;
wait(10000+random(500))
flag;
if FindColorSpiralTolerance(x,y,0,MMX1,MMY1,MMX2,MMY2,0) then
begin //2
mouse(x,y,0,0,true)
flag;
repeat
if FindObj3(x,y,'Ladder',3565696,20) then
begin //3
mouse(x,y,0,0,false)
if clickoption('Climb-down',1) then
begin
flag;
inguild:=true
writeln('In guild')
players[currentplayer].loc :='mining'
wait(500+random(100))
mouse(697,89,8,8,true)
flag;
break;
end else
begin
clickoption('Cancel',1)
end;
end else
begin

writeln('Could not find ladder.')
nextplayer(false)
exit;
end;
until(inGuild)

end; //2
end;//1
procedure loadpickheads;

begin
runepickhead := BitmapFromString(5, 7, 'z78DA75CE410E803008' +
'04C02F15D85DE3B1B6F2FF27A9C1432FE54008038100841917920' +
'79C5DC029D76C5F98672414C2498B41E35533A536ECAD9CD65BAB' +
'AD55ABEFD3F255F1562F8D2439ABFF2B39A4ADD6571BAD5B6B7E0' +
'05A0A2C5F');

addypickhead := BitmapFromString(13, 6, 'z78DA9DD0410A43210' +
'C04D02B259949D165B5E4FE47AAFFC7851FA1481567233E268A8C' +
'A57290500480424741B820E85EF99AB762D70E348BF30469202AE' +
'B38EA46FD4FD3AE1431D7B748B65AB5CCC7AB86626DCFD5B18FC6' +
'D00647A686CE8E9E6D4F7E6C6AB733B5DBD9B59C77CF87B3B4FAA' +
'D7D01D2FC61AB');

mithpickhead := BitmapFromString(5, 7, 'z78DA7D8C510E80300C' +
'42AF5428DBBF5BEDFD8FE462FD983191267CF00A664B6032D57D5' +
'D834F3FDB10A52E06432C77B86BEC3F956342666C38CCAA5574CF' +
'19C8452174BCE89D977B7AB67896B7D697E6AF2E9D232F02');


steelpickhead := BitmapFromString(5, 6, '0000015C5656686161' +
'766E6D8379795A5454575151625B5A6B6363766E6D5751511C140' +
'0251A00837979766E6D1C1400251A002D1F007E7575766E6D1C14' +
'002D1F002D1F007A7171766E6D251A002D1F002D1F007C7373766' +
'E6D');

Ironpickhead := BitmapFromString(6, 7, 'z78DA75CE310EC03008' +
'03C02F1930A93236B4F9FF931A850C2C05C98B4F08608DD86BDD3' +
'A1B95EA6067F7CBC505D90E6B6B77522C2CAAAC464208A8CB0DE4' +
'856A6AAB8FCC659C93330D079D7ECC6E8F5106A39A7AE1D794363' +
'37FA8F901C2CC3452');


Bronzepickhead := BitmapFromString(6, 7, 'z78DA758E3112C430' +
'0803BF84241C5FCAD877FCFF49C70C2E68A242CDEE08CC32E0176' +
'1562DA7B217A75550AD0F179E84C2F6A59B1854701C2A4ECCD33F' +
'463ACDEC0E363C6F0D3C66B5D09D4EEB1F0F6DAA1CBF74218ED37' +
'E3EB4397DE1CDF903A4103465');

end;

procedure freepickheads;
begin
freebitmap(bronzepickhead);
freebitmap(ironpickhead);
freebitmap(steelpickhead)
freebitmap(mithpickhead)
freebitmap(addypickhead)
freebitmap(runepickhead)
end;

procedure findbestpick;
var
newpick:boolean;
begin
loadpickheads;
if lostpick then
begin
depositall;
if (FindBitmapTolerancein(runepickhead,x,y,MSX1,MSY1,MSX2,MSY2,10)) and (mininglvl >40) then
begin
mouse(x,y,2,2,true)
lostpick:=false
closebank;
wait(500+random(300))
mouse(586, 218,0,0,true)
newpick:=true
end;
if FindBitmapTolerancein(addypickhead,x,y,MSX1,MSY1,MSX2,MSY2,10) and (mininglvl >=31) then
begin
mouse(x,y,2,2,true)
lostpick:=false
closebank;
wait(500+random(300))
mouse(586, 218,0,0,true)
newpick:=true
end;
if findbitmaptolerancein(mithpickhead,x,y,MSX1,MSY1,MSX2,MSY2,10) and (mininglvl >=21) then
begin
mouse(x,y,2,2,true)
lostpick:=false
closebank;
wait(500+random(300))
mouse(586, 218,0,0,true)
newpick:=true
end;
if findbitmaptolerancein(steelpickhead,x,y,MSX1,MSY1,MSX2,MSY2,10) and (mininglvl >=6) then
begin
mouse(x,y,2,2,true)
lostpick:=false
closebank;
wait(500+random(300))
mouse(586, 218,0,0,true)

newpick:=true
end;
if findbitmaptolerancein(ironpickhead,x,y,MSX1,MSY1,MSX2,MSY2,10) and (mininglvl >=0)then
begin
mouse(x,y,2,2,true)
lostpick:=false
closebank;
wait(500+random(300))
mouse(586, 218,0,0,true)

newpick:=true
end;
if findbitmaptolerancein(bronzepickhead,x,y,MSX1,MSY1,MSX2,MSY2,10) and (mininglvl >=0) then
begin
mouse(x,y,2,2,true)
lostpick:=false
closebank;
wait(500+random(300))
mouse(586, 218,0,0,true)

newpick:=true
end;
if newpick then
begin
players[currentplayer].loc := 'going to guild'
exit;
end else
begin
writeln('Could not find any more picks in bank')
closebank;
nextplayer(false)
end;
end;
freepickheads;
end;

procedure depositOres;
var
tempores:integer;

begin
invCoal := BitmapFromString(8, 7, 'z78DA8D8D410E80300804BF5' +
'4966DC523B6FEFF4B9AE2A18D361192098101A449930C878BE3BC' +
'33299540D43D2417362293AE07088ABDFD91CFD6CADF75439958B' +
'5C262EBE3F2E04CECFD30FFFBF16532177E9823479389091E8CA9' +
'98586A17A065467A');

pickaxehandle := DTMFromString('78DA6314616060106540017A0A0C0C2780342' +
'310FF0702465E208393010D302291405A0C48B01350234B841A25' +
'20C14D408D3A901020A0461848481350C307241408A811041262F' +
'8D50000C6310694');
mininglvl:= GetSkillLevel('Mining')
tempores := countitembmptol(invCoal,20)

if findDtm(pickaxehandle,x,y,566,191,605,252) then
begin
writeln('Pickfound in inv.')
players[currentplayer].boolean1 := false
freedtm(pickaxehandle)
end else
begin
gametab(5)
if findDtm(pickaxehandle,x,y,567,285,615,330) then
begin
writeln('Found pickaxe equiped.')
players[currentplayer].boolean1 :=true
freedtm(pickaxehandle)
lostpick:=false
end else
begin
writeln('Cannot find pickaxe on character. Looking in bank.')
lostpick:=true
end;
end;
if lostpick then
begin
mouse(592,304,3,3,true)
gametab(4)
end;
if bankopener then
begin
if pinscreen then
begin
writeln('Found pinscreen, remove pin')
nextplayer(false)
end else
begin
wait(2000)
fixbank;
if lostpick then findbestpick;

if players[currentplayer].boolean1 = true then
begin
depositall;
closebank;
players[currentplayer].banked:= players[currentplayer].banked + 1
players[currentplayer].integer2:= players[currentplayer].integer2+tempores
if players[currentplayer].integer2 > players[currentplayer].integer1 then
begin
writeln('w00t all ores mined.')
tempores:=0
progressreport;
players[currentplayer].loc := 'going to guild'
nextplayer(true)
exit;
end;
tempores:=0
progressreport;
players[currentplayer].loc := 'going to guild'
end else
begin
deposit(2,28,2)
closebank;
players[currentplayer].banked:= players[currentplayer].banked + 1
players[currentplayer].integer2:= players[currentplayer].integer2+tempores
if players[currentplayer].integer2 >= players[currentplayer].integer1 then
begin
writeln('w00t all ores mined.')
tempores:=0
progressreport;
players[currentplayer].loc := 'going to guild'
nextplayer(true)
exit;
end;
tempores:=0
progressreport;
players[currentplayer].loc := 'going to guild'
end;
end;
end;
end;


procedure walkToBank;
var
banksymbol:integer;
bankfound:boolean;
walkingattempts:integer;
begin
if findcolortolerance(x,y,6082797,mmx1,mmy1,mmx2,mmy2,80) then
begin
mouse(x,y+10,0,0,true)
bankfound:=true
wait(20000+random(500))
flag;
wait(1000);
players[currentplayer].loc := 'in bank'
exit;
end else
begin
mouse(663,24,4,4,true)
wait(10000+random(1500))
flag;
wait(300)
walktobank;
end;
end;

procedure leaveMiningGuild;
var
wentUp:boolean;
mmrockcolor,mmrock,orangerock,i:integer;
acc:extended;
begin
attempt:=0

mmGuildladder := BitmapFromString(4, 3, 'z78DA3376353436303' +
'0C6419A3A9BB818A190B854020027610F13');


mmRock := BitmapFromString(5, 5, 'z78DA33363632357235B1347' +
'63231839066C6A6A6A62E101297387E59647164596411630C7B91' +
'490089AA205D');
mmorangerock := BitmapFromString(4, 1, '433C2159442E7850348' +
'F644F');
orangerock := DTMFromString('78DA6364676060606540010556420C72409A1' +
'188FF0301230B90C18CAAC65A8D01AE06041841E630A1AA69F7D3' +
'4555C385690E861A90391C04EC02B9971D554DA01E0FAA1A664C7' +
'FA1AB0100517209C1');

attempt:=0
i:=0
if FindBitmapToleranceIn(mmrock,x,y,mmx1,mmy1,mmx2,mmy2,50) then
begin
mmrockcolor:=getcolor(x,y)
writeln('Rock color:' +inttostr(mmrockcolor))
freebitmap(mmrock)
repeat
attempt:=attempt+1;
RadialWalkEx(x,y,MMCX,MMCY,MMROCKCOLOR,30,210,295,50)
mouse(x,y,0,0,true)
flag;
wait(2000)
RadialWalkEx(x,y,MMCX,MMCY,MMROCKCOLOR,30,210,295,50)
mouse(x,y,1,1,true)
wait(2000+random(500))
flag;
wait(100+random(500))
mouse(590,66,5,5,true)
flag;
break;
if attempt=10 then begin Logout; exit; end;
until( FindColor(x,y,669784,MMX1,MMY1,648,123) or(attempt>10) )
makecompass('W')
end else
writeln('Cannot autocolor minimap rocks')
repeat
if attempt > 15 then
begin
writeln('Could not find ladder inside guild')
nextplayer(false)
exit;
end;
lowestangle
wait(2500)
if FindObj3(x,y,'Ladder',669784,15) then
begin
mouse(x,y,0,0,false)
if clickoption('Climb-up',1) then
begin
wentup:=true
attempts:=0
writeln('Left the guild')
flag;
wait(3000+random(200))
highestangle;
makecompass('N')
players[currentplayer].loc := 'walking to bank'
exit;
end else
begin
clickoption('Cancel',1)
attempts:=attempts +1
end;
end else
begin
i:=i+1
if i = 1 then
begin
makecompass('S')
end;
if i = 2 then
begin
makecompass('E')
end;
if i = 3 then
begin
makecompass('N')
if i > 3 then
begin
writeln('Cant find the ladder inside guild.')
Nextplayer(false)
exit;
end;
end;
end;
until(wentup = true)
end;



procedure antiBannage;
begin
randomchatevery(2+random(10))
randomrclickevery(2+random(10))
leavescreenevery(2+random(10))
hoverevery(2+random(10),'Mining')
antiban;
boredevery(2+random(10))
end;

procedure loadCoalBmps;
begin
coalRock1 := BitmapFromString(1, 8, '2F2F203938273C3C294444' +
'2F44442F44442F44442F484831');

coalRock2 := BitmapFromString(1, 6, 'z78DA3376367636B234C64' +
'B020094EC080B');

coalRock3 := BitmapFromString(1, 8, '44442F48483144442F4444' +
'2F41412B41412B3C3C293C3C29');
end;

procedure freeCoalBmps;
begin
freebitmap(coalRock1)
freebitmap(coalRock2)
freebitmap(coalrock3)
end;

// By Sumilion and Lorax – Edited by startblaster
Function UpdateCoords(Var cx, cy: Integer; ax, ay, TheColor, Tol: Integer): Boolean;
var
Counter: Integer;
Begin
If (ax < 20) then ax := 20; If (ay < 20) then ay := 20;
While (FlagPresent) and (FindColorSpiralTolerance(cx, cy, TheColor, ax-20, ay-20, ax+20, ay+20, Tol)) do
begin
ax := cx; ay := cy;
Wait(15);
end;
If (ax < 10) then ax := 10; If (ay < 10) then ay := 10;
While (FindColorSpiralTolerance(cx, cy, TheColor, ax-10, ay-10, ax+10, ay+10, Tol)) and (Counter < 60) do
begin
ax := cx; ay := cy;
Counter := Counter + 1;
Wait(15);
end;
Result := FindColorSpiralTolerance(cx, cy, TheColor, ax-10, ay-10, ax+10, ay+10, Tol);
if (not Result) then
else
end;


function findrocks:boolean;
var
Attempts:integer;
begin
if invcount=28 then
begin
players[currentplayer].loc := 'leaving guild'
exit;
end;
makecompass('N')
highestangle;
rockfound:=false
repeat
attempts:=attempts+1
if attempts >= 10 then
begin
writeln('Could Not Find A rock')
result:=false
break;
end;
if not loggedin then
begin
loginplayer;
findrocks;
end;
x:=MSCX
y:=MSCY
if (FindBitmapspiralTolerance(coalRock2,x,y,MSX1,MSY1,MSX2,MSY2,10)) or (FindBitmapspiralTolerance(coalRock1,x,y,MSX1,MSY1,MSX2,MSY2,10)) or (FindBitmapspiralTolerance(coalRock3,x,y,MSX1,MSY1,MSX2,MSY2,10)) then
begin
MMouse(x,y,2,2)
if IsUpText('Mine') then
begin
rockcolor:=getcolor(x,y)
rockfound:=true
result:=true
end else
begin
rockfound:=false
end;
end;
until(rockfound = true)
end;



procedure mineIt;
var cx,cy,rockcolor2,timer,leftorright:integer;

begin
leftorright:=0
leftorright:= 1+random(9)
if invcount=28 then
begin
players[currentplayer].loc := 'leaving guild'
exit;
end;
if rockfound then
begin
if leftorright >=8 then
begin
mouse(x,y,3,3,false)
clickoption('Mine',1)
end else
begin
mouse(x,y,0,0,true)
end;
if UpdateCoords(cx,cy,x,y,rockcolor,10) then
begin
findfastrandoms
findnormalrandoms
rockcolor2:=getcolor(cx,cy)
marktime(timer)
repeat
findfastrandoms
wait(50)
if findnormalrandoms then
begin
players[currentplayer].loc:= 'mining'
end;
if findchattext2('ge to') then writeln('Manage found') break;
if gascheck(cx,cy) then
begin
findrocks;
exit;
end;
if timefrommark(timer) > 12000 then
begin
exit;
end;
until(not(getcolor(cx,cy) = rockcolor2))
end else
begin
writeln('UpdateCoords didnt work')
end;
end else
begin
mouse(79+random(320),72+random(250),0,0,false)
clickoption('Walk here',1)
findfastrandoms;
findnormalrandoms
flag;
exit;
end;
end;

procedure getChangeLog;
begin
writeln('')
writeln('//————- Changelog ————–\')
writeln('')
writeln('///////////////////////////////////////////')
writeln('Version 1.00')
writeln('')
writeln('Original Release')
writeln('')
writeln('')
Writeln('Version 1.1')
Writeln('')
Writeln('Fixed randoms … maybe')
Writeln('Axe can be in inv or equipped')
Writeln('Fixed bank symbol')
Writeln('Fixed walking before ladder')
Writeln('You no longer move your mouse over a rock while mining it')
writeln('')
Writeln('Version 1.2')
Writeln('')
writeln('Added findpick head.')
Writeln('Added small auto responder')
writeln('')
writeln('Version 1.22')
writeln('')
writeln('Removed stuff used in testing 1.2')
writeln('')
writeln('Version 1.3')
writeln('')
writeln('Now if you lose ure pick head it will automatically search')
writeln('the bank for the best one there, and attempt to equipt it!')
writeln('Antirandoms should be fixed')
writeln('Autoresponder is now optional, scripts goes alot fast without it')
writeln('You should now always click the closest rock to you')
writeln('///////////////////////////////////////////')
end;

procedure checkVersion;
var
versionString:string;
Version:extended;
begin
cleardebug;
writeln('//————————————–\')
writeln('// Checking script version \')
writeln('//————————————–\')

versionstring:=(getpage('http://www.freewebs.com/scaralex/ScriptVersions/GuildMiner.txt'))
version:= strtofloat(versionstring)
if version > strtofloat(versionnumber) then
begin
writeln('//There is an updated version of the script!\')
writeln('Go to http://www.villavu.com/forum/showthread.php?t=8439 to download update!')
writeln('//////////////////////////////////////////////')
terminatescript;
end else
writeln('//You have the most recent version \')
writeln('//////////////////////////////////////////')
end;

begin
checkversion;
getChangelog;
setupsrl;
MouseSpeed:=10;
setupplayers;
activateclient;
antiBannage;
if not loggedin then
begin
loginplayer;
findpickheadcolor2;
end;
repeat
if players[currentplayer].loc = '' then
begin
players[currentplayer].loc := 'in bank'
end;

if players[currentplayer].loc = 'in bank' then
begin
depositores;
end;

if players[currentplayer].loc ='mining' then
begin
loadcoalbmps;
findrocks;
freecoalbmps;
end;

if players[currentplayer].loc ='mining' then
begin
mineIt;
end;

if players[currentplayer].loc = 'leaving guild' then
begin
leaveminingguild;
end;
if players[currentplayer].loc = 'going to guild' then
begin
findpickheadcolor2;
walktoguild;
end;
if players[currentplayer].loc = 'walking to bank' then
begin
walktobank;
end;
until(false)
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Hmmmm, this looks a LITTLE suspicious…

{================================================= ========================]
[ Monster Guild Miner ]
[ ]
[ NAME : Monster Guild Miner ]
[ WRITER : ~alex~ ]
[ CATEGORY : Miner ]
[ DESCRIPTION : Mines from fally mining guild and banks coal ]
[ AUTOCOLOR : Yes ]
[ NOTES : Thanks to adamb_135 and spermis for testing ] ]
[ CONTACT : [email]gamesjunky1991@gmail.com[/email] ]
[ ]
[ ]
[================================================== =======================]

BUSTED muahaha i finally got to say it

Isn't it…

SILLY GOOSE!

ROFL, you have 1 copybust in your sig, you are such a YoHoJo wanna be :p

He would do this:

SILLY GOOSE
http://www.villavu.com/forum/showthread.php?t=8439

Lmao at you… MY SCRIPT BITCH :O

From: ~alex~
Lmao at you… MY SCRIPT BITCH :O

ROFL:f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f:

Me, a YoHoJo wanabe… OF COURSE!

Says it all.

GoF = 31337 Flamer
I WANT TO BE ONE TOO! :D

Closed.