Results 1 to 13 of 13

Thread: Vannilabear's First script

  1. #1
    Join Date
    Jul 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default Vannilabear's First script

    This is my first ever script, any constructive criticism and/or help would be gladly taken..
    The script kills men at edgeville, I later plan on adding a means to loot the unidentified herbs, and bank them. ( Need help doing this )
    and adding antibans, antirandoms when I learn how to. ( Also need help doing this )
    I owe alot of this work to Le_Don, for his assistance over skype, and putting up with my general lack of simba knowledge.
    anyway, without first adieu, Here is my script:

    Simba Code:
    program EdgevilleManKillerByVannilabear;
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}

    {------------------------------------------------------------------------------}
    {-----------------------------------CREDITS----------------------------}
    {------------------------------------MYSELF--------------------------------------}
    {---------------------------LE_DON-FOR-ASSISTANCE-------------------------}
    {------------------------------------------------------------------------------}
    const
    VER = 0.1;
    //PLAYER CREDENTIALS
    PLAYER_USERNAME = '';
    PLAYER_PASSWORD = '';
    //COLOR INFORMATION
    HPCOLOR = 65280;
    MINIMAPITEMCOLOR1 = 3301261; //PLACEHOLDER
    MANCOLOR1 = 5400402; //body color man 1
    MANCOLOR2 = 4404533; //body color man 2
    MANCOLOR3 = 1123909; //body color man 3
    MANCOLOR4 = 1720144; //head color man 1
    MANCOLOR5 = 1722480; //head color man 2
    MANCOLOR6 = 4226955; //head color man 3
    BONECOLOR = 11842750; //best with color tolerance 5
    //PLAYER INFORMATION
    PLAYER_NICK = 'Jay';

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      Players[0].Name := PLAYER_USERNAME;
      Players[0].Pass := PLAYER_PASSWORD;
      Players[0].Nick := PLAYER_NICK;
      Players[0].Active := True;
    end;

    procedure Antiban;
    begin
      case Random(100) of
        1: HoverSkill('magic', False);
        2: HoverSkill('random', False);
        3: Boredhuman;
        4: Wait(2500 + random(4500));
        5: HoverSkill('smithing', False);
        6: PickUpMouse;
        7: RandomMovement;
        8: RandomRClick;
      end;
    end;

    procedure MiniAntiBan; //WE CALL THIS SPECIFICALLY WHILST WAITING FOR MEN TO DIE
    var
    x, y: integer;
    begin
     Case Random(20) of
      1: BoredHuman;
      2: RandomRClick;
      3: RandomMovement;
      4: SmallRandomMouse;
      7: wait(randomrange(1000,2000));
      8: begin end;
     end;
    end;
    procedure MiniBreaker;
    begin
      case Random(160) of
        1: Wait(40000 + random(7400));
        2: Wait(25500 + random(8550));
        3: Wait(60040 + random(6759));
        4: Wait(20400 + random(2549));
      end;
    end;

    function InCombat: Boolean;
    var
    X,Y:Integer;
    begin
    if (FindColor(x,y,HPCOLOR,200,100,300,200)) then
      Result := true
      else
      Result := false
      end;
    procedure FindMan;
    var
      starttime, x, y: integer;
    begin
      if (not InCombat) then
      begin
        Writeln('Looking For Man');
        if (FindObjCustom(x, y, ['Attack', 'ttack', 'Man','an'], [MANCOLOR1, MANCOLOR2, MANCOLOR3, MANCOLOR4, MANCOLOR5, MANCOLOR6], 10)) then
        begin
          Writeln('Found Man. Clicking.');
          MMouse(x, y, 3, 3);
          ClickMouse2(mouse_left);
          starttime := getsystemtime;
          repeat
            Wait(randomrange(300,700));
          until (InCombat) or (getsystemtime - starttime > (randomrange(4000, 10000)))
          while (InCombat) do MiniAntiBan;
          Writeln('We Probably Killed A Man.');
        end;
      end;
    end;

    Function CheckLoot:Boolean;
    var
    X,Y:Integer;
    begin
      Writeln('[CheckLoot] START');

      if  FindObjCustom(x,y,['ake','Take', 'erb', 'Herb'],[BONECOLOR], 5) then
      begin
        Writeln('[CheckLoot] FOUND Herb');
        MMouse(x,y, 0, 0);
        ClickMouse2(mouse_right);
        Wait(RandomRange(150, 300));
        ChooseOption('ake');

        mmouse(259, 184, 5, 5);

        wait(randomRange(1100,1500));

        if IsUpTextMultiCustom(['Herb','erb']) then
        begin
          repeat
          Writeln('[CheckLoot] Taking herbs below you');
          ClickMouse2(mouse_left);
          Wait(RandomRange(150, 300));
          until not IsUpTextMultiCustom(['Herb', 'erb']);
        end;

        wait(200+ random(100));

      end;

      wait(randomRange(600,900));
      Writeln('[CheckLoot] END');
    end;


    begin //CALL FUNCTION
      DeclarePlayers;
        SetupSRL;
        ActivateClient;
        Wait(2000);
        LoginPlayer;
        repeat
        FindMan;
        InCombat;
        CheckLoot;
        Antiban;
        MiniBreaker;
        Until(False)
        end.
    Last edited by vannilabear; 07-26-2013 at 04:20 PM.

  2. #2
    Join Date
    Oct 2006
    Location
    Netherlands
    Posts
    3,285
    Mentioned
    105 Post(s)
    Quoted
    494 Post(s)

    Default

    Hi, awesome script! Definatly a good first script.

    I fixed the standards a bit and it looked like this:

    Simba Code:
    program EdgevilleManKillerByVannilabear;
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}

    {------------------------------------------------------------------------------}
    {-----------------------------------CREDITS----------------------------}
    {------------------------------------MYSELF--------------------------------------}
    {---------------------------LE_DON-FOR-ASSISTANCE-------------------------}
    {------------------------------------------------------------------------------}
    const
      VER = 0.1;
      //PLAYER CREDENTIALS
      PLAYER_USERNAME = '';
      PLAYER_PASSWORD = '';
      //COLOR INFORMATION
      HPCOLOR = 65280;
      MINIMAPITEMCOLOR1 = 3301261; //PLACEHOLDER
      MANCOLOR1 = 5400402; //body color man 1
      MANCOLOR2 = 4404533; //body color man 2
      MANCOLOR3 = 1123909; //body color man 3
      MANCOLOR4 = 1720144; //head color man 1
      MANCOLOR5 = 1722480; //head color man 2
      MANCOLOR6 = 4226955; //head color man 3
      //PLAYER INFORMATION
      PLAYER_NICK = '';

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      Players[0].Name := PLAYER_USERNAME;
      Players[0].Pass := PLAYER_PASSWORD;
      Players[0].Nick := PLAYER_NICK;
      Players[0].Active := True;
    end;

    function InCombat: Boolean;
    var
      X,Y:Integer;
    begin
      Result := FindColor(x,y,HPCOLOR,200,100,300,200);
    end;

    procedure FindMan;
    var
      X,Y:Integer;
    begin
      if (FindObjCustom(x,y, ['Attack','ttack','Man','an'],[MANCOLOR1, MANCOLOR2, MANCOLOR3, MANCOLOR4, MANCOLOR5, MANCOLOR6], 10)) then
        ClickMouse2(mouse_left);

      while (InCombat) do
        wait(randomrange(1000,2000));
    end;

    begin //CALL FUNCTION
      DeclarePlayers;
      SetupSRL;
      ActivateClient;
      Wait(2000);
      LoginPlayer;

      repeat
        FindMan;
      until(False)
    end.

    note: If you don't like the removal of some begin and end statements, that is optional.

    I think the next step is some anti ban and removal of the infinity loops. With infinity loops I mean you repeat from the mainLoop and the while loop from the fight function. Here is a list of challenges for you:

    Can you think of a way using MarkTime and GetMarkFromTime to make sure the while loop can't last way too long(if inCombat breaks for example).

    Can you think of a way using some point on the map (like a symbol), or maybe if it couldn't find a man for a certain amount of time, that it stops the script?

    Can you add anti randoms or anti ban?

    Can you output an awesome proggy how many man this script has killed?


    Good job overal, I love reading first scripts.
    Working on: Tithe Farmer

  3. #3
    Join Date
    Jul 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by masterBB View Post
    Hi, awesome script! Definatly a good first script.

    I fixed the standards a bit and it looked like this:

    Simba Code:
    program EdgevilleManKillerByVannilabear;
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}

    {------------------------------------------------------------------------------}
    {-----------------------------------CREDITS----------------------------}
    {------------------------------------MYSELF--------------------------------------}
    {---------------------------LE_DON-FOR-ASSISTANCE-------------------------}
    {------------------------------------------------------------------------------}
    const
      VER = 0.1;
      //PLAYER CREDENTIALS
      PLAYER_USERNAME = '';
      PLAYER_PASSWORD = '';
      //COLOR INFORMATION
      HPCOLOR = 65280;
      MINIMAPITEMCOLOR1 = 3301261; //PLACEHOLDER
      MANCOLOR1 = 5400402; //body color man 1
      MANCOLOR2 = 4404533; //body color man 2
      MANCOLOR3 = 1123909; //body color man 3
      MANCOLOR4 = 1720144; //head color man 1
      MANCOLOR5 = 1722480; //head color man 2
      MANCOLOR6 = 4226955; //head color man 3
      //PLAYER INFORMATION
      PLAYER_NICK = '';

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      Players[0].Name := PLAYER_USERNAME;
      Players[0].Pass := PLAYER_PASSWORD;
      Players[0].Nick := PLAYER_NICK;
      Players[0].Active := True;
    end;

    function InCombat: Boolean;
    var
      X,Y:Integer;
    begin
      Result := FindColor(x,y,HPCOLOR,200,100,300,200);
    end;

    procedure FindMan;
    var
      X,Y:Integer;
    begin
      if (FindObjCustom(x,y, ['Attack','ttack','Man','an'],[MANCOLOR1, MANCOLOR2, MANCOLOR3, MANCOLOR4, MANCOLOR5, MANCOLOR6], 10)) then
        ClickMouse2(mouse_left);

      while (InCombat) do
        wait(randomrange(1000,2000));
    end;

    begin //CALL FUNCTION
      DeclarePlayers;
      SetupSRL;
      ActivateClient;
      Wait(2000);
      LoginPlayer;

      repeat
        FindMan;
      until(False)
    end.

    note: If you don't like the removal of some begin and end statements, that is optional.

    I think the next step is some anti ban and removal of the infinity loops. With infinity loops I mean you repeat from the mainLoop and the while loop from the fight function. Here is a list of challenges for you:

    Can you think of a way using MarkTime and GetMarkFromTime to make sure the while loop can't last way too long(if inCombat breaks for example).

    Can you think of a way using some point on the map (like a symbol), or maybe if it couldn't find a man for a certain amount of time, that it stops the script?

    Can you add anti randoms or anti ban?

    Can you output an awesome proggy how many man this script has killed?


    Good job overal, I love reading first scripts.
    I am currently working on making it loot correctly, I have already added antibans, and minibreaks, and they both work fine, but it is currently looting everything it can find..
    Thanks for the compliments on the first script, it means alot!
    I will add a proggy, as that is a good idea, as for the rest, I will try!
    Cheers for the reply.

  4. #4
    Join Date
    May 2007
    Location
    England
    Posts
    4,140
    Mentioned
    11 Post(s)
    Quoted
    266 Post(s)

    Default

    Quote Originally Posted by vannilabear View Post
    I am currently working on making it loot correctly, I have already added antibans, and minibreaks, and they both work fine, but it is currently looting everything it can find..
    Thanks for the compliments on the first script, it means alot!
    I will add a proggy, as that is a good idea, as for the rest, I will try!
    Cheers for the reply.
    If you're struggling to get it to loot properly, if you want to show us the code you've hopefully we can point you in the right direction
    <3

    Quote Originally Posted by Eminem
    I don't care if you're black, white, straight, bisexual, gay, lesbian, short, tall, fat, skinny, rich or poor. If you're nice to me, I'll be nice to you. Simple as that.

  5. #5
    Join Date
    Jul 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by Rich View Post
    If you're struggling to get it to loot properly, if you want to show us the code you've hopefully we can point you in the right direction
    Editing original post now

  6. #6
    Join Date
    Feb 2013
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    32 Post(s)

    Default

    Here - Now it only loots herbs:

    Simba Code:
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}

    {------------------------------------------------------------------------------}
    {-----------------------------------CREDITS----------------------------}
    {------------------------------------MYSELF--------------------------------------}
    {---------------------------LE_DON-FOR-ASSISTANCE-------------------------}
    {------------------------------------------------------------------------------}
    const
    VER = 0.1;
    //PLAYER CREDENTIALS
    PLAYER_USERNAME = '';
    PLAYER_PASSWORD = '';
    //COLOR INFORMATION
    HPCOLOR = 65280;
    MINIMAPITEMCOLOR1 = 3301261; //PLACEHOLDER
    MANCOLOR1 = 5400402; //body color man 1
    MANCOLOR2 = 4404533; //body color man 2
    MANCOLOR3 = 1123909; //body color man 3
    MANCOLOR4 = 1720144; //head color man 1
    MANCOLOR5 = 1722480; //head color man 2
    MANCOLOR6 = 4226955; //head color man 3
    BONECOLOR = 11842750; //best with color tolerance 5
    //PLAYER INFORMATION
    PLAYER_NICK = 'Jay';

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      Players[0].Name := PLAYER_USERNAME;
      Players[0].Pass := PLAYER_PASSWORD;
      Players[0].Nick := PLAYER_NICK;
      Players[0].Active := True;
    end;

    procedure Antiban;
    begin
      case Random(100) of
        1: HoverSkill('magic', False);
        2: HoverSkill('random', False);
        3: Boredhuman;
        4: Wait(2500 + random(4500));
        5: HoverSkill('smithing', False);
        6: PickUpMouse;
        7: RandomMovement;
        8: RandomRClick;
      end;
    end;

    procedure MiniAntiBan; //WE CALL THIS SPECIFICALLY WHILST WAITING FOR MEN TO DIE
    var
    x, y: integer;
    begin
     Case Random(20) of
      1: BoredHuman;
      2: RandomRClick;
      3: RandomMovement;
      4: SmallRandomMouse;
      7: wait(randomrange(1000,2000));
      8: begin end;
     end;
    end;
    procedure MiniBreaker;
    begin
      case Random(160) of
        1: Wait(40000 + random(7400));
        2: Wait(25500 + random(8550));
        3: Wait(60040 + random(6759));
        4: Wait(20400 + random(2549));
      end;
    end;

    function InCombat: Boolean;
    var
    X,Y:Integer;
    begin
    if (FindColor(x,y,HPCOLOR,200,100,300,200)) then
      Result := true
      else
      Result := false
      end;
    procedure FindMan;
    var
      starttime, x, y: integer;
    begin
      if (not InCombat) then
      begin
        Writeln('Looking For Man');
        if (FindObjCustom(x, y, ['Attack', 'ttack', 'Man','an'], [MANCOLOR1, MANCOLOR2, MANCOLOR3, MANCOLOR4, MANCOLOR5, MANCOLOR6], 10)) then
        begin
          Writeln('Found Man. Clicking.');
          MMouse(x, y, 3, 3);
          ClickMouse2(mouse_left);
          starttime := getsystemtime;
          repeat
            Wait(randomrange(300,700));
          until (InCombat) or (getsystemtime - starttime > (randomrange(4000, 10000)))
          while (InCombat) do MiniAntiBan;
          Writeln('We Probably Killed A Man.');
        end;
      end;
    end;

    Function CheckLoot:Boolean;
    var
    X,Y:Integer;
    begin
      Writeln('[CheckLoot] START');

      if  FindObjCustom(x,y,['ake','Take'],[BONECOLOR], 5) then
      begin
        Writeln('Found loot - checking for herb');
        MMouse(x,y, 0, 0);
        ClickMouse2(mouse_right);
        Wait(RandomRange(150, 300));
        ChooseOptionMulti(['erb', 'herb', 'Herb']);

        mmouse(259, 184, 5, 5);

        wait(randomRange(1100,1500));

        if IsUpTextMultiCustom(['Herb','erb']) then
        begin
          repeat
          Writeln('[CheckLoot] Taking herbs below you');
          ClickMouse2(mouse_left);
          Wait(RandomRange(150, 300));
          until not IsUpTextMultiCustom(['Herb', 'erb']);
        end;

        wait(200+ random(100));

      end;

      wait(randomRange(600,900));
      Writeln('[CheckLoot] END');
    end;


    begin //CALL FUNCTION
      DeclarePlayers;
        SetupSRL;
        ActivateClient;
        Wait(2000);
        LoginPlayer;
        repeat
        FindMan;
        InCombat;
        CheckLoot;
        Antiban;
        MiniBreaker;
        Until(False)
        end.

  7. #7
    Join Date
    Jul 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by Le_don View Post
    Here - Now it only loots herbs:

    Simba Code:
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}

    {------------------------------------------------------------------------------}
    {-----------------------------------CREDITS----------------------------}
    {------------------------------------MYSELF--------------------------------------}
    {---------------------------LE_DON-FOR-ASSISTANCE-------------------------}
    {------------------------------------------------------------------------------}
    const
    VER = 0.1;
    //PLAYER CREDENTIALS
    PLAYER_USERNAME = '';
    PLAYER_PASSWORD = '';
    //COLOR INFORMATION
    HPCOLOR = 65280;
    MINIMAPITEMCOLOR1 = 3301261; //PLACEHOLDER
    MANCOLOR1 = 5400402; //body color man 1
    MANCOLOR2 = 4404533; //body color man 2
    MANCOLOR3 = 1123909; //body color man 3
    MANCOLOR4 = 1720144; //head color man 1
    MANCOLOR5 = 1722480; //head color man 2
    MANCOLOR6 = 4226955; //head color man 3
    BONECOLOR = 11842750; //best with color tolerance 5
    //PLAYER INFORMATION
    PLAYER_NICK = 'Jay';

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      Players[0].Name := PLAYER_USERNAME;
      Players[0].Pass := PLAYER_PASSWORD;
      Players[0].Nick := PLAYER_NICK;
      Players[0].Active := True;
    end;

    procedure Antiban;
    begin
      case Random(100) of
        1: HoverSkill('magic', False);
        2: HoverSkill('random', False);
        3: Boredhuman;
        4: Wait(2500 + random(4500));
        5: HoverSkill('smithing', False);
        6: PickUpMouse;
        7: RandomMovement;
        8: RandomRClick;
      end;
    end;

    procedure MiniAntiBan; //WE CALL THIS SPECIFICALLY WHILST WAITING FOR MEN TO DIE
    var
    x, y: integer;
    begin
     Case Random(20) of
      1: BoredHuman;
      2: RandomRClick;
      3: RandomMovement;
      4: SmallRandomMouse;
      7: wait(randomrange(1000,2000));
      8: begin end;
     end;
    end;
    procedure MiniBreaker;
    begin
      case Random(160) of
        1: Wait(40000 + random(7400));
        2: Wait(25500 + random(8550));
        3: Wait(60040 + random(6759));
        4: Wait(20400 + random(2549));
      end;
    end;

    function InCombat: Boolean;
    var
    X,Y:Integer;
    begin
    if (FindColor(x,y,HPCOLOR,200,100,300,200)) then
      Result := true
      else
      Result := false
      end;
    procedure FindMan;
    var
      starttime, x, y: integer;
    begin
      if (not InCombat) then
      begin
        Writeln('Looking For Man');
        if (FindObjCustom(x, y, ['Attack', 'ttack', 'Man','an'], [MANCOLOR1, MANCOLOR2, MANCOLOR3, MANCOLOR4, MANCOLOR5, MANCOLOR6], 10)) then
        begin
          Writeln('Found Man. Clicking.');
          MMouse(x, y, 3, 3);
          ClickMouse2(mouse_left);
          starttime := getsystemtime;
          repeat
            Wait(randomrange(300,700));
          until (InCombat) or (getsystemtime - starttime > (randomrange(4000, 10000)))
          while (InCombat) do MiniAntiBan;
          Writeln('We Probably Killed A Man.');
        end;
      end;
    end;

    Function CheckLoot:Boolean;
    var
    X,Y:Integer;
    begin
      Writeln('[CheckLoot] START');

      if  FindObjCustom(x,y,['ake','Take'],[BONECOLOR], 5) then
      begin
        Writeln('Found loot - checking for herb');
        MMouse(x,y, 0, 0);
        ClickMouse2(mouse_right);
        Wait(RandomRange(150, 300));
        ChooseOptionMulti(['erb', 'herb', 'Herb']);

        mmouse(259, 184, 5, 5);

        wait(randomRange(1100,1500));

        if IsUpTextMultiCustom(['Herb','erb']) then
        begin
          repeat
          Writeln('[CheckLoot] Taking herbs below you');
          ClickMouse2(mouse_left);
          Wait(RandomRange(150, 300));
          until not IsUpTextMultiCustom(['Herb', 'erb']);
        end;

        wait(200+ random(100));

      end;

      wait(randomRange(600,900));
      Writeln('[CheckLoot] END');
    end;


    begin //CALL FUNCTION
      DeclarePlayers;
        SetupSRL;
        ActivateClient;
        Wait(2000);
        LoginPlayer;
        repeat
        FindMan;
        InCombat;
        CheckLoot;
        Antiban;
        MiniBreaker;
        Until(False)
        end.
    Cheers Le_Don, that works for looting! +1

  8. #8
    Join Date
    Feb 2013
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    32 Post(s)

    Default

    Simba Code:
    procedure FindMan;
    var
      starttime, x, y: integer;
    begin
      if (not InCombat) then
      begin
        Writeln('Looking For Man');
        if (FindObjCustom(x, y, ['Attack', 'ttack', 'Man','an'], [MANCOLOR1, MANCOLOR2, MANCOLOR3, MANCOLOR4, MANCOLOR5, MANCOLOR6], 10)) then
        begin
          Writeln('Found Man. Clicking.');
          MMouse(x, y, 3, 3);
          ClickMouse2(mouse_left);
          starttime := getsystemtime;
          repeat
            Wait(randomrange(300,700));
          until (InCombat) or (getsystemtime - starttime > (randomrange(4000, 10000)))
          while (InCombat) do MiniAntiBan;
          Writeln('We Probably Killed A Man.');
        end;
      end;
    end;

    Looks a lot like my monk killer

  9. #9
    Join Date
    Jul 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by Le_don View Post
    Simba Code:
    procedure FindMan;
    var
      starttime, x, y: integer;
    begin
      if (not InCombat) then
      begin
        Writeln('Looking For Man');
        if (FindObjCustom(x, y, ['Attack', 'ttack', 'Man','an'], [MANCOLOR1, MANCOLOR2, MANCOLOR3, MANCOLOR4, MANCOLOR5, MANCOLOR6], 10)) then
        begin
          Writeln('Found Man. Clicking.');
          MMouse(x, y, 3, 3);
          ClickMouse2(mouse_left);
          starttime := getsystemtime;
          repeat
            Wait(randomrange(300,700));
          until (InCombat) or (getsystemtime - starttime > (randomrange(4000, 10000)))
          while (InCombat) do MiniAntiBan;
          Writeln('We Probably Killed A Man.');
        end;
      end;
    end;

    Looks a lot like my monk killer
    That'll be because you're the one helping me script...

  10. #10
    Join Date
    Feb 2013
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    32 Post(s)

    Default

    Quote Originally Posted by vannilabear View Post
    That'll be because you're the one helping me script...
    Indeed

  11. #11
    Join Date
    Jul 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Currently trying to add a way of banking through DDTM walking. /headhurts

  12. #12
    Join Date
    Feb 2013
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    32 Post(s)

    Default

    Quote Originally Posted by vannilabear View Post
    Currently trying to add a way of banking through DDTM walking. /headhurts
    Try using

    MakeCompass('N');

    And then click in certain places on the minimap for EXTREMELY BASIC walking.

  13. #13
    Join Date
    Feb 2013
    Location
    Narnia
    Posts
    615
    Mentioned
    8 Post(s)
    Quoted
    252 Post(s)

    Default

    Quote Originally Posted by vannilabear View Post
    Currently trying to add a way of banking through DDTM walking. /headhurts
    check out this guide

    http://villavu.com/forum/showthread.php?t=102740

    View my OSR Script Repository!


    Botted to max
    Guides: How to Report Bugs to the Scripter
    ~~~~ Moved to Java. Currently Lurking ~~~~

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
  •