Results 1 to 9 of 9

Thread: why wont it find the axe

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

    Default why wont it find the axe

    Code:
    {.include srl/srl/misc/smart.scar}
    {.include srl/srl.scar}
    var
      x, y, loads :integer;
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // If you add more players , make sure you set this correct, ;)
      NumberOfPlayers(HowManyPlayers);
    
      Players[0].Name := 'killingnubs3'; //Your username
      Players[0].Pass := 'jp1111'; //Your password
      Players[0].Nick := 'nubs'; //Nickname from you username
      Players[0].Active := True; //Active->True or False.
      Players[0].Integers[0] := 99; //Loads to do.
      Players[0].Strings[1] := 'mining'; //what skill do u want to do mining, wcing , or prayer
      Players[0].strings[2] := 'copper' //what tree or ore or bone do u want to power skill
      Players[0].strings[3] := '0000' // pin number
      Players[0].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns
      players[0].loc :='start'//no touchy
      
      {Players[1].Name := ''; //Your username
      Players[1].Pass := ''; //Your password
      Players[1].Nick := ''; //Nickname from you username
      Players[1].Active := True; //Active->True or False.
      Players[1].Integers[0] := 99; //Loads to do.
      Players[1].Strings[1] := 'mining'; //what skill do u want to do mining, wcing , or prayer
      Players[1].strings[2] := 'iron' //what tree or ore or bone do u want to power skill
      Players[1].strings[3] := '0000' // pin number
      Players[1].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns
      players[1].loc :='start'//no touchy
      
      Players[2].Name := ''; //Your username
      Players[2].Pass := ''; //Your password
      Players[2].Nick := ''; //Nickname from you username
      Players[2].Active := True; //Active->True or False.
      Players[2].Integers[0] := 99; //Loads to do.
      Players[2].Strings[1] := 'mining'; //what skill do u want to do mining, wcing , or prayer
      Players[2].strings[2] := 'iron' //what tree or ore or bone do u want to power skill
      Players[2].strings[3] := '0000' // pin number
      Players[2].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns
      players[2].loc :='start'//no touchy
      
      Players[3].Name := ''; //Your username
      Players[3].Pass := ''; //Your password
      Players[3].Nick := ''; //Nickname from you username
      Players[3].Active := True; //Active->True or False.
      Players[3].Integers[0] := 99; //Loads to do.
      Players[3].Strings[1] := 'mining'; //what skill do u want to do mining, wcing , or prayer
      Players[3].strings[2] := 'iron' //what tree or ore or bone do u want to power skill
      Players[3].strings[3] := '0000' // pin number
      Players[3].BoxRewards := ['Xp', 'ostume', 'gem', 'mote', 'ithril', 'oal'];//What do u want out of randomns
      players[3].loc :='start'//no touchy
      { woodcutting
         tree =  normal   oak =oak  willow= willow yew = yew
    
      mining
        all the normal ore name must be spelled perfectly
          }
    end;
    
    procedure proggy;
    forward;
    
    procedure antibanz;
    begin
      If(not LoggedIn)then Exit;
      Case Random(9) of
        0:  MMouse(Random(MSX2),Random(MSY2),0,0);
        1:  PickupMouse;
        2:  SleepAndMoveMouse(400+Random(1500));
        3:  if Random(2) = 1 then MMouse(1, 338, 515, 165);
        4:  if Random(2) = 1 then MMouse(515, 1, 250, 503);
        5:  RandomMovement;
     6..9:
    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 findrandoms;
    begin
      LampSkill := 'mining';
      FindNormalRandoms;
      if not LoggedIn then
        players[currentplayer].loc := 'failed at random srry';
        proggy;
    end;
    
    procedure woodcutting;
    var
      x, y, H, m, cts, i, maincolor: integer;
      TreeUptext: string;
      WillowPoints, TreePoints, TPA: TPointArray;
      ATPA: T2DPointArray;
    
    begin
      if not LoggedIn then exit;
      case lowercase(players[currentplayer].strings[3]) of
        'willow': TreeUptext := 'illo';
        'oak': TreeUptext := 'Oak';
        'tree': TreeUptext := 'ree';
      end;
      if (players[currentplayer].strings[2] = 'oak') then
        maincolor := 3173729;
         if (players[currentplayer].strings[2] = 'willow') then
          maincolor := 2570803;
           if (players[currentplayer].strings[2] = 'tree') then
            maincolor := 863784;
            repeat
              if not LoggedIn then exit;
              CTS := GetColorToleranceSpeed;
              ColorToleranceSpeed(2);
              SetColorSpeed2Modifiers(0.2, 0.2);
              FindColorsTolerance(WillowPoints, maincolor, MSX1, MSY1, MSX2, MSY2, 5);
              FindColorsTolerance(TreePoints, 1988172, MSX1, MSY1, MSX2, MSY2, 5);
              TPA := CombineTPA(WillowPoints, TreePoints);
              if (Length(TPA) = 0) then Exit;
              ATPA := SplitTPAEx(TPA, 9, 9);
              SortATPAFrom(ATPA, Point(MSCX, MSCY));
              H := High(ATPA) - 1;
              for I := 0 to H do
              begin
                MiddleTPAEx(ATPA[i], x, y);
                MMouse(x, y, 3, 3);
                Wait(100 + Random(200));
                if IsUpText(TreeUptext) then
                begin
                  marktime(m)
                  Mouse(x, y, 3, 3, True);
                  ismoving(10);
                  wait(15000 + random(400));
                  findrandoms;
                  antibanz;
                end;
                AntiBanz;
                FindRandoms;
                if not (LoggedIn) then
                begin
                  NextPlayer(False);
                  LoginPlayer;
                end;
              end;
      until invfull or FindChatBoxText('full to', 8, 0)
    end;
    
    procedure logdropping;
    var
      logdtm:integer;
    begin
      repeat
        if not LoggedIn then exit;
        logDTM := DTMFromString('78DA63CC66626078C28002EA12AD181E02694' +
                '620FE0F048C1940357718D000231209A48B806A6E1250530654F3' +
                '88809A6AA09A6704D45400D5BC21A0A618A8E62D0135E940351F0' +
                '9A84924C29C58A09AA7B8D570C0CCB94F404D32FE7006A90100DC' +
                'FE160C');
        If FindDTM(logDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
        Begin
          Mouse(x,y,2,2,False);
          wait(random(200));
          ChooseOption('Drop');
          wait(500 + random(100))
          findrandoms;
       end;
      Until not FindDTM(logDTM,x,y,MIX1,MIY1,MIX2,MIY2);
      freedtm(logdtm);
    end;
    
    procedure mineores;
    var
      x, y, H, m, cts, i, maincolor, basecolor, inv, invset: integer;
      TreeUptext: string;
      MainPoints, BasePoints, TPA: TPointArray;
      ATPA: T2DPointArray;
    
    begin
      disguise('mining')
      if not LoggedIn then exit;
      if (players[currentplayer].strings[2] = 'Tin') then
        maincolor := 10197927;
        basecolor := 3421240;
         if (players[currentplayer].strings[2] = 'copper') then
           maincolor := 3430801;
           basecolor := 602956;
           if (players[currentplayer].strings[2] = 'iron') then
            maincolor := 2503507;
            Basecolor := 3161957;
              repeat
                if not LoggedIn then exit;
                CTS := GetColorToleranceSpeed;
                ColorToleranceSpeed(2);
                SetColorSpeed2Modifiers(0.2, 0.2);
                FindColorsTolerance(MainPoints, maincolor, MSX1, MSY1, MSX2, MSY2, 5);
                FindColorsTolerance(BasePoints, Basecolor, MSX1, MSY1, MSX2, MSY2, 5);
                TPA := CombineTPA(MainPoints, BasePoints);
                if (Length(TPA) = 0) then Exit;
                ATPA := SplitTPAEx(TPA, 9, 9);
                SortATPAFrom(ATPA, Point(MSCX, MSCY));
                H := High(ATPA) - 1;
                for I := 0 to H do
                begin
                  MiddleTPAEx(ATPA[i], x, y);
                  MMouse(x, y, 3, 3);
                  Wait(100 + Random(200));
                  if IsUpText('Rock') then
                  begin
                    Mouse(x, y, 4, 4, True);
                    Marktime(m);
                    invset:=invcount;
                    repeat
                      inv:=invcount;
                      wait (100);
                      findrandoms;
                    until ((invset < Inv) or (TimeFromMark(m) > 15000) or FindChatBoxText('availa', 8, 0));
                  AntiBanz;
                  FindRandoms;
                end;
              end;
      until invfull or FindChatBoxText('full to', 8, 0)
    end;
    
    procedure OreDropping;
    var OreDTM:integer;
    begin
      if not LoggedIn then exit;
      OreDTM := DTMFromString('78DA637463626078C28002FC0C54181E02694' +
         '620FE0F048CEE40353718D000231209A403816AEE1350E30D54F3' +
         '86801A7BA09A4F04D49800D53C26C29CEBF8D5000045B70DB0');
      repeat
       if not LoggedIn then exit;
       Disguise('dropping ores');
       If FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
       Begin
        Mouse(x,y,2,2,False);
        wait(random(200));
        ChooseOption('Drop');
        wait(500 + random(100))
        findrandoms;
       end;
      Until not FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2);
      inc(loads);
      freedtm(oredtm);
    end;
    
    procedure proggy;
    begin
      cleardebug;
      SrlRandomsReport;
      WriteLn('             _____  ______')
      WriteLn('            |     ||      \    ')
      WriteLn('            |     ||       |  ')
      WriteLn('            |     ||   ___/   ')
      WriteLn('           /_____/ |__|    Power Skiller')
      WriteLn('_________________________________________________')
      WriteLn('        Ran for ' + timerunning               )
      WriteLn('        Skill trained ' + Players[CurrentPlayer].Strings[1] )
      WriteLn('        Loads done ' + inttostr(loads));
      WriteLn('        Your player is currently at ' + players[currentplayer].loc)
      WriteLn('        Thank You For Using JP Power skiller')
      WriteLn('        For your other player reports scroll up in debug box')
      WriteLn('_________________________________________________')
    end;
    
    procedure axecheck;
    var
      pickdtm, axedtm: integer;
    begin
      pickDTM := DTMFromString('78DA6374616260B8C180027C52F3191E02694' +
           '620FE0F048C1E4035F719D000231209A403806A1E1250E3055473' +
           '87801A3B4CF760A83101AAB94D408D2511763910A1C615A8E61E0' +
           '1354E4035D708A87121AC0600F9441279');
      axeDTM := DTMFromString('78DA6374676260B8C58002BC9272191E02694' +
           '620FE0F048C5E40353718D000231209A47D816AEE1150E30954F3' +
           '90801A67A09ABB04D4B812A10664CE7522CC21E42F0F22D478135' +
           '603007320117C');
      Gametab(4)
      If Not FindDTM(pickDTM,x,y,MIX1,MIY1,MIX2,MIY2)then
        If not FindDTM(axeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
          Gametab(5);
          If Not FindDTM(pickDTM,x,y,MIX1,MIY1,MIX2,MIY2)then
            If not FindDTM(axeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
              players[currentplayer].loc := ' no axe try agian with axe';
              proggy;
              logout;
              freedtm(pickdtm);
              freedtm(axedtm);
    end;
    
              
    
          
        
    
    
    begin
      SmartSetupEx(49, false, true, false);
      while not SmartActive do wait(100);
      SetTargetDC(SmartGetDC);
      setupsrl;
      activateclient;
      GraphicsSet := true;
      declareplayers;
      Login_SetAudio(1, 1, 1, NoChange);
      loginplayer;
      loads:=0;
      repeat
        repeat
           disguise('player setup');
           GetTimeRunning;
           proggy;
           axecheck;
           if Players[CurrentPlayer].strings[1] = 'woodcutting' then
             players[currentplayer].loc := 'trees';
             woodcutting;
             if Players[CurrentPlayer].strings[1] = 'woodcutting' then
             logdropping;
             if Players[CurrentPlayer].strings[1] = 'mining' then
               players[currentplayer].loc := 'mines';
               mineores;
               if Players[CurrentPlayer].strings[1] = 'mining' then
                 oredropping;
                 inc(loads);
         until(loads = Players[CurrentPlayer].Integers[0]) or not (loggedin)
         NextPlayer(false);
         loginplayer;
      until(AllPlayersInactive);
    end.
    ok so it logs in and everything but then it logs right back out saying it couldnt find the axe when i do have one in my inventory for it to see any help

    also is my check axe procedure in the right standards.

  2. #2
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    SCAR Code:
    procedure axecheck;
    var
      pickdtm, axedtm: integer;
    begin
      pickDTM := DTMFromString('78DA6374616260B8C180027C52F3191E02694' +
           '620FE0F048C1E4035F719D000231209A403806A1E1250E3055473' +
           '87801A3B4CF760A83101AAB94D408D2511763910A1C615A8E61E0' +
           '1354E4035D708A87121AC0600F9441279');
      axeDTM := DTMFromString('78DA6374676260B8C58002BC9272191E02694' +
           '620FE0F048C5E40353718D000231209A47D816AEE1150E30954F3' +
           '90801A67A09ABB04D4B812A10664CE7522CC21E42F0F22D478135' +
           '603007320117C');
      Gametab(4)
      If Not FindDTM(pickDTM,x,y,MIX1,MIY1,MIX2,MIY2)then
        If not FindDTM(axeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
          Gametab(5);
          If Not FindDTM(pickDTM,x,y,MIX1,MIY1,MIX2,MIY2)then
            If not FindDTM(axeDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
              begin
                players[currentplayer].loc := ' no axe try agian with axe';
                proggy;
                logout;
              end;
              freedtm(pickdtm);
              freedtm(axedtm);
    end;
    try that

    ~shut

  3. #3
    Join Date
    Mar 2008
    Location
    ::1
    Posts
    915
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Correct me if I'm wrong, but I think there's a procedure in SRL called FindAxe which now returns a string of the location of the axe?

    Records and Types Save Code (and make you look better)
    Quote Originally Posted by Wizzup? View Post
    Is it possible to make Runescape a 2D game with this?... That would greatly simplify... Just about anything.

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

    Default

    doe sthat search for pickaxe and wc axe since it s a multi script

  5. #5
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  6. #6
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    Shuttles should work
    Also you left your user and pass in

    T~M

  7. #7
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

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

    Default

    yes i tried your shuttlu same thing ill try making new dtms and reprot back here


    edit: didnt work
    Last edited by JPHamlett; 05-20-2009 at 06:40 AM.

  9. #9
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Shuttle, I changed it for him.

    ~Sandstorm

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
  •