Adblock breaks this site

Diamondhero5's First Auto-Talker

Discussion in 'Outdated RS Scripts' started by diamondhero5, Feb 22, 2007.

  1. diamondhero5

    diamondhero5 Member
    Banned

    Joined:
    Feb 18, 2007
    Posts:
    90
    Referrals:
    0
    Sythe Gold:
    0
    Diamondhero5's First Auto-Talker

    Ok here is my very first script,just follow the directions and hit play

    Code:
    //Directions
    //Set what u would like it to say(lines 9-12)
    //Set how long until says next message(line 47)
    //hit play
    //press F12 to stop
    program AutoTalk;
    
    const
    message1='cyan:slide:selling full iron';
    message2='white:slide:selling full iron';
    message3='Green:slide:selling full iron';
    message4='red:slide:selling full iron';
    
    procedure SendText(text: string);
    var  i: Integer;
    begin
       for i := 1 to Length(Text) do
       begin
         SendKeys(Text[i]);
         Wait(50+random(50));
       end;
       SendKeys(Chr(13));
    end;
    
    procedure namechange(wstatus :String);
    begin
    status(wstatus);
    GetApplication.Title:=wstatus;
    GetSelf.Caption:=wstatus;
    end;
    
    
    procedure nc4(wstatus:String; time:Integer);
    begin
    namechange(wstatus);
    wait(time);
    end;
    
    procedure Talk;
    begin
    case random(4) of
    0:SendText(message1);
    1:SendText(message2);
    2:SendText(message3);
    3:SendText(message4);
    end;
    wait(2124+random(241));
    end;
    
    procedure nc(wstatus:String);
    begin
    nc4(wstatus, 250);
    end;
    
    procedure flashx;
    begin
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    nc4('Auto-Talker',200);
    nc4('By Diamondhero5',200);
    end;
    
    procedure Animate;
    begin
    nc(' ');
    nc('A');
    nc('Au');
    nc('Aut');
    nc('Auto');
    nc('Auto- ');
    nc('Auto-T');
    nc('Auto-Ta');
    nc('Auto-Tal');
    nc('Auto-Talk');
    nc('Auto-Talke');
    nc('Auto-Talker');
    nc('--------------');
    nc('Auto-Talker');
    nc('--------------');
    nc('By Diamondhero5');
    flashx;
    nc4('Auto-Talker - By Diamondhero5',5);
    end;
    
    
    procedure ThankYou;
    begin
    writeln('-------Auto-Talker-------')
    writeln('-----by Diamondhero5-----')
    writeln('- I know u will like it -')
    writeln('@@##$$  Thank you  $$##@@')
    writeln('         ENJOY           ')
    end;
    
    begin
    Animate
    ActivateClient
    Thankyou
    repeat
    Talk;
    until(IsFKeyDown(12))
    end.
     
  2. the scar noob

    the scar noob Forum Addict

    Joined:
    Jan 21, 2007
    Posts:
    620
    Referrals:
    0
    Sythe Gold:
    0
    Diamondhero5's First Auto-Talker

    nice for first script ;)
    Keep it up!
     
  3. diamondhero5

    diamondhero5 Member
    Banned

    Joined:
    Feb 18, 2007
    Posts:
    90
    Referrals:
    0
    Sythe Gold:
    0
    Diamondhero5's First Auto-Talker

    Thank you
     
  4. Scar Help

    Scar Help Guest

    Referrals:
    0
    Diamondhero5's First Auto-Talker

    Good start keep up the progress!
     
  5. diamondhero5

    diamondhero5 Member
    Banned

    Joined:
    Feb 18, 2007
    Posts:
    90
    Referrals:
    0
    Sythe Gold:
    0
    Diamondhero5's First Auto-Talker

    ok ty i will
     
  6. CoolioMan

    CoolioMan Guest

    Referrals:
    0
    Diamondhero5's First Auto-Talker

    Pretty good script for ur first. Nice job!
     
  7. diamondhero5

    diamondhero5 Member
    Banned

    Joined:
    Feb 18, 2007
    Posts:
    90
    Referrals:
    0
    Sythe Gold:
    0
    Diamondhero5's First Auto-Talker

    thanks
     
  8. Selling acc's trusted

    Selling acc's trusted Guest

    Referrals:
    0
    Diamondhero5's First Auto-Talker

    Dude this is maybe the best auto-talker i've ever seen
     
  9. seanthyRETURNED

    seanthyRETURNED Active Member

    Joined:
    Jan 21, 2007
    Posts:
    101
    Referrals:
    0
    Sythe Gold:
    0
    Diamondhero5's First Auto-Talker

    ^^^ a little bit much dont ya think.

    nice script. i dont know why u have all thos procedures but if it works for you then good job!
     
  10. diamondhero5

    diamondhero5 Member
    Banned

    Joined:
    Feb 18, 2007
    Posts:
    90
    Referrals:
    0
    Sythe Gold:
    0
    Diamondhero5's First Auto-Talker

    all the procedures are for the animation, if u try it u will see what i mean
     
< lol... stupid auto-talker i made - V 0.1 | Noobfarms Auto-Seller >


 
 
Adblock breaks this site