2009-09-04 04:24:49
2009-09-04 04:27:46
2009-09-04 04:50:38
2009-09-04 04:56:23
2009-09-04 05:02:34
2009-09-04 05:04:12
2009-09-04 05:07:43
From: pl0xmypl0x
Iv never seen him on these forums =/
2009-09-04 05:10:17
2009-09-04 05:11:21
2009-09-04 05:16:10
2009-09-04 05:29:59
2009-09-04 05:39:09
2009-09-04 05:53:12
2009-09-04 05:54:13
From: YoHoJo
The website just looks flashy and he talks in a way that makes it seem like the best thing ever, all it is, is some guy trying to make money off of a macro that he is making look 100X better than it actually is.
SRL im in opinion is the best, open source, huge community, fix stuff fast, great staff, user friendly ect ect, that's just a guy trying to sell stuff and get rich.
So yes it is possible, and its already happening. SRL is very human like and that website is just a load of crap to make money! Roar!
Yes that mouse movement is possible in scar, and its better, MMouse is way more human like than that, and SRL is i bet 100X less detectable than that program too.
2009-09-04 06:05:30
From: Tad
RID is extremely popular in the botting scene, and most people who've used it agree that it's the best/most amazing thing they've ever used (in fact I've never seen somebody say they don't like it).
MMouse moves directly (well not directly, I believe it moves in a slightly indirect path) as far as the human eye can see. When I play legit I move my mouse a lot more like RID's, a bunch of random movements before making a large arc-like movement towards my target. And also, SRL is definitely not more detectable than RID. I remember reading that they've had ~15 people banned in all their time selling it, and those 15 didn't follow their 'guidelines' (I don't know what they are, I guess it just tells you to not auto for more than 10 hours a day, play legit, etc).
@Boreas - How do you know Jagex doesn't look for those kinds of things?
@Smarter Child - Sure, but the question is not can he, it's will he :p
2009-09-04 06:56:23
2009-09-04 07:37:17
2009-09-04 08:36:44
2009-09-04 12:13:49
2009-09-04 12:57:24
From: djcheater
rid is a solid, low fail bot, prefer it to scar..
2009-09-04 23:29:59
2009-09-05 00:06:50
From: djcheater
u need to adjust mouse speed…
2009-09-05 02:26:09
From: Smarter Child
*cough*, why waste real money on a bot, is runescape really that worthed. The cost isn't the issue, just is it really worthed, I find paying for a bot for a game lame..SRL offers tonnes of scripts, that are almost as good as RID.
~~ Stick with SRL ~~ [FREE IS GOOD :p]
2009-09-05 02:59:39
From: Lance
No offence to srl, but once you get a job you will understand what your time is worth. Unless your doing it for enjoyment it is simply not worth spending the time to learn to program srl and then bot up an acount when you could work for 1 hour and make enough money to buy a bot that can easily get you to 99 quickly.
SC its pretty much down to this.. would you rather work a few hours and make money to buy a bot.. or work for a month purfecting your script only to have to update it when rs updates :P
2009-09-05 05:26:14
From: Tad
Agreed. Look at it this way. Let's assume their 700 hours to 99 mage statistic is correct (Seems a bit excessive to me, but meh). Option 1 - Spend 700 hours on RS clicking away, and you have 99 mage. Option 2 - Get a job at McDonald's for minimum wage (which is like 7$/h I think?), work for 10 hours, and you have 70$, which is enough to buy 700 hours of RID. Option 3 - Use SRL or RSBot, but be prepared to deal with bugs, errors, updates, etc in exchange for those 10 hours you could have spent at McDonald's. "You get what you pay for" ;)
2009-09-05 06:35:13
From: Smarter Child
you shouldn't waste your life on silly games, such as runescape.
2009-09-05 07:11:20
From: Smarter Child
Paying for a bot is down right nerdy. Runescape is just a game, and it isn't the best game, you know. I do play now and then, and money isn't my issue. I feel sorry for you, that you care so much about a game, especially runescape. I'm probably younger than a few of you out there, and I'm mature enough to know that you shouldn't waste your life on silly games, such as runescape.
2009-09-05 08:48:09
2009-09-05 09:24:35
2009-09-05 10:40:19
From: Tad
[*]Use a free bot which will come with the usual bugs, errors, waiting for updates, etc.
2009-09-06 01:21:10
2009-09-06 01:33:44
From: cycrosism
Bullshit, that says it's undetected by past and current systems (Which I could believe) but future systems? How would they know that?? They don't know it for sure and that is fully undetectable, no person ANYWHERE plays runescape 24/7, people have to eat, go to the bathroom, etc.
And people would get INCREDIBLY bored mining/cutting/fighting for 24 hours.
From: YoHoJo
If that's referring to SRL, then you are wrong grrr!
2009-09-06 02:04:49
2009-09-06 02:06:36
From: YoHoJo
The website just looks flashy and he talks in a way that makes it seem like the best thing ever, all it is, is some guy trying to make money off of a macro that he is making look 100X better than it actually is.
SRL im in opinion is the best, open source, huge community, fix stuff fast, great staff, user friendly ect ect, that's just a guy trying to sell stuff and get rich.
So yes it is possible, and its already happening. SRL is very human like and that website is just a load of crap to make money! Roar!
Yes that mouse movement is possible in scar, and its better, MMouse is way more human like than that, and SRL is i bet 100X less detectable than that program too.
2009-09-06 02:10:02
From: Smarter Child
- Wasting your time playing runescape.
- Wasting your time working, to then make money, to then use that money on paying for a bot that is for runescape.
Both reasons why you shouldn't buy RID. Silly games are okay to bot on, but why work, wasting your time and hard effort just to make your little pixelates look cooler….
I'm not trying to condemn anyone, but seriously. Listen to Smarter Child :p
2009-09-06 02:16:34
From: Tad
You forgot one
- Wasting your time downloading SRL, Reflection, figuring out how to move plugins (<- Those are if you're new), finding out which script, if any (<- key point right there), works for your purpose, then most likely having to spend time watching and fixing it, seeing as relatively few SRL scripts are flawless, ending up in a total loss of equal to or more time than those 10 hours you could have spent working + 5 minutes clicking download and then Run
Alternatively you could make your own script but if we're trying to figure out which is worth it the most that's not even close to what we're looking for :p
2009-09-06 02:58:19
From: Smarter Child
Tad, so what? You just have to sit down and type, not go work in a fast food restaurant, dealing with snotty customers.
Playing runescape is a waste of time too, but that's why we have SRL/Scar.
RID is just a bunch of baloney, and shouldn't even cross your mind. RID also comes with the the same consequences as SRL, you can get banned, and with RID you can get ripped off.
Stick with SRL, stick with what you have or gtfo SRL. Don't be ungrateful, be grateful that SRL is free. Be grateful for all the hard work the scripters here put into their scripts.
If you want RID, go ahead, but SRL is already easy enough to work with and is fine the way it is.
2009-09-27 03:46:37
2009-09-27 03:50:41
2009-09-27 06:21:39
From: Main_Ftw
What scar need is circular mouse movement. For example, from point 1 to point 2 lik a arc.
E.G
*What I'd like*
PT1
(
PT2
*Current scar is below*
PT1
|
PT2
2009-09-27 06:28:45
2009-09-27 06:30:07
2009-09-27 06:30:59
2009-09-27 06:32:59
2009-09-27 06:35:06
2009-09-27 06:56:05
From: Tad
I'm not ungrateful, but obviously someone who gets payed will, in most cases do a better job in doing something versus someone who's doing something completely for free. Again, the saying "You get what you pay for".
2009-09-27 07:02:53
From: Rasta Magician
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.
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
2009-09-27 07:26:18
From: Rasta Magician
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.
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
From: mormonman
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.
From: Tad
I'm not ungrateful, but obviously someone who gets payed will, in most cases do a better job in doing something versus someone who's doing something completely for free. Again, the saying "You get what you pay for".
2009-09-27 13:10:14
From: Rasta Magician
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.
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
{ /-------------\ /---------|
/ \ / \
/ \ / \
| | | | | |
| | | | | |
| | | | | |
|________| | |______ | |
/ / / /
/ / / /
/ / / / 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 :(-}2009-09-27 14:28:21
2009-09-27 20:48:39