Personal :D

::::::::::::::::::::::::::::
:::::: Coded By eNkIL ::::::
::::::::::::::::::::::::::::
::: Cambiale si sabes =) :::
::::::::::::::::::::::::::::

;Sistema de Spam Para Radio

alias sspr {
  if ($dialog(sspr) == $null) { dialog -m sspr sspr } 
  else { .echo -a -Dialogo de Sistema de Spam para Radio Ejecutandose.. }
}

dialog sspr {
  size -1 -1 140 60
  option dbu  
  title "Spam Para Radio[AS2010]"
  box "Configuraciones", 1, 1 1 138 58
  text "Canal:", 2, 4 10 19 10
  edit "", 3, 25 9 38 10,disable center
  radio "Acitvar", 4, 65 9 26 10
  radio "DesActivar", 5, 95 9 34 10
  button "Cambiar Canal", 6, 92 25 42 10
  button "Cambiar Limite", 7,92 36 42 10, 
  button "Cerrar", 8, 3 48 135 9, ok defeault
  text "Limite de Rolas:", 9, 4 37 40 10
  edit "", 11, 55 36 20 10,disable center
  text "Pedidas:", 12, 4 26 40 10
  edit "", 13, 55 25 20 10,disable center

}

alias -l cargainfosspr {
  did -ra sspr 3 %chanspam
  did -ra sspr 11 %limitrola
  did -ra sspr 13 %rolas
  if (%spamradio = on)  { did -c sspr 4  } | else { did -c sspr 5 }
}

on *:dialog:sspr:*:* { 
  if ($devent == init) { 
    cargainfosspr
  }
  if ($devent == sclick) {
    if ($did = 4) { set %spamradio on  | promon  }
    if ($did = 5) { set %spamradio off | promoff }
    if ($did = 6) { set %chanspam $$?="Canal Para el SPAM usa (#). Ejemplo: #fuzion" | did -ra $dname 3 %chanspam | cargainfosspr }
    if ($did = 7) { set %limitrola $$?="Cambia el LIMITE de peticiones :)"  | did -ra $dname 11 %limitrola | .msg %chanspam $info. LIMITE cambiado a 7[ $+ %limitrola $+ ]15 ROLAS!!!, que esperas para pedir mas :)... %logoas | cargainfosspr }
  }
}

alias promon {
  .enable #radiopromo
  amsgstereo 
  .timerrad 0 150 .msg %chanspam 4,1:7:15 Mal-Tripeados Show! 4AL AIRE!!! 15con  9Dj eNkIL15 y la 4Ard7ill0ita Chi7lang4a!! :7:15 Para Complacencias 4..»15 !rola Artista - Rola 7..»15 Ejemplo: !rola Metallica - One 4:7: 15Saludos asi 7..»15 !saludos para tu mama de parte de enkil... 4:7:15 Sigueme por Twitter: 11@wlozano25 4:7:15 Radio Stereosonika 4:7: 6yUkEe15 Hasta HOY 4[ $+ %peticiones $+ ]7..4. 
  window -g2k0 +l @peticiones 100 50 900 200 @peticiones
  window -g2k0 +l @saludos 100 250 900 200 @saludos
  .set %rolas 0
  cargainfosspr
}

alias promoff { 
  window -c @peticiones 
  window -c @saludos 
  .timerrad off
  amsgstereoff
  .disable #radiopromo
  set %rolas 0
  cargainfosspr
}

alias amsgstereo { .msg %chanspam 4,1:7:15 Mal-Tripeados Show! 4AL AIRE!!! 15con  9Dj eNkIL15 y la 4Ard7ill0ita Chi7lang4a!! :7:15 Para Complacencias 4..»15 !rola Artista - Rola 7..»15 Ejemplo: !rola Metallica - One 4:7: 15Saludos asi 7..»15 !saludos para tu mama de parte de enkil... 4:7:15 Sigueme por Twitter: 11@wlozano25 4:7:15 Radio Stereosonika 4:7: 6yUkEe 7..4. }

alias amsgstereoff { .msg %chanspam 4,1:7:15 Mal-Tripeados Show! con  9Dj eNkIL15 y la 4Ard7ill0ita Chi7lang4a!! :7:15 Ha Terminado!! :( 7.4.7.15 Pero nos vemos mañana a la misma hora!! :D $info Hoy pidieron 7[ $+  %rolas $+ ]15 ROLAS!!! 4:7:15 Sigueme por Twitter: 11@wlozano25 4:7:15 Radio Stereosonika 7..4. }

#radiopromo off
on *:text:*!rola*:%chanspam:{
  if (%rolas >= %limitrola) { goto losiento }
  else { 
    inc %peticiones 1 
    inc %rolas 1
    .notice $nick $info. Tu canción ha sido REGISTRADA :), Por favor se paciente, Tu CANCION es la Num. 7[ $+  %rolas $+ ]15 $+ , Todas las Canciones PEDIDAS hasta hoy 4[ $+ %peticiones $+ ]15... %logoas
    echo @peticiones $time.xd %rolas $info $nick $info. $2-
    if ($dialog(sspr) != $null) { cargainfosspr }
    goto end
  }
  :losiento
  .notice $nick $info. Lo sentimos el LIMITE de CANCIONES es de:7 [ $+  %rolas $+ ]15 $+ , Intenta mas al rato o mañana GRACIAS!!, Todas las Canciones PEDIDAS hasta hoy 4[ $+ %peticiones $+ ]15... %logoas
  :end
}

on *:text:*!saludos*:%chanspam:{ 
  .notice $nick $info. Saludos Guardados, Se paciente en un momento los mandan :)... %logoas
  echo @saludos $time.xd $info $nick $info. $2-
}
#radiopromo end