holo lokito cuando me descarge el ircap 8.6 me venian tambien 8 scripts para poner:
anticasp
ascii-es
autosaludos-mensajes-votacion
cosas
msagents
passacceso
saludos-invi-antilink
tribe-es
canalprot
sba.ircom
sba.notify
sba.reloj
web_reglas_sinop_emision
comper
fserver
mp3player
topic_progresivo
topic_regresivo
y estos 2 ultimos son asi:
topic_progresivo.mrc
on 1:TEXT:!peli:#:{
var %i = $findtok(%evento_chan,$chan,1,32)
if (%i) {
var %time = $gettok(%evento_time,%i,32)
%time = $ctime - %time
else { describe # Estamos viendo: $qt(%peli. [ $+ [ $chan ] ]) }
if (%time > 3600) describe $chan Estamos viendo: $qt(%peli. [ $+ [ $chan ] ]) . Lleva $calc( $asctime(%time,h) -1) hora(s) , $asctime(%time,n) minuto(s) y $asctime(%time,s) segundo(s)
elseif (%time > 60) describe $chan Estamos viendo: $qt(%peli. [ $+ [ $chan ] ]) . Lleva $asctime(%time,n) minuto(s) y $asctime(%time,s) segundo(s)
else describe $chan Estamos viendo: $qt(%peli. [ $+ [ $chan ] ]) . Lleva $asctime(%time,s) segundo(s)
}
if (!%peli. [ $+ [ $chan ] ]) { describe # $nick -> Terror en AmityVille IV. }
}
on 1:TEXT:!peli *:#:{ var %i = $findtok(%evento_chan,$chan,1,32)
if (%i) {
set %evento_time $puttok(%evento_time, $ctime, %i, 32)
}
else {
set %evento_time $addtok(%evento_time, $ctime, 32)
set %evento_chan $addtok(%evento_chan, $chan, 32)
}
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %peli. [ $+ [ $chan ] ] $2-
describe # [cambiada la pelicula por $nick ] %peli.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la pelicula. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la pelicula }
else return
}
on *:TEXT:!cambiahora*:#: {
if ( $nick isop $chan) {
var %i = $findtok(%evento_chan,$chan,1,32)
if (%i) {
set %evento_time $puttok(%evento_time, $ctime($asctime($ctime,dd/mm/yy) $2 $+ :00), %i, 32)
describe $chan tiempo cambiado
}
}
}
on *:text:!borra:#*:{
if ( $nick isop $chan) {
if ($me !isop # && $nick isop #) { describe # (-_-) $nick No soy mod, no puedo limpiar el chat | halt
}
.timer 1 2 describe $chan Limpiando chat... en
.timer 1 3 describe $chan 5
.timer 1 4 describe $chan 4
.timer 1 5 describe $chan 3
.timer 1 6 describe $chan 2
.timer 1 7 describe $chan 1
.timer 1 8 msg $chan /clear
.timer 1 9 describe $chan Ya limpié B) y que limpio quedó todo
.timer 1 10 describe $chan Estamos viendo: $qt(%peli. [ $+ [ $chan ] ])
}
y el topic_regresivo:
on *:text:!cvemos*:#: {
if ($nick isop $chan) {
if ($2 isnum) {
set %wartime. [ $+ [ $chan ] ] $calc($ctime + ( $2 * 60 ) )
set %war [ $+ [ $chan ] ] $3-
set %wartnick [ $+ [ $chan ] ] $nick
describe $chan Estamos viendo:=====> %war [ $+ [ $chan ] ] <=====Falta para que termine: $duration($calc(%wartime. [ $+ [ $chan ] ] - $ctime))) $+ .
timer 1 $calc($2 * 60) describe $chan La pelicula:----> %war [ $+ [ $chan ] ] <---- ha finalizado!
timer 1 $calc($2 * 60) unset %eventtime. [ $+ [ $chan ] ]
timer 1 $calc($2 * 60) unset %event [ $+ [ $chan ] ]
timer 1 $calc($2 * 60) unset %eventnick [ $+ [ $chan ] ]
}
elseif ($2 !isnum 1-) || (!$4) {
describe $chan $nick Error, Teclea: !ctopic <duracion de la pelicula> <pelicula>
}
}
}
on *:TEXT:!vemos:#: {
if (%wartime. [ $+ [ $chan ] ] == $null) {
describe $chan $nick No hay pelicula configurada
| halt
}
else describe $chan Estamos viendo:====> %war [ $+ [ $chan ] ] <=====Falta para que termine: $duration($calc(%wartime. [ $+ [ $chan ] ] - $ctime))) $+ .
}
On *:TEXT:!bvemos:#: {
if ($nick isop $chan) {
unset %wartime. [ $+ [ $chan ] ]
unset %war [ $+ [ $chan ] ]
unset %warnick [ $+ [ $chan ] ]
describe $chan pelicula borrada por $nick $+ .
}
}
on *:text:!borrar:#*:{
if ( $nick isop $chan) {
if ($me !isop # && $nick isop #) { describe # (-_-) $nick No soy mod, no puedo limpiar el chat | halt
}
.timer 1 2 describe $chan Limpiando chat... en
.timer 1 3 describe $chan 5
.timer 1 4 describe $chan 4
.timer 1 5 describe $chan 3
.timer 1 6 describe $chan 2
.timer 1 7 describe $chan 1
.timer 1 8 msg $chan /clear
.timer 1 9 describe $chan ya limpié...pueden pisar B)
.timer 1 10 describe $chan Estamos viendo:====> %war [ $+ [ $chan ] ] <====Falta para que termine: $duration($calc(%wartime. [ $+ [ $chan ] ] - $ctime))) $+ .
}
}
y ya k estamos el sinop_emison :
;IRcap8 638599b960825e3ba62595d9353d53f5
on 1:TEXT:!sinop1:#:{
if (!%sinop1. [ $+ [ $chan ] ]) { describe # $nick -> NO hay sinopsis puesta. }
else { describe # SINOPSIS: $qt(%sinop1. [ $+ [ $chan ] ]) }
}
on 1:TEXT:!sinop1 *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %sinop1. [ $+ [ $chan ] ] $2-
describe # [cambiada la sinopsis por $nick ] %sinop1.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la sinopsis. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la sinopsis }
else return
}
**************************************************FIN INFORMACION GENERAL1*************************************************
*******************************************INOFTMACION GENERAL2*******************************************
on 1:TEXT:!sinop2:#:{
if (!%sinop2. [ $+ [ $chan ] ]) { describe # $nick -> NO hay sinopsis puesta. }
else { describe # SINOPSIS: $qt(%sinop2. [ $+ [ $chan ] ]) }
}
on 1:TEXT:!sinop2 *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %sinop2. [ $+ [ $chan ] ] $2-
describe # [cambiada la sinopsis por $nick ] %sinop2.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la sinopsis. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la sinopsis }
else return
}
**************************************************FIN INFORMACION GENERAL2*************************************************
*******************************************INOFTMACION GENERAL3*******************************************
on 1:TEXT:!sinop3:#:{
if (!%sinop3. [ $+ [ $chan ] ]) { describe # $nick -> NO hay sinopsis puesta. }
else { describe # SINOPSIS: $qt(%sinop3. [ $+ [ $chan ] ]) }
}
on 1:TEXT:!sinop3 *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %sinop3. [ $+ [ $chan ] ] $2-
describe # [cambiada la sinopsis por $nick ] %sinop3.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la sinopsis. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la sinopsis }
else return
}
**************************************************FIN INFORMACION GENERAL3*************************************************
*******************************************INOFTMACION GENERAL4*******************************************
on 1:TEXT:!sinop4:#:{
if (!%sinop4. [ $+ [ $chan ] ]) { describe # $nick -> NO hay sinopsis puesta. }
else { describe # SINOPSIS: $qt(%sinop4. [ $+ [ $chan ] ]) }
}
on 1:TEXT:!sinop4 *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %sinop4. [ $+ [ $chan ] ] $2-
describe # [cambiada la sinopsis por $nick ] %sinop4.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la sinopsis. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la sinopsis }
else return
}
**************************************************FIN INFORMACION GENERAL4*************************************************
*******************************************INOFTMACION GENERAL5*******************************************
on 1:TEXT:!sinop5:#:{
if (!%sinop5. [ $+ [ $chan ] ]) { describe # $nick -> NO hay sinopsis puesta. }
else { describe # SINOPSIS: $qt(%sinop5. [ $+ [ $chan ] ]) }
}
on 1:TEXT:!sinop5 *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %sinop5. [ $+ [ $chan ] ] $2-
describe # [cambiada la sinopsis por $nick ] %sinop5.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la sinopsis. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la sinopsis }
else return
}
**************************************************FIN INFORMACION GENERAL5*************************************************
*******************************************INOFTMACION GENERAL6*******************************************
on 1:TEXT:!sinop6:#:{
if (!%sinop6. [ $+ [ $chan ] ]) { describe # $nick -> NO hay sinopsis puesta. }
else { describe # SINOPSIS: $qt(%sinop6. [ $+ [ $chan ] ]) }
}
on 1:TEXT:!sinop6 *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %sinop6. [ $+ [ $chan ] ] $2-
describe # [cambiada la sinopsis por $nick ] %sinop6.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la sinopsis. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la sinopsis }
else return
}
**************************************************FIN INFORMACION GENERAL6*************************************************
*******************************************INOFTMACION GENERAL7*******************************************
on 1:TEXT:!sinop7:#:{
if (!%sinop7. [ $+ [ $chan ] ]) { describe # $nick -> NO hay sinopsis puesta. }
else { describe # SINOPSIS: $qt(%sinop7. [ $+ [ $chan ] ]) }
}
on 1:TEXT:!sinop7 *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %sinop7. [ $+ [ $chan ] ] $2-
describe # [cambiada la sinopsis por $nick ] %sinop7.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la sinopsis. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la sinopsis }
else return
}
**************************************************FIN INFORMACION GENERAL7*************************************************
*******************************************INOFTMACION GENERAL8*******************************************
on 1:TEXT:!sinop8:#:{
if (!%sinop8. [ $+ [ $chan ] ]) { describe # $nick -> NO hay sinopsis puesta. }
else { describe # SINOPSIS: $qt(%sinop8. [ $+ [ $chan ] ]) }
}
on 1:TEXT:!sinop8 *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %sinop8. [ $+ [ $chan ] ] $2-
describe # [cambiada la sinopsis por $nick ] %sinop8.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la sinopsis. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la sinopsis }
else return
}
**************************************************FIN INFORMACION GENERAL8*************************************************
*******************************************INOFTMACION GENERAL9*******************************************
on 1:TEXT:!sinop9:#:{
if (!%sinop9. [ $+ [ $chan ] ]) { describe # $nick -> NO hay sinopsis puesta. }
else { describe # SINOPSIS: $qt(%sinop9. [ $+ [ $chan ] ]) }
}
on 1:TEXT:!sinop9 *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %sinop9. [ $+ [ $chan ] ] $2-
describe # [cambiada la sinopsis por $nick ] %sinop9.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la sinopsis. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la sinopsis }
else return
}
**************************************************FIN INFORMACION GENERAL9*************************************************
*******************************************INOFTMACION GENERAL10*******************************************
on 1:TEXT:!sinop10:#:{
if (!%sinop10. [ $+ [ $chan ] ]) { describe # $nick -> NO hay sinopsis puesta. }
else { describe # SINOPSIS: $qt(%sinop10. [ $+ [ $chan ] ]) }
}
on 1:TEXT:!sinop10 *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %sinop10. [ $+ [ $chan ] ] $2-
describe # [cambiada la sinopsis por $nick ] %sinop10.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la sinopsis. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la sinopsis }
else return
}
**************************************************FIN INFORMACION GENERAL10*************************************************
*******************************************WEB*******************************************
on 1:TEXT:!web:#:{
if (!%web. [ $+ [ $chan ] ]) { describe # $nick -> NO hay web puesta. }
else { describe # WEB: $qt(%web. [ $+ [ $chan ] ]) }
}
;-------------------
; Set New Topic
;-------------------
on 1:TEXT:!web *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %web. [ $+ [ $chan ] ] $2-
describe # [Puesta la web por $nick ] %web.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la web. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la web }
else return
}
;Thanks to curtisal and cantthink96
******************************************FIN web******************************************
*******************************************REGLAS****************************************
on 1:TEXT:!reglas:#:{
if (!%reglas. [ $+ [ $chan ] ]) { describe # $nick -> NO hay reglas colocadas. }
else { describe # REGLAS: $qt(%reglas. [ $+ [ $chan ] ]) }
}
;-------------------
; Set New Topic
;-------------------
on 1:TEXT:!reglas *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %reglas. [ $+ [ $chan ] ] $2-
describe # [Reglas cambiadaa por $nick ] %reglas.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para poder cambiar las reglas. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar las reglas }
else return
}
**************************FIN REGLAS********************************
*************************PROGRAMACION*****************************
on 1:TEXT:!emision:#:{
if (!%emision. [ $+ [ $chan ] ]) { describe # $nick ->ZIPI. }
else { describe # Emision para el dia de hoy: $qt(%emision. [ $+ [ $chan ] ]) }
}
;-------------------
; Set New Topic
;-------------------
on 1:TEXT:!emision *:#:{
; Checks to see if I am an op and the user is an op.
; If the user's name is the same as the channel, it will also work.
if ($me isop # && (($nick isop #) || ($nick isin #))) {
set %emision. [ $+ [ $chan ] ] $2- - (cambiada la emision por $nick )
describe # [cambiada la programacion por $nick ] %emision.
}
elseif ($me !isop # && $nick isop #) { describe # [ $nick ] Debo ser moderador de la sala para cambiar la emision. }
elseif ($nick !isop #) { describe # [ $nick ] No eres un op o mod en el canal, no puedes cambiar la emision }
else return
}
;Thanks to curtisal and cantthink96
entonces y acabo ya me gustaria saber donde pongo los titulos de las pelis y cada cuando e de cambiarlos o se cambian automaticamente,como activar lo del reloj pare k salga el titulo de la peli con el tiempo k le keda por acabar,donde pongo la emision o programacion del dia .como hago para k salga la sinop de cada peli y donde ,enfin todas estas cosas k hacen falta para k la gente este informada,utilizar los autosaludos,bueno esto no es tan importante,ah,y se ve k desde el ircap no funcionan estos comandosya k en este pc estoy como bradcaster ,pero si m pongo en el otro pc como mod entonces si k los coge, por k es esto?
y supongo k despues de esto no molestare mas...,FELIZ AÑO NUEVO...
