Role-Playing Script
Publicado por Danillo Souza (última atualização em 03/11/2009)
[ Hits: 3.968 ]
Download Role Playing Script.pl
Script que serve para simular uma jogada de dados com qualquer quantidade de dados, qualquer quantidade de lados, exibe o valor obtido de cada dado e a soma de todos eles.
Salva no arquivo de log o horário da jogada, o nome do jogador, quantos dados jogou, de quantos lados eram os dados e a soma de todos os dados.
#! /usr/bin/perl
print "\nSeu nome(nick): ";
$nome = <STDIN>;
chomp $nome;
print "\nQuantos dados?: ";
$qnt = int <STDIN>;
print "\nDe quantos lados?: ";
$lds = int <STDIN>;
$lds--;
@a = (1..$qnt);
$total = 0;
foreach (@a) {
$_ = int rand($lds)+1;
$total += $_
}
print "\n" . "-" x 25;
for ($i = 0 ; $i < $qnt ; $i++) {
$temp = $i + 1;
print "\nDado $temp -> $a[$i]\n" . "-" x 25;
}
print "\n\tTotal -> $total\n" . "-" x 25;
# Salvando LOG
$lds++;
($hora{s},$hora{m},$hora{h}) = localtime(time);
if($hora{s} < 10) {
$hora{s} = "0".$hora{s};
}
if($hora{m} < 10) {
$hora{m} = "0".$hora{m};
}
if($hora{h} < 10) {
$hora{h} = "0".$hora{h};
}
$log = ("-" x 20) . "[$hora{h}:$hora{m}:$hora{s}]" . ("-" x 20) . "\n\n";
$log .= "\tJogador:\t$nome\n\tDados:\t\t$qnt\n\tLados:\t\t$lds\n\tTotal:\t\t$total\n\n";
open (LOG, ">>LOG_DADOS.txt");
print LOG $log;
close (LOG);
<STDIN>;
exit;
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Fedora KDE plasma 42 X Módulo de segurança BB (Warsaw-2) (1)
O programa assinador digital (1)
PIP3 - erro ao instalar módulo do mariadb para o Python (9)









