on *:TEXT:*:$comchan($me,1-) {
if (*banana* iswm $1-) {
var %i 1
while(%i <= $read(ate.txt).lines) {
if ($replace($1-,*banana*,banana,) !iswm $read(ate.txt,%i)) {
/write ate.txt $nick ate $replace($1-,*banana*,banana)
}
inc %i
}
elseif (*fish* iswm $1-) {
var %i 1
while(%i <= $read(ate.txt).lines) {
if ($replace($1-,*fish*,fish) !iswm $read(ate.txt,%i)) {
/write ate.txt $nick ate $replace($1-,*fish*,fish)
}
inc %i
}
}
}
}
Last edited by pheonix; 28/05/03 05:41 PM.