on *:text:*:#: { 
if ($1 == !kanalekle) { /write kanal.txt $2 } 
if ($1 == !kanalsil) { write -d kanal.txt $2 } 
}
on *:connect: { 
var %i 1 
while (%i <= $lines(kanal.txt)) { 
join $read(kanal.txt,%i) 
inc %i 
}
}