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
3 years

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

In october i joined srl forums being a complete noob leecher. a while back i statred copying a pasting bits into my script, But now this script is mostly mine and i have credited everyones bit.

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

{-Script Info:
# ScriptName  = PowerMiner 3.03
# Author      = Rudeboialex
# Description = SRL PowerMiner
# Build       = 3.03
# Released    = 27/04/07
# Comments    = 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
SCAR 2.03 ANd SRL 3.6 ONLI
}

program Powerminer;
{.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 = 8;//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.
{-------------------------------------------------------------------------------------
                                  AutoColor Levae 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].Skill    := '';       //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].Skill    := '';       //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].Skill    := '';       //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].Skill    := '';       //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].Skill    := '';       //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].Skill    := '';       //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].Skill    := '';       //Skill for genie lamp
     Players[6].Active:=True;


     Players[7].Name :='Username';
     Players[7].Pass :='Password';
     Players[7].Nick :='3 Leters Of Youre Name';
     Players[7].String1 :='Iron';  // What Ore To Mine.
     Players[7].String2 :='Tin';  // Another Ore To Mine.
     Players[7].String1 :='Copper';// A Third Ore To mine.
     Players[7].Skill    := '';       //Skill for genie lamp
     Players[7].Active:=True;
end;


{-------------------------------------------------------------------------------
                       Logs in Player And Write My Name In Debug Box
--------------------------------------------------------------------------------}
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);
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;
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 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;
   end;
 end;
end;


Procedure Randoms;
begin
FindMod;
FindDemon;
FindMime;
FindScapeRune;
SolvePinball;
Dwarfitem;
FindName;
FindTalk;
SolveBox;
SolveFrog;
FindFrogCave;
FindNormalRandoms;// For the sandwich lady
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;
  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 DropOres;
var
  OreBmp:Integer;
  Mspeed:Integer;
begin
  DwarfItem;
  OreBmp := BitmapFromString(11, 11, 'z78DA73730301033070436' +
  '2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
  'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
  'B599CC1');
Mspeed:=MouseSpeed;
MouseSpeed:=2
repeat
SolveFight;
Randoms;
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
FindPickHeadColor;
FindPick;
 Repeat
Randoms;
AntiBanActions;
AutoTalk;
HandleGas;
SolveFight;
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
MMouse(x,y,3,3)
IsUpText('ine');
Mouse(x,y,2,2,True)
If(InChat('You have managed to mine some ore'))then
End
Until (InvFull)
If (InvFull) Then
DropOres;
End;



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

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

looks alright, some standards would be fine, but it looks good:) what about using something else for finding the ores(findobjore instead of findcolorspiral) if its not copied(besides where you credited) i'd vote yes

Ill vote yes too.
Still, the script is pretty simple. I think it is enough and it does what it is supposed.

Pretty simple, but I'll vote yes if you add a couple things

Here's my recommendations:

Put a loop into orecolor (probably a 'for' loop)
Make multiplayer work right
DeclarePlayers shouldn't be looped
Some originality?

Too simple.
Powerminers these days are never original.
All you do is look at wizzups, and change a few small things.
You also used hit oremask bitmap without credit.

No from me, too simple.

Did you copy the orecolor procedure?

inSane posted the exact same thing here

Smartzkid
Like i said, most powerminers now just copy one of the first/best ones here…
Wizzups.

A lot of powerminers have a lot of the same procedures.
I belive that first came from wizzups script.

thanks everyone i knew yohojo would say no smartz thanks i swear on my life i didnt copy the orecolor procedure i no i didnt.oo 50% each tense plz ppl

Ok now your just lying.
You DID copy color conversion procedure.
And even a few of you const colors are thee same…

Wizzup

  SilverColor       = 12434885;
  CoalColor         = 2834753;
  GoldColor         = 1881051;
  MithrilColor      = 7359564;
  AdamantColor      = 6322272;

You

silverColor       = 12434885;
  CoalColor         = 2834753;
  GoldColor         = 1881051;
  MithrilColor      = 7359564;
  AdamantColor      = 6322272;

Wizup

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;

you:

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;

Now, both of these instances are no big deal, small simple procedures, but please stop lying! =)

Its very clear to me that you did not code this script in entirety, as I am an avid proponent of proper scripting standards (http://wiki.srl-forums.com/index.php/Scripting_Standards).

The procedures you made in general are poorly standardized, the procedures made by others such as Wizzup? are much closer to accurate than your own.

For now I'm not going to vote as I am undecided.

Edit: I'm voting no.

Smartzkid is angry at alex for lying

From: Smartzkid
Smartzkid is angry at alex for lying

err I think u mean rudeboi :P lawl…..good effort tho rudeboi keep it up I'm sure you'll get it done well soon…..just keep at it

1 : keep the same standards through the whole script..
2 : It's fine that you make your own procedures, but to start off with - showing that you know how to use SRL would be fine, use the source of good scripting
3 : I am afraid that you took HandleGas without taking FindGas.. This means that you will find Gas every 2 secs?

4 : I am not convinced that you know what you are doing because of the HandleGas error.. I will vote no for now..

Im voting no because of how much of it was directly copied for wizzup, including the antiban (if it wasnt already mentioned). Ide like to see a little more originality, sorry. If you made this saem script, but your own way, i would say yes but seeing how much of this is copied and basedof of soemone else, im gonna have to say no. And if you do copy soemones elses procedures, please be sure to give them credit for making them.

EDIT: and for your dropping procedure, I think you should really use a DTM instead of a bitmap.

YoHoJo i coppied the orecolor const but with thw set orecolor i dunno a different way to do it. like is there a different way to make it autocolor rune hacker o no the anitban wasnt scar noob helped me wiff that so dint say i copied that

EDIT: i take it im not in again :(

From: rudeboialex
YoHoJo i coppied the orecolor const but with thw set orecolor i dunno a different way to do it. like is there a different way to make it autocolor rune hacker o no the anitban wasnt scar noob helped me wiff that so dint say i copied that

EDIT: i take it im not in again :(

You don't have to do it differently, just PM Wizzup and ask him if it's okay to use it.. and then write at your script (credits Wizzup - permission granted )..

o ty