SRL Archive - Archive

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

What is the meaning to life?
Have fun and be successful and the same time

Where you Referred to SRL? If yes, by whom?
yes
www.Sythe.org

Programming Knowledge
HTML

Other Communitys
www.Sythe.org

How Long have You Played Runescape
4 years

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

HI, my name is Adam. I'm 15 years old, I've been playing runescape for about 4 years, and i want to become an SRL member.
I think i should be an SRL member because i think i can script pretty well, I've made a powercutter that did 500+ willows for me and other people, unfortunately i lost it in a reformat, but ive seen this script do 25 or more loads before running into a bad random.
I've been a member of www.sythe.org for a while , but i'm not as active on there as i am on here(i know sythe is full of scammers but I AM NOT one of them). I hope you guys like my script!Post any questions you may have.

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

{                NOT JUST ANOTHER POWERMINER
                        BY: ADAMB_135
[----------------------------------------------------------------------------- ]
[                          >>   Description   <<                               ]
[ ---------------------------------------------------------------------------- ]
[  This script will mine and drop any kind of ores, it has full                                                                            ]
[  Antirandoms by SRL and Starblaster100, including gas detection                                                                            ]
[  and Pick head finding.                                                                            ]
[                                                                              ]
[ ---------------------------------------------------------------------------- ]
[                             >>  Credits  <<                                  ]
[ ---------------------------------------------------------------------------- ]
[    o SRL Community for Antirandoms and helping everyone out                                                                        ]
[                                                                           ]
[    o ~Alex~,Phonokin, and rest of SRL community again for helping me learn to script                                                                        ]
[    o I know i forgot someone just please PM me on [url]WWW.SRL-FORUMS.COM[/url]                                                                        ]
[                                                                            ]
[                                                                              ]
[ ---------------------------------------------------------------------------- ]
[                       >>      INSTRUCTIONS      <<                           ]
[ ---------------------------------------------------------------------------- ]
[    o Pick Colors of ore on MAIN SCREEN AND IN INV.                                                                      ]
[    o Set Usernames and passwords beginning at line 48                                                                       ]
[    o Set other random stuff in the const at line                                                                        ]
[    o Select runescape window with crosshair, and Click Go!                                                                        ]
[    o Leave feedback and proggress reports!!!!                                                                        ]
[ ---------------------------------------------------------------------------- }
program Powerminer;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/mining.scar}


{=====================]
[=====Setup===========]
[=====================}
const
  OreColorMain = 1712439; //Color of rock in main screen
  Loads = 10; //Number of loads to do before switching players
  Run = 'N'; //Run Direction---SET WITH CARE
  MineTime = 4000; //Time in milliseconds to mine rock before restarting-1000 ms is 1 second
  Skill = 'mining'; //Skill to use lamp on
{=====================]
[=====Setup ends======]
[=====================}
var
  Tries :Integer;
  LoadsDone :Integer;
  Talked :Integer;
  OreDrop : Integer;
  Lvl: Integer;

{=====================]
[====Player Setup=====]
[=====================}

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

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

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := true;

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Active := true;

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';
  Players[3].Active := true;
end;


procedure FreeDTMs;
begin
  FreeDTM(OreDrop);
end;

/////////////////////////////////////////////////////////////////////
{=====================]
[===Progress Report===]
[=====================}

procedure Report;
begin
  ClearDebug;
  Writeln('==========Adams Power Miner version 1.0=========');
  Writeln('---------------->Progress Report<---------------');
  Writeln(' Time Running : ' + ScriptTime2(2));
  Writeln('      did ' + IntToStr(LoadsDone) + ' Loads' + '    ');
  Writeln('Talked ' + IntToStr(Talked) + ' Times ' + '   ');
  Writeln('xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx');
end;
///////////////////////////////////////////////////////////
{=====================]

{=====================]
[==Find Fast Randoms==]
[====By: WT-Fawaki====}

function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 8 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: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
    end;
    wait(1);
  end;
end;
/////////////////////////////////////////////////////////////
{=====================]
[====Anti Randoms=====]
[=====Thanks SRL======}

procedure DoAntiRandoms;
begin
  GasColors(x, y);
  GasCheck(x, y);
  FindPick;
  if (FindFight) then
  begin
    RunAwayDirection(Run);
    Flag;
    wait(20000 + random(5000));
    RunBack;
    Flag;
  end;
  FindTalk;
  FindNormalRandoms;
  FindFastRandoms;
  FindLamp(Skill);
  FindPick;
  GasCheck(x, y);
  GasColors(x, y);
