;Standard SMS-SenD de comunicacin by-direccional mediante ctcp's.


================================================================================
;****Parte 1: Implementacin y uso de los alias SMS-SenD:
;alias de envo directo (para hacer uso de l como comando):
enviarsmssld {
;nick destino:
  var %destsms $$?="Introduce nick a enviar el sms:"
;contenido del SMS-SenD:
  var %textsms $$?="Introduce el texto:"
;llamada al smssending (reconocimiento del SMS-SenD):
  .ctcp %destsms smssending %nimov = %textsms
}
;alias para envo desde el dilogo -ver parte 3 del presente archivo-:
prsmsend {
;texto del SMS-SenD:
  var %textsms $$?="Introduce el texto:"
;llamada al smssending:
  .ctcp %prsmsnick smssending %nimov = %textsms
;para uso interno del theme XTS del h@ckScripT:
  echo -d $xts_infod Mensaje: " $+ %textsms $+ "  enviado a:  %prsmsnick 
;liberacin de variables:
  unset %prsmsnick
}
================================================================================
;***Parte 2: Implementacin, envo y recogida de los CTCP's SMS-SenD:
;llega el ctcp:
ctcp 1!:*: {
;si es un smssending con standard SMS-SenD:
    if ($1 == smssending) { 
;Se recoge el nick que lo enva y se formatea el mensaje para visualizar:
      set %smtodtx $upper($nick) $deltok($1- $+ ,1,32)
;Se lanza el visualizador SMSSEND del h@ckScripT (para tratamiento interno):
      smssend | haltdef
    }
================================================================================
;****Parte 3: Cdigo de ejemplo de un dialog en el standard (dilogo de respuesta y visualizacin del h@ckScripT)
;inicialiacin del dilogo:
alias smssend {
  if ($dialog(smssend) != $null) { dialog -x smssend | dialog -mo smssend smssend }
  else dialog -mo smssend smssend
}
;dibujo de la tabla:
dialog smssend {
  title "Motorola 288"
  size -1 -1 75 209
  option dbu
  icon 1, 1 0 73 197, $mircdirSmssend\timeport288.jpg, noborder
  edit "", 2, 11 63 51 47, multi return vsbar
  button "Responder", 3, 0 200 35 8, flat
  button "&Cerrar", 4, 46 200 28 8, flat
  button "&Hide", 5, 0 0 0 0, hide Ok
}
;evento on load: Se carga el mvil y se actualiza el theme con el standard XTS (nota: todo ello es para uso interno del h@ckScripT, no es propiedad del standard SMS-SenD):
on *:LOAD: {
  set %nimov Motorola 288
  set %venbox Nuevo mvil cargado con xito, felicidades.
  ventanbox
  unset %venbox
  echo -a $xts_infop Mvil -MOTOROLA- versin -288- cargado y listo para utilizar.
}
;inicializador del cargador del dilogo: se actualiza el mvil (para uso interno del h@ckScripT): y se incorpora en la ventana la informacin que contiene la variable %smtodtx, que es la que contiene el mensaje SMS-SenD)
on *:dialog:smssend:init:0:{
  set %nimov Motorola 288
  did -ra smssend 2 %smtodtx
}
;botn responder: se incorpora a la variable %prsmsnick el nick de respuesta. Se cierra el dilogo y se cede el control al alias de envo llamado "prsmsend"
on *:dialog:smssend:sclick:3:{
  set %prsmsnick $gettok(%smtodtx,1,32)
  dialog -x smssend
  unset %smtodtx
  prsmsend
}
;Botn de cierre, se limpia la variable del mensaje SMS-SenD
on *:dialog:smssend:sclick:4:{
  unset %smtodtx
  dialog -x smssend
}
;para uso interno del h@ckScripT
on *:dialog:smssend:dclick:1:{
  did -h smssend 2
}
;****Fin parte 3
================================================================================
Notas importantes: 
Los comandos del standard deben respetarse (tanto alias como el testigo de llegada "smssending" que es la llamada SMS-SenD, para mantener el standard, de lo contrario, el standard no funcionara).
Los dems comandos y utilizacin -como los internos, bloqueos etc.- pueden modificarse a voluntad para adaptarse al script deseado.