Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- set cmds(update) "!update"
- set cmds(start) "!start"
- #binding commands
- bind PUB - $cmds(update) ::upprox
- bind PUB - $cmds(start) ::start
- proc upprox { nick host handle chan text } {
- global proxylist
- set fichier "/home/gogaz/codaz/eggdrop/test.txt"
- set fp [open $fichier r]
- set data [read $fp]
- close $fp
- set data [split $data "\n"]
- set proxylist [list ""]
- # set myreg "([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})"
- foreach line $data {
- set proxy [regexp "((\[0-9\]{1,3})\.){4}" $line ip]
- lappend proxylist "$ip"
- }
- }
- proc start { nick host handle chan text } {
- global proxylist
- # set liste [::proxylist "/home/gogaz/codaz/eggdrop/test.txt"]
- set msg_s [lindex $proxyliste [expr {int(rand() * ([llength $proxyliste] - 1))}]]
- # set a "#xchat-fr"
- puthelp "PRIVMSG $chan:$nick: $msg_s"
- }
Add Comment
Please, Sign In to add comment