TCL Script - AB.OPINVITE.TCL

He estado pensando y me he decidido a publicar mi primer TCL Script para eggdrop, lo he llamado AB.OPINVITE.TCL

¿Para que sirve?
Este TCL Script hace que cuando algun usuario obtenga el modo de operador (@) de algun canal, este lo invite a un canal “secreto”.

Este TCL es útil para moderar el acceso a los “back channels”.

Puedes descargarlo desde:
http://mirror.cozunet.org/irc/tcl/ab.opinvite.tcl

O si lo prefieren, aqui dejo el código.


Código.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
################
# AB.OPINVITE.TCL
################
#
############
# CRÉDITOS
############
#
# Este TCL SCRIPT fue escrito por GetronX para el canal #AyudaBot de
# la red Undernet.org
#
###############
# DESCRIPCIÓN
###############
#
# Este script hace que el bot envie una invitación a algún canal oculto a
# aquel que reciba el modo de operador del canal.
#
#############
# CHANGELOG
#############
#
# v1.0 - 05/06/07 - Creacion.
#
#################
# INSTRUCCIONES
#################
#
# Ingresa esta linea al final de tu <eggdrop>.conf
# "source scripts/ab.opinvite.tcl"
#
############
# CONTACTO
############
#
# Autor:   GetronX < getronx@cozunet.com >
#
####

####
# CANAL PRIVADO
set canal_privado ""

####
# CANAL PÚBLICO
set canal_publico ""

####
#  0=NO MENSAJE 1=NOTICE 2=PRIVADO
set canal_inform "1"

####
# EL MENSAJE A ENVIAR
set canal_msg ""


####
#  NO TOCAR NADA A PARTIR DE AQUI
#  A MENOS DE QUE SEPAS QUE ESTAS
#  HACIENDO.
####

bind mode - * inviteop

proc inviteop { nick uhost hand chan modech victim } {
global canal_privado canal_publico canal_inform canal_msg botnick
if {$nick == $botnick} {return 0}
if {$chan == $canal_publico && [botisop $chan]} {
if { $modech == "+o" } {
if {$canal_inform == 0} {
putserv "invite $victim $canal_privado"
}
if {$canal_inform == 1} {
putserv "invite $victim $canal_privado"
putserv "NOTICE $nick :$canal_msg"
}
if {$canal_inform == 2} {
putserv "invite $victim $canal_privado"
putserv "PRIVMSG $nick :$canal_msg"
}}}}

set abnam "ab.opinvite.tcl"
set abver "1.0"
set abau "GetronX"
putlog "\00312\002CARGADO\002\003 $abnam v$abver por $abau."

####
# E.O.F.
####

Etiquetas: , ,

Luis.Gmz 5 / Junio / 2007Trackback URI
Imprime aquí Lee más de: GNU/Linux, IRC

Comentarios


Sigue los comentarios de este post en RSS

    2 Comentarios en “TCL Script - AB.OPINVITE.TCL”

  1. #1 Antonio el 11 de Septiembre del 2007 a la(s) 1:23 pm

    y tu hiciste elTCL ? o lo sacaste de una pagina ?

  2. #2 GetronX el 11 de Septiembre del 2007 a la(s) 2:31 pm

    Así es, este TCL Script es de mi autoría.


Deja un comentario.
Los campos marcados con (*) son requeridos.




NOTA: Todos los comentarios son sometidos a comprobación vía Akismet.

XHTML: Puedes usar: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

← Pirata…
Instalar Flash en Ubuntu Festy Fawn amd64 →