menu status,channel,query,menubar {
  -
  [Memo Center]:/memo
  -
}
on ^*:NOTICE:*:?: {
  if ($nick == memoserv) && ($1 == memo) { set %borramemo $13 $14 $15 $16 | halt }
  if ($nick == memoserv) && (Tu nick no esta registrado isin $1-) { erroro | halt }
  if ($nick == memoserv) && (No tienes memos isin $1-) { did -a memox2 33 No tienes Memos }
  if ($nick == memoserv) && (Autentificacion por clave requerida isin $1-) { errort | halt }
  if ($nick == memoserv) && (intenta nuevamente isin $1-) { halt }
  if ($nick == memoserv) && (Tienes un nuevo memo de isin $1-) { llego | set %departede $6 | halt }
  if ($nick == memoserv) && (Tienes == $1) && (memo nuevo isin $3-) { llego | set %departede $6 | halt }
  if ($nick == memoserv) && (Memo == $1) && (de == $3) && (Para borrarlo tipea isin $10-) { llego | set %departede $4 | halt }
  if ($nick == memoserv) && ( $1 == memos ) && ( $2 == para ) { set %puramierd1 $1- | halt }
  if ($nick == memoserv) && ( $1 == num ) && ( $2 == de ) { set %puramierd2 $1- | halt }
  if ($nick == memoserv) && ( $1 == memo ) && ( $3 == de ) { set %puramierd3 $1- | halt }
  if ($nick == memoserv) && ($1 == Tipea) { set %leermemo $5 | halt }
  else { if ($nick == memoserv) && (%leewn == ON) { set %mensaje $1- | did -ra memox2 1 %mensaje | set %leewn OFF }
  }
  if ($nick == memoserv) && (%amemo == ON) && ( CL isin $7-) {
    did -a memox2 33 $replace($1-,%puramierd1,$chr(32),%puramierd2,$chr(32),%puramierd3,$chr(32),*,$chr(32))
    lector
    halt
    set %amemo OFF
  }
}

;; Alias;;
alias erroro { dialog -dm erroro erroro | dialog -s erroro -1 -1 265 100 }
alias errort { dialog -dm errort errort | dialog -s errort -1 -1 265 100 }
alias llego { dialog -dm memox memox }
alias info { dialog -dm info info }
alias memo { dialog -dm memox2 memox2 | unset %resendnick | unset %mensaje | did -ra memox2 1 | did -ra memox2 5 }
alias lector { did -ra memox2 1 $1- | set %leewn on }

;; Dialos¡gs;;
dialog erroro {
  title "ERROR."
  size -1 -1 270 207
  option pixels
  text "Tu Nick No Esta Registrado , Para Poder ver y mandar Memos Necesitas Registrarte", 1, 26 26 218 33
  box "ADVERTENCIA !!!", 2, 9 6 248 65
  button "Registrar Nick", 3, 162 74 84 25
  text "Password :", 4, 22 124 58 16
  text "E-Mail:", 5, 42 146 37 17
  box "Registro de Nick", 6, 9 105 247 65
  button "Enviar Registro", 7, 162 176 84 25
  edit "", 8, 85 121 130 21
  edit "", 9, 85 144 130 21
  text "IRC.CL", 10, 15 183 50 16
}
dialog errort {
  title "ERROR."
  size -1 -1 270 192
  option pixels
  text "Deves Identificar Tu Nick Para Poder Enviar y leer Memos", 1, 26 26 218 33
  box "ADVERTENCIA !!!", 2, 9 6 248 65
  button "Identificar Now", 3, 162 74 84 25
  text "Clave :", 4, 24 127 58 16
  box "Identificador de Nick XD", 6, 9 105 247 50
  button "Enviar Registro", 7, 162 162 84 25
  edit "", 8, 87 124 130 21
  text "IRC.CL", 10, 15 169 50 16
}
dialog memox {
  title "Advertencia."
  size -1 -1 90 43
  option dbu
  text "A llegado 1 Memo", 1, 21 11 49 8
  button "Leer", 2, 6 22 37 12
  button "Cerrar", 3, 46 22 37 12
  box "Memo Alert", 4, 2 2 86 38
}
dialog info {
  title "Acerca de Memo Center"
  size -1 -1 202 160
  option pixels
  text "Versión 0.001", 2, 19 31 87 16
  text "©2006 - 2006 xD Todos los Derechos Reservados.", 3, 19 53 152 31
  box "MEMO CENTER", 4, 10 8 182 140
  text "By [[STRipPEr]] ", 1, 100 97 80 16
  text "IRC.CL #MP3", 5, 99 117 81 16
  button "Cerrar", 6, 26 104 54 25
}

dialog memox2 {
  title "† Memo Center † [/memo]"
  size -1 -1 142 208
  option dbu
  tab "Memo Read", 4, 2 0 138 82
  text "Enviado Por:", 2, 7 70 31 8, tab 4
  button "Borrar", 6, 95 68 19 12, tab 4
  button "Cerrar", 3, 116 68 19 12, tab 4
  tab "Memo Send", 21
  button "Enviar", 22, 95 68 19 12, tab 21
  text "Enviar A:", 23, 7 70 31 8, tab 21
  edit "", 24, 116 69 20 10, disable tab 21
  edit %departede , 5, 42 69 50 10, tab 4
  edit %mensaje ,1, 5 18 132 49, tab 4 multi
  edit "", 25, 5 18 132 49, tab 21 multi return limit 462
  edit %resendnick , 26, 42 69 50 10, tab 21
  list 33, 6 97 130 94, size
  box "Memos List", 34, 3 87 136 109
  button "Resend", 27, 67 198 22 8
  button "Borrar", 28, 92 198 22 8
  button "^", 29, 117 198 22 8
  button "Leer", 30, 41 198 22 8
  menu "Archivo", 7
  item "Memos en Total", 8, 7
  item "Enviar un Memo", 9, 7
  item "Cerrar", 10, 7, ok
  menu "Opciones", 13
  menu "Notificaciones", 14, 13
  item "Todas", 15, 14
  item "Casi Todas", 16, 14
  item "Solo Nuevos", 17, 14
  item "No recivir", 18, 14
  item "Limite de Memos", 19, 13
  menu "Info", 11
  item "Acerca de", 12, 11
}

