Page 45 of 60 FirstFirst ... 35434445464755 ... LastLast
Results 1,101 to 1,125 of 1484

Thread: Wizzup's [SRL] PowerMiner.

  1. #1101
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very nice script wizzup?, But still, you're ess miner rocks!!!

    Also, i might use this and show a proggie but im busy ATM




    -Ashur
    Exam period.

  2. #1102
    Join Date
    Apr 2007
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just wondering, but is the script supposed to pick up the heads and put them back on? lol i went to go watch a movie and let it auto and i came back after bout 10 mins to check it and i was missing a rune pickaxe head not complaining just notifying you so u no theres a problem

  3. #1103
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    Quote Originally Posted by wick3dways View Post
    just wondering, but is the script supposed to pick up the heads and put them back on? lol i went to go watch a movie and let it auto and i came back after bout 10 mins to check it and i was missing a rune pickaxe head not complaining just notifying you so u no theres a problem
    Yes it is supposed to. Now if you have multiple pickaxes in your inventory, then it won't bother fixing it. But do remember, randoms aren't always 100%.

  4. #1104
    Join Date
    Apr 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wizup?, nice script now finnaly understand it... but after 2 hours is he changing player i dont want that, how can i change that??

  5. #1105
    Join Date
    Apr 2007
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ----------------------------------------------

    Powerminer created by Wizzup?.
    Version: 3.09.

    Ores Mined and Dropped : 484
    Number of avoided gasses: 18
    Worked for 1 Hours, 39 Minutes and 51 Seconds

    ----------------------------------------------

    0 : leetz = T; Mined: 484 Ores; M lvl:30

    ----------------------------------------------
    Really nice script, Wizzup?.

    Thanks for keeping it free!

    I'll try to get a better proggie report later.

  6. #1106
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i might use over night but it wont be for the next 2 days trying to get a good proggie wifffffff lAMEEEEEE

  7. #1107
    Join Date
    Apr 2007
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do you fix this:

    Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL.scar does not exist.
    Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL\Skill\Mining.scar does not exist.
    Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL\Misc\Trade.scar does not exist.
    Failed when compiling

  8. #1108
    Join Date
    Apr 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You gota install srl.

  9. #1109
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  10. #1110
    Join Date
    Apr 2007
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Runtime Error] : Out Of Range in line 49 in script C:\Documents and Settings\ssmith\Desktop\SRL Powerminer 3.09.scar

    NO!!!!!

  11. #1111
    Join Date
    Oct 2006
    Location
    Finland
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    ----------------------------------------------
    
    Powerminer created by Wizzup?.
    Version: 3.09.
    
    Ores Mined and Dropped : 192
    Number of avoided gasses: 11
    Worked for 57 Minutes and 23 Seconds
    
    ----------------------------------------------
    
    0 : *** = T; Mined: 192 Ores; M lvl:54
    
    ----------------------------------------------
    then it lost my pick head

  12. #1112
    Join Date
    Apr 2007
    Posts
    169
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default found on problem

    tested your powerminer today for few hours.. it looks great, color picking works like dream and even rimmington rocks are peace of cake for your great powerminer!

    but i also found one problem... when dropping ores, the mouse seems to click always exatly same spot, wich can be detected by jagex.. i know its possible to change? heres pic about it;



    thanks!!

  13. #1113
    Join Date
    Apr 2007
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Nebuli View Post
    Code:
    ----------------------------------------------
    
    Powerminer created by Wizzup?.
    Version: 3.09.
    
    Ores Mined and Dropped : 192
    Number of avoided gasses: 11
    Worked for 57 Minutes and 23 Seconds
    
    ----------------------------------------------
    
    0 : *** = T; Mined: 192 Ores; M lvl:54
    
    ----------------------------------------------
    then it lost my pick head
    Same here. Pick head lost after working for about 1 hour.

    Are we supposed to manually find the color of the pickhead?

  14. #1114
    Join Date
    Apr 2007
    Location
    australia
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    hey bro/sis not sure this is my first ever post on srl downloaded this and checked it out i got from lvl 4 to lvl 44
    im sorry i lost the progress coz comp crashed but this is the latest


    Powerminer created by Wizzup?.
    Version: 3.09.

    Ores Mined and Dropped : 193
    Worked for 31 Minutes and 49 Seconds

    ----------------------------------------------

    0 : = T; Mined: 193 Ores; M lvl:44
    it ran from 2 golems and 1 strange plant solved 2 boxes and did 1 rick thompson that i saw hope that helps u some

    also if u needed to know i did it at varrock and i did it on iron and copper
    am going to try on coal if u want progress let me know i will doit in mining guild h): verry happy with this also i was looking at it and it had so many diffrent players so insted of logging out into anouther i just deleated them and left 1 in there and it worked good dose 99 loads then logs out and back in :-)

  15. #1115
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  16. #1116
    Join Date
    Apr 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hi im a super noob at SRL and O was wondering if any1 could tell me how to setup the script (e.g wat to add or delete) to make it work in the following ways.

    1. So that it never logs out (so to specify only 1 player being used)

    2. So it never randomly stops ( I am using at the dwarf mine northmost iron/copper area.

    3. How to make it mine iron only (to make it not go to copper wen no iron present)

    i kno there may be many reasons y the bot seemilly stops randomly but it is v annoying, I am a noob so it may be my doing, somone plz answer my questions thx

  17. #1117
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    Quote Originally Posted by Unanonymous View Post
    Hi im a super noob at SRL and O was wondering if any1 could tell me how to setup the script (e.g wat to add or delete) to make it work in the following ways.

    1. So that it never logs out (so to specify only 1 player being used)

    2. So it never randomly stops ( I am using at the dwarf mine northmost iron/copper area.

    3. How to make it mine iron only (to make it not go to copper wen no iron present)

    i kno there may be many reasons y the bot seemilly stops randomly but it is v annoying, I am a noob so it may be my doing, somone plz answer my questions thx
    You don't need to only use one player. He will get banned very soon if you keep abusing him like that.

  18. #1118
    Join Date
    Apr 2007
    Location
    australia
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sorry if i did somthing wrong by doing this

    copy and past it into the scar
    just change in were it says username and password line 48 and 49
    and it will auto mine iron
    still mine copper but hardly ever


    program Powerminer;

    {.include SRL\SRL.scar}
    {.include SRL\SRL\Skill\Mining.scar}
    {.include SRL\SRL\Misc\Trade.scar}

    Const
    StartPlayer = 0; // The Number of the player that has to start.
    NumberOfUsers = 1; // How many players you are using.
    YourSRLStatsID = ''; // Must be a string!
    YourSRLStatsPass = ''; // Must be a string!
    TheMinCount = 4; // MinCount 4 for normal (old rocks), 1 for Rimmington (new) rocks
    OreTol = 9; // Anything between 4 - 19. (4 to 9) with normal rocks
    // 9 - 14 on new rocks.
    SecondsToWait = 1; // Number Of Seconds You want to wait.
    Loads = 99; // Number Of Loads.
    RunDir = 'S'; // RunDirection, choose it wisely.

    MinutesPerLoad = 5; // Max amount of minutes to take before dropping.
    AutoColor = True; // True for autocolor, recommend for better preformance.
    WizzyDebug = False; // WizzyDebug.

    Const
    VersionNumber = '3.09';

    {--------------------------------------------------------

    Procedure DeclarePlayers;

    --------------------------------------------------------}

    Procedure DeclarePlayers;

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

    Players[0].Name :='username';
    Players[0].Pass :='password';
    Players[0].Nick :='';
    Players[0].Active:=True;
    Players[0].String1 := 'Iron'; // Primairy Ore Color
    Players[0].String2 := 'Iron'; // Secondairy Ore Color wont be mined as much as 1.
    Players[0].String3 := 'Iron'; // Third Ore Color, won't be mined as much as 1 and 2.
    Players[0].Boolean1 := True; // Is The Pick Equipped?
    Players[0].Boolean2 := True; // False for brightness Check Once.

    Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
    End;

    // ----------------------------------------------------------------- //

    Const
    CopperColor = 4286610;
    TinColor = 9277080;
    ClayColor = 4553880;
    IronColor = 2370383;
    SilverColor = 12434885;
    CoalColor = 2834753;
    GoldColor = 1881051;
    MithrilColor = 7359564;
    AdamantColor = 6322272;
    RuniteColor = 8681306;

    { Don't change below if you consider yourself a beginner.}

    Var
    MinCount : Byte;
    Clay, Ores, OreMask, MyMark, OreCounter, Gasses, DroppedOreColor: Integer;

    ScriptStartTime1, ScriptStartTime2,
    FindNorMalRandomsTime, FindFastRandomsTime: LongInt;

    NormalRandomsTime, FastRandomsTime, FindTalkTime: LongInt;

    //----------------------------------------------------------------------------//
    //-- Checks and sets Auto Retaliate. True = On, False = Off --//
    //----------------------------------------------------------------------------//

    procedure Retaliate(AutoRet:Boolean); // WT-Fakawi.
    begin
    GameTab(1);
    if AutoRet then
    begin
    If not FindColor(x,y,1777020,624, 385, 719,396) then
    begin
    Mouse(666,381,8,8, True);
    end;
    end;
    if not AutoRet then
    begin
    If FindColor(x,y,1777020,624, 385, 719,396) then
    begin
    Mouse(666,381,8,8, True);
    end;
    end;
    end;

    {--------------------------------------------------------

    Function Explode(S: String): Array Of String;

    --------------------------------------------------------}

    Function Explode(S: String): Array Of String;

    Var
    Counter, Start, ResultCounter, B: LongInt;
    EndOfWord : Boolean;
    Begin
    S := Trim(S);
    Insert(Chr(13), S, 0);
    Repeat
    Counter := Counter +1;
    If EndOfWord Then Counter := Counter -1;
    EndOfWord := False;
    If StrGet(S, Counter) = Chr(13) Then
    Begin
    Start := Counter;
    Repeat
    Counter := Counter + 1;
    If Counter > Length(S) Then
    Begin
    Break;
    End;
    Until StrGet(S, Counter) = Chr(13);
    ResultCounter := ResultCounter +1;
    SetArrayLength(Result, ResultCounter + 1);
    Result[ResultCounter] := Trim(Copy(S, Start, Counter - Start));

    B := Pos(Chr(13), Result[ResultCounter])
    If B > 0 Then
    Delete(Result[ResultCounter], B, 1);

    B := Pos(Chr(10), Result[ResultCounter])
    If B > 0 Then
    Delete(Result[ResultCounter], B, 1);

    WriteLn(Result[ResultCounter]);
    EndOfWord := True;
    End;
    Until Counter > Length(S)-1;
    End;

    {--------------------------------------------------------

    Function GetLatestNews: String;

    --------------------------------------------------------}

    Function GetLatestNews: Array Of String;
    Var
    S : String;

    Begin
    // S := GetPage('http://www.villavu.com/wizzups%20scripts/powerminer/news.txt');
    S := GetPage('http://82.92.130.193/wizzups%20scripts/powerminer/news.txt');
    Result := Explode(S);
    WriteLn('');
    End;

    {--------------------------------------------------------

    Function GetLatestVersionNumber: Extended;

    Checks if you have the latest version.

    --------------------------------------------------------}

    Function GetLatestVersionNumber: String;

    Begin
    // Result := GetPage('http://www.villavu.com/wizzups%20scripts/powerminer/version.txt');
    Result := GetPage('http://82.92.130.193/wizzups%20scripts/powerminer/version.txt');
    If Result <> VersionNumber Then
    Begin
    WriteLn('You currently do not have the latest version.');
    WriteLn('http://www.villu-reborn.com/showthread.php?t=1517');
    WriteLn('For the latest version');
    End
    Else
    Begin
    WriteLn('You have the latest version.');
    WriteLn('Please post all your progress reports here : ');
    WriteLn('http://www.villu-reborn.com/showthread.php?t=1517');
    End;
    End;

    {--------------------------------------------------------

    Function HighestBrightNess: Boolean;

    --------------------------------------------------------}

    Function HighestBrightNess: Boolean;

    Begin
    GameTab(11);
    Wait(400);
    If GetColor(712, 226) <> 16777215 Then
    Begin
    Mouse(712, 226, 2, 2, True);
    Result := True;
    Wait(200);
    End;
    End;

    {--------------------------------------------------------

    Procedure SetOreColor;

    --------------------------------------------------------}

    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;

    Function GetDroppedOreColor: Integer;

    Var
    DroppedOreColorBMP: Integer;
    iX, iY: Integer;
    Begin
    If CountItemBmpMaskTol(OreMask, 20, 25) = 0 Then Exit;
    DroppedOreColorBMP := BitmapFromString(3, 4, '866C4C866C4C8' +
    '06849866C4C896E4D866C4C896E4D8B70508B7050896E4D8B 7050' +
    '8D7251');

    If FindBitmapToleranceIn(DroppedOreColorBMP, iX, iY, 560, 205, 725, 460, 9) Then
    Begin
    Result := GetColor(iX, iY + 2);
    If WizzyDebug Then WriteLn('DroppedOreColor = ' + IntToStr(Result));
    End

    Else
    Begin
    WriteLn('DroppedOreColor not found');
    WriteLn('Logout and try again.');
    LogOut;
    TerminateScript;
    End;

    FreeBitmap(DroppedOreColorBMP);
    End;

    {--------------------------------------------------------

    Function GetUpTextBlue:String;

    --------------------------------------------------------}

    Function GetUpTextBlue:String;

    Begin
    Result := Trim(GetTextAtEx(7, 7, 140, upchars, true,
    true, 0, 2, 14277634, 50, True, tr_AllChars));
    End;

    {--------------------------------------------------------

    Function IsUpTextBlue(Text: String): Boolean;

    --------------------------------------------------------}

    Function IsUpTextBlue(Text: String): Boolean;

    Begin
    Result := (Pos(Text, GetUpTextBlue) <> 0)
    End;

    {--------------------------------------------------------

    Function DroppedOre(iX, iY: Integer): Boolean;

    --------------------------------------------------------}

    Function DroppedOre(iX, iY: Integer): Boolean;

    Begin
    Result := FindColor(iX, iY, DroppedOreColor, iX - 10, iY - 10, iX + 10, iY + 10)
    If Result And WizzyDebug Then WriteLn('DroppedOre')
    Else If WizzyDebug Then WriteLn('No Dropped ore');
    End;

    {--------------------------------------------------------

    Procedure AutoGetRockColors;

    --------------------------------------------------------}

    Procedure AutoGetRockColors;

    Var
    ATPoint : TPoint;

    Begin
    WriteLn('AutoColor:');

    If FindObjOre(ATPoint.X, ATPoint.Y, 'ocks', OreColor1, 14, MinCount) Then
    OreColor1 := GetColor(ATPoint.X, ATPoint.Y);

    If FindObjOre(ATPoint.X, ATPoint.Y, 'ocks', OreColor2, 14, MinCount) Then
    OreColor2 := GetColor(ATPoint.X, ATPoint.Y);

    If FindObjOre(ATPoint.X, ATPoint.Y, 'ocks', OreColor3, 14, MinCount) Then
    OreColor3 := GetColor(ATPoint.X, ATPoint.Y);

    WriteLn(Players[CurrentPlayer].String1+' Color = '+IntToStr(OreColor1));
    WriteLn(Players[CurrentPlayer].String2+' Color = '+IntToStr(OreColor2));
    WriteLn(Players[CurrentPlayer].String3+' Color = '+IntToStr(OreColor3));

    End;

    {--------------------------------------------------------

    Function ItemSelected: Boolean;

    Checks if an item is selected.

    --------------------------------------------------------}

    Function ItemSelected: Boolean;

    Var
    ItemSPoint: TPoint;
    Begin
    If FindColor(ItemSPoint.X, ItemSPoint.Y, 16777215, MIX1, MIY1, MIX2, MIY2) Then
    Begin
    Result := True;
    GameTab(2);
    GameTab(4);
    End;
    End;

    {--------------------------------------------------------

    Function FindFastRandoms: Boolean; // By WT-Fakawi.

    FindFastRandoms is a quicker version of FindNormalRandoms.
    It does not include ALL the Anti-Randoms though.

    --------------------------------------------------------}

    Function FindFastRandoms: Boolean; // By WT-Fakawi.

    Var
    i: Integer;

    Begin
    For I := 1 To 11 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 : If RC Then
    Result := True;

    9 : If FindFight Then
    Begin
    Result := True;
    RunTo(RunDir, True);
    End;

    10: If FindTalk Then
    Result := True;

    11: If HandleTrade Then
    Result := True;
    End;
    Wait(1);
    End;
    End;

    {--------------------------------------------------------

    Procedure FTWaitAll(Time:Integer); // By WT-Fakawi.

    Anti-Random and Wait Procedure.

    --------------------------------------------------------}

    Procedure FTWaitAll(Time:Integer); // By WT-Fakawi.
    var t: integer;
    begin
    For T:=1 to Time do
    begin
    Wait(5); // Adepted.
    FindTalk;
    RC;
    HandleTrade;
    end;

    FindFastRandoms;
    MarkTime(FindNormalRandomsTime);
    if FindNormalRandomsTime-ScriptStartTime1 >(10000+Random(5000)) Then
    begin
    FindNormalRandoms;
    MarkTime(ScriptStartTime1);
    end;

    MarkTime(FindFastRandomsTime);
    if FindFastRandomsTime-ScriptStartTime2 >(1500+Random(1500)) Then
    begin
    FindFastRandoms;
    MarkTime(ScriptStartTime2);
    end;
    end;

    Function FindNormalRandomsTimeEx: Boolean;

    Var
    TempTime, Time1, Time2: LongInt;

    Begin
    TempTime := GetSystemTime;
    If TempTime - NormalRandomsTime > 6000 Then
    Begin
    NormalRandomsTime := GetSystemTime;
    Time1 := GetSystemTime;
    Result := FindNormalRandoms;
    Time2 := GetSystemTime;
    Status('Calling FNRandoms; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
    End;

    If TempTime - FastRandomsTime > 2000 Then
    Begin
    FastRandomsTime := GetSystemTime;
    Time1 := GetSystemTime;
    Result := FindFastRandoms;
    Time2 := GetSystemTime;
    Status('Calling FFRandoms; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
    End;

    If TempTime - FindTalkTime > 500 Then
    Begin
    FindTalkTime := GetSystemTime;
    Time1 := GetSystemTime;
    Result := FindTalk;
    Time2 := GetSystemTime;
    Status('Calling FT; Took '+IntToStr(Time2-Time1)+'.');
    Exit;
    End;

    End;

    {--------------------------------------------------------

    Procedure BitMaps;

    --------------------------------------------------------}

    Procedure BitMaps;

    Begin

    Clay := BitmapFromString(4, 4, '86714C89734D8B7650907A52978' +
    '1569781569A8357957E55A1895CA38B5D9F875B9C8559AC92 62A8' +
    '8F60A58D5FA1895C');

    OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
    '2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC 5022' +
    'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0 600F' +
    'B599CC1');

    End;

    {--------------------------------------------------------

    Function FindOre(MaxTol:Integer):Boolean;

    One of my core mining procedures,
    this is needed for Mining
    different ores and following gas.

    --------------------------------------------------------}

    Procedure ChangeOreColor;

    Begin
    If Random(4) = 3 Then OreCounter := 1;
    If OreCounter > 3 Then OreCounter := 1;
    Case OreCounter Of
    1: OreColor:= OreColor1;
    2: OreColor:= OreColor2;
    3: OreColor:= OreColor3;
    End;
    If WizzyDebug Then WriteLn('OreCounter = '+IntToStr(OreCounter));
    End;

    {--------------------------------------------------------
    Function GetChatMessage: String;
    --------------------------------------------------------}

    Function GetChatMessage: String;

    Begin
    Result := Trim(GetTextAtEx(20, 415, 0, SmallChars, False,
    False, 0, 1, 0, 80, False, tr_AllChars));
    End;

    {--------------------------------------------------------
    Function YouSwing: Boolean;
    --------------------------------------------------------}

    Function YouSwing: Boolean;

    Begin
    Result := (Pos('swing', GetChatMessage) <> 0)
    End;

    {--------------------------------------------------------
    Function Youmanage: Boolean;
    --------------------------------------------------------}

    Function Youmanage: Boolean;

    Begin
    Result := (Pos('anage', GetChatMessage) <> 0)
    End;

    {--------------------------------------------------------
    Function YouManage: Boolean;
    --------------------------------------------------------}

    Function PowerMine: Boolean;

    Var
    MMark, Dx, Dy, YMMark: Integer;

    Begin
    ChangeOreColor;
    If (Not FindObjOre2(Dx, Dy, 'ocks', OreColor, OreTol, MinCount)) Then
    Begin
    OreCounter := OreCounter + 1;
    FTWaitAll(1);
    Exit;
    End;
    Status('MyMine;');
    Result := True;
    GetMousePos(Dx, Dy);
    If FindGas(Dx, Dy - 20) Then
    Begin
    FTWait(80);
    Gasses := Gasses + +1;
    ReportVars[5] := ReportVars[5] + 1;
    WriteLn('Gas Found.');
    Exit;
    End;
    Mouse(Dx, Dy, 0, 0, True);

    MarkTime(MMark);
    MarkTime(YMMark);
    Repeat
    If Not FindColorSpiralTolerance(Dx, Dy, OreColor, Dx - 30, Dy - 30, Dx + 30, Dy + 30, 9) Then
    Begin
    Status('No More FindColor.');
    Exit;
    End;
    FindNormalRandomsTimeEx;
    Wait(50);
    If TimeFromMark(YMMark) > 3500 Then
    Begin
    If YouManage Then Exit;
    If FindGas(Dx, Dy - 40) Then
    Begin
    Mouse(646, 82, 3, 3, True);
    ReportVars[5] := ReportVars[5] + 1;
    Gasses := Gasses + +1;
    FTWait(40);
    FindPick;
    End;
    If FindFight Then
    Begin
    MakeCompass('N');
    RunTo(RunDir, True);
    MakeCompass('N');
    End;
    Wait(50);
    End;
    Until TimeFromMark(MMark) > (3500 + (SecondsToWait * 1000));
    End;

    {--------------------------------------------------------

    Procedure DropAllOres;

    --------------------------------------------------------}

    Procedure DropAllOres;

    Begin
    Players[CurrentPlayer].Integer2 := Players[CurrentPlayer].Integer2+
    CountItemBmpMaskTol(OreMask, 20, 25);

    Players[CurrentPlayer].Integer2 := Players[CurrentPlayer].Integer2+
    CountItemBmpTol(Clay, 10);

    ReportVars[0] := ReportVars[0] + 1;
    Banks := Banks + 1;
    Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;

    ReportVars[1] := ReportVars[1] + CountItemBmpMaskTol(OreMask, 20, 25);
    ReportVars[1] := ReportVars[1] + CountItemBmpTol(Clay, 10);;

    Ores := Ores + CountItemBmpMaskTol(OreMask, 20, 25);
    Ores := Ores + CountItemBmpTol(Clay, 10);

    ClickAllItemsBmpMaskTolWait('rop', OreMask, 20, 25, 30+Random(30));
    ClickAllItemsBmpTolWait('rop', Clay, 10, 30+Random(30));
    DwarfItem;
    ClickAllItemsBmpMaskTolWait('rop', OreMask, 20, 25, 30+Random(30));
    ClickAllItemsBmpTolWait('rop', Clay, 10, 30+Random(30));
    End;

    {--------------------------------------------------------

    Procedure PlayerReport;

    --------------------------------------------------------}

    Procedure PlayerReport;

    Var
    Active: String;
    I:Integer;

    Begin
    For I := 0 to HowManyPlayers - 1 Do
    Begin
    If Players[i].Active=True Then Active := 'T' Else Active := 'F';
    WriteLn( (IntToStr(I))+' : '+Players[I].nick+ ' = '+
    Active+'; Mined: '+IntToStr(Players[I].Integer2)+' Ores; M lvl:'+IntToStr(Players[i].Level[15]));
    End;
    End;

    {--------------------------------------------------------

    Procedure PowerMinerReport;

    --------------------------------------------------------}

    Procedure PowerMinerReport;

    Begin
    ClearDebug;
    WriteLn('----------------------------------------------')
    WriteLn('')
    WriteLn('Powerminer created by Wizzup?.')
    WriteLn('Version: '+VersionNumber+'.')
    WriteLn('')
    WriteLn('Ores Mined and Dropped : '+IntToStr(Ores));
    If Gasses > 0 Then WriteLn('Number of avoided gasses: '+IntToStr(Gasses))
    Writeln('Worked for '+ TimeRunning);
    WriteLn('')
    WriteLn('----------------------------------------------')
    WriteLn('')
    PlayerReport;
    SRLRandomsReport;
    WriteLn('')
    WriteLn('----------------------------------------------')
    End;

    {--------------------------------------------------------

    Procedure DoChats;

    --------------------------------------------------------}

    Procedure DoChats;

    Begin
    SetChat('On', 1);
    SetChat('On', 1);
    SetChat('Friends', 2);
    SetChat('Friends', 2);
    SetChat('On', 3);
    SetChat('On', 3);
    End;

    {--------------------------------------------------------

    Procedure DoChats;

    --------------------------------------------------------}

    Procedure ClearVars;

    Var
    I : Integer;
    Begin
    For I := 1 To 19 Do
    ReportVars[I] := 0;
    End;

    {--------------------------------------------------------

    MainLoop

    --------------------------------------------------------}

    Procedure SetupScript;

    Begin
    SetupSRL;
    ScriptID := '45';
    SetupSRLMining;
    SetUpSRLReport;
    ClearVars;
    // GetLatestNews;
    // GetLatestVersionNumber;
    SRLID := YourSRLSTATSID;
    SRLPassword:= YOURSRLSTATSPASS;
    ReportVars[2] := 1;
    BitMaps;
    TradeSameTrader := True;
    MinCount := TheMinCount;
    DeclarePlayers;
    CurrentPlayer := StartPlayer;
    LoginPlayer;
    BenMouse := True;
    MouseSpeed := 10;
    If Not Players[CurrentPlayer].Boolean2 Then
    Begin
    HighestBrightness;
    Players[CurrentPlayer].Boolean2 := True;
    SetRun(True);
    End;
    SetOreColor;
    If AutoColor Then AutoGetRockColors;
    EquipPick := Players[CurrentPlayer].Boolean1;
    FindPickHeadColor;
    Players[CurrentPlayer].Level[15] := GetSkillLevel('mining');
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    End;

    {--------------------------------------------------------

    MainLoop

    --------------------------------------------------------}

    begin
    ClearDebug;
    ActivateClient;
    SetupScript;
    MakeCompass('N');
    DoChats;
    SetRun(True);
    NormalRandomsTime := GetSystemTime;
    FastRandomsTime := GetSystemTime;
    FindTalkTime := GetSystemTime;

    Repeat
    if Players[CurrentPlayer].Boolean3 = False then
    begin
    Retaliate(False);
    Players[CurrentPlayer].Boolean3:=True;
    end;

    MarkTime(MyMark);

    Repeat
    PowerMine;
    If DroppedOreColor = 0 Then
    DroppedOreColor := GetDroppedOreColor;
    FindNormalRandomsTimeEx;
    Wait(1);
    If NoPick Then Break;
    Until (( InventoryCount = 28 )
    Or (TimeFromMark( MyMark ) > 1000 * 60 * MinutesPerLoad))

    If LoggedIn Then
    Begin
    DropAllOres;
    ItemSelected;
    End;
    PowerMinerReport;

    If NoPick Then
    Begin
    LogOut;
    Wait(5000);
    End;

    If ( LoggedIn And (Players[CurrentPlayer].Banked mod Loads = 0 )) Then
    Begin
    Begin
    SetChat('friends', 1);
    Repeat
    FTWaitAll(1);
    If(TimeFromMark(MyMark) > 240000) Then
    Begin
    Logout;
    Break;
    End;
    Until(Not(LoggedIn));
    End;
    NextPlayer(True);
    If Not Players[CurrentPlayer].Boolean2 Then
    Begin
    HighestBrightness;
    Players[CurrentPlayer].Boolean2 := True;
    End;
    MakeCompass('N');
    SetOreColor;
    Players[CurrentPlayer].Level[48] :=GetSkillLevel('mining');
    EquipPick := Players[CurrentPlayer].Boolean1;
    FindPickHeadColor;
    DoChats;
    SetRun(True);
    If AutoColor Then AutoGetRockColors;
    PowerMinerReport;
    End;

    If Not LoggedIn Then
    Begin
    NextPlayer(False);
    If Not Players[CurrentPlayer].Boolean2 Then
    Begin
    HighestBrightness;
    Players[CurrentPlayer].Boolean2 := True;
    End;
    MakeCompass('N');
    NoPick:=False;
    SetOreColor;
    Players[CurrentPlayer].Level[48] :=GetSkillLevel('mining');
    EquipPick := Players[CurrentPlayer].Boolean1;
    FindPickHeadColor;
    DoChats;
    If AutoColor Then AutoGetRockColors;
    SetRun(True);
    PowerMinerReport;
    End;

    Until(False);
    end.

  19. #1119
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    Why on earth did you just post the whole script lol?

  20. #1120
    Join Date
    Feb 2007
    Location
    Yorkshire, England
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  21. #1121
    Join Date
    Apr 2007
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Love your scripts bro, Heres a proggie

    Code:
    Powerminer created by Wizzup?.
    Version: 3.09.
    
    Ores Mined and Dropped : 721
    Number of avoided gasses: 2
    Worked for 2 Hours, 7 Minutes and 52 Seconds
    
    ----------------------------------------------
    
    0 :  = T; Mined: 0 Ores; M lvl:0 // Started from player 1
    1 :  = T; Mined: 248 Ores; M lvl:40
    2 :  = T; Mined: 263 Ores; M lvl:40
    3 :  = F; Mined: 156 Ores; M lvl:37 //Dont Know?
    4 :  = T; Mined: 54 Ores; M lvl:35
    
    ----------------------------------------------
    
    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    |     SRL Randoms Report       |
    |    www.villu-reborn.com      |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | Logged in              :  3  |
    | Trade[s] Made          :  1  |
    | Trade[s] Missed        :  1  |
    | Fight Random[s]        :  2  |
    | Talking Random[s]      :  3  |
    | Dwarf[s] Solved        :  1  |
    | Rick[s] Solved         :  1  |
    | Lamp[s] Solved         :  2  |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
    Bugs/Glitches
    1. Pick Head finding dosent work well just trys to mine the rock again.
    2. When i get a New box a cap n hand or a sandwich lady i Lag.

    Apart from that this script is well and truley amazing.
    Thanks,
    ~booya~
    «˚βооуа˚»
    1000/100,000 - ςδ∂ℓ
    11,000/300,000 - яυиε εѕѕεиςε
    4/10 - Ġυіℓd мίиεяѕ
    http://starblaster.freehostia.com/stress/hutchy.png

    http://www.fenjer.com/adnan/SRLStats/605.png

  22. #1122
    Join Date
    Apr 2007
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i try to do it but it sayd out of range in like 39 or 49...why is it saying that?

  23. #1123
    Join Date
    Apr 2007
    Location
    australia
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    first question why did i post the hole scrip
    coz if he dont know how to put iron in im guessing he dosnt know how to change in the scrip there for i made it so it only dose iron 1 person and made it so all he has to do is put in usename and password


    second question
    1.download scar 3.03
    2.click file click on download SRL
    3.wait for it to download and install
    4.click on download includes
    5.download runescape client from here and use it do play:-)


    open scrip agin
    if still dosnt work uninstill scar all version's and reinstall fresh 3.03 and follow
    step 2 and 4
    hope i helped

  24. #1124
    Join Date
    Apr 2007
    Location
    australia
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i know i just posted and i know you proble think i want to get my post's up by posting more truth is i dont care about the post lol im a chicken its cool

    ok i was using the prog and i had it on for 3 hours goto coal thank you in 1 day i made 52 lvls so im way happy

    but i was using 3 pickaxe in invotory 1 in hand 2 in invo sorry
    and the prog didnt stop when gass and rock exploded 1 of them down then pick axe head fell off and it didnt pick it up and put on 2 down then i died lol from strange plant
    is this coz i had to many pick axe it didnt pick it up?
    but the gas it dont work 100%
    just letting u know on the progress thanx agin for the scrip man will continu to use this as long as my account is unbanned hahahaha :-)

  25. #1125
    Join Date
    Apr 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Now the script is working almost perfectly, there is only 1 problem, wen the pik head flies off it does not pik it up it just waits for about 5 mins then logs out, can som1 plz tell me wat to add or remove to make it pik up the pik head immediatly once it flies off (its an addy pik)

    Som1 plz help me out here

    P.S other than this the script is absolutely legendary.

Page 45 of 60 FirstFirst ... 35434445464755 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Wizzup's ess
    By supersayian2224 in forum OSR Help
    Replies: 1
    Last Post: 11-26-2008, 01:50 AM
  2. Trouble with Wizzup's Powerminer
    By MrIncoming in forum OSR Help
    Replies: 3
    Last Post: 06-26-2007, 02:23 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •