ruleta.pas
Petr "Zweistein" Prokop
{ zwei.stein@worldonline.cz, zweistein.kgb.cz }
program roulete;
{
(c) Petr "Zweistein" Prokop
Program ruleta :
takov trochu ç¡len hra ...
}
uses crt;
type ruleta = array [1..80] of char;
var rul:ruleta;
endy,Devet,slava,kolotoc:boolean;
a:char;
name:string;
pos:integer;
sco:longint;
x:integer;
i:byte;
i2:integer;
son:integer;
Kolo:integer;
kolodelay:byte;
zivoty:byte;
Label 1,2;
begin;
devet:=false;
kolotoc:=false;
1:
clrscr;
normvideo;
write ('# # >>>>Great Faster>>>> by Petr Prokop | 1.1, @opyright 1997,1998 # #');
kolodelay:=150;
slava:=false;
endy:=false;
randomize;
sco:=0;
if kolotoc = true then begin;kolo:=99;Writeln('0 0 >>>>> MODE > 0 > MODE >>>>> 0 0');end
Else kolo:=1;
if devet = true then begin;zivoty:=9;Writeln('9 9 >>>>> MODE > 9 > MODE >>>>> 9 9');end
Else zivoty:=3;
sound(200);
delay(500);
nosound;
sound(100);
delay(500);
nosound;
sound(200);
delay(500);
nosound;
Writeln(' Instrukce:');
Writeln(' Tohle je hra postýehu, a§ zad ç svoje jm‚no, vykresl¡ se hern¡ obrazovka a ty ');
Write('budeç § d n o stisknut¡ mezern¡ku, stiskni ho (!ne jinou kl vesu-to by ukonŸilo hru!)');
write(' Na m¡stØ n pisu se objev¡ kurzor, kterì se pohybuje. Po stisku libovoln‚ kl vesy (!Mimo mezern¡ku!) se zastav¡ ');
write(' PýiŸte se ke sk¢re hodnota znaku nad n¡m (Hodnoty jsou stejn‚ jako u ý¡mskìch Ÿ¡slic - "I"=1,"V"=5,"X"=10, atd)');
write(', jestli§e znak je "!" Pak strat¡ç §ivot (pý¡ 0 §ivotech konŸ¡ç!) (:(),konec a v¡tØzstv¡ je po st‚m kole! V ');
writeln('posledn¡m menu po konci se program zept , jestli ma konŸ¡t (K-konec,P-PokraŸov n¡)');
writeln('Pozn: Autorovo Highscore: 57641 bod…, dos hl v 100 kolech');
x:=random(10);
x:=round(x)+1;
Case x of
1:Writeln (' Dalç¡ odv §livec.');
2:Writeln (' Tuhle hru nedokonŸ¡ç !');
3:Writeln (' Mus¡ç se spokojit s DOSem a TeXtOvOu grafikou :> !');
4:Writeln (' Cha-Cha !');
5:Writeln (' :-W !');
6:Writeln (' WARING ! ! ! ! Toto nen¡ 32bit 3D hra ! ! ! ! WARING');
7:Writeln (' Zas nØj kej ..... !');
8:Writeln (' A m ç to, vole, zase nØj k hra !');
9:Writeln (' Poýid si reflexy, l¡p se to s nima hraje !');
10:Writeln (' Autor ý¡k : ...... (nereprodukovateln‚) !');
End;
TextColor (LightRed);
TextBackground(black);
write ('Napiç svoje jm‚no a stiskni enter :_');
TextColor(Lightblue);
readln (name);
if name='' then Begin
x:=random(10);
x:=round(x)+1;
Case x of
1:name:='Inkognito';
2:name:='Kdo?';
3:name:='To nepovim';
4:name:='NebuÔ zvØdavej, nikdy bys nemusel bejt starej';
5:name:='Kr sn( /ì) Nezn m( /ì)';
6:name:='Nechci se s t¡m ps t';
7:name:='Player, [Plejr], Hr Ÿ';
8:name:='QWERTZUIOP';
9:name:='ASDFGHJKL';
10:name:='YXCVBNM';
End;
End;
repeat
clrscr;
pos:=0;
for i:=1 to 78 do begin;
x:=random(9);
x:=round(x)+1;
Case x of
1:rul[i+1]:='!';
2:rul[i+1]:='I';
3:rul[i+1]:='V';
4:rul[i+1]:='X';
5:rul[i+1]:='L';
6:rul[i+1]:='C';
7:rul[i+1]:='D';
8:rul[i+1]:='M';
9:rul[i+1]:='!';
end;
end;
rul[80]:='!';
rul[1]:='!';
gotoXY (35,9);
TextColor(LightRed);
write ('Score : ',sco);
gotoxy(1,1);
Write ('Kolo : ',kolo);
normvideo;
case kolo of
1:Writeln (' ZaŸ tky jsou tاkì !');
5:Writeln (' To jsi a§ tady ?');
10:Writeln (' PØknØ ses rozjel !');
15:Writeln (' Cha-Cha - tohle nezvl dneç !');
20:Writeln (' U§ ti bylo 18 let ?');
25:begin;Writeln (' PØtadvacet na holou ! + 1 §ivot');zivoty:= zivoty+1;end;
30:Writeln (' {;)=3=>=: !');
35:Writeln (' ? ? ?');
40:Writeln (' Statnì Ÿtyric tn¡k ');
45:Writeln (' IQ 45 !');
50:begin;Writeln (' Polovina za n mi !!!!!!!!!! + 1 §ivot');zivoty:= zivoty+1;end;
55:Writeln (' Tak u§ konŸi !');
60:Writeln (' .......... (Doch z¡ inspirace) !');
65:Writeln (' Co ti m m ý¡kat - 65 ?');
70:Writeln (' (TaktnØ pomlŸ¡m)');
75:begin;Writeln (' Týi Ÿtvrtiny za lod¡, Kapit ne !!!!!!!! + 1 §ivot');zivoty:= zivoty+1;end;
80:Writeln (' ........ (Opravdu, opravdu oçkliv‚ slovo !');
85:Writeln (' NechtØl bys u§ konŸit ?');
90:Writeln (' U§ jen DESET kol !');
95:Writeln (' V kole 99 chŸ¡pneç !');
Else Writeln;
end;
x:=random(20);
x:=round(x)+1;
Case x of
1:Writeln (' Go, Johny, go go !');
2:Writeln (' Chc¡pneç !');
3:Writeln (' ...... (nad vka) !');
4:Writeln (' Cha-Cha !');
5:Writeln (' :-( !');
6:Writeln (' Chichichi !');
7:Writeln (' Jen tak d l !');
8:Writeln (' Nejsi Suprmen ?');
9:Writeln (' Poýid si reflexy !');
10:Writeln (' IQ 50 (plus,pozitiv,antinegace) ?');
11:Writeln (' hello !');
12:Writeln (' Tak u§ konŸi !');
13:Writeln (' No n‚ !');
14:Writeln (' Nejsi M ldr ?');
15:Writeln (' Ty E.T. ku !');
16:Writeln (' Pom¢c, Sculyov ! !');
17:Writeln (' ........ (HNUSNµ nad vka !');
18:Writeln (' Ty, ty, ty !');
19:Writeln (' Hele, Superhero !');
20:Writeln (' Mem m tØ r d !');
end;
Writeln ('Hraje : ',Name);
Writeln ('M §ivot… : ',zivoty);
for i:=1 to 80 do begin;
x:=random(14);
x:=round(x)+2;
textcolor(x);
textbackground(0);
gotoXY (i, 10);
write (rul[i]);
sound(i+100);
Delay(50);
nosound;
end;
gotoXY (1,11);
write ('Stiskni mezern¡k...');
repeat
a:=readkey;
until not (a='');
i:=0;
TextColor(Green);
son:=20;
kolodelay:=kolodelay-kolo;
repeat
begin;
i:=i+1;
son:=son+15;
if keypressed then a:=readkey;
delay(kolodelay);
gotoXY (i,11);
TextBackground(red);
write ('>');
gotoXY (i-1,11);
TextBackground(black);
write (' ');
i2:=i;
sound(son);
delay(100);
nosound;
end;
until (i=80) or not(a=' ');
kolodelay:=150;
Case rul[i2] of
'I':sco:=sco+1;
'V':sco:=sco+5;
'X':sco:=sco+10;
'L':sco:=sco+50;
'C':sco:=sco+100;
'D':sco:=sco+500;
'M':sco:=sco+1000;
'!':zivoty:=zivoty-1;
end;
if (kolo=100)and not(1>zivoty) then begin;Endy:=true;slava:=true;end;
if (1>zivoty) or (kolo=100) then endy:=true;
kolo:=kolo+1;
TextColor(white);
TextBackground(black);
until endy=true;
clrscr;
kolo:=kolo-1;
textcolor (white);
If not(slava=true)then begin;
x:=random(15);
x:=round(x)+1;
Case x of
1:Writeln (' Kaputo !');
2:Writeln (' Bye !');
3:Writeln (' Sorry !');
4:Writeln (' Cha-Cha !');
5:Writeln (' :-) !');
6:Writeln (' Chichichi !');
7:Writeln (' Takhle to nejde !');
8:Writeln (' A m ç to, vole !');
9:Writeln (' Poýid si reflexy !');
10:Writeln (' IQ 150 (m¡nus,z por,negace) !');
11:Writeln (' Bud¡Ÿek !');
12:Writeln (' Good Bye !');
13:Writeln (' No n‚ !');
14:Writeln (' TY JSI ZKLAMAL ! !');
15:Writeln (' Vyhazov !');
end;
End
Else Begin;Textcolor(yellow);writeln(' BLAHOPüEJI, VYHRµL JSI !');End;
TextBackground(black);
write ('Score : ',sco,',Dos hnuto v ',kolo,' kolech, dos hl ',name);
if slava=true then writeln(' A zustalo mu ',zivoty,' §ivot…')
else writeln;
writeln ('Konec!');
devet:=false;
kolotoc:=false;
sound(100);
delay(100);
nosound;
sound(100);
delay(1000);
nosound;
sound(200);
delay(1000);
nosound;
sound(100);
delay(1000);
nosound;
sound(50);
delay(1000);
nosound;
TextColor(Red);
TextBackground(black);
repeat
write (' Stiskni kl vesu ( P - PokraŸovat, K - Konec ) ');
repeat
a:=readkey;
until not (a='');
a:=upcase(a);
until (a='P') or (a='K') or (a='9') or(a='0');
normvideo;
Case a of
'P':Goto 1;
'K':Goto 2;
'9':begin;Writeln;write('9 - DEV·T ¦IVOTÞ KO¬KY - Hint No.1 (press. a key.');
repeat;
a:=readkey;
until not (a='');
devet:=true;goto 1;end;
'0':begin;Writeln;write('0 - POSLEDNÖ KOLO KOLOTO¬E - Hint No.2 (press. a key.');
repeat;
a:=readkey;
until not (a='');
kolotoc:=true;goto 1;end;
End;
2:
end.
