####################### TALK.TCL ###############################
################################################################
################################################################
# talk.tcl ein script um einem Eggdrop lebendig zu machen
#
#                                      by Micha99 ( Zenkosoft )
#
#
################################################################
# Script Optimized for ZeNkoR ( Z3nk0r ) in #chatten.de
################################################################

# in folgenden channels rede ich nicht
set notlkchans ""

# überprüfung ob jemand für andere channels werbung macht aktivieren / deaktivieren
set spamchk 0

# Owner auf allen bots
set bots_owner "Micha99"


# ----

set talk_version "1.7.0"



##### Inhalt:
# Section 1: normale antworten auf schlagwörter
#
# Section 2: antworten, aktionen von Zenkor auf Schlagwörter
#
# Section 3: Kick, ban stuff
#
# Section 4: Zentrale Zenkor System: On word zenkor functions
#
# Section 5: away
#
# Section 6: Spy functions
#
# Section 7: Flood settings/Protection; System Proc
#
# Section 8: On join shit
#
# Section 9: Vote script
#
# Section 10: SMS Zenkor
#
# Section 11: Zenkor Help
#
# Section 14: Z3nk0r Ready
#

######### Script wird geladen ...
putlog "Loading talk.tcl version $talk_version by Micha99 ( www.m99go.de )"
################################################################
# Section 1: normale antworten auf schlagwörter
################################################################
# Summary:
# 1.1) Hi/Hallo und kleine help, wie man sowas programmiert
# 1.2) Cu/bye
# 1.3) Lol
# 1.4) Shit
# 1.5) Lamer
# 1.6) EnsignAxt
# 1.7) g*
# 1.8) :)
# 1.9) ;)
# 1.10) :(
# 1.11) Essen
# 1.12) Wie gehts
# 1.13) Morgen
# 1.14) schlafen
# 1.15) Hunger
# 1.16) schwul
# 1.17) cyao
# 1.18) Italien
# 1.19) wurst
# ...


############### 1.1) HI/Hallo

bind pub - "hi" pub_hi                          ;# Wenn jemand hi
bind pub - "hallo" pub_hi                       ;# oder hallo in irgend einem Channel sagt
                                                  ;# wird das Programm pub_0000 aufgerufen
proc pub_hi {nick userhost hand chan text} {  ;# Hier ist das Programm pub_0000,
                                                ;# es wird mit dem parameter nick host des nicks, handle des nicks, channel und text aufgerufen
 if {![tlkchk $chan "hi"]} {return 0}             ;# wenn schon jemand hi innerhalb der Letzten Minute im Channel gesagt hat reagiere ich nicht darauf
  set num [rand 30]                               ;# aktiviere den Zufallsgenerator mit einer Zahl zwischen 0 und 29
  tlkadd $chan "hi"                               ;# innerhalb der naechsten Minute reagiere ich nicht mehr auf hi
   if {$num == 0} {putchan $chan "Hi"}               ;# wenn der Zufallsgenerator (num) eine 0 ist sage ich in den channel Hi
   if {$num == 1 || $num == 2} {putchan $chan "Hallo"}  ;# für 1 oder 2 sage ich Hallo
   if {$num == 3} {putchan $chan "Hi $nick"}            ;# für 3 sage ich hi und den nick, welcher das programm ausgelößt hat
   if {$num == 4} {putchan $chan "J00"}                 ;# ist der Zufallsgenerator 4 so sage ich JOO in den channel.
                                                        ;# für alle anderen Zahlen (5-29) reagiere ich nicht. Zenkor soll ja nicht auf jedes Hi/Hallo reagieren
}                                                       ;# Das war schon das erste proc ( programm ). Ich hoffe du kannst jetzt schon ein paar Grundlagen von tcl
                                                        ;# (  by Micha99  )


############### 1.2) CU/bye

bind pub - "cu" pub_cu
bind pub - "bye" pub_cu
proc pub_cu {nick userhost hand chan text} {
 if {![tlkchk $chan "cu"]} {return 0}
  set num [rand 50]
  tlkadd $chan "cu"
   if {$num == 0} {putchan $chan "Auf Wiedersehen "}
   if {$num == 1} {putchan $chan "Bis bald "}
   if {$num == 2} {putchan $chan "cu "}
   if {$num == 3} {putchan $chan "Bye "}
   if {$num == 4} {putchan $chan "Tschuess "}
   if {$num == 5} {putchan $chan "cu bald wieder "}
   if {$num == 6} {putchan $chan "cu l8r "}
   if {$num == 7} {putchan $chan "cu my friend "}
}

############### 1.3) LOL

bind pub - "lol" pub_0020
bind pub - "haha" pub_0020
bind pub - "lustig" pub_0020
bind pub - "lach" pub_0020
proc pub_0020 {nick userhost hand chan target} {
 if {![tlkchk $chan "lol"]} {return 0}
  set num [rand 60]
  tlkadd $chan "lol"
   if {$num == 0 || $num == 7 || $num == 8} {putchan $chan "lol"}
   if {$num == 1 || $num == 9 || $num == 10} {putchan $chan "l0l"}
   if {$num == 2} {putchan $chan "Hahaha"}
   if {$num == 3} {putchan $chan "Ich wuesste nicht was daran lustig ist"}
   if {$num == 4} {putchan $chan "Hihihi"}
   if {$num == 5} {putchan $chan "Hahaha"}
   if {$num == 6} {putchan $chan "was ist daran lustig $nick"}
}


############### 1.4) Shit

bind pub - "shit" pub_0030
bind pub - "scheiss" pub_0030
bind pub - "Arschloch" pub_0030
bind pub - "depp" pub_0030
bind pub - "dumm" pub_0030
bind pub - "bloed" pub_0030
proc pub_0030 {nick userhost hand chan target} {
 if {![tlkchk $chan "shit"]} {return 0}
  set num [rand 20]
  tlkadd $chan "shit"
   if {$num == 0} {putchan $chan "sagt man sowas?"}
   if {$num == 1} {putchan $chan "sagt man sowas? $nick"}
}


############### 1.5) Lamer

bind pub - "lame" pub_0040
bind pub - "lamer" pub_0040
bind pub - "l@mer" pub_0040
bind pub - "l@me" pub_0040
proc pub_0040 {nick userhost hand chan target} {
  set num [rand 50]
 if {![tlkchk $chan "lamer"]} {return 0}
  tlkadd $chan "lamer"
   if {$num == 0} {putchan $chan "Selber, $nick..."}
   if {$num == 1} {putchan $chan "$nick, du bist hier doch der LaMeR..."}
   if {$num == 2} {putchan $chan "Wooooooooooo ?????"}
   if {$num == 3} {putchan $chan "Woooo, $nick ?"}
   if {$num == 4 || $num == 14 || $num == 15 || $num == 16} {putchan $chan "Ohh Gott bitttteeeee lassss Hirn vom Himmel fallen fuer diesen laaammmmeeerrr"}
   if {$num == 5} {putchan $chan "Bist du nicht der laaaammmmmeeeerrrr, $nick ?"}
   if {$num == 6 || $num == 17} {putchan $chan "Ohh Gott schmeiss Hirn vom Himmel fuer diesen L.A.M.E.R. - aber nicht zu knapp"}
   if {$num == 7 || $num == 18} {putchan $chan "Herr schmeiss Hirn vom Himmel fuer diesen Lamer..."}
   if {$num == 8 || $num == 19 || $num == 20 || $num == 21} {putchan $chan "=== LaMeR-ScAn V2.o === (c)2oOo By ZeNkOr-SoFt"
                   putchan $chan "="
                   putchan $chan "= PrOcEssInG..."
                   putchan $chan "= 17 %"
                   putchan $chan "= 35 %"
                   putchan $chan "= 52 %"
                   putchan $chan "= 69 %"
                   putchan $chan "= 84 %"
                   putchan $chan "= FiNiShEd..."
                   putchan $chan "="
                   putchan $chan "= LaMeR DeTeCtEd : $nick"
                   putchan $chan "="
                   putchan $chan "=== LaMeR-ScAn V2.o === (c)2oOo By ZeNkOr-SoFt"
                  }
   if {$num == 9} {putchan $chan "ist ja der reinste Lamer-Treff hier..."}
   if {$num == 10} {putchan $chan ".oO wenn hier einer lame ist, dann $nick..."}
   if {$num == 11 || $num == 24 || $num == 25} {putchan $chan "=/\= Zenkor an Captain... Ich habe hier einen LAMER auf dem Trikorder... soll ich ihn in die Arrestzelle beamen? =/\="}
   if {$num == 12} {putchan $chan "=/\= BLUE ALERT!!! Lamer detected on Deck [rand 50]... =/\="}
   if {$num == 13 || $num == 22 || $num == 23} {putchan $chan "Was will denn der Lamer hier ueberhaupt?¿?"}
}

############### 1.6) Ensign Axt

bind pubm - "* Win NT ist sicher" pub_0050
bind pub - "hackerz" pub_0050
bind pub - "HACKERAXT" pub_0050
bind pub - "HACKHACKHACK" pub_0050
bind pub - "ENSIGNAXT" pub_0050
proc pub_0050 {nick userhost hand chan target} {
 if {![tlkchk $chan "hackeraxt"]} {return 0}
  set num [rand 15]
  tlkadd $chan "hackeraxt"
   if {$num == 0} {putchan $chan "EEEENNNNNSSSSSIIIIGGGGNNNNN"}
   if {$num == 1} {putchan $chan "             ___"}
   if {$num == 1} {putchan $chan "            /  /______"}
   if {$num == 1} {putchan $chan "        ___/       H /"}
   if {$num == 1} {putchan $chan "       /___       A /"}
   if {$num == 1} {putchan $chan "         /       C /"}
   if {$num == 1} {putchan $chan "        /       K /"}
   if {$num == 1} {putchan $chan "       /  _______/"}
   if {$num == 1} {putchan $chan "      /  /"}
   if {$num == 1} {putchan $chan "     /  /"}
   if {$num == 1} {putchan $chan "    /  /"}
   if {$num == 1} {putchan $chan "   /  /"}
   if {$num == 1} {putchan $chan "  /  /"}
   if {$num == 1} {putchan $chan " /  /"}
   if {$num == 1} {putchan $chan "/__/"}
   if {$num == 2} {putchan $chan "Win NT ist sicher!!! (c) by EnSiGn"}
   if {$num == 3} {putchan $chan " "}
   if {$num == 3} {putchan $chan "       /\\/\\          /\\/\\ "}
   if {$num == 3} {putchan $chan "      / /  \\ ENSIGN /  \\ \\ "}
   if {$num == 3} {putchan $chan "      \\/    \\      /    \\/ "}
   if {$num == 3} {putchan $chan "     _/     /      \\     \\_ "}
   if {$num == 3} {putchan $chan " ___/      /\\      /\\      \\___ "}
   if {$num == 3} {putchan $chan "|         /  \\    /  \\         | "}
   if {$num == 3} {putchan $chan "|        /\\   \\  /   /\\        | "}
   if {$num == 3} {putchan $chan "| H     |  \\   \\/   /  |     K | "}
   if {$num == 3} {putchan $chan "\\  A    /   \\  /   /   \\    C  / "}
   if {$num == 3} {putchan $chan " \\  C  |     \\/   /     |  A  / "}
   if {$num == 3} {putchan $chan "  \\  K |     /   /\\     | H  / "}
   if {$num == 3} {putchan $chan "   \\   |    /   /  \\    |   / "}
   if {$num == 3} {putchan $chan "    \\__|   / A /\\ H \\   |__/ "}
   if {$num == 3} {putchan $chan "          / H /  \\ A \\ "}
   if {$num == 3} {putchan $chan "         /   /    \\   \\ "}
   if {$num == 3} {putchan $chan "L       /   /      \\   \\       G "}
   if {$num == 3} {putchan $chan "       /   /        \\   \\ "}
   if {$num == 3} {putchan $chan "    U /   /          \\   \\ I "}
   if {$num == 3} {putchan $chan "     /   /            \\   \\ "}
   if {$num == 3} {putchan $chan "    /   /   S      T   \\   \\ "}
   if {$num == 3} {putchan $chan "    \\  /                \\  / "}
   if {$num == 3} {putchan $chan "     \\/                  \\/ "}
   if {$num == 3} {putchan $chan " "}

}
############### 1.7) G*

