SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
None

Other Communitys
sythe.org fagex.net moparisthebest.com

How Long have You Played Runescape
4 years

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

Well i started these forums as a noob copying and pasteing bits of scripts into my script and claiming its mine but then i thought how am i going to get in like this and i total started scripting again. Now i have everyones permission in my script to use there bits im confident that i can get in this time :).

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

{# ScriptName  = PowerMiner 3.04
# Author      = Rudeboialex
# Description = SRL PowerMiner
# Build       = 3.04
# Comments    = Only Scar 2.03 srl 3.6
Will Powermine Any Rocks Except Rune
# Thanks to Rkroxpunk For Inspireing Me To Do This Update
# Thanks Pentti For Dropping procedure
# Thanks sumilion for gas procedure
# Thanks Wizzup for autocolor
# FindPick Works Better With Weilded Pick
# The SolveFight Should OverCome The WalkBack Procedure.


//--------------------------------------------------------------------------
//__________                             _____  .__
//\______   \______  _  __ ___________  /     \ |__| ____   ___________
// |     ___/  _ \ \/ \/ // __ \_  __ \/  \ /  \|  |/    \_/ __ \_  __ \
// |    |  (  <_> )     /\  ___/|  | \/    Y    \  |   |  \  ___/|  | \/
// |____|   \____/ \/\_/  \___  >__|  \____|__  /__|___|  /\___  >__|
//     RudeBoiAlex Productions\/              \/        \/     \/
//---------------------------------------------------------------------------  }





Program RudeBoialexMiner;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Mining.scar}
{.include srl/srl/skill/Fighting.scar}

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

Const
Loads = 10;//How Many Loads To Do Per Player.
NumberOfUsers = 7;//How Many Players Are You Using.
StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
RunDir = 'N';//Direction To Run For Fights And Gas.
MiningInVarrok = True;//For WalkBack Procedure If U Die It Walksback.
Xmod = 1;//for radialwalk.
Ymod = -1;//for radialwalk.

{-------------------------------------------------------------------------------------
                                  AutoColor Leave Please
----------------------------------------------------------------------------------------}

Const
  CopperColor       = 3824768;
  TinColor          = 8553356;
  ClayColor         = 4553880;
  IronColor         = 2569045;
  SilverColor       = 12434885;
  CoalColor         = 2834753;
  GoldColor         = 1881051;
  MithrilColor      = 7359564;
  AdamantColor      = 6322272;
  RuniteColor       = 0;//POWERMINNING RUNE WTF
  
////////////////////////////////////////////////////////////////////////////
  
Procedure DeclarePlayers;
//If Not Using Any Left Over Players Delete There Forms.


  Begin
     HowManyPlayers:= NumberOfUsers;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := StartPlayer;


     Players[0].Name :='Username';
     Players[0].Pass :='Password';
     Players[0].Nick :='3 Leters Of Youre Name';
     Players[0].String1 :='Iron';  // What Ore To Mine.
     Players[0].String2 :='Tin';  // Another Ore To Mine.
     Players[0].String1 :='Copper';// A Third Ore To mine.
     Players[0].Integer1 := 5;//this is the loads for each player to do.
     Players[0].loc :='Mine';//Leave Please
     Players[0].Skill := 'attack';       //Skill for genie lamp
     Players[0].Active:=True;

     Players[1].Name :='Username';
     Players[1].Pass :='Password';
     Players[1].Nick :='3 Leters Of Youre Name';
     Players[1].String1 :='Iron';  // What Ore To Mine.
     Players[1].String2 :='Tin';  // Another Ore To Mine.
     Players[1].String1 :='Copper';// A Third Ore To mine.
     Players[1].loc :='Mine';//Leave Please
     Players[1].Integer1 := 5;//this is the loads for each player to do.
     Players[1].Skill    := 'attack';       //Skill for genie lamp
     Players[1].Active:=True;


     Players[2].Name :='Username';
     Players[2].Pass :='Password';
     Players[2].Nick :='3 Leters Of Youre Name';
     Players[2].String1 :='Iron';  // What Ore To Mine.
     Players[2].String2 :='Tin';  // Another Ore To Mine.
     Players[2].String1 :='Copper';// A Third Ore To mine.
     Players[2].loc :='Mine';//Leave Please
     Players[2].Integer1 := 5;//this is the loads for each player to do.
     Players[2].Skill    := 'attack';       //Skill for genie lamp
     Players[2].Active:=True;


     Players[3].Name :='Username';
     Players[3].Pass :='Password';
     Players[3].Nick :='3 Leters Of Youre Name';
     Players[3].String1 :='Iron';  // What Ore To Mine.
     Players[3].String2 :='Tin';  // Another Ore To Mine.
     Players[3].String1 :='Copper';// A Third Ore To mine.
     Players[3].loc :='Mine';//Leave Please
     Players[3].Integer1 := 5;//this is the loads for each player to do.
     Players[3].Skill    := 'attack';       //Skill for genie lamp
     Players[3].Active:=True;


     Players[4].Name :='Username';
     Players[4].Pass :='Password';
     Players[4].Nick :='3 Leters Of Youre Name';
     Players[4].String1 :='Iron';  // What Ore To Mine.
     Players[4].String2 :='Tin';  // Another Ore To Mine.
     Players[4].String1 :='Copper';// A Third Ore To mine.
     Players[4].loc :='Mine';//Leave Please
     Players[4].Integer1 := 5;//this is the loads for each player to do.
     Players[4].Skill    := 'attack';       //Skill for genie lamp
     Players[4].Active:=True;


     Players[5].Name :='Username';
     Players[5].Pass :='Password';
     Players[5].Nick :='3 Leters Of Youre Name';
     Players[5].String1 :='Iron';  // What Ore To Mine.
     Players[5].String2 :='Tin';  // Another Ore To Mine.
     Players[5].String1 :='Copper';// A Third Ore To mine.
     Players[5].loc :='Mine';//Leave Please
     Players[5].Integer1 := 5;//this is the loads for each player to do.
     Players[5].Skill    := 'attack';       //Skill for genie lamp
     Players[5].Active:=True;
     
     
     Players[6].Name :='Username';
     Players[6].Pass :='Password';
     Players[6].Nick :='3 Leters Of Youre Name';
     Players[6].String1 :='Iron';  // What Ore To Mine.
     Players[6].String2 :='Tin';  // Another Ore To Mine.
     Players[6].String1 :='Copper';// A Third Ore To mine.
     Players[6].loc :='Mine';//Leave Please
     Players[6].Integer1 := 5;//this is the loads for each player to do.
     Players[6].Skill := 'attack';       //Skill for genie lamp
     Players[6].Active:=True;

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars)
end;

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

