Page 50 of 60 FirstFirst ... 404849505152 ... LastLast
Results 1,226 to 1,250 of 1484

Thread: Wizzup's [SRL] PowerMiner.

  1. #1226
    Join Date
    Apr 2007
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Awesome...

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

    Powerminer created by Wizzup?.
    Version: 3.09.

    Ores Mined and Dropped : 654
    Number of avoided gasses: 347
    Worked for 5 Hours, 32 Minutes and 6 Seconds

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




    0 : *** = F; Mined: 126 Ores; M lvl:45
    1 : *** = T; Mined: 248 Ores; M lvl:51
    2 : *** = F; Mined: 12 Ores; M lvl:46
    3 : *** = F; Mined: 27 Ores; M lvl:41
    4 : *** = T; Mined: 182 Ores; M lvl:43
    5 : *** = T; Mined: 59 Ores; M lvl:47


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

    Randoms are not that good but this script still rocks!
    Out of the 5, 2 were in lumby and the rest had broken/lost picks

  2. #1227
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ahadvakil View Post
    Awesome...

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

    Powerminer created by Wizzup?.
    Version: 3.09.

    Ores Mined and Dropped : 654
    Number of avoided gasses: 347
    Worked for 5 Hours, 32 Minutes and 6 Seconds

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




    0 : *** = F; Mined: 126 Ores; M lvl:45
    1 : *** = T; Mined: 248 Ores; M lvl:51
    2 : *** = F; Mined: 12 Ores; M lvl:46
    3 : *** = F; Mined: 27 Ores; M lvl:41
    4 : *** = T; Mined: 182 Ores; M lvl:43
    5 : *** = T; Mined: 59 Ores; M lvl:47


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

    Randoms are not that good but this script still rocks!
    Out of the 5, 2 were in lumby and the rest had broken/lost picks
    LMAO!!!.. Dude look at the script time he just copied my Proggy and posted new mined ores... WTF LEACHER lol, look at my proggy like 3 posts up


    Someone: 'Who the hell is TooManySitUps?'

    Boreas: 'Switch the first and last letter of my name, what do you get?'

    Someone: 'Um, SoreAb?'

    Boreas: 'And how do you get that?'

    Someone: 'From Too Many Sit Ups!! Haha, Boreas you are so clever!'

    Boreas: 'Ya he's like my evil twin that takes over when I'm being really sarcastic, or playing devil's advocate.'

  3. #1228
    Join Date
    Jun 2007
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Fantastic work bro, works really well , only thing is i'm using SCAR 2.03 and every few hours my pick head will fly off and it wont go get it and reattach it ...hope that can be fixed in the next version and i guess that makes it almost perfect thanks a ton!!

  4. #1229
    Join Date
    Feb 2007
    Location
    Toronto, Ontario, Canada
    Posts
    586
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Amazing, it kind of scares me how good it is I will edit in a proggy asap.

  5. #1230
    Join Date
    Jun 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Another good one

  6. #1231
    Join Date
    Mar 2007
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Works like a charm, thanks dude!

    Ran it all night and the only thing that stopped it was a maze.

  7. #1232
    Join Date
    Jun 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Couple problems.

    This is the greatest scrip ever, but I have a proublem with it. I keeps mining lots of copper. Because almost all rocks are "new" rocks now, i have Oretol set to 9 and all the rock types set to iron, but it still mines endless ammounts of copper.

    Thanks for any help you can give
    ~Eighty-Six

  8. #1233
    Join Date
    May 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  9. #1234
    Join Date
    May 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    Powerminer created by Wizzup?.
    Version: 3.09.

    Ores Mined and Dropped : 281
    Number of avoided gasses: 5
    Worked for 2 Hours, 13 Minutes and 41 Seconds

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

    0 : * = F; Mined: 130 Ores; M lvl:17
    1 : * = F; Mined: 27 Ores; M lvl:22
    2 : * = F; Mined: 124 Ores; M lvl:22

    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL Randoms Report |
    | www.villu-reborn.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | Logged in : 3 |
    | Trade[s] Missed : 1 |
    | Fight Random[s] : 4 |
    | New Box[es] Solved : 4 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/


    Wow?
    RsUnlocked.NET; free macros, bots, passcrackers.

  10. #1235
    Join Date
    May 2007
    Posts
    54
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Awesome script wizz, would be perfect with a pickhead finder .

    Ores Mined and Dropped : 1619
    Number of avoided gasses: 30
    Worked for 9 Hours, 4 Minutes and 21 Seconds

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

    0 : * = F; Mined: 20 Ores; M lvl:20
    1 : * = F; Mined: 129 Ores; M lvl:20
    2 : *= T; Mined: 509 Ores; M lvl:28
    3 : * = T; Mined: 342 Ores; M lvl:26
    4 : * = F; Mined: 75 Ores; M lvl:13
    5 : * = F; Mined: 12 Ores; M lvl:9
    6 : * = F; Mined: 172 Ores; M lvl:12
    7 : * = F; Mined: 360 Ores; M lvl:23

    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL Randoms Report |
    | www.villu-reborn.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | Logged in : 22 |
    | Fight Random[s] : 2 |
    | Talking Random[s] : 23 |
    | Dwarf[s] Solved : 2 |
    | OldMen Solved : 7 |
    | SandWich[es] Solved : 1 |
    | Lamp[s] Solved : 10 |
    | Frog[s] Solved : 3 |
    | Frog[s] Missed : 4 |
    | Capn Hand[s] Solved : 1 |
    | Certer[s] Missed : 1 |
    | New Box[es] Solved : 13 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

  11. #1236
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default proggie

    i fixed what bob barker said but all my chars lost their bronze heads.. well, ill give em each 8 picks and try again:

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

    Powerminer created by Wizzup?.
    Version: 3.09.

    Ores Mined and Dropped : 889
    Number of avoided gasses: 11
    Worked for 10 Hours, 11 Minutes and 40 Seconds

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

    0 : 711 = F; Mined: 133 Ores; M lvl:32
    1 : 711 = F; Mined: 180 Ores; M lvl:20
    2 : 711 = T; Mined: 172 Ores; M lvl:0
    3 : 711 = F; Mined: 239 Ores; M lvl:19
    4 : 711 = F; Mined: 60 Ores; M lvl:9
    5 : 711 = F; Mined: 104 Ores; M lvl:9

    ----------------------------------------------
    Successfully executed
    Good job.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  12. #1237
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default sorry

    Sorry my edit button not working :S

    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL Randoms Report |
    | www.villu-reborn.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | Logged in : 42 |
    | Fight Random[s] : 6 |
    | Talking Random[s] : 22 |
    | Dwarf[s] Solved : 1 |
    | Rick[s] Solved : 2 |
    | OldMen Solved : 9 |
    | SandWich[es] Solved : 1 |
    | Forester[s] Missed : 1 |
    | Lamp[s] Solved : 8 |
    | Capn Hand[s] Solved : 2 |
    | Certer[s] Missed : 1 |
    | New Box[es] Solved : 11 |
    | Quiz[es] found : 1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  13. #1238
    Join Date
    Mar 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Nice

    OMg, this script is really good!
    Have more proggies like this.

    Had to help it a few randoms thoug.

    Powerminer created by Wizzup?.
    Version: 3.09.

    Ores Mined and Dropped : 416
    Number of avoided gasses: 1
    Worked for 6 Hours, 56 Minutes and 13 Seconds

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

    0 : chok = F; Mined: 247 Ores; M lvl:67
    1 : skil = T; Mined: 169 Ores; M lvl:44

    /

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

    Default

    ffs another rune pik head lost wizzup y dont this solve this

  15. #1240
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    function FindPick: Boolean;
    var
    c, XH, YH, BR, dx, dy, ex, ey: Integer;
    ReequipPick: Boolean;
    begin
    GameTab(4);
    Result := True;
    if (FindBitmapSpiralTolerance(PickHandle, x, y, 550, 200, 745, 465, 30)) or
    (GetColor(473, 380) = 0) and (GetColor(482, 383) = 0) then
    // "you need a pickaxe to mine this rock"
    Try this...



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

  16. #1241
    Join Date
    Jun 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I get this error [Runtime Error] : Out Of Range in line 49 in script

  17. #1242
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Quote Originally Posted by Wizzup? View Post
    Try this...
    heh i am a noob where do i put that?


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  18. #1243
    Join Date
    Jun 2007
    Posts
    100
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You know it kinda pisses me off when i find my charcter f---ing dead because of a swarm
    IT would be nice if your fixed this

  19. #1244
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default ...

    Quote Originally Posted by mager guy View Post
    You know it kinda pisses me off when i find my charcter f---ing dead because of a swarm
    IT would be nice if your fixed this
    It is not Wizzups? sexy scripts fault. Go to SetupSRL.scar in the SCAR folder under includes/SRL. Run it and make CheckForHP to FALSE.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  20. #1245
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    function FindPick: Boolean;
    var
    c, XH, YH, BR, dx, dy, ex, ey: Integer;
    ReequipPick: Boolean;
    begin
    GameTab(4);
    Result := True;
    if (FindBitmapSpiralTolerance(PickHandle, x, y, 550, 200, 745, 465, 30)) or
    (GetColor(473, 380) = 0) and (GetColor(482, 383) = 0) then
    // "you need a pickaxe to mine this rock"

    where do i put this??


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  21. #1246
    Join Date
    Jan 2007
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    Thx Wizzup? for the the function . Hope it works !

    @ hy71194 Dude learn to use EDIT ! and stop spamming

    Here is how i`v implementet the function form wizzup? ( for u hy71194 )
    hope it works ,didn`t had time to test it !

    Code:
    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  =    12; // 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  =    7;  // Number Of Seconds You want to wait.
      Loads          =    10; // Number Of Loads.
      RunDir         =    'N'; // 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.
    
      VersionNumber  =    '3.09';
    
    {--------------------------------------------------------
    
    Procedure DeclarePlayers;
    
    --------------------------------------------------------}
    
    Procedure DeclarePlayers;
    
      Begin
         HowManyPlayers := NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;
    
         Players[0].Name :='';
         Players[0].Pass :='';
         Players[0].Nick :='';
         Players[0].Active:=True;
         Players[0].String1  := 'Copper';      // Primairy Ore Color
         Players[0].String2  := 'Tin';      // Secondairy Ore Color wont be mined as much as 1.
         Players[0].String3  := 'Clay';      // Third Ore Color, won't be mined as much as 1 and 2.
         Players[0].Boolean1  := False;       // Is The Pick Equipped?
         Players[0].Boolean2 := True; // False for brightness Check Once.
    
         Players[1].Name :='';
         Players[1].Pass :='';
         Players[1].Nick :='';
         Players[1].Active:=True;
         Players[1].String2  := 'Copper';      // Secondairy Ore Color wont be mined as much as 1.
         Players[1].String3  := 'Tin';      // Third Ore Color, won't be mined
         Players[1].String1  := 'Clay';      // Primairy Ore Coloras much as 1 and 2.
         Players[1].Boolean1  := False;       // Is The Pick Equipped?
         Players[1].Boolean2 := True; // False for brightness Check Once.
    
         Players[2].Name :='';
         Players[2].Pass :='';
         Players[2].Nick :='';
         Players[2].Active:=True;
         Players[2].String1  := 'Copper';      // Primairy Ore Color
         Players[2].String2  := 'Tin';      // Secondairy Ore Color wont be mined as much as 1.
         Players[2].String3  := 'Clay';      // Third Ore Color, won't be mined as much as 1 and 2.
         Players[2].Boolean1  := True;       // Is The Pick Equipped?
         Players[2].Boolean2 := True; // False for brightness Check Once.
    
         Players[3].Name :='';
         Players[3].Pass :='';
         Players[3].Nick :='';
         Players[3].Active:=True;
         Players[3].String1  := 'Copper';      // Primairy Ore Color
         Players[3].String2  := 'Tin';      // Secondairy Ore Color wont be mined as much as 1.
         Players[3].String3  := 'Clay';      // Third Ore Color, won't be mined as much as 1 and 2.
         Players[3].Boolean1  := False;       // Is The Pick Equipped?
         Players[3].Boolean2 := True; // False for brightness Check Once.
    
         Players[4].Name :='';
         Players[4].Pass :='';
         Players[4].Nick :='';
         Players[4].Active:=True;
         Players[4].String1  := 'Copper';      // Primairy Ore Color
         Players[4].String2  := 'Tin';      // Secondairy Ore Color wont be mined as much as 1.
         Players[4].String3  := 'Clay';      // Third Ore Color, won't be mined as much as 1 and 2.
         Players[4].Boolean1  := False;       // Is The Pick Equipped?
         Players[4].Boolean2 := True; // False for brightness Check Once.
    
         Players[5].Name :='';
         Players[5].Pass :='';
         Players[5].Nick :='';
         Players[5].Active:=True;
         Players[5].String1  := 'Copper';      // Primairy Ore Color
         Players[5].String2  := 'Tin';      // Secondairy Ore Color wont be mined as much as 1.
         Players[5].String3  := 'Clay';      // Third Ore Color, won't be mined as much as 1 and 2.
         Players[5].Boolean1  := False;       // Is The Pick Equipped?
         Players[5].Boolean2 := True; // False for brightness Check Once. 
         
         Players[6].Name :='';
         Players[6].Pass :='';
         Players[6].Nick :='';
         Players[6].Active:=True;
         Players[6].String1  := 'Copper';      // Primairy Ore Color
         Players[6].String2  := 'Tin';      // Secondairy Ore Color wont be mined as much as 1.
         Players[6].String3  := 'Clay';      // Third Ore Color, won't be mined as much as 1 and 2.
         Players[6].Boolean1  := False;       // Is The Pick Equipped?
         Players[6].Boolean2 := True; // False for brightness Check Once.
    
         Players[7].Name :='1';
         Players[7].Pass :='';
         Players[7].Nick :='';
         Players[7].Active:=True;
         Players[7].String2  := 'Copper';      // Secondairy Ore Color wont be mined as much as 1.
         Players[7].String3  := 'Tin';      // Third Ore Color, won't be mined
         Players[7].String1  := 'Clay';      // Primairy Ore Coloras much as 1 and 2.
         Players[7].Boolean1  := False;       // Is The Pick Equipped?
         Players[7].Boolean2 := True; // False for brightness Check Once.
    
         Players[8].Name :='';
         Players[8].Pass :='';
         Players[8].Nick :='';
         Players[8].Active:=True;
         Players[8].String1  := 'Copper';      // Primairy Ore Color
         Players[8].String2  := 'Tin';      // Secondairy Ore Color wont be mined as much as 1.
         Players[8].String3  := 'Clay';      // Third Ore Color, won't be mined as much as 1 and 2.
         Players[8].Boolean1  := True;       // Is The Pick Equipped?
         Players[8].Boolean2 := True; // False for brightness Check Once.
    
         Players[9].Name :='';
         Players[9].Pass :='';
         Players[9].Nick :='';
         Players[9].Active:=True;
         Players[9].String1  := 'Copper';      // Primairy Ore Color
         Players[9].String2  := 'Tin';      // Secondairy Ore Color wont be mined as much as 1.
         Players[9].String3  := 'Clay';      // Third Ore Color, won't be mined as much as 1 and 2.
         Players[9].Boolean1  := False;       // Is The Pick Equipped?
         Players[9].Boolean2 := True; // False for brightness Check Once.
    
         Players[10].Name :='';
         Players[10].Pass :='';
         Players[10].Nick :='';
         Players[10].Active:=True;
         Players[10].String1  := 'Copper';      // Primairy Ore Color
         Players[10].String2  := 'Tin';      // Secondairy Ore Color wont be mined as much as 1.
         Players[10].String3  := 'Clay';      // Third Ore Color, won't be mined as much as 1 and 2.
         Players[10].Boolean1  := False;       // Is The Pick Equipped?
         Players[10].Boolean2 := True; // False for brightness Check Once.
    
         Players[11].Name :='';
         Players[11].Pass :='';
         Players[11].Nick :='';
         Players[11].Active:=True;
         Players[11].String1  := 'Copper';      // Primairy Ore Color
         Players[11].String2  := 'Tin';      // Secondairy Ore Color wont be mined as much as 1.
         Players[11].String3  := 'Clay';      // Third Ore Color, won't be mined as much as 1 and 2.
         Players[11].Boolean1  := False;       // Is The Pick Equipped?
         Players[11].Boolean2 := True; // False for brightness Check Once. 
        Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
      End;
      
    // ----------------------------------------------------------------- //
    
    Const
      CopperColor       = 4022147;
      TinColor          = 4747677;
      ClayColor         = 4681627 ;   
      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' +
           '06849866C4C896E4D866C4C896E4D8B70508B7050896E4D8B7050' +
           '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' +
           '1569781569A8357957E55A1895CA38B5D9F875B9C8559AC9262A8' +
           '8F60A58D5FA1895C');
    
           OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
           '2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
           'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
           '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 FindPickaxe: Boolean;
    --------------------------------------------------------}
    
    function FindPickaxe: Boolean;
    var
    c, XH, YH, BR, dx, dy, ex, ey: Integer;
    ReequipPick: Boolean;
    begin
    GameTab(4);
    Result := True;
    if (FindBitmapSpiralTolerance(PickHandle, x, y, 550, 200, 745, 465, 30)) or
    (GetColor(473, 380) = 0) and (GetColor(482, 383) = 0) then
    // "you need a pickaxe to mine this rock"
    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(40);
        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 - 20) Then
          Begin
            Mouse(646, 82, 3, 3, True);
            ReportVars[5] := ReportVars[5] + 1;
            Gasses := Gasses + +1;
            FTWait(40);
            FindPickaxe;
          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; Mine 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('Off', 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[15] :=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[15] :=GetSkillLevel('mining');
          EquipPick := Players[CurrentPlayer].Boolean1;
          FindPickHeadColor;
          DoChats;
          If AutoColor Then AutoGetRockColors;
          SetRun(True);
          PowerMinerReport;
        End;
    
    Until(False);
    end.

    And proof it Compiled
    Code:
    SRL Compiled in 688msec.
    12 Players
    AutoColor:
    Copper Color = 4022147
    Tin Color = 4747677
    Clay Color = 4681627
    Successfully executed


    SORRY FOR THE LOOOONG POST . and for posting the script !

    THX Wzzup? for your time !
    PEOPLE PLEASE AUTO PROPERLY

  22. #1247
    Join Date
    Jun 2007
    Location
    Kentucky, United States of America
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When I try to run it, It comes up with this.

    [Runtime Error] : Out Of Range in line 50

    Any ideas on how to fix or what I'm doing wrong?

  23. #1248
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by crossback7 View Post
    When I try to run it, It comes up with this.

    [Runtime Error] : Out Of Range in line 50

    Any ideas on how to fix or what I'm doing wrong?
    You didn't set your players right. Set the HowManyPlayers to how many players there are, ACTIVE OR NOT. So if you only have 1 player active, and 8 not active, the HowManyPlayers is still 9, not 1.

  24. #1249
    Join Date
    Jun 2007
    Location
    Kentucky, United States of America
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, I'll try it and see how it does.

  25. #1250
    Join Date
    Jun 2007
    Location
    Kentucky, United States of America
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Alright, It mined a single ore of iron after flicking around for about 30 seconds.

    Came up with this also.

    Error detecting Compass Angle.
    DroppedOreColor not found
    Logout and try again.

    And the clicked on the door symbol and stopped.

Page 50 of 60 FirstFirst ... 404849505152 ... 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
  •