bind pub - !blog myblog 
bind pub - !blogs myblog 
bind pub - !faq myfaq
bind pub - !faqs myfaq
bind pub - !hof myhof 
bind pub - !tstf mytstf 
bind pub - !qdb myqdb 
bind pub - !stats mystats 
bind pub - !bday mybday 
bind pub - !hgbinfo myhgbinfo 
bind pub - !roulette myroulette
bind pub - !moin mymoin
bind pub - !word myword
bind pub - !respetc myrespetc
bind pub - !respect myrespetc
bind pub - !spec myrespetc
bind pub - !mittag mymittag
bind pub - !wayne mywayne
bind pub - !help myhelp
bind pub - !em08 myem08
bind pub - !log mylogviewer
bind pub - !logviewer mylogviewer
bind pub - !schland myschland
bind pub - !snow mysnow
bind pub - !yeah myyeah
bind pub - !drogen mydrugs
bind pub - !laid mygetlaid
bind pub - !getlaid mygetlaid
bind pub - !motivation mymotivation

# bind time - "16 16 * * *" mybday_cron

#
# show faqs and some urls for HoF and FAQs
# nostromo, Mon Oct  3 00:48:14 2005
# 
# * added FAQ-list,  Fri Oct  7 22:43:52 2005 
# * added blog-list, Wed Oct 12 12:50:29 2005
# * added bday-list, Mon Nov 28 17:26:22 2005
# * added support for multiple b-days on
#     the same date, Sat Aug 12 11:26:46 2006
#

# proc mybday_cron { min hour day moth year } {
#    # yet to be done...
#    set chan "#hgb"
#    set user "test"
#
#    putchan $chan "ATTENTION! today, [clock format [strftime "%s"] -format %d.%m.%Y] $user has birthday!"
# }

proc mymotivation {nick uhost hand chan rest} {
     if { ($chan != "#hgb") && ($chan != "#hgb.sec") } {
        return
    }

    putchan $chan "$nick, get your motivation boosted at http://www.youtube.com/watch?v=9upTLWRZTfw or http://hawtness.com/"
}

proc mygetlaid {nick uhost hand chan rest} {
     if { ($chan != "#hgb") && ($chan != "#hgb.sec") } {
        return
    }

    putchan $chan "http://www.textfiles.com/sex/808-laid.txt"
}

proc mydrugs {nick uhost hand chan rest} {
     if { ($chan != "#hgb") && ($chan != "#hgb.sec") } {
        return
    }

    putchan $chan "euch ekelhafte drogensuechtige kann man wirklich nur noch im suff ertragen! (http://www.ariva.de/perscheid-drogen-alk_a131131)"
}

proc myyeah {nick uhost hand chan rest} {
     if { ($chan != "#hgb") && ($chan != "#hgb.sec") } {
        return
    }

    putchan $chan "http://thisismeta.at/media/yeah.jpg YEAAAAAAAAAAH!"
}

proc mysnow {nick uhost hand chan rest} {
     if { ($chan != "#hgb") && ($chan != "#hgb.sec") } {
        return
    }

    putchan $chan "yippieh, time for snowballing! -> http://en.wikipedia.org/wiki/Snowballing_(sexual_practice)"
}

proc myschland {nick uhost hand chan rest} {
     if { ($chan != "#hgb") && ($chan != "#hgb.sec") } {
        return
    }

    putchan $chan "schlaaaaaaaaaaaaaaaaaaaannnnnnnnnnnndddddddddddd"
}

proc mylogviewer {nick uhost hand chan rest} {
     if { ($chan != "#hgb") && ($chan != "#hgb.sec") } {
        return
    }

    putchan $chan "http://nostromo.joeh.org/hgb/log.html"
}

proc myem08 {nick uhost hand chan rest} {
     if { ($chan != "#hgb") && ($chan != "#hgb.sec") } {
        return
    }

    putchan $chan "http://nostromo.joeh.org/em08.jpg"
}

