oo ty.
Printable View
oo ty.
Oops... meant edit MMouse. It uses WindMouse... or you could make your own spline.
?
Is windmouse detectable? Also where can I edit the scar functions lol? (srs, I dunno).
Mouse.scar FTW!
All my base are belong to you.
When Nauman was fairly new to this communitty, he did a Guild Miner which he sold for (if i am not mistaken) $5. It was a very poor script.Quote:
Originally Posted by Tad
At the same time, Jukka's guild miner was very famous and free.
Does the fact that you had to pay $5 for Nauman's make it any better as a script?
People will try to sell you anything.
~RM
Example: Some guy at RsBot a while ago tried to sell a guide to "Get your perm banned account unbanned 100% of the time"... for 15 bucks a pop. The guide was full of things like say you are going to commit suicide, etc.Quote:
Originally Posted by Rasta Magician
Quote:
Originally Posted by Rasta Magician
->Quote:
Originally Posted by mormonman
Are you going to take that computer that was being given away at a garage sale, or are you going to go online/to a store and buy a new one? The garage sale one has the slightest chance of serving you better, but in the end you'd be better off going with the one from the store.Quote:
Originally Posted by Tad
Here it is, dug it up in members:Quote:
Originally Posted by Rasta Magician
SCAR Code:{ /-------------\ /---------|
/ \ / \
/ \ / \
| | | | | |
| | | | | |
| | | | | |
|________| | |______ | |
/ / / /
/ / / /
/ / / / SCRIPT
/ / UPER / /_____
/ / |/ |/ |
/ / | | |
/ / | | |
/ / | | |
/ /________ \ /
| | | \ /
| | | \------------/_
| | | Super Scripts..| |..
| | | ____________________________________
\ / | _Version History._ |
\ / | Version 0.1 <-- Under Construction |
\ / | |
\---------/ | Ver 0.2 BETA <-- Complete No forms |
| |
| Ver 0.2 <-- Forms :D |
| |
| |
| _Future Versions._ |
| |
| Ver 0.3 <--- Should Run For Longer/|
| Auto Responder! |
| Ver 9.4 <--- MasterKill is History :p.|
|______________________________________|
Instructions
#1
|Start In falador Bank Logged out or logged in|
#2
|Specify The client a few times|
#3
|Press Run|
#4
|Fill out Uber Forms :D|
#5
|Enjoy!|
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
###########################################################################
_ _ #
__|\ | |\ | /\ | | /\ /\ /\ |\ | | /|__ #
__ |* < | \ | /__\ | | / \ / \ /__\ | \ | > *| __ #
|/ |_ | \| / \ |___| / \/ \ / \ | \| _| \| #
############################################################################
Thank-you for purchusing add ************@hotmail.com for updates
Current Version 2.3!!! Forms!! YaY :D
OUTDATED DO NOT USE!
_
!---------! / |
! Credits:! / |__________
! Sp0rky! | \ CHEAK EM OUT!
! Town ! \ ___________\
! JAD ! \ |
!_TSN_____! \_|
}
program GuildEXMiner;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
{-------------------------------}
{ Form ( DO NOT TOUCH! ) }
{-------------------------------}
var
frmDesign : TForm;
GroupBox1 : TGroupBox;
GroupBox3 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
ComboBox1 : TComboBox;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
CheckBox1 : TCheckBox;
GroupBox2 : TGroupBox;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
Label10 : TLabel;
ComboBox2 : TComboBox;
Edit4 : TEdit;
Edit5 : TEdit;
Edit6 : TEdit;
CheckBox2 : TCheckBox;
Button1 : TButton;
Coal1, Coal2 : Integer;
Mith1, Mith2 : integer;
MithCoal1, MithCoal2 : integer;
Loads1, Loads2 : integer;
What_To_Mine1 : String;
What_To_Mine2 : String;
Procedure StartClick(sender: TObject);
Begin
Coal1:=(ComboBox1.Items.Add('Coal'))
Coal2:=(ComboBox2.Items.Add('Coal'))
Mith1:=(ComboBox1.Items.Add('Mithril'))
Mith2:=(ComboBox1.Items.Add('Mithril'))
MithCoal1:=(ComboBox1.Items.Add('Mithril+Coal'))
MithCoal2:=(ComboBox1.Items.Add('Mithril+Coal'))
What_To_Mine1:=(ComboBox1.Text)
What_To_Mine2:=(ComboBox2.Text)
Loads1:= StrtoInt(Edit3.text)
Loads2:= StrtoInt(Edit6.text)
If (Checkbox1.checked) or (checkbox2.checked) then
Writeln('Using different techniques');
frmDesign.ModalResult:= mrOk;
end;
Procedure Form;
Begin
frmDesign := CreateForm;
frmDesign.Left := 200;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 420;
frmDesign.Font.Color := clTeal;
frmDesign.Caption := 'GuildMiner By ->{Nauman}<-';
frmDesign.Color := clMaroon;
frmDesign.Font.Color := clRed;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 24;
GroupBox1.Top := 8;
GroupBox1.Width := 601;
GroupBox1.Height := 345;
GroupBox1.Caption := ' Guild Miner by ->{Nauman}<-';
GroupBox1.TabOrder := 0;
GroupBox3 := TGroupBox.Create(GroupBox1);
GroupBox3.Parent := GroupBox1;
GroupBox3.Left := 24;
GroupBox3.Top := 32;
GroupBox3.Width := 241;
GroupBox3.Height := 257;
GroupBox3.Caption := 'Player One';
GroupBox3.TabOrder := 0;
Label1 := TLabel.Create(GroupBox3);
Label1.Parent := GroupBox3;
Label1.Left := 24;
Label1.Top := 32;
Label1.Width := 61;
Label1.Height := 13;
Label1.Caption := 'USERNAME';
Label2 := TLabel.Create(GroupBox3);
Label2.Parent := GroupBox3;
Label2.Left := 24;
Label2.Top := 80;
Label2.Width := 63;
Label2.Height := 13;
Label2.Caption := 'PASSWORD';
Label3 := TLabel.Create(GroupBox3);
Label3.Parent := GroupBox3;
Label3.Left := 24;
Label3.Top := 120;
Label3.Width := 35;
Label3.Height := 13;
Label3.Caption := 'Loads?';
Label4 := TLabel.Create(GroupBox3);
Label4.Parent := GroupBox3;
Label4.Left := 24;
Label4.Top := 168;
Label4.Width := 69;
Label4.Height := 13;
Label4.Caption := 'What to mine?';
Label5 := TLabel.Create(GroupBox3);
Label5.Parent := GroupBox3;
Label5.Left := 24;
Label5.Top := 216;
Label5.Width := 139;
Label5.Height := 13;
Label5.Caption := 'Different Mining Techniques?';
ComboBox1 := TComboBox.Create(GroupBox3);
ComboBox1.Parent := GroupBox3;
ComboBox1.Left := 120;
ComboBox1.Top := 168;
ComboBox1.Width := 81;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 0;
ComboBox1.Text := 'Coal';
ComboBox1.Items.Add('Mithril');
ComboBox1.Items.Add('Coal');
ComboBox1.Items.Add('Mithril+Coal');
Edit1 := TEdit.Create(GroupBox3);
Edit1.Text := 'Username';
Edit1.Parent := GroupBox3;
Edit1.Left := 104;
Edit1.Top := 32;
Edit1.Width := 81;
Edit1.Height := 21;
Edit1.TabOrder := 1;
Edit2 := TEdit.Create(GroupBox3);
Edit2.Text:= 'Password';
Edit2.PasswordChar:= '@';
Edit2.Parent := GroupBox3;
Edit2.Left := 104;
Edit2.Top := 72;
Edit2.Width := 81;
Edit2.Height := 21;
Edit2.TabOrder := 2;
Edit3 := TEdit.Create(GroupBox3);
Edit3.Text := '1'
Edit3.Parent := GroupBox3;
Edit3.Left := 104;
Edit3.Top := 112;
Edit3.Width := 33;
Edit3.Height := 21;
Edit3.TabOrder := 3;
CheckBox1 := TCheckBox.Create(GroupBox3);
CheckBox1.Parent := GroupBox3;
CheckBox1.Left := 176;
CheckBox1.Top := 216;
CheckBox1.Width := 17;
CheckBox1.Height := 17;
CheckBox1.Caption := 'CheckBox1';
CheckBox1.TabOrder := 4;
GroupBox2 := TGroupBox.Create(GroupBox1);
GroupBox2.Parent := GroupBox1;
GroupBox2.Left := 312;
GroupBox2.Top := 32;
GroupBox2.Width := 241;
GroupBox2.Height := 257;
GroupBox2.Caption := 'Player Two';
GroupBox2.TabOrder := 1;
Label6 := TLabel.Create(GroupBox2);
Label6.Parent := GroupBox2;
Label6.Left := 24;
Label6.Top := 32;
Label6.Width := 61;
Label6.Height := 13;
Label6.Caption := 'USERNAME';
Label7 := TLabel.Create(GroupBox2);
Label7.Parent := GroupBox2;
Label7.Left := 24;
Label7.Top := 80;
Label7.Width := 63;
Label7.Height := 13;
Label7.Caption := 'PASSWORD';
Label8 := TLabel.Create(GroupBox2);
Label8.Parent := GroupBox2;
Label8.Left := 24;
Label8.Top := 120;
Label8.Width := 35;
Label8.Height := 13;
Label8.Caption := 'Loads?';
Label9 := TLabel.Create(GroupBox2);
Label9.Parent := GroupBox2;
Label9.Left := 24;
Label9.Top := 168;
Label9.Width := 69;
Label9.Height := 13;
Label9.Caption := 'What to mine?';
Label10 := TLabel.Create(GroupBox2);
Label10.Parent := GroupBox2;
Label10.Left := 24;
Label10.Top := 216;
Label10.Width := 139;
Label10.Height := 13;
Label10.Caption := 'Different Mining Techniques?';
ComboBox2 := TComboBox.Create(GroupBox2);
ComboBox2.Parent := GroupBox2;
ComboBox2.Left := 120;
ComboBox2.Top := 168;
ComboBox2.Width := 81;
ComboBox2.Height := 21;
ComboBox2.ItemHeight := 13;
ComboBox2.TabOrder := 0;
ComboBox2.Text := 'Coal';
ComboBox2.Items.Add('Mithril');
ComboBox2.Items.Add('Coal');
ComboBox2.Items.Add('Mithril+Coal');
Edit4 := TEdit.Create(GroupBox2);
Edit4.Parent := GroupBox2;
Edit4.Text := 'Username'
Edit4.Left := 104;
Edit4.Top := 32;
Edit4.Width := 81;
Edit4.Height := 21;
Edit4.TabOrder := 1;
Edit5 := TEdit.Create(GroupBox2);
Edit5.Parent := GroupBox2;
Edit5.Text := 'Password';
Edit5.PasswordChar:= '@';
Edit5.Left := 104;
Edit5.Top := 72;
Edit5.Width := 81;
Edit5.Height := 21;
Edit5.TabOrder := 2;
Edit6 := TEdit.Create(GroupBox2);
Edit6.Text := '0';
Edit6.Parent := GroupBox2;
Edit6.Left := 104;
Edit6.Top := 112;
Edit6.Width := 33;
Edit6.Height := 21;
Edit6.TabOrder := 3;
CheckBox2 := TCheckBox.Create(GroupBox2);
CheckBox2.Parent := GroupBox2;
CheckBox2.Left := 176;
CheckBox2.Top := 216;
CheckBox2.Width := 17;
CheckBox2.Height := 17;
CheckBox2.Caption := 'CheckBox1';
CheckBox2.TabOrder := 4;
Button1 := TButton.Create(GroupBox1);
Button1.OnClick := @StartClick;
Button1.Parent := GroupBox1;
Button1.Left := 224;
Button1.Top := 304;
Button1.Width := 121;
Button1.Height := 25;
Button1.Caption := 'Start Guild Mining :)';
Button1.TabOrder := 2;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('Form', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
var // scripts variables
x, y, DeathsAvoided, Mined, lx, ly : integer;
fx, fy, AxeMask, GuildExit : integer;
Banked, lol, Minex : integer;
GuildTop : Integer;
Axe : string;
const
Mask='RuneScape - the mas...';
procedure LoadVars;
begin
Minex := BitmapFromString(29, 11, 'beNqtkUsKACEMQ3M7LzD' +
'buf8xHLBDKKaKBEMXseizH6APvU9jaMaIgADYZGwsy+PxFnZSYO2B' +
'EKImLmBIC1jVppMMwqra3EhJyPn9ykpffj15A1v63MtFLJK8Ieirc' +
'pv8gpEzJ57HXx/bz9ke');
end;
{-------------------------------}
{ BETA Auto Responder }
{-------------------------------}
procedure NAutoRespond;
begin
if InChat('lol') then
begin
case Random(36) of
2: TypeSend('...s');
5: TypeSend('Lilol');
8: TypeSend('contento');
13: TypeSend('Hehe');
15: TypeSend('funyy');
17: TypeSend(':)');
19: TypeSend('wave:zzzzzz');
end;
Exit;
end;
if InChat(Players[CurrentPlayer].Name) then
begin
case Random(11) of
2: TypeSend('!!!.');
5: TypeSend('No me gusta ingles'); // <-- SPanish :p
7: TypeSend('Estoy Trieste'); // some more spanish :D
9: Typesend('chicos verqueros')
end;
end;
end;
procedure RespondToGas;
begin
case Random(17) of
1:Typesend('Dang Stubid gas');
4:Typesend('Uggghhh');
7:Typesend('-_-');
15:Typesend('!!!!!!');
end;
end;
{-------------------------------}
{ My AntiBan- Search }
{-------------------------------}
procedure Search;
var
f, e : integer;
begin
MMouse(645, -15, 1, 1)
MMouse(727, -9, 1, 1)
e := 5 + Random(6); //Of Almost Logout credits to Yakman :)
for f := 0 to e do
begin
case Random(3) of
0, 1: MMouse(727 + Random(10), -9 + Random(10), 0, 0);
2: IdleTime(300 + Random(300), 500, 0.5);
end;
FTwait(2 + Random(1));
end;
end;
{-------------------------------}
{ Anti Ban }
{-------------------------------}
procedure AntiBan;
begin
case Random(78) of
0,1,2: PickUpMouse;
23,5,9: GameTab(1 + Random(11));
56: Search;
75: MMouse(Random(MSX2), Random(MSY2), 0, 0);
19: begin
HoverSkill('Mining',false);
gametab(4);
ChooseOption('Cancel');
MMouse(Random(MSY1), Random(MSX1), 0, 0);
end;
10: begin
GameTab(1 + Random(13));
wait(1000+ random(600));
gametab(4);
ChooseOption('Cancel');
end;
78: begin
HoverSkill('random',false);
gametab(4);
end;
end;
end;
{-------------------------------} {{{{{{{{{{{{{{{{{{{{{{{{{{{{}
{ Check Gas Function } // Thank-you Piv and SKy //
{-------------------------------} // ----------------------------//
function NCheckGas: boolean;
begin
Status('Gas Check')
if GasFound(x,y)or FindGas(fx,fy) then
Result:=True
else
Result:=False
end;
{-------------------------------}
{ Run Away from gas }
{-------------------------------}
function GasFinder:boolean;
begin
if NCheckGas then
begin
RunTo('E',False)
MFF(MMCX-5, MMCY, 2, 2);
RespondToGas;
Writeln('Found gas waiting for it to go away')
Wait(8000+Random(2000))
RunAway('N',False,1,5000+Random(3000))
end;
end;
{-------------------------------------}
{ Different clicks of mining (Optional}
{-------------------------------------}
procedure DifferentTech;
begin
If (not(Loggedin)) then Exit;
case Random(5) of
0: begin
Mmouse(x,y,2,3)
wait(800+Random(70))
Mouse(x,y,1,2,false)
wait(800+Random(78))
If FindBitmap(Minex,x,y) then Mouse(x,y,1,1,true)
end;
1: begin
Mouse(x,y,7,0,false)
wait(8+Random(90))
If FindBitmap(Minex,x,y) then
Mouse(x,y,1,1,true)
end;
2: begin
Mouse(x,y,1,1,false)
case Random(1) of
0: If FindBitmap(Minex,x,y) then Mouse(x,y,1,1,true)
end;
end;
3,4: Mouse(x,y,0,0,true)
end;
end;
{-------------------------------}
{ Waiting... }
{-------------------------------}
procedure Waiting;
begin
MarkTime(lol)
Status('Waiting')
Repeat
Flag;
GasFinder;
AntiBan;
FindNormalRandoms;
GasFinder;
NAutoRespond;
if invfull then break;
if timefrommark(lol) > 15000 then break;
until FindBlackChatMessage('You manage to mine some') or
FindBlackChatMessage('is no ore cu')
end;
{-------------------------------}
{ Login }
{-------------------------------}
function Login:boolean;
begin
PlaySound('C:\WINDOWS\Media\Windows XP Startup.wav')
If (Not(Loggedin))then LoginPLayer;
SetAngle(True)
Result:=True;
end;
{-------------------------------}
{ Walking 2 Guild }
{-------------------------------}
procedure Walk;
var
InGuild:boolean;
begin
If (not(Loggedin)) then Exit;
SetRun(True)
GameTab(4);
MakeCompass('S')
Status('Walkin 2 Guild')
MakeCompass('S')
RadialWalk( FindFallyRoadColor , 14, 26, 50, 0, 0);
MakeCompass('S')
Wait(3000+Random(2000))
FFlag(0);
if FindColorSpiralTolerance(x,y,65536,565, 61,588, 76,1) Then
begin
Mouse(x,y,1,1,true)
FFlag(0);
MakeCompass('E')
repeat
If (not(loggedin)) then Break;
if FindObj(x,y,'Ladder',2050652,10) then
begin
case Random(3) of
0: begin
Mouse(x,y,1,1,true)
end;
1,2: begin
Mouse(x,y,1,1,false)
Wait(800+Random(800))
ChooseOption('imb')
end;
end;
FFlag(0);
InGuild:=True
Wait(4000+Random(700))
MakeCompass('E')
end;
until(InGuild)
end;
end;
{-------------------------------}
{ Mining the rocks }
{-------------------------------}
procedure MineRocks;
begin
If (not(Loggedin)) then Exit;
Status('Going 2 Mine')
RadialWalk( FindRockColor , 20, -20, 65, 0, 0);
begin
MFF(MMX1,MMY1,MMX2,MMY2);
wait(1000+Random(700))
FFlag(0);
If FindSymbol(X,y,'Mining spot') then
Mouse(x,y,1,1,true);
begin
FFlag(0);
case lowercase(Players[CurrentPlayer].Strings[1]) of
'coal': begin
repeat
if FindObjCustom(x, y, ['Min', 'e', 'ock'], [2570811, 3097925, 2373174], 7) then
begin
if (Checkbox1.checked) then
DifferentTech
else
Mouse(x, y, 1, 1, true);
Waiting;
end;
until(invfull)
Mined:=Mined+27;
end;
'mithril': begin
repeat
if FindObjCustom(x, y, ['Min', 'roc', 'ks'], [7096648, 7292998, 7228234], 7) then
begin
if (Checkbox1.checked) then
DifferentTech
else
Mouse(x, y, 1, 1, true);
Waiting;
end;
until(invfull)
Mined:=Mined+27;
end;
'mithril+coal': begin
repeat
case Random(3) of
0: begin
if FindObjCustom(x, y, ['Min', 'roc', 'ks'], [7096648, 7292998, 7228234], 7) then
begin
if (Checkbox1.checked) then
DifferentTech
else
Mouse(x, y, 1, 1, true);
Waiting;
end;
end;
1: begin
if FindObjCustom(x, y, ['Min', 'roc', 'ks'], [7096648, 7292998, 7228234], 7) then
begin
if (Checkbox1.checked) then
DifferentTech
else
Mouse(x, y, 1, 1, true);
Waiting
end;
end;
2: begin
if FindObjCustom(x, y, ['Min', 'e', 'ock'], [2570811, 3097925, 2373174], 7) then
begin
if (Checkbox1.checked) then
DifferentTech
else
Mouse(x, y, 1, 1, true);
Waiting;
end;
end;
end;
until(invfull)
Mined:=Mined+27;
end;
end;
end;
end;
end;
{-------------------------------}
{ Getting Out of Guild }
{-------------------------------}
procedure GetOutOfguild;
var
OutGuild:boolean;
begin
Status('Gettin Da Fuk Out Of ere')
MakeCompass('E')
if FindSymbol(x,y,'mining spot')then
begin
Mouse(x,y,1,1,true)
FFlag(0);
{ This Is Only temporary-->} Mouse(658+Random(1), 141-RANDOM(2),0+Random(10),10-Random(10),true)
{ Will Fix in next Version..}FFlag(0);
if FindColorSpiral(lx,ly,FindLadderColor,MMX1,MMY1,MMX2,MMY2) Then
begin
Wait(800+Random(1000))
Mouse(lx,ly,1,1,true)
FFlag(0);
if FindObj(x,y,'Ladder',2050652,10) then
begin
repeat
case Random(3) of
0: begin
Mouse(x,y,1,1,true)
OutGuild:=True
end;
1,2: begin
Mouse(x,y,1,1,false)
Wait(800+Random(800))
ChooseOption('imb')
end;
end;
Flag;
OutGuild := True;
Wait(4000+Random(700))
until(OutGuild)
end;
end;
end;
end;
{-------------------------------}
{When In doubt Try,Try again :) }
{-------------------------------}
procedure TryAgain; // Cool procedure :p
var
Banker:integer;
Walked:Boolean;
begin
If (not(Loggedin)) then Exit;
Banker := DTMFromString('78DA63BCC5C4C0F0870105FCF9C3C4F01F483' +
'302F17F2060BC0D54F30B55CDBF7F7C609A11CA67BC0354F39701' +
'0D30A2AA01D9F58F809A9B4035BFD1ED124651030006FB1455');
if (not(FlagPresent)) then
begin
MakeCompass('W')
if FindDTM(Banker,x,y,597, 26,634, 90) then
begin
Mouse(X+15,Y-1,3-2,0+1,True)
Walked:=True
FFlag(0);
end;
end;
FreeDTM(Banker)
end;
{-------------------------------}
{ Banking }
{-------------------------------}
procedure Banking;
begin
GetOutOfGuild;
Status('Banking')
Wait(4000+Random(700))
SetAngle(True)
MakeCompass('N')
SetAngle(True)
RadialWalk( FindFallyRoadColor , 48, 99, 51, 0, 0);
FFlag(0);
if (not(FindSymbol(x,y,'water source'))) then
RadialRoadWalk(FindFallyRoadColor, 15, 4, 37, 0, 0);
if FindSymbol(x,y,'water source') then
// If FindSymbol(644, 40,'WaterSource)
begin
Mouse(x,y,1,1,true)
end;
FFlag(0);
MakeCompass('W')
RadialWalk( FindFallyRoadColor , 26, 46, 70, 0, 0);
FFlag(0);
if FindSymbol(x,y,'Bank') then
begin
Mouse(x+3,y,0,0,true)
FFlag(0);
end else
TryAgain;
OpenBankFast('feb')
if (BankScreen) then
begin
//FFlag(2)
wait(800+Random(800))
Deposit(2,28,2)
Wait(200+Random(300))
CloseBank;
Banked:=Banked+1
end;
end;
{-------------------------------}
{ Ma Proggie :p }
{-------------------------------}
procedure Proggie;
var
PActive: string;
begin
Status('Proggie :))))))))))')
ClearDebug;
SRLRandomsReport;
Writeln('//=============== N GuildX Miner ================\\');
Writeln('\\======== -_0.2_- Progress Report ========//');
Writeln('/==========================================\');
Writeln('| Worked for ' + TimeRunning);
Writeln('| Mined ' + IntToStr(Mined) + (' Ores. |'));
Writeln('| Loads Banked ' + IntToStr(Banked) + (' Yay! |'));
writeln('| DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.|'));
Writeln('\==========================================/');
end;
{-------------------------------}
{ Declare Players }
{-------------------------------}
procedure DeclarePlayers;
begin
Disguise(Mask);
ActivateClient;
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := Edit1.text; //Serves as Nick :p//
Players[0].Pass := Edit2.text;
Players[0].Active := True;
Players[0].Strings[1] := What_To_Mine1;
Players[0].Integers[1] := Loads1;
Players[1].Name := Edit4.text; //Serves as Nick :p//
Players[1].Pass := Edit5.text;
Players[1].Active := True;
Players[1].Strings[1] := What_To_Mine2;
Players[1].Integers[2] := Loads2;
writeln(inttostr(HowManyPlayers) + ' Players');
end;
{-------------------------------}
{ Magical - Main Loop =) }
{-------------------------------}
{ Do Not Touch! }
//_______________________________//
begin
SetupSRL;
LoadVars;
SafeInitForm;
SafeShowFormModal;
DeclarePlayers;
SmartSetupEx(108, false, true);
SetTargetDC(SmartGetDC);
Login;
repeat
repeat
if (not(Loggedin)) then Break;
Walk;
MineRocks;
Proggie;
Banking;
Proggie;
until (Banked > Players[CurrentPlayer].Integers[2])
if not (LoggedIn) then
begin
WriteLn('next player, your noob is logged out');
NextPlayer(false);
Banked := 0;
end else
begin
WriteLn('succesfull switch:');
NextPlayer(true);
Banked := 0;
end;
until(False);
end.
{--------Main Loop Ends----------}
{-Script Ends Here :(-}
1.5 years old !!!
Of course a payed scripter will have the biggest motivation for makeing a better script than someone just doing it for fun.
I've lived with one rule throughout my gaming /scripting(i wouldn't say i have a scripting carrier but the rule carries over) carrier. As soon as real world money goes into it, im out. Its the same reason why i'd never play WOW or any other p2p game, including runescape members. GAming is just a hobby not something you invest your money into tog et pixelated things in return because for the most part after awhile those pixelated things are gonna go away you'll grow up and then you'll wish you saved your money for a car or those bill payments you really need to send off soon. So i could full well go and buy RID but i'd rather stay here: its free and yea i might get banned easier but i'd rather get banned the screw myself over IRL.
my two cents