bind pub - "g*" pub_0060
bind pub - "G*" pub_0060
bind pub - "grins" pub_0060
bind pub - "GRINS" pub_0060
proc pub_0060 {nick userhost hand chan target} {
 if {![tlkchk $chan "g*"]} {return 0}
  set num [rand 35]
  tlkadd $chan "g*"
   if {$num == 0} {putchan $chan "*bg*"}
   if {$num == 1} {putchan $chan "*grins*"}
   if {$num == 2} {putchan $chan "*g*"}
   if {$num == 3} {putchan $chan "*vbg*"}
   if {$num == 4} {putchan $chan "*G*"}
   if {$num == 5} {putchan $chan "*GGG*"}
}


############### 1.8) :)

bind pub - ":-)" pub_0070
bind pub - ":)" pub_0070
bind pub - "-)" pub_0070
bind pub - "::--))" pub_0070
proc pub_0070 {nick userhost hand chan target} {
 if {![tlkchk $chan "smilie"]} {return 0}
  set num [rand 60]
  tlkadd $chan "smilie"
   if {$num == 0} {putchan $chan ":-) "}
   if {$num == 1} {putchan $chan ":-> "}
   if {$num == 2} {putchan $chan "::-->> "}
   if {$num == 3 || $num == 15} {putchan $chan "::--)) "}
   if {$num == 4 || $num == 14} {putchan $chan ":-) "}
   if {$num == 5} {putchan $chan ":) "}
   if {$num == 6 || $num == 13} {putchan $chan ":---) "}
   if {$num == 7} {putchan $chan "Ich habe nur ein Auge, $nick  .) "}
   if {$num == 8 || $num == 11 || $num == 12} {putchan $chan ":) "}
   if {$num == 9 || $num == 10} {putchan $chan ":> "}
}


############### 1.9) ;)

bind pub - ";-)" pub_0080
bind pub - ";)" pub_0080
bind pub - ";;-)" pub_0080
bind pub - ";;--))" pub_0080
proc pub_0080 {nick userhost hand chan target} {
 if {![tlkchk $chan "grins"]} {return 0}
  set num [rand 60]
  tlkadd $chan "grins"
   if {$num == 0} {putchan $chan ";-) "}
   if {$num == 1} {putchan $chan ";-> "}
   if {$num == 2} {putchan $chan ";;-->> "}
   if {$num == 3} {putchan $chan ";;--)) "}
   if {$num == 4} {putchan $chan ";-) "}
   if {$num == 5} {putchan $chan ";) "}
   if {$num == 6} {putchan $chan ";---) "}
   if {$num == 7} {putchan $chan ",) "}
   if {$num == 8 || $num == 10 || $num == 11} {putchan $chan ";) "}
   if {$num == 9} {putchan $chan ";> "}
}

############### 1.10) :(

bind pub - ":-(" pub_0090
bind pub - ";(" pub_0090
bind pub - ":(" pub_0090
bind pub - "::--((" pub_0090
proc pub_0090 {nick userhost hand chan target} {
 if {![tlkchk $chan "wein"]} {return 0}
  set num [rand 60]
  tlkadd $chan "wein"
   if {$num == 0} {putchan $chan ";-( "}
   if {$num == 1} {putchan $chan ":-< "}
   if {$num == 2} {putchan $chan "::--<< "}
   if {$num == 3} {putchan $chan "::--(( "}
   if {$num == 4} {putchan $chan ":-( "}
   if {$num == 5} {putchan $chan ":( "}
   if {$num == 6} {putchan $chan ":---( "}
   if {$num == 7} {putchan $chan ",( "}
   if {$num == 8 || $num == 10 || $num == 11} {putchan $chan ":( "}
   if {$num == 9} {putchan $chan ":< "}
}


############### 1.11) Essen

bind pub - "Essen" pub_0100
bind pub - "Hunger" pub_0100
bind pub - "Plaetzchen" pub_0100
bind pub - "Lebkuchen" pub_0100
proc pub_0100 {nick userhost hand chan target} {
 if {![tlkchk $chan "essen"]} {return 0}
  set num [rand 6]
  tlkadd $chan "essen"
   if {$num == 0} {putchan $chan "\001ACTION gibt[string range $rest [string length [lindex $rest 0]] end] $nick was zu Essen [lindex $rest 0].\001"}
}

############### 1.12) Wie geht's

bind pubm - "* wie gehts $nick ?" pub_0120
bind pubm - "* wie gehts dir $nick ?" pub_0120
proc pub_0120 {nick userhost hand chan target} {
 if {![tlkchk $chan "gehts"]} {return 0}
  set num [rand 15]
  tlkadd $chan "gehts"
   if {$num == 0} {putchan $chan "mir gehts gut danke und dir?"}
   if {$num == 1} {putchan $chan "mir gehts gut danke und dir $nick ?"}
   if {$num == 2} {putchan $chan "scheiss Tag heute, bin muede!"}
   if {$num == 3} {putchan $chan "mann.. immer dieses scheiss $nick !"}
   if {$num == 4} {putchan $chan "Aufpassen da $nick !"}
   if {$num == 5} {putchan $chan "Aufpassen da!"}
   if {$num == 6} {putchan $chan "scheiss Tag heute $nick, bin muede!"}
   if {$num == 7} {putchan $chan "mir gehts gut $nick danke und dir?"}
 return 0
}

############### 1.13) Morgen

proc pubmorgen {nick userhost hand chan target} {
 if {![tlkchk $chan "morgen"]} {return 0}
  set num [rand 15]
  tlkadd $chan "morgen"
   if {$num == 0} {putchan $chan "morgen $nick"}
   if {$num == 1} {putchan $chan "morgen"}
   if {$num == 2} {putchan $chan "Morgen"}
   if {$num == 3} {putchan $chan "Morgen $nick"}
 return 0
}


############### 1.14) Schlafen

proc pubnacht {nick userhost hand chan target} {
 if {![tlkchk $chan "schlafen"]} {return 0}
  set num [rand 20]
  tlkadd $chan "schlafen"
   if {$num == 0} {putchan $chan "dann schlaf gut $nick"}
   if {$num == 1} {putchan $chan "N8 $nick"}
   if {$num == 2} {putchan $chan "ich auch"}
   if {$num == 3} {putchan $chan "dann schlaf gut $nick"}
 return 0
}


############### 1.15) Hunger

bind pubm - "* $nick, ich habe hunger!" pub_0150
bind pubm - "* $nick, ich habe hunger!" pub_0150
proc pub_0150 {nick userhost hand chan target} {
  if {![tlkchk $chan "hunger"]} {return 0}
   set num [rand 25]
   tlkadd $chan "hunger"
    if {$num == 0} {putchan $chan "Hmm.. ich auch *g*"}
    if {$num == 1} {putchan $chan "Hmm.. ich auch $nick *g*"}
    if {$num == 2} {putchan $chan "ich auch *g*"}
    if {$num == 3} {putchan $chan "Hmm.. ich auch *g*"}
    if {$num == 4} {putchan $chan "Mir knurrt auch der Magen"}
  return 0
}



#################### 1.16) schwul

bind pub - "schwul" pubschwul

proc pubschwul {nick host hand chan arg} {
 if {![tlkchk $chan "schwul"]} {return 0}
 set num [rand 30]
 tlkadd $chan "schwul"
   if {$num == 0} {putchan $chan "Ein astreines Coming Out, $nick !!!" }
   if {$num == 1} {putchan $chan "Lamer allein genuegt dir wohl noch nicht, $nick?!?" }
   if {$num == 2} {putchan $chan "nicht noch so'n Schwuchtel, bittteeeeeeeeeeeee..." }
   if {$num == 3} {putchan $chan "wer ist hier schwul?!?" }
   if {$num == 4} {putchan $chan "Schwuchtel-Alarm in $chan!!!" }
   if {$num == 5} {putchan $chan "=/\\= Zenkor an Captain, Schwuchtel detected in $chan, Warm alert forced!!! =/\\=" }
}

############### 1.17)

bind pub - "cyao" pub_cyao
proc pub_cyao {nick host hand chan arg} {
 if {![tlkchk $chan "cyao"]} {return 0}
  set num [rand 50]
  tlkadd $chan "cyao"
   if {$num == 0} {putchan $chan "Nicht schon wieder sonne Ialiäner Pack "}
   if {$num == 1} {putchan $chan "Sind Wir hier nicht ein deutscher Chat?? Oder habe ich mich verlaufen :P "}
   if {$num == 2} {putchan $chan "Können die sich nicht einen eigenden Chan aufmachen wie z.B. #chatten.it ?? "}
   if {$num == 3} {putchan $chan "Fuck of It" }
}

#################### 1.18) Italien

bind pub - "Italien" pub_Italien
bind pub - "Itali" pub_Italien
bind pub - "Italia" pub_Italien

proc pub_Italien {nick host hand chan arg} {
 if {![tlkchk $chan "Italien"]} {return 0}
 set num [rand 30]
 tlkadd $chan "Italien"
   if {$num == 0} {putchan $chan "Nicht schon wieder sonne Ialiäner Pack" }
   if {$num == 1} {putchan $chan "Sind Wir hier nicht ein deutscher Chat?? Oder habe ich mich verlaufen :P" }
   if {$num == 2} {putchan $chan "Können die sich nicht einen eigenden Chan aufmachen wie z.B. #chatten.it ??" }
   if {$num == 3} {putchan $chan "Fuck of It" }
   if {$num == 4} {putchan $chan "Hilfe!!!!!! Die Italiäner sind los aaahhhhhh" }
}


#################### 1.19)

bind pub - "Wurst" pub_Wurst
bind pub - "wurst" pub_Wurst
bind pub - "Odin" pub_Wurst
bind pub - "odin" pub_Wurst

proc pub_Wurst {nick host hand chan arg} {
  if {![tlkchk $chan "Wurst"]} {return 0}
  set num [rand 30]
  tlkadd $chan "Wurst"
    if {$num == 0} {putchan $chan "Wadd? Wer Bist du denn???" }
    if {$num == 1} {putchan $chan "selber Wurst" }
    if {$num == 2} {putchan $chan "Odin du Wurst!!" }
    if {$num == 3} {putchan $chan "Wurst schmiert man das nicht auf ein Brot???" }
    if {$num == 4} {putchan $chan "WUAAAAAAST" }
}





#################### 1.20)

bind pub - "Mc Donnels" pub_Mc
bind pub - "McDonnals" pub_Mc
bind pub - "Mc" pub_Mc
bind pub - "McFras" pub_Mc
bind pub - "Mc Fras" pub_Mc
bind pub - "McDreck" pub_Mc
bind pub - "Mc Dreck" pub_Mc
bind pub - "McKotz" pub_Mc
bind pub - "Mc Kotz" pub_Mc
bind pub - "mc doof" pub_Mc
bind pub - "mc dreck" pub_Mc

proc pub_Mc {nick host hand chan arg} {
  if {![tlkchk $chan "Mc"]} {return 0}
  set num [rand 30]
  tlkadd $chan "Mc"
    if {$num == 0} {putchan $chan "$nick bringst du mir was mit?? Wenn ja möchte ich 'nen 20ziger Mc Nugets, 1 Cheesebürger, 1 MC Rib, 1 große Cola und nen MC Flurry mit bunten Smarties" }
    if {$num == 1} {putchan $chan "Bääähh Mc schmeckt doch nicht" }
    if {$num == 2} {putchan $chan "MMMhhhhhh lecker Ich möchte auch was... sonst kick ich dich $nick :P" }
    if {$num == 3} {putchan $chan "Schon wieder?? Du wirst zu dick" }
    if {$num == 4} {putchan $chan "Man, du mußt Geld haben...." }
    if {$num == 5} {putchan $chan "uiiii, leeeeckaaaa" }
}


