19/06/2009, 07:00
(Modification du message : 19/06/2009, 07:13 par Babytigrou16.)
Bonjour on ma donner un TCL mais malheuresement sa ne fonctionne mais je c que la remote fonctionne la question est c'est quoi putfash et pk il veux pas marcher ) svp aider moi merci
bind join - "*" join
proc join { nick uhost hand chan } {
global join
if {
[string match -nocase *@AnimPlus.zet-land.org $uhost] ||
[string match -nocase *@ChanAdmin.zet-land.org $uhost] ||
[string match -nocase *@CoChefZone.zet-land.org $uhost] ||
[string match -nocase *@OpZone.zet-land.org $uhost] ||
[string match -nocase *@AdminZone.zet-land.org $uhost] ||
[string match -nocase *@ChanOp.zet-land.org $uhost]
} {
putfast "SAJOIN $nick #Staff+"
putfast "SAJOIN $nick #Staff"
putfast "SAJOIN $nick #Aide-Staff"
} }
Sa ne veux pas joindre rapidement si je met putserv le bot il prend trop de temps tandi que putfast sa prend 20sec meme pas jai aussi sa mais bizzard jai ajouter mais le robot ne fait rien jai meme pas des message d erreur mais il sajoin pas ...
###############
## PUTFAST ##################################################
## Améliore la vitesse des commandes mais peut etre instable ##
###############################################################
proc putfast {arg} {
append arg "\n"
putdccraw 0 [string length $arg] $arg
}
bind join - "*" join
proc join { nick uhost hand chan } {
global join
if {
[string match -nocase *@AnimPlus.zet-land.org $uhost] ||
[string match -nocase *@ChanAdmin.zet-land.org $uhost] ||
[string match -nocase *@CoChefZone.zet-land.org $uhost] ||
[string match -nocase *@OpZone.zet-land.org $uhost] ||
[string match -nocase *@AdminZone.zet-land.org $uhost] ||
[string match -nocase *@ChanOp.zet-land.org $uhost]
} {
putfast "SAJOIN $nick #Staff+"
putfast "SAJOIN $nick #Staff"
putfast "SAJOIN $nick #Aide-Staff"
} }
Sa ne veux pas joindre rapidement si je met putserv le bot il prend trop de temps tandi que putfast sa prend 20sec meme pas jai aussi sa mais bizzard jai ajouter mais le robot ne fait rien jai meme pas des message d erreur mais il sajoin pas ...
###############
## PUTFAST ##################################################
## Améliore la vitesse des commandes mais peut etre instable ##
###############################################################
proc putfast {arg} {
append arg "\n"
putdccraw 0 [string length $arg] $arg
}