Role-Playing Script

Publicado por Danillo Souza (última atualização em 03/11/2009)

[ Hits: 3.374 ]

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.

  



Esconder código-fonte

#! /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;

Scripts recomendados

Beep-Media-Player for Torsmo

MoOnCrack

Monitor Process

Viva o Linux for Torsmo

MyBF - Interpretador de BrainFuck


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts