Results 1 to 3 of 3

Thread: Rotflmfwao's auto talker

  1. #1
    Join Date
    Jun 2007
    Location
    I'm not sure...
    Posts
    581
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Rotflmfwao's auto talker

    Here's my auto talker. It works (or at least it should XD) and stuff... here it is.
    ---------------------------------------------------------


    Pm me if you need any math functions made. Me = l0ving t3h mathz

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

  2. #2
    Join Date
    Jun 2007
    Location
    England
    Posts
    262
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    A few minor errors in there, e.g Colon expected... fixed them and it works really niceley .

    SCAR Code:
    {fill in the constants in lines  10 through 14, but don't change NumLines unless you
    know what you're doing. This is V1. Pm me any bugs, and I'll try to fix em.}

    //BTW, you've gotta b logged in. I didn't put any failsafes in.
    program AutoTalker;//By Rotflmfwao
    {.Include SRL/SRL.scar}
    Var
      Text, Style, Color: Array of String;
    Const
      NumLines=5;
      BuyingOrSelling='Selling';
      WhatKind='rune';
      What='scimy';
      Price='30k';
      PlayerName='your characters name here';

    Function RandomEffect(i:string):string;//Put 'style' for style and 'color' for a color effect.
      Var
        q:Integer;
      Begin
        Case i of
        'style': Begin
                   q:=random(4);
                   Case q of
                   0: Result:='wave';
                   1: Result:='wave2';
                   2: Result:='shake';
                   3: Result:='scroll';
                 End;
                 end;
        'color':  Begin
                    q:=random(11);
                    Case q of
                    0: Result:='red';
                    1: Result:='white';
                    2: Result:='cyan';
                    3: Result:='purple';
                    4: Result:='green';
                    5: Result:='flash1';
                    6: Result:='flash2';
                    7: Result:='flash3';
                    8: Result:='glow1';
                    9: Result:='glow2';
                    10: Result:='glow3';
                    End;
                End;
        End;
      End;

    Procedure DefineVars;
      Begin
        SetArrayLength(Text,NumLines);
        SetArrayLength(Style,NumLines);
        SetArrayLength(Color,NumLines);
        Begin
          Text[0]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
          Style[0]:=RandomEffect('style');//Shake, Scroll, Wave, wave2, whatever
          Color[0]:=RandomEffect('color');//Glow1-3, Flash1-3, cyan, white, red, whatever
          Text[1]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
          Style[1]:=RandomEffect('style');//Shake, Scroll, Wave, wave2, whatever
          Color[1]:=RandomEffect('color');//Glow1-3, Flash1-3, cyan, white, red, whatever
          Text[2]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
          Style[2]:=RandomEffect('style');//Shake, Scroll, Wave, wave2, whatever
          Color[2]:=RandomEffect('color');//Glow1-3, Flash1-3, cyan, white, red, whatever
          Text[3]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
          Style[3]:=RandomEffect('style');//Shake, Scroll, Wave, wave2, whatever
          Color[3]:=RandomEffect('color');//Glow1-3, Flash1-3, cyan, white, red, whatever
          Text[4]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
          Style[4]:=RandomEffect('style');//Shake, Scroll, Wave, wave2, whatever
          Color[4]:=RandomEffect('color');//Glow1-3, Flash1-3, cyan, white, red, whatever
        End;
      End;

    Procedure SayStuff;
      Var i:Integer;
      Begin
        For i:=0 to NumLines-1 do
        Begin
          TypeSend(Color[i] +':' +Style[i] +':' +Text[i]);
          Writeln('You said ' +Color[i] +':' +Style[i] +':' +Text[i]);
        End;
      End;

    Procedure SetupEverything;
      Begin
        SetupSRL;
        DefineVars;
        clearDebug;
        Writeln('Thanks for using Rotflmfwao''s autotexter');
        Wait(1000);
        ActivateClient;
        Wait(1000);
      End;

    begin
    SetupEverything;
    Repeat
      SayStuff;
    Until(False);
    end.

  3. #3
    Join Date
    Sep 2007
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Awesome script. Works wicked for me

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My First Auto Talker
    By jacka scar MASTER in forum First Scripts
    Replies: 5
    Last Post: 05-08-2008, 10:59 PM
  2. Replies: 5
    Last Post: 11-23-2007, 08:45 PM
  3. 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
  •