Vous n'êtes pas identifié(e).

Top posteurs

Statistiques

Partenaires

  • eXolia Hosting
  • Eggdrop.fr

#1 10/06/2011 18:04:59

TiSmA
Administrateur
Lieu : Saint Martin (87)
Inscription : 18/08/2004
Messages : 43
Site Web

[TCL] Link UnrealIRCd

Bonsoir

Voici un petit Snippet qui a pour but de vous montrez le système de connexion d'un robot via un link sur un serveur de Type UnrealIRCd.

Celui ci peux très bien vous permettre de créer votre propre IRC Service comme OService, CService, NService etcc...

Code: TCL
######################
# Configuration Link #
######################
 
set ircz(link)     "Adresse-du-link"
set ircz(info)     "Info-du-link"
set ircz(host)     "Host-du-link"
set ircz(ip)       "Ip-du-link"
set ircz(port)     "Port-du-link"
set ircz(pass)     "Mot-de-passe-du-link"
set ircz(pseudo)   "Pseudo-du-robot"
set ircz(real)     "Realname-du-robot"
set ircz(ident)    "Ident-du-robot"
set ircz(salon)    "Salon-du-robot"
set ircz(mode)     "+oOSqsw"
 
 
#############
# Connexion #
#############
 
proc connexion {} {
	global ircz
	if {![catch "connect $ircz(ip) $ircz(port)" ircz(idx)]} {
		putdcc $ircz(idx) "PASS $ircz(pass)"
		putdcc $ircz(idx) "SERVER $ircz(link) 1 :$ircz(info)"
		putdcc $ircz(idx) ":$ircz(link) NICK $ircz(pseudo) 1 [unixtime] $ircz(ident) $ircz(host) $ircz(link) :$ircz(real)"
		putdcc $ircz(idx) ":$ircz(pseudo) MODE $ircz(pseudo) $ircz(mode)"
		putdcc $ircz(idx) ":$ircz(pseudo) JOIN $ircz(salon)"
		control $ircz(idx) event; utimer 30 verification
	}
}
 
################
# Verification #
################
 
if {![info exists ircz(idx)]} { connexion }
 
proc verification {} {
	global ircz
	if {[valididx $ircz(idx)]} { utimer 30 verification } else { connexion }
}
 
#############
# Evenement #
#############
 
proc event {idx arg} {
	global ircz
	set arg [split $arg]
	if {[lindex $arg 0]=="PING"} { putdcc $idx "PONG [lindex $arg 1]" }
}

J'espère que ce petit snippet pourra vous aider et permettra sous peu de voir fleurir de nouveaux scripteur TCL, Nouveau IRC Service etcc   wink

Bon Courage...


Discussion forum IRCz : 11/08/2005


Inutile d'avoir un Tigre dans son ordi, s'il y'a un âne derrière l'écran...  big_smile

Hors ligne

Pied de page des forums

447778 visites ( 89 aujourd'hui ) 5 visiteurs en ligne
Copyright © 2004 - 2013 IRCz