Advertisement
funnygonzo

FuN Wiederverwertung

Mar 20th, 2021
1,963
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 4.12 KB | None | 0 0
  1. ## HoLGI development
  2. ## ..,- mondgesicht
  3.  
  4. ## -> www.ircscript.de
  5.  
  6. bind PUBM -|- * mondgesichtparser
  7.  
  8. set mond(sprueche1) {
  9.     "WAHNSINN! Ein Punkt! Was soll ich denn jetz damit? Oder wird das mal ein Mondgesicht? "
  10.     "Punkt Punkt Punkt... Ach so! Måondgesicht soll das werden! Dann mach ma jemand hier weiter! "
  11.     "Soll dieser Punkt jetzt das Ende eines Satzes darstellen oder den Anfang von einem Mondgesichts? "
  12.     "So Loidde, es geht wieder ma rund! Ein Mondgesicht wurde angefangen... Gibt mir wer nen zweiten Punkt? "
  13.     "Noch 'n Punkt, sonst wird das kein Mondgesicht! "
  14. }
  15.  
  16. set mond(sprueche2) {
  17.     "Hmm.. Noch ein Punkt! Jetzt wird's ernst! Macht ma' das Mondgesicht hier fertig! "
  18.     "Das wird ja immer doller hier! Jetzt haben wir schon zwei Punkte! "
  19.     "NOCH EIN PUNKT! Unglaublich dass ihr es so weit bringt! Jetzt müsst ihr ein KOMMA machen, Info vom Bot für Mensch! "
  20.     "Wird's heute noch was? Jetzt noch ein Komma und 'n Strich und wir sind alle glücklich! "
  21. }
  22.  
  23. set mond(sprueche3) {
  24.     "So... und nun? Jetzt noch nen STRICH bitte, dann wird hier endlich nich mehr gespamt... "
  25.     "Ein KOMMA! Ganz richtig! Und jetzt noch nen Strich und ich bin in der Statistik Erhöhen Routine  (: "
  26.     "Und nu?? Wo bleibt der STRICH? "
  27.     "LOS LOS! Nur noch ein STRICH und die Sache hier is endlich gegessen! "
  28.     "Glückwunsch dass ihr es so weit gebracht habt... Jetzt, was fehlt noch? Hm? Nachdenken! - DER STRICH! "
  29. }
  30.  
  31. setudef flag mondgesicht
  32. setudef str  mondgesicht_count
  33.  
  34. proc mondgesichtparser { nickname hostname handle channel arguments } {
  35.  
  36.     if { ![channel get $channel mondgesicht] } { return 0 }
  37.     if { [info exists ::mond(flood,$channel)] } { return 0 }
  38.  
  39.     if { ![info exists ::mond(hosts,$channel)] } {
  40.         set ::mond(hosts,$channel) ""
  41.     }
  42.  
  43.     if { [string match "*$hostname*" $::mond(hosts,$channel)] } { return 0 }
  44.  
  45.     if { ![info exists ::mond(status,$channel)] && $arguments == "." } {
  46.         set ::mond(anfang) [clock seconds]
  47.         set spruch [lindex $::mond(sprueche1) [rand [expr [llength $::mond(sprueche1)] - 1]]]
  48.         putquick "privmsg $channel :$spruch ($nickname)"
  49.         set ::mond(status,$channel) 2
  50.         lappend ::mond(hosts,$channel) $hostname
  51.         lappend ::mond(nicks,$channel) $nickname
  52.         return 0
  53.     }
  54.  
  55.     if { [info exists ::mond(status,$channel)] && $arguments == "." && $::mond(status,$channel) == 2 } {
  56.         set spruch [lindex $::mond(sprueche2) [rand [expr [llength $::mond(sprueche2)] - 1]]]
  57.         putquick "privmsg $channel :$spruch ($nickname)"
  58.         set ::mond(status,$channel) 3
  59.         lappend ::mond(hosts,$channel) $hostname
  60.         lappend ::mond(nicks,$channel) $nickname
  61.         return 0
  62.     }
  63.  
  64.     if { [info exists ::mond(status,$channel)] && $arguments == "," && $::mond(status,$channel) == 3 } {
  65.         set spruch [lindex $::mond(sprueche3) [rand [expr [llength $::mond(sprueche3)] - 1]]]
  66.         putquick "privmsg $channel :$spruch ($nickname)"
  67.         set ::mond(status,$channel) 4
  68.         lappend ::mond(hosts,$channel) $hostname
  69.         lappend ::mond(nicks,$channel) $nickname
  70.         return 0
  71.     }
  72.  
  73.     if { [info exists ::mond(status,$channel)] && $arguments == "-" && $::mond(status,$channel) == 4 } {
  74.         set ende [clock seconds]
  75.         set time [expr $ende - $::mond(anfang)]
  76.         lappend ::mond(nicks,$channel) $nickname
  77.         set count [expr [channel get $channel mondgesicht_count] + 1]
  78.         if { $count == "" } {
  79.             set count 1
  80.         }
  81.         channel set $channel mondgesicht_count $count
  82.  
  83.         putquick "privmsg $channel :Punkt Punkt Komma Strich - Fertig ist das MONDGESICHT \\o/ - das hat $time Sekunden lang gedauert - Ihr seid mir Schlafmützen... Wir Bots sind viel schneller (:!"
  84.         putquick "privmsg $channel :Das Mondgesicht Nr. $count wurde von [join $::mond(nicks,$channel) ", "] erstellt!"
  85.  
  86.         set ::mond(flood,$channel) 1
  87.         timer 1 [list unset ::mond(flood,$channel)]
  88.  
  89.         unset ::mond(hosts,$channel)
  90.         unset ::mond(nicks,$channel)
  91.         unset ::mond(status,$channel)
  92.     }
  93. }
  94.  
  95. putlog "Mondgesicht.loaded "
  96.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement