SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
HTML, CSS, JavaScript, SCAR

Other Communitys
Blender 3D, MSDN

How Long have You Played Runescape
2 Years

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

At first, playing RuneScape was fun. I could level up really fast and things like that. But later on, I got bored. So bored, that I looked on the internet on how to make the computer play games for me. That's how I found SCAR and SRL. Now I learned SCAR, but SRL is so much easier. I make some custom functions for my powerminers and fishers. I may be new to this, but not the worst scripter out there…

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

program D3V1LsPowerMinerReMade;

{ALL credit goes to 666d3vi1666 for his original PowerMiner}
{I just took the bare bones of it, added some custom functions, and made it a bit better in my case}
{xXxBlender3DxXx}

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
const
RockType = varrock_Iron;
{lumbridge_Copper, lumbridge_Tin, lumbridge_Mithril, lumbridge_Adament}
{varrock_Clay, varrock_Copper, varrock_Tin, varrock_Iron, varrock_Silver}
{rimmington_Clay, rimmington_Copper, rimmington_Tin, rimmington_Iron}
{falador_Clay, falador_Copper, falador_Tin, falador_Iron, falador_Coal, falador_Mithril, falador_Adament, falador_Rune}

SleepOnHalfInv = True;
{If script logs out for 40 seconds if your inventory is half full.}

RunAwayDirection = 'n';
{Direction to run away if script finds a fight.}
var
NonOres, OresFit, MinedOres, Ores, Loads, XPs, XPe, SLvl, ELvl: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
end;


procedure ProggyInfo;
begin
  MinedOres := 0
  Ores := 0
end;


procedure DropAllExcept(a : array of Integer);
var
  i: Integer;
begin
  for i := 1 to 28 do
    if not(InIntArray(a, i)) then
      DropItem(i);
end;

function IsCharacterMining: Boolean;
begin
   Result := GetBlackChatMessage = 'You swing your pick at the rock.';
end;

procedure ClickOption(TargetX, TargetY:Integer; OptionText:String);
begin
  Mouse(TargetX, TargetY, 3, 3, False);
  Sleep(75 + Random(75));
  ChooseOption(OptionText);
end;


procedure MineOre;
var RockX, RockY: Integer;
begin
FindNormalRandoms;

case Random(16) of
  0: MakeCompass('n');
  1: MakeCompass('e');
  2: MakeCompass('s');
  3: MakeCompass('w');
end;

  if FindObjRock(RockX, RockY, RockType) then
  begin
    WriteLn('Found rock!');
    if FindGas(RockX, RockY) then
    begin
      WriteLn('Found gas!');
      DropItem(3);
      WriteLn('Dropping item in inventory slot 3 to stop mining...');
      repeat
        Sleep(100);
      until not FindGas(RockX, RockY);
    
    if FindPickHeadColor then FindPick;
    
    if FindFight then
    begin
      WriteLn('Detected fight!');
      MakeCompass('n');
      WriteLn('Made compass face north...');
      Sleep(100 + Random(100));
      RunAway('n', false, 2, 3000 + (Random(1000)));
      WriteLn('Running away in direction: ' +  RunAwayDirection + '...');
    end;

    if IsCharacterMining then
    repeat
      WriteLn('Character is still mining ore...');
      WriteLn('Waiting 100 milliseconds...');
      Sleep(200);
      FindNormalRandoms;
    until not IsCharacterMining;
    
    Sleep(1500 + Random(50));
    
    WriteLn('Mining ore...')
    
    case Random(2) of
    0: Mouse(RockX, RockY, 3, 3, True);
    1: ClickOption(RockX, RockY, 'ine');
    end;
  end;
  
  FindNormalRandoms;
  Sleep(400 + Random(100));
  MinedOres := InvCount - NonOres;
end;
end;

procedure Proggy;
begin
  Writeln('**********************************************************');
  Writeln('Running Time  : ' + TimeRunning);
  Writeln('Non-Ores      : ' + IntToStr(NonOres));
  Writeln('Space for Ores: ' + IntToStr(OresFit));
  Writeln('Ores Mined    : ' + IntToStr(MinedOres + Loads * OresFit));
  Writeln('Loads Done    : ' + IntToStr(Ores));
  Writeln('XP Gained     : ' + IntToStr(XPe - XPs));
  Writeln('Start Level   : ' + IntToStr(SLvl));
  Writeln('End Level     : ' + IntToStr(ELvl));
  Writeln('**********************************************************');
end;

begin
  SetUpSRL;
  LoadRockRecords;
  DeclarePlayers;
  LoginPlayer;
  Sleep(1000 + Random(1000));
  
  XPs := GetXP('Mining');
  SLvl:= GetSkillInfo('Mining', False);

  repeat
    repeat
      repeat
        FindNormalRandoms;
        WriteLn('Attempting to mine an ore...');
        MineOre;
        if not LoggedIn then LoginPlayer;
        FindNormalRandoms;
        
        if SleepOnHalfInv = True then
        begin
          if InvCount = 14 then
          begin
            Logout;
            Sleep(50000 + Random(10000));
          end;
        end;
      until InvFull;
      
      if InvFull then
      begin
        FindNormalRandoms;
        Logout;
        WriteLn('Inventory is full...');
        WriteLn('Logging out and waiting for 2 minute and 25 seconds...');
        Sleep(140000 + Random(10000));
        LoginPlayer;
        FindNormalRandoms;
        WriteLn('Dropping inventory contents...');
        DropAllExcept([1, 2, 3]);
        Logout;
        Sleep(50000 + Random(5000));
        LoginPlayer;
        Ores := Ores + OresFit;
        Loads := Loads + 1;
      end;
    until Loads > 5;
    XPe := GetXP('Mining');
    ELvl := GetSkillInfo('Mining', False);
    Proggy;
  until false;
end.

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

The script isn't really 666dev1l666's. I just took the Proggy and FindRock function. The rest is mine…

no, sorry
too simple.
no walking.
no TPA's
no DDtm's
no DTM's

…. did you read the requirements

I'm not allowed to vote, so I won't. However, I will give you feedback.

1. ClickOption is completely unnecessary. ChooseOption clicks it for you.
2. Standards are off.
3. Mainloop is infinite.
4. Too simple.
5. No DTMs/DDTMs/TPAs/T2DPointArrays.
6. No walking.

If I were allowed, I would vote no.
But, I'm just going to give constructive criticism to help you get better, and not vote in the poll :)

If you don't get accepted, keep these things in mind the next time you apply :)

Well I will post proggy tomorrow. I updated it a little and it does work fine for me.. It ran for like two hours with no randoms. It's the whole point of the script; not to get randoms;

Can anyone tell me another way?
And what's Reflection?

I will re-make this script with DTMs and walking. I'll put in some autotalk features too. I'll apply later then…

Masterkill, get ur ass over here! :p

Ontopic: I wont vote on this one… You wont get in. The script is way to simple! A powerminer wont get you in to SRL-Members. Try something like a miner that banks, a smither, a wcer that banks, a fighter..? Something that is hard to make.. Remember: SRL-Members is for those who proved that they really can script.

I agree with joker… too simple show us a more complex script with some TPA's and such

Nuh uh.

I dont like the fact that it isnt very complex so you really need to add some more stuff to it as the other members have stated. Goodluck! :D

From: xXxBlender3DxXx
The script isn't really 666dev1l666's. I just took the Proggy and FindRock function. The rest is mine…

And yet you named the script "D3V1LsPowerMinerReMade" and in the script said,
"I just took the bare bones of it, added some custom functions, and made it a bit better in my case"

Sorry, but it sounds far to much to me like you are just copying and slightly modifying a script. For that alone it is a no from me.

But even if that wasn't how it appeared to me, I would say no because the script is far too simple.

The poll has closed.

Sorry.

0-Yes
8-No

Please stick around and read all of the suggestions people have posted and improve your script and reapply in one month.

Cheers,
Hobbit