Codigo Sapart Para Administradores MiChats.cl

MENU nicklist {
  -
  Sapart: set %part.nick $snicks | sapart_
}
alias sapart_ { dialog -m sapart sapart }
dialog sapart {
  title "Sapart"
  size 20 20 190 135
  button "¡¡Sacar!!",1,5 105 180 25,default
  list 2,5 5 180 100,extsel,sort
  button "¡¡Listo!!",3,5 5 180 125,ok
}
on 1:dialog:sapart:INIT:0:{
  did -h sapart 3
  .disable #whoix
  .enable #sapart
  whois %part.nick
}
on 1:dialog:sapart:SCLICK:1:{
  %part.num = $did(sapart,2,0).sel
  if (%part.num == 0) { return }
  if (%part.num > 1) {
    while (%part.num > 0) {
      sapart %part.nick $did(sapart,2,%part.num).text
      dec %part.num
    }
  }
  else { sapart %part.nick $did(sapart,2,$did(sapart,2).sel).text }
  did -h sapart 1,2
  did -v sapart 3
}
#sapart off
raw 319:*:{
  set %part.chan 1
  while (%part.chan <= $count($3-,$chr(32))) {
    did -a sapart 2 $remove($gettok($3-,%part.chan,32),$chr(126),$chr(63),$chr(64),$chr(43))
    inc %part.chan
  }
  halt
}
raw 318:*:{ .enable #whoix | .disable #sapart | halt }
raw 379:*:{ halt }
raw 378:*:{ halt }
raw 307:*:{ halt }
raw 312:*:{ halt }
raw 313:*:{ halt }
raw 310:*:{ halt }
raw 335:*:{ halt }
raw 317:*:{ halt }
raw 306:*:{ halt }
#sapart end 

Código creado para administradores del servidor irc.michats.cl