Vermischtes

bind pub * xxxx addpre

proc addpre { nick host chan hand arg }{
if { $nick = "X-TREME"} {
regsub -all -- {\002|\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\026|\037} $arg "" arg
set beiwor1 [lindex $arg 0]
set section [lindex $arg 1]
set group [lindex $arg 2]
set beiwor2 [lindex $arg 3]
set beiwor3 [lindex $arg 4]
set release [lindex $arg 5]
set with [lindex $arg 6]
set size [lindex $arg 7]
set in [lindex $arg 8]
set files [lindex $arg 9]
if {[string match -nocase "*MB*" $size]} {
regsub -all -- "MB" $size "" size
set sizeinfo [lindex $size 0]
}
if {[string match -nocase "*GB*" $size]} {
regsub -all -- "GB" $size "" size
set sizeinfo [expr $size * 1024]
}
regsub -all -- "0-DAY" $section "0DAY" section
regsub -all -- "PC-GAMES" $section "GAMES" section
regsub -all -- "PS2-GAMES" $section "PS2" section
regsub -all -- "GAMES-PS3" $section "PS3" section
regsub -all -- "PSP" $section "PSP" section
regsub -all -- "WII" $section "Wii" section
regsub -all -- "DVDR-DE" $section "DVDR" section
regsub -all -- "HDTV" $section "HDTV" section
regsub -all -- "XVID-DE" $section "XVID" section
regsub -all -- "XVID-ENG" $section "XVID" section
regsub -all -- "XXX" $section "XXX" section
regsub -all -- "DOKUS" $section "DOKU" section
regsub -all -- "TV-XVID-DE" $section "TV" section
regsub -all -- "TV-XVID-ENG" $section "TV" section
putquick "PRIVMSG #addpreraum :!addpre $release $section"
putquick "PRIVMSG #addpreraum :!info $release $files $sizeinfo"
}
}