proc myhelp {nick uhost hand chan rest} {
     if { ($chan != "#hgb") && ($chan != "#hgb.sec") } {
        return
    }

    putchan $chan "for help on my commands please goto http://nostromo.joeh.org/hgb/help.html \[+\]"
}

proc mywayne {nick uhost hand chan rest} {
     if { ($chan != "#hgb") } {
        return
    }

    putchan $chan "http://nostromo.joeh.org/wayne.jpg \[+\]"
}

proc mymittag {nick uhost hand chan rest} {
     if { ($chan != "#hgb") } {
        return
    }

    putchan $chan "$nick - http://www.heutemittag.at/index.php?site=doSearch&plz=4232 \[+\]"
}

proc myrespetc {nick uhost hand chan rest} {
     if { ($chan != "#hgb") } {
        return
    }

    putchan $chan "$nick - http://nostromo.joeh.org/respetc.jpg \[+\]"
}

proc myword {nick uhost hand chan rest} {
     if { ($chan != "#hgb") } {
        return
    }

    putchan $chan "word! - http://nostromo.joeh.org/word.jpg \[+\]"
}

proc mymoin {nick uhost hand chan rest} {
     if { ($chan != "#hgb") } {
        return
    }

    putchan $chan "moin, $nick - http://nostromo.joeh.org/moin.jpg \[+\]"
}

proc myroulette {nick uhost hand chan rest} {
     if { ($chan != "#hgb") && ($chan != "#iwa-tech") } {
        return
    }

    if { ($nick == "nostromo") } {
       putchan $chan "+click+" 
       return
    } else {
       putchan $chan "BANG, you're dead, $nick - congraz! *reload*"
       putserv "KICK $chan $nick :you're dead..."
    }
}

