Results 1 to 5 of 5

Thread: Your number?

  1. #1
    Join Date
    Mar 2006
    Posts
    549
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Your number?

    Code:
    program Slots;
    
    var
      stop:integer;
      rendom1:array[1..9] of string;
      rendom2:array[1..9] of string;
      rendom3:array[1..9] of string;
      reandom1:integer;
      reandom2:integer;
      reandom3:integer;
      stoptime1:integer;
    
    const
      Stoptime = 100; /// times it will switch numbers... ( 100 is good )
    
    
    procedure random1;
    begin
      case random(9) of
      
      1 : begin
            rendom1[1]:= '        '
            rendom1[2]:= '    /|  '
            rendom1[3]:= '     |  '
            rendom1[4]:= '     |  '
            rendom1[5]:= '     |  '
            rendom1[6]:= '     |  '
            rendom1[7]:= '     |  '
            rendom1[8]:= '     |  '
            rendom1[9]:= '    ____'
            reandom1:= 1
          end;
      2 : begin
            rendom1[1]:= '  ___   '
            rendom1[2]:= ' /    \ '
            rendom1[3]:= ' |    | '
            rendom1[4]:= '  \   | '
            rendom1[5]:= '     /  '
            rendom1[6]:= '    /   '
            rendom1[7]:= '   -----'
            rendom1[8]:= '        '
            rendom1[9]:= '        '
            reandom1:= 2
          end;
      3 : begin
            rendom1[1]:= '  ___   '
            rendom1[2]:= ' /   \  '
            rendom1[3]:= '     |  '
            rendom1[4]:= ' ___/   '
            rendom1[5]:= '    \   '
            rendom1[6]:= '     |  '
            rendom1[7]:= '  ___/  '
            rendom1[8]:= '        '
            rendom1[9]:= '        '
            reandom1:= 3
          end;
      4 : begin
            rendom1[1]:= ' |    | '
            rendom1[2]:= ' |    | '
            rendom1[3]:= ' |    | '
            rendom1[4]:= ' |____| '
            rendom1[5]:= '      | '
            rendom1[6]:= '      | '
            rendom1[7]:= '      | '
            rendom1[8]:= '      | '
            rendom1[9]:= '        '
            reandom1:= 4
          end;
      5 : begin
            rendom1[1]:= '  ____  '
            rendom1[2]:= ' /      '
            rendom1[3]:= ' |__    '
            rendom1[4]:= '    \   '
            rendom1[5]:= '    |   '
            rendom1[6]:= '___/    '
            rendom1[7]:= '        '
            rendom1[8]:= '        '
            rendom1[9]:= '        '
            reandom1:= 5
          end;
      6 : begin
            rendom1[1]:= '     /  '
            rendom1[2]:= '    /   '
            rendom1[3]:= '   /    '
            rendom1[4]:= '  /     '
            rendom1[5]:= ' |  _   '
            rendom1[6]:= ' | / \  '
            rendom1[7]:= ' |    | '
            rendom1[8]:= '  \___/ '
            rendom1[9]:= '        '
            reandom1:= 6
          end;
      7 : begin
            rendom1[1]:= ' ____   '
            rendom1[2]:= '    /   '
            rendom1[3]:= '   /    '
            rendom1[4]:= '  /     '
            rendom1[5]:= ' /      '
            rendom1[6]:= '/       '
            rendom1[7]:= '        '
            rendom1[8]:= '        '
            rendom1[9]:= '        '
            reandom1:= 7
          end;
      8 : begin
            rendom1[1]:= ' _____  '
            rendom1[2]:= '/     \ '
            rendom1[3]:= '|     | '
            rendom1[4]:= ' \___/  '
            rendom1[5]:= ' /    \ '
            rendom1[6]:= '|     | '
            rendom1[7]:= ' \___/  '
            rendom1[8]:= '        '
            rendom1[9]:= '        '
            reandom1:= 8
          end;
      9 : begin
            rendom1[1]:= ' ____   '
            rendom1[2]:= '/    \  '
            rendom1[3]:= '\_____| '
            rendom1[4]:= '     /  '
            rendom1[5]:= '    /   '
            rendom1[6]:= '   /    '
            rendom1[7]:= '  /     '
            rendom1[8]:= ' /      '
            rendom1[9]:= '/       '
            reandom1:= 9
          end;
      end;
    end;
    
    procedure random2;
    begin
      case random(9) of
    
      1 : begin
            rendom2[1]:= '        '
            rendom2[2]:= '    /|  '
            rendom2[3]:= '     |  '
            rendom2[4]:= '     |  '
            rendom2[5]:= '     |  '
            rendom2[6]:= '     |  '
            rendom2[7]:= '     |  '
            rendom2[8]:= '     |  '
            rendom2[9]:= '    ____'
            reandom2:= 1
          end;
      2 : begin
            rendom2[1]:= '  ___   '
            rendom2[2]:= ' /    \ '
            rendom2[3]:= ' |    | '
            rendom2[4]:= '  \   | '
            rendom2[5]:= '     /  '
            rendom2[6]:= '    /   '
            rendom2[7]:= '   -----'
            rendom2[8]:= '        '
            rendom2[9]:= '        '
            reandom2:= 2
          end;
      3 : begin
            rendom2[1]:= '  ___   '
            rendom2[2]:= ' /   \  '
            rendom2[3]:= '     |  '
            rendom2[4]:= ' ___/   '
            rendom2[5]:= '    \   '
            rendom2[6]:= '     |  '
            rendom2[7]:= '  ___/  '
            rendom2[8]:= '        '
            rendom2[9]:= '        '
            reandom2:= 3
          end;
      4 : begin
            rendom2[1]:= ' |    | '
            rendom2[2]:= ' |    | '
            rendom2[3]:= ' |    | '
            rendom2[4]:= ' |____| '
            rendom2[5]:= '      | '
            rendom2[6]:= '      | '
            rendom2[7]:= '      | '
            rendom2[8]:= '      | '
            rendom2[9]:= '        '
            reandom2:= 4
          end;
      5 : begin
            rendom2[1]:= '  ____  '
            rendom2[2]:= ' /      '
            rendom2[3]:= ' |__    '
            rendom2[4]:= '    \   '
            rendom2[5]:= '    |   '
            rendom2[6]:= '___/    '
            rendom2[7]:= '        '
            rendom2[8]:= '        '
            rendom2[9]:= '        '
            reandom2:= 5
          end;
      6 : begin
            rendom2[1]:= '     /  '
            rendom2[2]:= '    /   '
            rendom2[3]:= '   /    '
            rendom2[4]:= '  /     '
            rendom2[5]:= ' |  _   '
            rendom2[6]:= ' | / \  '
            rendom2[7]:= ' |    | '
            rendom2[8]:= '  \___/ '
            rendom2[9]:= '        '
            reandom2:= 6
          end;
      7 : begin
            rendom2[1]:= ' ____   '
            rendom2[2]:= '    /   '
            rendom2[3]:= '   /    '
            rendom2[4]:= '  /     '
            rendom2[5]:= ' /      '
            rendom2[6]:= '/       '
            rendom2[7]:= '        '
            rendom2[8]:= '        '
            rendom2[9]:= '        '
            reandom2:= 7
          end;
      8 : begin
            rendom2[1]:= ' _____  '
            rendom2[2]:= '/     \ '
            rendom2[3]:= '|     | '
            rendom2[4]:= ' \___/  '
            rendom2[5]:= ' /    \ '
            rendom2[6]:= '|     | '
            rendom2[7]:= ' \___/  '
            rendom2[8]:= '        '
            rendom2[9]:= '        '
            reandom2:= 8
          end;
      9 : begin
            rendom2[1]:= ' ____   '
            rendom2[2]:= '/    \  '
            rendom2[3]:= '\_____| '
            rendom2[4]:= '     /  '
            rendom2[5]:= '    /   '
            rendom2[6]:= '   /    '
            rendom2[7]:= '  /     '
            rendom2[8]:= ' /      '
            rendom2[9]:= '/       '
            reandom2:= 9
          end;
      end;
    end;
    
    procedure random3;
    begin
      case random(9) of
    
      1 : begin
            rendom3[1]:= '        '
            rendom3[2]:= '    /|  '
            rendom3[3]:= '     |  '
            rendom3[4]:= '     |  '
            rendom3[5]:= '     |  '
            rendom3[6]:= '     |  '
            rendom3[7]:= '     |  '
            rendom3[8]:= '     |  '
            rendom3[9]:= '    ____'
            reandom3:= 1
          end;
      2 : begin
            rendom3[1]:= '  ___   '
            rendom3[2]:= ' /    \ '
            rendom3[3]:= ' |    | '
            rendom3[4]:= '  \   | '
            rendom3[5]:= '     /  '
            rendom3[6]:= '    /   '
            rendom3[7]:= '   -----'
            rendom3[8]:= '        '
            rendom3[9]:= '        '
            reandom3:= 2
          end;
      3 : begin
            rendom3[1]:= '  ___   '
            rendom3[2]:= ' /   \  '
            rendom3[3]:= '     |  '
            rendom3[4]:= ' ___/   '
            rendom3[5]:= '    \   '
            rendom3[6]:= '     |  '
            rendom3[7]:= '  ___/  '
            rendom3[8]:= '        '
            rendom3[9]:= '        '
            reandom3:= 3
          end;
      4 : begin
            rendom3[1]:= ' |    | '
            rendom3[2]:= ' |    | '
            rendom3[3]:= ' |    | '
            rendom3[4]:= ' |____| '
            rendom3[5]:= '      | '
            rendom3[6]:= '      | '
            rendom3[7]:= '      | '
            rendom3[8]:= '      | '
            rendom3[9]:= '        '
            reandom3:= 4
          end;
      5 : begin
            rendom3[1]:= '  ____  '
            rendom3[2]:= ' /      '
            rendom3[3]:= ' |__    '
            rendom3[4]:= '    \   '
            rendom3[5]:= '    |   '
            rendom3[6]:= '___/    '
            rendom3[7]:= '        '
            rendom3[8]:= '        '
            rendom3[9]:= '        '
            reandom3:= 5
          end;
      6 : begin
            rendom3[1]:= '     /  '
            rendom3[2]:= '    /   '
            rendom3[3]:= '   /    '
            rendom3[4]:= '  /     '
            rendom3[5]:= ' |  _   '
            rendom3[6]:= ' | / \  '
            rendom3[7]:= ' |    | '
            rendom3[8]:= '  \___/ '
            rendom3[9]:= '        '
            reandom3:= 6
          end;
      7 : begin
            rendom3[1]:= ' ____   '
            rendom3[2]:= '    /   '
            rendom3[3]:= '   /    '
            rendom3[4]:= '  /     '
            rendom3[5]:= ' /      '
            rendom3[6]:= '/       '
            rendom3[7]:= '        '
            rendom3[8]:= '        '
            rendom3[9]:= '        '
            reandom3:= 7
          end;
      8 : begin
            rendom3[1]:= ' _____  '
            rendom3[2]:= '/     \ '
            rendom3[3]:= '|     | '
            rendom3[4]:= ' \___/  '
            rendom3[5]:= ' /    \ '
            rendom3[6]:= '|     | '
            rendom3[7]:= ' \___/  '
            rendom3[8]:= '        '
            rendom3[9]:= '        '
            reandom3:= 8
          end;
      9 : begin
            rendom3[1]:= ' ____   '
            rendom3[2]:= '/    \  '
            rendom3[3]:= '\_____| '
            rendom3[4]:= '     /  '
            rendom3[5]:= '    /   '
            rendom3[6]:= '   /    '
            rendom3[7]:= '  /     '
            rendom3[8]:= ' /      '
            rendom3[9]:= '/       '
            reandom3:= 9
          end;
      end;
    end;
    
    begin
      cleardebug;
      WriteLn('Lets see what you will get...')
      Stoptime1:= stoptime
      wait(3000)
      repeat
        wait(100)
        cleardebug;
        random1;
        random2;
        random3;
        WriteLn('//////////     //////////     //////////')
        writeLn('/'+rendom1[1]+'/     /'+rendom2[1]+'/     /'+rendom3[1]+'/')
        writeLn('/'+rendom1[2]+'/     /'+rendom2[2]+'/     /'+rendom3[2]+'/')
        writeLn('/'+rendom1[3]+'/     /'+rendom2[3]+'/     /'+rendom3[3]+'/')
        writeLn('/'+rendom1[4]+'/     /'+rendom2[4]+'/     /'+rendom3[4]+'/')
        writeLn('/'+rendom1[5]+'/     /'+rendom2[5]+'/     /'+rendom3[5]+'/')
        writeLn('/'+rendom1[6]+'/     /'+rendom2[6]+'/     /'+rendom3[6]+'/')
        writeLn('/'+rendom1[7]+'/     /'+rendom2[7]+'/     /'+rendom3[7]+'/')
        writeLn('/'+rendom1[8]+'/     /'+rendom2[8]+'/     /'+rendom3[8]+'/')
        writeLn('/'+rendom1[9]+'/     /'+rendom2[9]+'/     /'+rendom3[9]+'/')
        WriteLn('//////////     //////////     //////////')
        stop:= stop + 1
        stoptime1:= stoptime1 - 1
        Status(inttostr(stoptime1)+' more times');
      until(stop>= Stoptime)
      WriteLn(' You got '+inttostr(reandom1)++inttostr(reandom2)++inttostr(reandom3)+'!')
      WriteLn(' ARE YOU T3H MAST3R??? ')
    end.
    Run this and see what number you get.

    My number was 666 the first time...

  2. #2
    Join Date
    Mar 2006
    Location
    USA
    Posts
    948
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I got 131

    Cool, but near useless
    Nice script

  3. #3
    Join Date
    Feb 2006
    Location
    Sunshine Coast, Qld. Australia
    Posts
    412
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I love it!!! I'm a big fan of ANSI pictures and stuff. I love how you made your digits... good job. Here is my fast re-edit of your little script, helping condense the code into a more manageable size. I'm sure a lot more redundancies could be removed but here's what I came up with:

    Code:
    program Slots;
    
    type
      // Creating a type will allow you to pass it to/from procedures
      TLineOfDigit = array[1..9] of string;
    
    var
      stop:integer;
      DigitData: array[1..3] of TLineOfDigit;
      NumbersSelected: String;
      RanNumber: Integer;
    
      i: Integer; //standard variable for loops
      stoptime1:integer;
    
    const
      Stoptime = 100; /// times it will switch numbers... ( 100 is good )
    
    
    procedure PrepDigit(Number: Integer; Var LineOfText: TLineOfDigit);
    begin
      case Number of
    
      1 : begin
            LineOfText[1]:= '        '
            LineOfText[2]:= '    /|  '
            LineOfText[3]:= '     |  '
            LineOfText[4]:= '     |  '
            LineOfText[5]:= '     |  '
            LineOfText[6]:= '     |  '
            LineOfText[7]:= '     |  '
            LineOfText[8]:= '     |  '
            LineOfText[9]:= '    ____'
          end;
      2 : begin
            LineOfText[1]:= '  ___   '
            LineOfText[2]:= ' /    \ '
            LineOfText[3]:= ' |    | '
            LineOfText[4]:= '  \   | '
            LineOfText[5]:= '     /  '
            LineOfText[6]:= '    /   '
            LineOfText[7]:= '   -----'
            LineOfText[8]:= '        '
            LineOfText[9]:= '        '
          end;
      3 : begin
            LineOfText[1]:= '  ___   '
            LineOfText[2]:= ' /   \  '
            LineOfText[3]:= '     |  '
            LineOfText[4]:= ' ___/   '
            LineOfText[5]:= '    \   '
            LineOfText[6]:= '     |  '
            LineOfText[7]:= '  ___/  '
            LineOfText[8]:= '        '
            LineOfText[9]:= '        '
          end;
      4 : begin
            LineOfText[1]:= ' |    | '
            LineOfText[2]:= ' |    | '
            LineOfText[3]:= ' |    | '
            LineOfText[4]:= ' |____| '
            LineOfText[5]:= '      | '
            LineOfText[6]:= '      | '
            LineOfText[7]:= '      | '
            LineOfText[8]:= '      | '
            LineOfText[9]:= '        '
          end;
      5 : begin
            LineOfText[1]:= '  ____  '
            LineOfText[2]:= ' /      '
            LineOfText[3]:= ' |__    '
            LineOfText[4]:= '    \   '
            LineOfText[5]:= '    |   '
            LineOfText[6]:= '___/    '
            LineOfText[7]:= '        '
            LineOfText[8]:= '        '
            LineOfText[9]:= '        '
          end;
      6 : begin
            LineOfText[1]:= '     /  '
            LineOfText[2]:= '    /   '
            LineOfText[3]:= '   /    '
            LineOfText[4]:= '  /     '
            LineOfText[5]:= ' |  _   '
            LineOfText[6]:= ' | / \  '
            LineOfText[7]:= ' |    | '
            LineOfText[8]:= '  \___/ '
            LineOfText[9]:= '        '
          end;
      7 : begin
            LineOfText[1]:= ' ____   '
            LineOfText[2]:= '    /   '
            LineOfText[3]:= '   /    '
            LineOfText[4]:= '  /     '
            LineOfText[5]:= ' /      '
            LineOfText[6]:= '/       '
            LineOfText[7]:= '        '
            LineOfText[8]:= '        '
            LineOfText[9]:= '        '
          end;
      8 : begin
            LineOfText[1]:= ' _____  '
            LineOfText[2]:= '/     \ '
            LineOfText[3]:= '|     | '
            LineOfText[4]:= ' \___/  '
            LineOfText[5]:= ' /    \ '
            LineOfText[6]:= '|     | '
            LineOfText[7]:= ' \___/  '
            LineOfText[8]:= '        '
            LineOfText[9]:= '        '
          end;
      9 : begin
            LineOfText[1]:= ' ____   '
            LineOfText[2]:= '/    \  '
            LineOfText[3]:= '\_____| '
            LineOfText[4]:= '     /  '
            LineOfText[5]:= '    /   '
            LineOfText[6]:= '   /    '
            LineOfText[7]:= '  /     '
            LineOfText[8]:= ' /      '
            LineOfText[9]:= '/       '
          end;
      end;
    end;
    
    begin
      cleardebug;
      WriteLn('Lets see what you will get...')
      Stoptime1:= stoptime
      wait(1000)
      repeat
        wait(100)
        cleardebug;
        NumbersSelected := '';
    
        //loop through all digits to fill in
        for i := 1 to 3 do
        begin
    
          // lets pick the number
          RanNumber := Random(9) + 1;
          NumbersSelected := (NumbersSelected + inttostr(RanNumber));
    
          // lets fill in the lines for each digit
          PrepDigit(RanNumber, DigitData[i]);
          
        end; //for i := 1 to 3 do
    
        // write groovie ansi digits to screen
        WriteLn('//////////     //////////     //////////')
        writeLn('/'+DigitData[1][1]+'/     /'+DigitData[2][1]+'/     /'+DigitData[3][1]+'/')
        writeLn('/'+DigitData[1][2]+'/     /'+DigitData[2][2]+'/     /'+DigitData[3][2]+'/')
        writeLn('/'+DigitData[1][3]+'/     /'+DigitData[2][3]+'/     /'+DigitData[3][3]+'/')
        writeLn('/'+DigitData[1][4]+'/     /'+DigitData[2][4]+'/     /'+DigitData[3][4]+'/')
        writeLn('/'+DigitData[1][5]+'/     /'+DigitData[2][5]+'/     /'+DigitData[3][5]+'/')
        writeLn('/'+DigitData[1][6]+'/     /'+DigitData[2][6]+'/     /'+DigitData[3][6]+'/')
        writeLn('/'+DigitData[1][7]+'/     /'+DigitData[2][7]+'/     /'+DigitData[3][7]+'/')
        writeLn('/'+DigitData[1][8]+'/     /'+DigitData[2][8]+'/     /'+DigitData[3][8]+'/')
        writeLn('/'+DigitData[1][9]+'/     /'+DigitData[2][9]+'/     /'+DigitData[3][9]+'/')
        WriteLn('//////////     //////////     //////////')
        stop:= stop + 1
        stoptime1:= stoptime1 - 1
        Status(inttostr(stoptime1)+' more times');
      until(stop>= Stoptime)
      WriteLn(' You got ' + NumbersSelected + '!')
      WriteLn(' ARE YOU T3H MAST3R???    Answer... Nope, Flyboy is T3H MAST3R!!!')
    end.
    I would suggest using meaningful labels to your variables... It can get very confusing if you use the same word with just different spellings.

    You did a great job using arrays... Well done!!!

    All in all I would give this an 8 for creativity (yes I do love ANSI)

    Keep those scripts coming!!!!!!

  4. #4
    Join Date
    Mar 2006
    Posts
    549
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I like how you put in, "Nope, Flyboy is T3H MAST3R". I was practising my arrays, so I made a little game.

    I never knew you could make an array an array.

  5. #5
    Join Date
    Jun 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Code:
    //////////     //////////     //////////
    /  ___   /     /        /     / |    | /
    / /   \  /     /    /|  /     / |    | /
    /     |  /     /     |  /     / |    | /
    / ___/   /     /     |  /     / |____| /
    /    \   /     /     |  /     /      | /
    /     |  /     /     |  /     /      | /
    /  ___/  /     /     |  /     /      | /
    /        /     /     |  /     /      | /
    /        /     /    ____/     /        /
    //////////     //////////     //////////
     You got 314!
     ARE YOU T3H MAST3R???
    314 FTW

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Checking if a number is a whole number or not?
    By Sandstorm in forum OSR Help
    Replies: 4
    Last Post: 10-26-2008, 04:40 PM
  2. Name to Number
    By smithsps in forum First Scripts
    Replies: 16
    Last Post: 03-06-2008, 10:39 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
  •