#!/usr/bin/perl

# $wynik = kostka;
#    Rzut standardowa kosta o szesciu sciankach.
sub kostka {
    return int( rand(6) ) + 1;
}

# $wynik = rzut_kostka( $liczba, $scianki, $plus )
#   Wielokrotny rzut kostka o okreslonej liczbie scianek 
#   oraz dodanie stalej do wyniku.
#   Osoby grajace w gry RPG (role-playing) sa przyzwyczajone do notacji
#   3d8+4  ta notacja moze byc zakodowana jako rzut_kostka( 3, 8, 4 )
sub rzut_kostka {
    my $liczba   = shift || 1;
    my $scianki  = shift || 6;
    my $plus     = shift;

    $plus += int( rand($scianki) ) while $liczba--;

    return $plus;
}

# $wynik = reszka;
#    Rzut moneta; zwracana prawda, jesli uzyskano reszke.
sub reszka {
    return rand() < 0.5;
}

print rzut_kostka(3, 8, 4), "\n";
