{DCAB created by deadlycow21
put into "includes" folder then use
to use

------------------------------------------------------------------------------

Version history
-BETA (these were public but oh well) VERS
  -.1
  -.2
  -.3
-public VERS
  -1.0 (published)
    -1.01 (published-- typo)
  -2.0 (not published -- added stuff)
  -3.0 (not published -- added stuff)
  -3.1 (published)
  -4.0 (published -- current)

-------------------------------------------------------------------------------

I spent tons of time on this so enjoy!!

VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV

If you would like to see a procedure you made added
please PM me.

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

l33t speek VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV

|\/|y ??|\/|? ?5 ????|y??\/\/21 ? |^??|? 5??|?5... |?|  <total uberhax0r
|\/|y |\|4|\/|3 15 |)34|)|_y(0w21 1 |20(|< 50(|<5... |_0|_ < total VB programmer
my n4m3 15 d34dlyc0w21 1 |20c|< 50c|<5... l0l < total noobage
}

procedure autotalk(speed : integer);
var
rand, r : integer;
begin
speed := speed+random(15)
r := speed
rand:= random(6)
if (rand= 1) then
begin
sendkeys('w')
wait(speed+1+random(3))
sendkeys('o')
wait(speed+1+random(3))
sendkeys('w')
wait(speed+1+random(3))
sendkeys(' ')
wait(speed+2+random(3))
sendkeys('r')
wait(speed+3+random(3))
sendkeys('u')
wait(speed+16+random(3))
sendkeys('n')
wait(speed+13+random(3))
sendkeys('e')
wait(speed+41+random(3))
sendkeys(' ')
wait(speed+1+random(3))
sendkeys('s')
wait(speed+random(3))
sendkeys('c')
wait(speed+1+random(3))
sendkeys('a')
wait(speed+1+random(3))
sendkeys('p')
wait(speed+1+random(3))
sendkeys('e')
wait(speed+1+random(3))
sendkeys(' ')
wait(speed+2+random(3))
sendkeys('i')
wait(speed+3+random(3))
sendkeys(' ')
wait(speed+16+random(3))
sendkeys('g')
wait(speed+13+random(3))
sendkeys('a')
wait(speed+41+random(3))
sendkeys('i')
wait(speed+1+random(4))
sendkeys(' ')
wait(speed+random(3))
sendkeys('b')
wait(speed+1+random(3))
sendkeys('u')
wait(speed+2+random(3))
sendkeys('t')
wait(speed+3+random(3))
sendkeys(' ')
wait(speed+16+random(3))
sendkeys('f')
wait(speed+13+random(3))
sendkeys('u')
wait(speed+41+random(3))
sendkeys('n' + chr(13))
end;
if (rand= 2) then
begin
sendkeys('b')
wait(speed+12+random(3))
sendkeys('o')
wait(speed+15+random(3))
sendkeys('r')
wait(speed+22+random(3))
sendkeys('i')
wait(speed+56+random(3))
sendkeys('n')
wait(speed+13+random(3))
sendkeys('g')
wait(speed+random(3))
sendkeys('....' + chr(13))
end;
if (rand = 3) then
begin
sendkeys('h')
wait(speed+3+random(3))
sendkeys('e')
wait(speed+4+random(3))
sendkeys('l')
wait(speed+random(3))
sendkeys('l')
wait(speed+13+random(3))
sendkeys('o' + chr(13))
end;
if (rand= 4) then
begin
sendkeys('i')
wait(speed+15+random(3))
sendkeys(' ')
wait(speed+15+random(3))
sendkeys('g')
wait(speed+13+random(3))
sendkeys('o')
wait(speed+17+random(3))
sendkeys('t')
wait(speed+13+random(3))
sendkeys('h')
wait(speed+17+random(3))
sendkeys('a')
wait(speed+11+random(3))
sendkeys('c')
wait(speed+ 14+random(3))
sendkeys('k')
wait(speed+12+random(3))
sendkeys('e')
wait(speed+13+random(3))
sendkeys('d'+ chr(13))
end;

if (rand= 5) then
begin
sendkeys('h')
wait(speed+16)
sendkeys('o')
wait(speed+17)
sendkeys('w')
wait(speed+56)
sendkeys(' ')
wait(speed+10)
sendkeys('m')
wait(speed+13)
sendkeys('u')
wait(speed+14)
sendkeys('c')
wait(speed)
sendkeys(' ')
wait(speed)
sendkeys('d')
wait(speed)
sendkeys('o')
wait(speed)
sendkeys('e')
wait(speed)
sendkeys('s')
wait(speed)
sendkeys(' ')
wait(speed)
sendkeys('r')
wait(speed)
sendkeys('u')
wait(speed)
sendkeys('n')
wait(speed)
sendkeys('e')
wait(speed)
sendkeys(' ')
wait(speed)
sendkeys('s')
wait(speed)
sendkeys('e')
wait(speed)
sendkeys('ll')
wait(speed)
sendkeys('f')
wait(speed)
sendkeys('o')
wait(speed)
sendkeys('r')
wait(speed)
sendkeys('r' + chr(13))
end;
if (rand = 6) then
begin
sendkeys('i')
wait(speed)
sendkeys(' ')
wait(speed)
sendkeys('a')
wait(speed)
sendkeys('m')
wait(speed)
sendkeys(' ')
wait(speed)
sendkeys('s')
wait(speed)
sendkeys('o')
wait(speed)
sendkeys(' ')
wait(speed)
sendkeys('b')
wait(speed)
sendkeys('o')
wait(speed)
sendkeys('r')
wait(speed)
sendkeys('e')
wait(speed)
sendkeys('d')
wait(speed)
sendkeys('.' + chr(13))
wait(speed)
end;
end;
procedure moveclickmousehuman(x , y, tol, tol2: integer);
var
rand, rand2 : integer;
begin
rand := random(tol)
rand2 :=random(3)
movemousesmooth(x+rand, y+rand)
wait(500)
movemousesmooth(x+rand, y+rand)
wait(200)
if (rand2 = 0) then
begin
movemousesmooth(x- rand, y - rand)
clickmouse(x- rand, y- rand,true)
end;
if (rand2 = 1) then
begin
movemousesmooth(x + rand, y- rand)
clickmouse(x+ rand, y- rand, true)
end;
if (rand2 = 2) then
begin
movemousesmooth(x-rand, y + rand)
clickmouse(x- rand, y+ rand, true)
end;
if (rand2 = 3) then
begin
movemousesmooth(x+ rand, y+rand)
clickmouse(x+ rand, y+ rand, true)
end;
end;

procedure movemousenear(x, y, tol: integer);
var
rand, randdir : integer;
begin
rand := random(tol)
randdir := random(3)
if (randdir = 0) then
begin
movemousesmooth(x+ rand, y+ rand)
writeln('++')
end;
if (randdir = 1) then
begin
movemousesmooth(x- rand, y- rand)
writeln('--')
end;
if (randdir = 2) then
begin
movemousesmooth (x + rand, y - rand)
writeln('+-')
end;
if (randdir = 3) then
begin
movemousesmooth (x - rand, y + rand)
writeln('-+')
end;
writeln('mouse is near your declared values')
end;

procedure spazmouse;
var
x, y: integer;
begin
getmousepos(x,y)
movemousesmooth(x+20,y+20)
wait(10+random(2))
movemousesmooth(x+50,y+44)
wait(10+random(2))
movemousesmooth(x+51,y+54)
wait(10+random(2))
movemousesmooth(x+67,y+28)
wait(10+random(2))
movemousesmooth(x+70,y+38)
wait(10+random(2))
movemousesmooth(x+80,y+50)
wait(10+random(2))
movemousesmooth(x+92,y+58)
wait(10+random(2))
movemousesmooth(x+100,y+50)
wait(10+random(2))
movemousesmooth(x+92,y+42)
wait(10+random(2))
movemousesmooth(x+83,y+30)
wait(10+random(2))
movemousesmooth(x+90,y+40)
wait(10+random(2))
movemousesmooth(x+102,y+55)
wait(10+random(2))
movemousesmooth(x+90,y+42)
wait(10+random(2))
movemousesmooth(x+80,y+40)
wait(10+random(2))
movemousesmooth(x+70,y+30)
wait(10+random(2))
movemousesmooth(x+60,y+21)
wait(10+random(2))
movemousesmooth(x+53,y+11)
wait(10+random(2))
movemousesmooth(x+40,y+10)
wait(10+random(2))
movemousesmooth(x+31,y+9)
wait(10+random(2))
movemousesmooth(x+19,y+7)
wait(10+random(2))
movemousesmooth(x+10,y+5)
wait(10+random(2))
movemousesmooth(x+5,y+3)
wait(10+random(2))
movemousesmooth(x+2,y+1)
wait(10+random(2))
movemousesmooth(x+0,y+0)
wait(10+random(2))
movemousesmooth(x+0,y+1)
wait(10+random(2))
movemousesmooth(x-4,y-4)
wait(10+random(2))
movemousesmooth(x-5,y-10)
wait(10+random(2))
movemousesmooth(x-16,y-18)
wait(10+random(2))
end;

procedure mineautotalk(speed : integer);
var
rand, r : integer;
begin
speed := speed+random(15)
r := speed
rand:= random(6)
if (rand= 1) then
begin
sendkeys('m')
wait(speed+1)
sendkeys('i')
wait(speed+1)
sendkeys('n')
wait(speed+1)
sendkeys('i')
wait(speed+2)
sendkeys('n')
wait(speed+3)
sendkeys('g')
wait(speed+16)
sendkeys(' ')
wait(speed+13)
sendkeys('l')
wait(speed+41)
sendkeys('v')
wait(speed+1)
sendkeys('l')
wait(speed)
sendkeys('s')
wait(speed+12)
sendkeys('?' + chr(13))
end;
if (rand= 2) then
begin
sendkeys('b')
wait(speed+12)
sendkeys('o')
wait(speed+15)
sendkeys('r')
wait(speed+22)
sendkeys('i')
wait(speed+56)
sendkeys('n')
wait(speed+13)
sendkeys('g')
wait(speed)
sendkeys('....' + chr(13))
end;
if (rand = 3) then
begin
sendkeys('h')
wait(speed+3)
sendkeys('e')
wait(speed+4)
sendkeys('l')
wait(speed)
sendkeys('l')
wait(speed+13)
sendkeys('o' + chr(13))
end;
if (rand= 4) then
begin
sendkeys('g')
wait(speed+15)
sendkeys('o')
wait(speed+15)
sendkeys(' ')
wait(speed+13)
sendkeys('a')
wait(speed+17)
sendkeys('w')
wait(speed+13)
sendkeys('a')
wait(speed+17)
sendkeys('y')
wait(speed+11)
sendkeys(' ')
wait(speed+ 14)
sendkeys('t')
wait(speed+12)
sendkeys('a')
wait(speed+13)
sendkeys('r')
wait(speed+144)
sendkeys('d' + chr(13))
end;
if (rand= 5) then
begin
sendkeys('h')
wait(speed+16)
sendkeys('o')
wait(speed+17)
sendkeys('w')
wait(speed+56)
sendkeys(' ')
wait(speed+10)
sendkeys('m')
wait(speed+13)
sendkeys('u')
wait(speed+14)
sendkeys('c')
wait(speed)
sendkeys(' ')
wait(speed)
sendkeys('d')
wait(speed)
sendkeys('o')
wait(speed)
sendkeys('e')
wait(speed)
sendkeys('s')
wait(speed)
sendkeys(' ')
wait(speed)
sendkeys('r')
wait(speed)
sendkeys('u')
wait(speed)
sendkeys('n')
wait(speed)
sendkeys('e')
wait(speed)
sendkeys(' ')
wait(speed)
sendkeys('s')
wait(speed)
sendkeys('e')
wait(speed)
sendkeys('ll')
wait(speed)
sendkeys('f')
wait(speed)
sendkeys('o')
wait(speed)
sendkeys('r')
wait(speed)
sendkeys('r' + chr(13))
end;
if (rand = 6) then
begin
sendkeys('i')
wait(speed)
sendkeys(' ')
wait(speed)
sendkeys('a')
wait(speed)
sendkeys('m')
wait(speed)
sendkeys(' ')
wait(speed)
sendkeys('s')
wait(speed)
sendkeys('o')
wait(speed)
sendkeys(' ')
wait(speed)
sendkeys('b')
wait(speed)
sendkeys('o')
wait(speed)
sendkeys('r')
wait(speed)
sendkeys('e')
wait(speed)
sendkeys('d')
wait(speed)
sendkeys('.' + chr(13))
wait(speed)
end;
end;

procedure mouseh(x, y, tol : integer);
var 
r, xp, yp : integer;
begin
r := random(tol)
getmousepos(xp,yp)
if (x < xp) then
begin
  if (y < yp) then
  begin
  movemousesmoothex(x-5+r,y-5+r,2,5,5,50,3)
  wait(200)
  movemousesmoothex(x+r,y+r,2,5,5,50,3)
    writeln('the mouse is near x and y')
  end;
  if (y > yp) then
  begin
  movemousesmoothex(x-5+r,y+5+r,2,5,5,50,3)
  wait(200)
  movemousesmoothex(x+r,y+r,2,5,5,50,3)
  end;
end;

if (x > xp) then
  begin
  if (y > yp) then
  begin
  movemousesmoothex(x-5+r,y-5+r,2,5,5,50,3)
  end;
  if (y < yp) then
  movemousesmoothex(x+r,y+r,2,5,5,50,3)
  end;
end;

procedure spaz2(waittol: integer);
var
x, y, r: integer;
begin
r := random(waittol)
getmousepos(x, y)
movemousesmooth(x+10+r, y+10+r)
wait(random(14))
movemousesmooth(x+20+r, y+20+r)
wait(random(14))
movemousesmooth(x+30+r, y+30+r)
wait(random(14))
movemousesmooth(x+40+r, y+40+r)
wait(random(14))
movemousesmooth(x+50+r, y+50+r)
wait(random(14))
movemousesmooth(x+60+r, y+60+r)
wait(random(14))
movemousesmooth(x+70+r, y+70+r)
wait(random(14))
movemousesmooth(x+80+r, y+80+r)
wait(random(14))
movemousesmooth(x+90+r, y+90+r)
wait(random(14))
movemousesmooth(x+110+r, y+100+r)
wait(random(14))
movemousesmooth(x+120+r, y+120+r)
wait(random(14))
movemousesmooth(x+130+r, y+140+r)
wait(random(14))
movemousesmooth(x+140+r, y+150+r)
wait(random(14))
movemousesmooth(x+150+r, y+160+r)
wait(random(14))
movemousesmooth(x+170+r, y+170+r)
wait(random(14))
movemousesmooth(x+180+r, y+180+r)
wait(random(14))
movemousesmooth(x+170+r, y+170+r)
wait(random(14))
movemousesmooth(x+150+r, y+160+r)
wait(random(14))
movemousesmooth(x+140+r, y+150+r)
wait(random(14))
movemousesmooth(x+130+r, y+140+r)
wait(random(14))
movemousesmooth(x+120+r, y+120+r)
wait(random(14))
movemousesmooth(x+110+r, y+100+r)
wait(random(14))
movemousesmooth(x+90+r, y+90+r)
wait(random(14))
movemousesmooth(x+80+r, y+80+r)
wait(random(14))
movemousesmooth(x+70+r, y+70+r)
wait(random(14))
movemousesmooth(x+60+r, y+60+r)
wait(random(14))
movemousesmooth(x+50+r, y+50+r)
wait(random(14))
movemousesmooth(x+30+r, y+30+r)
wait(random(14))
movemousesmooth(x+10+r, y+10+r)
wait(random(14))
movemousesmooth(x+20+r, y+20+r)
writeln('mouse has been spaz2-ed!')
end;

procedure find3within(color1, color2, color3, Xs, Ys, Xe, Ye : integer);
var
xe2, ye2, xs2, ys2, x2, y2, x3, y3 : integer;
begin
findcolorspiral(x2,y2,color1,xs,ys,xe,ye)
xs2 := x2-30
ys2 := y2-30
xe2 := x2+30
ye2 := y2+30
if (findcolorspiral(x3,y3,color2,xs2,ys2,xe2,ye2)) then
  begin
  If (findcolorspiral(x3,y3,color3,xs2,ys2,xe2,ye2)) then
  begin
  movemousesmoothex(x2,y2,30,50,50,200,322)
  end;
  end;
end;


{total rock sockage ^^^^^
                    ||||| :P}