Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # Manages your sbnc over irc
- # configuration
- # variables
- set sbnc(trigger) "\!"
- set sbnc(version) "2.0"
- set sbnc(author) "#GeeX at Quakenet"
- set sbnc(chan) "#Aliens"
- set sbnc(ident) "TeamServ"
- set sbnc(ircserver) "irc.onlinegamesnet.net 6667"
- set sbnc(group) "Supporter"
- set sbnc(server) "the-aliens.de"
- set sbnc(port) "9005"
- set sbnc(realname) "BNC #Aliens"
- set sbnc(iface) "http://bouncer.the-aliens.de"
- # bindings
- bind PUB o|- $sbnc(trigger)sbnc1 sbnc1:iface
- # copyright
- putlog "sBNC Script version $sbnc(version) scripted by $sbnc(author)"
- # source (again DO NOT change anything if you are not 100% sure)
- proc sbnc1:iface { nick host hand chan arg } {
- global sbnc
- switch -exact -- [string tolower [lindex [split $arg] 0]] {
- "add" {
- set ident [lindex [split $arg] 1]
- set password [expr {int(rand()*1000000) + 1}]
- set bncuser [lindex [split $arg] 2]
- if {$ident == ""} {
- putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc add 'ident' ?nick?."
- return
- }
- putquick "SBNC ADDUSER $ident $password $sbnc(group)"
- putquick "SBNC SIMUL $ident SBNC SET REALNAME $sbnc(realname)"
- putquick "SBNC LOCK $ident realname"
- putquick "SBNC LOCK $ident vhost"
- putquick "SBNC SIMUL $ident SBNC SET SERVER $sbnc(ircserver)"
- utimer 60 [list putquick "SBNC SIMUL $ident JOIN $sbnc(chan)"]
- putquick "NOTICE $nick :Glückwunsch. Neuer sBNC wurde erstellt."
- putquick "NOTICE $nick :Server: $sbnc(server), Port: $sbnc(port), Ident: $ident, Password: $password"
- if {$bncuser == ""} {
- return
- } elseif {[onchan $bncuser $chan]} {
- putserv "PRIVMSG $bncuser :Huhu $bncuser! Hier Deine sBNC Daten:"
- putserv "PRIVMSG $bncuser :Server: $sbnc(server), Port: $sbnc(port), SSL Port: +9010, Ident: $ident, Password: $password, Web-Zugang: $sbnc(iface), sBNC-1"
- putserv "PRIVMSG $bncuser :Das Tutorial findest Du hier: http://board.the-aliens.de/thread.php?threadid=690"
- putserv "PRIVMSG $bncuser :Falls Du noch Hilfe benötigst, joine bitte wieder in #Aliens-Support."
- } else {
- putserv "NOTICE $nick :Fehler. $bncuser ist nicht im $chan."
- return
- }
- }
- "dellen" {
- set ident [lindex [split $arg] 1]
- if {$ident == ""} {
- putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc del 'ident'."
- return
- } else {
- putquick "SBNC DELUSER $ident"
- putquick "NOTICE $nick :Erledigt. User ($ident) gelöscht."
- }
- }
- "password" {
- set ident [lindex [split $arg] 1]
- set password [expr {int(rand()*1000000) + 1}]
- if {$ident == ""} {
- putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc password 'ident'."
- return
- } else {
- putquick "SBNC RESETPASS $ident $password"
- putquick "NOTICE $nick :Erledigt. Neues Passwort für User ($ident) erstellt."
- putquick "NOTICE $nick :Passwort: $password"
- }
- }
- "global" {
- set arg [lrange [split $arg] 1 end]
- if {$arg == ""} {
- putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc global 'message'."
- return
- } else {
- putquick "SBNC GLOBAL $arg"
- putquick "NOTICE $nick :Erledigt. Globale Message an alle sBNC User wurde gesendet."
- }
- }
- "join" {
- set sbnc(joinchan) "[lindex [split $arg] 1]"
- if {$sbnc(joinchan) == ""} {
- putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc join 'channel'."
- return
- } elseif {[string first # $sbnc(joinchan)] != 0} {
- putserv "NOTICE $nick :Error. The channel has to start with '#'."
- return
- } else {
- putserv "SBNC tcl :foreach sbnc(user) \[bncuserlist\] {setctx \$sbnc(user) ; channel add $sbnc(joinchan)}"
- putserv "NOTICE $nick :Erledigt. Alle sBNC Nutzer sind im $sbnc(joinchan)."
- return
- }
- }
- "part" {
- set sbnc(partchan) "[lindex [split $arg] 1]"
- if {$sbnc(partchan) == ""} {
- putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc part 'channel'."
- return
- } elseif {[string first # $sbnc(partchan)] != 0} {
- putserv "NOTICE $nick :Error. The channel has to start with a '#'."
- return
- } else {
- putserv "SBNC tcl :foreach sbnc(user) \[bncuserlist\] {setctx \$sbnc(user) ; channel remove $sbnc(partchan)}"
- putserv "NOTICE $nick :Erledigt. Alle sBNC User haben den $sbnc(partchan) Channel wieder verlassen."
- return
- }
- }
- "suspend" {
- set ident [lindex [split $arg] 1]
- if {$ident == "$sbnc(ident)"} {
- putquick "NOTICE $nick :Error. You cannot Suspend Alienserv."
- return
- } elseif {$ident == ""} {
- putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc suspend 'ident' ."
- return
- } else {
- putquick "sBNC suspend $ident"
- putquick "NOTICE $nick :Erledigt. $ident ist nun suspendiert."
- return
- }
- }
- "unsuspend" {
- set ident [lindex [split $arg] 1]
- if {$ident == "$sbnc(ident)"} {
- putquick "NOTICE $nick :Error. You cannot unsuspend Alienserv."
- return
- } elseif {$ident == ""} {
- putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc unsuspend 'ident' ."
- return
- } else {
- putquick "sBNC unsuspend $ident"
- putquick "NOTICE $nick :Erledigt. $ident ist nun nicht mehr suspendiert."
- return
- }
- }
- "help" {
- putserv "NOTICE $nick :\037Hilfe zu sBNC-Team\037:"
- putserv "NOTICE $nick :Nutze $sbnc(trigger)sbnc1 add 'ident' 'IRC Nick' zum Erstellen eines Bouncers."
- putserv "NOTICE $nick :Nutze $sbnc(trigger)sbnc1 password 'ident' zum Generieren eines neuen Passwortes."
- putserv "NOTICE $nick :Nutze $sbnc(trigger)sbnc1 suspend 'ident' zum Suspendieren eines Bouncers."
- putserv "NOTICE $nick :Nutze $sbnc(trigger)sbnc1 unsuspend 'ident' zum Aufheben einer Suspendierung eines Bouncers."
- putserv "NOTICE $nick :Nutze $sbnc(trigger)sbnc1 global 'message' zum Senden einer Nachricht an alle BNC User."
- putserv "NOTICE $nick :Nutze $sbnc(trigger)sbnc1 join 'chan' zum Joinen aller sBNC User in einem bestimmten Channel."
- putserv "NOTICE $nick :Nutze $sbnc(trigger)sbnc1 part 'chan' zum Parten aller sBNC User aus einem bestimmten Channel."
- putserv "NOTICE $nick :End of list."
- }
- "default" {
- putserv "NOTICE $nick :Error. Use $sbnc(trigger)sbnc help to see a command overview."
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement