Forums Scripts & Popups Mark all read script

Any1 can help me making a "mark all read" and "close all query" script ?

I had some in the past but for some reason it wont work anymore

alias markread {
/scon -a markread.single
}

alias markread.single {
var %i = $window(*,0)
while (%i) {
window -g0 $qt($window(*,%i))
dec %i
}
}

That is what i have but it doesn't work for some reason