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