Results 1 to 3 of 3

Thread: Type Mismatch

  1. #1
    Join Date
    Feb 2008
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Type Mismatch

    Im using Timer's Draynor Netter and i run it successfully but after it logs me into runescape i get this error:
    [Runtime Error] : Type Mismatch in line 269 in script C:\Program Files\SCAR 3.14\Scripts\[SRL 4.13] [DIVI] Ultimate Draynor Netter.scar

    here's the script if it helps in any way

    SCAR Code:
    program Draynor_Netter;
    {.include SRL\SRL\Misc\Smart.scar}
    {.include SRL\SRL.scar}
    {.include SRL\SRL\Misc\Users.scar}
                                                                                                                                                                                                                       const
    {==============================================================================]
    [                  Script Name: Draynor Ultimate Power Netter                  ]
    [                                Cetator: Timer                                ]
    [------------------------------------------------------------------------------]
    [                           Set-Up Read 'n FIll Out!                           ]
    [------------------------------------------------------------------------------]
    [ Hello, For All You That Don't Know Me I am Timer Formaly Known As Timer150   ]
    [ I Started Scrpting When I Was 9, I Am 11 ATM, and I enjoy Being Part Of This ]
    [ Community...                                                                 ]
    [ First Off, In This Script I Have Created The Ultimate Draynor Power Netter.  ]
    [ This Script Includes Power Leveling, Net Buyer, Net Outta Bank, WhirlPool    ]
    [ Doger, Parrana Random Solver, and Get Your Net Off The Ground, also Includes ]
    [ Death / Lost Walk Back ;)                                                    ]
    [ As This Script Runs, and You Loose A Net To The Parranha, Would You Like     ]                                                                                                                               }
    GetNetOffGround ={
    [ My Script To Attemp Picking It Up?}
    True {True For Yes, False For No...      ]                                                                                                           };{
    [ On The Other Occasions, When A WhirlPool Sucks Down Your Net, Would You Like ]                                                                                                                                                         }
    GrabNetsBank ={
    [ To Get A Net Outta Your Bank?}
    True {True For Yes, False For No ;)           ]                                                                                                                            };{
    [ When There Is No Nets In Your Bank, Take 5gp From The FIRST Bank Slot, and   ]                                                                                                                            }
    BuyNets ={
    [ Go Buy A Net?}
    True {True For Yes, False For No...                           ]                                                                                                                                                                                    }; UseDeathWalkBack ={
    [ When You Die, Attemp A Walk Back?}
    True {True For Yes, False For No ;)       ]                                                                                                                                                                                      }; TryLostWalkBack ={
    [ When Lost, Attemp A Walk Back?}
    True {True For Yes, False For No ;)          ]                                                                                                                                                    };{
    [==============================================================================}


    //===================================================================================\\
      PauseScript_At = 23;//Pause Script At...
      ResumeScript_At = 10;//Resume Script At...
      Sleep_Random_Time = 10;//Extra Random Minutes To Sleep
    //-----------------------------------------------------------------------------------\\
    //goes by computer time -> 1 = 1:00am, 2 = 2am, 3 = 3am, 12 = noon, 13 = 1pm, etc.
    //===================================================================================\\

    var
      TestNetBuyer, GrabANewNet, TryWalkBackLost,
      PickUpNet: Boolean;
      Loads, TLoads, FishingNet, AnchovieMask,
      FishingNetColor, ShrimpMask, x, y,
      PornPopups, BuyNet, BankNet, AR,
      Lost_and_DeathWalks, WhirlPool: Integer;
      FishingNetColors: TIntegerArray;
      WhirlPoolAcc: Extended;

    function ampm: string;
    var
      Hour, Mins, Sec, MSec: Word;
    begin
      DecodeTime(Now, Hour, Mins, Sec, MSec);
      if Hour >= 12 then
      begin
        Result := 'pm';
      end else
        Result := 'am';
    end;

    procedure NapNapTime;
    var
      Hour, Mins, Sec, MSec: Word;
    begin
      DecodeTime(Now, Hour, Mins, Sec, MSec);
      if Hour = PauseScript_At then
      begin
        LogOut;
        Writeln('Sleeping Till ' + IntToStr(ResumeScript_At) + ampm);
        repeat
          Sleep(1000);
          DecodeTime(Now, Hour, Mins, Sec, MSec);
        until(Hour = ResumeScript_At);
        Writeln('Sleeping A Random ' + IntToStr(Sleep_Random_Time) + 'Mins');
        Sleep(Random(Sleep_Random_Time * 1000 * 60));
        Writeln('Resuming Script!');
        LogInPlayer;
      end;
    end;

    procedure DeclarePlayers;
    begin
      SRLID := '';
      SRLPassword := '';
      SRLPlayerForm(True, [], ['Loads Before True Switch'], [], []);
    end;

    Procedure LoadBMPs;
    Begin
      FishingNet := BitmapFromString(9, 8, 'beNoljd0KgjAYhu0eOgiiTgplhWj' +
           'pTCfqmtvC/CtpHRRF938VvSK8PDy8fD9k+ZS+Zc3OiV+Lk9Hpp0tN' +
           'K4xOUD6Eh36Sd8MgE73twqgUglzY/lYGmJfURtD8el7xSMc7sCrHO' +
           'yoa+ysj364YuAtn3gbMqItgHQ7iF2ZafkDGy7EDOut5nYXTr7sM86' +
           'ONMQglKzSvnoNNTovAwS58UBSkf1ehJLI=');// <3 Wizzup
      AnchovieMask := BitmapFromString(1, 4, 'beNrLKioq6svKas3JKc' +
           '0CACMTBV8=');
      ShrimpMask := BitmapFromString(4, 2, 'beNoL9984s3dOe21rSVZ2' +
           'bCiEkRkVkgIAkMMLHA==');
    end;

    procedure ScriptTerminate;
    begin
      Writeln('Ended, WHY!?!?');
      Writeln('Run Me Again Soon!');
      Writeln('Fill In SRL-Id / Pass Maybe?');
    end;

    procedure WalkBack; forward;
    function FindNormalRandomsEx: Boolean;
    var
      i: Integer;
    begin
      if not LoggedIn then exit;
      Players[CurrentPlayer].Loc := 'Normal Randoms';
      w_UpdateLastLine;
      for i := 1 to 8 do
      begin
        case I of
          1: SolveNonTalkingRandoms;
          2: Respond;
          3: Result := FindTalk;
          4: if Reincarnate then begin if FindDead then WalkBack; end else Result := FindDead;
          5: Result := FindLamp(LampSkill);
          6: if FindBox then
              Result := SolveBox;
          7: Result :=  RC;
          8: Result := FindMod;
        end;
        if Result then
          Break;
        Wait(1);
      end;
    end;

    Procedure ProRep;
    var
      I: Integer;
    Begin
      Writeln('============================================');
      Writeln('Draynor Netter [SRL 4.13] Has Worked For: ' + TimeRunning);
      Writeln('Has Done ' + IntToStr(TLoads) + ' Loads');
      Writeln('Has Fished '+IntToStr(TLoads * 27)+' Fish');
      if BankNet > 0 then
        Writeln('Has Gotten ' + IntToStr(BankNet) + ' Nets Outta Bank');
      if BuyNet > 0 then
        Writeln('Has Bought ' + IntToStr(BuyNet) + ' Nets With ' + IntToStr((BuyNet * 5)) + 'gp');
      if WhirlPool > 0 then
        Writeln('Spotted ''n Doged ' + IntToStr(WhirlPool) + ' WhirlPools');
      if AR > 0 then
        Writeln('Has Auto Responded ' + IntToStr(AR) + ' Times');
      if Lost_and_DeathWalks > 0 then
        Writeln('Has Walked From Lost / Death ' + IntToStr(Lost_and_DeathWalks) + ' Times.');
      Writeln('============================================');
      Writeln('Please Post This Progress Report On My Forum!!!');
      Writeln('Also, Thankyou For Using My Script!');
      Writeln('--------------------------------------------');
      Writeln('');
      Writeln('- Player Report! -');
      for I := 0 to HowManyPlayers - 1 do
        Writeln(Players[I].Name + ' Loc = ' + Players[I].Loc + ' Active = ' + BoolToStr(Players[I].Active));
      SRLRandomsReport;
      MarkTime(PornPopups);
    end;

    function AutoRespondByRick(FindText, SayText: TStringArray; LookInLastIntegerLines: integer): Boolean;
    {Thanks MasterKill!}
    var
      textx, texty, Ymod, GetNameTrys, Coordspace, SRT, R: Integer;
      TextSayd, TextFound, PlayerName: String;
    begin
      if not loggedin then exit;
      If (LookInLastIntegerLines > 8) then
      begin
        WriteLn('  auto respond [ERROR] Wrong >LookInLastIntegerLines< not setted up correct:');
        WriteLn('  error in Respond: ' + FindText[0]);
        exit;
      end;
      case LookInLastIntegerLines of
        1: Ymod := 441;
        2: Ymod := 428;
        3: Ymod := 414;
        4: Ymod := 400;
        5: Ymod := 386;
        6: Ymod := 372;
        7: Ymod := 358;
        8: Ymod := 344;
      end;
      For R := 0 To (GetArrayLength(findtext)-1) Do
      begin
        if IsTextInAreaEx(8, Ymod, 291, 461, textx, texty, FindText[R], 12, smallchars, False, False, 0, 1, 16711680) then
        begin
          Coordspace := Texty;
          //writeLn(IntToStr(Coordspace));
          PlayerName := '';
          repeat
            PlayerName := GetTextAtEx(12, (Coordspace), 0, SmallChars, False, False, 0, 5, 0, 40, False, tr_AllChars)
            if (playerName = '') then Break;
            GetNameTrys := GetNameTrys + 1;
          until not (PlayerName = '') or (GetNameTrys > 5)
          Wait(2000);
          if (Pos(Players[CurrentPlayer].Nick, PlayerName) > 0) then exit;
          Result := True;
          SRT := Random(GetArrayLength(SayText));
          TypeSend(SayText[SRT]);
          TextSayd := SayText[SRT];
          TextFound := FindText[R];
          WriteLn('     -Auto Respond');
          if (Trim(PlayerName) = '') then
          begin
            PlayerName := 'Anonymous:';
            WriteLn('       not found player name');
          end;
          WriteLn('       ' + Trim(PlayerName) +' ' + TextFound);
          WriteLn('       ' + Players[CurrentPlayer].Name + ': '+ TextSayd);
          WriteLn('     -Auto Respond');
          if (PlayerName = 'Anonymous:') then
          begin
            case Random(3) of
              0: PlayerName := 'dude';
              1: PlayerName := 'sir';
              2: PlayerName := 'noob';
            end;
          end;
        end;
        if (Result = True) then exit;
      end;
    end;

    procedure AutoRespond;
    begin
      if not loggedin then exit;
      Players[CurrentPlayer].Loc := 'Auto Resoponding';
      if AutoRespondByRick(['Hey', 'hey', 'hi', 'Hi'], ['Hello'], 1) then begin ReportVars[5] := ReportVars[5] + 1; AR := AR + 1; end;
      if AutoRespondByRick(['Wasup', 'zup', 'what up', 'sup'], ['nothin much'], 1) then begin ReportVars[5] := ReportVars[5] + 1; AR := AR + 1; end;
      if AutoRespondByRick(['ishing'], [IntToStr(GetSkillInfo('fishing', False))], 1) then begin ReportVars[5] := ReportVars[5] + 1; AR := AR + 1; end;
      if AutoRespondByRick([Players[CurrentPlayer].Nick], ['no', 'im busy', 'go away', 'nope', '=.=', '>.<', 'go away plz', 'leave me alone'], 1) then begin ReportVars[5] := ReportVars[5] + 1; AR := AR + 1; end
    end;

    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      AutoRespond;
      Players[CurrentPlayer].Loc := 'Anti-Banning';
      case Random(30) of
        0: TypeSend('Yawn');
        1: MMouse(0, 0, 762, 499);
        2: MMouse(0, 0, 762, 499);
        3: MMouse(0, 0, 762, 499);
        4: MMouse(0, 0, 762, 499);
        5: MMouse(0, 0, 762, 499);
        6: MMouse(0, 0, 762, 499);
        7: MMouse(0, 0, 762, 499);
        8: MMouse(0, 0, 762, 499);
        9: MMouse(0, 0, 762, 499);
        10: MMouse(0, 0, 762, 499);
        11: TypeSend('Fisheys, Yummmm');
      end;
    end;

    function GetFishCoords: TPointArray;
    var
      Fisheys: array of TPointArray;
      FishPoints: TPointArray;
      avar, ccts: Integer;
    begin
      if not LoggedIn then Exit;
      SetLength(Result, 0);
      ccts := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(MSCX, MSCY, FishPoints, 15459804, MSX1, MSY1, MSX2, MSY2, 50);
      Fisheys := TPAToATPA(FishPoints, 25);
      SetLength(Result, Length(Fisheys) + 1);
      for avar := 0 To Length(Fisheys) - 1 do
        Result[avar] := MiddleTPA(Fisheys[avar]);
      SetLength(Fisheys, 0);
      ColorToleranceSpeed(ccts);
    end;

    Function FindWhirlPool(x, y: integer): Boolean; forward;
    function LocateFishingSpot(var x, y: Integer): Boolean;
    var
       FishPoints: TPointArray;
       FirstPointToLastPoint: Integer;
    begin
      if not LoggedIn then Exit;
      Result := False;
      FishPoints := GetFishCoords;
      Writeln(IntToStr(Length(FishPoints)) + ' Colors For Fish Spot Possibillity Found');
      for FirstPointToLastPoint := 0 to Length(FishPoints) - 1 do
      begin
        MMouse(FishPoints[FirstPointToLastPoint].X, FishPoints[FirstPointToLastPoint].Y, 0, 0);
        Wait(150 + Random(50));
        if IsUpText('ishi') and not FindWhirlPool(FishPoints[FirstPointToLastPoint].X, FishPoints[FirstPointToLastPoint].Y) then
        begin
          Result := True;
          x := FishPoints[FirstPointToLastPoint].X;
          y := FishPoints[FirstPointToLastPoint].Y;
          Exit;
        end;
      end;
    end;

    procedure SetUpSmart;
    begin
       SmartSetupEx(1, False, True);
      while not SmartReady do wait(100);
      SetTargetDC(SmartGetDC);
    end;

    procedure SetUpScript;
    begin
      ScriptID := '642';
      Reincarnate := UseDeathWalkBack;
      DeclarePlayers;
      WhirlPoolAcc := 1.0;
      if (SRLID = '') or (SRLPassword = '') then
      begin
        Writeln('I DONT Like Leacherz!');
        OpenWebPage('http://www.stats.srl-forums.com/?action=register');
        TerminateScript;
      end;
      MarkTime(PornPopups);
      TestNetBuyer := BuyNets;
      if TestNetBuyer then
      begin
        Writeln('(!)  You Have Chosen To Test The Net Buyer... ');
        Writeln('     if you run out of nets (If you have chosen net grabber outta the bank..., IT WILL PROCEDE TO TRY TO BUY');
        Writeln('     A NEW NET FROM THE FISH STORE IN PORTSARIM');
      end;
      GrabANewNet := GrabNetsBank;
      if GrabANewNet then
        Writeln('(!)  You Have Chosen To Use The Net Getter outta bank...');
      if Reincarnate then
        Writeln('(!)  Walking From Deaths Or Lost = True...');
      TryWalkBackLost := TryLostWalkBack;
    end;

    procedure StartScript;
    var
      i: Integer;
    begin
      LogInPlayer;
      SetAngle(True);
      Wait(5000);
      for i := 0 to howmanyplayers - 1 do
        players[i].loc := 'fish';
    end;

    procedure WaitForFishing; forward;

    var
      Fsx, Fsy, FishingSpotFollowColor: Integer;

    procedure CatchFish;
    begin
      repeat
        if not loggedin then exit;
        Players[CurrentPlayer].Loc := 'Locating Fishing Spot - Fishing';
        if not LoggedIn then Exit;
        if LocateFishingSpot(Fsx, Fsy) then
        begin
          Mouse(Fsx, Fsy, 5, 5, True);
          FishingSpotFollowColor := GetColor(x, y);
          if FindColorSpiral(Fsx, Fsy, FishingSpotFollowColor, x - 20, y - 20, x + 20, y + 20) then
            GetMousePos(Fsx, Fsy);
          WaitForFishing;
          if not LoggedIn then Exit;
        end else
        begin
        if LocateFishingSpot(Fsx, Fsy) then
        begin
          Mouse(Fsx, Fsy, 5, 5, True);
          WaitForFishing;
          if not LoggedIn then Exit;
          end else
          begin
            if trywalkbacklost then
            begin
              WalkBack;
              CatchFish;
            end else
            begin
              Writeln('(!)(?)  Couldn''t Find Fishing Spot');
              LogOut;
              Players[CurrentPlayer].Loc := 'No Fishing Spots';
              if not LoggedIn then Exit;
            end;
          end;
        end;
        ClickToContinue;
      until(InvFull) or (not LoggedIn);
    end;

    procedure ShrinkArray(var a: array of Integer);// <3 Wizzup
    var
       I, C, J, MyC: Integer;
       cCond: Boolean;
    begin
      MyC := 0;
      for I := 0 to Length(a) - 1 do
      Begin
        cCond := False;
        for C := 0 to MyC - 1 do
        begin
          if a[I] = a[c] then
          begin
            cCond := True;
            Break;
          end;
        end;
        if not cCond then
        begin
          for J := I downto 1 do
          begin
            Swap(A[J], A[J - 1]);
          end;
          MyC := MyC + 1;
        end;
      end;
      SetArrayLength(a, MyC);
    end;

    function GotNet: Boolean;// <3 Wizzup
    var
       x, y: Integer;
       Ar: TPointArray;
    begin
      try
        if not loggedin then exit;
        Result := FindColor(x, y, FishingNetColor, MIX1, MIY1, MIX2, MIY2);
        if Result then
          Exit;
        Result := FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45);
        if Result then
        begin
          FishingNetColor := GetColor(x, y);
          FindColorsTolerance(Ar, FishingNetColor, x - 20, y - 20, x + 20, y + 20, 45);
          FishingNetColors := GetColors(Ar);
          ShrinkArray(FishingNetColors);
          WriteLn('FishingNetColor: ' +IntToStr(FishingNetColor));
        end else
          Result := False;
      except
        Writeln('(=])  Saved A Error!');
      end;
    end;

    procedure GetANet;
    var
      BankDTM: integer;
    begin
      try
      if not LoggedIn then Exit;
      Players[CurrentPlayer].Loc := 'Getting A Net';
      BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
           '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
           '809A0AC26A00E665129F');
      MakeCompass('n')
      Mouse(621, 43, 20, 20, True);
      Wait(5000);
      FFlag(0);
      if not loggedin then exit;
      If DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) Then
      Begin
        Mouse(x, y, 5, 5, true);
        FFlag(0);
        if not loggedin then exit;
        Players[CurrentPlayer].Loc := 'bank';
        FreeDTM(BankDTM);
      end else
      begin
        Writeln('Fucked...');
        LogOut;
        FreeDTM(BankDTM);
        if not loggedin then exit;
      end;
      if not LoggedIn then Exit;
      FFlag(0);
      if not loggedin then exit;
      repeat
        OpenBankFast('db');
        if not loggedin then exit;
      until(BankScreen or PinScreen or not LoggedIn);
      if PinScreen then
      begin
        CloseBank;
        LogOut;
        Writeln('(!)  No Pins!');
        Exit;
      end;
      FixBank;
      if not LoggedIn then Exit;
      if FindBitmapToleranceIn(FishingNet, x, y, MSX1, MSY1, MSX2, MSY2, 45) then
      begin
        Mouse(x, y, 5, 5, True);
        Wait(500 + Random(500));
        CloseBank;
        BankNet := BankNet + 1;
        MakeCompass('n');
        if Players[CurrentPlayer].Loc = 'bank' then
        begin
          RadialRoadWalk(FindRoadColor, 290, 308, 44, 2, 2);
          FFlag(0);
          if not loggedin then exit;
          RadialWalk(FindWaterColor, 168, 210, 60, 0, 0);
          Sleep(2564 + random(424));
          FFlag(0);
          if not loggedin then exit;
          if FindSymbol(x, y, 'fish') then
          begin
            Mouse(x, y, 5, 5, True);
            Players[CurrentPlayer].Loc := 'fish';
            Wait(2000)
            FFlag(0);
            if not loggedin then exit;
            Exit;
          end;
        end;
      end else
        Writeln('No Nets...');
      Closebank;
      except
        Writeln('(=])  Saved A Error!');
      end;
    end;

    function GetInShop: Integer;
    var
      c: Integer;
    begin
      repeat
        if not LoggedIn then exit;
        c := c + 5;
        if (FindColorTolerance(x, y, 13807130, MMX1, MMY1, MMX2, MMY2, c)) then
          Result := GetColor(x, y);
      until (Result > 0) or (c > 70);
      if c <= 70 then
      begin
        Mouse(x, y, 5, 5, True);
        FFlag(0);
      end else
      begin
        Writeln('(!)  Couldn''t Find Fishing Shop Symbol, FUCK!');
        Writeln('(?)  Please Login ' + Players[CurrentPlayer].Name + ' And Report To My Thread Where He Is...');
        Writeln('(*SaD*)  Thanks For Testing My Net Buyer, It Failed Though...');
        LogOut;
      end;
    end;

    procedure BuyTehNet;
    var
      Traded: Boolean;
      Triesss: LongInt;
    begin
      repeat
        if (FindObjCustom(x, y, ['err', 'ant'], [267551, 6911642, 7642283, 2370858, 2571605], 20)) then
        begin
          if not loggedin then exit;
          Mouse(x, y, 5, 5, False);
          Wait(500);
          if ChooseOption('rade') then Traded := True;
          Wait(5000 + Random(500));
          Mouse(35, 65, 100, 16, True);
          Wait(500);
          Mouse(78, 108, 6, 7, False);
          Wait(500);
          ChooseOption('y 1');
          Wait(2000 + Random(500));
          BuyNet := BuyNet + 1;
          Mouse(481, 36, 7, 6, True);
        end;
        Triesss := Triesss + 1;
        if Traded then Break;
        if (Triesss >= 10) then
        begin
          LogOut;
          Writeln('Couldn''t Find Gerrant...');
        end;
      until(false);
    end;

    procedure WalkToDraynorBank;
    var
      BankDTM, Total, Color: Integer;
    begin
      Players[CurrentPlayer].Loc := 'Shop To Bank';
      Color := 0;
      Color := FindRockColor;
      if Color = 0 then
      begin
        Mouse(636, 108, 5, 5, True);
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
        Wait(1000 + Random(100));
        Color := FindRoadColor;
      end;
      if FindColor(x, y, Color, MMX1, MMY1, MMX2, MMY2) then
      begin
        Mouse(x - 11, y - 25, 5, 5, True);
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
        if FindSymbol(x, y, 'transportation') then
        begin
          Mouse(x, y, 5, 5, True);
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
          Mouse(656, 35, 5, 5, True);
          Wait(6000);
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
          Mouse(687, 78, 5, 5, True);
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
          repeat
            Total := Total + 1;
            Wait(1000);
            if not loggedin then exit;
            FindNormalRandomsEx;
          until(FindSymbol(x, y, 'quest')) or (Total >= 10);
          if Total >= 20 then
          begin
            Mouse(655, 45, 5, 5, True);
            FFlag(0);
            if not loggedin then exit;
            FindNormalRandomsEx;
          end;
          Total := 0;
          repeat
            Total := Total + 1;
            Wait(1000);
            if not loggedin then exit;
            FindNormalRandomsEx;
          until(FindSymbol(x, y, 'quest')) or (Total >= 10);
          Mouse(x, y, 5, 5, True);
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
          if FindSymbol(x, y, 'farming spot') then
          begin
            Mouse(x, y, 5, 5, True);
            FFlag(0);
            if not loggedin then exit;
            FindNormalRandomsEx;
          end else
          begin
            Mouse(650, 56, 5, 5, True);
            FFlag(0);
            if not loggedin then exit;
            FindNormalRandomsEx;
            if FindSymbol(x, y, 'farming spot') then
            begin
              Mouse(x, y, 5, 5, True);
              FFlag(0);
              if not loggedin then exit;
              FindNormalRandomsEx;
            end else
            begin
              LogOut;
              Exit;
            end;
          end;
          if FindColor(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) then
          begin
            Mouse(x, y, 5, 5, True);
            Wait(6000);
            FFlag(0);
            if not loggedin then exit;
            FindNormalRandomsEx;
            Mouse(656, 114, 5, 5, True);
            FFlag(0);
            if not loggedin then exit;
            FindNormalRandomsEx;
            repeat
              Wait(1000);
            until(FindSymbol(x, y, 'quest') or not LoggedIn);
            Mouse(x, y, 6, 6, True);
            FFlag(0);
            if not loggedin then exit;
            FindNormalRandomsEx;
            Mouse(650, 121, 5, 5, True);
            FFlag(0);
            if not loggedin then exit;
            FindNormalRandomsEx;
            BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
                 '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
                 '809A0AC26A00E665129F');
            if DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
            begin
              Mouse(x, y, 5, 5, true);
              FFlag(0);
              if not loggedin then exit;
              FindNormalRandomsEx;
              Players[CurrentPlayer].Loc := 'bank';
              FreeDTM(BankDTM);
            end else
            begin
              FindNormalRandomsEx;
              Writeln('Fucked...');
              LogOut;
              FreeDTM(BankDTM);
              Exit;
            end;
            FFlag(0);
            if not loggedin then exit;
            FindNormalRandomsEx;
          end;
        end;
      end;
    end;

    procedure BuyNewNet;
    var
      BankDTM, T: Integer;
    begin
      Players[CurrentPlayer].Loc := 'Walking To Net Shop';
      if not LoggedIn then Exit;
      if Players[CurrentPlayer].Loc = 'fish' then
      begin
        BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
             '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
             '809A0AC26A00E665129F');
        MakeCompass('n')
        Mouse(621, 43, 20, 20, True);
        Wait(5000);
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
        if not LoggedIn then Exit;
        If DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) Then
        Begin
          Mouse(x, y, 5, 5, true);
          FFlag(0);
          if not loggedin then exit;
          Players[CurrentPlayer].Loc := 'bank';
          FreeDTM(BankDTM);
        end else
        begin
          Writeln('Fucked...');
          LogOut;
          FreeDTM(BankDTM);
          Exit;
        end;
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
      end;
      if not LoggedIn then Exit;
      begin
        if not LoggedIn then Exit;
        repeat
          OpenBankFast('db');
          FindNormalRandomsEx;
        until(BankScreen or PinScreen or Not LoggedIn);
        Wait(1000);
        FixBank;
        DepositAll;
        Mouse(94, 76, 5, 5, False);
        Wait(500);
        if not loggedin then exit;
        ChooseOption('aw 5');
        Wait(2000);
        CloseBank;
        Mouse(578, 57, 5, 5, True);
        FFlag(0);
        if not loggedin then exit;
        if FindSymbol(x, y, 'quest') then
        begin
          Mouse(x, y, 5, 5, True);
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
          Mouse(606, 38, 5, 5, True);
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
          if FindColorSpiral(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) then
          begin
            Mouse(x, y, 5, 5, True);
            FFlag(0);
            if not loggedin then exit;
            FindNormalRandomsEx;
            if FindSymbol(x, y, 'farming spot') then
            begin
              Mouse(x, y, 5, 5, True);
              FFlag(0);
              if not loggedin then exit;
              FindNormalRandomsEx;
              Mouse(620, 118, 5, 5, True);
              FFlag(0);
              repeat
                Wait(1000);
                T := T + 1;
                if not loggedin then exit;
              until(FindSymbol(x, y, 'quest')) or (T >= 20);
              if T >= 20 then
              begin
                FindNormalRandomsEx;
                LogOut;
                Exit;
              end;
              Mouse(x, y, 5, 5, True);
              FFlag(0);
              if not loggedin then exit;
              FindNormalRandomsEx;
              Mouse(572, 130, 5, 5, True);
              FFlag(0);
              if not loggedin then exit;
              FindNormalRandomsEx;
              Mouse(564, 118, 5, 5, True);
              FFlag(0);
              if not loggedin then exit;
              FindNormalRandomsEx;
              if FindColor(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) then
              begin
                Mouse(x - 20, y - 30, 5, 5, True);
                FFlag(0);
                if not loggedin then exit;
                FindNormalRandomsEx;
                players[currentplayer].Loc := 'PortSarim';
              end;
            end;
          end;
        end;
      end;
      if players[currentplayer].Loc = 'PortSarim' then
      begin
        GetInShop;
        BuyTehNet;
        WalkToDraynorBank;
      end;
      if Players[Currentplayer].Loc = 'bank' then
      begin
        RadialRoadWalk(FindRoadColor, 290, 308, 44, 2, 2);
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
        RadialWalk(FindWaterColor, 168, 210, 60, 0, 0);
        Sleep(2564 + random(424));
        FFlag(0);
        if not loggedin then exit;
        FindNormalRandomsEx;
        if FindSymbol(x, y, 'fish') then
        begin
          Mouse(x, y, 5, 5, True);
          Players[CurrentPlayer].Loc := 'fish';
          Wait(2000)
          FFlag(0);
          if not loggedin then exit;
          FindNormalRandomsEx;
          Exit;
        end;
      end;
    end;

    procedure WalkToFish;
    var
      Color: Integer;
    begin
      MakeCompass('N');
      SetAngle(True);
      Mouse(667, 88, 5, 5, True);
      FFlag(0);
      FindNormalRandomsEx;
      if not RadialRoadWalk(FindRoadColor, 332, 355, 62, 5, 5) then
      begin
        Writeln('FUCKED!');
        LogOut;
        Exit;
      end else
        FFlag(0);
        FindNormalRandomsEx;
      if not RadialRoadWalk(FindRoadColor, 306, 323, 55, 5, 5) then
      begin
        if not RadialRoadWalk(FindRoadColor, 282, 335, 55, 5, 5) then
        begin
          Writeln('FUCKED!');
          LogOut;
          EXIT;
        end else
          FFlag(0);
          FindNormalRandomsEx;
      end else
        FFlag(0);
        FindNormalRandomsEx;
      Mouse(566, 76, 5, 5, True);
      FFlag(0);
      FindNormalRandomsEx;
      if not RadialRoadWalk(FindDirtRoadColor, 223, 290, 63, 5, 5) then
      begin
        Mouse(MMCX - 30, MMCY, 5, 5, True);
        FFlag(0);
        FindNormalRandomsEx;
        if not RadialRoadWalk(FindDirtRoadColor, 223, 290, 63, 5, 5) then
        begin
          Writeln('FUCKED!');
          LogOut;
          Exit;
        end;
      end else
        FFlag(0);
        FindNormalRandomsEx;
      repeat
        Mouse(568, 83, 5, 5, True);
        FFlag(0);
        FindNormalRandomsEx;
      until(FindSymbol(x, y, 'dungeon'));
      Mouse(x, y, 5, 5, True);
      FFlag(0);
      FindNormalRandomsEx;
      Mouse(568, 83, 5, 5, True);
      FFlag(0);
      FindNormalRandomsEx;
      Mouse(568, 83, 5, 5, True);
      FFlag(0);
      FindNormalRandomsEx;
      repeat
        Mouse(568, 83, 5, 5, True);
        FFlag(0);
        FindNormalRandomsEx;
      until(FindSymbol(x, y, 'dungeon'));
      setrun(true);
      Mouse(x, y, 5, 5, True);
      FFlag(0);
      FindNormalRandomsEx;
      Mouse(565, 98, 5, 5, True);
      FFlag(0);
      FindNormalRandomsEx;
      SetRun(False);
      GameTab(4);
      Color := FindRockColor;
      if Color <> 0 then
      begin
        if FindColor(x, y, Color, MMX1, MMY1, MMX2, MMY2) then
        begin
          if FindColor(x, y, Color, MMX1, MMY1, MMX2, MMY2) then
          begin
            Mouse(x, y, 5, 5, True);
            Wait(5000);
            FFlag(0);
            FindNormalRandomsEx;
            if FindSymbol(x, y, 'fish') then
            begin
              Mouse(x, y, 5, 5, True);
              Wait(6000);
              FFlag(0);
              FindNormalRandomsEx;
              Wait(5000 + Random(1000));
              Players[CurrentPlayer].Loc := 'fish';
              Lost_and_DeathWalks := Lost_and_DeathWalks + 1;
              ReportVars[6] := ReportVars[6] + 1;
              Exit;
            end else
            begin
              Writeln('FUCKED!');
              LogOut;
              Exit;
            end;
          end else
          begin
            Writeln('Fucked!');
            LogOut;
            Exit;
          end;
        end else
      end else
      begin
        Writeln('no rock color');
        Writeln('Saving Your Ass And Using Coords...');
        Mouse(557, 108, 5, 5, True);
        Wait(6000);
        FindNormalRandomsEx;
        FFlag(0);
        FindNormalRandomsEx;
        if FindSymbol(x, y, 'fish') then
        begin
          Mouse(x, y, 5, 5, True);
          Wait(6000);
          FFlag(0);
          FindNormalRandomsEx;
          Wait(2000);
          Players[CurrentPlayer].Loc := 'fish';
          Lost_and_DeathWalks := Lost_and_DeathWalks + 1;
          ReportVars[6] := ReportVars[6] + 1;
          Exit;
        end else
        begin
          Writeln('FUCKED!');
          LogOut;
          Exit;
        end;
      end;
      begin
        Writeln('FUCKED!');
        LogOut;
        Exit;
      end;
    end;

    procedure WalkBack;
    begin
      Mouse(741, 183, 5, 5, True);
      Mouse(570, 239, 5, 5, True);
      Wait(20000);
      repeat
        LogOut;
      until(not LoggedIn);
      LogInPlayer;
      WalkToFish;
    end;

    Function FindWhirlPool(x, y: integer): Boolean;

    Var
       FishPoints: TPointArray;

    Begin
      If Not LoggedIn Then Exit;
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(x, y, FishPoints, 13947343, x - 20, y - 20, x + 20, y + 20, 40)
      If GetArrayLength(FishPoints) > Round(230 * WhirlPoolAcc) Then
      Begin
        WhirlPools := Whirlpools + 1;
        WriteLn(IntToStr(Round(GetArrayLength(FishPoints) /  1600))+ '% Change');
        Result := True;
      End;
      ColorToleranceSpeed(1);
    End;

    procedure GetNetOffTehGround;
    var
      Tries: Integer;
    begin
      try
        MakeCompass('W');
        SetAngle(True);
        repeat
          Wait(1000);
          Tries := Tries + 1;
          Writeln(IntToStr(Tries));
        until(FindObjCustom(x, y, ['mall'], [FishingNetColor], 5)) or (not LoggedIn) or (Tries = 3);
        if not Tries >= 3 then
        begin
          Mouse(x, y, 5, 5, True);
          FFlag(0);
          Writeln('***** SOLVED PARRANA RANDOM *****');
          ReportVars[2] := ReportVars[2] + 1;
        end;
        MakeCompass('N');
        if FindSymbol(x, y, 'fish') then
          Mouse(x, y, 5, 5, True);
        FFlag(0);
      except end;
    end;

    procedure WaitForFishing;
    var
      InvLevel, Time: Integer;
    begin
      if not LoggedIn then Exit;
      repeat
        NapNapTime;
        if FindWhirlPool(fsx, fsy) then
        begin
          WhirlPools := WhirlPools + 1;
          WhirlPool := WhirlPool + 1;
        end;
        if FindFight then
          RunAway('E', True, 1, 10000 + Random(2000));
        GameTab(4);
        Players[CurrentPlayer].Loc := 'Waiting For Fish';
        if TimeFromMark(PornPopups) >= 300000 then
          ProRep;
        FindNormalRandomsEx;
        if not LoggedIn then Exit;
        InvLevel := InvCount;
        FTWait((4 * 5));
        if InvLevel = InvCount then
          Time := Time + 1;
        if InvLevel < InvCount then
          Time := 0;
        AntiBan;
        FindNormalRandomsEx;
        if not GotNet then
        begin
          Writeln('(!)  Lost Net!');
          if PickUpNet then
          begin
            Writeln('(!)  Getting Net!');
            Players[CurrentPlayer].Loc := 'fish';
            GetNetOffTehGround;
            GameTab(4);
            if FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45) then
            begin
              ReportVars[3] := ReportVars[3] + 1;
              Writeln('(!)  Got Net!');
              Exit;
            end;
          end;
          if GrabANewNet then
          begin
            Writeln('(!)  Getting Net!');
            Players[CurrentPlayer].Loc := 'fish';
            GetANet;
            GameTab(4);
            if FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45) then
            begin
              ReportVars[3] := ReportVars[3] + 1;
              Writeln('(!)  Got Net!');
              Exit;
            end;
          end;
          if TestNetBuyer then
          begin
            Writeln('(!)  Trying Buy New Net!');
            Players[CurrentPlayer].Loc := 'fish';
            BuyNewNet;
            GameTab(4);
            if FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45) then
            begin
              ReportVars[4] := ReportVars[4] + 1;
              Writeln('(!)  Got Net!');
              Exit;
            end;
          end;
          GameTab(4);
          if not FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45) then
            LogOut;
        end;
      until(Time = 2) or (InvFull);
      ClickToContinue;
    end;

    function FishCount: Integer;
    var
      q: Integer;
      w: TBox;
    begin
      for q := 1 to 28 do
        begin
          w := InvBox(q);
          if FindBitmapToleranceIn(ShrimpMask, x, y, w.x1, w.y1, w.x2, w.y2, 45) or FindBitmapToleranceIn(AnchovieMask, x, y, w.x1, w.y1, w.x2, w.y2, 45) then
            Result := Result + 1;
        end;
    end;

    procedure DropFish;
    var
      i: Integer;
    begin
      ReportVars[1] := ReportVars[1] + FishCount;
      Players[CurrentPlayer].Loc := 'Dropping Fish';
      GameTab(4);
      for i := 1 to 28 do
        begin
          if not LoggedIn then Exit;
          if ExistsItem(i) then
          begin
            if FindFight then
              RunAway('E', True, 1, 10000 + Random(2000));
            MMouseItem(i);
            Wait(150 + Random(50));
            if not IsUpText('mall') and IsUpText('aw') then
            begin
              GetMousePos(x, y);
              HoldMouse(x, y, False);
              Wait(50 + Random(15));
              ReleaseMouse(x, y, False);
              Wait(150 + Random(500));
              ChooseOption('rop');
              Wait(999 + Random(111));
            end;
          end;
        end;
      TLoads := TLoads + 1;
      Loads := Loads + 1;
      ReportVars[0] := ReportVars[0] + 1;
      ArrangeInv;
    end;

    begin
      LoadBMPs;
      SetupSmart;
      SetupSRL;
      SetupScript;
      StartScript;
      repeat
        repeat
          if not LoggedIn then
          begin
            Writeln('(!)  Logged Out For Some Weird Reason.');
            Writeln('(=[)  NextPlayer(False);');
            NextPlayer(False);
            Break;
          end;
          CatchFish;
          DropFish;
        until(Loads = Players[CurrentPlayer].Integers[0]);
        if Players[CurrentPlayer].Active then
          begin Players[CurrentPlayer].Loc := 'Waiting My Turn!'; end else Players[CurrentPlayer].Loc := 'Lost!';
        FreeBitMap(FishingNet);
        FreeBitMap(AnchovieMask);
        FreeBitMap(ShrimpMask);
        Loads := 0;
        NextPlayer(True);
        SetAngle(True);
        GameTab(4);
        LoadBMPs;
      until(False);
    end.

    p.s. sorry if this topic has been posted already i tried the search button but couldnt find anything
    lasers ftw!
    http://img87.imageshack.us/img87/610...zorzaw7.th.gif
    for every script that is leached, copied, or stolen- one of santa's elves die

  2. #2
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Always post errors with a script in the author's thread/pm the author! This section is purely for people making their own scripts and get an error they can't fix.
    Anyway, I'm guessing the error is caused because it can't find enough fishing points or something like that.
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  3. #3
    Join Date
    Feb 2008
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thank you
    lasers ftw!
    http://img87.imageshack.us/img87/610...zorzaw7.th.gif
    for every script that is leached, copied, or stolen- one of santa's elves die

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Type Mismatch...
    By Raskolnikov in forum OSR Help
    Replies: 3
    Last Post: 10-18-2008, 05:56 AM
  2. Type mismatch
    By batnas in forum OSR Help
    Replies: 3
    Last Post: 04-24-2008, 06:48 PM
  3. Type Mismatch..
    By Nava2 in forum OSR Help
    Replies: 1
    Last Post: 04-23-2008, 07:44 PM
  4. Type mismatch Help
    By Ashur2Good in forum OSR Help
    Replies: 2
    Last Post: 05-23-2007, 03:47 PM

Posting Permissions

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