proc mybday {nick uhost hand chan rest} {
     if { ($chan != "#hgb") && ($chan != "#hgb.sec") } {
        return
    }

    set rest [string trimright $rest]
    set found "none"
    set cur_date [clock format [strftime "%s"] -format %m%d]
    set bday_arr [bday_arr_gen]
    set year2 "none"

    if { ($rest == "") } {
        set counter 0
        set found_bday_01 -1
        set found_bday_02 -1
        set found_bday_03 -1
        set found_index 0

        while { $counter < [llength $bday_arr] } {
            set bday_item [lindex $bday_arr $counter]
            regexp {(..)(..)(....):(.):(.*)} [lindex $bday_arr $counter] match month day year gender bnick
            append cmp_date $month $day
            if { [string compare $cmp_date $cur_date] == 1 } {
                set found_bday_01 $counter
            } elseif { [string compare $cmp_date $cur_date] == -1 } {
                set found_bday_02 $counter
            } elseif { [string compare $cmp_date $cur_date] == 0 } {
                set found_bday_03 $counter
            }
        unset cmp_date
        set counter [expr $counter + 1]
        }

        if { ($found_bday_03 != -1) } {
            regexp {(..)(..)(....):(.):(.*)} [lindex $bday_arr $found_bday_03] match month day year gender bnick
            if { ($gender == "m") } { set gender_gen "has his" ; set gender "he was"  }
            if { ($gender == "f") } { set gender_gen "has her" ; set gender "she was" }
            if { ($gender == "t") } {
                regexp {(.)#(.*) and (.)#(.*)} $bnick match gender1 bnick1 gender2 bnick2
                set bnick "$bnick1 and $bnick2"
                set gender "they were"
                set gender_gen "have their"
                regexp {(..)(..)} $year match year1 year2
                set year "19$year1 and 19$year2"
            }
            putchan $chan "strike, $nick - today $bnick $gender_gen birthday! $gender born in $year - CONGRATULATIONS, $bnick!"
            unset bday_arr
            return
        } elseif { ($found_bday_01 != -1) } {
            regexp {(..)(..)(....):(.):(.*)} [lindex $bday_arr $found_bday_01] match month day year gender bnick
            if { ($gender == "m") } { set gender "he was" }
            if { ($gender == "f") } { set gender "she was" }
            if { ($gender == "t") } {
                regexp {(.)#(.*) and (.)#(.*)} $bnick match gender1 bnick1 gender2 bnick2
                set bnick "$bnick1 and $bnick2"
                set gender "they were"
                set gender_gen "have their"
                regexp {(..)(..)} $year match year1 year2
                unset year
                set year "19$year1 and 19$year2"
            }
            putchan $chan "$nick, next birthday will be on $day.$month by $bnick ($gender born in $year)."
            unset bday_arr
            return
        } elseif { ($found_bday_02 != -1) } {
            set bday_item [lindex $bday_arr end]
            regexp {(..)(..)(....):(.):(.*)} [lindex $bday_arr $found_bday_02] match month day year gender bnick
            if { ($gender == "m") } { set gender "he" }
            if { ($gender == "f") } { set gender "she" }
            if { ($gender == "t") } {
                regexp {(.)#(.*) and (.)#(.*)} $bnick match gender1 bnick1 gender2 bnick2
                set bnick "$bnick1 and $bnick2"
                set gender "they were"
                regexp {(..)(..)} $year match year1 year2
                set year "19$year1 and 19$year2"
            }
            putchan $chan "$nick, next birthday will be on $day.$month by $bnick ($gender born in $year)."
            unset bday_arr
            return
        }

        if { ($found_bday != 0) } {
        }
        unset bday_arr
        return
    } elseif { ([regexp {(^[0-9][0-9]\.[0-9][0-9]$)} $rest]) == 1 } {
        set counter 0
        set c_bnick ""
        set p_day ""
        set p_month ""
        set p_year ""
        set p_bnick ""
        set n_day ""
        set n_month ""
        set n_year ""
        set n_bnick ""
        set n_index -1
        set p_index -1

        while { $counter < [llength $bday_arr] } {
            regexp {^([0-9][0-9])\.([0-9][0-9])$} $rest match cmp_day cmp_month
            regexp {(..)(..)(....):(.):(.*)} [lindex $bday_arr $counter] match month day year gender bnick
            append cmp_date_list  $month $day
            append cmp_date_input $cmp_month $cmp_day
            if { [string compare $cmp_date_input $cmp_date_list] == 1 } {
                if { ($p_index == -1) } {
                    set p_index $counter
                }
            } elseif { [string compare $cmp_date_input $cmp_date_list] == 0 } {
                regexp {(..)(..)(....):(.):(.*)} [lindex $bday_arr $counter] match c_month c_day c_year c_gender c_bnick
            } elseif { [string compare $cmp_date_input $cmp_date_list] == -1 } {
                set n_index $counter
            }
            unset cmp_date_list
            unset cmp_date_input
            set counter [expr $counter + 1]
        }

        regexp {(..)(..)(....):(.):(.*)} [lindex $bday_arr $p_index] match p_month p_day p_year p_gender p_bnick

        if { ($p_index == -1) } {
            regexp {(..)(..)(....):(.):(.*)} [lindex $bday_arr 0] match p_month p_day p_year p_gender p_bnick
        } else {
            regexp {(..)(..)(....):(.):(.*)} [lindex $bday_arr $p_index] match p_month p_day p_year p_gender p_bnick
        }

        if { ($n_index == -1) } {
            regexp {(..)(..)(....):(.):(.*)} [lindex $bday_arr end] match n_month n_day n_year n_gender n_bnick
        } else {
            regexp {(..)(..)(....):(.):(.*)} [lindex $bday_arr $n_index] match n_month n_day n_year n_gender n_bnick
        }

        if { ($c_bnick) == "" } {
            putchan $chan "$nick, no birthday on $cmp_day.$cmp_month."
            putchan $chan "birthday before your specified date was on $p_day.$p_month by $p_bnick, after your specified date on $n_day.$n_month by $n_bnick."
        } else {
            if { ($c_gender == "m") } { set c_gender "has his" }
            if { ($c_gender == "f") } { set c_gender "has her" }
            if { ($c_gender == "t") } {
                regexp {(.)#(.*) and (.)#(.*)} $c_bnick match gender1 bnick1 gender2 bnick2
                set c_bnick "$bnick1 and $bnick2"
                set c_gender "have their"
            }
            putchan $chan "$nick, on $c_day.$c_month $c_bnick $c_gender birthday."
        }
        unset bday_arr
        return
    } elseif { ($rest == "help") } {
        putchan $chan "$nick, try '!bday', '!bday <dd>.<mm>' or '!bday <nick>'."
        unset bday_arr
        return
    } elseif { ([regexp {([a-zA-Z])} $rest]) == 1 } {
        set counter 0
        set found_nick 0
        while { $counter < [llength $bday_arr] } {
            regexp {(..)(..)(....):(.):(.*)} [lindex $bday_arr $counter] match month day year gender bnick
            if { [regexp {(.)#(.*) and (.)#(.*)} $bnick match gender1 bnick1 gender2 bnick2] } {
                regexp {(..)(..)} $year match year1 year2
                if { [string compare -nocase $rest $bnick1] == 0 } {
                    if { ($gender1 == "m") } { set gender_gen "his" ; set gender1 "he"  }
                    if { ($gender1 == "f") } { set gender_gen "her" ; set gender1 "she" }
                    putchan $chan "$nick, $bnick1 has $gender_gen birthday on $day.$month ($gender1 was born in 19$year1)."
                    set found_nick 1
                    unset bday_arr
                    return
                }
                if { [string compare -nocase $rest $bnick2] == 0 } {
                    if { ($gender2 == "m") } { set gender_gen "his" ; set gender2 "he"  }
                    if { ($gender2 == "f") } { set gender_gen "her" ; set gender2 "she" }
                    putchan $chan "$nick, $bnick2 has $gender_gen birthday on $day.$month ($gender2 was born in 19$year2)."
                    set found_nick 1
                    unset bday_arr
                    return
                }
            } else {
                if { [string compare -nocase $rest $bnick] == 0 } {
                    if { ($gender == "m") } { set gender_gen "his" ; set gender "he"  }
                    if { ($gender == "f") } { set gender_gen "her" ; set gender "she" }
                    putchan $chan "$nick, $bnick has $gender_gen birthday on $day.$month ($gender was born in $year)."
                    set found_nick 1
                    unset bday_arr
                    return
                }
            }
            set counter [expr $counter + 1]
        }

        if { ($found_nick == 0) } {
            putchan $chan "$nick, sorry there is no user named \"$rest\" in my birthday-database..."
        }
        unset bday_arr
        return
    } else {
        putchan $chan "$nick, wrong syntax - try '!bday', '!bday <dd>.<mm>' or '!bday <nick>'."
        unset bday_arr
        return
    }
}

proc myhgbinfo {nick uhost hand chan rest} {
     if { ($chan != "#hgb") } {
        return
    }
#    if { ($nick == "lexx_") } {
#       putchan $chan "no way, stat-b14tch!" 
#       return
#   }

	putchan $chan "$nick, find some infos at http://hgbinfo.a1ph.dyndns.org/"
}

proc mystats {nick uhost hand chan rest} {
     if { ($chan != "#hgb") } {
        return
    }
#    if { ($nick == "lexx_") } {
#       putchan $chan "no way, stat-b14tch!" 
#       return
#   }

	putchan $chan "$nick, surf to http://nostromo.joeh.org/hgb/index_stats.html"
}

proc myfaq {nick uhost hand chan rest} {
    if { ($chan != "#hgb") } {
       return
    }

    if { ($rest == "") } {
      putchan $chan "$nick, FAQ-page is at http://nostromo.joeh.org/hgb/index_faqs.html"
    } else {
      set faqlist [faqlist_gen]
      if { ($rest > -1) && ($rest < 27) } {
         putchan $chan [format "%s, Q%02d is: \"%s\"" $nick $rest [lindex $faqlist $rest]]
         putchan $chan [format "the answer to this Q can be found at http://nostromo.joeh.org/hgb/index_faqs.html#Q%02d" $rest]
      } else {
         putchan $chan "$nick, try \"!faq <int>\", where <int> is ranged from 1 to 26."
      }
    unset faqlist
    }
}

proc myqdb {nick uhost hand chan rest} {
     if { ($chan != "#hgb") } {
        return
    }

    putchan $chan "$nick, surf to http://nostromo.joeh.org/hgb/qdb"
}

proc mytstf {nick uhost hand chan rest} {
     if { ($chan != "#hgb") } {
        return
    }

    putchan $chan "$nick, tstf-gallery can be found at http://nostromo.joeh.org/cgi-bin/tstf.cgi"
}

proc myhof {nick uhost hand chan rest} {
     if { ($chan != "#hgb") } {
        return
    }

    putchan $chan "$nick, surf to http://nostromo.joeh.org/hgb/index_hof.html"
}

proc myblog {nick uhost hand chan rest} {
    if { ($chan != "#hgb") && ($chan != "#hgb.sec") } {
       return
    }

    if { ($rest == "") } {
      putchan $chan "$nick, blog link-list is at http://nostromo.joeh.org/hgb/index_blogs.html"
    } else {

        array set bloglist_arr [list \
                 {a1ph}         {http://a1ph.dyndns.org/blog/} \
                 {bigii}        {http://bigiii.blog.de/} \
                 {cypher23}     {http://blog.nuclearsquid.com/} \
                 {einstein2k}   {http://twoday.tuwien.ac.at/einstein2000/} \
                 {elhamster}    {http://www.accidentswaiting.blogspot.com/} \
                 {eliza}        {http://www.lady-geek.com/blog.php} \
                 {ff0}          {http://ff0.nem3d.net/} \
                 {gangman}      {http://blog.coding-monkey.net/} \
                 {h-nes}        {http://der.bioinformatiker.at/} \
                 {hupfis}       {http://hupfis.blog.de/, http://hupfisbmw.blog.de/} \
                 {lexx}         {http://blog.overfloh.net/} \
                 {lexx_}        {http://blog.overfloh.net/} \
                 {lukburg}      {http://lukburg.blog.de/} \
                 {marco1475}    {http://blog.vojtko.com/marek/} \
                 {michbex}      {http://michbex.blog.de/} \
                 {nostromo}     {http://nostromo.joeh.org/blog} \
                 {n1k}          {http://www.kwick.de/profil/n1k/blog} \
                 {private_meta} {http://blog.thisismeta.at/} \
                 {saxx}         {http://www.sachsenhofer.com/Blog/} \
                 {tie-fighter}  {http://www.thomas-steinbrenner.net/} \
                 {uetzguer}     {http://oida.heast.net/} \
                 {wallace}      {http://www.auer.biz/blog/} \
                 {wiggles}      {http://wiggles.blog.de/} \
                 {y2uk}         {http://overfloh.blog.de/} ]

        set rest [string trimright $rest]
        set rest_m [string tolower $rest]

        if { ([array names bloglist_arr $rest_m] == "") } {
            putchan $chan "$nick, \"$rest\" is not in my list of blogs..."
            putserv "PRIVMSG $nick :try one of those nicks: a1ph, Bigii, cypher23, einstein2k, elHamster, Eliza, ff0, GangMan, H-nes, hupfis, lexx, lukburg, marco1475, michbex, n1k, nostromo, private_meta, saxx, Tie-fighter, wallace, wiggles, y2uk or Uetzguer"
            putserv "PRIVMSG $nick :you could also take a look at http://nostromo.joeh.org/hgb/index_blogs.html"
        } else {
            set blog_test $bloglist_arr($rest_m)
            putchan $chan "$nick, $rest's blog should be at $blog_test"
        }
    unset bloglist_arr
    }
}

proc faqlist_gen {} {
    set faqlist {
        {what's this FAQ about?}
        {i'm new to this channel. what should i do?}
        {how do i have my beautiful face shown in the members gallery?}
        {why no umlauts? they are so handy, nice, <whatever>, ...}
        {boaaah! so many people in the channel... are these all users?}
        {what is cloning?}
        {my client has a really nifty trigger-feature. can i make use of it?}
        {but.. but.. <nick> just violated one of the rules! why am i not allowed to do so?}
        {gee, these rules are strict/puristic/whatever. why?}
        {i have a question about <something>. can i ask it in the channel?}
        {what capabilities do the bots in #hgb have?}
        {how come everyone has op-status (with a few exceptions)?}
        {hm... who are the "channel founders" of #hgb?}
        {may i use colors? or: what are the rules concerning colors?}
        {i'd like to have my bot in #hgb, is this alright?}
        {why do i just get "+v"- instead of "+o"-rights? (for n00bs: why did i only get voice instead of operator rights?)}
        {and what in the name of <deity> is a n00b?}
        {i'd like to know more about <user>, how?}
        {what's up with the [+] and [-] behind the urls?}
        {is there a policy regarding nicks?}
        {may i use auto-away?}
        {do i have to watch my spelling?}
        {HOW ABOUT ALL CAPS WRITING?}
        {and how about multiple ??? or !!! ?}
        {what's 1337? does it have any significance?}
        {how do i get an entry in the bday database?}
        {why is [Mac]H-nes so mean?}
    }
}

proc bday_arr_gen {} {
    set bday_list {
        {12281981:f:nik}
        {12261982:m:sam}
        {12241984:m:semtex}
        {12181982:m:dhdd}
        {11281984:m:shIth4pp3ns}
        {11251982:m:martyn}
        {11241982:m:phil}
        {11161982:f:inschi}
        {11111982:m:ro}
        {11071974:m:nostromo}
        {11051983:m:piefke}
        {11021981:m:uetzguer}
        {11011984:m:challenger}
        {10241979:m:doogie}
        {10191984:m:a1ph}
        {10131982:m:elhamster}
        {10111982:m:darthludi}
        {10071983:m:y2uk}
        {10061982:m:lexx_}
        {10031980:m:cirdan}
        {09291981:m:gangman}
        {09271982:f:sina}
        {09081983:m:smido}
        {09078306:t:f#hanni and m#2beers}
        {09041984:m:pants}
        {09031986:m:daudi}
        {08261982:m:hocki}
        {08167884:t:m#h-nes and m#h4rr1s}
        {08131984:m:cypher23}
        {08031983:m:spooky}
        {07311982:m:hupfis}
        {07221984:f:kaleko}
        {07191984:m:_phenix_}
        {07101986:m:tie-fighter}
        {07081980:f:carmina}
        {06271984:m:meta_333}
        {06251983:m:saxx}
        {06141987:m:antraxx}
        {05308384:t:m#hssemichi and m#ebtschi}
        {05301983:m:hssemichi}
        {05291983:m:lector}
        {05261981:m:nipes}
        {05241983:m:lukburg}
        {05211981:m:kristschn}
        {05201986:f:kristiiin}
        {05198282:t:f#elke_ and m#riess82}
        {05161984:m:[sergio]}
        {05141982:m:ff0}
        {05081982:m:jg^}
        {04171983:m:thorben}
        {04161982:m:aiwa}
        {04131983:m:elijah}
        {04101981:m:capi}
        {04071983:f:bigii}
        {03311986:m:mammut}
        {03231984:f:eliza}
        {03201983:m:hoschi}
        {03171982:m:wiggles}
        {03131984:m:gmfvisor}
        {03111980:f:k-thrin}
        {03108179:t:m#michele and m#roll}
        {03098484:t:m#sliver and m#woodi}
        {02271988:f:_anti_}
        {02241984:m:shocker}
        {02181984:m:mrpron}
        {02171981:f:paris_hilton}
        {02151980:m:hugoh}
        {02131981:m:jule_}
        {02071980:m:gekko}
        {02021985:m:huene}
        {01311981:m:maehmann}
        {01251981:m:bommel}
        {01238183:t:f#zombiequeen and f#neolin}
        {01141983:m:marco1475}
        {01071988:f:_maria_}
    }
}

putlog "nostromos faq/hof scripts loaded...."