SRL Archive - Other Scripts

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 :p) will make a difference, but if anybody has any knowledge on how Blizz detects bots, please tell me :).

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 :)

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

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 :)

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

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

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

From: void
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.

From: YoHoJo
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 :p

From: YoHoJo
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:bart:

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

This thread is from 09

From: cycrosism
this thread is from 09

08* ;)