Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ## HoLGI development
- ## ..,- mondgesicht
- ## -> www.ircscript.de
- bind PUBM -|- * mondgesichtparser
- set mond(sprueche1) {
- "WAHNSINN! Ein Punkt! Was soll ich denn jetz damit? Oder wird das mal ein Mondgesicht? "
- "Punkt Punkt Punkt... Ach so! Måondgesicht soll das werden! Dann mach ma jemand hier weiter! "
- "Soll dieser Punkt jetzt das Ende eines Satzes darstellen oder den Anfang von einem Mondgesichts? "
- "So Loidde, es geht wieder ma rund! Ein Mondgesicht wurde angefangen... Gibt mir wer nen zweiten Punkt? "
- "Noch 'n Punkt, sonst wird das kein Mondgesicht! "
- }
- set mond(sprueche2) {
- "Hmm.. Noch ein Punkt! Jetzt wird's ernst! Macht ma' das Mondgesicht hier fertig! "
- "Das wird ja immer doller hier! Jetzt haben wir schon zwei Punkte! "
- "NOCH EIN PUNKT! Unglaublich dass ihr es so weit bringt! Jetzt müsst ihr ein KOMMA machen, Info vom Bot für Mensch! "
- "Wird's heute noch was? Jetzt noch ein Komma und 'n Strich und wir sind alle glücklich! "
- }
- set mond(sprueche3) {
- "So... und nun? Jetzt noch nen STRICH bitte, dann wird hier endlich nich mehr gespamt... "
- "Ein KOMMA! Ganz richtig! Und jetzt noch nen Strich und ich bin in der Statistik Erhöhen Routine (: "
- "Und nu?? Wo bleibt der STRICH? "
- "LOS LOS! Nur noch ein STRICH und die Sache hier is endlich gegessen! "
- "Glückwunsch dass ihr es so weit gebracht habt... Jetzt, was fehlt noch? Hm? Nachdenken! - DER STRICH! "
- }
- setudef flag mondgesicht
- setudef str mondgesicht_count
- proc mondgesichtparser { nickname hostname handle channel arguments } {
- if { ![channel get $channel mondgesicht] } { return 0 }
- if { [info exists ::mond(flood,$channel)] } { return 0 }
- if { ![info exists ::mond(hosts,$channel)] } {
- set ::mond(hosts,$channel) ""
- }
- if { [string match "*$hostname*" $::mond(hosts,$channel)] } { return 0 }
- if { ![info exists ::mond(status,$channel)] && $arguments == "." } {
- set ::mond(anfang) [clock seconds]
- set spruch [lindex $::mond(sprueche1) [rand [expr [llength $::mond(sprueche1)] - 1]]]
- putquick "privmsg $channel :$spruch ($nickname)"
- set ::mond(status,$channel) 2
- lappend ::mond(hosts,$channel) $hostname
- lappend ::mond(nicks,$channel) $nickname
- return 0
- }
- if { [info exists ::mond(status,$channel)] && $arguments == "." && $::mond(status,$channel) == 2 } {
- set spruch [lindex $::mond(sprueche2) [rand [expr [llength $::mond(sprueche2)] - 1]]]
- putquick "privmsg $channel :$spruch ($nickname)"
- set ::mond(status,$channel) 3
- lappend ::mond(hosts,$channel) $hostname
- lappend ::mond(nicks,$channel) $nickname
- return 0
- }
- if { [info exists ::mond(status,$channel)] && $arguments == "," && $::mond(status,$channel) == 3 } {
- set spruch [lindex $::mond(sprueche3) [rand [expr [llength $::mond(sprueche3)] - 1]]]
- putquick "privmsg $channel :$spruch ($nickname)"
- set ::mond(status,$channel) 4
- lappend ::mond(hosts,$channel) $hostname
- lappend ::mond(nicks,$channel) $nickname
- return 0
- }
- if { [info exists ::mond(status,$channel)] && $arguments == "-" && $::mond(status,$channel) == 4 } {
- set ende [clock seconds]
- set time [expr $ende - $::mond(anfang)]
- lappend ::mond(nicks,$channel) $nickname
- set count [expr [channel get $channel mondgesicht_count] + 1]
- if { $count == "" } {
- set count 1
- }
- channel set $channel mondgesicht_count $count
- 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 (:!"
- putquick "privmsg $channel :Das Mondgesicht Nr. $count wurde von [join $::mond(nicks,$channel) ", "] erstellt!"
- set ::mond(flood,$channel) 1
- timer 1 [list unset ::mond(flood,$channel)]
- unset ::mond(hosts,$channel)
- unset ::mond(nicks,$channel)
- unset ::mond(status,$channel)
- }
- }
- putlog "Mondgesicht.loaded "
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement