bot de fernando

perl/fsg/fsg.pl

@@ -0,0 +1,19 @@
+use feature "say";
+use File::Slurper qw(read_lines);
+my @verbos = read_lines("/home/diego/verbos.txt");
+  
+my @sustantivos = read_lines("/home/diego/sustantivos.txt");
+
+my @emojis = qw(😍 🥵 😈 👺 😭 😡 👹 👿 💟 💋 💝 💞 💘 💟 👅 🫦 😱 🌈 🎗️ 🏳️‍🌈 );
+my @adjetivos = ("coño", "mierda", "hostia", "joder", "mi vida", "putin");
+
+my $verbo = $verbos[int(rand(@verbos))];
+chomp($verbo);
+my $sus = $sustantivos[int(rand(@sustantivos))];
+chomp($sus);
+my $emoji = $emojis[int(rand(@emojis))];
+my $emoji2 = $emojis[int(rand(@emojis))];
+my $emoji3 = $emojis[int(rand(@emojis))];
+my $adj = $adjetivos[int(rand(@adjetivos))];
+
+say "cuando me vas a $verbo mi $sus de $adj $emoji $emoji2 $emoji3";

perl/fsg/sustantivos.txt

@@ -0,0 +1,152 @@
+coño
+requeté
+mierda
+inocencia
+guitarra
+anime
+vida
+huevo
+whitemaster
+fernando
+terminal
+pleroma
+perro
+pussy
+conejo
+ordenador
+linux
+triphop
+maestro
+raton
+stand
+neurona
+hiyab
+excremento
+pokemon
+sewerslvt
+noise rock
+reggaeton
+shoegaze
+power electronics
+viper
+geometry dash
+the impossible game
+complutense
+rodway
+naruto
+talamasca
+doraemon
+peyotl
+1200 micrograms
+goreshit
+triana
+manglis
+mamut
+salamanca
+grasa
+freebsd
+openbsd
+dimetiltriptamina
+kabuto makai
+lain
+zampakuto
+joseph joestar
+ayahuasca
+lsd
+mayas
+shizuke
+sasuke
+arte flamenco
+tony el gitano
+acido lisergico
+bola de dragon
+mariko goto
+copeo
+solaris
+extreme demon
+9/11
+hirohito
+rayquaza
+zahori
+gilgamesh
+carlomagno
+daddy yankee
+ramleh
+arpaviejas
+black sabbatch
+akvvma
+danny brown
+burzum
+jpegmafia
+death's dynamic shroud
+hacienda
+def leppard
+devon hendryx
+death grips
+daft punk
+dj screw
+echochamber
+derek and the dominos
+thunderbird
+xmpp
+fediverso
+porro
+marihuana
+hachis
+papel de liar
+mechero
+grinder
+taza
+ordenador
+pantalla
+monitor
+stand vesa
+frasco
+navaja suiza
+raton
+goreshit
+gerogerigegege
+extremoduro
+future
+pink floyd
+whitehouse
+yung beef
+teclado mecanico
+osaka
+horna
+madvillain
+manglis
+manglis compas machine
+guadalquivir
+arrajatabla
+manteca
+flaco gadafi
+burger king
+megadeth
+meiko kaji
+portishead
+robe
+satanic warmaster
+scattle
+perturbator
+carpenter brut
+soundgarden
+badmotorfinger
+badmotorgadafinga
+stalin
+kan mikami
+children of the corn
+three 6 mafia
+koopsta knicca
+lord infamous
+juicy j
+dj paul
+gangsta boo
+denzel curry
+mf doom
+daniel dumille
+madlib
+otis jackson jr
+freddie gibs
+quasimoto
+leviticus