Changeset 312


Ignore:
Timestamp:
09/29/03 10:28:57 (8 years ago)
Author:
kevdadrum
Message:

Forgot another file. Idiot Smith.
I never wanted to be a programmer, I wanted to be...a lumberjack

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/modules/events.tcl

    r275 r312  
    313313  } 
    314314 
    315   if [regexp -nocase "${botnicks}?:? ?(how('?s|z) it going|hoe gaat het|what'?s up|'?sup|how are you),?( ${botnicks})?\\?" $text] { 
    316     global mood 
    317     driftFriendship $nick 2 
    318  
    319     if {![bMotionTalkingToMe $text]} { return 0 } 
    320  
    321     if {$bMotionCache(lastHows) != $nick} { 
    322       set moodString "I'm feeling " 
    323       set moodIndex 0 
    324       if {$mood(lonely) > 5} { 
    325         append moodString "a bit lonely" 
    326         incr moodIndex -2 
    327       } 
    328  
    329       if {$mood(horny) > 2} { 
    330         if {[string length $moodString] > 13} { 
    331           append moodString ", " 
    332         } 
    333         append moodString "a little horny" 
    334         incr moodIndex 2 
    335       } 
    336  
    337       if {$mood(happy) > 3} { 
    338         if {[string length $moodString] > 13} { 
    339           append moodString ", " 
    340         } 
    341         append moodString "happy" 
    342         incr moodIndex 1 
    343       } 
    344  
    345       if {$mood(happy) < 0} { 
    346         if {[string length $moodString] > 13} { 
    347           append moodString ", " 
    348         } 
    349         append moodString "sad" 
    350         incr moodIndex -3 
    351       } 
    352  
    353       if {$mood(stoned) > 5} { 
    354         if {[string length $moodString] > 13} { 
    355           append moodString ", " 
    356         } 
    357         append moodString "stoned off my tits" 
    358         incr moodIndex 2 
    359       } 
    360  
    361       if {$moodIndex >= 0} { 
    362         append moodString " :)" 
    363       } else { 
    364         append moodString " :(" 
    365       } 
    366  
    367       if {[string length $moodString] == [string length "I'm feeling  :)"]} { 
    368         global feelings 
    369         set moodString [pickRandom $feelings] 
    370       } 
    371  
    372       bMotionDoAction $channel [bMotionGetRealName $nick $host] "%%: $moodString" 
    373       return 0 
    374     } 
    375     return 0 
    376   } 
    377  
    378315  ###################################### +I people only ################################################### 
    379316 
Note: See TracChangeset for help on using the changeset viewer.