callback

85thday · Senior Member Joined: 20 Jan 2004 Posts: 260

i know this will be easy but i have made a .bar as in a bar where you buy dtinks and 3 commands a .barmenu however the command are going to .menu some 1 said something about a call back command so can some 1 help and befor *lazy* start heres a bar chatroom command and better pet commands

sub bar
{
my ($bot, $self, $user, $msg) = @_;

my $user_settings = $bot->{users}->{$user};
my $msn = $bot->{msn};
my $settings = $bot->{settings};

# command body here.
if ($msg eq '')
{
$user_settings->{callback} = "bar";
return "(*) 4Type 'accept'to accept to These Rules (*).

4*all the chat rooms rules apply how ever yuo can use .barmenu dont flood it though thanks";
}
elsif ($msg eq 'accept')
{
$user_settings->{callback} = "";
if (!exists $bot->{chatroom} or !exists $bot->{msn}->{Socks}->{$bot->{bar}->{fn}} ) {
$bot->{bar} = $self;
$self->{settings}->{Silent} = 1;
return "4This Is Now The Bar.";
}
elsif ($self eq $bot->{bar})
{
return "(B) 4Your In the bar. (B)";
}
else
{
$bot->{bar}->invite($user);
return "(*) 4Your Being Transfered To The bar Now (*)";
}
}
else
{
$user_settings->{callback} = "";
return "4Sorry You MUST Agree The Rules Type 'accept' To Accept The Above Rules";
}

}

{
Category => 'chat rooms',
Description => 'enjoy a few drinks',
};
this makes *lazy* a barchat room and pets will b ziped

Porto · Senior Member Joined: 07 Jan 2004 Posts: 152

very nice

lol Please Putt It In the Code Tag when you submit a code Wink

jonphamta · Senior Member Joined: 20 Jan 2004 Posts: 247

For those of you who find it hard to read Razz

eric256 · Posted: Sat Mar 06, 2004 3:27 am Post subject:

or for those that like indented code

JoeX · Agent Joined: 02 Jan 2004 Posts: 2153

i like erics bestest

HELP US, HELP YOU!