#################### 1.23)

bind pub - "Ficken" pub_boese
bind pub - "Blasen" pub_boese
bind pub - "Sex" pub_boese
bind pub - "Arschloch" pub_boese
bind pub - "Titten" pub_boese
bind pub - "Votze" pub_boese
bind pub - "ausziehn" pub_boese
bind pub - "fuck" pub_boese
bind pub - "Böse" pub_boese

proc pub_boese {nick host hand chan arg} {
  if {![tlkchk $chan "Boese"]} {return 0}
  set num [rand 30]
  tlkadd $chan "Boese"
    if {$num == 0} {putchan $chan "Na Na Na, So was is doch net erlaubt $nick" }
    if {$num == 1} {putchan $chan "Soll man vor Gott solche Wörter benutzen ???" }
    if {$num == 2} {putchan $chan "Du beginnst einen 187 (Polizeicode für Mord)" }
    if {$num == 3} {putchan $chan "Iknows Audi A4 ist böse :)" }
    if {$num == 4} {putchan $chan "iiih, das ja schweinkram *G*" }

}


#################### 1.21)

bind pub - "Windows" pub_Win
bind pub - "windows" pub_Win
bind pub - "WINDOWS" pub_Win
bind pub - "Windoof" pub_Win
bind pub - "windoof" pub_Win
bind pub - "WINDOOF" pub_WIn


proc pub_Mc {nick host hand chan arg} {
 if {![tlkchk $chan "Win"]} {return 0}
 set num [rand 30]
 tlkadd $chan "Win"
   if {$num == 0} {putchan $chan "Was is Windows???? Ich kenne nur DOS" }
   if {$num == 1} {putchan $chan "Windows ist was für Lamer" }
   if {$num == 2} {putchan $chan "Windoof und ich bin unschlau :P" }
   if {$num == 3} {putchan $chan "Schon wieder so ein alter Fensterputzer" }
   if {$num == 4} {putchan $chan "windows-Absturz ---> It's not a bug, it's a feature" }
   if {$num == 5} {putchan $chan "my blue Screen hat ein Fehler...., er ist nicht blau sonder lila *g*" }
   if {$num == 6} {putchan $chan "Windows and bluescreen ---> it's ....normal" }
}



#################### 1.22)

bind pub - "DvD" pub_DvD
bind pub - "dvd" pub_DvD
bind pub - "Dvd" pub_DvD

proc pub_DvD {nick host hand chan arg} {
 if {![tlkchk $chan "DvD"]} {return 0}
 set num [rand 30]
 tlkadd $chan "DvD"
   if {$num == 0} {putchan $chan "$nick Lässt du mich mitgucken????" }
   if {$num == 1} {putchan $chan "Was guckst du $nick" }
   if {$num == 2} {putchan $chan "DvD??? Man du bist ja modern" }
   if {$num == 3} {putchan $chan "Wow du hast DvD Hätte ich aber net gedacht" }
   if {$num == 4} {putchan $chan "DvD so was lames *g* ich habe nur Diskette" }
}

#################### 1.23)

bind pub - "Ficken" pub_Böse
bind pub - "Blasen" pub_Böse
bind pub - "Sex" pub_Böse
bind pub - "Arschloch" pub_Böse
bind pub - "Titten" pub_Böse
bind pub - "Votze" pub_Böse
bind pub - "ausziehn" pub_Böse
bind pub - "fuck" pub_Böse
bind pub - "Böse" pub_Böse

proc pub_Böse {nick host hand chan arg} {
 if {![tlkchk $chan "Böse"]} {return 0}
 set num [rand 30]
 tlkadd $chan "Böse"
   if {$num == 0} {putchan $chan "Na Na Na, So was is doch net erlaubt $Nick" }
   if {$num == 1} {putchan $chan "Soll man vor Gott solche Wörter benutzen ???" }
   if {$num == 2} {putchan $chan "Du beginnst einen 187 (Polizeicode für Mord)" }
   if {$num == 2} {putchan $chan "Iknows Audi A4 ist böse :)" }
}

#################### 1.24)

bind pub - "Drogen" pub_Drogen

proc pub_Drogen {nick host hand chan arg} {
 if {![tlkchk $chan "Drogen"]} {return 0}
 set num [rand 30]
 tlkadd $chan "Drogen"
   if {$num == 0} {putchan $chan "Keiner macht den Drogen" }
   if {$num == 1} {putchan $chan "Ich stehe immer unter Drogen sonst kann ich euch nicht ertragen" }
   if {$num == 2} {putchan $chan "Drogen zu verkaufen was wollen sie???" }
}

#################### 1.25)

bind pub - "Micha" pub_micha
bind pub - "Micha99" pub_micha

proc pub_micha {nick host hand chan arg} {
 if {![tlkchk $chan "Micha99"]} {return 0}
 set num [rand 30]
 tlkadd $chan "Micha"
   if {$num == 0} {putchan $chan "Micha99 ist zur Zeit nicht ereichbar wenn sie eine Nachricht für ihn haben sprechen sie nach dem Piep Ton.... hihihi wart auf piep lalalala *g* *Piep*" }
   if {$num == 1} {putchan $chan "Micha99 da ist wer der mit ihnen reden möchte" }
   if {$num == 2} {putchan $chan "Micha99 ist.... ja was ist er den mmhhh.... ja das ist es.... er ist da wo er immer ist :P" }
}

#################### 1.26)

bind pub - "Pferd" pub_Pferd
bind pub - "reiten" pub_Pferd
bind pub - "ficken" pub_Pferd

proc pub_Pferd {nick host hand chan arg} {
 if {![tlkchk $chan "Pferd"]} {return 0}
 set num [rand 30]
 tlkadd $chan "Pferd"
   if {$num == 0} {putchan $chan "Mmmmmhhhh dadraus kann man lecker Pferdewürstchen oder Pferdesteaks machen lecker" }
   if {$num == 1} {putchan $chan "Pferde reiten ist langweilig....Frauen reiten macht mehr Spaß" }
   if {$num == 2} {putchan $chan "Ja die pferde sind sooooooooo.... nun ja sagen wir es so... sie sind nur für eins zu gebrauchen zum essen" }
}

#################### 1.27)

bind pub - "Bier" pub_Bier

proc pub_Bier {nick host hand chan arg} {
 if {![tlkchk $chan "Bier"]} {return 0}
 set num [rand 20]
 tlkadd $chan "Bier"
   if {$num == 0} {putchan $chan "Bier her Bier her oder ich kip um" }
   if {$num == 1} {putchan $chan "Ein Tag ohne Bier ist wie ein Tag ohne Pc" }
   if {$num == 2} {putchan $chan "Bier macht dick, Shnaps macht krank wir sind Kiffer Gott sei Dank" }
}

#################### 1.28)

proc pub_bot {nick host hand chan arg} {
 if {![tlkchk $chan "Bot"]} {return 0}
 set num [rand 30]
 tlkadd $chan "Bot"
   if {$num == 0} {putchan $chan "Bots sind schlau!!!!!! Merkt man doch an mir oder nicht :P" }
   if {$num == 1} {putchan $chan "Hast du was gegen mich oder was???" }
}

#################### 1.29)

bind pub - "." pub_point

proc pub_point {nick host handle chan arg} {
 if {![tlkchk $chan "point"]} {return 0}
 set num [rand 11]
 tlkadd $chan "point"
   if {$num == 0 || $num == 1 || $num == 2} {putchan $chan "." }
   if {$num == 3} {putchan $chan ".." }
   if {$num == 4} {putchan $chan "..." }
   if {$num == 5} {putchan $chan "..."; putchan $chan ".."; putchan $chan "." }
   if {$num == 6} {putchan $chan "."; putchan $chan ".."; putchan $chan "..." }
   if {$num == 7} {putchan $chan "Yeahh $nick" }
   if {$num == 10} {putchan $chan "Yeahhhh $handle" }
   if {$num == 8 || $num == 9} { if {$handle == "Micha99"} { putchan $chan ". reeee M4st3r Micha99" } }
}


################################################################
# Section 2: normale antworten auf schlagwörter
################################################################
# Summary:
# 2.1) Klappe
# 2.2) Nospam
# 2.3) Witz
# 2.4) Uhr
# 2.5) Datum
# 2.6) !OP
# 2.7) Würfel
# 2.8) shit zenkor
# 2.9) fuck

############### 2.1) Klappe

                                                                                            ;# jetzt wird es schon etwas komplizierter
proc pubklappe {nick userhost hand chan target} {                                           ;# dieses proc wird von der Zentralen Zenkor Steuereinheit aus Section 4 aufgerufen
 if {![tlkchk $chan "klappe"]} {return 0}                                                   ;# jetzt wieder erstnak die überprüfung ob schonmal jemand vor kurzem klappe gesagt hat
  tlkadd $chan "klappe"                                                                     ;# und gleich das wort klappe zu der liste der vor kurzen gesagten wörter hinzu
  global stoptlk                                                                            ;# die globale variable stoptlk wird initialisiert
  set num [rand 15]                                                                         ;# Zuffallsgenerator wird auf 15 gestellt
  if {[matchattr $hand +f]} {                                                               ;# Jetzt unterscheidet Zenkor, ob der "klappe" sagt ein freund oder unbekannter ist
   if {$num == 0 || $num == 3 || $num == 4} {putchan $chan "ist ja schon gut!"}             ;# ist er ein freund reagiert er mit wörtern wie "ist ja schon gut!"
   if {$num == 1 || $num == 5} {putchan $chan "werde ich ja schon tun!"}
   if {$num == 2} {putchan $chan "werde ich ja schon tun $nick !"}
   if {$num == 6} {putchan $chan "Alles Klar Chef ich bin ruhig"}
   set stoptlk($chan) 1                                                                     ;# und hält seine klappe
   set a [timer 5 "unset stoptlk($chan)"]                                                   ;# allerdings wird er nach 5 minuten wieder reaktiviert
  } else {                                                                                  ;# handelt es sich allerdings um einen unbekannten, wird Zenki frech
   if {$num == 0 || $num == 2 || $num == 3} {putchan $chan "Halt du doch DEINE $nick !!!!!"}
   if {$num == 1} {putchan $chan "Halt du doch DEINE !!!!"}
   if {$num == 4 || $num == 5} {putchan $chan "Auf dich hoere ich nicht !!!!"}
  }                                                                                         ;# und hält nicht seine klappe g*
 return 0
}



############### 2.2) Nospam

bind pubm - "* #*" pubspam
proc pubspam {nick host hand chan text} {
 global spamchk
 if {[matchattr $hand +m] || $spamchk == 0 || [matchattr $hand +b]} {return 0}
 global pubspamcount
 if {![info exists pubspamcount($host)]} {
  set pubspamcount($host) 1
  set num [rand 4]
  tlkadd $chan "spam"
   if {$num == 0} {putchan $chan "Bitte kein Spam, das ist die letzte Warnung $nick"}
   if {$num == 1} {putchan $chan "$nick kein Spam hier klar?"}
   if {$num == 2} {putchan $chan "Was soll der shit Spam?, beim nächsten mal gibt es einen kick"}
   if {$num == 3} {putchan $chan "Wenn du nochmal spam machst wirst du gekickt $nick"}
 } {
  if {$pubspamcount($host) == 2} { newchanban $chan "*!*$host" "Z3nk0r" "Spam" 60; kickmask $host $chan "Spam" }
  if {$pubspamcount($host) == 1} { set pubspamcount($host) 2; putserv "KICK $chan $nick :ich habe dich gewarnt"}
 }
 return 0
}


############### 2.3) Witz

