Results 1 to 7 of 7

Thread: Neeeed Help Noow!!

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

    Neeeed Help Noow!!

    Hey guys.
    I want to know why my script is'nt finding my lobs in invent.
    DTMs seem alright and setup, i think.
    Can someone post the fix please.
    Here.

    SCAR Code:
    {-8-----8---8----8--8---88888----88----8-----8-----8-----}
    {-8-----8---8----8-8----8--------88----88----8--8888888--}
    {-8-----8---8----88-----8-------8--8---8-8---8-----8-----}
    {--8---8----8----88-----8-------8888---8--8--8-----8-----}
    {---8-8-----8----8--8---8------8----8--8---8-8-----8-----}
    {----8------8----8---8--8------8----8--8----88-----8-----}
    {Simple Power Lobster Fisher

    Just setup and hit start

    Start on the Decking, Make compass North

    Remember Its A Power Fisher So It Drops All It Caches!

    Post Problems Or Errors!!
    Happy autoing :}


    Program SimpleLobsterPowerFisher;
    {.include SRL/SRL/Misc/Smart.scar}
    {.include SRL/SRL.Scar}

    var
    potDTM: integer;
    Lob: integer;
    x,y: integer;
    Droped: integer;
    Found: integer;
    Logedin: integer;

    const
    //SMART Setup Begin
      WorldN = 'au3'; //Refer to includes/SRL/SCSS/worlds.ini for "Prefix" of wanted world
      HighQuality = false; //true = high quality; false = low quality
      SignedApplet = true; //true = signed applet; false = unsigned applet
      YourSRLId = ''; //SRL ID if using SRL Stats
      YourSRLPassword = ''; //SRL Password if using SRL Stats
    //SMART END Setup

    Procedure DeclarePlayers;
    begin
         HowManyPlayers  :=1;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=0;                // CurrentPlayer = Array Index

         Players[0].Name :='';//USERNAME
         Players[0].Pass :='';//PASS
         Players[0].Nick :='';//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
         Players[0].Active:=True;//PLAYER IN USE TURE OR FALSE

    end;

    procedure LoadDTM;
    begin
      Lob := DTMFromString('78DA631466606000612450E12ACFC003A4198' +
           '1F83F10304A01196CA86A122D24C1342394CF280F243851D54C0B' +
           '534355230A24E451D534792BA2AA61051212A86ADA7C9550D5486' +
           '1AAA971974755C305240451D544188BA1A8010005620B29');
    end;

    function  LostCage: boolean;
    begin
    potDTM := DTMFromString('78DA637463626078C180029AABAA18F881342' +
           '310FF07024613A09A270C6880118904D2664035EF08A87105AAF9' +
           '44404D0050CD33026AFC806A6EE35703005D770CA0');
      if not(FindDTM(potDTM, x, y, 549, 199, 609, 259))then
      begin
        writeln('pot is lost');
        Result := True;
        FreeDTM(potDTM);
      end;

    end;

    Procedure Highest;
    begin
         Wait(1000);
           Mouse(89, 494, 1, 2, True);
           SetAngle(True);
           MakeCompass('S');
    end;

    procedure Potf;
    begin
     if InChat('You need a') then
    begin
       if (LostCage) then
      begin
        if (FindObj(x, y, 'bst', 804197, 3)) then
        begin
          Mouse (x, y, 4, 4, true);
          Found := Found + 1;
          ReportVars[2] := ReportVars[1] + 1;
          SRLRandomsReport;
          SendSRLReport;
          writeln('found pot =]');
        end else
        begin
          writeln('cant find pot, please report this error');
          LogOut;
        end;
       end;
      end;
    end;

    procedure Ifin;
    begin
     if InChat('You catch a lobster.') then
     begin
     FTWait(45);
     end;
    end;

    procedure Sig;
    begin
    Writeln('-8-----8---8----8--8---88888----88----8-----8-----8-----');
    Wait(100);
    Writeln('-8-----8---8----8-8----8--------88----88----8--8888888--');
    Wait(100);
    Writeln('-8-----8---8----88-----8-------8--8---8-8---8-----8-----');
    Wait(100);
    Writeln('--8---8----8----88-----8-------8888---8--8--8-----8-----');
    Wait(100);
    Writeln('---8-8-----8----8--8---8------8----8--8---8-8-----8-----');
    Wait(100);
    Writeln('----8------8----8---8--8------8----8--8----88-----8-----');
    Wait(100);
    Writeln('YOU ARE USING SIMPLE POWER FISHER BY VIKRANT60. ');
    end;

    procedure Bag;
    begin
     Gametab(4);
    end;

    procedure SmartIt;
    begin
      SmartSetUp(WorldN,false,true);
      while not SmartReady do wait(100);
      SetTargetDC(SmartGetDC);
    end;

    Procedure RandomlyChosenSkill;
    Begin
      Case Random(34) Of

    0: HoverSkill('Attack', False);

    1: HoverSkill('Strength', False);

    2: HoverSkill('Defence', False);

    3: HoverSkill('Range', False);

    4: HoverSkill('Prayer', False);

    5: HoverSkill('Magic', False);

    6: HoverSkill('Runecraft', False);

    7: HoverSkill('Hitpoints', False);

    8: HoverSkill('Agility', False);

    9: HoverSkill('Herblore',  False);

    10: HoverSkill('Fishing', False);

      End;
    End;

    Procedure Randoms;
    Begin
      FindNormalRandoms;
      FindLamp('Woodcutting');
      If(FindFight)Then
      Begin
      MakeCompass('N');
      RunTo('S', True);
      Wait(7000 +Random(3000));
      End;
    End;


    procedure Antiban;
    begin
      case Random(64) of
      0:  HoverSkill('FireMaking', False);

      1: HoverSkill('Range', false);

      2:
          begin
            GameTab(1 + Random(12));
            wait(800 + random(500));
            GameTab(4)
          end;

      3: BoredHuman;

      4: DoEmote(400 + Random(90));

      5:
         begin
           GameTab(8)
           Wait(300 + random(300));
           if FindColor(x, y, 65535, 552, 231, 716, 287) then
          begin
            MMouse(x, y,1,4);
            Wait(200+random(300));
            Mouse(x, y,1,1,true);
            Wait(300+random(350));
            Case Random(5) of
            0: Typesend('Hey');
            1: Typesend('Hows it going?, and me im going gwd');
            2: Typesend('I hate fishing lol.');
            3: Typesend('Im sooooo bored :(');
            4: Typesend('I might bh later:S');
          end;
         end;
        end;

      6:HoverSkill('Fishing', false);

      7:
         begin
           Writeln('Trying out new CC anti ban');
           GameTab(10)
           Wait(200 + random(300));
           Mouse(567,446,1,1,true);
           Wait(100+random(350));
           Case Random(4) of
           0: Typesend('zezima');
           1: Typesend('Samc loser');
           2: Typesend('Youbleedred');
           3: Typesend('skychi');
           end;
          end  else
          begin
           Wait(200 + random(300));
           if FindColor(x, y, 6619135, 551, 269, 717, 389) then
           begin
           MMouse(573, 454,1,14);
           Wait(100+random(350));
           Mouse(x, y,1,1,true);
           Wait(100+random(350));
           GameTab(4);
        end;
       end;
      end;
    end;

    procedure FindFishies;
    begin
      repeat
      if not Loggedin then
      begin
      ReportVars[3] := ReportVars[1] + 1;
      Logedin := Logedin + 1;
      SRLRandomsReport;
      SendSRLReport;
      LoginPlayer;
      end;
      if(FindObjCustom(x, y, ['Cag'], [15252893, 15053710, 15257272], 13)) then
      begin
        MMouse(x,y,1,2);
        FTWait(1);
        Mouse(x,y,1,1, false);
        FTWait(4);
          ChooseOption('Cage');
          FTWait(56);
          Ifin;
          Potf;
          Randoms;
          Antiban;
          Potf;
          Ifin;
            Writeln('Found cage spot.');
            end else
            Randoms;
            Case Random(174) Of
            0:MakeCompass('E');
            1:If FindSymbol(x, y, 'fishing spot') Then
             begin
             Mouse(x, y, 0, 0, True);
             end;
            2:MakeCompass('W');
            3:if FindColorSpiralTolerance(x,y, 1260622,2,8,514,337, 13) then
              begin
              Mouse(x, y, 0, 0, True);
              end;
            4:MakeCompass('N');
            5:if Findcolor(x, y,795694, 4, 5, 513, 338) then
            begin
             Randoms;
             Mouse(x, y, 0, 0, True);
             end;
            6:If FindSymbol(x, y, 'fishing spot') Then
             begin
             Mouse(x, y, 0, 0, True);
             end;
            7:MakeCompass('S');
            8:If FindSymbol(x, y, 'fishing spot') Then
             begin
             Randoms;
             Mouse(x, y, 0, 0, True);
             end;
            9:if FindColorSpiralTolerance(x,y, 16249319,2,8,514, 337, 13) then
              begin
              Randoms;
              Mouse(x, y, 0, 0, True);
              end;
            end;
        until( InvFull )
    end;

    procedure Report;
    begin
      WriteLn('[----------Simple Lobster Power Fisher----------]');
      WriteLn('[-----------------ProgressReport----------------]');
      WriteLn('[------Droped ' + IntToStr(Droped) + ' lobsters----------------------]');
      ReportVars[0] := ReportVars[0] + 1;
      WriteLn('[------Ran for ' + TimeRunning + ' -------]');
      WriteLn('[-----------Found ' + IntToStr(Found) + ' --------------------------]');
      WriteLn('[------Logedin ' + IntToStr(Logedin) + ' times- ------------------------]');
      WriteLn('[----------Simple Lobster Power Fisher----------]');
      Disguise('Droped '+ IntToStr(Droped) + ' Lobs');
      SendSRLReport;
      SRLRandomsReport;
    end;

    procedure DropL;
    begin
     Repeat
       if FindDTM(Lob, x, y, 551, 207, 731, 463) then
           begin
          Mouse(x, y, 2, 2, false);
          ChooseOption('rop');
          Wait(100);
          ReportVars[3] := ReportVars[1] + 1;
          Droped := Droped + 1;
          SRLRandomsReport;
          SendSRLReport;
      end;
    until(not(FindDTM(Lob, x, y, 551, 207, 731, 463)));
    end;

    begin
    SmartIt;
    ClearDebug;
    ActivateClient;
    SetupSRL;
    LoadDTM;
    SRLId := YourSRLId;
    SRLPassword:= YourSRLPassword;
    ScriptId:= '827';
    DeclarePlayers;
    LoginPlayer;
    Wait(1000);
    Highest;
    Sig;
    repeat
    Bag;
    FindFishies;
    Bag;
    Randoms;
    DropL;
    Report;
    until(false);
    end.

  2. #2
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Never make thread names like that and w8 a sec.
    you did not load the lob? yes you did
    good place for searching? not sure try MIX1,MIY1,MIX2,MIY2 that is an build in place to search in srl
    ~Hermen

  3. #3
    Join Date
    Oct 2006
    Location
    I'm also from Michigan!
    Posts
    563
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    standards!

    did you make the DTM? if its not finding it, it could be the DTM

    also make sure you free your dtms!!

    SCAR Code:
    ReportVars[3] := ReportVars[1] + 1;
    ???

  4. #4
    Join Date
    Feb 2008
    Location
    NSW, Australia
    Posts
    149
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  5. #5
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Your DTM's Look wrong. Maybe you've made them wrong.
    Try making a Mask of the Lobster, that Always works

    Hope I Helped

  6. #6
    Join Date
    Apr 2007
    Posts
    224
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Still does'nt work!!!!!!!!!!!! even if i change my DTM and free it and laod it, It just does'nt work!!!!!!!!!

  7. #7
    Join Date
    Mar 2007
    Posts
    3,042
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

    I have a feeling you haven't put enough tolerance on the main point of the lobster, if everything else seems correct besides that. I'd add at least 30 tolerance (255 would work too if you don't mind not telling between cooked nd raw) to account for changes in colors.
    :-)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. neeeed a good power cutter willows
    By ~PURESKILLA~ in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 02-18-2008, 09:04 PM
  2. *neeeed Help!!!
    By Rs-Gp-4U in forum General
    Replies: 7
    Last Post: 12-31-2007, 02:56 AM

Posting Permissions

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