SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Java, PHP, C, C++, MySQL, AJAX (if you can call that programming)

Other Communitys
none really

How Long have You Played Runescape
From time to time, maybe 3 years

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

Hello again, I applied with another account some days ago.
That account is wrong though, this is my real account, I had wrong username and so on so it wouldn't work out that great, sorry for that.

Right, I'm 18 years old from Sweden. I've studied 3 years at an IT school and I've had programming as my special subject. I've programmed in many languages I started scar scripting some days ago. I know that you think that one should learn ALOT about scripting before applying but I think it's too easy.

I don't want to be cocky or anything but since I've programmed alot of other languages this one was really easy to learn, so you don't think that I don't know anything about it.
How to make the procedures, functions, switch-cases, different loops, string concating, string manipulating and so on, it's really easy.

As I wrote earlier I've programmed in many different languages like Java, PHP, C, C++, MySQL (SQL), AJAX.

I've spent my whole Saturday learning how the scar-scripting language is built and I did it. It took some time but it was worth it. So on the Sunday I wrote my first script "RiddareRalf's Powerminer", I've got some ideas from different people and I've credited them in my script.

I've also followed the standard programming rules with spaces and so on and I've written a script info in the beginning.

This up coming weekend I will continue to develop my script and add a banker (I've played around and learned the radialwalk procedures and the similar so I'm sure I will release a newer version of it).

If this script is too bad then I'll apply later with a better one that can bank.

To add is that I haven't really got any response in my threads but I've tried it at my laptop and my stationary computer and it works good.
I'm going to tweak it some more later since I've found some unnecessary code rows.

Thanks

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

{.Script Info:
# ScriptName  = RiddareRalf's Powerminer
# Author      = RiddareRalf  [RiddareRalf@gmail.com]
# Description = This is a powerminer for RS2 using SRL.
                Please fill in all the required info below.
# Version     = 0.20   (for Scar 2.03 and SRL version 3.6)
# Date        = 20.05.2007
# Comments    = Under development...
/Script Info}

{If you would like to share this script to other
 sources then please ask me first. }

