Results 1 to 10 of 10

Thread: i got ti to click but it doenn't anymore

  1. #1
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default i got ti to click but it doenn't anymore

    Code:
    program New;
    {.include srl/srl.scar}
    {.include srl/srl/skill/fishing.scar}
    
    var
      xx,yy,x,y, loads, loadstillswitch:integer;
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 3; // If you add more players , make sure you set this correct, ;)
      NumberOfPlayers(HowManyPlayers);
    
      Players[0].Name := ''; //Your username
      Players[0].Pass := ''; //Your password
      Players[0].Nick := ''; //Nickname from you username
      Players[0].Active := True; //Active->True or False.
      Players[0].Integers[0] := 6 ; //Loads to do.
      Players[0].Strings[0] := 'harpoon';// waht to fish with
      Players[0].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns
    
    
     { Players[1].Name := ''; //Your username
      Players[1].Pass := ''; //Your password
      Players[1].Nick := 'mrs'; //Nickname from you username
      Players[1].Active := True; //Active->True or False.
      Players[1].Integers[0] := 6 ; //Loads to do.
      Players[1].Strings[1] := 'mining';
      Players[1].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns
    
      Players[2].Name := '; //Your username
      Players[2].Pass := ''; //Your password
      Players[2].Nick := 'erch'; //Nickname from you username
      Players[2].Active := True; //Active->True or False.
      Players[2].Integers[0] := 6 ; //Loads to do.
      Players[2].Strings[1] := 'mining';
      Players[2].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns
       }
    end;
    
    
    procedure dropswordfish;
    forward;
    
    procedure AntiBanz;
    begin
      If(not LoggedIn)then Exit;
      Case Random(12) of
        0:  MMouse(Random(MSX2),Random(MSY2),0,0);
        1:  HoverSkill('fishing',false);
        2:  PickupMouse;
        3:  GameTab(1+Random(12));
        4:  SleepAndMoveMouse(400+Random(1500));
        5:  if Random(2) = 1 then MMouse(1, 338, 515, 165);
        6:  if Random(2) = 1 then MMouse(515, 1, 250, 503);
        7:  RandomMovement;
     8..11:
    begin
      case Random(3) of
       0: begin
            KeyDown(VK_RIGHT);
            Wait(500+Random(2000));
            KeyUp(VK_RIGHT);
        end;
       1: begin
            KeyDown(VK_Left);
            Wait(500+Random(2000));
            KeyUp(VK_Left);
          end;
       2: begin
            case Random(2) of
              0: begin
                   KeyDown(VK_RIGHT);
                   Wait(500+Random(1400));
                   KeyUp(VK_RIGHT);
                 end;
              1: begin
                   KeyDown(VK_Left);
                   Wait(500+Random(1400));
                   KeyUp(VK_Left);
                end;
              end;
            end;
          end;
        end;
      end;
    end;
    
    procedure fishing;
    var
      times : integer;
    begin
      repeat
        if findfishspot(xx,yy,players[currentplayer].strings[0]) then
        begin
          mouse(xx,yy,3,3,false);
          wait(100 + random(10));
          ChooseOption(players[currentplayer].strings[0]);
          times := 0;
          repeat
            wait(1000);
            antibanz;
            findnormalrandoms;
            inc(times);
          until ( times = 5);
          end;
      until (invfull)
    end;
    
    procedure droptuna;
    var
      tunadtm: integer;
    begin
      tunaDTM := DTMFromString('78DA63CC64626078C9800276AD5FCF2008A41' +
           '981F83F10306601D5DC6540038C4824904E04AA794E404D3650CD' +
           '07DC6A98407419907C42404D0190BC47404D1C907C4B404D2261F' +
           '70000CD7710D7');
      repeat
        if not LoggedIn then exit;
        Disguise('dropping tuna');
         If FindDTM(tunaDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
         Begin
           Mouse(x,y,2,2,False);
           wait(random(200));
           ChooseOption('Drop');
           wait(500 + random(100))
           findnormalrandoms;
         end;
      Until not FindDTM(tunaDTM,x,y,MIX1,MIY1,MIX2,MIY2);
      dropswordfish;
    end;
    
    procedure dropswordfish;
    var
      swordfishdtm: integer;
    begin
      swordfishDTM := DTMFromString('78DA6374646260D8C1C8800CF6761C671004D' +
            '220D1FF40C0E80254B319550D441646026913A09AA304D47801D5' +
            'EC21A0C6890835EE44B8C716A8661B7E3500259B0D1D');
      repeat
        if not LoggedIn then exit;
        Disguise('dropping swordfish');
         If FindDTM(swordfishDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
         Begin
           Mouse(x,y,2,2,False);
           wait(random(200));
           ChooseOption('Drop');
           wait(500 + random(100))
           findnormalrandoms;
         end;
      Until not FindDTM(swordfishDTM,x,y,MIX1,MIY1,MIX2,MIY2);
    end;
    
    
    procedure proggy;
    begin
      WriteLn('             _____  ______');
      WriteLn('            |     ||      \    ');
      WriteLn('            |     ||       |  ');
      WriteLn('            |     ||   ___/   ');
      WriteLn('           /_____/ |__|    Power Fisher');
      WriteLn('_________________________________________________');
      writeln('did ' + inttostr(loads) + ' loads'        );
    end;
    
    begin
      setupsrl;
      setupfishing;
      activateclient;
      declareplayers;
      graphicsset :=true;
      loginplayer;
      loads := 0;
      repeat
        repeat
          fishing;
          findnormalrandoms;
          droptuna;
          findnormalrandoms;
          proggy;
          inc(loadstillswitch);
          inc(loads);
        until ( loadstillswitch = players[currentplayer].integers[0])
        nextplayer(true);
        loadstillswitch := 0;
      until(allplayersinactive)
    end.
    i posted about this on a diffrent tread i fixed the problem but now the same issue is happening again

    it find the spots fine it just doens't click the thing it goes and highlights the text then moves on after like 2 secconds

  2. #2
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    which part isnt clicking..? im asumeing one of the fish droping fuctions, but im to lazy to read through the whole thing :P so please point out which part isnt working XD

    Edit: ohh you mean the
    SCAR Code:
    ChooseOption(players[currentplayer].strings[0]);
    well first of all.. i havent been scripting to long but im pretty sure xx and yy goes against standards.. somehow, it makes things kinda confuseing to read and personaly if it was me i could easily mistake an xx for an x and then be useing the wrong variable. just declare x and y inside your function:

    SCAR Code:
    procedure fishing;
    var
      times, x, y : integer;
    begin
      repeat
        if findfishspot(x,y,players[currentplayer].strings[0]) then
        begin
          mouse(xx,yy,3,3,false);
          wait(100 + random(10));
          ChooseOption(players[currentplayer].strings[0]);
          times := 0;
          repeat
            wait(1000);
            antibanz;
            findnormalrandoms;
            inc(times);
          until ( times = 5);
          end;
      until (invfull)
    end;

    hmm... i realy dont see anything wrong with ChooseOption(players[currentplayer].strings[0]);... maby replace it with ChoseOption('arpoon'); if that works then you know its something to do with how you called the variable..
    Last edited by Lance; 06-03-2009 at 09:01 AM.
    Lance. Da. Pants.

  3. #3
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    its the actual clicking of the fishing spot

  4. #4
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    {.include srl/srl.scar}
    {.include srl/srl/skill/fishing.scar}

    var
      loads, loadstillswitch:integer;
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 3; // If you add more players , make sure you set this correct, ;)
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := ''; //Your username
      Players[0].Pass := ''; //Your password
      Players[0].Nick := ''; //Nickname from you username
      Players[0].Active := True; //Active->True or False.
      Players[0].Integers[0] := 6 ; //Loads to do.
      Players[0].Strings[0] := 'harpoon';// waht to fish with
      Players[0].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns


     { Players[1].Name := ''; //Your username
      Players[1].Pass := ''; //Your password
      Players[1].Nick := 'mrs'; //Nickname from you username
      Players[1].Active := True; //Active->True or False.
      Players[1].Integers[0] := 6 ; //Loads to do.
      Players[1].Strings[1] := 'mining';
      Players[1].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns

      Players[2].Name := '; //Your username
      Players[2].Pass := ''; //Your password
      Players[2].Nick := 'erch'; //Nickname from you username
      Players[2].Active := True; //Active->True or False.
      Players[2].Integers[0] := 6 ; //Loads to do.
      Players[2].Strings[1] := 'mining';
      Players[2].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns
       }

    end;


    procedure dropswordfish;
    forward;

    procedure AntiBanz;
    begin
      If(not LoggedIn)then Exit;
      Case Random(12) of
        0:  MMouse(Random(MSX2),Random(MSY2),0,0);
        1:  HoverSkill('fishing',false);
        2:  PickupMouse;
        3:  GameTab(1+Random(12));
        4:  SleepAndMoveMouse(400+Random(1500));
        5:  if Random(2) = 1 then MMouse(1, 338, 515, 165);
        6:  if Random(2) = 1 then MMouse(515, 1, 250, 503);
        7:  RandomMovement;
     8..11:
    begin
      case Random(3) of
       0: begin
            KeyDown(VK_RIGHT);
            Wait(500+Random(2000));
            KeyUp(VK_RIGHT);
        end;
       1: begin
            KeyDown(VK_Left);
            Wait(500+Random(2000));
            KeyUp(VK_Left);
          end;
       2: begin
            case Random(2) of
              0: begin
                   KeyDown(VK_RIGHT);
                   Wait(500+Random(1400));
                   KeyUp(VK_RIGHT);
                 end;
              1: begin
                   KeyDown(VK_Left);
                   Wait(500+Random(1400));
                   KeyUp(VK_Left);
                end;
              end;
            end;
          end;
        end;
      end;
    end;

    procedure fishing;
    var
      times : integer;
      x, y : integer;
    begin
      repeat
        if findfishspot(x,y,players[currentplayer].strings[0]) then
        begin
          mouse(x,y,3,3,false);
          wait(100 + random(10));
          ChooseOption(players[currentplayer].strings[0]);
          times := 0;
          repeat
            wait(1000);
            antibanz;
            findnormalrandoms;
            inc(times);
          until ( times = 5);
          end;
      until (invfull)
    end;

    procedure droptuna;
    var
      tunadtm, x, y : integer;
    begin
      tunaDTM := DTMFromString('78DA63CC64626078C9800276AD5FCF2008A41' +
           '981F83F10306601D5DC6540038C4824904E04AA794E404D3650CD' +
           '07DC6A98407419907C42404D0190BC47404D1C907C4B404D2261F' +
           '70000CD7710D7');
      repeat
        if not LoggedIn then exit;
        Disguise('dropping tuna');
         If FindDTM(tunaDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
         Begin
           Mouse(x,y,2,2,False);
           wait(random(200));
           ChooseOption('Drop');
           wait(500 + random(100))
           findnormalrandoms;
         end;
      Until not FindDTM(tunaDTM,x,y,MIX1,MIY1,MIX2,MIY2);
      dropswordfish;
    end;

    procedure dropswordfish;
    var
      swordfishdtm, x, y : integer;
    begin
      swordfishDTM := DTMFromString('78DA6374646260D8C1C8800CF6761C671004D' +
            '220D1FF40C0E80254B319550D441646026913A09AA304D47801D5' +
            'EC21A0C6890835EE44B8C716A8661B7E3500259B0D1D');
      repeat
        if not LoggedIn then exit;
        Disguise('dropping swordfish');
         If FindDTM(swordfishDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
         Begin
           Mouse(x,y,2,2,False);
           wait(random(200));
           ChooseOption('Drop');
           wait(500 + random(100))
           findnormalrandoms;
         end;
      Until not FindDTM(swordfishDTM,x,y,MIX1,MIY1,MIX2,MIY2);
    end;


    procedure proggy;
    begin
      WriteLn('             _____  ______');
      WriteLn('            |     ||      \    ');
      WriteLn('            |     ||       |  ');
      WriteLn('            |     ||   ___/   ');
      WriteLn('           /_____/ |__|    Power Fisher');
      WriteLn('_________________________________________________');
      writeln('did ' + inttostr(loads) + ' loads'        );
    end;

    begin
      setupsrl;
      setupfishing;
      activateclient;
      declareplayers;
      graphicsset :=true;
      loginplayer;
      loads := 0;
      repeat
        repeat
          fishing;
          findnormalrandoms;
          droptuna;
          findnormalrandoms;
          proggy;
          inc(loadstillswitch);
          inc(loads);
        until ( loadstillswitch = players[currentplayer].integers[0])
        nextplayer(true);
        loadstillswitch := 0;
      until(allplayersinactive)
    end.
    Try that okay .
    Last edited by Da 0wner; 06-03-2009 at 09:07 AM.

  5. #5
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    nope same result

  6. #6
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hm... well ok so it looks like this is the problem area:
    SCAR Code:
    if findfishspot(x,y,players[currentplayer].strings[0]) then
      begin
      mouse(x,y,3,3,false);  
      wait(100 + random(10));    
      ChooseOption(players[currentplayer].strings[0]);

    ok i surched Fishing.scar for a FindFishSpot function.. and i couldnt.. i dont realy know where your getting that from, but if its anything like the FindObj functions (which i think it looks like) then what it would do is surch colors and then mouse over to check if the UpText is right. so if its mouseing over the fishing spot but not clicking, that means your uptext must be wrong.
    I sudgest replaceing
    SCAR Code:
    findfishspot(x,y,players[currentplayer].strings[0])
    with
    SCAR Code:
    findfishspot(x, y, 'poon')

    tell me if that changes anything. and couuld you please find the FindFishSpot() function in the includes and show it to me? that might help me see what is going wrong with your script :]
    Last edited by Lance; 06-03-2009 at 02:12 PM.
    Lance. Da. Pants.

  7. #7
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ah, it is because you have harpoon and not arpoon.

  8. #8
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Da Owner, it should still find it shouldnt it? it would just take alittle longer.
    Lance. Da. Pants.

  9. #9
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No because he has a lowercase h not an uppercase H. If it was uppercase, it would work.

  10. #10
    Join Date
    Dec 2006
    Location
    Canada, BC
    Posts
    728
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ohhhh i see. damn how could i miss that?

    Edit: ok J Pizzle, if you didnt catch that you mearly have to change

    Players[0].Strings[0] := 'harpoon';// waht to fish with

    to

    Players[0].Strings[0] := 'arpoon';// waht to fish with
    or
    Players[0].Strings[0] := 'Harpoon';// waht to fish with

    (its faster to not use uppercase letters, so in this case you would use 'arpoon' instead of 'Harpoon')
    Last edited by Lance; 06-03-2009 at 03:28 PM.
    Lance. Da. Pants.

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
  •