Leser: 1
![]() |
|< 1 2 3 >| | ![]() |
26 Einträge, 3 Seiten |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
#!/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;
![]() |
|< 1 2 3 >| | ![]() |
26 Einträge, 3 Seiten |