Procedure Start;
Begin
Writeln('----------------------------------------------------------')
Writeln('                 _      _           _       _             ')
Writeln('                | |    | |         (_)     | |            ')
Writeln(' _ __ _   _  __ | | ___| |__   ___  _  __ _| | _____  __  ')
Writeln(' |  __| | | |/ _` |/ _ \  _ \ / _ \| |/ _  | |/ _ \ \/ /  ')
Writeln(' | |  | |_| | (_| |  __/ |_) | (_) | | (_| | |  __/>  <   ')
Writeln(' |_|   \__,_|\__,_|\___|_.__/ \___/|_|\__,_|_|\___/_/\_\  ')
Writeln('----------------------------------------------------------')
Writeln('            You Are Using Rudebois PowerMiner             ')
Writeln('                 "£$%^Please Enjoy^%$£"                   ')
Writeln('               ---Post Proggies Please---                 ')
Writeln('----------------------------------------------------------')
if (not(Loggedin)) then LoginPlayer;
SetChat('hide', 1);
DeclarePlayers;
End;

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

procedure SetOreColor;
begin
  case LowerCase(Players[CurrentPlayer].String1) of
    'copper'  :  OreColor1 := CopperColor;
    'tin'     :  OreColor1 := TinColor;
    'clay'    :  OreColor1 := ClayColor;
    'iron'    :  OreColor1 := IronColor;
    'silver'  :  OreColor1 := SilverColor;
    'coal'    :  OreColor1 := CoalColor;
    'gold'    :  OreColor1 := GoldColor;
    'mithril' :  OreColor1 := MithrilColor;
    'adamant' :  OreColor1 := AdamantColor;
    'runite'  :  OreColor1 := RuniteColor;
  end;
  case Lowercase(Players[CurrentPlayer].String2) of
    'copper'  :  OreColor2 := CopperColor;
    'tin'     :  OreColor2 := TinColor;
    'clay'    :  OreColor2 := ClayColor;
    'iron'    :  OreColor2 := IronColor;
    'silver'  :  OreColor2 := SilverColor;
    'coal'    :  OreColor2 := CoalColor;
    'gold'    :  OreColor2 := GoldColor;
    'mithril' :  OreColor2 := MithrilColor;
    'adamant' :  OreColor2 := AdamantColor;
    'runite'  :  OreColor2 := RuniteColor;
   end;
   case Lowercase(Players[CurrentPlayer].String3) of
    'copper'  :  OreColor3 := CopperColor;
    'tin'     :  OreColor3 := TinColor;
    'clay'    :  OreColor3 := ClayColor;
    'iron'    :  OreColor3 := IronColor;
    'silver'  :  OreColor3 := SilverColor;
    'coal'    :  OreColor3 := CoalColor;
    'gold'    :  OreColor3 := GoldColor;
    'mithril' :  OreColor3 := MithrilColor;
    'adamant' :  OreColor3 := AdamantColor;
    'runite'  :  OreColor3 := RuniteColor;
  end;
