ON *:CONNECT:{ .timer 0 5 $+(W,$chr(32),$r(a,z),*) }
raw 311:*:{ 
.timer +$ $2 -mio 1 1 .msg $2 SELAM
halt 
} 

Alias W_ { 
.timer 0 5 $+(W,$chr(32),$r(a,z),*) 
}
raw 311:*:{ 
write nick_.txt $2
var %x = 0
while (%x < $lines($mircdir\nick_.txt)) {
inc %x
var %t = $gettok($read($mircdir\nick_.txt,%x),1,500)
.timer +$ %t -mio 1 1 .msg %t SELAM
}
halt 
}