{Also, please post a comment or progress at:
http://www.villavu.com/forum/showthread.php?t=10341}

{=========================================================================]
| Description:                                                            |
|   This is a script that will powermine almost any ore for yo.           |
| Instructions:                                                           |
|   1.Use a 32bit resolution and set your RS brightness to very bright.   |
|   2.The script is suited for Scar 2.03 using SRL.                       |
|   3.Start next to mining rocks.                                         |
|   4.have the pickaxe wielded or in the inventory slot, remember to      |
|   adapt the constant "PickWielded" to your settings.                    |
|   5.Please fill in ALL the necessary info below or the script won't     |
|   work correctly.                                                       |
[=========================================================================}

program RalfsPowerMiner;

{.include srl/srl.scar}
{.include srl/srl/skill/Mining.scar}
{.include SRL/SRL/Misc/Trade.scar}
{.include srl/srl/skill/Fighting.scar}

//==============================[Setup]===================================\\
const
  // Script Setup
  ThisVersion  = '0.20';   // The current version of this script
  DownloadNewsVar = True; // If it should download the latest news
  CheckForUpdates = True; // If it should look and download updates
  UseAntiBan = True;      // You know what this is...

  // Player Setup
  StartPlayer  = 0;       // The player to start with
  AmountOfPlayers = 1;    // Change this to the amount of characters
  MiningWait   = 2;       // Max time to wait before taking next ore (Seconds)
  PickWielded  = False;   // Is your pickaxe wielded?
  HowManyLoads = 120;       // The number of loads to do
  RunningDir   = 'N';     // Direction to run if you get attacked
  RunFar       = True;   // Run far if being attacked?
  OreTolerance = 2;     // Change this if you know what it is

  // Ore colors
  ClayColor=3764366;      // If ore isn't found then change this value
  CopperColor=5870567;    // If ore isn't found then change this value
  TinColor=9013652;       // If ore isn't found then change this value
  IronColor=2305869;      // If ore isn't found then change this value
  SilverColor=10921650;   // If ore isn't found then change this value
  CoalColor=2438711;      // If ore isn't found then change this value
  GoldColor=2016753;      // If ore isn't found then change this value
  MithrilColor=7425100;   // If ore isn't found then change this value
  AdamantiteColor=6717286;// If ore isn't found then change this value
  RuniteColor=0;          // To come but who do even powermine runite?

var
OreDTM, LoadsDone, OreToMineColor : Integer;
OresMined : Integer;
Experience, ExpValue : Extended;

//===========================[Player Setup]================================\\
procedure DeclarePlayers;
begin
     HowManyPlayers := 6; // Don't edit this one

     CurrentPlayer := StartPlayer;
     NumberOfPlayers(HowManyPlayers);

     Players[0].Name    :='Username';
     Players[0].Pass    :='Password';
     Players[0].Nick    :='ess';  // 3-4 letters from your name. No CAPS
     // Names: Clay, Copper, Tin, Iron, Silver, Gold, Mith, Addy)
     Players[0].String1 :='Iron'; // What do you want to mine?
     Players[0].Active:= True;

     Players[1].Name    :='Username';
     Players[1].Pass    :='Password';
     Players[1].Nick    :='ssw';
     Players[1].String1 :='Copper';
     Players[1].Active:= False;    // Be sure to change this if you are using multiple players

     Players[2].Name    :='Username';
     Players[2].Pass    :='Password';
     Players[2].Nick    :='ssw';
     Players[2].String1 :='copper';
     Players[2].Active:= False;

     Players[3].Name    :='Username';
     Players[3].Pass    :='Password';
     Players[3].Nick    :='ssw';
     Players[3].String1 :='Copper';
     Players[3].Active:= False;

     Players[4].Name    :='Username';
     Players[4].Pass    :='Password';
     Players[4].Nick    :='ssw';
     Players[4].String1 :='Copper';
     Players[4].Active:= False;

     Players[5].Name    :='Username';
     Players[5].Pass    :='Password';
     Players[5].Nick    :='ssw';
     Players[5].String1 :='Copper';
     Players[5].Active:= False;
end;

//======================================================================\\
//                          My Signature                                \\
//======================================================================\\
procedure Signature;
begin
  Writeln('______ _     _     _               ______      _  __' );
  Writeln('| ___ (_)   | |   | |              | ___ \    | |/ _|');
  Writeln('| |_/ /_  __| | __| | __ _ _ __ ___| |_/ /__ _| | |'  );
  Writeln('|    /| |/ _` |/ _` |/ _` | |__/ _ \    // _` | |  _|');
  Writeln('| |\ \| | (_| | (_| | (_| | | |  __/ |\ \ (_| | | |'  );
  Writeln('\_| \_|_|\__,_|\__,_|\__,_|_|  \___\_| \_\__,_|_|_|'  );
 Writeln('RiddareRalf provides you with:');
 Writeln('            RiddareRalfs Powerminer');
end;

//======================================================================\\
//                          Progress Report                             \\
//======================================================================\\
procedure ProgressReport;
begin
  SRLRandomsReport;
  Writeln('==========================================');
  Writeln('     RiddareRalfs Progress Report:');
  Writeln('');
  Writeln('    Name:       ' + Players[CurrentPlayer].Name);
  Writeln('    Ores mined: ' + IntToStr(OresMined));
  Writeln('    Experience: ' + FloatToStr(Experience));
  Writeln('    Loads done: ' + IntToStr(LoadsDone));
  Writeln('    Worked for: ' + ScriptTime2(1));
  Writeln('==========================================');
end;

//======================================================================\\
//             CheckVersion Script  (Idea taken from Sumilion)          \\
//======================================================================\\
procedure CheckVersion;
var
  TheFileNumber: Integer;
  CurrentVersion: Extended;
  TheScriptString, ScriptName, CurrentVersionString : string;
begin
  CurrentVersionString := GetPage('http://www.wiileague.org/RS/currentversion.txt');
  CurrentVersion := StrToFloat(CurrentVersionString);
  if(CurrentVersion > StrToFloat(ThisVersion)) then
  begin
    Cleardebug;
    Writeln('Attention!');
    Writeln('');
    Writeln('There is a new version available!');
    Writeln('Downloading the latest version...');
    TheScriptString := GetPage('http://www.wiileague.org/RS/powerminer.txt');
    ScriptName := 'RiddareRalfs Powerminer  v' + CurrentVersionString + '.scar';
    TheFileNumber := ReWriteFile(ScriptPath + ScriptName, false);
    WriteFileString(TheFileNumber, TheScriptString);
    Writeln('The script has now been downloaded!');
    Writeln('You can find the script at: ' + ScriptPath + ScriptName);
    TerminateScript;
  end;
end;

//======================================================================\\
//                 News Script  (Idea taken from Sumilion)              \\
//======================================================================\\
procedure DownloadNews;
var
  Timer, x  : Integer;
  New, TheNews, Temp : string;
begin
  Status('The news is being downloaded...');
  Wait(1);
  x := 0;
  TheNews := Getpage('http://www.wiileague.org/RS/thenews.txt');
  AddToReport('[==========================]');
  AddToReport('  RiddareRalf News (V ' + ThisVersion + ')');
  MarkTime(Timer);
  repeat
    x := x + 1;
    new := copy(TheNews, x, 1);
    if(new = ',') then
    begin
      AddToReport('  ' + Temp);
      Temp := '';
    end;
    if not (new = ',') then
      Temp := Temp + new;
  until (new = '|') or (TimeFromMark(Timer) >= 3000)
  AddToReport('[==========================]');
  Status('Running script...');
end;

//======================================================================\\
//                          Load Images                                 \\
//======================================================================\\
procedure LoadImages;
begin
  OreDTM := DTMFromString('78DA635CC8C0C0D0C98002F6E41A30FC07D28' +
    'C40FC1F0818970219B50C6880918115AA06CC5B03241A08A8590E' +
    '242611503317484C27A0661211E680CC68C6AF06001A2C0EAA');
end;

//======================================================================\\
//                  Free Images (This is for the memory)                \\
//======================================================================\\
procedure FreeImages;
begin
  FreeDTM(OreDTM);
end;

//======================================================================\\
//                          Find Gas (Anti Random)                      \\
//======================================================================\\
procedure FindTheGas;
begin
  if (FindGas(x, y)) then
  begin
    //PerfectNorth;    // Same here, we don't want to run in the wrong dir
    MakeCompass('N');
    HighestAngle;    // Just to make sure
//    RunAwayDirection(RunningDir);
    Wait(29000);
//    RunBack;
  end;
end;

//======================================================================\\
//                 FindTheRandoms - Finds the randoms                   \\
//======================================================================\\
// Switch case because I might extend this one
procedure FindTheRandoms;
var
  i: Integer;
begin
  for i := 1 to 5 do
  begin
    case I of
    1:  FindTalk;
    2:  FindNormalRandoms;
    3:  FindTheGas; // Always good to check for this an extra time
    4:  FindPick;   // Checking for the pickaxe
    5:  FindTalk;   // Call it a third time to be sure
    end;
    Wait(1)
  end;

  if (FindFight) then
  begin
    Runawaydirection(RunningDir);
    Wait(16000);
    RunBack;
  end;
end;

//======================================================================\\
//     MouseAntiBan - Moves mouse human-like (Anti-ban) By Yakman      \\
//======================================================================\\
procedure MouseAntiBan;
begin
  if not(LoggedIn)then Exit;
  case Random(6) of
    0 : IdleTime(1000 + Random(350),500,1.0);
    1 : IdleTime(1000 + Random(350),1000,1.0);
    2 : IdleTime(1000 + Random(350),750,0.5);
    3 : SleepAndMoveMouse(2500 + Random(2500));
    4 : SleepAndMoveMouse(1500 + Random(1500));
    5 : SleepAndMoveMouse(500 + Random(500));
  end
end;

//======================================================================\\
//         MyAntiBan - Anti-Ban procedure by Yakman (modded a bit)      \\
//======================================================================\\
procedure MyAntiBan;//From Yakman
var
  DItem, DBanMe : Integer;
begin
  if not(LoggedIn)then
    Exit;
  if not(UseAntiBan)then
    Exit;
  DBanMe := Random(18);
  case DBanMe of
    0 : MMouse(Random(MSX2), Random(MSY2),0,0);
    1 : RandomRClickEvery(2 + Random(13));
    2 : HoverSkill('mining', False);
    3 : HoverSkill('smithing', False);
    4 : RotateEvery(20+random(10));
    5 : LeaveScreenEvery(5+random(5));
    6 : HoverEvery(15+random(5),'random');
    7 : HoverEvery(15+random(5),players[currentplayer].skill);
    8 : MouseAntiBan;
    9 : begin
          DItem:=1+random(14);
          if(ExistsItem(DItem))then
            DragItem(DItem,15+random(10));
        end
    10 : begin
           GameTab(1+random(12));
           wait(1500+random(500));
           GameTab(4);
         end;
    11 : HoverSkill('fletching', False);
    12 : HoverSkill('cooking', False);
    13 : HoverSkill('defence', False);
    14 : HoverSkill('hitpoints', False);
    15 : HoverSkill('fishing', False);
    16 : begin
           MakeCompass('S');
           wait(1500+random(500));
           MakeCompass('N');
         end;
    17 : begin
           MakeCompass('W');
           wait(1500+random(500));
           MakeCompass('N');
         end;
    18 : begin
           LowestAngle;
           Wait(random(500));
           MakeCompass('E');
           Wait(random(250));
           HighestAngle;
           Wait(random(500));
           MakeCompass('N');
           Wait(random(250));

         end;
  end;
end;

//======================================================================\\
//                          Start Mining                                \\
//======================================================================\\
procedure MiningProcedure;
begin
    repeat
      if(FindObj3( x, y, 'Mine' , OreToMineColor, OreTolerance)) then
      begin
           MMouse(x,y,0,0);
           FindTheGas;
           Wait(150+random(100));
           Mouse(x,y,3,3,true);
           FindTheRandoms;
           FindTheGas;
           Wait(MiningWait * 1000);
      end;
      Wait(Random(500));
    until (invfull)
end;

//======================================================================\\
//                          Drop Ore                                   \\
//======================================================================\\
procedure DropOre;
begin
  OresMined := OresMined + (CountItemDtm(OreDTM) - 8);
  Experience := OresMined * ExpValue;
  repeat
    if(FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2)) then
    begin
      Mouse(x, y, 0, 0, false);
      wait(400 + random(100));
      ClickOption('rop',2);
      wait(1000 + random(200));
      FindTheRandoms;
    end;
  until (not FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2))
  LoadsDone := LoadsDone + 1;