end;

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

procedure HandleGas; //Ty Sumillion
var
TempMouseSpeed, GasTime: Integer;
begin
  Writeln('Gas found!');
  TempMouseSpeed := MouseSpeed;
  MouseSpeed := 5;
  Mouse(MMCX, MMCY, 5, 5, true);
  MarkTime(GasTime);
  MouseSpeed := TempMouseSpeed;
while(TimeFromMark(GasTime) < 35000)do
if(Random(20) > 15)  then
  IdleTime(500, 500, 0.4)
else
  Wait(1000);
  ReportVars[3] := ReportVars[3] + 1;
end;

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

Procedure PowerMinerReport;  // Edit Of Wizzups.
Var
Ores, Gasses: integer;
Begin
  ClearDebug;
  WriteLn('----------------------------------------------')
  WriteLn('               Rudebois Powerminer            ')
  WriteLn('----------------------------------------------')
  WriteLn('Ores Mined and Dropped : '+IntToStr(Ores));
  If Gasses > 0 Then WriteLn('Number of avoided gasses: '+IntToStr(Gasses))
  Writeln('Worked for '+ TimeRunning);
  WriteLn('Fights Ran Away From: '+IntToStr(Fights));
  Writeln('----------------------------------------------')
  WriteLn('                Post Proggies Please          ')
  WriteLn('----------------------------------------------')
  WriteLn('          Thanks For Using My PowerMiner      ')
  WriteLn('            ---www.srl-forums.com---          ')
  WriteLn('----------------------------------------------')
End;

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

Procedure MineingFailsafes; // I Find It Easier To Do In A Seperate Procedure.
Begin
If Not (FindSymbol(x,y,mining spot)) Or (FindSymbol(x,y,'water')) Then
  Players[CurrentPlayer].loc :='Not At Mine Or Lummby';
  Players[CurrentPlayer].Active := False;
End;

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

Procedure SolveFight;
begin
if(InFight)then
 begin
  if(GetHp<GetSkillLevel('hitpoints'))then
   begin
    RunAwayDirection(RunDir)
    Fights:=Fights+1
    wait(40000+random(10000))
    if(not(loggedIn))then
    LogInPlayer;
    wait(1000)
    RunBack;
    TypeSend('Omg low health now');
   end;
 end;
end;

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

function FindFastRandoms: Boolean; //By WT-Fakawi.
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;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

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

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;

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

procedure AutoTalk;
Var
Talked: integer;
begin
if(InChat('Mining lvls?')) or
  (inChat('Mining levels?')) or
  (InChat('Mining lvl')) or
  (inChat('Mining level')) or
  (InChat('Mining level?')) or
  (inChat('Mining lvls')) or
  (inChat('Mining levels')) or
  (InChat('Mine lvl?')) or
  (InChat('Mine lvls?')) or
  (InChat('Mine lvl')) or
  (InChat('Mine lvls'))then
 begin
  TypeSend(IntToStr(GetSkillLevel('mining')))
  Talked:= Talked + 1;
  FindRandoms;
 end;
end;
  
/////////////////////////////////////////////////////////////////////////////////

Procedure AntiBanActions;
var
  DBanMe: Integer;
begin
DBanMe:= Random(10);
 case DBanMe of
 
    0: RandomRClickEvery(2 + Random(13));
    1: HoverSkill('Mining', False);
    2: RandomChatEvery(10 + Random(5));
    3: RotateEvery(20 + Random(10));
    4: LeaveScreenEvery(5 + Random(5));
    5: HoverEvery(15 + Random(5), 'Attack');
    6: PickUpMouse;
    7: BoredEvery(9 + Random(24));
    8: DragItem(1, 1 + Random(18));
    9: GameTab(1 + Random(12));
    10: RotateEvery(7 + random(4));
  end;
end;

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

Procedure WalkBack; //A Bit Buggy
Begin
  If (MiningInVarrok) And (FindSymbol(x,y,'water')) Or (InChat('you are dead')) Then
 Begin
  MakeCompass('N');
  HighestAngle;
  RadialRoadWalk(RoadColor, 85, 99, 60, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 76, 79, 67, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 40, 43, 66, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 331, 340, 62, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 0, 3, 65, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 326, 331, 60, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 355, 360, 65, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 32, 37, 66, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 50, 53, 66, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 32, 37, 66, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 50, 53, 66, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 70, 75, 65, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 93, 100, 64, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 49, 54, 68, Xmod, Ymod)
  RadialRoadWalk(RoadColor, 0, 3, 65, Xmod, Ymod) If
  (FindSymbol(x,y,'mining spot')) Then
  Mouse(x,y,2,2,True)
  FindRandoms;
 End;
End;
  
//////////////////////////////////////////////////////////////////////////////////

