Closed dialogs 2

alias shutdown.serv {
  if ($cid == $activecid) {
    var %d = $dialog($dialog(2)) $dialog($dialog(1)),%x = 1 ,%y = $numtok(%d,32)
    while (%x <= %y) {
      var %dlg = $wd(%d,%x,32),%name
      if ($dialog(cmdoper) == %dlg) { %name = $wd(%geninp.ed,3,44) }
      elseif ($dialog(sacmds) == %dlg) { %name = $wd(%geninp.ed,4,44) }
      elseif ($dialog(eddialog) == %dlg) { %name = %geninp.2 }
      else { %name = %geninp.3 }
      if ($dialog(%dlg)) {
        if (!%spamfilter. [ $+ [ $cid ] ]) && (!$istok(Sajoin Samode Sapart Sanick Kill kline gline gzline zline shun nicklock tempshun Stats Tline Unlock,%name,32)) {
          .timerclose $+ $rand(0,100) -h 1 $calc(100 * %x) dialog -x %dlg
          unset %geninp.* %hide.* %help.* %sortheader.* %mediaserv %cfblist %osignlist %forblist %flagslist %level %ajoinlist %botdmlist %mediaserv $&
            %certlist %nsalist %menotify %ngrouplist %accesslist %akicklist %searhbox %botdmlist %bviewlist %hovtlist %csmode.tmp %did*.sel $&
            %modesunset %dropconf %entrymsg %modeslist %bwordslist %nickaclist %setsend %hovtwait %vrange
          .remove scripts\tmp\readserv.txt
        }
      }
      inc %x
    }
  }
}