bind pub - "!witz" pubwitz
bind pub - "!Witz" pubwitz
proc pubwitz {nick userhost hand chan target} {
 if {![tlkchk $chan "witz"]} {return 0}
 if {![tlkchk $chan "witz!$nick"]} {return 0}
  set wnum [lindex $target 0]
  if {$wnum == ""} { set num [rand 55] } else { set num $wnum }
  tlkshortadd $chan "witz"
  tlkadd $chan "witz!$nick"
   if {$num == 0} {putchan $chan "Was ist der Unterschied zwischen einem Arbeitsplatz und Windows NT? "}
   if {$num == 0} {putchan $chan "- ??? "}
   if {$num == 0} {putchan $chan "- ?? "}
   if {$num == 0} {putchan $chan "- ? "}
   if {$num == 0} {putchan $chan "- Windows NT ist sicher!!! "}

   if {$num == 1} {putchan $chan "Warum streuen die Ostfriesen Salz und Pfeffer auf ihren Monitor? "}
   if {$num == 1} {putchan $chan "- ??? "}
   if {$num == 1} {putchan $chan "- ?? "}
   if {$num == 1} {putchan $chan "- ? "}
   if {$num == 1} {putchan $chan "- Damit das Bild schaerfer wird. "}

   if {$num == 2} {putchan $chan "Warum reiben die Ostfriesen ihre Verbindungskabel mit oel ein? "}
   if {$num == 2} {putchan $chan "- ??? "}
   if {$num == 2} {putchan $chan "- ?? "}
   if {$num == 2} {putchan $chan "- ? "}
   if {$num == 2} {putchan $chan "- Damit die Daten schneller durch die Leitung kommen. "}

   if {$num == 3} {putchan $chan "Wieviele Borg braucht man, um eine Gluehbirne auszuwechseln? "}
   if {$num == 3} {putchan $chan "- ??? "}
   if {$num == 3} {putchan $chan "- ?? "}
   if {$num == 3} {putchan $chan "- ? "}
   if {$num == 3} {putchan $chan "- Beleuchtung ist irrelevant. "}

   if {$num == 4} {putchan $chan "Was ist der Unterschied zwischen Sternen und Menschen? "}
   if {$num == 4} {putchan $chan "- ??? "}
   if {$num == 4} {putchan $chan "- ?? "}
   if {$num == 4} {putchan $chan "- ? "}
   if {$num == 4} {putchan $chan "- Es gibt keinen! Bei beiden gilt: Je groesser die Masse, desto geringer die Lebenserwartung! "}

   if {$num == 5} {putchan $chan "Was ist der Unterschied zwischen Bill Gates und Gott? "}
   if {$num == 5} {putchan $chan "- ??? "}
   if {$num == 5} {putchan $chan "- ?? "}
   if {$num == 5} {putchan $chan "- ? "}
   if {$num == 5} {putchan $chan "- Gott denkt nicht, er sei Bill Gates. "}

   if {$num == 6} {putchan $chan "Treffen sich zwei Klingonen. Beide tot! "}

   if {$num == 7} {putchan $chan "Welches Tabellenkalkulationsprogramm verwenden die Borg? "}
   if {$num == 7} {putchan $chan "- ??? "}
   if {$num == 7} {putchan $chan "- ?? "}
   if {$num == 7} {putchan $chan "- ? "}
   if {$num == 7} {putchan $chan "- Locutus 1-2-3. "}

   if {$num == 8} {putchan $chan "Borger King - Our way.  Your way is irrelevant "}

   if {$num == 9} {putchan $chan "Was sagte der Autofahrer, als sein Auto umkippte? "}
   if {$num == 9} {putchan $chan "- ??? "}
   if {$num == 9} {putchan $chan "- ?? "}
   if {$num == 9} {putchan $chan "- ? "}
   if {$num == 9} {putchan $chan "- Aaaaah, klasse! "}

   if {$num == 10} {putchan $chan "Ein Raeuber setzt einem Ferengi den Phaser an den Schaedel und sagt: \"Geld oder Leben!\" - Der Ferengi: \"aeaeaeaeh, da nehm ich lieber das Geld!\" "}

   if {$num == 11} {putchan $chan "Zwei Astronomen geben an, dass sich die Balken biegen. \"Gestern nacht habe ich mit meinem riesigen Superspitzenteleskop gesehen, wie ein Mensch auf dem Mars rumlief!\" - \"Klar! Das war ich!\" "}

   if {$num == 12} {putchan $chan "\"Das ist ja ein oedes Nest hier! Hier ist ja ueberhaupt nix los!\" - \"Na hoeren Sie mal, wir haben in drei Tagen eine Mondfinsternis!\" "}

   if {$num == 13} {putchan $chan "What do you get when you cross a Borg with Robbie the Robot? "}
   if {$num == 13} {putchan $chan "- ??? "}
   if {$num == 13} {putchan $chan "- ?? "}
   if {$num == 13} {putchan $chan "- ? "}
   if {$num == 13} {putchan $chan "- Marvin the Paranoid Android! Bada Boom! "}

   if {$num == 14} {putchan $chan "Warum faehrt der Trabi nicht schneller als 50? "}
   if {$num == 14} {putchan $chan "- ??? "}
   if {$num == 14} {putchan $chan "- ?? "}
   if {$num == 14} {putchan $chan "- ? "}
   if {$num == 14} {putchan $chan "- Wenn er schneller waere, hiesse er Galoppi. "}

   if {$num == 15} {putchan $chan "Warum haben Trabis einen Lackueberzug? "}
   if {$num == 15} {putchan $chan "- ??? "}
   if {$num == 15} {putchan $chan "- ?? "}
   if {$num == 15} {putchan $chan "- ? "}
   if {$num == 15} {putchan $chan "- Damit sie bei Regen nicht aufweichen. "}

   if {$num == 16} {putchan $chan "Warum muessen die Ostfriesen auf ihre Fotos so lange warten? "}
   if {$num == 16} {putchan $chan "- ??? "}
   if {$num == 16} {putchan $chan "- ?? "}
   if {$num == 16} {putchan $chan "- ? "}
   if {$num == 16} {putchan $chan "- Weil sie die Filme in die Entwicklungslaender schicken. "}

   if {$num == 17} {putchan $chan "Was ist schwarz und klebt an einem Kabel? "}
   if {$num == 17} {putchan $chan "- ??? "}
   if {$num == 17} {putchan $chan "- ?? "}
   if {$num == 17} {putchan $chan "- ? "}
   if {$num == 17} {putchan $chan "- Ein schlechter Elektriker! "}

   if {$num == 18} {putchan $chan "Was ist gruen und auf Knopfdruck rot? "}
   if {$num == 18} {putchan $chan "- ??? "}
   if {$num == 18} {putchan $chan "- ?? "}
   if {$num == 18} {putchan $chan "- ? "}
   if {$num == 18} {putchan $chan "- Ganz klar: Frosch im Mixer! "}

   if {$num == 19} {putchan $chan "Ein Kannibalenstamm hat mitten im Urwald (gleich neben Sinti's Wohnwagen) einen McDonalds aufgemacht. Jetzt warten die Besitzer nur noch auf einen Bus voller Hamburger... "}

   if {$num == 20} {putchan $chan "\"Was sind denn das fuer Statuen da oben auf dem Dach?\" - \"Weiss ich auch nicht, aber wenn sie sich um fuenf Uhr bewegen, dann sind es die Dachdecker!\" "}

   if {$num == 21} {putchan $chan "Fahrgast: \"Wie lange haelt dieser Zug?\" - Schaffner: \"Naja, bei guter Pflege bestimmt zwanzig Jahre!\" "}

   if {$num == 22} {putchan $chan "Paulchen droht auf dem Spaziergang seiner huebschen Mutter: \"Mutti, wenn du mir kein Eis kaufst, werde ich vor jedem Oma zu dir sagen!\" "}

   if {$num == 23} {putchan $chan "Ein Cowboy schiesst im Wilden Westen einem anderen ein Auge aus. Sagt der: \"Das machst du nicht nocheinmal, sonst schau ich dich nicht mehr an!\" "}

   if {$num == 24} {putchan $chan "Im Wilden Westen pokern vier Maenner. Einer hat nur ein Ohr. Ploetzlich springt Joe auf, zieht seinen Colt und ruft: \"Halt! Ich will keinen Namen nennen, aber wenn derjenige, den ich meine, noch einmal seine Karte aus dem aermel zieht, schiesse ich ihm das andere Ohr auch noch ab!\" "}

   if {$num == 25} {putchan $chan "Treffen sich zwei Kopfgeldjaeger im Wilden Westen: \"Hey, gestern habe ich deinen Vater getroffen!\" - \"So, wo denn?\" - \"Zwischen den Augen!\" "}

   if {$num == 26} {putchan $chan "Katzen wuerden Whiskas kaufen, ich will lieber Whisky saufen! "}

   if {$num == 27} {putchan $chan "Eine Bienenkoenigin befiehlt ihrem Volk: \"Wir fliegen jetzt zu der Grossbaustelle und sorgen dort einmal fuer Bewegung unter den Maurern!\" "}

   if {$num == 28} {putchan $chan "Kannibalen beim Essen: \"Magst du eigentlich deine Frau?\" - \"Oja, sehr!\" - \"Na dann lang mal kraeftig zu!\" "}

   if {$num == 29} {putchan $chan "Ein Kannibale kommt in ein Gasthaus und bestellt sich einen Kellner... "}

   if {$num == 30} {putchan $chan "Was ist der Unterschied zwischen einem Panzer und einem Penis? "}
   if {$num == 30} {putchan $chan "- ??? "}
   if {$num == 30} {putchan $chan "- ?? "}
   if {$num == 30} {putchan $chan "- ? "}
   if {$num == 30} {putchan $chan "- Versuche mal, einen Panzer durch Blasen zum Stehen zu bringen... "}

   if {$num == 31} {putchan $chan "Wie nennt man 'Liebe' auf bayerisch? "}
   if {$num == 31} {putchan $chan "- ??? "}
   if {$num == 31} {putchan $chan "- ?? "}
   if {$num == 31} {putchan $chan "- ? "}
   if {$num == 31} {putchan $chan "- Reit im Winkl... "}

   if {$num == 32} {putchan $chan "Wie sieht eine tuerkische Muschi aus? "}
   if {$num == 32} {putchan $chan "- ??? "}
   if {$num == 32} {putchan $chan "- ?? "}
   if {$num == 32} {putchan $chan "- ? "}
   if {$num == 32} {putchan $chan "- Schon mal einen Doener aufgeklappt? "}

   if {$num == 33} {putchan $chan "Frau beim Arzt: Herr Doktor, meine Spirale ist im Arsch... "}

   if {$num == 34} {putchan $chan "Hat der Vollmond Auswirkungen auf das Sexualleben der Menschen? "}
   if {$num == 34} {putchan $chan "- ??? "}
   if {$num == 34} {putchan $chan "- ?? "}
   if {$num == 34} {putchan $chan "- ? "}
   if {$num == 34} {putchan $chan "- Bei mir schon, dann kann man die Nachbarn besser mit dem Fernglas beobachten... "}

   if {$num == 35} {putchan $chan "Sag mal, Papi, was versteht man eigentlich unter dem Begriff \"pervers\" ? "}
   if {$num == 35} {putchan $chan "Ach, halt doch die Klappe, und knoepfe mir endlich den BH auf!!!... "}

   if {$num == 36} {putchan $chan "Zwei Angler, einer zieht eine wunderschoene Meerjungfrau aus dem Wasser, betrachtet sie kurz und wirft sie wieder zurueck. "}
   if {$num == 36} {putchan $chan "Daraufhin kommt es zum folgenden Dialog: "}
   if {$num == 36} {putchan $chan "\"Warum?\" "}
   if {$num == 36} {putchan $chan "\"Wie?\" "}

   if {$num == 37} {putchan $chan "Was ist das: Schwarz - Rot - Schwarz - Rot - Schwarz - Rot - Schwarz - Rot - Weiss ?! "}
   if {$num == 37} {putchan $chan "- ??? "}
   if {$num == 37} {putchan $chan "- ?? "}
   if {$num == 37} {putchan $chan "- ? "}
   if {$num == 37} {putchan $chan "- Ein Neger beim Onanieren... "}

   if {$num == 38} {putchan $chan "Was ist eine Gummipuppe mit weissen Augen? "}
   if {$num == 38} {putchan $chan "- ??? "}
   if {$num == 38} {putchan $chan "- ?? "}
   if {$num == 38} {putchan $chan "- ? "}
   if {$num == 38} {putchan $chan "- Voll !!! "}

   if {$num == 39} {putchan $chan "Eine Englaenderin stellt auf der Hochzeitsreise fest, dass sie einen Einbeinigen geheiratet hat. "}
   if {$num == 39} {putchan $chan "Telegramm an ihre Mutter: \"My husband has only one foot\". "}
   if {$num == 39} {putchan $chan "Telegramm zurueck: \"Be happy, your father has only three inches.\" "}

   if {$num == 40} {putchan $chan "Ein leprakranker Mann bumst mit einer Aidskranken. Nachdem alles vorbei ist, sagt sie zu ihm: "}
   if {$num == 40} {putchan $chan "\"Weisst du schon, dass ich Aids habe?\" "}
   if {$num == 40} {putchan $chan "Sagt er: \"Macht nix, hab' meinen Schwanz eh' in dir stecken lassen...\" "}

   if {$num == 41} {putchan $chan "Steht ein Mann nackt vorm Spiegel, betrachtet sich und sagt: \"Ach, zwei Zentimeter mehr, und ich waere Koenig.\" "}
   if {$num == 41} {putchan $chan "Antwortet eine Stimme: \"Zwei Zentimeter weniger, und Du waerst Koenigin!\" "}

   if {$num == 42} {putchan $chan "Was sitzt im Dunkeln, hat Fluegel und saugt Blut? "}
   if {$num == 42} {putchan $chan "- ??? "}
   if {$num == 42} {putchan $chan "- ?? "}
   if {$num == 42} {putchan $chan "- ? "}
   if {$num == 42} {putchan $chan "- Die neue Always Ultra... "}

   if {$num == 43} {putchan $chan "Was macht eine Frau, wenn sie ein leeres Blatt Papier anstarrt? "}
   if {$num == 43} {putchan $chan "- ??? "}
   if {$num == 43} {putchan $chan "- ?? "}
   if {$num == 43} {putchan $chan "- ? "}
   if {$num == 43} {putchan $chan "- Sie liest sich ihre Rechte durch... "}

   if {$num == 44} {putchan $chan "Meine Frau hat die Alzheimer-Bulimie: Sie isst mit Heisshunger, vergisst aber das Brechen... "}

   if {$num == 45} {putchan $chan "Kommt das Maedchen in die Kueche und kraeht: \"Mutti, Mutti, der Milchmann ...\" "}
   if {$num == 45} {putchan $chan "Die Mutter: \"Aber Kind, lass ihn doch!\" "}
   if {$num == 45} {putchan $chan "Die Kleine: \"Hab ich schon - er will nochmal...\" "}

   if {$num == 46} {putchan $chan "...und was stand auf den Monitoren der NASA? "}
   if {$num == 46} {putchan $chan "- TILT -- GAME OVER "}
   if {$num == 46} {putchan $chan "- Challenger is destroyed. "}
   if {$num == 46} {putchan $chan "- Communists killed: 0 "}
   if {$num == 46} {putchan $chan "- Score: 0 "}
   if {$num == 46} {putchan $chan "- Insert next astronaut! "}

   if {$num == 47} {putchan $chan "Was passiert, wenn man eine Handgranate in die Kueche wirft? "}
   if {$num == 47} {putchan $chan "- ??? "}
   if {$num == 47} {putchan $chan "- ?? "}
   if {$num == 47} {putchan $chan "- ? "}
   if {$num == 47} {putchan $chan "- Nicht viel - das Chaos bleibt dasselbe, nur das dumme Gequatsche hoert ploetzlich auf... "}

   if {$num == 48} {putchan $chan "\"Mammi, Mammi, da schwimmt ein Skelett in unserem Piranhabecken!\" "}
   if {$num == 48} {putchan $chan "\"Mammi... Mammi... MAAAAAAAAMMMI!!!!!!!\" "}

   if {$num == 49} {putchan $chan "Die Rodeo-Stellung: Der Mann nimmt sie von hinten und sagt dann: \"Ich habe AIDS !\". Dann muss er versuchen, drei Minuten auf ihr zu bleiben... "}

   if {$num == 50} {putchan $chan "Was ist der Unterschied zwischen einer Kartoffel und einem belgischen Kind? "}
   if {$num == 50} {putchan $chan "- ??? "}
   if {$num == 50} {putchan $chan "- ?? "}
   if {$num == 50} {putchan $chan "- ? "}
   if {$num == 50} {putchan $chan "- Ganz einfach, die Kartoffel ist zuerst in der Erde und dann im Keller... "}

   if {$num == 51} {putchan $chan "Weihnachtsabend bei Familie Schmidt. Die Brueder Hans und Peter sitzen unter dem Weihnachtsbaum, Hans mit einem Berg von Geschenken, Peter mit nur ein paar wenigen. "}
   if {$num == 51} {putchan $chan "Hans zu Peter: \"Kann es sein, dass meine Eltern mich mehr lieben als dich?\" "}
   if {$num == 51} {putchan $chan "Darauf Peter: \"Kann es sein, dass du Krebs hast?\" "}

   if {$num == 52} {putchan $chan "Der Firmenchef ruft aus dem Buero an. "}
   if {$num == 52} {putchan $chan "Der kleine Ralf geht ran: \"Hallo?\" "}
   if {$num == 52} {putchan $chan "\"Ich bin's, hol mir mal die Mami.\" "}
   if {$num == 52} {putchan $chan "\"Geht nicht, die liegt mit einem Mann im Bett.\" "}
   if {$num == 52} {putchan $chan "\"Waaaas?! Hol mal die Axt aus der Garage, und hau beiden damit kraeftig ueber den Kopf!\" "}
   if {$num == 52} {putchan $chan "Nach zehn Minuten: \"So, habe ich gemacht.\" "}
   if {$num == 52} {putchan $chan "\"Gut, jetzt schleifst Du die Mami zum Swimmingpool.\" "}
   if {$num == 52} {putchan $chan "\"Wir haben doch gar keinen Swimmingpool.\" "}
   if {$num == 52} {putchan $chan "\"Nicht? Verzeihung, falsch verbunden!...\" "}

   if {$num == 53} {putchan $chan "Ein Mann paddelt wie wild im Wasser herum und bruellt immerzu: \"HELP! HELP! HELP!\" "}
   if {$num == 53} {putchan $chan "Da kommt ein Passant vorbei, schuettelt den Kopf und bruellt zurueck: "}
   if {$num == 53} {putchan $chan "\"Du haettest statt Englisch lieber Schwimmen lernen sollen!\" "}

   if {$num == 54} {putchan $chan "Zwei Jungs spielen mit der Schrotflinte ihres Opas herum. Einer schaut vorne ins Rohr, waehrend der andere hinten am Abzug rumspielt. Ploetzlich loest sich ein Schuss. Der vorm Rohr sieht gleich ganz anders aus. "}
   if {$num == 54} {putchan $chan "Meint der hintere: \"Schau doch nicht so, ich hab mich doch auch erschreckt!...\" "}

}

