Role-Playing Script
Publicado por Danillo Souza (última atualização em 03/11/2009)
[ Hits: 3.757 ]
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;
Remover lista de pacotes do Portage
Algoritmo de Euclides estendido em Perl
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
Como baixar os drivers de áudio no linux mint? (7)
Como posso localizar o arquivo HTML da página inicial do GLPI dentro d... (2)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta