-
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... :eek:
-
I got 131 :D
Cool, but near useless :D
Nice script
-
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!!!!!!
-
I like how you put in, "Nope, Flyboy is T3H MAST3R":p. I was practising my arrays, so I made a little game.
I never knew you could make an array an array.:)
-
Code:
////////// ////////// //////////
/ ___ / / / / | | /
/ / \ / / /| / / | | /
/ | / / | / / | | /
/ ___/ / / | / / |____| /
/ \ / / | / / | /
/ | / / | / / | /
/ ___/ / / | / / | /
/ / / | / / | /
/ / / ____/ / /
////////// ////////// //////////
You got 314!
ARE YOU T3H MAST3R???
314 FTW