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