tcl Eggdrop PublicScript

[ba-c]

Also, da ich im IRC heute einen Kampf hatte mit Befehlen und Scripten, habe ich es geschafft und mein Script nun doch fertig.

Hierbei handelt es sich um ein Eggdrop-Script in TCL natürlich, welches ein paar Public-Commands beinhaltet.
Hier das Script:

# script by ba-c
# www.pr0g4m0r.de - Ari_S@pr0g4m0r.de
 
# Mit ".join <#channel>" joint er den von dir geschr. Channel.
bind pub m|- .join joinchan
proc joinchan { nick uhost hand chan args } {
putserv "NOTICE $nick :Joined [lindex $args 0]"
channel add [lindex $args 0] }
 
# Mit ".part <#channel>" partet er diesen auch wieder.
bind pub m|- .part partchan
proc partchan { nick uhost hand chan args } {
putserv "NOTICE $nick :Left [lindex $args 0]"
channel remove [lindex $args 0] }
 
# Mit ".hop <#channel>" rejoint*² er den dir geschr. Channel.
bind pub m|- .hop hopchan
proc hopchan { nick uhost hand chan args } {
putserv "NOTICE $nick :Rejoined [lindex $args 0]"
channel remove [lindex $args 0]
channel add [lindex $args 0] }
 
# Mit ".nick <neuerNickname>" ändert der Eggdrop im IRC seinen Nick.
bind pub m|- .nick nickchange
proc nickchange { nick uhost hand chan args } {
putserv "nick [lindex $args 0]"
putserv "NOTICE $nick :nick changed to [lindex $args 0]"
}
 
# Mit ".kick <nickname>" kickt er den User mit dem von dir angegebenen Nick.
bind pub m|- .kick kickuser
proc kickuser { nick uhost hand chan args } {
putserv "kick $chan [lindex $args 0] sponsored.by.pr0g4m0r.de"
putserv "notice $nick :kicked [lindex $args 0] from $chan"
}
 
# Mit ".invite <nicknamen>" läd er ihn in den aktuellen Channel ein.
bind pub m|- .invite inviteuser
proc inviteuser { nick uhost hand chan args } {
putserv "invite [lindex $args 0] $chan"
putserv "notice $nick :invited [lindex $args 0] to $chan"
}
 
# Mit ".unbanall <#channel>" löscht er alle Bans im Channel.
bind pub m|- .unbanall unbanall
proc unbanall { nick uhost hand chan args } {
resetbans [lindex $args 0]
}

Das war's. Ist ziemlich simpel. Habe es anfangs auch nicht gerallt, daher dank an homer der mir geholfen hat. Ausserdem sollte es jedem möglich sein eigene, neue Befehle hinzuzufügen. Falls aber eine Frage da ist, pm oder irgendwie anders.

Viel Spaß...