Results 1 to 12 of 12

Thread: Diablo 2 [very] Basic Rush follower

  1. #1
    Join Date
    Oct 2006
    Posts
    334
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default Diablo 2 [very] Basic Rush follower

    By very basic, I mean i spent just a few hours doing this (about a minute at a time, between baal rushes).

    Just thought that somebody here may want to take a look at it and use it.
    Please Try it out and tell me your thoughts/ideas!

    Note: I was temporarily restricted after using this for an extended period of time so be careful. I would keep use to under an hour a day. I don't think using "Mouse" and "MMouse" (or whatever they are now ) will make a difference, but if anybody has any knowledge on how Blizz detects bots, please tell me .

    SCAR Code:
    program joinserv;
    var x, y, gnumb, cain1, accept, invite, join, chan, entchat, ingameang: integer;
    var pr, prtd: boolean;
    var curstat: string;

    //setup
    const servname = 'perrybaal-'; //name of server, does not include suffix number
    const startnumb = 1108; //number of game, goes after "servname"
    const channame = 'op steveperry'; //name of channel to use
    //end setup

    procedure chatjoin;
    begin
      if findbitmap(entchat, x, y) then
        begin
          curstat:='Joining Chat';
          clickmouse(x, y, true);
          repeat
            wait(100);
          until(findbitmap(chan, x, y))
          clickmouse(x, y, true);
          wait(50);
          sendkeys(channame);
          keydown(13);
          wait(10);
          keyup(13);
          wait(100);
        end;
    end;

    procedure joinup;
    begin
      if findbitmap(join, x, y) then
        begin
          curstat:='joining';
          clickmouse(x, y, true);
          wait(500);
          sendkeys(servname + inttostr(gnumb));
          wait(100);
          keydown(13);
          wait(15);
          keyup(13);
          wait(100);
          movemouse(900+random(100),500+random(100));
          prtd:=false;
        end;
    end;

    procedure numbchange;
    begin
      if iskeydown('/') then
        begin
          gnumb := gnumb + 1;
          writeln(inttostr(gnumb));
          wait(100);
        end;
      if iskeydown(';') then
        begin
          gnumb := gnumb - 1;
          writeln(inttostr(gnumb));
          wait(100);
        end;
    end;

    procedure party;
    begin
      curstat:='partying';
      writeln('we are ingame');
      prtd:= true;
      {keydown(13);
      wait(10);
      keyup(13);
      wait(100);
      sendkeys('pp');
      wait(100);
      keydown(13);
      wait(10);
      keyup(13);}

      wait(100);
      sendkeys('p');
      wait(10);
      repeat
        if findbitmap(accept, x, y) then
          begin
            writeln('invited, accepting...');
            clickmouse(x, y, true);
            pr:= true;
            wait(10);
            sendkeys('p');
            wait(10);
          end else
        if findbitmap(invite, x, y) then
          clickmouse(x, y, true);
      until(pr = true);
      pr := false;
      writeln('partied!');
    end;
         
    procedure ingame;
    begin
      if findbitmap(ingameang, x, y) then
        begin
          if (prtd=false) then
          party;
        end;
         
    end;

    procedure bitmaps;
    begin
      cleardebug;
      pr := false;
      gnumb := startnumb
      join := BitmapFromString(1, 11, 'beNoL8MhIiUiICYmJ8AGSEQEeQ' +
           'AYQwQUjAMEZC1k=');
      cain1 := BitmapFromString(1, 24, 'beNrj4TDQUFCRkZAREQCSCgoK' +
           'QAYESQhw8PBwiAgIcLCAAJBkQAIsMEEgAirjAQC7VAOx');
      accept := BitmapFromString(1, 11, 'beNqzsMiICYgI8ACSFTkJAR4' +
           '2KSkpQDYPD4eMjIyOjo4FAK9FCRE=');
      chan := BitmapFromString(1, 3, 'beNoL8EiICYkI8IgAAA69AvE=');
      entchat := BitmapFromString(1, 2, 'beNrLSchIiagAAAhiAmk=');
      ingameang := BitmapFromString(1, 38, 'beNpTUOAAAwEBAREwADJk' +
           'ZGRUVFQUFBR8fHxSUlIyMjIsLCxYwAAiBQQGBgZAEqIFqB0oBdQoI' +
           'SEBVADkAkkgl4eHgwcVAMUVAAJ3C+U=');
      prtd:=false;
    end;

    procedure report;
    begin
      cleardebug;
      writeln('********************');
      if (prtd = true) then
      writeln('**   We are Partied   **') else
      writeln('** We are NOT Partied **');
      writeln('** ' + curstat + ' **');
      writeln('** ' + servname + inttostr(gnumb) + ' **');
      writeln('*******************');
    end;

    ////////////////////////////////////////main loop
    begin
      bitmaps;
    //  chatjoin;
        repeat
        joinup;
        wait(100);
        numbchange;
        ingame;
        wait(100);
        report;
      until(isfkeydown(12))
    end.

    "Chatjoin" is commented out because it doesn't work.
    edit: Please post any other ideas

  2. #2
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    looking at this reminds me that diablo 3 is in production...!!! I can't wait for it to come out!

  3. #3
    Join Date
    Oct 2006
    Posts
    334
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    I KNOW!!!
    But something tells me they're going to stick with one game a year, and starcraft II will be out next year .
    I'll be playing starcraft a lot when it comes out

  4. #4
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    ya me too!... i hope they release it next year... starcraft has been set back a couple of times... first gameplay video came out almost 2 years ago

  5. #5
    Join Date
    Oct 2006
    Posts
    334
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    <<bump>>
    anybody get a chance to try it out? Any feedback?

  6. #6
    Join Date
    Jan 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What does it actually do? I can see joins chat, joins game, parties, but then?

  7. #7
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Quote Originally Posted by void View Post
    What does it actually do? I can see joins chat, joins game, parties, but then?
    Void, this thread is over a year old 11-11-2008 was the last post. Please check the thread before you post.

  8. #8
    Join Date
    Aug 2009
    Location
    Inside the Matrix...yes it has me, and it has you too.
    Posts
    1,896
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    Void, this thread is over a year old 11-11-2008 was the last post. Please check the thread before you post.
    I thought diablo 3 was already out
    NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN

  9. #9
    Join Date
    Jan 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    Void, this thread is over a year old 11-11-2008 was the last post. Please check the thread before you post.
    But author was online this november so there is hope

  10. #10
    Join Date
    Feb 2011
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i played diablo2 for some years with bots

    i recommend you to make your script slower - they have detections for too fast inputs of mouse and keyboard

    i hope this helps you out

  11. #11
    Join Date
    Nov 2008
    Location
    Melbourne, Australia
    Posts
    2,240
    Mentioned
    3 Post(s)
    Quoted
    11 Post(s)

    Default

    This thread is from 09
    Click here to find out how to get full screen without members! | Click here to check out my Ultimate Bitmap Tutorial! Edited to work with Simba! |

  12. #12
    Join Date
    Aug 2009
    Location
    Inside the Matrix...yes it has me, and it has you too.
    Posts
    1,896
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by cycrosism View Post
    this thread is from 09
    08*
    NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Blizzard announces Diablo III
    By Zigon in forum Gaming
    Replies: 12
    Last Post: 05-19-2009, 12:13 AM
  2. hey, help with a very basic thing please??
    By jumbosped in forum OSR Help
    Replies: 8
    Last Post: 08-25-2008, 12:08 PM
  3. Diablo 2
    By Sgt Soul in forum Gaming
    Replies: 0
    Last Post: 05-17-2008, 03:41 AM
  4. Need some basic help.
    By r3dr4g0n in forum OSR Help
    Replies: 6
    Last Post: 10-01-2007, 11:27 AM
  5. Bridge Collapses over the Mississippi During Rush Hour
    By Bourdou! in forum News and General
    Replies: 16
    Last Post: 08-07-2007, 09:31 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
  •