Something

public text v1 · immutable

#517972

·published 2007-05-29 05:24 UTC

#!/usr/bin/perl
# coin_x.pl
use lib qw( /Users/wolfhome/perltest/botvgh_arena ); # Was ArenaTemp;
use Translator;
use Coin;
use Xchat; # xchat ONLY!
use strict;
use warnings;

Xchat::register("coin_x", "0.5", "One shot coin testing.");

Xchat::command("say " . Coin::flip(5)); # Undefined subroutine &Coin::flip (huh?)