Procedure DropOres;  // Thanks  Pentti I Got Permission
var
  OreBmp:Integer;
  Mspeed:Integer;
begin
  DwarfItem;
  OreBmp := BitmapFromString(11, 11, 'z78DA73730301033070436' +
  '2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
  'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
  'B599CC1');
Mspeed:=MouseSpeed;
MouseSpeed:=2
repeat
SolveFight;
FindRandoms;
AntiBanActions;
AutoTalk;
If(FindBitMapMaskTolerance(OreBmp,x,y,MIX1,MIY1,MIX2,MIY2,20,25))then
 begin
 MMouse(x,y,15,15)
 getmousepos(x,y)
 wait(50+random(50))
  if(IsUpText('ore'))then
  begin
   Mouse(x,y,0,0,False)
   ClickOption('Drop',2)
  end
 else
  begin
   Mouse(MIX1+4,MIY1-60,7,7,True)
  end;
 end;
 wait(500+random(500))
until(not(FindBitMapMaskTolerance(OreBmp,x,y,MIX1,MIY1,MIX2,MIY2,20,25)))
MouseSpeed:=MSpeed;
end;

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

Procedure MainMineing;
Begin
  MineingFailsafes;
  FindPickHeadColor; // For Find Pick
  FindPick; //Only Works Propely When Pick Is Weilded
Repeat
  FindRandoms;
  AutoTalk;
  AntiBanActions;
  HandleGas;
  SolveFight;
  WalkBack;
Begin
If
  (findColorSpiral(x,y,OreColor1,2,2,418,304)) or
  (findColorSpiral(x,y,OreColor2,2,2,418,304)) or
  (findColorSpiral(x,y,OreColor3,2,2,418,304)) Then
  Mouse(x,y,2,2,True)
  IsUpText('ine');
  Mouse(x,y,2,2,True)
  FindPick;
If(InChat('to mine some ore'))then
End
Until (InvFull)
If (InvFull) Then
  DropOres;
  FindFastRandoms;
  AntiBanActions;
if (LoggedIn) and (Loads >= Players[CurrentPlayer].Integer1) then
  begin
    Logout;
  end;
end;


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

begin
SetupSRL;
Start;
MineingFailsafes;
Repeat
MainMineing;
PowerMinerReport;
Until (False);
End.

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

Not that many failsafes.. But.. Script is alright, you've been active around the community.. I'll say yes.

thanks :) yeh im working on the failsafes right now thanks ever so much GoF

What's your full name alex?

A power miner is too simple these days. But you still deserve becoming an SRL member so i vote yes.

alexander-brian-dupuy yes ok i dont like the alexANDER bit but its my real name y did u want to know


jah: thanks ever so much and yes they are simple but ive seen JAD get in with 1 and my other scripts are coming out soon

Voted yes. The script isn't that good, but you deserve it to get in :)
And did JAD get in with a powerminer? He votes no for them 90% of the time.

ty markus :P yeh he did its called JAD miner once again thanks for the support

It's different now though.

Most power miners are almost 100% the same to other people's, no originality.

And I think standards have grown much higher since then. I was always told make a power miner/power chopper, but now not many people would recommend anything without radial walk.

But when I applied, I got 11 yes's and 0 no's for my power miner ;) Tutorials and helping people was a bonus as to why they voted yes though to.

And let me look over your script a bit, I would love to add your name to the "people who became a SRL member after reading my tut list" on my tutorial alex :p


Edit: Well sorry alex, as much as I'd love to say yes to you, I just can't. Not enough things in here that show a reliable script. Need Fail safes very badly.

If you take out everything above wizzup?'s progress report, nothing there is yours. The case for the ore colors is 100% the same as wizzup?'s (not saying you copied it.. But it is the same).

The solve fight is for no reason because you already call for FindNormalRandoms; which looks for and solves fights.

so if you take everything out above wizzup?'s progress report which is pretty much everybody else's, you take out the auto responder and you take out the useless fighting thing, and you don't count the lines for fakawi's FindFastRandoms, take out the DropOres by Pentti, it's only 115 lines after that :(

I know I wasn't counting a lot, but most the things I didn't count were things by other people, your auto responder which is very easy and I don't really like auto responders, I find them pointless if your autoing correctly, and I took out the useless finding fight procedure.

You should learn proper standards to. And your auto responder wouldn't even work because you have public chat set to hide.

Sorry though rude, a rule is though 90% of the script must be made by you, and it wasn't close to that. Your an awesome person, but I have to vote no just for the fact the scripting isn't too good. But you've been a great helper around this community!

:( ok im working on stuff but i really wanted to get in and this is as close as ive ever got im really happy as i had 5 yes and 0 no's im still excited as 1 no isnt bad but now uve said that everyone will probs start going no and i get declined agan:(

Good guy. Triying hard. In.