Results 1 to 16 of 16

Thread: help please read this

  1. #1
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help please read this

    iv made a script works perfect iv put it on smart its powerminer and now it doesnt drop any ore at all but if i log on rsclient without smart n run it works?
    heres the script

  2. #2
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    It would be easier if you posted with simba tags. Just makes the code more available. Are you using the built in DropAll; function?
    Current Project: Retired

  3. #3
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    not using that didnt kno i folowed yohojo tut on yt il post code

  4. #4
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [simba]program copperminer;
    {$DEFINE SMART}
    {.include SRL\SRL.simba}
    {.Include SRL\SRL\Misc\Debug.simba}
    //{$i SRL\SRL\Misc\paintsmart.simba}


    Const

    SRLStats_Username = ''; // Your SRL Stats Username
    SRLStats_Password = ''; // Your SRL Stats Password
    NumbOfPlayers= 1; //How many players are you using
    StartPlayer= 0; //Player to start auoting with! (0 means first char)
    LoadsTotal= 999999; //How Many Total Lods To Do Per Character!
    Version= '1.0'; //NO TOUCHY! program new;


    {************************************************* ******************************
    procedure DeclarePlayers;
    By: SRL
    Description: SRL's Player Setup
    ************************************************** *****************************}
    procedure DeclarePlayers;
    var i:integer;
    begin
    NumberOfPlayers(NumbOfPlayers);
    CurrentPlayer := StartPlayer;
    for i := 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

    with Players[0] do
    begin
    Name := ''; //Player username.
    Pass := ''; //Player password.
    Active := True;
    Integers[1] := 4; //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
    Integers[2] := 4; //Seconds to try mining rock before clicking another.
    end;

    end;


    {************************************************* ******************************
    Procedure StatsGuise(wat:String);
    By: YoHoJo
    Description: Combination of Status & Diguise
    ************************************************** *****************************}
    Procedure StatsGuise(wat:String);
    Begin
    Status(wat);
    Disguise(wat);
    End;


    {************************************************* ******************************
    Function CheckAndClick(X,Y:Integer):Boolean;
    By: YoHoJo
    Description: Moves mouse to x,y, checks for uptext, and clikcs if found
    ************************************************** *****************************}
    Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
    Begin
    MMouse(x, y, 5, 5);
    If WaitUptext(UpText, 5000) Then
    Begin
    Result:=True;
    GetMousePos(x, y);

    Case RClick Of

    'R':
    Begin
    Mouse(x, y, 0, 0, False);
    WaitOption('ine', 2000);
    FFlag(0);
    End;

    'L':
    Begin
    Mouse(x, y, 0, 0,True);
    Wait(100+Random(50));
    FFlag(0);
    End;

    End;
    End;

    End;


    Procedure Antiban;
    Begin
    Case Random(2000) Of

    0:
    Begin
    //PaintReport;
    HoverSkill('Mining', False);
    //PaintReport;
    GameTab(Tab_Inv);
    //PaintReport;
    End;
    1:
    Begin
    //PaintReport;
    PickUpMouse;
    SleepAndMoveMouse(3000 + Random(500));
    //PaintReport;
    PickUpMouse;
    End;
    2: ExamineInv;
    3:
    Begin
    //PaintReport;
    RandomAngle(SRL_ANGLE_HIGH);
    //PaintReport;
    SetAngle(SRL_ANGLE_HIGH);
    //PaintReport;
    End;
    4:
    Begin
    //PaintReport;
    GameTab(Tab_Stats);
    //PaintReport;
    Wait(3000 + Random(500));
    //PaintReport;
    GameTab(Tab_Inv);
    End;
    5:
    Begin
    //PaintReport;
    HoverSkill('random', False);
    //PaintReport;
    GameTab(Tab_Inv);
    End;

    End;
    End;

    Procedure Failsafe (reason:string);
    begin
    players[currentplayer].Loc:=reason;
    logout;
    stats_commit;
    terminatescript;
    end;



    Function mineore:boolean;
    var
    x, y, Plusone, treecounter: integer;
    begin
    FindNormalRandoms;
    plusone:= Invcount + 1;
    If FindObjcustom(x, y, ['Mine', 'copper', 'e c'], [4687337, 4291285, 4943530], 7) Then
    begin
    StatsGuise('hooray we found the bastard');
    getmousepos(x, y);

    case random(1) of
    0: mouse (x, y, 5, 5, true);
    1: begin
    mouse (x, y, 5, 5, false);
    WaitOption ('mine', 1000);
    end;
    end;

    flag;
    marktime(treecounter);

    Repeat
    FindNormalRandoms;
    statsGuise('Antiban and waiting');
    Antiban;
    wait(100);
    if invcount=plusone then
    writeln('we got one');
    until (invcount=plusone) or (timefrommark(treecounter) > 9000)

    End;
    end;

    Procedure dropore;
    var
    x, y, oreDTM, I:integer;
    Slotbox:Tbox;
    orePattern:TintegerArray;



    begin
    oreDTM := DTMFromString('mbQAAAHicY2VgYEhlZmCIAuIUIC4A4iwgVm dkYFAGYhMg1gViOSDekm7O4GWtyZASYAHUxcRwrNCGAR38B2JG LBgMABwkCEU=');
    orePattern:=[1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19, 23,27,4,8,12,16,20,24,28];
    for I:=0 to 27 do
    begin
    slotbox:=invbox(orePattern[I]);
    If FindDTM(oreDTM,x,y,slotbox.x1,slotbox.y1, slotbox.x2, slotbox.y2) Then
    begin
    MouseItem(orePattern[I],Mouse_Right);
    chooseoption('op');
    end;
    end;

    end;

    begin
    Smart_Server := 54;
    Smart_Members := true;
    Smart_Signed := false;
    Smart_SuperDetail := false;
    SetupSRL;
    DeclarePlayers;
    repeat
    mineore;
    if InvFull Then
    dropore;
    Until(false);
    End.[simba]

  5. #5
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    the closing tag should be [/simba]. I'd try using DropAll; like Gucci mentioned.

  6. #6
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how would i change it to dropall?any ideas sorry im really new

  7. #7
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by tombow View Post
    how would i change it to dropall?any ideas sorry im really new
    Here's what DropAll; does. You just call it as DropAll; in your script
    Simba Code:
    procedure DropAll;
    var i: integer;
    begin
      for i:= 0 to 2 do
      begin
        DropPattern(Random(2) + 1);
        if InvCount = 0 then
          break;
      end;
    end;

  8. #8
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    done that i get this error?

    [Error] (184:11): Duplicate identifier 'DROPALL' at line 183
    Compiling failed.

  9. #9
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by tombow View Post
    done that i get this error?

    [Error] (184:11): Duplicate identifier 'DROPALL' at line 183
    Compiling failed.
    Could you show how you added it?

  10. #10
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    You must have called the procedure dropall and then called dropall;
    Current Project: Retired

  11. #11
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simba Code:
    program copperminer;
    {$DEFINE SMART}
    {.include SRL\SRL.simba}
    {.Include SRL\SRL\Misc\Debug.simba}
    //{$i SRL\SRL\Misc\paintsmart.simba}


    Const

     SRLStats_Username = ''; // Your SRL Stats Username
     SRLStats_Password = ''; // Your SRL Stats Password
     NumbOfPlayers= 1;     //How many players are you using
     StartPlayer=   0;     //Player to start auoting with! (0 means first char)
     LoadsTotal=    999999;  //How Many Total Lods To Do Per Character!
     Version=       '1.0'; //NO TOUCHY!   program new;


     {*******************************************************************************
    procedure DeclarePlayers;
    By: SRL
    Description: SRL's Player Setup
    *******************************************************************************}

    procedure DeclarePlayers;
    var i:integer;
    begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer;
      for i := 0 to NumbOfPlayers-1 do
        Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

      with Players[0] do
      begin
        Name        := '';     //Player username.
        Pass        := '';     //Player password.
        Active      := True;
        Integers[1] := 4;       //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
        Integers[2] := 4;      //Seconds to try mining rock before clicking another.
      end;

    end;


    {*******************************************************************************
    Procedure StatsGuise(wat:String);
    By: YoHoJo
    Description: Combination of Status & Diguise
    *******************************************************************************}

    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;


    {*******************************************************************************
    Function CheckAndClick(X,Y:Integer):Boolean;
    By: YoHoJo
    Description: Moves mouse to x,y, checks for uptext, and clikcs if found
    *******************************************************************************}

    Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
    Begin
      MMouse(x, y, 5, 5);
      If WaitUptext(UpText, 5000) Then
      Begin
        Result:=True;
        GetMousePos(x, y);

        Case RClick Of

          'R':
          Begin
            Mouse(x, y, 0, 0, False);
            WaitOption('ine', 2000);
            FFlag(0);
          End;

          'L':
          Begin
            Mouse(x, y, 0, 0,True);
            Wait(100+Random(50));
            FFlag(0);
          End;

        End;
      End;

    End;


    Procedure Antiban;
    Begin
      Case Random(2000) Of

        0:
        Begin
          //PaintReport;
          HoverSkill('Mining', False);
          //PaintReport;
          GameTab(Tab_Inv);
          //PaintReport;
        End;
        1:
        Begin
          //PaintReport;
          PickUpMouse;
          SleepAndMoveMouse(3000 + Random(500));
          //PaintReport;
          PickUpMouse;
        End;
        2: ExamineInv;
        3:
        Begin
          //PaintReport;
          RandomAngle(SRL_ANGLE_HIGH);
          //PaintReport;
          SetAngle(SRL_ANGLE_HIGH);
          //PaintReport;
        End;
        4:
        Begin
          //PaintReport;
          GameTab(Tab_Stats);
          //PaintReport;
          Wait(3000 + Random(500));
          //PaintReport;
          GameTab(Tab_Inv);
        End;
        5:
        Begin
          //PaintReport;
          HoverSkill('random', False);
          //PaintReport;
          GameTab(Tab_Inv);
        End;

      End;
    End;

    Procedure Failsafe (reason:string);
    begin
      players[currentplayer].Loc:=reason;
      logout;
      stats_commit;
      terminatescript;
    end;



    Function mineore:boolean;
      var
      x, y, Plusone, treecounter: integer;
    begin
       FindNormalRandoms;
       plusone:= Invcount + 1;
       If FindObjcustom(x, y, ['Mine', 'copper', 'e c'], [4687337, 4291285, 4943530], 7) Then
     begin
      StatsGuise('hooray we found the bastard');
      getmousepos(x, y);

      case random(1) of
      0: mouse (x, y, 5, 5, true);
      1: begin
           mouse (x, y, 5, 5, false);
           WaitOption ('mine', 1000);
         end;
      end;

      flag;
      marktime(treecounter);

      Repeat
        FindNormalRandoms;
        statsGuise('Antiban and waiting');
        Antiban;
        wait(100);
        if invcount=plusone then
          writeln('we got one');
      until (invcount=plusone) or (timefrommark(treecounter) > 9000)

     End;
    end;

    procedure DropAll;
    var i: integer;
    begin
      for i:= 0 to 2 do
      begin
        DropPattern(Random(2) + 1);
        if InvCount = 0 then
          mineore;
      end;
    end;

    begin
      Smart_Server := 54;
      Smart_Members := true;
      Smart_Signed := false;
      Smart_SuperDetail := false;
      SetupSRL;
      DeclarePlayers;
      repeat
        mineore;
        if InvFull Then
        DropAll;
      Until(false);
    End.

  12. #12
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by tombow View Post
    Simba Code:
    program copperminer;
    {$DEFINE SMART}
    {.include SRL\SRL.simba}
    {.Include SRL\SRL\Misc\Debug.simba}
    //{$i SRL\SRL\Misc\paintsmart.simba}


    Const

     SRLStats_Username = ''; // Your SRL Stats Username
     SRLStats_Password = ''; // Your SRL Stats Password
     NumbOfPlayers= 1;     //How many players are you using
     StartPlayer=   0;     //Player to start auoting with! (0 means first char)
     LoadsTotal=    999999;  //How Many Total Lods To Do Per Character!
     Version=       '1.0'; //NO TOUCHY!   program new;


     {*******************************************************************************
    procedure DeclarePlayers;
    By: SRL
    Description: SRL's Player Setup
    *******************************************************************************}

    procedure DeclarePlayers;
    var i:integer;
    begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer;
      for i := 0 to NumbOfPlayers-1 do
        Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

      with Players[0] do
      begin
        Name        := '';     //Player username.
        Pass        := '';     //Player password.
        Active      := True;
        Integers[1] := 4;       //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
        Integers[2] := 4;      //Seconds to try mining rock before clicking another.
      end;

    end;


    {*******************************************************************************
    Procedure StatsGuise(wat:String);
    By: YoHoJo
    Description: Combination of Status & Diguise
    *******************************************************************************}

    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;


    {*******************************************************************************
    Function CheckAndClick(X,Y:Integer):Boolean;
    By: YoHoJo
    Description: Moves mouse to x,y, checks for uptext, and clikcs if found
    *******************************************************************************}

    Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
    Begin
      MMouse(x, y, 5, 5);
      If WaitUptext(UpText, 5000) Then
      Begin
        Result:=True;
        GetMousePos(x, y);

        Case RClick Of

          'R':
          Begin
            Mouse(x, y, 0, 0, False);
            WaitOption('ine', 2000);
            FFlag(0);
          End;

          'L':
          Begin
            Mouse(x, y, 0, 0,True);
            Wait(100+Random(50));
            FFlag(0);
          End;

        End;
      End;

    End;


    Procedure Antiban;
    Begin
      Case Random(2000) Of

        0:
        Begin
          //PaintReport;
          HoverSkill('Mining', False);
          //PaintReport;
          GameTab(Tab_Inv);
          //PaintReport;
        End;
        1:
        Begin
          //PaintReport;
          PickUpMouse;
          SleepAndMoveMouse(3000 + Random(500));
          //PaintReport;
          PickUpMouse;
        End;
        2: ExamineInv;
        3:
        Begin
          //PaintReport;
          RandomAngle(SRL_ANGLE_HIGH);
          //PaintReport;
          SetAngle(SRL_ANGLE_HIGH);
          //PaintReport;
        End;
        4:
        Begin
          //PaintReport;
          GameTab(Tab_Stats);
          //PaintReport;
          Wait(3000 + Random(500));
          //PaintReport;
          GameTab(Tab_Inv);
        End;
        5:
        Begin
          //PaintReport;
          HoverSkill('random', False);
          //PaintReport;
          GameTab(Tab_Inv);
        End;

      End;
    End;

    Procedure Failsafe (reason:string);
    begin
      players[currentplayer].Loc:=reason;
      logout;
      stats_commit;
      terminatescript;
    end;



    Function mineore:boolean;
      var
      x, y, Plusone, treecounter: integer;
    begin
       FindNormalRandoms;
       plusone:= Invcount + 1;
       If FindObjcustom(x, y, ['Mine', 'copper', 'e c'], [4687337, 4291285, 4943530], 7) Then
     begin
      StatsGuise('hooray we found the bastard');
      getmousepos(x, y);

      case random(1) of
      0: mouse (x, y, 5, 5, true);
      1: begin
           mouse (x, y, 5, 5, false);
           WaitOption ('mine', 1000);
         end;
      end;

      flag;
      marktime(treecounter);

      Repeat
        FindNormalRandoms;
        statsGuise('Antiban and waiting');
        Antiban;
        wait(100);
        if invcount=plusone then
          writeln('we got one');
      until (invcount=plusone) or (timefrommark(treecounter) > 9000)

     End;
    end;

    procedure DropAll;
    var i: integer;
    begin
      for i:= 0 to 2 do
      begin
        DropPattern(Random(2) + 1);
        if InvCount = 0 then
          mineore;
      end;
    end;

    begin
      Smart_Server := 54;
      Smart_Members := true;
      Smart_Signed := false;
      Smart_SuperDetail := false;
      SetupSRL;
      DeclarePlayers;
      repeat
        mineore;
        if InvFull Then
        DropAll;
      Until(false);
    End.
    Since DropAll is already in the include you don't need that procedure All you'd need is something like this
    Simba Code:
    Procedure GoodbyeOres;
    begin
      repeat
        DropAll;
      until (invcount = 0);
    end;

  13. #13
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks do you guys kno how i can add a progress report to it ?

  14. #14
    Join Date
    Apr 2012
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    also,one problem with script it just keeps right clicking when i get a strange rock can anyone help to stop that need a function
    i thought

    if findobjcustom('trangerock')
    mouseclick (x, y, 0)
    'destroy

  15. #15
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    Use a function that finds the chat message for it and results in true or false then just make a procedure that starts when the result is true. So like this:

    Simba Code:
    Function Rock: Boolean;
    Begin
     If FindBlackChatMessage('whatever comes up') then
     Result := True
     Else Result := False
    End;

    Then the procedure should be like:

    Simba Code:
    Procedure DestroyRock;
    Begin
     If (Rock = True) then
     Begin
      //Find function here
      // Uptext Check
     //destroying rock part
     End;
    End;
    Current Project: Retired

  16. #16
    Join Date
    Feb 2012
    Location
    Somewhere, over the rainbow...
    Posts
    2,272
    Mentioned
    3 Post(s)
    Quoted
    45 Post(s)

    Default

    Quote Originally Posted by tombow View Post
    thanks do you guys kno how i can add a progress report to it ?
    Erm *cough* check my sig *cough*

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
  •