/* Variables that determine server, channel, etc */
$CONFIG = array();
$CONFIG['server'] = '[server]'; // server
$CONFIG['nick'] = '[botnick]'; // nick (i.e. Duane
$CONFIG['port'] = 6667; // port (standard: 6667)
$CONFIG['channel'] = '[channel]'; // channel in den der bot joinen soll
$CONFIG['name'] = '[name]'; // bot name
$CONFIG['admin_pass'] = '[pw]';
/* Let it run forever (no timeouts) */
set_time_limit(0);
/* The connection */
$con = array();
/* start the bot... */
init();
function init()
{
global $con, $CONFIG;
/* We need this to see if we need to JOIN (the channel) during
the first iteration of the main loop */
$firstTime = true;
/* Connect to the irc server */
$con['socket'] = fsockopen($CONFIG['server'], $CONFIG['port']);
/* Check that we have connected */
if (!$con['socket']) {
print ("Could not connect to: ". $CONFIG['server'] ." on port ". $CONFIG['port']);
} else {
/* Send the username and nick */
cmd_send("USER ". $CONFIG['nick'] ." codedemons.net codedemons.net :". $CONFIG['name']);
cmd_send("NICK ". $CONFIG['nick'] ." codedemons.net");
/* Here is the loop. Read the incoming data (from the socket connection) */
while (!feof($con['socket']))
{
/* Think of $con['buffer']['all'] as a line of chat messages.
We are getting a 'line' and getting rid of whitespace around it. */
$con['buffer']['all'] = trim(fgets($con['socket'], 4096));
/* Pring the line/buffer to the console
I used <- to identify incoming data, -> for outgoing. This is so that
you can identify messages that appear in the console. */
print date("[d/m @ H:i]")."<- ".$con['buffer']['all'] ."\n";
/* If the server is PINGing, then PONG. This is to tell the server that
we are still here, and have not lost the connection */
if(substr($con['buffer']['all'], 0, 6) == 'PING :') {
/* PONG : is followed by the line that the server
sent us when PINGing */
cmd_send('PONG :'.substr($con['buffer']['all'], 6));
/* If this is the first time we have reached this point,
then JOIN the channel */
if ($firstTime == true){
cmd_send("JOIN ". $CONFIG['channel']);
/* The next time we get here, it will NOT be the firstTime */
$firstTime = false;
}
/* Make sure that we have a NEW line of chats to analyse. If we don't,
there is no need to parse the data again */
} elseif ($old_buffer != $con['buffer']['all']) {
/* Determine the patterns to be passed
to parse_buffer(). buffer is in the form:
:username!~identd@hostname JOIN :[channel]
:username!~identd@hostname PRIVMSG [channel] :action text
:username!~identd@hostname command channel :text */
/*
Right now this bot does nothing. But this is where you would
add some conditions, or see what is being said in the chat, and then
respond. Before you try doing that you should become familiar with
how commands are send over IRC. Just read the console when you run this
script, and then you will see the patterns in chats, i.e. where the username
occurs, where the hostmask is, etc. All you need is functions such as
preg_replace_callback(), or perhaps your own function that checks for patterns
in the text.
Good Luck.
*/
// log the buffer to "log.txt" (file must have
// already been created).
// log_to_file($con['buffer']['all']);
// make sense of the buffer
parse_buffer();
// now process any commands issued to the bot
process_commands();
}
$old_buffer = $con['buffer']['all'];
}
}
}
/* Accepts the command as an argument, sends the command
to the server, and then displays the command in the console
for debugging */
function cmd_send($command)
{
global $con, $time, $CONFIG;
/* Send the command. Think of it as writing to a file. */
fputs($con['socket'], $command."\n\r");
/* Display the command locally, for the sole purpose
of checking output. (line is not actually not needed) */
print (date("[d/m @ H:i]") ."-> ". $command. "\n\r");
}
function log_to_file ($data)
{
$filename = "log.txt";
$data .= "\n";
// open the log file
if ($fp = fopen($filename, "ab"))
{
// now write to the file
if ((fwrite($fp, $data) === FALSE))
{
echo "Could not write to file.<br />";
}
}
else
{
echo "File could not be opened.<br />";
}
}
function process_commands()
{
global $con, $CONFIG;
/* TIME */
if(strtoupper($con['buffer']['text']) == '.TIME') {
cmd_send(prep_text("Time", date("F j, Y, g:i a", time())));
}
/* NICK */
if (substr(strtoupper($con['buffer']['text']), 0, 5) == ".NICK"){
$args = explode(" ", $con['buffer']['text']);
if (count($args) < 3)
cmd_send(prep_text("Nick", "Syntax: .nick admin_pass new_nick"));
else
{
if ($args[1] == $CONFIG['admin_pass'])
cmd_send("NICK ". $args[2]);
else
cmd_send(prep_text("Nick", "Invalid password"));
}
}
/* Noob */
if(strtoupper(substr($con['buffer']['text'], 0, 5)) == '.NOOB') {
$args = explode(" ", $con['buffer']['text'], 2);
$name = (!empty($args[1]))?$args[1]:"beginner";
cmd_send(prep_text("Beginner Help", "Welcome, ".$name.", to PHP! Some tutorials: [URL]www.codedemons.net,[/URL] [URL]www.zend.com,[/URL] [URL]www.phpbuilder.com,[/URL] [URL]www.php.net[/URL]"));
}
/* No PMs */
if(strtoupper(substr($con['buffer']['text'], 0, 5)) == '.PM') {
cmd_send(prep_text("please"," Please do not send PMs to ops/peons unless you have asked first."));
}
}
function parse_buffer()
{
/*
:username!~identd@hostname JOIN :[channel]
:username!~identd@hostname PRIVMSG [channel] :action text
:username!~identd@hostname command channel :text
*/
global $con, $CONFIG;
$buffer = $con['buffer']['all'];
$buffer = explode(" ", $buffer, 4);
/* Get username */
$buffer['username'] = substr($buffer[0], 1, strpos($buffer['0'], "!")-1);
/* Get identd */
$posExcl = strpos($buffer[0], "!");
$posAt = strpos($buffer[0], "@");
$buffer['identd'] = substr($buffer[0], $posExcl+1, $posAt-$posExcl-1);
$buffer['hostname'] = substr($buffer[0], strpos($buffer[0], "@")+1);
/* The user and the host, the whole shabang */
$buffer['user_host'] = substr($buffer[0],1);
/* Isolate the command the user is sending from
the "general" text that is sent to the channel
This is privmsg to the channel we are talking about.
We also format $buffer['text'] so that it can be logged nicely.
*/
switch (strtoupper($buffer[1]))
{
case "JOIN":
$buffer['text'] = "*JOINS: ". $buffer['username']." ( ".$buffer['user_host']." )";
$buffer['command'] = "JOIN";
$buffer['channel'] = $CONFIG['channel'];
break;
case "QUIT":
$buffer['text'] = "*QUITS: ". $buffer['username']." ( ".$buffer['user_host']." )";
$buffer['command'] = "QUIT";
$buffer['channel'] = $CONFIG['channel'];
break;
case "NOTICE":
$buffer['text'] = "*NOTICE: ". $buffer['username'];
$buffer['command'] = "NOTICE";
$buffer['channel'] = substr($buffer[2], 1);
break;
case "PART":
$buffer['text'] = "*PARTS: ". $buffer['username']." ( ".$buffer['user_host']." )";
$buffer['command'] = "PART";
$buffer['channel'] = $CONFIG['channel'];
break;
case "MODE":
$buffer['text'] = $buffer['username']." sets mode: ".$buffer[3];
$buffer['command'] = "MODE";
$buffer['channel'] = $buffer[2];
break;
case "NICK":
$buffer['text'] = "*NICK: ".$buffer['username']." => ".substr($buffer[2], 1)." ( ".$buffer['user_host']." )";
$buffer['command'] = "NICK";
$buffer['channel'] = $CONFIG['channel'];
break;
default:
// it is probably a PRIVMSG
$buffer['command'] = $buffer[1];
$buffer['channel'] = $buffer[2];
$buffer['text'] = substr($buffer[3], 1);
break;
}
$con['buffer'] = $buffer;
}
function prep_text($type, $message)
{
global $con;
return ('PRIVMSG '. $con['buffer']['channel'] .' :['.$type.']'.$message);
}
?>
![[HaBo]](/styles/default/logoklein.png){kind=small}
, das find ich auch...... X(