Help for this page

Select Code to Download


  1. or download this
    C:\pro3>perl -MText::Autoformat -e '$_=join" ",(@ARGVx50;s/!/"!"x[1..5
+]->[rand(5)]/eg;print autoformat $_' 'I WIN!' 'YOU LOSE!'
  2. or download this
    C:\pro3>perl -MText::Autoformat -e "$_=join\" \",(@ARGV)x50;s/!/\"!\"x
+[1..5]->[rand(5)]/eg
;print autoformat $_" "I WIN!" "YOU LOSE!"
...
LOSE!!!! I WIN! YOU LOSE! I WIN!!! YOU LOSE!!!! I WIN!! YOU LOSE!!!!! 
+I
WIN!!! YOU LOSE! I WIN! YOU LOSE! I WIN!! YOU LOSE! I WIN! YOU LOSE!!!
+ I
WIN!!!!! YOU LOSE!!!!! I WIN!! YOU LOSE!!!