############### 2.4) Uhr

bind pubm - "* wieviel Uhr ist es" pubtime
bind pubm - "* Time" pubtime
bind pubm - "* Uhr" pubtime
bind pubm - "* Tic Tac" pubtime
bind pubm - "* !Time" pubtime
proc pubtime {nick userhost hand chan target} {
 if {![tlkchk $chan "uhr"]} {return 0}
  set num [rand 30]
  tlkadd $chan "uhr"
   set time "[lindex [exec date] 3]"
   if {$num == 0} {putchan $chan "Es ist $time $nick"}
   if {$num == 1 || $num == 6 || $num == 7 || $num == 8} {putchan $chan "Wir haben $time Uhr $nick"}
   if {$num == 2 || $num == 10 || $num == 11} {putchan $chan "Es tickt $time Uhr $nick"}
   if {$num == 3} {putchan $chan "Es ist $time Uhr"}
   if {$num == 4} {putchan $chan "Wir haben $time Uhr"}
   if {$num == 5} {putchan $chan "Es tickt $time Uhr"}
 return 0
}


############### 2.5) Datum

bind pubm - "* Datum" pubdate
bind pubm - "* Welchen haben wir denn heute" pubdate
bind pubm - "* welchen haben wir denn heute" pubdate
bind pubm - "* Welchen haben wir denn heute?" pubdate
bind pubm - "* Welchen haben wir denn heute Zenkor?" pubdate
bind pubm - "* !Date" pubdate
proc pubdate {nick userhost hand chan text} {
 if {![tlkchk $chan "date"]} {return 0}
  set num [rand 10]
  tlkadd $chan "date"
   if {$num == 0} {putchan $chan "Wir haben den [date] $nick"}
   if {$num == 1 || $num == 6 || $num == 7 || $num == 8} {putchan $chan "Es ist der [date] $nick"}
   if {$num == 2 || $num == 10 || $num == 11} {putchan $chan "Ich denke mal heute ist der [date]"}
   if {$num == 3} {putchan $chan "$nick heute ist der [date]"}
   if {$num == 4} {putchan $chan "[date] ist heute"}
   if {$num == 5} {putchan $chan "[date] ist heute $nick"}
 return 0
}


#################### 2.6) !OP

bind pubm - "* !OP" publameop

proc publameop {nick host hand chan text} {
 if {[matchattr $hand +m]} {
   if {![tlkchk $chan "mastaop"]} {return 0}
   tlkadd $chan "mastaop"
   set num [rand 5]
   global botnick
     if {$num == 0} {putchan $chan "Sorry Chef, log dich auf der Partyline ein und probier mal .opall $nick" }
     if {$num == 1} {putchan $chan "S0rrryyyy, woher soll ich wissen dass du $handle bist???" }
     if {$num == 2} {putchan $chan "$nick probier es mal mit /msg $botnick op <deinpass>" }
     if {$num == 3} {putchan $chan "für Op probier mal /msg $botnick op <deinpass> aus" }
     if {$num == 4} {putchan $chan ":( nene, so geht das nicht probier mal per DCC CHAT" }
 } else {
   if {![tlkchk $chan "lamop"]} {return 0}
   tlkadd $chan "lameop"
   set num [rand 12]
     if {$num == 0} {putchan $chan "nix OP fuer Lamer, die !OP sagen und denken, sie kriegen OP" }
     if {$num == 1} {putchan $chan "meinst du hier kriegt jeder Lamer, der !OP sacht, gleich OP?!?" }
     if {$num == 2} {putchan $chan "nix iss ! das bekommste net !" }
     if {$num == 3} {putchan $chan "heut nicht, vielleicht morgen" }
     if {$num == 4} {putchan $chan "Wir sind hier nicht bei _Wünsch dir was_ !!" }
     if {$num == 5} {putchan $chan "jetzt nicht, hab keine Zeit..." }
     if {$num == 6} {putchan $chan "Für dich $nick ganz bestimmt nicht !" }
     if {$num == 7} {putchan $chan "Davon haben wir schon genug...dich brauchen wir nicht als OP!" }
     if {$num == 8} {putchan $chan "Also mit so einem Nick bekommste bestimmt kein OP $nick !" }
     if {$num == 9} {putchan $chan "Man, so wie du dich benimmst gibts heut garnix!" }
     if {$num == 10} {putchan $chan "wo haste den Befehl denn her ? Du lebst ja echt hinter dem Mond $nick." }
     if {$num == 11} {putchan $chan "Wir sind hier nicht bei der Wohlfahrt du Wurst !" }
   if {![matchattr $hand f]} {putserv "mode $chan -v $nick"}
 }
}


