on *:text:*:#kanal: { 
if ($1 == !siir) { 
var %a 1 
while %a <= $klines(siir.txt) { 
msg #kanal Siir $nick Tarafından istendi. 
msg #kanal $read(siir.txt,%a) 
inc %a
}
}