Role-Playing Script
Publicado por Danillo Souza (última atualização em 03/11/2009)
[ Hits: 3.678 ]
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;
Diminuir ou aumentar o brilho de notebook
Verificação se utilizador existe ou não
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Alguém pode me ajudar porfavor como executar comandos ao iniciar no i3... (2)
Debian Bookworm para a versão beta Debian 13 Trixie (2)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (21)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba