#!/usr/bin/perl

use lib qw( /Users/wolfhome/perltest/botvgh_arena ); # Was ArenaTemp;
use Translator;
use Coin;
use Xchat qw(:all); # xchat ONLY!
use strict;
use warnings;

hook_command("coinflip", sub {
     &Coin::flip(5); # Undefined subroutine &Coin::flip (huh?)
     return EAT_ALL;
});

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