12/05/2011, 15:18
voici mon code qui je pense est terminé.donc si vous avais des conseils et améliorations a me faire je suis preneur. merci de votre aide.
tcl
#
# Pour Activer l'auto Op Niubot Tapez ".chanset #salon +SalonOp" en P.L
#
namespace eval OpbOt {
variable version 3.0
variable auteur DnS
#Ici Mettre le Mot de passe
variable Npass "MDP"
variable chekbOt 10
}
proc OpbOt::Join {nick host hand chan args} {
if { [channel get $chan SalonOp] } {
putlog "\002\00303\[Ok\]\002\00314 Je me Op sur $chan"
utimer $OpbOt::chekbOt [list OpbOt::JoinMess $nick $chan]
} else {
putlog "\002\00304\[Refuser\]\002\00314 Je ne suis pas activé sur $chan"
return 0
}
}
proc OpbOt::JoinMess {nick chan} {
variable pass
set nicks [chanlist $chan]
set bot [string tolower [lsearch -nocase -inline $nicks Niubot*]]
putquick "PRIVMSG $bot :op $OpbOt::Npass $chan"
return 0
}
proc OpbOt::ReOp {nick host hand chan args} {
variable pass
set nicks [chanlist $chan]
set bot [string tolower [lsearch -nocase -inline $nicks Niubot*]]
if {[channel get $chan SalonOp]} {
putlog "\002\00303\[Ok\]\002\00314 Je me ReOp sur $chan"
putquick "PRIVMSG $bot :op $OpbOt::Npass $chan"
} else {
putlog "\002\00304\[Refuser\]\002\00314 Je ne suis pas activé sur $chan"
return 0
}
}
proc OpbOt::VervifbOt {min hour args} {
variable pass
foreach chan [channels] {
set nicks [chanlist $chan]
set bot [string tolower [lsearch -nocase -inline $nicks Niubot*]]
if {[channel get $chan SalonOp]} {
putquick "PRIVMSG $bot :op $OpbOt::Npass $chan"
return 0
}
}
}
bind join - * OpbOt::Join
bind mode - *-o* OpbOt::ReOp
bind time -|- {* * * * *} OpbOt::VervifbOt
setudef flag SalonOp
putlog "\002$OpbOt::version by $OpbOt::auteur Chargé.\002"
[font=Times New Roman]La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.[/font]