Testforum » Hier mal ein Tcl script für den Eggbot

######################################################
# usergreet.tcl v1.1 by Daishi <daishi219@gmail.com> #
######################################################
 
###################
# History:
# 1.0		Erstes Release
# 1.1		Channel Aktivierung ebenfalls auf partyline Steuerung umgestellt
#           Diverse kleine Bugfixes
# 1.2       Auch Nicknamen mit [ und ] berücksichtigt  
###################
 
##
# Begrüßungen an bestimmte User durch den Bot.
##
 
# In welchen Channels soll das Script aktiv sein? 
# Die Definition erfolgt nicht im script, sondern durch Setzen von +usergreet im Bot
# In der partyline eingeben:
#
# .chanset #channel +usergreet
 
# Zur Aktivierung der userdefined flags
setudef flag usergreet
 
# Definition des Datenfiles für Nicks und Grußmeldungen
 
set ug_ni(datafile) "ugreet.dat"
 
###################################################################
# Mögliche Befehle in der Partyline:					#
#											#
# .chanset #chan +ugreet	Aktivierung in Channel #chan		#
# .chanset #chan -ugreet	Deaktivierung in Channel #chan	#
# .greethelp			Hilfen zur Bedienung			#
# .+greetuser			User und Text hinzufügen		#
# .-greetuser			User und Text löschen			#
# .listgreetuser			Einträge anzeigen				#
###################################################################
 
### Ab hier nur editieren, wenn man genau weiß, was man tut. Beginn des Codes ###
 
set ug_ni(version) v1.2                            ;# Variable für Version setzten
 
bind join - * ug:nick                              ;# Prozedur für join einbinden
bind nick - * ug:nickn					   ;# Prozedur für nick einbinden
bind dcc o|o +greetuser add_gusers			   ;# User hinzufügen
bind dcc o|o -greetuser del_gusers			   ;# User hinzufügen
bind dcc o|o listgreetuser list_gusers		   ;# User anzeigen
bind dcc o|o greethelp help_gusers			   ;# Hilfe anzeigen
 
proc help_gusers {handle idx args} {
putlog "usergreet erlaubt es, bestimmten Nicks individuelle Begrüßungsmeldungen zuzuweisen, die diesen Nicks angezeigt werden, wenn sie einen Channel joinen oder ihren Nick ändern."
putlog "Die Steuerung von usergreet erfolgt ausschließlich über die partyline mit den folgenden Befehlen:"
putlog " "
putlog "+ greetuser <nick> <greet>    Nick mit Grußmeldung hinzufügen oder ändern"
putlog "- greetuser <nick>            Den angegebenen Nick löschen"
putlog "listgreetuser                 Sämtliche Gruß-Einträge anzeigen"
putlog "greethelp                     Diese Hilfemeldung anzeigen"
}
 
proc init_gusers {} {
global ug_nick ug_ni					   ;# Datenstrukturen public definieren
if {[file exists $ug_ni(datafile)]} {		   ;# Falls File vorhanden
  putlog "Laden Userdaten aus $ug_ni(datafile)"    ;# Lademeldung
  set in [open $ug_ni(datafile) r]			   ;# Datenfile im read modus öffnen
  while {![eof $in]} {					   ;# solange kein EOF
    set vline [gets $in]                           ;# Zeile holen
    if {[eof $in]} {break}  				   ;# Falls EOF, Ende von while
    set snick [lindex $vline 0]			   ;# Nick extrahieren
    set sgreet [lrange $vline 1 end]		   ;# Gruß extrahieren
    regsub -all -- {\{} $sgreet {} sgreet		   ;# die vom Eggdrop erzeugte '{' entfernen	
    regsub -all -- {\}} $sgreet {} sgreet          ;# die vom Eggdrop erzeugte '}' entfernen
    set ug_nick($snick) $sgreet                    ;# Array Datenfeld belegen
    }								   ;# End while
  close $in							   ;# Datei schließen
  }								   ;# End If (dataexist)
}								   ;# End Procedure
init_gusers
 
