]>
iEval git - filters.git/blob - b1ff
3 # Copyright 1999 by Joey Hess under the terms of the GNU GPL.
5 # I use an array, not a hash. because order is important.
7 '\bEVERYONE\b' => 'EVRY 1',
8 '\bEVERYBODY\b' => 'EVRY BUDY',
16 '\bLINUX\b' => 'LINUS',
17 '\bUNIX\b' => 'THE MANEFRA1M O/S',
18 '\bWINDOWS\b' => 'WINDOWZ (IT RULEZ MAN!)',
19 '\bYOU\'RE\b' => 'YOUR',
22 '\bTHEY\'RE\b' => 'THE1R',
23 '\bTHEIR\b' => 'THERE',
25 '\bMACINTOSH\b' => 'IMAC', # too 90's?
26 '\bVERY\b' => 'TOTALLY',
27 '\bCOMPUTER\b' => 'VIC-20',
28 '\bWHETHER\b' => 'WHETHUR',
29 '\b(?:H|CR)ACKER\b' => 'KEWL HACKER D00D!',
32 '\bQUITE\b' => 'REAL',
33 '\bFREE\b' => 'FREE!',
49 '\b2TALLY\b' => 'TOTALY', # fix from line above
63 while (@trans_table) {
64 $key=shift @trans_table;
65 $value=shift @trans_table;
69 s/(\!+)/$1.make_exclimation()/eg;
70 s/(\?+)/$1.make_question()/eg;
71 s/I/rand 3 > 2 ? '1' : 'I'/eg; # change 1/3 of I's to 1's
76 s/\./$punct[int(rand 3)]/eg;
80 # b1ff can't hold down on shift too well!!!!!!!1!
81 sub make_exclimation
{
82 my $length=shift || int(rand 5);
86 if (! $last && int(rand 3) eq 2) {
98 # ask questions excitedly?!?!?!?!
100 my $length=shift || int(rand 5) + 1;
103 while (length($ret) < $length) {
104 if (! $last && int(rand 5) > 2) {
108 elsif (! $last && int(rand 5) > 3) {
This page took 0.054682 seconds and 4 git commands to generate.