;; on weas;;
;;;;;;;MEMOX;;;;;;
on *:dialog:memox:*:*:{
  if ($did == 2) && ($devent == sclick) { ms READ $remove(%leermemo,) | set %leewn ON | dialog -x memox | if ($appactive == true) { dialog -x memox2 } | /.timer 1 2 dialog -dm memox2 memox2 }
  if ($did == 3) && ($devent == sclick) { dialog -x memox | set %leewn OFF | unset %mensaje }
}
on *:dialog:info:sclick:6:{ dialog -x info }
;;;;;;;MEMOX2;;;;;;;;
on *:dialog:memox2:*:*:{
  if ($did == 3) && ($devent == sclick) { dialog -x memox2 | set %leewn OFF | unset %mensaje | unset %departede }
  if ($did == 29) && ($devent == sclick) { did -r memox2 33 | dialog -s memox2 -1 -1 285 190 | did -u memox2 8 }
  if ($did == 3) && ($devent == sclick) { $remove(%borramemo,,) | dialog -x memox2 }
  ;;;;;;MEMOX2MENU;;;;;;;
  if ($did == 19) && ($devent == menu) { ms set limit $$?="Pon un numero entre 1 y 20:" }
  if ($did == 15) && ($devent == menu) { ms set notify on }
  if ($did == 12) && ($devent == menu) { info }
  if ($did == 9) && ($devent == menu) { did -f memox2 21 }
  if ($did == 16) && ($devent == menu) { ms set notify logon }
  if ($did == 17) && ($devent == menu) { ms set notify new }
  if ($did == 18) && ($devent == menu) { ms set notify off }
  if ($did == 25) && ($devent == edit) { var %x = 1, %t = 0 | while (%x <= $did($dname,$did).lines) { inc %t $len( $did($dname,$did,%x) ) | inc %x | did -ra memox2 24 $calc(462 - %t) } }
  if ($did == 22) && ($devent == sclick) {
    if ($did(memox2,25).text) && ($did(memox2,26).text) { ms SEND $did(memox2,26).text $did(memox2,25).text | //echo $input(Memo Enviado Satisfactoriamente :D,o,Enviado) }
    elseif (!$did(memox2,25).text) && ($did(memox2,26).text) { //echo $input(Falta el Mensaje,o,No Puede Ser Enviado) }
    elseif ($did(memox2,25).text) && (!$did(memox2,26).text) { //echo $input(Falta el Destinatario,o,No Puede Ser Enviado) }
    elseif (!$did(memox2,25).text) && (!$did(memox2,26).text) { //echo $input(Falta el Destinatario y el Mensaje xD,o,No Puede Ser Enviado) }
  }
  if ($did == 6) && ($devent == sclick) { ms DEL $gettok($did(33).seltext,1,32) | did -ra memox2 1 Memo Borrado | did -ra memox2 33 | unset %departede | ms list }
  if ($did == 28) && ($devent == sclick) { ms DEL $gettok($did(33).seltext,1,32) | did -ra memox2 1 Memo Borrado | did -ra memox2 33 | unset %departede | ms list }
  if ($did == 27) && ($devent == sclick) { set %resendnick $gettok($did(33).seltext,2,32) | did -f memox2 21 | did -ra memox2 26 %resendnick }
  if ($did == 30) && ($devent == sclick) { set %leermemo $gettok($did(33).seltext,1,32) | set %departede $gettok($did(33).seltext,2,32) | did -ra memox2 5 %departede | ms READ %leermemo | set %leewn ON | did -ra memox2 1 %mensaje | halt }
  if ($did == 8) { if ($did(memox2,8).state) { dialog -s memox2 -1 -1 285 190 | did -u memox2 8 }
  else { dialog -s memox2 -1 -1 285 435 | did -c memox2 8 | did -r memox2 33 | ms list | set %amemo ON } }
  if ($devent == init) { if (%amemo == ON) { dialog -s memox2 -1 -1 285 190 | did -u memox2 8 } }
  if ($devent == dclick) && ($did == 33) { set %leermemo $gettok($did(33).seltext,1,32) | set %departede $gettok($did(33).seltext,2,32) | did -ra memox2 5 %departede | ms READ %leermemo | set %leewn ON | halt }
}
;;;;;;;ERRORES;;;;;;;;
on *:dialog:errort:*:*:{
  if ($did == 7) && ($devent == sclick) { ns identify $did(errort,8).text | dialog -x errort }
  if ($did == 3) && ($devent == sclick) { dialog -s errort -1 -1 265 200 }
}
on *:dialog:erroro:sclick:3:{ dialog -s erroro -1 -1 265 210 }
on *:dialog:erroro:sclick:7:{
  if ($did(erroro,8).text) && ($did(erroro,9).text) { ns register $did(erroro,8).text $did(erroro,9).text }
  elseif (!$did(erroro,8).text) && ($did(erroro,9).text) { //echo $input(Falta la Clave,o,No se Puede Registrar) }
  elseif ($did(erroro,8).text) && (!$did(erroro,9).text) { //echo $input(Falta el Mail,o,No se Puede Registrar) }
  elseif (!$did(erroro,8).text) && (!$did(erroro,9).text) { //echo $input(Falta la Clave y el Mail,o,No se Puede Registrar) }
}
}