end;
////////////////////////////////////////////////////////
{=====================]
[======Anti Ban=======]
[=====================}

procedure AutoTalk;
var
  Talked: integer;
begin
  if (InChat('ining')) or
    (inChat('levels')) or
    (InChat('lvl')) or
    (inChat('lvls')) or
    (InChat('')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('mining')))
      Talked := Talked + 1;
  end;
end;

procedure NotPick;
begin
  if Inchat('do not have a pick') then
  begin
    nextplayer(false);
    Writeln('Lost Picks, Switching players.');
  end;
end;
//////////////////////////////////////////////////////

procedure AntiBanMe;
begin
  case Random(14) of
    2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
    4: HoverSkill('random', False);
    6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
    9: BoredHuman;
  end;
end;
////////////////////////////////////////////////////

procedure AntiBanAdam;
begin
  AutoTalk;
  AntiBanMe;
end;
////////////////////////////////////////////////////
{=====================]
[======Dropping=======]
[=====================}

procedure DropOresAdam;
begin
  marktime(mark);
  Writeln('Succsesfully mined a load of ores, Dropping ores')
    DwarfItem;
  OreDrop := DTMFromString('78DA63E4606060E0644001F99176609A11CA6' +
    '76405124C0C688011550DC81C3E026A406670E15703009537014C' +
    '');
  repeat
    if FindDTM(OreDrop, x, y, MIX1, MIY1, MIX2, MIY2) then
      Wait(10);
    Mouse(x, y, 2, 2, false);
    wait(300 + random(100));
    Clickoption('rop', 2);
    wait(300 + random(100));
  until not FindDTM(OreDrop, x, y, MIX1, MIY1, MIX2, MIY2);
  timefrommark(mark);
  if timefrommark(mark) > 8000000 then
  begin
    nextplayer(false);
    writeln('Lost, switching players');
  end;
end;
//////////////////////////////////////////////////////
{=====================]
[=======Mining========]
[=====================}

procedure MineOresAdam;
begin
  marktime(mark);
  if (not (LoggedIn)) then
    LoginPlayer;
  MakeCompass('N');
  Highestangle;
  Writeln('Mining Ores')
    Tries := 0;
  repeat
    begin
      DoAntiRandoms;
      wait(10 + random(10));
      if (findobj(x, y, 'ine', OreColorMain, 15)) then
        wait(10);
      wait(50 + random(25));
      Mouse(x, y, 2, 2, False);
      wait(50 + random(25));
      clickoption('Mine', 1);
      wait(50 + random(20));
      DoAntiRandoms;
      AntiBanAdam;
      wait(MineTime - random(100));
      DoAntiRandoms;
      if not (findobj(x, y, 'ine', OreColorMain, 15)) then
      begin
        Tries := Tries + 1
          if Tries > 35 then
        begin
          Writeln('Lost, Switching players');
          Nextplayer(false);
          Exit;
          Tries := 0;
        end;
      end;
    end;
    timefrommark(mark);
    if timefrommark(mark) > 8000000 then
    begin
      nextplayer(false);
      writeln('lost, switching players')
    end;
  until (InvFull);
  LoadsDone := LoadsDone + 1;
end;
Procedure Checklvl;
begin
  Lvl := GetCombatLevel;
      If (Lvl < 15) then
   begin
   Writeln('Do not auto on less than a level 15!!!')
      Nextplayer(false);
      end;
      end;

/////////////////////////////////////////////////////////////


{=====================]
[======Main Loop======]
[=====================}
begin
  SetupSRL;
  DeclarePlayers;
  SetupSRLMining;
  DisguiseScar('I love Jagex')
  Checklvl;
    repeat
      if (not (loggedin)) then
      begin
        Loginplayer;
        Fixchat;
        SetRun(true);
      end
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      MineOresAdam;
      DropOresAdam;
      Report;
      if (LoadsDone >= Loads) then
      Nextplayer(true);
      Writeln('Mined desired loads for this account, switching players')
      LoadsDone := 0;
    until (false);
end.

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

Scripts over all to simple, not enough fail safes, and I would have loved to see some DTMs (and possibly bitmaps).

Sorry, its a no from me for now. Keep it up though!

[kinda off topic] I don't like that so many people are applying with just power miners, because not any of them are original.. All you need to do is copy little things from everybody's power miner and you have the exact same one..
[/kinda off topic]