################# 2.7) Wuerfel

bind pub - "!w" pubwurf
bind pub - "!W" pubwurf

proc pubwurf {nick host hand chan text} {
 if {![tlkchk $chan "wurf!$host"]} {return 0}
 tlkshortadd $chan "wurf!$host"
 set zahl $text
 if {$zahl == ""} {set zahl 6}
 if {$zahl > 9999} {set zahl 9999}
 set wurf [expr [rand $zahl] + 1]
 putchan $chan "$nick hat eine $wurf geworfen (bei $zahl Seiten)."
}


#################### 2.8) shit zenkor

proc zenkischwul {nick host hand chan text} {
 if {[matchattr $hand +m]} { return 0 }
 set num [rand 16]
    if {$num == 0} {pubschwul $nick $host $hand $chan $text }
    if {$num == 1} {putserv "mode $chan -v $nick"; putchan $chan "$nick du bist doch selber ..."}
    if {$num == 2} {putserv "mode $chan -v $nick"; putchan $chan "selber"}
    if {$num == 3 || $num == 4 || $num == 5} {proc pub_0040 $nick $host $hand $chan $text}
    if {$num == 6 || $num == 13 || $num == 14 || $num == 15} {putserv "KICK $chan $nick :Selber"}
    if {$num == 7} {putserv "KICK $chan $nick :ich bin nicht schwul"}
    if {$num == 8 || $num == 11 || $num == 12} {putserv "KICK $chan $nick :du kannst mich mal"}
    if {$num == 9 || $num == 10} {putserv "KICK $chan $nick :Hihi"}
}


#################### 2.9) fuck

proc pubfuck {nick host hand chan arg} {
 if {![tlkchk $chan "fuck"]} {return 0}
 tlkadd $chan "fuck"
 if {![matchattr $hand +m]} {
    set num [rand 35]
    if {$num == 0} {putchan $chan "Heeyyy !!!" }
    if {$num == 1} {putchan $chan "Selber" }
    if {$num == 2} {putchan $chan "verarsch mich nicht" }
    if {$num == 3} {putchan $chan "$nick du depp" }
    if {$num == 4} {putchan $chan "Arsch" }
    if {$num == 5} {putchan $chan "Depp" }
    if {$num == 13 || $num == 14 || $num == 15} { pub_0040 $nick $host $hand $chan $text }
    if {$num == 6 || $num == 10 || $num == 11 || $num == 12} {putchan $chan "Also das lass ich mir nicht gefallen"; putserv "mode $chan -ov $nick" }
    if {$num == 7 || $num == 8 || $num == 9} {putchan $chan "glaube du spinnst $nick"; putserv "mode $chan -ov $nick" }
   } else {
    set num [rand 2]
    if {$num == 0} {putchan $chan "hast recht $nick" }
    if {$num == 1} {putchan $chan "beschimpf mich doch nicht" }
   }
}


################################################################
# Section 3: Kick, ban stuff
################################################################
# Inhalt:
# 3.1) Kick
# 3.2) ban
# 3.3) voice
# 3.4) devoice


############### 3.1) Kick

proc pubkick {nick userhost hand chan text} {
  log "Talk.tcl KICK by ${nick}@${chan}: $text"
  set tocontrol [gettocontrol bane $nick $chan $text]
  if {$tocontrol == 0} { return 0 }
   if {[ispriv $nick $hand $tocontrol $chan]} {
    pubcontrol_oksay $nick $chan
    putserv "KICK $chan $tocontrol :KICK by $nick & www.Zenkor.de"
   } else {
    pubcontrol_nosay $nick $chan
   }
 return 0
}


############### 3.2) Ban

proc pubban {nick userhost hand chan text} {
  log "Talk.tcl BAN by ${nick}@${chan}: $text"
  set tocontrol [gettocontrol bane $nick $chan $text]
  if {$tocontrol == 0} { return 0 }
   if {[ispriv $nick $hand $tocontrol $chan]} {
    pubcontrol_oksay $nick $chan
    putserv "mode $chan +bb-o *${tocontrol}*!*@* *!*[getchanhost $tocontrol $chan] $tocontrol"
    putserv "KICK $chan $tocontrol :Ban by $nick"
   } else {
    pubcontrol_nosay $nick $chan
   }
 return 0
}


############### 3.3) Voice

proc pubvoice {nick userhost hand chan text} {
  log "Talk.tcl VOICE by ${nick}@${chan}: $text"
  set tocontrol [gettocontrol voice $nick $chan $text]
  if {$tocontrol == 0} { return 0 }
   if {[matchattr $hand o|o] || [isop $nick $chan] || [isvoice $nick $chan]} {
    pubcontrol_oksay $nick $chan
    putserv "mode $chan +v $tocontrol"
   } else {
    pubcontrol_nosay $nick $chan
   }
 return 0
}


############### 3.4) DeVoice

proc pubdevoice {nick userhost hand chan text} {
  log "Talk.tcl DEVOICE by ${nick}@${chan}: $text"
  set tocontrol [gettocontrol devoice $nick $chan $text]
  if {$tocontrol == 0} { return 0 }
   if {[ispriv $nick $hand $tocontrol $chan]} {
    pubcontrol_oksay $nick $chan
    putserv "mode $chan -v $tocontrol"
   } else {
    pubcontrol_nosay $nick $chan
   }
 return 0
}

############### 3.5) gettocontrol

proc gettocontrol {mode nick chan text} {
  foreach usr [chanlist $chan -b] { foreach word $text { if {[string tolower $word] == [string tolower $usr]} {set cnick $usr} } }
   if {![info exists cnick]} {
     set num [rand 5]
       if {$num == 0} {putchan $chan "Wen soll ich ${mode}n ?"}
       if {$num == 1} {putchan $chan "Den kann ich nicht finden $nick"}
       if {$num == 2} {putchan $chan "ERROR nick not found"}
       if {$num == 3} {putchan $chan "Haaaaaaaaaaaaeeeeeeee???????????????? Der ist doch gar nicht im chan"}
       if {$num == 4} {putchan $chan "Den gibts nicht"}
     return 0
   } else {
     return $cnick
   }
}

############### 3.6) ispriv

proc ispriv {nick hand tocontrol chan} {
 set tocontrolhand [nick2hand $tocontrol $chan]
 if {[isvoice $nick $chan] || [isop $nick $chan] || [matchattr $hand o|o $chan]} {
   if {[matchattr $tocontrolhand f|f]} {
     if {[matchattr $nick +n]} {
       if {[matchattr $tocontrolhand +n]} {
         return 0
       } else {
         return 1
       }
     } else {
       return 0
     }
   } else {
     return 1
   }
 }
 return 0
}

############### 3.7) Ok say

proc pubcontrol_oksay {nick chan} {
  set num [rand 20]
  if {$num == 0 || $num == 14 || $num == 15} {putchan $chan "Ay Ay Sir"}
  if {$num == 1} {putchan $chan "Alles Klar $nick"}
  if {$num == 2} {putchan $chan "Wird erledigt Chef"}
  if {$num == 3} {putchan $chan "JAAAAAaa SIR"}
  if {$num == 4 || $num == 16} {putchan $chan "Ist ok mAsTEr!"}
  if {$num == 5} {putchan $chan "Wird gemacht $nick"}
  if {$num == 6} {putchan $chan "Schon erledigt $nick"}
  if {$num == 7} {putchan $chan "Wird gemacht L0rd"}
  if {$num == 8} {putchan $chan "Ay Ay L0rd"}
  if {$num == 9} {putchan $chan "Alles klar L0rd"}
  if {$num == 10} {putchan $chan "Ist ok L0rd $nick"}
  if {$num == 11} {putchan $chan "Ziel gekillt $nick"}
  if {$num == 12} {putchan $chan "Objekt vernicktet Lord"}
  if {$num == 13} {putchan $chan "user zerstoert mAsTEr!"}
}


############### 3.8) no say

proc pubcontrol_nosay {nick chan} {
  set num [rand 13]
  if {$num == 0} {putchan $chan "Lamer"}
  if {$num == 1} {putchan $chan "Hehe vergiss es!!"}
  if {$num == 2} {putchan $chan "soll ich dich mal kicken $nick"}
  if {$num == 3} {putchan $chan "Ich glaube du spinnst $nick"}
  if {$num == 4} {putchan $chan "Nee bin doch nicht bloed"}
  if {$num == 5} {putchan $chan "neee der ist ein m4st3r"}
  if {$num == 6} {putchan $chan "neee der ist ein Lord"}
  if {$num == 7} {putchan $chan "neee der ist ein Chef"}
  if {$num == 8} {putchan $chan "hahahaha"}
  if {$num == 9} {putchan $chan "denkst wohl ich mach alles was du sagst???"}
  if {$num == 10} {putchan $chan "hahahaha hihihihi lustig" }
  if {$num == 11} {putchan $chan "nochmal so ein Versuch und du fliegst"}
  if {$num == 12} {putchan $chan "Schnauze Ensign"}
}

################################################################
# Section 4: Zentrale Zenkor System: On word zenkor functions
################################################################

############### Zenkiii

bind pubm - * zenkii

proc zenkii {nick host hand chan text} {
 global tlkzenki ztlkon tlkonc tlkonn aways botnet-nick
 foreach word $text {
  foreach tlkw $ztlkon {
    if {[string tolower $word] == $tlkw} {
        log "TALK: MSGON: $tlkw in $chan schicke MSG an $tlkonn($tlkw)"
        putchan $tlkonn($tlkw) "$nick@${chan}: $text"
    }
  }
 }
 if {[info exists tlkzenki($chan)]} {return 0}
   foreach usr $aways { if {[string tolower $usr] == [string tolower $nick] || [string tolower $usr] == [string tolower $hand]} { m99back $text $chan $nick $hand $host $usr } }
   foreach zenko $text {
    if {[string tolower $zenko] == "zenkor" || [string tolower $zenko] == "zenki" || [string tolower $zenko] == ${botnet-nick} || $zenko == "zenki," || $zenko == "Zenki," || $zenko == "Zenkor," || $zenko == "zenkor," || $zenko == "Z3nk0r" || $zenko == "z3nk0r"} { zenkimach $text $chan $nick $hand $host }
    if {[string tolower $zenko] == "away"} { m99awayy $text $chan $nick $hand $host }
    if {$zenko == "wo" || $zenko == "Wo" || $zenko == "gesehen" || $zenko == "Gesehen"} { m99wo $text $chan $nick $hand $host }
    if {[string tolower $zenko] == "back"} { m99back $text $chan $nick $hand $host $nick }
   }
 return 0
}