end;

//======================================================================\\
//                          Setup Player                                \\
//======================================================================\\
procedure SetupPlayer;
begin
  Loadsdone:=0;
  MakeCompass('N');
  HighestAngle;
  FindPickHeadColor;

  // Setup the color to mine
  case Players[CurrentPlayer].String1 of
   'Copper' : OreToMineColor := CopperColor;
   'Tin'    : OreToMineColor := TinColor;
   'Iron'   : OreToMineColor := IronColor;
   'Silver' : OreToMineColor := SilverColor;
   'Gold'   : OreToMineColor := GoldColor;
   'Coal'   : OreToMineColor := CoalColor;
   'Mithril': OreToMineColor := MithrilColor;
   'Addy'   : OreToMineColor := AdamantiteColor;
  end;

  // I rather do this than using begin and end, less  code
  case Players[CurrentPlayer].String1 of
   'Copper' : ExpValue := 17.5;
   'Tin'    : ExpValue := 17.5;
   'Iron'   : ExpValue := 35;
   'Silver' : ExpValue := 40;
   'Gold'   : ExpValue := 65;
   'Coal'   : ExpValue := 50;
   'Mithril': ExpValue := 80;
   'Addy'   : ExpValue := 95;
  end;
end;

//======================================================================\\
//                          Switch Player                               \\
//======================================================================\\
procedure SwitchPlayer;
begin
  if((CurrentPlayer + 1) = AmountOfPlayers) then
  begin
    Writeln('The script is now done!');
    Logout;
    TerminateScript;
  end;
  NextPlayer(True);
  OresMined := 0;     // We must set this to 0 since it's a new char
  Experience := 0;    // We must set this to 0 since it's a new char
  Writeln('Switched players successfully');
  SetupPlayer;
