#!/bin/perl

use strict;

use Forum::Posting qw ( -ernest, &logged_in );
use Humor::Lite qw ( :all, -sometimes, HAPPY );
use Forum::support qw( :all );

use Date::Functions qw( &now );

use vars qw (
   $user, 
   $humorlevel, &lasthumor_level
   $support, 
   &make_joke 
);

while (1) {
    $user = logged_in( now() );

    exit ("help! i am so alone heren *sniff*") if !$user;
    
    if ($user && $humorlevel > 5 ) {
        &make_joke( $humorlevel++ );    
    } else {
        if ( &lasthumor_level > 2 ) { make_joke() && return ( HAPPY ); }
        $support++;
        goto helpline
    }
}

helpline: {
    if ( useris( $user) == 'newbie' ) { helphim( $user ) }
    else { &make_cash ( 100 ); }
}

1;