Code:
 on *:text:*:#:{
.msg $chan $reply $1-
}
on *:action:*:#:{
describe $chan $reply $1-
}
alias reply {
$nickvar %entry = $1-
while %entry {
var %answer = $gettok($read(data.txt,w,$gettok(%entry,1,32)),-1,42)
return $iif(%answer,$v1)
var %entry = $remtok(%entry,$gettok(%entry,1,32),1,32)
}
}


Warning...if this is used as is, by a lot of people, the bot might flood the server

Last edited by RusselB; 31/12/05 08:32 PM.