end;

//======================================================================\\
//                          Setup Script                                \\
//======================================================================\\
procedure SetupScript;
begin
  SetUpSRL;
  DisguiseScar('Untitled - Notepad');
  EquipPick := PickWielded; // Necessary
  LoadImages;
  wait(2000);
  DeclarePlayers;
  ActivateClient;
  LoginPlayer;
  SetUpSRLMining;
  PickUpItems := True; // Picking up randoms items if pickhead is gone
  BenMouse := False;   // Turning of BenMouse to speed up a little
  SetupPlayer;
end;

//======================================================================\\
//                          The Main Loop                               \\
//======================================================================\\
procedure MainLoop;
begin
  repeat
    if (LoadsDone = HowManyLoads) then
      SwitchPlayer;
    FindTheRandoms;
    if (not (LoggedIn)) then
    begin
      FreeImages; // The script stops now and we must free the memory
      Exit;
    end;
    MiningProcedure;
    DropOre;
    MyAntiBan;
    ProgressReport;
  until (false) // Never ending loop I know but I have "If not logged in"
end;

begin
  Cleardebug;
  ClearReport;
  Signature;
  if (CheckForUpdates) then
    CheckVersion;
  if (DownloadNewsVar) then
    DownloadNews;
  SetupScript;
  MainLoop;
