Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #mafia_gen
- use strict;
- use warnings;
- use List::Util 'shuffle';
- my @pnames = qw/Apostate Beanybag Bobble Broodje Drasha Emiya HungLoSack Lyrika Mendel Red Reldnahc ScoutTier SpaceSavage SuwakoChan Tarasque Thear22 YawningAngel/;
- my @rolelist = qw//;
- my @nonpr = qw/Swiftblade Moon_Queen Zephyr Magebane Nomad Valkyrie Engineer Silhouette Emerald_Warden Monkey_King Master_of_Arma Nymphora Thunderbringer Pollywog_Priest Pyromancer Bubbles Aluna Monarch Armadon Hammerstorm Pebbles Pandamonium Rampage Tundra Gladiator Flux Drunken_Master Midas/;
- while ($#pnames > $#rolelist) {
- @nonpr = shuffle(@nonpr);
- push @rolelist, pop @nonpr;
- }
- for (0..10) {
- @pnames = shuffle(@pnames);
- @rolelist = shuffle(@rolelist);
- }
- open TXT, ">./playeroles.txt";
- select TXT;
- for (0..$#pnames) {
- printf "%-15s", "$pnames[$_]";
- print " - $rolelist[$_]\n";
- }
Add Comment
Please, Sign In to add comment