Results 1 to 4 of 4

Thread: [TEST!] Does this work!?!?

  1. #1
    Join Date
    Dec 2006
    Posts
    399
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default [TEST!] Does this work!?!?

    Hey guys, I am working on a Ardougne Druid Killer / Banker... and I want to know how I am doing so far... please try the walking and tell me if it works for you.

    SCAR Code:
    program DruidHouseWalker;
    {.include SRL/SRL.scar}

    var
    x, y, a, b : integer;
    House, HouseYard, DeadSheepPlace, DoorBMP, TreesByBank : integer;
    c:Tpoint;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      CurrentPlayer := 0;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := 'Juvanilekid';
      Players[0].Pass := 'thisisntmypass';
      Players[0].Nick := 'uva';
      Players[0].Active := true;
      Players[0].loc := '';
    end;

    Procedure LoadDTMs;
     begin
       House := DTMFromString('78DA63B460626088634001612EF20C5C409A1' +
           '188FF0301A30B504D22A61A06A81A300D322704558D85B220A69A' +
           '4C026ADC816AD251D57CF8F20C534D0C0135A6986AD0DD0C00104' +
           '31104');
           
       HouseYard := DTMFromString('78DA633460626088604001612EF20C92409A1' +
                 '1CA673405AA09425563A12C88AAC612A8260E554D699A39AA1A90' +
                 '5D8904D46801D50410506307541386AAE6C39767A86A2C806A7C0' +
                 '8A801B93915B79AFF40000009C01605');
     end;

    Procedure ToHouse;
    var MMA : extended;
     begin
      LoadDTMs;
      Writeln('Searching for Log on MiniMap...');
      RadialWalk(65536, 270, 320, 70, -1, 0)
      Writeln('Log found on the MiniMap!!!')
       repeat
        LoadDTMs;
        wait(700)
        Writeln('Looking for the House-Yard...')
       until(FindDTMRotated(House, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, MMA) or FindDTMRotated(HouseYard, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, MMA))
      Writeln('Found it :)');
      Mouse(x, y, 0, 0, true)
      FreeDTM(House)
      FreeDTM(HouseYard)
     end;

    Procedure EnterHouse;
     Begin
      SetAngle(True)
      MakeCompass('E')
      Writeln('Searching for door...');
      wait(2000)
      If(FindObjEx(x, y, ['Op', 'en', 'oo'], [2055030, 2453134, 2453134, 1922414], 15, 241, 173, 0.5, 58, 63, 368, 263))then
       begin
       Writeln('Found it, moving Closer.');
        Mouse(x, y, 0, 0, true);
        Flag;
        wait(1000);
        Writeln('Attempting to pick the lock...')
        If(FindObjEx(x, y, ['Op', 'en', 'oo'], [2055030, 2453134, 2453134, 1922414], 15, 241, 173, 0.5, 58, 63, 368, 263))then
         begin
          repeat
           wait(10);
           MMouse(x, y, 0, 0)
           if(IsUpText('oor'))then
            wait(100);
             begin
              Mouse(x, y, 2, 2, false)
              wait(700)
              ChooseOption('Pick-')
             end;
          until(FindBlackChatMessage('manage'))
          writeln('YAY! It worked, please post on my thread!')
         end;
     end;
     end;

    Procedure LeaveHouse;
     Begin
      SetAngle(True)
      MakeCompass('E')
      wait(2000)
      If(FindObjEx(x, y, ['Op', 'en', 'oo'], [2055030, 2453134, 2453134, 1922414], 15, 241, 173, 0.5, 58, 63, 368, 263))then
       begin
        MMouse(x, y, 0, 0);
        if(IsUptext('Op'))then Mouse(x, y, 0, 0, True);
        Flag;
       end;
     end;
     
    begin
     SetupSRL;
     DeclarePlayers;
      wait(1000)
      ActivateClient;
        Wait(1000)
        LoginPlayer;
     ToHouse;
      wait(1000)
      EnterHouse;
      wait(1000)
      TypeSend('Oops.. forgot summin :o');
      LeaveHouse;
    end.
    Hax0r


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

    Default

    Looks good but try using FindObjCustom as that already uses FindObjEx,
    Also might wanna read up on radial walking.

    Or have a look at this tut:

    http://www.srl-forums.com/forum/make...-t31587p2.html

    Hope I Helped

  3. #3
    Join Date
    Dec 2006
    Posts
    399
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    I will , I just want it to be able to walk to and from the house, then I'll try and update the walking.

    I cant seem to get alot of DTMs working correctly... so its kind of hard for me (I read about 10 tuts) ... I think the minimap changes... or summin.

    This is my 1st script btw
    Hax0r


  4. #4
    Join Date
    Dec 2006
    Posts
    399
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    I used ur thread, I have it try DTMs, SRL autocolor, FindColor, FindColorSpiral, FindcolorSprialtolerance, then co-ords... works nicely, tyvm
    Hax0r


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Speed Test [Test your connection and share!]
    By yanix in forum News and General
    Replies: 2
    Last Post: 12-17-2007, 09:27 PM
  2. test or help!!!!!!!!!!!!
    By faster789 in forum OSR Help
    Replies: 2
    Last Post: 10-03-2007, 01:19 AM
  3. Replies: 5
    Last Post: 04-27-2007, 11: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
  •