hi is there like a .pl file for andromeda for this, im still waiting for some one to explain where i paste this and how. is that the finished code if not can some one post it for me, much appreciated
hi is there like a .pl file for andromeda for this, im still waiting for some one to explain where i paste this and how. is that the finished code if not can some one post it for me, much appreciated
Answer - You should know this by now.... Define it... e.g.
Code:
if (defined $chat) {<br /> if ($self eq $chat) {<br /> return;<br /> }<br />}
The bot would do nothing then... apart from invite and welcome people..
Quote:
How do i make the bot do a welcome message?
This is a tricky one... You may wanna use sleep... the bot's doing it, BUT messaging before you're invited..
e.g.
Code:
elsif($msg =~ /^\!chat/)<br /> {<br /> if (!defined $chat) { <br /> $chat = $self;<br /> $chat->sendmsg("The chatroom is empty, this conversation is now the chatroom!",Font => "Tahoma",Color => '663300',Effect => "B");<br /> $chatters++;<br /> $self->sendmsg("Chat: $username has started chat. $chatters in room\n");<br /> open (DATA, ">>logs/chat.txt");<br /> print DATA "Room created by $username - " . localtime() . "\n\n";<br /> close(DATA);<br /> } else {<br /> $self->sendmsg("Please wait. You are being invited to the chatroom", "$username",Font => "Tahoma",Color => '999900',Effect => "B");<br /> $chat->send("CAL", "$victim"); <br />sleep(3);<br />$chat->sendmsg("Welcome to the chatroom!");<br /> }
User Control Panel
)
