TCL-koodausta

[Mustapukuinen Mies]

Miten alla olevaan TCL-pasteen, joka ei ole omani, lisätään koodirivit,
joissa määritellään joko .chanset #kanava +quote :n avulla halutut
kanavat tai skriptissä itsessään sallitut ja estetyt kanavat. Eli mitä
tuohon pasteen tulee lisätä, että .chanset toimisi? Poistin skriptistä
kaikki muut quotet yhtä lukuun ottamatta, että pointti on selvä kuin
päivä, skripti ei siis ole minun, haluan siihen vain tuon mainitun
koodin pätkän, eli sen, jossa määritellään sallitut ja estetyt kanavat.
Ellei tämä kuulu tännekään, niin mihin sitten? Ideana on lisätä tähän
TCL-koodaukseen arvot, joilla määritellään sallitut ja estetyt kannut
tai vaihtoehtoisesti eggdrop-botiltä käsin komentaen vaikka
.chanset #irk-kanava +duke = sallii skriptin
.chanset #irk-kanava -duke = disabloi skriptin

bind pub -|- !quote pub_duke

#ONELINERS:#########################################

set randduke {
"Sometimes I even amaze myself."
}

#PUB_DUKE:##########################################
proc pub_duke {nick uhost hand chan arg} {
global randduke
set arg [charfilter_duke $arg]

if {$arg == ""} {
set drnd [rand [llength $randduke]]
putchan $chan "[lindex $randduke [expr $drnd]] .([expr $drnd+1])."
return 1
}

set duke_nr [lindex $arg 0]

if { [isnumber [lindex $arg 0]] != 1} {
putserv "NOTICE $nick : enter a number baby!"
return 1
}

set duke_oneliner [lindex $randduke [expr $duke_nr -1]]

if {$duke_oneliner == ""} {
putserv "NOTICE $nick : no valid oneliner found bitch!"
return 1
}

putchan $chan "$duke_oneliner .($duke_nr)."
return 1

}

#CHARFILTER_DUKE:###################################
# Char filter concept by Bass@undernet, Thanks to Jeff fisher in egg
mailing-list.
proc charfilter_duke {x {y ""}} {
for {set i 0} {$i < [string length $x]} {incr i} {
switch -- [string index $x $i] {
"\"" {append y "\\\""}
"\\" {append y "\\\\"}
"\[" {append y "\\\["}
"\]" {append y "\\\]"}
"\}" {append y "\\\}"}
"\{" {append y "\\\{"}
default {append y [string index $x $i]}
}
}
return $y
}
####################################################
putlog "Duke Nukem oneliners v1.0 LOADED!"

--
Varo halpoja klooneja ja älä ruoki trolleja.