nforce17
Administrator
Dołączył: 05 Lis 2006
Posty: 388
Przeczytał: 0 tematów
Pomógł: 4 razy
Ostrzeżeń: 0/5
|
 Wysłany: Wto 22:04, 13 Lip 2010 Temat postu: Zgadywanka |
|
|
| Kod: | # Zgadywanka
# Autor nforce
print "Witaj w zgadywance!\n";
print "Aby zakonczyc gre wpisz: exit\n";
print "Z jakiego przedzialu losowac liczby ? np: 100\n";
chomp ($przedzial = <STDIN>);
od_nowa:
$number = int(rand($przedzial));
print "Liczba wylosowana!\n";
wroc:
print ". Wpisz liczbe z zakresu od 1 do ". $przedzial ."\n";
chomp ($wypis = <STDIN>);
print "Porownanie liczb...";
if ($number == $wypis) {
$wygral_raz++;
print "Brawo udalo Ci sie trafic w liczbe ktora zostala wylosowana!\n Do tej pory wygrales raz/-y ". $wygral_raz ."";
print "Czy chcesz zagrac jeszcze raz ? [tak/nie]\n";
chomp ($od_nowa = <STDIN>);
if ($od_nowa eq "tak") {
goto wroc;
} else { print "Do zobaczenia...\n"; exit; }
} else { print "Nie udalo Ci sie trafic!\nCzy chcesz sprobowac jeszcze raz ? [tak/nie/pomoc]\n";
chomp ($od_nowa = <STDIN>);
if ($od_nowa eq "tak") {
goto wroc;
}
elsif ($od_nowa eq "pomoc") {
$liczba_s = int(rand(10)) + $number;
print "Podpowiedz liczba to okolo: ". $liczba_s ."\n";
goto wroc;
} else { print "Do zobaczenia...\n"; exit; }
} |
Download:
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
