Bonsoir à tous.
Voici une version amélioré de ce sript........
http://www.inicom.net/forum/showthre...hlight=credits
Ce script est un script pour la commande credits dans iRC.
Je m'explique!
Si vous avez des comptes leech ou autre vos utilisateur peuvent savoir combien il leur reste de credits en tapant la commande !credits <user>.
Ce sript ajoute le group au quel le user appartient, et il permet également de personnaliser le message suivant le group au quel appartient le user.
Quote:
#credits.tcl 1.15
set passwd "C:/ioFTPD/etc/UserIdTable"
set idgroup "C:/ioFTPD/etc/GroupIdTable"
set userroot "C:/ioFTPD/users"
proc b {} {return \002}
proc c {} {return \003}
proc u {} {return \037}
set splitter(CHAR) "\n"
proc credits {nick uhost handle chan args} {
global passwd userroot idgroup
if {[lindex $args 0] == ""} {putserv "PRIVMSG $chan :usage !credits user";return}
set fileid [open $passwd r]
set data [read $fileid]
close $fileid
foreach line [split $data \n] {
if {[string equal [lindex $args 0] [lindex [split $line :] 0]]} {
set data $line
}
}
foreach dline [split $data \n] {
set cname [lindex [split $dline :] 0]
set dline [lindex [split $dline :] 1]
if {[regexp -- "[lindex $args 0]" $cname]} {set exist 1} else {set exist 0}
if {![string equal {} $dline] } {
if {![file exists $userroot/$dline]} {
return
}
set fileid [open $userroot/$dline r]
set sata [read $fileid]
close $fileid
foreach line [split $sata \n] {
set line [string tolower $line]
}
}
}
foreach line [split $sata \n] {
if {[string equal "groups" [lindex [split $line " "] 0]]} {
set groupuser [lindex [split $line " "] 1]
}
}
set fileid [open $idgroup r]
set data [read $fileid]
close $fileid
foreach line [split $data \n] {
if {[string equal $groupuser [lindex [split $line :] 1]]} {
set datagroups [lindex [split $line :] 0]
}
}
foreach line [split $sata \n] {
if {[string equal "credits" [lindex [split $line " "] 0]]} {
set credsex $line
set credsec0 [lindex $credsex 1]
set credsec1 [lindex $credsex 2]
set credsec2 [lindex $credsex 3]
set credsec3 [lindex $credsex 4]
set credsec4 [lindex $credsex 5]
set credsec5 [lindex $credsex 6]
set credsec6 [lindex $credsex 7]
set credsec7 [lindex $credsex 8]
set credsec8 [lindex $credsex 9]
set credsec9 [lindex $credsex 10]
set allcreds [expr ($credsec0 + $credsec1 + $credsec2 + $credsec3 + $credsec4 + $credsec5 + $credsec6 + $credsec7 + $credsec8 + $credsec9) * 1.0]
}
}
if {"leech"==$datagroups} {putserv "PRIVMSG $chan :\[\002CREDITS\002]\ \002[lindex $args 0]\002 from the [b]leech[b] group has \002[formatkb $allcreds]\002 left this week"} elseif {"ViP"==$datagroups} { putserv "PRIVMSG $chan :\[\002CREDITS\002]\ \002[lindex $args 0]\002 is a [b]ViP[b] member!!"} elseif {"siteop"==$datagroups} { putserv "PRIVMSG $chan :\[[b]WARNING[b]]\ You're asking for siteops informations, next time we could add a SITE TAKE 10000"} elseif {$exist == 0} { putserv "PRIVMSG $chan :\[[b]CREDITS[b]\] User does not exist!" } else {putserv "PRIVMSG $chan :\[\002CREDITS\002]\ \002[lindex $args 0]\002/$datagroups has \002[formatkb $allcreds]\002"}
}
proc formatkb {size} {
if {$size >= 1073741824} {
set amount "[format %.2f [expr $size/1073741824.0]] TB"
} elseif {$size >= 1048576} {
set amount "[format %.2f [expr $size/1048576.0]] GB"
} elseif {$size >= 1024} {
set amount "[format %.2f [expr $size/1024.0]] MB"
} else {
set amount "[format %.2f $size] KB"
}
return $amount
}
bind pub -|- !credits credits
putlog "credit script 1.15 loaded!!!"
|
Voila en espérant vous avoir apporté un plus!!!
PS:
Pour la prise en charge du blowfish je ne promet rien mais je vais regarder car pour moi le sript ne fonctionne pas!!!
Script Credits pour iRC
Linear Mode