proc zenkimach {text chan nick hand host} {
 log "Talk.tcl::  Zenkor"
 foreach m99z $text {
   if {[string tolower $m99z] == "datum" || [string tolower $m99z] == "date"} { pubdate $nick $host $hand $chan $text }
   if {[string tolower $m99z] == "klappe" || [string tolower $m99z] == "ruhe" || [string tolower $m99z] == "ruhig"} { pubklappe $nick $host $hand $chan $text }
   if {[string tolower $m99z] == "morgen"} { pubmorgen $nick $host $hand $chan $text }
   if {[string tolower $m99z] == "nacht" || [string tolower $m99z] == "bett" || [string tolower $m99z] == "n8"} { pubnacht $nick $host $hand $chan $text }
   if {[string tolower $m99z] == "uhr" || [string tolower $m99z] == "zeit" || [string tolower $m99z] == "Tic Tac" || [string tolower $m99z] == "time"} { pubtime $nick $host $hand $chan $text }
   if {[string tolower $m99z] == "witz" || [string tolower $m99z] == "joke"} { pubwitz $nick $host $hand $chan "" }
   if {[string tolower $m99z] == "shit" || [string tolower $m99z] == "fuck" || [string tolower $m99z] == "scheiss" || [string tolower $m99z] == "spast"} { pubfuck $nick $host $hand $chan "" }
   if {[string tolower $m99z] == "cu" || [string tolower $m99z] == "bye"} { pubcu $nick $host $hand $chan "jjiun" }
   if {[string tolower $m99z] == "kick" || [string tolower $m99z] == "kicken" || [string tolower $m99z] == "kickste"} { pubkick $nick $host $hand $chan $text }
   if {[string tolower $m99z] == "ban" || [string tolower $m99z] == "banen" || [string tolower $m99z] == "banste"} { pubban $nick $host $hand $chan $text }
   if {[string tolower $m99z] == "voice" ||[string tolower $m99z] == "voicste"} { pubvoice $nick $host $hand $chan $text }
   if {[string tolower $m99z] == "devoice" ||[string tolower $m99z] == "devoicste"} { pubdevoice $nick $host $hand $chan $text }
   if {[string tolower $m99z] == "schwul" || [string tolower $m99z] == "blöd" || [string tolower $m99z] == "scheiss" || [string tolower $m99z] == "blöder" || [string tolower $m99z] == "schwuler"  || [string tolower $m99z] == "arsch"} { log "Zenki: $nick said shit about me in $chan"; zenkischwul $nick $host $hand $chan $text }
 }
 pub_bot $nick $host $hand $chan $text
}

################################################################
# Section 5: away
################################################################

if {![info exists aways]} { set aways "" }
proc m99awayy {text chan nick hand host} {
  global tlkaway aways
  set tlkaway($nick) "$text"
  log "TALK.TCL: $nick is now AWAY: $text"
   foreach aw $aways {if {$aw == [string tolower $nick]} { set nnn 1 } }
   if {![info exists nnn]} { lappend aways "[string tolower $nick]" }
   foreach aw $aways {if {$aw == [string tolower $hand]} { set nnh 1 } }
   if {![info exists nnh]} { lappend aways "[string tolower $hand]" }
  log "Current Aways: $aways"
  set rnd [rand 6]
  if {$rnd == 0} { putchan $chan "Alles klar werde ich ausrichten $nick" }
  if {$rnd == 1} { putchan $chan "Cuuu" }
  if {$rnd == 2} { putchan $chan "Geht klar $nick" }
  if {$rnd == 3} { putchan $chan "Oki $nick" }
  if {$rnd == 4} { putchan $chan "Cu $nick" }
  if {$rnd == 5} { putchan $chan "Alles klar" }
}

proc m99wo {text chan nnick hand host} {
  global tlkaway aways nick
  foreach word $text {
   foreach usr $aways { if {[string tolower $usr] == [string tolower $word]} {set woo $usr} }
  }
  if {[info exists woo]} {
   log "TALK.tcl: sage in $chan zu $nnick dass $woo nicht da ist: $tlkaway($woo)"
   putchan $chan "$woo ist nicht da $nnick : $tlkaway($woo)"
  } else {
   log "TALK.tcl: sage in $chan zu $nick dass ich es nicht weiss"
    foreach word $text {
     foreach usr [chanlist $chan] { if {[string tolower $usr] == [string tolower $word]} {set woo $usr} }
     if {[string tolower $word] == [string tolower $nnick]} {set lame 1}
     if {[string tolower $word] == [string tolower $nick]} {set lame 1}
    }
   if {[info exists woo]} {
    set rnd [rand 7]
     if {$rnd == 0 || $rnd == 5} { putchan $chan "Mach die Augen auf $nnick" }
     if {$rnd == 1} { putchan $chan "$woo ist doch da" }
     if {$rnd == 2} { putchan $chan "Er ist doch hier" }
     if {$rnd == 3} { putchan $chan "bist du blind $nnick ?" }
     if {$rnd == 4 || $rnd == 6} { putchan $chan "Bist du blind?" }
   }
   if {[info exists lame]} {
    set rnd [rand 10]
     if {$rnd == 0 || $rnd == 1 || $rnd == 2} { pub_0040 $nnick $host $hand $chan $text} }
     if {$rnd == 5} {putchan $chan "bist wohl lame oder was?"}
     if {$rnd == 6 || $rnd == 7 || $rnd == 8 || $rnd == 3} {putchan $chan "Willste mich verarschen?"}
     if {$rnd == 9 || $rnd == 4} {putchan $chan "Lamer detected --> $nnick"}
   }
}


proc m99back {text chan nick hand host usr} {
  global tlkaway aways
  set nick [string tolower $nick]
  set aways [lremove "$aways" $nick]
  set aways [lremove "$aways" $hand]
  set aways [lremove "$aways" $usr]
  log "TALK.TCL $nick is now BACK"
  log "Current Aways: $aways"
  set rnd [rand 6]
  if {$rnd == 0} { putchan $chan "Ahh biste wieder da" }
  if {$rnd == 1} { putchan $chan "Freu $nick ist wieder da" }
  if {$rnd == 2} { putchan $chan "Hi $nick" }
  if {$rnd == 3} { putchan $chan "Re $nick" }
  if {$rnd == 4} { putchan $chan "Wieder da $nick" }
  if {$rnd == 5} { putchan $chan "reee $nick" }
}


################################################################
# Section 6: Spy functions
################################################################

#################### MSGME ON

if {![info exists ztlkon]} { set ztlkon "" }

bind pub - "!msgon" pubmsgon

proc pubmsgon {nick host hand chan arg} {
  global ztlkon tlkonn tlkonc
 if {![tlkchk "$chan" "msgon"]} {return 0}
 tlkshortadd "$chan" "msgon"
  set newtlk [string tolower $arg]
  log "TALK ON: $newtlk von $nick in $chan"
  set ztlkon "$ztlkon $newtlk"
  set tlkonn($newtlk) "[string tolower $nick]"
  set num [rand 4]
   if {$num == 0} {putchan $chan "Ok ich benachrichtige dich wenn jemand $newtlk sagt $nick"}
   if {$num == 1} {putchan $chan "Alles klar mache ich $nick"}
   if {$num == 2} {putchan $chan "Werde ich machen $nick"}
   if {$num == 3} {putchan $chan "Wird gemacht $nick"}
  log "TLKS: $ztlkon"
}

if {![info exists ztlkon]} { set ztlkon "" }

bind pub - "!msgoff" pubmsgoff

proc pubmsgoff {nick host hand chan arg} {
  global ztlkon
 if {![tlkchk "$chan" "msgoff"]} {return 0}
 tlkshortadd "$chan" "msgoff"
  set oldtlk [string tolower $arg]
  log "TALK OFF: $oldtlk von $nick in $chan"
  set tmp ""
  foreach ttt $ztlkon {
    if {$ttt != $oldtlk} {set tmp "$tmp $ttt"}
  }
  set ztlkon $tmp
  log "TLKS: $ztlkon"
  putchan $chan "Alles klar ich informiere dich jetzt nicht mehr wenn jemand $oldtlk sagt"
}


################################################################
# Section 7: Flood settings/Protection; System Proc
################################################################

############### SYSTEM PROC

proc tlkadd {chan tlk} {
global tlkcm99
 set tlkcm99($chan!$tlk) 1
 set a [timer 1 "unset tlkcm99($chan!$tlk)"]
 putlog "TALK.TCL:: $tlk in $chan"
}

proc tlkshortadd {chan tlk} {
global tlkcm99
 set tlkcm99($chan!$tlk) 1
 set a [utimer 10 "unset tlkcm99($chan!$tlk)"]
 putlog "TALK.TCL:: $tlk in $chan"
}

proc tlkchk {chan tlk} {
global tlkcm99 stoptlk notlkchans
 putlog "TALK.TCL:: --> ?? $tlk in $chan"
 if {[info exists stoptlk($chan)]} {return 0}
 foreach ch $notlkchans {if {$chan == $ch} {return 0} }
 if {[info exists tlkcm99($chan!$tlk)]} {return 0}
 return 1
}

################################################################
# Section 8: On join shit
################################################################
# Inhalt:
# 8.1) Join bergüssung (+G)
# 8.2) Member Join (+M)
# 8.3) Bot Join
# 8.4) Bei jedem onjoin

############### 8.1) Join bergüssung (+G)

bind join G * joinm

proc joinm {nick userhost handle chan} {
  global botnick
  putlog "now let's greet $nick"
  set num [rand 13]
   if {$num == 0} {putchan $chan "wElCoME mY mAsTeR! $nick"}
   if {$num == 1} {putchan $chan "na wie geht's $nick"}
   if {$num == 2} {putchan $chan "$nick altes Haus"}
   if {$num == 3} {putchan $chan "Hallo $nick"}
   if {$num == 4} {putchan $chan "re $nick"}
   if {$num == 5} {putchan $chan "Hallo $nick wie geht's?"}
   if {$num == 7} {putchan $chan "$nick"}
   if {$num == 8} {putchan $chan "uNsEr $handle-cHeF iSt dA!"}
   if {$num == 9} {putchan $chan "aChTUnG!!! aLLe bOTs sTIllGeSTaNDeN! $nick ist da"; set a [utimer 15 "talksir $chan"]}
   if {$num == 10} {putchan $chan "sIr, aLLe bOTs sInD bEReIt uND lAuFEn 100%!"; set a [utimer 15 "talksir $chan"]}
   if {$num == 11} {putchan $chan "na wie geht's $handle"}
   if {$num == 12} {putchan $chan "aChTUnG!!! aLLe bOTs sTIllGeSTaNDeN! $nick ist da"; set a [utimer 15 "talksir $chan"]}
}

proc talksir {chan} { global bots_owner; m99cmd "all" "botnet $bots_owner [getuser $bots_owner PASS] msg $chan Ja SIR" }
proc talkzenki {chan} {
 global nick bots_owner
  set num [rand 5]
  if {$num == 0} { m99cmd "all" "botnet $bots_owner [getuser $bots_owner PASS] msg $chan Hurrrrrrrraaaaaaaaa" }
  if {$num == 1} { m99cmd "all" "botnet $bots_owner [getuser $bots_owner PASS] msg $chan Willkommen Chef" }
  if {$num == 2} { m99cmd "all" "botnet $bots_owner [getuser $bots_owner PASS] msg $chan Heeeeyyyy $nick Was geht?" }
  if {$num == 3} { m99cmd "all" "botnet $bots_owner [getuser $bots_owner PASS] msg $chan Coooooolllllllll $nick" }
  if {$num == 4} { m99cmd "all" "botnet $bots_owner [getuser $bots_owner PASS] msg $chan $nick Hurrraaa" }
}

############### 8.2) Member Join (+M)

bind join M|M * joinmemberz

proc joinmemberz {nick userhost handle chan} {
  if {![tlkchk "$chan" "join"]} {return 0}
  tlkadd $chan "join"
  putserv "mode $chan +v $nick"
  putlog "now let's greet the Member $nick"
  set num [rand 7]
   if {$num == 0} {putchan $chan "Hi $nick"}
   if {$num == 1} {putchan $chan "Hallo $nick"}
   if {$num == 2} {putchan $chan "re $nick"}
   if {$num == 3} {putchan $chan "Hi $handle"}
   if {$num == 4} {putchan $chan "Hallo $handle"}
   if {$num == 5} {putchan $chan "wie geht's $handle"}
   if {$num == 6} {putchan $chan "wie geht's $nick ???"}
}

############### 8.3) Bot Join

bind join $botnet_flag|$botnet_flag * joinbotz
proc joinbotz {nick userhost handle chan} {
  if {![tlkchk "$chan" "botjoin"]} {return 0}
  tlkadd $chan "botjoin"
 if {$nick == "Zenkor"} { talkzenki $chan ; return 0 }
  set num [rand 30]
   if {$num == 1} {putchan $chan "Hi $nick"}
   if {$num == 2} {putchan $chan "Hi Kollege"}
   if {$num == 3} {putchan $chan "Alles Klar $handle"}
   if {$num == 4} {putchan $chan "Willkommen Kollege $nick"}
   if {$num == 5 || $num == 0} {putchan $chan "Willkommen Kollege $handle"}
   if {$num == 6} {putchan $chan "ALLLEEEE $nick OPEN"}
}