proc add_gusers {handle idx args} {
 global ug_nick ug_ni					   ;# Datenstrukturen public definieren
 set acmd [lindex $args 0]				   ;# Befehlszeile extrahieren
 set unick [lindex $acmd 0]				   ;# erstes Argument ist Nick
 set ugreet [lrange $acmd 1 end]			   ;# Der gesamte Rest ist der Gruß
 regsub -all -- {\{} $ugreet {} ugreet		   ;# die vom Eggdrop erzeugte '{' entfernen	
 regsub -all -- {\}} $ugreet {} ugreet             ;# die vom Eggdrop erzeugte '}' entfernen
 set ug_nick($unick) $ugreet                       ;# Array Datenfeld (neu) belegen
 set cf 0							   ;# Change Flag auf 0 setzen
 foreach search [string tolower [array names ug_nick]] {  ;# Liste der Nicks durchlaufen
  if {[string match $search [string tolower $unick]]} {set cf 1}  ;# wenn nick schon vorhanden, Flag auf 1
 }								   ;# End Foreach
 if {$cf == 0} {					         ;# ein neuer User
   set output "$unick $ugreet"			   ;# Zeile für Ausgabe montieren
   set out [open $ug_ni(datafile) a]		   ;# Datenfile im appendmodus öffnen
   puts $out $output					   ;# Zeile schreiben
   close $out						   ;# Datei schließen
   putlog "Neuer User für usergreet $ug_ni(version) gespeichert in $ug_ni(datafile)"
   } else {							   ;# ein vorhandener User
   set out [open $ug_ni(datafile) w]		   ;# Datenfile im w modus öffnen (überschreiben)
   foreach search [array names ug_nick] {          ;# alle nicks des arrays
     if {$search != 0} {				   ;# wenn keine leere Zeile
       set snick $search   				   ;# Nick extrahieren
       set sgreet $ug_nick($search)			   ;# Gruß extrahieren
       set output "$snick $sgreet"			   ;# Output montieren
       puts $out $output				   ;# Zeile schreiben
       }						         ;# End if (search)
     }							   ;# End Foreach
   close $out						   ;# Datei schließen
   putlog "Gruß für User $unick in $ug_ni(datafile) geändert"
   }								   ;# End if (cf)
}								   ;# End Procedure
 
proc list_gusers {handle idx args} {
global ug_nick ug_ni					   ;# Datenstrukturen public definieren
if {[info exists ug_nick]} {				   ;# Falls Felder definiert sind
  putlog "Eingetragene Nick für usergreet:"	   ;# Überschrift anzeigen
  foreach search [array names ug_nick] {           ;# Für jeden Eintrag
   if {$search != 0} {					   ;# wenn kein leerer Eintrag
     set snick $search   				   ;# Nick extrahieren
     set sgreet $ug_nick($search)			   ;# Gruß extrahieren
     putlog "Nick: $snick   Gruß: $sgreet"	   ;# Zeile anzeigen
     }							   ;# End if (search)
    }								   ;# End foreach
  } else {							   ;# Falls keine Struktur vorhanden
    putlog "Keine Daten gespeichert"		   ;# Fehler anzeigen
  }								   ;# End if
}								   ;# End Procedure
 

proc del_gusers {handle idx args} {
 global ug_nick ug_ni					   ;# Datenstrukturen public definieren
 
 set acmd [lindex $args 0]				   ;# Befehlszeile extrahieren
 set unick [lindex $acmd 0]				   ;# erstes Argument ist Nick
 if {([info exists ug_nick($unick)])} {            ;# wenn der Eintrag existiert 
   unset ug_nick($unick)				   ;# Array Datenfeld freigeben
   set out [open $ug_ni(datafile) w]		   ;# Datenfile im w modus öffnen (überschreiben)
   foreach search [array names ug_nick] {		   ;# durchlaufen der Daten arrays
     if {$search != 0} {				   ;# wenn keine leere Zeile
       set snick $search   				   ;# Nick extrahieren
       set sgreet $ug_nick($search)			   ;# Gruß extrahieren
       set output "$snick $sgreet"			   ;# Output montieren
       puts $out $output				   ;# Zeile schreiben
       }						         ;# End if (search)
     }							   ;# End Foreach
   close $out						   ;# Datei schließen
   putlog "User $unick aus $ug_ni(datafile) gelöscht"  ;# Löschmeldung
   } else {							   ;# Falls nick nicht vorhanden
   putlog "User $unick ist nicht gespeichert!"     ;# Infomeldung
   }								   ;# End if (info)
}								   ;# End Procedure
 
proc ug:nick {nick uhost hand chan} {
 global ug_nick ug_ni                              ;# oben definierte Arrays global setzen
 if {![ug:active $chan]} { return 0 } 		   ;# falscher channel: nix machen
 
 # Schleifenbeginn: Liste der Nicks durchlaufen. "search" = aktueller Nick
 foreach search [array names ug_nick] {
  if {([string tolower $search] == [string tolower $nick])} {
    putserv "PRIVMSG $chan :$ug_nick($search)"
   }  ;# end if string match
  }  ;# end foreach search
 }  ;# end procedure
 
proc ug:nickn {nick uhost hand chan newnick} {
 global ug_nick ug_ni					   ;# oben definierte Arrays global setzen
 set nick $newnick					   ;# nick = newnick 
 if {![ug:active $chan]} { return 0 } 		   ;# falscher channel: nix machen
 
 # Schleifenbeginn: Liste der definierten Begriffe durchlaufen. "search" = aktueller Nick
 foreach search [array names ug_nick] {
  if {([string tolower $search] == [string tolower $nick])} {
    putserv "PRIVMSG $chan :$ug_nick($search)"
   }  ;# end if string match
  }  ;# end foreach search
 }  ;# end procedure
 

proc ug:active {chan} {
  foreach setting [channel info $chan] {	;# "channel info" ist ein TCL Befehl!
    if {[regexp -- {^[\+-]} $setting]} {
      if {$setting == "+usergreet"} { return 1 }
    }
  }
  return 0
 
}
 
putlog "Usergreet $ug_ni(version) von Daishi (Stand: 10.3.04) geladen"
putlog "Eingabe von \.greethelp zeigt Bedienungshinweise an"