rendered paste bodymenu 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) }
}
}