Results 1 to 3 of 3

Thread: Arns auto talker - clan edition

  1. #1
    Join Date
    Oct 2007
    Location
    Atlantis with u'r girlfriend
    Posts
    251
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Arns auto talker - clan edition

    im only posting this so that i have an online copy. (just incase)
    i had already done something similar but i lost all my scripts on my old pc. i had no back up. now i will.

    this script is meant for people who want to get members in their clan wars clan.

    SCAR Code:
    Program ManTalk;
    ////////////////////////////////////////////////////////////////////////////
    /////////WELCOME TO ARN'S autotalker ///////////////////////////////////////
    ///////////////////////////Directions///////////////////////////////////////
    //                                                                        //
    //                                                                        //
    // by: Man Slaughter a.k.a The ARN                                        //
    ////////////////////////////////////////////////////////////////////////////
    {.include SRL/SRL.scar}

    const
      Sloppy =     35; // general sloppyness. 1 out of 35 char default
      colslop = 190; // how sloppy you will be typing flash text
      colran = 2; // 1 out of how many times it will run. default 1 out of 2
      timetorun = 600000; // in ms the time its gonna run.
      preruntimeout = 1500; // time to wait before starting
      Leader = '& Zezima 80+ &'; // the "&" protects it from errors
      inbe2inw = 2000; //minimum wait in between
      ranw2in = 2000; //random added wait to inbe2inw
     

    var
      Sloppyness:Integer;
      sentences:array of String;

    function charduper(char:String; minr,maxr:Integer):string;
    var
      i:Integer;
    begin
    i:= 0;
    while(i < minr+random(maxr-minr+1)) do
      begin
        i:= i + 1;
        insert(char, result, Length(result));
      end;
    end;

    Procedure setupSentences;
    begin
      SetArrayLength(sentences, 10);

      sentences[0]:= 'Join'+Leader;
      sentences[1]:= 'all join'+Leader+'or die'+charduper('!',0,2);
      sentences[2]:= 'surrender to'+Leader+'or die'+charduper('!',0,2);
      sentences[3]:= 'die or join'+Leader;
      sentences[4]:= 'Join'+Leader+'you know you want to';
      sentences[5]:= '--Join'+Leader+'--';
      sentences[6]:= 'Be the hero join'+Leader;
      sentences[7]:= Leader+'its a revolution'+charduper('!',2,6);
      sentences[8]:= Leader+'for the ipods';
      sentences[9]:= 'Join'+Leader+'or bust';
     
    end;

    function color:string;
    var acolor:array of String;
    begin
      SetArrayLength(acolor, 9);
      acolor[0]:= 'red:';
      acolor[1]:= 'white:';
      acolor[2]:= 'cyan:';
      acolor[3]:= 'red:shake:';
      acolor[4]:= 'white:wave:';
      acolor[5]:= 'white:slide:';
      acolor[6]:= 'flash3:wave2:';
      acolor[7]:= 'purple:';
      acolor[8]:= 'flash1:';
      if random(colran)=1 then
      result:=acolor[random(GetArrayLength(acolor)-1)]
      else
      result:='';
    end;

    function sentence:string;
    begin
    setupSentences;
    result:= sentences[random(GetArrayLength(sentences))];
    if StartsWith('& ', result) then delete(result, 2,1);
    if EndsWith(' &', result) then delete(result, Length(result)-1,1);
    end;


    Procedure toggle(var boling:Boolean);
    begin
    if boling then
      begin
       boling:=false;
       exit;
      end;
    boling:=true;
    end;


    Procedure ArnType(wha2type:String; go:Boolean);
    var
    mychar:Char;
    i,mylenght,luckychar:Integer;
    Shift,protectedchar:Boolean;
    begin
    i:= 1;
    mylenght:=Length(wha2type)+1;
    protectedchar:= false;
      repeat
       if Length(wha2type)=0 then exit;
       mychar:= StrGet(wha2type,i);
       writeln(mychar);
       writeln(inttostr(i));
       luckychar:= random(9);
       if mychar = '&' then
         toggle(protectedchar);

       //Mutant Squirrle
       Shift := (mychar = ':') or (mychar = '!') or (mychar = '+') or
          (mychar = '?') or (mychar = '<') or (mychar = '>') or
          (mychar = '@') or (mychar = '#') or (mychar = '$') or
          (mychar = '&') or (mychar = '%') or (mychar = '*') or
       //Mutant Squirrle end;
          (mychar = ')') or (mychar = '(');

       if (random(Sloppyness)=0) and not protectedchar then
       begin
        case mychar of
        'a':
        begin
           if ((luckychar<7)) then
             begin
             TypeByte(GetKeyCode('s'));
             end
           else
             begin
             TypeByte(GetKeyCode('q'));
             end;
         end;
        'b': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('v'));
             end
           else
             begin
             TypeByte(GetKeyCode('n'));
             end;
         end;
        'c': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('x'));
             end
           else
             begin
             TypeByte(GetKeyCode('v'));
             end;
         end;
        'd': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('s'));
             end
           else
             begin
             TypeByte(GetKeyCode('f'));
             end;
         end;
        'e': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('w'));
             end
           else
             begin
             TypeByte(GetKeyCode('r'));
             end;
         end;
        'f': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('d'));
             end
           else
             begin
             TypeByte(GetKeyCode('g'));
             end;
         end;
        'g': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('f'));
             end
           else
             begin
             TypeByte(GetKeyCode('h'));
             end;
         end;
        'h': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('g'));
             end
           else
             begin
             TypeByte(GetKeyCode('j'));
             end;
         end;
        'i': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('u'));
             end
           else
             begin
             TypeByte(GetKeyCode('o'));
             end;
         end;
        'j': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('h'));
             end
           else
             begin
             TypeByte(GetKeyCode('k'));
             end;
         end;
        'k': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('j'));
             end
           else
             begin
             TypeByte(GetKeyCode('l'));
             end;
         end;
        'l': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('k'));
             end
           else
             begin
             TypeByte(GetKeyCode('o'));
             end;
         end;
        'm': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('n'));
             end
           else
             begin
             TypeByte(GetKeyCode('k'));
             end;
         end;
        'n': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('m'));
             end
           else
             begin
             TypeByte(GetKeyCode('b'));
             end;
         end;
        'o': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('i'));
             end
           else
             begin
             TypeByte(GetKeyCode('p'));
             end;
         end;
        'p': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('o'));
             end
           else
             begin
             TypeByte(GetKeyCode('l'));
             end;
         end;
        'q': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('w'));
             end
           else
             begin
             TypeByte(GetKeyCode('a'));
             end;
         end;
        'r': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('e'));
             end
           else
             begin
             TypeByte(GetKeyCode('t'));
             end;
         end;
        's': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('a'));
             end
           else
             begin
             TypeByte(GetKeyCode('d'));
             end;
         end;
        't': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('r'));
             end
           else
             begin
             TypeByte(GetKeyCode('y'));
             end;
         end;
        'u': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('i'));
             end
           else
             begin
             TypeByte(GetKeyCode('y'));
             end;
         end;
        'v': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('c'));
             end
           else
             begin
             TypeByte(GetKeyCode('b'));
             end;
         end;
        'w': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('q'));
             end
           else
             begin
             TypeByte(GetKeyCode('e'));
             end;
         end;
        'x': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('z'));
             end
           else
             begin
             TypeByte(GetKeyCode('c'));
             end;
         end;
        'y': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('u'));
             end
           else
             begin
             TypeByte(GetKeyCode('t'));
             end;
         end;
        'z': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('x'));
             end
           else
             begin
             TypeByte(GetKeyCode('a'));
             end;
         end;
        'A': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('S'));
             end
           else
             begin
             TypeByte(GetKeyCode('Q'));
             end;
         end;
        'B': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('V'));
             end
           else
             begin
             TypeByte(GetKeyCode('N'));
             end;
         end;
        'C': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('X'));
             end
           else
             begin
             TypeByte(GetKeyCode('V'));
             end;
         end;
        'D': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('F'));
             end
           else
             begin
             TypeByte(GetKeyCode('S'));
             end;
         end;
        'E': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('R'));
             end
           else
             begin
             TypeByte(GetKeyCode('W'));
             end;
         end;
        'F': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('D'));
             end
           else
             begin
             TypeByte(GetKeyCode('G'));
             end;
         end;
        'G': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('H'));
             end
           else
             begin
             TypeByte(GetKeyCode('F'));
             end;
         end;
        'H': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('G'));
             end
           else
             begin
             TypeByte(GetKeyCode('J'));
             end;
         end;
        'I': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('U'));
             end
           else
             begin
             TypeByte(GetKeyCode('O'));
             end;
         end;
        'J': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('K'));
             end
           else
             begin
             TypeByte(GetKeyCode('H'));
             end;
         end;
        'K': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('L'));
             end
           else
             begin
             TypeByte(GetKeyCode('J'));
             end;
         end;
        'L': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('K'));
             end
           else
             begin
             TypeByte(GetKeyCode('P'));
             end;
         end;
        'M': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('N'));
             end
           else
             begin
             TypeByte(GetKeyCode('K'));
             end;
         end;
        'N': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('B'));
             end
           else
             begin
             TypeByte(GetKeyCode('M'));
             end;
         end;
        'O': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('I'));
             end
           else
             begin
             TypeByte(GetKeyCode('P'));
             end;
         end;
        'P': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('O'));
             end
           else
             begin
             TypeByte(GetKeyCode('L'));
             end;
         end;
        'Q': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('W'));
             end
           else
             begin
             TypeByte(GetKeyCode('A'));
             end;
         end;
        'R': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('E'));
             end
           else
             begin
             TypeByte(GetKeyCode('T'));
             end;
         end;
        'S': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('A'));
             end
           else
             begin
             TypeByte(GetKeyCode('D'));
             end;
         end;
        'T': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('R'));
             end
           else
             begin
             TypeByte(GetKeyCode('Y'));
             end;
         end;
        'U': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('Y'));
             end
           else
             begin
             TypeByte(GetKeyCode('I'));
             end;
         end;
        'V': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('C'));
             end
           else
             begin
             TypeByte(GetKeyCode('B'));
             end;
         end;
        'W': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('Q'));
             end
           else
             begin
             TypeByte(GetKeyCode('E'));
             end;
         end;
        'X': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('Z'));
             end
           else
             begin
             TypeByte(GetKeyCode('C'));
             end;
         end;
        'Y': begin
           if ((luckychar<5)) then
             begin
             TypeByte(GetKeyCode('T'));
             end
           else
             begin
             TypeByte(GetKeyCode('U'));
             end;
         end;
        'Z': begin
           if ((luckychar<8)) then
             begin
             TypeByte(GetKeyCode('X'));
             end
           else
             begin
             TypeByte(GetKeyCode('A'));
             end;
          end;
        '!':TypeByte(GetKeyCode('1'));
        // ':':TypeByte(GetKeyCode('.')); analize
        end; //case end
       end else if not (mychar='&') then
       begin

        if (Shift) then
         begin
          KeyDown(VK_Shift);
          Wait(5 + Random(20));
         end;
        TypeByte(GetKeyCode(mychar)); //typing
        if (Shift) then
         begin
          KeyUp(VK_Shift);
          Wait(5 + Random(20));
         end;

       end;
       i:=i+1;
       Wait(50 + Random(120));
      until (mylenght=i)
      if go then
      TypeByte(13);
    end;


    Procedure mainloop;
    var i:Integer;
    begin
      repeat
        for i:= 0 to GetArrayLength(sentences)-1 do
        begin
          Sloppyness:= colslop;
          ArnType(color, false);
          Sloppyness:= Sloppy;
          ArnType(sentence, true);
          wait(inbe2inw+random(ranw2in));
        end;
      until(GetTimeRunning>= timetorun);
    end;

    begin
    Sloppyness:= Sloppy;
    SetupSRL;
    setupSentences;
    wait(preruntimeout);
    mainloop;
    end.

    output:
    Code:
    white:slide:all jiin zezima 80+ or die!
    red:fiw or join zezima 80+
    akl join zezima 80+ or die!
    join zezima 80+ or bust
    [H]be the gero[/H] join zezima 80+
    join zezima 80+ or bust
    red:shake:join zezima 80+
    flash3:wave2:join zezima 80+
    join zezima 80+ you know you want to
    join zezima 80+
    cyan:join zezima 80+
    zezima 80+ for the ipods
    white:zezima 80+ for the ioods
    join zezima 80+ or bust
    red:shake:zezima 80+ its a [H]rebolution!1[/H]
    zezima 80+ for the ipods
    red:shake:all join zezima 80+ or die!

  2. #2
    Join Date
    Aug 2006
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this would be good for pick up groups but i would not call it a clan script as in a clan everyone usual knows who's cc to use anyway.

    but nice script

  3. #3
    Join Date
    Oct 2007
    Location
    Atlantis with u'r girlfriend
    Posts
    251
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh i meant clan edition as in clan wars.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Popc0rn's Clan Chat Auto Recruiter!
    By PoPC0rN in forum First Scripts
    Replies: 21
    Last Post: 09-28-2012, 04:56 AM
  2. Popc0rn's Clan Chat Auto Recruiter!
    By PoPC0rN in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 01-06-2009, 07:59 PM
  3. Replies: 5
    Last Post: 11-23-2007, 08:45 PM
  4. Help with auto trade/ auto talker script
    By logik in forum OSR Help
    Replies: 5
    Last Post: 03-16-2007, 11:16 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
  •