end.

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

PMed new password. (next time you log on your account, take a look at your friends list)

Looks like a pretty nice script; I will study it a little more in-depth in a couple minutes…

Nice application RiddareRalf. ;)

Looks a bit too much like my script … im going to have to say no. Nevertheless a very good application :p

From: Sumilion
Looks a bit too much like my script … im going to have to say no. Nevertheless a very good application :p

Yeah ofcourse I learned from your script as I did from many others.
I did also improve some parts of your news-downloading script but I respect your decision, thanks for the post.

a pretty nice script, love the name too :P (im from finland if youre wondering)

just wondering how much of that is copied?

From: JuKKa
a pretty nice script, love the name too :P (im from finland if youre wondering)

just wondering how much of that is copied?

It's hard to say. I mean basicly all the programs do they same thing:
1. Look for randoms
2. Mine (And look for randoms in this procedure)
3. Drop (and look for randoms)
4. Go to step 1

So all the Powerminers should look like this, according to me this is a standard setup.

And as I said, the ideas I got like news system and autoupdater is credited in the text. I've also looked at the report/comments of many other Powerminers and took their feedback to get some ideas. Many people say interesting stuff there. What I think that people might make wrong is that they sit around and wait for feedback on THEIR post, while they could look at others and for example get the "You should add random timers to your procedures".

Its good but i think you should get to know the community a bit better.

Edit : Oh sorry didn't realize this isn't your first account.

From: jahuro
Its good but i think you should get to know the community a bit better.

Edit : Oh sorry didn't realize this isn't your first account.

Well don't be. My other account were created some days ago so I haven't even been a member for a week yet.
What I thought though was that the "Member Area" was for coders who wanted to share knowledge between eachother to create better scripts together. Not to know the community but yet again knowing the community is good I suppose.
Thanks and I respect your decision.

From: RiddareRalf
Well don't be. My other account were created some days ago so I haven't even been a member for a week yet.
What I thought though was that the "Member Area" was for coders who wanted to share knowledge between eachother to create better scripts together. Not to know the community but yet again knowing the community is good I suppose.
Thanks and I respect your decision.

It is mainly to extend your brain to a higher level :)

And im sure you'll get in, you seem to have the correct attitude and you know a thing or two about scripting ;)

good app and anything. u fit for the thing i guess.

Right, I'm 18 years old from Sweden. I've studied 3 years at an IT school

Right, I'm 12 years old from Finland.I've studied 0 years at an IT school

haha small brat getting to decide letting IT -(expert?)- in to some forums :)

umm, script is actually good but the mining procedure isnt kinda masterpiece.
this is what I had when I was applying. It was powerminer too.

function Mine: boolean;
var mining: boolean;
  InventoryNumber: integer;
begin
  repeat
    InventoryNumber := InvCount;
    if (findobj(x, y, 'ine', RRockColor, 10)) then
    begin
      x := x + random(3);
      y := y + random(3);
      if (not (FindGas(x, y))) then
      begin
        Mouse(x, y, 0, 0, true);
      end;
      mining := true;
      if (FindGas(x, y)) then
      begin
        Writeln('Gas Detected!');
      end;
      if mining then
      begin
        repeat
          randoms;
          wait(100 + random(20));
          nesbored;
          wait(100 + random(20));
        until (not (rockexists));
      end;
      if (invcount = inventorynumber + 1) then
      begin
        result := true;
        if (result = true) then
        begin
          writeln('Succesfully mined a rock!');
        end;
      end;
    end;
  until (invfull);
end;

You should have something else than the miningwait thing in the mining procedure's loop in the until part.
I had RockExists:boolean there, didnt put it to the scar tags with the mining procedure but you should try, for me it worked perfectly :)

Ill vote yes

You seem to be at least a somewhat good scripter, but what i would like to know is if you could make a original script, as you said, there is already a (perfect) standard found for autominers, try to think of something else. We can see you know how to use SRL but what we can not see is how good you are of making new ideas. I wont vote, but i would like to see a script that shows not only your ability to learn from others, but also your ability to be original.

From: iloveit8
You seem to be at least a somewhat good scripter, but what i would like to know is if you could make a original script, as you said, there is already a (perfect) standard found for autominers, try to think of something else. We can see you know how to use SRL but what we can not see is how good you are of making new ideas. I wont vote, but i would like to see a script that shows not only your ability to learn from others, but also your ability to be original.

