Results 1 to 3 of 3

Thread: debug talker

  1. #1
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default debug talker

    Hey, i recently rejoin, i left for about a year so i am saying thatthis is my first script...

    SCAR Code:
    program scar;
    {.include SRL/SRL.scar}

    const
    line1 = 'text 1';
    line2 = 'text 2';
    line3 = 'text 3';
    line4 = 'text 4';
    line5 = 'text 5';

    var
    spokenlines: integer;

    procedure linea;
    begin
    Writeln(line1);
    spokenlines:=spokenlines+1;
    end;

    procedure lineb;
    begin
    Writeln(line2);
    spokenlines:=spokenlines+1;
    end;

    procedure linec;
    begin
    Writeln(line3);
    spokenlines:=spokenlines+1;
    end;

    procedure lined;
    begin
    Writeln(line4);
    spokenlines:=spokenlines+1;
    end;

    procedure linee;
    begin
    Writeln(line5);
    spokenlines:=spokenlines+1;
    end;

    procedure ProgressReport;
    begin
    ClearDebug;
       Writeln('[]========================================[]');
        Writeln('---------------->Our Proggy<----------------');
        Writeln('  spoke ' + IntToStr(spokenlines) + ' Lines' + '    ');
        Writeln('---------------------------------------------');
        Writeln('[]========================================[]');
    end;


    begin
    ClearDebug;
    SetupSRL;
    repeat
    linea;
    wait(1000 + random(750));
    ProgressReport;
    lineb;
    wait(1000 + random(750));
    ProgressReport;
    linec;
    wait(1000 + random(750));
    ProgressReport;
    lined;
    wait(1000 + random(750));
    ProgressReport;
    linee;
    wait(1000 + random(750));
    ProgressReport;
    until(False)
    end.
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  2. #2
    Join Date
    Nov 2007
    Location
    Nowhereville
    Posts
    1,155
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    First, please work on standards:

    SCAR Code:
    program scar;
    {.include SRL/SRL.scar}
     
    const
      line1 = 'text 1';
      line2 = 'text 2';
      line3 = 'text 3';
      line4 = 'text 4';
      line5 = 'text 5';
     
    var
      spokenlines: integer;
     
    procedure linea;
    begin
      Writeln(line1);
      spokenlines:=spokenlines+1;
    end;
     
    procedure lineb;
    begin
      Writeln(line2);
      spokenlines:=spokenlines+1;
    end;
     
    procedure linec;
    begin
      Writeln(line3);
      spokenlines:=spokenlines+1;
    end;
     
    procedure lined;
    begin
      Writeln(line4);
      spokenlines:=spokenlines+1;
    end;
     
    procedure linee;
    begin
      Writeln(line5);
      spokenlines:=spokenlines+1;
    end;
     
    procedure ProgressReport;
    begin
      ClearDebug;
      Writeln('[]========================================[]');
      Writeln('---------------->Our Proggy<----------------');
      Writeln('  spoke ' + IntToStr(spokenlines) + ' Lines' + '    ');
      Writeln('---------------------------------------------');
      Writeln('[]========================================[]');
    end;
     
     
    begin
      ClearDebug;
      SetupSRL;
      repeat
        linea;
        wait(1000 + random(750));
        lineb;
        wait(1000 + random(750));
        linec;
        wait(1000 + random(750));
        lined;
        wait(1000 + random(750));
        linee;
        wait(1000 + random(750));
      until(IsFKeyDown(5)); //Please no endless loops.
      ProgressReport; //I put the progress report here so that you don't have a proggie sprouting every time you input something in the debug box :(
    end.

    I put the proggie at the end of everything so you wouldn't have a proggie sprouting every time the script inputs one line in the debug box
    The script will stop when you press F5.
    Please read up on SRL standards
    here

    Hope this helps.
    Formerly known as Cut em2 it

  3. #3
    Join Date
    Nov 2007
    Location
    Australia
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes, standards are always helpful. Some people who judge your script to see if you can get into members, they look at standards. A script with terrible standards will never get in unless it is an awesome script.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Is this possible? Debug box thing ^^
    By Nexhou in forum OSR Help
    Replies: 2
    Last Post: 07-07-2008, 06:16 PM
  2. Replacing debug box
    By Negaal in forum OSR Help
    Replies: 0
    Last Post: 01-31-2008, 08:36 PM
  3. whole 55 lines to debug
    By HarryJames in forum OSR Help
    Replies: 3
    Last Post: 03-19-2007, 08:35 PM
  4. Random debug talker help
    By HarryJames in forum OSR Help
    Replies: 2
    Last Post: 02-28-2007, 12:08 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •