Page 2 of 2 FirstFirst 12
Results 26 to 40 of 40

Thread: Fungus Collector

  1. #26
    Join Date
    Feb 2011
    Location
    The Future.
    Posts
    5,600
    Mentioned
    396 Post(s)
    Quoted
    1598 Post(s)

    Default

    Quote Originally Posted by Mike408 View Post
    instead of using a poh and the altar there, why not just use the altar unlocked from natures spirit in the grotto? Seems like common sense to me.
    Also, bank function doesn't work.

    That would be extremely slow! and if banking isn't working for u, try updating your hooks:
    http://reflection.harry.lu/Hooks.simba

    also try the new script I just uploaded.. I added a custom bank function since the reflection2 still doesn't have canifis banking..

    I will look into the under 33 construction thing. Thing is I don't have under 33 construction :c so I'd actually need a good idea to implement. How would it work for u with under 33 construction. What would u like it to do and what would u like to see.
    Last edited by Brandon; 08-15-2011 at 02:58 PM.
    I am Ggzz..
    Hackintosher

  2. #27
    Join Date
    Dec 2009
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hi i tried compiling the script but i got an error message.
    Exception in Script: Unable to find file 'SRL\SRL\misc\SMART.SCAR' used from ''
    doesn't exist
    how do i fix this?

  3. #28
    Join Date
    Feb 2011
    Location
    The Future.
    Posts
    5,600
    Mentioned
    396 Post(s)
    Quoted
    1598 Post(s)

    Default

    Quote Originally Posted by crimsonwind View Post
    hi i tried compiling the script but i got an error message. how do i fix this?

    go to the view menu in simba.. then press extensions enable srl and reflection.. go to srl menu now and press update.
    I am Ggzz..
    Hackintosher

  4. #29
    Join Date
    Dec 2009
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ggzz View Post
    go to the view menu in simba.. then press extensions enable srl and reflection.. go to srl menu now and press update.
    Yeah, i tried doing that but i dont have any extensions. Its really weird.

  5. #30
    Join Date
    Feb 2011
    Location
    The Future.
    Posts
    5,600
    Mentioned
    396 Post(s)
    Quoted
    1598 Post(s)

    Default

    Quote Originally Posted by crimsonwind View Post
    Yeah, i tried doing that but i dont have any extensions. Its really weird.
    Try deleting your srl folder and redownloading it.. or else just copy that below paste it into notepad and save as "Smart.scar"

    Smart.Scar:
    Code:
    {$DEFINE SRL_SMART}
    {$DEFINE SMART}
    {$ifdef Simba}
    {.loadlib libsmart}
    {$endif}
    
    {$ifdef Simba}
    function IsKeyDown(C:Byte): Boolean;
    begin
      Result := SmartIsKeyDown(C);
    end;
    {$else}
    function IsKeyDown(C:Char): Boolean;
    begin
      Result := SmartIsKeyDown(ord(c));
    end;
    {$endif}
    
    procedure MoveMouse(x, y: Integer);
    begin
      SmartMoveMouse(x, y);
    end;
    
    {$ifdef Simba}
    procedure HoldMouse(x, y: Integer; button : integer);
    begin
      if button = mouse_left then
        SmartHoldMouse(x, y, true)
      else if button = mouse_right then
        SmartHoldMouse(x,y,false)
      else
        raiseexception(ercustomerror,'Unknown mouse button in SmartHoldMouse');
    end;
    
    procedure ReleaseMouse(x, y: Integer; button : integer);
    begin
      if button = mouse_left then
        SmartReleaseMouse(x, y, true)
      else if button = mouse_right then
        SmartReleaseMouse(x,y,false)
      else
        raiseexception(ercustomerror,'Unknown mouse button in SmartReleaseMouse');
    end;
    {$else}
    procedure HoldMouse(x, y: Integer; left: Boolean);
    begin
      SmartHoldMouse(x, y, left);
    end;
    
    procedure ReleaseMouse(x, y: Integer; left: Boolean);
    begin
      SmartReleaseMouse(x, y, left);
    end;
    {$endif}
    
    procedure KeyUp(key: Byte);
    begin
      If Key = 13 Then
        Key := 10;
      SmartReleaseKey(key);
    end;
    
    procedure KeyDown(key: Byte);
    begin
      If Key = 13 Then
        Key := 10;
      SmartHoldKey(key);
    end;
    
    procedure SendKeys(S: String);
    begin
      SmartSendKeys(S);
    end;
    
    procedure GetMousePos(var x, y: Integer);
    begin
      SmartGetMousePos(x, y);
    end;
    
    function GetColor(x, y: Integer): Integer;
    begin
      result:= SmartGetColor(x, y);
    end;
    
    procedure SmartSetTarget;
    {$ifdef Simba}
    begin
      SetTargetArray(SmartImageArray, 765,503);
    end;
    {$else}
    var
      Smart_Bitmap: Integer;
    begin
      Smart_Bitmap:= BitmapFromString(765,503,'');
      GetBitmapCanvas(Smart_Bitmap).Handle:= SmartGetDC;
      SetTargetBitmap(Smart_Bitmap);
      FreeBitmap(Smart_Bitmap);
    end;
    {$endif}
    
    function FindWindow(Title: String): Boolean;
    begin
      result:= true;
    end;
    
    procedure ActivateClient;
    begin
    end;
    
    function FindWindowBySize(Width, Height: Integer): Boolean;
    begin
      result:= true;
    end;
    
    {procedure SmartSaveSettings(v: TVariantArray);
    var
      i: Integer;
      ts: TStringArray;
    begin
      ts := ['server', 'members', 'signed', 'sd', 'DC', IncludePath + 'SRL/SRL/misc/smartINI.ini'];
      for i := 0 to 4 do
        WriteINI('SMART', ts[i], v[i], ts[5]);
    end;   }
    
    procedure SmartSetupEx(Server: integer; members, signed, superdetail: boolean);
    var
      prefix: string;
    begin
      {$IFDEF SIMBA}
      prefix := ReadINI('World' + IntToStr(Server), 'Prefix', IncludePath + 'SRL/SRL/misc/worlds.ini');
      {$ELSE}
      prefix := ReadINI('World' + IntToStr(Server), 'Prefix', {$IFDEF SCAR325_UP} IncludesPath {$ELSE} AppPath + 'Includes\' {$ENDIF} + 'SRL\SRL\misc\worlds.ini');
      {$ENDIF}
      if(prefix = '')then
      begin
        writeln('Invalid world number or corrupted world list. Please review your settings');
        TerminateScript;
      end;
      SmartSetup('http://'+prefix+'.runescape.com/', 'plugin.js?param=o0,a' + IntToStr((Integer(not(Signed)) + 1) * Integer(not((SuperDetail and Signed)))) + ',m' + IntToStr(Integer(Members)), 765, 503, 's');
      //SmartSaveSettings([Server, Members, Signed, SuperDetail, SmartGetDC]);
    end;
    
    {function SmartLastSettings: TStringArray;
    var
      i: Integer;
      ts: TStringArray;
    begin
      ts := ['server', 'members', 'signed', 'sd', 'DC', IncludePath + 'SRL/SRL/Misc/smartINI.ini'];
      SetLength(Result, 5);
      for i := 0 to 4 do
        Result[i] := ReadINI('SMART', ts[i], ts[5]);
    end; }
    
    {$ifndef Simba}
    Procedure SaveScreenshot(s : string);
    var
      TempBMP : integer;
      TempS : String;
    begin;
      Temps := s;
      While FileExists(Temps) do
      begin;
        Temps := ExtractFilePath(s) + Copy(ExtractFileName(Temps),1,LastPos('.',ExtractFileName(Temps))-1) + '2' + ExtractFileExt(s);
        Writeln(Temps);
      end;
      TempBMP := BitmapFromString(765,503,'');
      Try
        CopyClientToBitmap(TempBMP,0,0,765,503);
        SaveBitmap(TempBMP, Temps);
      Except
      end;
      FreeBitmap(TempBMP);
    end;
    {$endif}
    I am Ggzz..
    Hackintosher

  6. #31
    Join Date
    Dec 2009
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ggzz View Post
    Try deleting your srl folder and redownloading it.. or else just copy that below paste it into notepad and save as "Smart.scar"

    Smart.Scar:
    Code:
    {$DEFINE SRL_SMART}
    {$DEFINE SMART}
    {$ifdef Simba}
    {.loadlib libsmart}
    {$endif}
    
    {$ifdef Simba}
    function IsKeyDown(C:Byte): Boolean;
    begin
      Result := SmartIsKeyDown(C);
    end;
    {$else}
    function IsKeyDown(C:Char): Boolean;
    begin
      Result := SmartIsKeyDown(ord(c));
    end;
    {$endif}
    
    procedure MoveMouse(x, y: Integer);
    begin
      SmartMoveMouse(x, y);
    end;
    
    {$ifdef Simba}
    procedure HoldMouse(x, y: Integer; button : integer);
    begin
      if button = mouse_left then
        SmartHoldMouse(x, y, true)
      else if button = mouse_right then
        SmartHoldMouse(x,y,false)
      else
        raiseexception(ercustomerror,'Unknown mouse button in SmartHoldMouse');
    end;
    
    procedure ReleaseMouse(x, y: Integer; button : integer);
    begin
      if button = mouse_left then
        SmartReleaseMouse(x, y, true)
      else if button = mouse_right then
        SmartReleaseMouse(x,y,false)
      else
        raiseexception(ercustomerror,'Unknown mouse button in SmartReleaseMouse');
    end;
    {$else}
    procedure HoldMouse(x, y: Integer; left: Boolean);
    begin
      SmartHoldMouse(x, y, left);
    end;
    
    procedure ReleaseMouse(x, y: Integer; left: Boolean);
    begin
      SmartReleaseMouse(x, y, left);
    end;
    {$endif}
    
    procedure KeyUp(key: Byte);
    begin
      If Key = 13 Then
        Key := 10;
      SmartReleaseKey(key);
    end;
    
    procedure KeyDown(key: Byte);
    begin
      If Key = 13 Then
        Key := 10;
      SmartHoldKey(key);
    end;
    
    procedure SendKeys(S: String);
    begin
      SmartSendKeys(S);
    end;
    
    procedure GetMousePos(var x, y: Integer);
    begin
      SmartGetMousePos(x, y);
    end;
    
    function GetColor(x, y: Integer): Integer;
    begin
      result:= SmartGetColor(x, y);
    end;
    
    procedure SmartSetTarget;
    {$ifdef Simba}
    begin
      SetTargetArray(SmartImageArray, 765,503);
    end;
    {$else}
    var
      Smart_Bitmap: Integer;
    begin
      Smart_Bitmap:= BitmapFromString(765,503,'');
      GetBitmapCanvas(Smart_Bitmap).Handle:= SmartGetDC;
      SetTargetBitmap(Smart_Bitmap);
      FreeBitmap(Smart_Bitmap);
    end;
    {$endif}
    
    function FindWindow(Title: String): Boolean;
    begin
      result:= true;
    end;
    
    procedure ActivateClient;
    begin
    end;
    
    function FindWindowBySize(Width, Height: Integer): Boolean;
    begin
      result:= true;
    end;
    
    {procedure SmartSaveSettings(v: TVariantArray);
    var
      i: Integer;
      ts: TStringArray;
    begin
      ts := ['server', 'members', 'signed', 'sd', 'DC', IncludePath + 'SRL/SRL/misc/smartINI.ini'];
      for i := 0 to 4 do
        WriteINI('SMART', ts[i], v[i], ts[5]);
    end;   }
    
    procedure SmartSetupEx(Server: integer; members, signed, superdetail: boolean);
    var
      prefix: string;
    begin
      {$IFDEF SIMBA}
      prefix := ReadINI('World' + IntToStr(Server), 'Prefix', IncludePath + 'SRL/SRL/misc/worlds.ini');
      {$ELSE}
      prefix := ReadINI('World' + IntToStr(Server), 'Prefix', {$IFDEF SCAR325_UP} IncludesPath {$ELSE} AppPath + 'Includes\' {$ENDIF} + 'SRL\SRL\misc\worlds.ini');
      {$ENDIF}
      if(prefix = '')then
      begin
        writeln('Invalid world number or corrupted world list. Please review your settings');
        TerminateScript;
      end;
      SmartSetup('http://'+prefix+'.runescape.com/', 'plugin.js?param=o0,a' + IntToStr((Integer(not(Signed)) + 1) * Integer(not((SuperDetail and Signed)))) + ',m' + IntToStr(Integer(Members)), 765, 503, 's');
      //SmartSaveSettings([Server, Members, Signed, SuperDetail, SmartGetDC]);
    end;
    
    {function SmartLastSettings: TStringArray;
    var
      i: Integer;
      ts: TStringArray;
    begin
      ts := ['server', 'members', 'signed', 'sd', 'DC', IncludePath + 'SRL/SRL/Misc/smartINI.ini'];
      SetLength(Result, 5);
      for i := 0 to 4 do
        Result[i] := ReadINI('SMART', ts[i], ts[5]);
    end; }
    
    {$ifndef Simba}
    Procedure SaveScreenshot(s : string);
    var
      TempBMP : integer;
      TempS : String;
    begin;
      Temps := s;
      While FileExists(Temps) do
      begin;
        Temps := ExtractFilePath(s) + Copy(ExtractFileName(Temps),1,LastPos('.',ExtractFileName(Temps))-1) + '2' + ExtractFileExt(s);
        Writeln(Temps);
      end;
      TempBMP := BitmapFromString(765,503,'');
      Try
        CopyClientToBitmap(TempBMP,0,0,765,503);
        SaveBitmap(TempBMP, Temps);
      Except
      end;
      FreeBitmap(TempBMP);
    end;
    {$endif}
    Ok so i copied it into notebook and saved as smart.scar but when i tried compiling again i got a new error.
    Exception in Script: Plugin(RefCalculationsLib) has not been found
    Last edited by crimsonwind; 08-19-2011 at 03:02 AM.

  7. #32
    Join Date
    Feb 2011
    Location
    The Future.
    Posts
    5,600
    Mentioned
    396 Post(s)
    Quoted
    1598 Post(s)

    Default

    Quote Originally Posted by crimsonwind View Post
    Ok so i copied it into notebook and saved as smart.scar but when i tried compiling again i got a new error.
    U have to copy the plugin from Reflection2 to your plugins folder.. this script uses reflection 2.
    I am Ggzz..
    Hackintosher

  8. #33
    Join Date
    Dec 2009
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ggzz View Post
    U have to copy the plugin from Reflection2 to your plugins folder.. this script uses reflection 2.
    All right. It works beautifully. btw nice script! thanks for the fix!

  9. #34
    Join Date
    Aug 2007
    Location
    Colorado
    Posts
    7,421
    Mentioned
    268 Post(s)
    Quoted
    1442 Post(s)

    Default

    With the prices dropped down to the 700's, how much are you guys getting per hour with this?

    Current projects:
    [ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]

    "I won't fall in your gravity. Open your eyes,
    you're the Earth and I'm the sky..."


  10. #35
    Join Date
    Dec 2009
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i have another problem
    Last edited by crimsonwind; 08-19-2011 at 01:31 PM.

  11. #36
    Join Date
    Dec 2009
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok so now when i compile, my character just stands there. i also get an error
    Field not found: mc.i
    how should i fix this?

  12. #37
    Join Date
    Feb 2011
    Location
    The Future.
    Posts
    5,600
    Mentioned
    396 Post(s)
    Quoted
    1598 Post(s)

    Default

    Quote Originally Posted by crimsonwind View Post
    ok so now when i compile, my character just stands there. i also get an error how should i fix this?
    lol that is your hooks.. Latest: http://reflection.harry.lu/Hooks.simba

    @flight, u get like Iunno 250-300k? Long time I haven't used it.. I'm trying to figure out what skill I wanna do next..
    I am Ggzz..
    Hackintosher

  13. #38
    Join Date
    Dec 2009
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ggzz View Post
    lol that is your hooks.. Latest: http://reflection.harry.lu/Hooks.simba

    @flight, u get like Iunno 250-300k? Long time I haven't used it.. I'm trying to figure out what skill I wanna do next..
    So i updated my hooks but my character is still refusing to move.

  14. #39
    Join Date
    Feb 2011
    Location
    The Future.
    Posts
    5,600
    Mentioned
    396 Post(s)
    Quoted
    1598 Post(s)

    Default

    Quote Originally Posted by crimsonwind View Post
    So i updated my hooks but my character is still refusing to move.
    Yeah I just tried a bunch of other scripts..they're all broken :S Each one of them say:

    FieldNotFound: x, C, D.. those three aren't found guess we gotta wait for RefHooks to get an Update.
    I am Ggzz..
    Hackintosher

  15. #40
    Join Date
    Sep 2010
    Posts
    190
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by ggzz View Post
    That would be extremely slow! and if banking isn't working for u, try updating your hooks:
    http://reflection.harry.lu/Hooks.simba

    also try the new script I just uploaded.. I added a custom bank function since the reflection2 still doesn't have canifis banking..

    I will look into the under 33 construction thing. Thing is I don't have under 33 construction :c so I'd actually need a good idea to implement. How would it work for u with under 33 construction. What would u like it to do and what would u like to see.
    Add a function for players to set if you have under 33 construction (meaning it's impossible for them to have a poh altar) they run down to the grotto and recharge prayer there, then return to getting fungus or banking.

Page 2 of 2 FirstFirst 12

Thread Information

Users Browsing this Thread

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

Posting Permissions

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