Results 1 to 22 of 22

Thread: Tuna dropper wanted.

  1. #1
    Join Date
    Mar 2009
    Location
    England
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Exclamation Tuna dropper wanted.

    Hi, I am starting to fish and bank my swordies, but I want a way to drop my tuna rather than manual srop because im lazy
    I know that
    program Dropper;
    {.include srl/srl.scar}
    begin
    SetupSRL;
    repeat
    if InvFull then
    DropAll;
    Wait(1000);
    until(false);
    end.
    Drops all but how to i make it just drop tunas?
    Anti-moralfag

    Quote Originally Posted by YoHoJo View Post
    My guess is either a PRIVATE: reflection bot or OGL bot, also possibly created by the Chinese.

  2. #2
    Join Date
    Nov 2008
    Location
    Belgium
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Make a DTM of Tuna and do something like this:
    program Dropper;
    {.include srl/srl.scar}
    var Tuna: integer;
    begin
    LoadDTm(Tuna);
    SetupSRL;
    LoadDTM
    repeat
    if FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2) then
    MMouse(x,y,4,4);
    ChooseOption('rop');
    Wait(1000);
    end else (alse)
    until(false)
    FreeDTM(Tuna);
    end.
    EDIt: DTM of a Tuna;
    Tuna := DTMFromString( '78DA637463606038CF800296CC9CC9C00FA41' +
    '981F83F1030FA01196719D000231209A40381C405026AAC80 C42D' +
    '026A2C80C445FC6A00B3840B5E');
    Last edited by impiwimpi; 04-25-2009 at 12:12 AM.

  3. #3
    Join Date
    Aug 2007
    Location
    Where do you live?
    Posts
    934
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I'm assuming you want to run a script while you play legit? Well you need to make SCAR find the tunas... You can do this many different ways... Reflection is the cheap easy way or you could make a DTM or bitmap... or you could simply jus use the color of the tuna So go ahead and make your "FindTuna" function, then your script should look somethin like this:
    SCAR Code:
    If FindTuna(x, y) then MMouse(x, y, 5, 5);
    if IsUpText('una') then
    begin
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, false);
      Wait(75+random(75));
      If not ChooseOption('drop') then exit;
    end;

    Doh, beat me to first post

  4. #4
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    drop (2) - (28)?
    Did someone say GDK?

  5. #5
    Join Date
    Mar 2009
    Location
    England
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    what do i do with the
    Tuna := DTMFromString( '78DA637463606038CF800296CC9CC9C00FA41' +
    '981F83F1030FA01196719D000231209A40381C405026AAC80 C42D' +
    '026A2C80C445FC6A00B3840B5E');
    in the script impiwimpi?
    Anti-moralfag

    Quote Originally Posted by YoHoJo View Post
    My guess is either a PRIVATE: reflection bot or OGL bot, also possibly created by the Chinese.

  6. #6
    Join Date
    Mar 2009
    Location
    England
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    jakeyboy, if my inventorys full while harpooning i want it to drop the tunas and not the swordies
    Anti-moralfag

    Quote Originally Posted by YoHoJo View Post
    My guess is either a PRIVATE: reflection bot or OGL bot, also possibly created by the Chinese.

  7. #7
    Join Date
    Mar 2009
    Location
    England
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Can anyone just post a full script please?
    Anti-moralfag

    Quote Originally Posted by YoHoJo View Post
    My guess is either a PRIVATE: reflection bot or OGL bot, also possibly created by the Chinese.

  8. #8
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    SCAR Code:
    program Dropper;
    {.include srl/srl.scar}
    var Tuna,x,y: integer;
    begin
    Tuna := DTMFromString( '78DA637463606038CF800296CC9CC9C00FA41' +
    '981F83F1030FA01196719D000231209A40381C405026AAC80 C42D' +
    '026A2C80C445FC6A00B3840B5E');
    SetupSRL;
    LoadDTM
    for i := 0 to 27 do
      if FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2) then
      MMouse(x,y,4,4);
      ChooseOption('rop');
      Wait(1000);
      end;
    FreeDTM(Tuna);
    end.
    I do visit every 2-6 months

  9. #9
    Join Date
    Mar 2009
    Location
    England
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Error:
    program Dropper;
    {.include srl/srl.scar}
    var Tuna,x,y: integer;
    begin
    Tuna := DTMFromString( '78DA637463606038CF800296CC9CC9C00FA41' +
    '981F83F1030FA01196719D000231209A40381C405026AAC80 C42D' +
    '026A2C80C445FC6A00B3840B5E');
    SetupSRL;
    LoadDTM
    for i := 0 to 28 do
    if FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2) then
    MMouse(x,y,4,4);
    ChooseOption('rop');
    Wait(1000);
    end;
    FreeDTM(Tuna);
    end.
    Failed when compiling
    Line 10: [Error] (16767:1): Invalid number of parameters in script

  10. #10
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    and for the vars at the top should have " I, Tuna,x,y "
    i said for i := 0 to 27....

    0 counts as a slot. 0 1 2 would check the first 3 slots. thats why its 0 to 27 not 0 to 28.

    0 to 28 would check 29 times.
    I do visit every 2-6 months

  11. #11
    Join Date
    Mar 2009
    Location
    England
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by zasz View Post
    and for the vars at the top should have " I, Tuna,x,y "
    i said for i := 0 to 27....

    0 counts as a slot. 0 1 2 would check the first 3 slots. thats why its 0 to 27 not 0 to 28.

    0 to 28 would check 29 times.

    program Dropper;
    {.include srl/srl.scar}
    var I,Tuna,x,y: integer;
    begin
    Tuna := DTMFromString( '78DA637463606038CF800296CC9CC9C00FA41' +
    '981F83F1030FA01196719D000231209A40381C405026AAC80 C42D' +
    '026A2C80C445FC6A00B3840B5E');
    SetupSRL;
    LoadDTM
    for i := 0 to 27 do
    if FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2) then
    MMouse(x,y,4,4);
    ChooseOption('rop');
    Wait(1000);
    end;
    FreeDTM(Tuna);
    end.

    Still not working!
    Anti-moralfag

    Quote Originally Posted by YoHoJo View Post
    My guess is either a PRIVATE: reflection bot or OGL bot, also possibly created by the Chinese.

  12. #12
    Join Date
    Jan 2008
    Location
    Frankfurt, Germany
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program Dropper;

    {.include srl/srl.scar}

    var
      Tuna,x,y: integer;
      NotFind : Boolean;

    begin
      Tuna := DTMFromString( '78DA637463606038CF800296CC9CC9C00FA41' +
      '981F83F1030FA01196719D000231209A40381C405026AAC80 C42D' +
      '026A2C80C445FC6A00B3840B5E');
      SetupSRL;
      repeat
        if FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Mouse(x,y,4,4,false);
          ChooseOption('rop');
          Wait(1000);
        end else
          NotFind := True;
      until NotFind;
    end.

    Erm, guys, it really isn't that hard...

    Edit: He has tuna AND Swordies in his inventory, not ONLY tunas, as far as I got it, secondly, why load a DTM when it is already declared? Thirdly, no Standards = epic fail, by posting on a help thread you are setting giving an example from which people will/might learn...
    There is nothing right in my left brain and there is nothing left in my right brain.

  13. #13
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    MMouse(x, y, 4, 4); -> Mouse(x, y, 3, 3, False);

    Ninja'd. >:/

  14. #14
    Join Date
    Mar 2009
    Location
    England
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    In:
    program Dropper;

    {.include srl/srl.scar}

    var
    Tuna,x,y: integer;
    NotFind : Boolean;

    begin
    Tuna := DTMFromString( '78DA637463606038CF800296CC9CC9C00FA41' +
    '981F83F1030FA01196719D000231209A40381C405026AAC80 C42D' +
    '026A2C80C445FC6A00B3840B5E');
    SetupSRL;
    repeat
    if FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
    Mouse(x,y,4,4,false);
    ChooseOption('rop');
    Wait(1000);
    end else
    NotFind := True;
    until NotFind;
    end.
    and
    program Dropper;

    {.include srl/srl.scar}

    var
    Tuna,x,y: integer;
    NotFind : Boolean;

    begin
    Tuna := DTMFromString( '78DA637463606038CF800296CC9CC9C00FA41' +
    '981F83F1030FA01196719D000231209A40381C405026AAC80 C42D' +
    '026A2C80C445FC6A00B3840B5E');
    SetupSRL;
    repeat
    if FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
    Mouse(x,y,3,3,false);
    ChooseOption('rop');
    Wait(1000);
    end else
    NotFind := True;
    until NotFind;
    end.
    [Runtime Error] : Exception: "Invalid encrypted string" in line 10 in script

  15. #15
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    SCAR Code:
    program Dropper;
    {.include srl/srl.scar}
    var I,Tuna,x,y: integer;
    begin
    Tuna := DTMFromString( '78DA637463606038CF800296CC9CC9C00FA41' +
    '981F83F1030FA01196719D000231209A40381C405026AAC80 C42D' +
    '026A2C80C445FC6A00B3840B5E');
    SetupSRL;
    for i := 0 to 27 do
    begin
    if FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2) then
    MMouse(x,y,4,4);
    ChooseOption('rop');
    Wait(1000);
    end;
    FreeDTM(Tuna);
    end.
    FIX^^
    lol, some retards post here....

  16. #16
    Join Date
    Jan 2008
    Location
    Frankfurt, Germany
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol, never had that errror before... looking into it, give me a sec... :O
    LOL, Footballjds, how are you going to choose an option without clicking the object? xD
    There is nothing right in my left brain and there is nothing left in my right brain.

  17. #17
    Join Date
    Jan 2008
    Location
    Frankfurt, Germany
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Found the error, the dtm is wrong, create a new one... there is a space in "...C80 C42D'" which isn't allowed in a DTM ^^
    Sorry for double post, thought someone posted in the mean time

    Okay, working DTm included, works perfectly, just tested it:
    SCAR Code:
    program Dropper;

    {.include srl/srl.scar}

    var
      Tuna,x,y: integer;
      NotFind : Boolean;

    begin
      SetupSRL;
      Tuna := DTMFromString('78DA63CC616260E0616440068BA64F636005D' +
           '220D1FF40C0580654C381AA06240B5303E6A503D5881250930A54' +
           'C34E404D1C508D3001357940352CF8D50000B19F08CE');
      repeat
        if FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Mouse(x,y,4,4,false);
          ChooseOption('rop');
          Wait(1000);
        end else
          NotFind := True;
      until NotFind;
    end.
    There is nothing right in my left brain and there is nothing left in my right brain.

  18. #18
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Pure1993 View Post
    Found the error, the dtm is wrong, create a new one... there is a space in "...C80 C42D'" which isn't allowed in a DTM ^^
    Sorry for double post, thought someone posted in the mean time

    Okay, working DTm included, works perfectly, just tested it:
    SCAR Code:
    program Dropper;

    {.include srl/srl.scar}

    var
      Tuna,x,y: integer;
      NotFind : Boolean;

    begin
      SetupSRL;
      Tuna := DTMFromString('78DA63CC616260E0616440068BA64F636005D' +
           '220D1FF40C0580654C381AA06240B5303E6A503D5881250930A54' +
           'C34E404D1C508D3001357940352CF8D50000B19F08CE');
      repeat
        if FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Mouse(x,y,4,4,false);
          ChooseOption('rop');
          Wait(1000);
        end else
          NotFind := True;
      until NotFind;
    end.
    nothing to set it back false for next time it calls procedure.

    SCAR Code:
    program Dropper;

    {.include srl/srl.scar}

    var
      Tuna,x,y: integer;
      NotFind : Boolean;

    begin
      SetupSRL;
      Tuna := DTMFromString('78DA63CC616260E0616440068BA64F636005D' +
           '220D1FF40C0580654C381AA06240B5303E6A503D5881250930A54' +
           'C34E404D1C508D3001357940352CF8D50000B19F08CE');
      for i := 0 to 27 do
        if FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Mouse(x,y,4,4,false);
          ChooseOption('rop');
          Wait(1000);
        end;
    end.

    ^ more efficient.
    I do visit every 2-6 months

  19. #19
    Join Date
    Jan 2008
    Location
    Frankfurt, Germany
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol, but he doesn't have 27 tunas... he also has some swordies... so we are looking for the tuna way to often with i := 0 to 27... And he is restarting the script every time he wants to drop his tuna, thus reseting the values automatically to false...
    There is nothing right in my left brain and there is nothing left in my right brain.

  20. #20
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    it checks for tuna 28 times... Swordies are non-relevant in the procedure... That way if its found in slot 1 to slot 28 it drops.

    Don't you know the procedure
    SCAR Code:
    for i := blank to Blank do
    0 to 27 is like 0 1 2...26 27 = 28 times it calls...

    here use this example for my evidence.

    SCAR Code:
    program New;
    var
      me,i:integer;


    begin
      for i := 0 to 4 do
      begin
        me := me + 1;
      end;
      writeln(inttostr(me));
    end.

    because of the I goes the the loop 1 time at 0, 2 at 1, 3 at 2, 4 at 3, 5 at 4. You get me? Result
    Code:
    Successfully compiled (347 ms)
    5
    Successfully executed
    I do visit every 2-6 months

  21. #21
    Join Date
    Jan 2008
    Location
    Frankfurt, Germany
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol, of course I know the procedure, but my methode only searches for tuna as long as there is still tuna to find... let's say you only have 13 tunas in your inventory, but you check 28 times, then it will search 15 times more than needed...
    Of course the findDTM function is so fast that techincally, it doesn't really matter, but still, I preffer to only search as long as there is something to search for

    Edit:

    Quote Originally Posted by zasz View Post
    here use this example for my evidence.

    SCAR Code:
    program New;
    var
      me,i:integer;


    begin
      for i := 0 to 4 do
      begin
        me := me + 1;
      end;
      writeln(inttostr(me));
    end.

    because of the I goes the the loop 1 time at 0, 2 at 1, 3 at 2, 4 at 3, 5 at 4. You get me? Result
    Code:
    Successfully compiled (347 ms)
    5
    Successfully executed
    Quite honestly, I think we are talking past each other... I know your way works as well as mine does, but mine works faster... Anyway, I became a member quite a while back ( member = must know "for to do"), and I did release a script or two (even though I must admit, none of them were high quality, for the ones I am using I will not release until I maxed out the corresponding skills), but if you take a look at ANY of them, you will see the usage of "for to do" a lot of times...
    There is nothing right in my left brain and there is nothing left in my right brain.

  22. #22
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    Quote Originally Posted by Pure1993 View Post
    Lol, never had that errror before... looking into it, give me a sec... :O
    LOL, Footballjds, how are you going to choose an option without clicking the object? xD
    lol, its not as if i wrote that. i just edited so it compiled

    it is crap ftl...

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
  •