Alright. My next project is an auto smelter so we will be able to see there what I can accomplish. I did look in the free section because I wanted to try one out but many of them are broken and not many work fully.
So that's what I will do

ok, good luck with it(btw i almost never vote with member apps)

Yes i agree, its quite generic like most other miners.
I dont think we should even accept miners anymore because everyone just looks at wizzups or sumulions and 'bases' it off of those.

Its a great script though i like it =).
Try chaning the mining procedure though.
Dont make it repeat until invenful.
Make the repeating in your actual main loop.

Nice script and very well laid out i think. I love that you know so many programming languages and i think becuase of that, it will be very easy for you to get really good at this one. -Yes-

No from me. The most important part of the script (mining procedure) can easily fail. Copied and "modded" 2 of Yakman's (big) procedures.

From: YoHoJo
Yes i agree, its quite generic like most other miners.
I dont think we should even accept miners anymore because everyone just looks at wizzups or sumulions and 'bases' it off of those.

Its a great script though i like it =).
Try chaning the mining procedure though.
Dont make it repeat until invenful.
Make the repeating in your actual main loop.

Why should I change the mining procedure?
It has never failed and I rather have a clean main loop than setting the repeat there.
Why shouldn't I use repeat intul invfull, what's wrong with it?

You can do something like

if Players[CurrentPlayer].Location := 'Mine' then
begin
  repeat
    if(not(loggedin))then Break;
    Mine;
    FindRandoms
  until Inventory = 28
end;

except you will only need this in a walking script.. may i suggest:

repeat

  repeat
    if(not(loggedin))then Break;
    Mine;
    FindRandoms;
  until Inventory = 28
  
  if loggedin then 
  begin
    DropOre;
    Players[CurrentPlayer].Banked := Banked + 1;
  end;

  if Players[CurrentPlayer].Banked Mod HowManyLoads then
  begin
    SetChat('Off', 1);
    SetChat('Off', 1);//i think this is how to turn off first chat =S
    repeat
       Wait(100);
       FindRandoms; //Finds Randoms until idle forces logout
    until(not(loggedin))
    NextPlayer(True);
    SetUpPlayer;
  end;

  if(not(loggedin))then
    NextPlayer(False);

  ProgressReport;
 
until fasle

i suppose u no what nextplayer(true) and nextplayer(false) does…



Check Out The SRL Template!!!
Scar Folder\Includes\SRL\Scripts\SRLTemplate.scar

thats just how most SRL scripts are made… and its much easier to read IMO
Very nice application btw. Love your english =p, but may i ask… what makes you script for Runescape? Fun/Challenging/Bored?

Also, Im going to vote yes… because you seem to know what your doing.
and also seem like you are going to help this community quite a bit :)

Hmm, I want to say yes but a power miner is so generic. I'm not voting yet maybe you have something up your selve. BTW(sorry little off topic) your so lucky to get time to spend a whole saturday writing scar scripts. I'm at uni too and I have so much study to do it's crazy!! But good luck I'll check back and see your smelter when you bring it out!

Hmm, overall good script…

Some of the copied procedures I'm not so hot about though, or at least that's what people say :P

Decent script. Note, in your anti-ban procedure it will never to number 18. Only 0-17. You would have to raise it to Random(19). Other than that it looks nice, standards, etc. We'll see what happens ;)

Also noticed, in FindTheGas it always waits the exact same amount of time if I didn't miss something.

From: RiddareRalf
Well don't be. My other account were created some days ago so I haven't even been a member for a week yet.
What I thought though was that the "Member Area" was for coders who wanted to share knowledge between each other to create better scripts together. Not to know the community but yet again knowing the community is good I suppose.
Thanks and I respect your decision.

Just out of curiosity, what is the name of your other account and why did you create a second ?

and YES, the "Member's Area" is for that reason, but becoming a member is not based solely on your ability to script… Good Luck with your app, and we all look forward to seeing more of your abilities.

RAM

From: RAM_RUNE
Just out of curiosity, what is the name of your other account

Stolenhoez

Oh, well that is a special name :o

I could see why he made another.

The thing is that I have a spam mail and nick which is the "stolenhoez" account. I use it to explore alot of sites that aren't too serious (since there are MANY of them around).
I don't know why I applied with it though, but after some time I realized that this was a serious site so I rather use my real nick for that.

So what will happen now?

You'll get flamed for double posting …JK but Please use the edit button located at the bottom right…..

You just need to have a bit of patience.

~RAM

In.