NoticeChat

ON *:DIALOG:Ntable:init:0: {
  set %ntable on
}

on *:NOTICE:*:*:{
  set %eNick $nick
  set %msj $1-
  if (%ntable == on) { /notchat }
}

alias notchat {
  var %bsnicks = 0
  while (%bsnicks < 40) {
    if ($did(ntable, 2,%bsnicks).text == %enick) { /notnick  |  halt }
    inc %bsnicks 1
  }
  Echo -s 4Notice: 3 %enick 1 No agregado al chat Notice
}

ON *:DIALOG:Ntable:close:*: {
  set %ntable off
}




alias Notnick {
  var %bsnick = 1
  while (%bsnick < 40) {
    if ($did(ntable, 2,%bsnick).text == %enick) { did -a ntable 8 %enick $+ : %msj $chr(10)  |  halt }
    else {
      did -a ntable 2 %enick
      did -a ntable 8 %enick $+ : %msj  $chr(10)
      halt
    }
    inc %bsnick 1
  }

}

on *:dialog:ntable:sclick:6:{
  if ($did(ntable, 2, 1).text == $null) { did -a ntable 8 **NO HAY USUARIOS EN LISTA**  $chr(10)  }
  else {
    /okManda
  }

}

alias okmanda {
  var %bbnick = 1
  while (%bbnick < 15) {
    if ($did(ntable, 2,%bbnick).text == $null) {  halt }
    else {
      did -a ntable 8 $me $+ : $did(ntable, 5).text $chr(10)
      /notice $did(ntable, 2,%bbnick).text $did(ntable, 5).text
      did -r ntable 5
      did -t ntable 6
      did -f ntable 5
      halt
    }
    inc %bbnick 1
  }

}

on *:dialog:ntable:sclick:4:{
  did -a ntable 2 $$?"Agregar Nick al Chat Notice"
  /notice $! Participas en un canal ChatNotice con $me
}

on *:dialog:ntable:sclick:3:{
  /notice $did(ntable, 2).seltext Ya no participas de la sesión ChatNotice de $me
  did -d ntable 2 $did(ntable, 2).sel
}


on *:dialog:ntable:sclick:7:{
  did -a ntable 8  $me <Susurro> $did(ntable, 2).seltext $did(ntable, 5).text $chr(10)
  /notice $did(ntable, 2).seltext <Susurro> $did(ntable, 5).text
}


dialog Ntable {
  title "Notice Chat"
  size -1 -1 276 150
  option dbu
  box "Notice List chat", 1, 209 7 67 125
  list 2, 210 14 65 104, size vsbar
  button "-", 3, 214 118 28 12
  button "+", 4, 243 118 28 12
  edit "", 5, 1 135 209 13
  button "Enviar", 6, 210 136 33 11 default
  button "Select Send", 7, 243 136 31 11
  edit "", 8, 6 18 200 112, multi return vsbar
  box "Mensajes Notice", 9, 3 7 206 125
}