AgReED

I do like that he has "meaning to his life" though….seems not many applicants do these days ;)

It is quite simple but about the failsafes.. what else more could he have put in. I mean, the only place you need one is finding the rock, which he has done. You cant really put one anywhere else…. Im still quite undecided though.
Put a dtm in for dropping to show you can and I'll probably say yes.

From: RAM_RUNE
I do like that he has "meaning to his life" though….seems not many applicants do these days ;)

i remember when i applied there was no meaning to life question in the application. it only showed up after you posted.

[offtopic/spam] Same :D [/offtopic//spam]

If you guys let me put a dtm for dropping in when i get home from school today thast would be great, thanks

Hmm, weird about the meaning of life question, I thought people were just ignoring it….

Adam, Even though this is a very clean looking script..It's still just a powerminer..Simple, but effective..But Simple……perhaps you can demonstrate your ability to use walking and make this able to bank somewhere as well, Otherwise it is just like every other person that has applied with a powerminer script and been rejected , Good Luck, RAM

Added DTM dropping, works great!

Edit, can you guys PLEASE tell me why the ones of you that are saying no are saying no, becuse i want to know what to improve on next time if i fail! thanks

[offtopic/spam] Same [/offtopic//spam] me too!
(no from me sorry)

ive seen plenty of ppl get in on powerminers. he also used dtms, and its a nice clean script. ~ yes ~

Comeon guys, what kind of original script are you expecting? Pretty much nothing is original anymore except for a quest script. Christ, we even have scripts that spin wool and pick wheat now.

@Jad
I seem to recall you applying with a power miner as well. And it was only 50 lines longer than this one. I think you should be careful about what you decide is not deserving of membership and what is too "simple".

He gets a yes from me.

Added more failsafes, now can detect if you lost all of your pickaxes, and will move to the next player.
QUOTE:
not any of them are original.. All you need to do is copy little things from everybody's power miner and you have the exact same one..

I want to assure everyone this was all typed out by ONLY me, except for findfastrandoms and a couple other things, but everything else is mine, or adapted from an older version of my any tree power cutter!

I voted yes, It's a good, clean script and in theory should work well, although I havn't tested it. I think it and Adam has potential.

Bit simple, but you have potentional, yes from me.
Get familiar with Nextplayer/multiplayer though.

Thanks for the feedback.

Added even more failsafes, will now move to next player if either the mining procedure or the dropping procedure takes more than 8 minutes.

Learn multiplayer and fix standards in main loop

What do you mean learn multiplayer? i have it to where you can use 4 players, and switch when done with loads desired..isn't that multiplayer?

That is only half. You also should start using NextPlayer in anti-randoms and different areas so that if one player is lost it will switch to the next one.

From: omgh4x0rz
That is only half. You also should start using NextPlayer in anti-randoms and different areas so that if one player is lost it will switch to the next one.

Like this?

if not (findobj(x, y, 'ine', OreColorMain, 15)) then
begin
Tries := Tries + 1
if Tries > 35 then
begin
Writeln('Lost, Switching players');
Nextplayer(false);
Exit;
Tries := 0;
end;
end;


And this


if timefrommark(mark) > 8000000 then
begin
nextplayer(false);
writeln('lost, switching players')
end;

yea, but you know that 8,000,000 ms is about 2 hrs? You should keep each player's round to about 20 minutes

From: omgh4x0rz
yea, but you know that 8,000,000 ms is about 2 hrs? You should keep each player's round to about 20 minutes

oops, just a simple math mistake, sorry.

i approve XD

JP

Update: Will now log out and move to next player if combat level is less than 15, because it's stupid to auto on a lvl 14 or below.

that's a good idea, but i've seen that around lately, it dosent mean you JUST thought of it..

anyway, i'd say good attempt, but just not good enough. try making forms, maybe some auto color, DTM's and Bitmaps, Random movements when waiting for ores..

From: Thick As Blood
that's a good idea, but i've seen that around lately, it dosent mean you JUST thought of it..

anyway, i'd say good attempt, but just not good enough. try making forms, maybe some auto color, DTM's and Bitmaps, Random movements when waiting for ores..

Yeah, ill admit its been done before but to be honest ive thought of this idea a few weeks ago, i just didn't know how to do it.
Also auto coloring for ores is in the process of completion.

In.

lock it?

Edit: oh, it hasnt even closed

Umm.
Ill Close it