Results 1 to 18 of 18

Thread: Type Mismatch :(

  1. #1
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Type Mismatch :(

    if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then

    grrr.

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

    Default

    Type mismatch is usually allocated on the line above that .

  3. #3
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    line above is repeat

  4. #4
    Join Date
    Oct 2006
    Location
    ithurtsithurtsithurtsithurts
    Posts
    2,930
    Mentioned
    7 Post(s)
    Quoted
    135 Post(s)

    Default

    What do you have Log declared as?

  5. #5
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    an integer;

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

    Default

    show whole piece
    ~Hermen

  7. #7
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default



    SCAR Code:
    program skilldTreePwnz0r;
    {.include SRL/SRL.scar}
    {.include srl/srl/skill/WoodCutting.scar}

    {Info:

     +Chops and drops Logs, Oaks, Willows, Maples and Teaks.
     +Full Anti-Ban and Anti-Randoms.
     +Full Auto-Color.

     Credits:

     +NaumanAkhlaQ for getting the Maple and Teak colors and DTM's for me.
     +Timothegreat for his TPA tut.
     +P1NKY because his script inspired me to make one so that I could beat his :p
     +Iron Man for helping me out whenever I get stuck on something
     +and anyone else who has helped me.

     }


    var
     x, y : integer;
     Log, Oak, Willow, Maple, Teak, LoadsBeforeSwitch : integer;
     NormalsChopped,OaksChopped,WillowsChopped,MaplesChopped,TeaksChopped,Ents,Loads : integer;
     
    const
     Whatever = 3; //Loads Before Switching Players
     
     YourSRLId = '2670';   //don't know what it is?
     YourSRLPassword = 'blink182';   //leave it blank!
     
    procedure DeclarePlayers;
    begin
      CurrentPlayer := 0;
      NumberOfPlayers(2); // how many players are you using?

      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';//3-4 Letters Of Username
      Players[0].Strings[1] := 'normal';//normal, oak, willow, maple, teak
      Players[0].Active :=True;

      Players[1].Name :='';
      Players[1].Pass :='';
      Players[1].Nick :='';
      Players[1].Strings[1] := 'normal';
      Players[1].Active :=True;

      {Players[2].Name :='';
      Players[2].Pass :='';
      Players[2].Nick :='';
      Players[0].Strings[1] := 'Willow';
      Players[2].Active :=True;


      Players[3].Name :='';
      Players[3].Pass :='';
      Players[3].Nick :='';
      Players[0].Strings[1] := 'Willow';
      Players[3].Active :=True;}

     
    end;

    procedure DTMs;
    begin
      Maple:= DTMFromString('78DA639CC4C8C010C58002CC159919FE0369A' +   //made by nauman
           '00CC37F2060EC00B28218D000231209A4E70059FE04D4CC07B212' +
           '09A8E902B25208A869C6743356F784E357030034EA0BE1');
      Teak:= DTMFromString('78DA6334646460E8016224B0B12F84E13F900' +  //made by nauman
           '689FE0702464D20AB05550D44164602691B20AB89801A7B206B0A' +
           '013520BBA61250630A644D23A0C6884837771150A30C64F5E2570' +
           '300458C0D6B');
      Log := DTMFromString('78DA636C646660B06562400645E1260C5C409' +
           'A1188FF0301631F508D0DAA1A882C8C04D2CD40358604D49400D5' +
           '981150530A54E342845DAE04D4F402D5381150530D54638C5F0D0' +
           '0DD250B27');
      Willow := DTMFromString('78DA63AC6766604864624006AEB6120C5C409' +
           'A1188FF0301631FA61A882C8C04D2BD40356904D43401D5641250' +
           '530154934D404D01504D0211E6841350D30C54134A404D2761730' +
           '009410CCF');
      Oak := DTMFromString('78DA636C6466606861624006A551A60C5C409' +
           'A1188FF0301631F504D3BAA1A882C8C04D29D4035D504D480ECAA' +
           '22A0A614A8A686809A024C3763A82902AAE921A0A606A8A69F809' +
           'A16C2E600003F5D0E69');
    end;

    procedure SkilldAntiBan;
    begin
      case random(50) of
        0: begin
             MakeCompass('S');
             Wait(50 + random(100));
             MakeCompass('W');
             Wait(50 + random(100));
             MakeCompass('N');
             Wait(50 + random(100));
             SetAngle(false);
             Wait(50 + random(100));
             SetAngle(true);
           end;
        1: begin
             MakeCompass('W');
             Wait(50 + random(100));
             MakeCompass('E');
             Wait(50 + random(100));
             MakeCompass('S');
             Wait(50 + random(100));
             MakeCompass('N');
           end;
        2: begin
             KeyDown(VK_Left);
             Wait(1000 + random(500));
             KeyUp(VK_Left);
             Wait(50 + random(100));
             KeyDown(VK_Right);
             Wait(1000 + random(500));
             KeyUp(VK_Right);
             Wait(50 + random(100));
             MakeCompass('N');
           end;
        3: begin
             KeyDown(VK_Down);
             Wait(1000 + random(500));
             KeyUp(VK_Down);
             Wait(50 + random(100));
             KeyDown(VK_Up);
             Wait(1000 + random(500));
             KeyUp(VK_Up);
           end;
        4: AlmostLogout;
        5, 6, 7: RandomMovement;
        8, 9, 10: MMouse(5 + random(250), 5 + random(250), 5, 5);
      end
    end;

    function FindATree:boolean; // taken from timo's TPA tut, edited by me.
    var
      tx,ty,i: integer;
      TreePoints,OakPoints,WillowPoints,MaplePoints,TeakPoints: TPointArray;
      Tree2D,Oak2D,Willow2D,Maple2D,Teak2D: T2DPointArray;
      TreePoint,OakPoint,WillowPoint,MaplePoint,TeakPoint: TPoint;
    begin
      if not LoggedIn then exit;
      x:= MSCX;
      y:= MSCY;
      if (Players[CurrentPlayer].Strings[1] = 'tree') then
      begin
        FindColorsSpiralTolerance(x,y,TreePoints,2443842,MSX1,MSY1,MSX2,MSY2,10);
        Tree2D:= TPAtoATPAEx(TreePoints,30,30);
        for i:= 0 to length(Tree2D)-1 do
        begin
          if not LoggedIn then
          begin
            break;
          end;
          TreePoint:= MiddleTPA(Tree2D[i]);
          tx:= TreePoint.X;
          ty:= TreePoint.Y;
          MMouse(tx,ty,2,2);
          wait(90+random(50));
          if IsUpTextMultiCustom(['hop', 'ree'])then
          begin
            GetMousePos(x,y);
            result:= true;
            break;
            exit;
          end;
        end;
      end;
      if Result then exit;
      if (Players[CurrentPlayer].Strings[1] = 'oak') then
      begin
        x:= MSCX;
        y:= MSCY;
        FindColorsSpiralTolerance(x,y,OakPoints,859416,MSX1,MSY1,MSX2,MSY2,10);
        Oak2D:= TPAtoATPAEx(OakPoints,30,30);
        for i:= 0 to length(Oak2D)-1 do
        begin
          if not LoggedIn then
          begin
            break;
          end;
          OakPoint:= MiddleTPA(Oak2D[i]);
          tx:= OakPoint.X;
          ty:= OakPoint.Y;
          MMouse(tx,ty,2,2);
          wait(90+random(50));
          if IsUpTextMultiCustom(['hop', 'ak'])then
          begin
            GetMousePos(x,y);
            result:= true;
            break;
            exit;
          end;
        end;
      end;
      if Result then exit;
      if (Players[CurrentPlayer].Strings[1] = 'Willow') then
      begin
        x:= MSCX;
        y:= MSCY;
        FindColorsSpiralTolerance(x,y,WillowPoints,3559756,MSX1,MSY1,MSX2,MSY2,10);
        Willow2D:= TPAtoATPAEx(WillowPoints,30,30);
        for i:= 0 to length(Willow2D)-1 do
        begin
          if not LoggedIn then
          begin
            break;
          end;
          WillowPoint:= MiddleTPA(Willow2D[i]);
          tx:= WillowPoint.X;
          ty:= WillowPoint.Y;
          MMouse(tx,ty,2,2);
          wait(90+random(50));
          if IsUpTextMultiCustom(['hop', 'illow']) then
          begin
            GetMousePos(x,y);
            result:= true;
            break;
            exit;
          end;
        end;
      end;
      if Result then exit;
      if (Players[CurrentPlayer].Strings[1] = 'Maple') then
      begin
        x:= MSCX;
        y:= MSCY;
        FindColorsSpiralTolerance(x,y,MaplePoints,1986422,MSX1,MSY1,MSX2,MSY2,10);
        Maple2D:= TPAtoATPAEx(MaplePoints,30,30);
        for i:= 0 to length(Maple2D)-1 do
        begin
          if not LoggedIn then
          begin
            break;
          end;
          MaplePoint:= MiddleTPA(Maple2D[i]);
          tx:= MaplePoint.X;
          ty:= MaplePoint.Y;
          MMouse(tx,ty,2,2);
          wait(90+random(50));
          if IsUpTextMultiCustom(['hop', 'aple'])then
          begin
            GetMousePos(x,y);
            result:= true;
            break;
            exit;
          end;
        end;
      end;
      if Result then exit;
      if (Players[CurrentPlayer].Strings[1] = 'Teak') then
      begin
        x:= MSCX;
        y:= MSCY;
        FindColorsSpiralTolerance(x,y,TeakPoints,5607603,MSX1,MSY1,MSX2,MSY2,10);
        Teak2D:= TPAtoATPAEx(TeakPoints,30,30);
        for i:= 0 to length(Teak2D)-1 do
        begin
          if not LoggedIn then
          begin
            break;
          end;
          TeakPoint:= MiddleTPA(Teak2D[i]);
          tx:= TeakPoint.X;
          ty:= TeakPoint.Y;
          MMouse(tx,ty,2,2);
          wait(90+random(50));
          if IsUpTextMultiCustom(['hop', 'eak'])then
          begin
            GetMousePos(x,y);
            result:= true;
            break;
            exit;
          end;
        end;
      end;
    end;

    procedure ChopTheTree(whichtree: string);
    var
     BlackText: string;
    begin
      BlackText := GetBlackChatMessage;//masterkill ftw
      repeat
        if FindATree then
        begin
          if FindEnt(x, y, False) then
          begin
            Ents := Ents + 1;
            Inc(EntsAvoided);
            ReportVars[5] := ReportVars[5] + 1;
            Exit;
          end;
          Mouse(x, y, 5, 5, true);
          repeat
            Wait(500 + random(100));
            SkilldAntiBan;
            FindNormalRandoms;
          until (Pos('get', BlackText) <> 0); //masterkill ftw!
          case lowercase(WhichTree) of
            'normal': begin
                        NormalsChopped := NormalsChopped + 1;
                        ReportVars[0] := ReportVars[0] + 1;
                      end;
            'oak': begin
                     OaksChopped := OaksChopped + 1;
                     ReportVars[1] := ReportVars[1] + 1;
                   end;
            'willow': begin
                        WillowsChopped := WillowsChopped + 1;
                        ReportVars[2] := ReportVars[2] + 1;
                      end;
            'maple': begin
                       MaplesChopped := MaplesChopped + 1;
                       ReportVars[3] := ReportVars[3] + 1;
                     end;
            'teak': begin
                      TeaksChopped := TeaksChopped + 1;
                      ReportVars[4] := ReportVars[4] + 1;
                    end;
          end;
        end;
      until InvFull;
    end;

    procedure DropThem(Log: string);
    begin
      case lowercase(log) of
        'normal': begin
                    repeat
                      if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then
                      begin
                        Mouse(x, y, 4, 4, false);
                        Wait(50 + random(250));
                        ChooseOption('rop');
                        Wait(500 + random(200));
                      end;
                    until not FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2);
                    LoadsBeforeSwitch := LoadsBeforeSwitch + 1;
                    Loads := Loads + 1;
                    ReportVars[6] := ReportVars[6] + 1;
                  end;
        'oak': begin
                 repeat
                   if FindDTM(oak, x, y, MIX1, MIY1, MIX2, MIY2) then
                   begin
                     Mouse(x, y, 4, 4, false);
                     Wait(50 + random(250));
                     ChooseOption('rop');
                     Wait(500 + random(200));
                   end;
                 until not FindDTM(oak, x, y, MIX1, MIY1, MIX2, MIY2);
                 LoadsBeforeSwitch := LoadsBeforeSwitch + 1;
                 Loads := Loads + 1;
                 ReportVars[6] := ReportVars[6] + 1;
               end;
        'willow': begin
                    repeat
                      if FindDTM(willow, x, y, MIX1, MIY1, MIX2, MIY2) then
                      begin
                        Mouse(x, y, 4, 4, false);
                        ChooseOption('rop');
                        Wait(500 + random(200));
                      end;
                    until not FindDTM(willow, x, y, MIX1, MIY1, MIX2, MIY2);
                    LoadsBeforeSwitch := LoadsBeforeSwitch + 1;
                    Loads := Loads + 1;
                    ReportVars[6] := ReportVars[6] + 1;
                  end;
        'maple': begin
                   repeat
                     if FindDTM(maple, x, y, MIX1, MIY1, MIX2, MIY2) then
                     begin
                       Mouse(x, y, 4, 4, false);
                       ChooseOption('rop');
                       Wait(500 + random(200));
                     end;
                   until not FindDTM(maple, x, y, MIX1, MIY1, MIX2, MIY2);
                   LoadsBeforeSwitch := LoadsBeforeSwitch + 1;
                   Loads := Loads + 1;
                   ReportVars[6] := ReportVars[6] + 1;
                 end;
        'teak': begin
                  repeat
                    if FindDTM(teak, x, y, MIX1, MIY1, MIX2, MIY2) then
                    begin
                      Mouse(x, y, 4, 4, false);
                      ChooseOption('rop');
                      Wait(500 + random(200));
                    end;
                  until not FindDTM(teak, x, y, MIX1, MIY1, MIX2, MIY2);
                  LoadsBeforeSwitch := LoadsBeforeSwitch + 1;
                  Loads := Loads + 1;
                  ReportVars[6] := ReportVars[6] + 1;
                end;
        end;
    end;

    procedure Report;
    begin
      ClearReport;
      SRLRandomsReport;
      AddToReport('--------Skilld--------');
      AddToReport('------Tree Pwnz0r-----');
      AddToReport('Running For ' + TimeRunning);
      AddToReport('---Dropped ' + IntToStr(Loads) + ' Loads---');
      AddToReport('-Chopped ' + IntToStr(NormalsChopped) + ' Normal Logs-');
      AddToReport('-Chopped ' + IntToStr(OaksChopped) + ' Oak Logs -');
      AddToReport('-Chopped ' + IntToStr(WillowsChopped) + ' Willow Logs-');
      AddToReport('-Chopped ' + IntToStr(MaplesChopped) + ' Maple Logs-');
      AddToReport('-Chopped ' + IntToStr(TeaksChopped) + ' Teak Logs-');
      AddToReport('----Avoided ' + IntToStr(Ents) + ' Ents----');
    end;

    begin
      SetupSRL;
      ScriptId := '775';
      SRLId := YourSRLId;
      SRLPassword := YourSRLPassword
      DTMs;
      LoginPlayer;
      repeat
        repeat
          FindATree;
          ChopTheTree(Players[CurrentPlayer].Strings[1]);
          DropThem;
          Report;
        until LoadsBeforeSwitch >= Whatever;
        NextPlayer(true);
      until False;
      FreeDTM(maple);
      FreeDTM(teak);
      FreeDTM(log);
      FreeDTM(willow);
      FreeDTM(oak);
    end.

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

    Default

    Found it! look at your function parameters
    ~Hermen

  9. #9
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what about them? i change the (log: string) part

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

    Default

    LOL, you are a srl member you got a dtm called log and you have a string called log ...
    ~Hermen

  11. #11
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    shut up. i changed it to (whichone: string);

    edit: fixed it. i'm so nub.

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

    Default

    you have Log and log which is seen as the same variable, so just change name of one of them
    >< I hate my slow internet, I waited like 5 minutes for this to post and now I look like an idiot since you already posted saying you fixed it
    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.

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

    Default

    Quote Originally Posted by skilld u View Post
    shut up. i changed it to (whichone: string);

    edit: fixed it. i'm so nub.
    No, this is not over fool, i will shoot you for this, you will get dismembered and you go leech of rscheata.net xD j/k
    ~Hermen

  14. #14
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i already do leech iBot scripts

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

    Default

    Nice can't wait for the real script to be released.

    +NaumanAkhlaQ for getting the Maple and Teak colors and DTM's for me.

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

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    Nice can't wait for the real script to be released.

    +NaumanAkhlaQ for getting the Maple and Teak colors and DTM's for me.
    Why is everyone so sad to ask for rep? I NEVER ASKED FOR IT ONCE!
    I don't deserve it

    Hermpie
    ~Hermen

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

    Default

    No thats in his credits;

  18. #18
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i posted the script in free script section; waiting for it to be accepted.

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
  •