############### 8.4) Bei jedem onjoin
set m99greettime 60

bind join - * joinchan
proc joinchan {nick uhost handle chan} {
 global m99greettime m99greetwait botnick
 if {$nick == $botnick} {return 0}
 if {![tlkchk "$chan" "join"]} {return 0}
 tlkadd $chan "join"
 if {[info exists m99greetwait($chan![m99ident $uhost])]} {return 0}
 putlog "begruesse $nick"
 putserv "NOTICE $nick :Hi $nick Viel Spass in $chan wenn du Hilfe ueber die Channelbefehle brauchst gebe einfach !help in $chan ein."
 putserv "NOTICE $nick :Besuche doch mal die Offizielle Zenkor Web-Site www.Zenkor.de"
 set m99greetwait($chan![m99ident $uhost]) 1
 set a [timer $m99greettime "unset m99greetwait($chan![m99ident $uhost])"]
}



################################################################
# Section 9: Vote script
################################################################

### Vote Script
bind pub - "!vote" pubvote
proc pubvote {nick userhost hand chan target} {
 global vote botnick
 if {$target == ""} {
 putchan $chan "Es muss eine Person angegeben werden ( !vote Person )"
 } {
 putserv "mode $chan +i"
 set vote(oldtopic) "[topic $chan]"
 putserv "TOPIC $chan :11,2-----===== VOTE =====-----"
 set vote(nick) $target
 set vote(chan) $chan
 set vote(ja) 0
 set vote(nein) 0
 set vote(enthalten) 0
 set vote(count) 0
 set vote(time) 0
 set tmp ""
 foreach usr [chanlist $chan] { if {$usr != $botnick} { set tmp "$tmp $usr" } }
 set vote(allow) "$tmp"
 log "VOTE: Alle Aufgelisteten nicks haben eine Stimme:"
 log "VOTE: $vote(allow)"
 foreach voter $vote(allow) { set vote(right!$voter) "ok" }
 bind msg - "!vote" msgvote
 putchan $chan "11,2Ok gebt jetzt eure Stimmen ab"
 putchan $chan "11,2Das geht mit /msg $botnick !vote ja/nein/enthalten"
 timer 2 votecheck
 }
}

proc msgvote {nick host hand arg} {
 log "VOTE: von $nick: $arg"
 global vote
 if {![onchan $nick $vote(chan)]} { log "$nick ist nicht im votechannel"; putchan $nick "Du bist nicht im Votechannel --> keine Vote Berechtigung"; return 0 }
 foreach voter $vote(allow) { if {$nick == $voter} { set voteok 1 } }
 if {![info exists voteok]} { log "$nick ist zu spaet in den votechannel gekommen"; putchan $nick "du bist zu spaet in den Vote channel gekommen"; return 0}
 if {$vote(right!$nick) != "ok"} {
  log "$nick hat schon gewaehlt"
  putchan $nick "Es kann nur einmal gewaehlt werden"
  return 0
 }
 set vote(right!$nick) "nein"
 log "VOTE: $nick hat $arg gewaehlt"
 set vote(count) [expr $vote(count) + 1]
 log "VOTE: $nick ist der $vote(count) der gewaehlt hat"
 if {[string tolower $arg] == "ja"} { set vote(ja) [expr $vote(ja) + 1] }
 if {[string tolower $arg] == "nein"} { set vote(nein) [expr $vote(nein) + 1] }
 if {[string tolower $arg] == "enthalten"} { set vote(enthalten) [expr $vote(enthalten) + 1] }
 if {$vote(count) == [llength $vote(allow)] || $vote(time) >= 5} {
  log "VOTE: done"
  log "VOTE: JA: $vote(ja)"
  log "VOTE: NEIN: $vote(nein)"
  log "VOTE: ENTHALTEN: $vote(enthalten)"
  utimer 20 voteend
 }
}

proc voteend {} {
 global vote
 unbind msg - "!vote" msgvote
 foreach th [timers] {
   if {[lindex $th 1]=="votecheck"} { killtimer [lindex $th 2] }
 }
 putchan $vote(chan) "11,2Vote abgeschlossen"
 putserv "mode $vote(chan) -i"
 putchan $vote(chan) "11,2Vote ueber $vote(nick)"
 putchan $vote(chan) "11,2Stimmen: $vote(count)"
 putchan $vote(chan) "11,2JA: $vote(ja)"
 putchan $vote(chan) "11,2NEIN: $vote(nein)"
 putchan $vote(chan) "11,2ENTHALTEN: $vote(enthalten)"
 putserv "TOPIC $vote(chan) :$vote(oldtopic)"
}

proc votecheck {} {
 global vote votetime
 foreach voter $vote(allow) { if {$vote(right!$voter) == "ok"} {putchan $vote(chan) "Wann willst du denn endlich waehlen $voter ???"} }
 set vote(time) [expr $vote(time) + 1];
 timer 2 votecheck
}

################################################################
# Section 10: SMS Zenkor
################################################################

bind msg - "!sms" smsmsg
bind msg - "!SMS" smsmsg

proc smsmsg {nick host hand text} {
 smspub $nick $host $hand $nick $text
}

bind pub - "!sms" smspub
bind pub - "!SMS" smspub

proc smspub {nick host hand chan args} {
 set args [lindex $args 0]
 set number [lindex $args 0]
 set text [lrange $args 1 end]
 log "Verschicke SMS von $nick an $number"
 sendsms "$number" "$text"
 set rnd [rand 6]
 if {$rnd == 0} { putchan $chan "Ok ich schicke deine SMS ab $nick" }
 if {$rnd == 1} { putchan $chan "Du treibst meine Handy Rechnung in die hoehe" }
 if {$rnd == 2} { putchan $chan "Alles klar $nick wird gemacht" }
 if {$rnd == 3} { putchan $chan "SMS abgeschickt" }
 if {$rnd == 4} { putchan $chan "gut werde ich abschicken $nick" }
 if {$rnd == 5} { putchan $chan "Ok ich versende deine SMS" }
}
#register
bind msg - REGISTER registersms
proc registersms {nick host hand arg} {
 global botnick
 adduser $nick
 setuser $nick XTRA HOST "*![string range [maskhost $host] 2 end]"
 putchan $nick "Hi du bist bei mir jetzt ein registrierter Nutzer"
 putchan $nick "- Um deine Handynummer einzutragen gebe /msg $botnick !HANDY deinenummer"
 putchan $nick "  z.B. /msg $botnick !HANDY 01701020304"
 putchan $nick "- Um deine ICQ Nummer einzutragen verwende /msg $botnick !UIN deinenummer"
 putchan $nick "  z.B. /msg $botnick !UIN 31104332"
}

bind msg - !UIN setuin
proc setuin {nick host hand uin} {
 setuser $hand XTRA UIN "$uin"
 putchan $nick "Deine UIN ( $uin ) habe ich eingetragen"
}

bind msg - !HANDY sethandy
proc sethandy {nick host hand num} {
 setuser $hand XTRA HANDY "$num"
 putchan $nick "Deine HandyNummer ( $num ) habe ich eingetragen"
}


################################################################
# Section 11: Zenkor Help
################################################################

####### HELP MENUE

## !HELP
bind MSG - !help zenkihelpmsg
proc zenkihelpmsg {nick userhost hand target} {
 zenkihelpub $nick $userhost $hand m99chan $target
}
bind pub - !help zenkihelpub
proc zenkihelpub {nick userhost hand chan target} {
 putserv "PRIVMSG $nick :Zenkor !HeLp by Micha99"
 putserv "PRIVMSG $nick :Befehl        ||  Kurzbeschreibung"
 putserv "PRIVMSG $nick :!voice        ||  Was kann ich mit voice alles machen wenn Zenkor @ hat"
 putserv "PRIVMSG $nick :!smshelp      ||  SMS schicken aus dem IRC wie es geht erfaehrst du hier"
 putserv "PRIVMSG $nick :Info's zum Admin mit !ADMIN"
 putserv "PRIVMSG $nick :HaVe PhUn !!!"
}

## SMSHELP
bind MSG - !smshelp hlp_sms_msg
proc hlp_sms_msg {nick userhost hand target} {
 hlp_sms_pub $nick $userhost $hand m99chan $target
}
bind pub - !smshelp hlp_sms_pub
proc hlp_sms_pub {nick userhost hand chan target} {
 global botnick
 putserv "PRIVMSG $nick :---> MOMENTAN NICHT VERFÜGBAR <---" ; #AAAAACCCHHTUNG  GEHT NICHT
 putserv "PRIVMSG $nick :!SMS Nickname/Nummer Nachricht | (Zum abschicken von SMS Nachrichten"
 putserv "PRIVMSG $nick :z.B.  !SMS Micha99 hi Micha"
 putserv "PRIVMSG $nick :damit man an du Nachrichten per !SMS nickname text bekommen kannst"
 putserv "PRIVMSG $nick :musst du dich registrieren. Das geht mit /msg $botnick REGISTER"
}

#ADMIN
bind MSG - !admin zenkiadminmsg
proc zenkiadminmsg {nick userhost hand target} {
 zenkiadminpub $nick $userhost $hand m99chan $target
}
bind pub - !admin zenkiadminpub
proc zenkiadminpub {nick userhost hand chan target} {
 putserv "PRIVMSG $nick :Programmiert wurde ich von Micha99 in Zusammenarbeit mit ZenkoSoft"
 putserv "PRIVMSG $nick :Fragen, Anregungen, ... an webmaster@zenkor.de"
 putserv "PRIVMSG $nick :oder einfach Micha99 ansprechen"
}

## !Voice
bind MSG - !Voice m99chattenvoicemsg
proc m99chattenvoicemsg {nick userhost hand target} {
 m99chattenvoice $nick $userhost $hand m99chan $target
}
bind pub - !Voice m99chattenvoice
proc m99chattenvoice {nick userhost hand chan target} {
 putchan $nick "1,4   >>>> 11,1 ---- Zenkors !Voice functions ---- 1,4 <<<<  "
 putchan $nick "8,1============================================="
 putchan $nick "1,9 Hier ist eine Liste von Befehlen die jeder  "
 putchan $nick "1,9 der ein + vor seinem Namen hat benutzen kann"
 putchan $nick "8,1============================================="
 putchan $nick "4,8!v nick 14,8 Dieser Befehl gibt nick voice (+)   "
 putchan $nick "4,8        14,8 und verleiht ihm damit den Status   "
 putchan $nick "4,8        14,8 auch Voice Befehle auszufuehren.     "
 putchan $nick "4,8!-v nick14,8 Dieser Befehl entzieht nick sein    "
 putchan $nick "4,8        14,8 voice (+) damit kann er keine Voice "
 putchan $nick "4,8        14,8 Befehle mehr ausfuehren              "
 putchan $nick "4,8!k nick 14,8 Hiermit wird nick aus dem channel   "
 putchan $nick "4,8        14,8 gekickt.                            "
# putchan $nick "4,8!b nick 14,8 nick wird aus dem channel gebannt   "
# putchan $nick "4,8!t bla  14,8 Neues Topic wird auf bla gesetzt    "
 putchan $nick "8,1============================================="
 putchan $nick "1,15  !help            by M99 ( http://m99.x2.nu )  "
}


################################################################
# Section 12: Z3nk0r Ready
################################################################

############### Naja fuer DEBUG ganz praktisch
bind dcc n tcl *dcc:tcl

############### Das script wurde geladen
putlog "Loaded talk.tcl version $talk_version by Micha99 ( www.zenkor.de )"

proc updated {chan} { global talk_version; putchan $chan "12 - Z3nk0r - Updated to version $talk_version - by www.Zenkor.de & Micha99" }
foreach chan [channels] { utimer [rand 20] "updated $chan" }

############## END OF SCRIPT ################