Changeset 312
- Timestamp:
- 09/29/03 10:28:57 (8 years ago)
- File:
-
- 1 edited
-
trunk/modules/events.tcl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/modules/events.tcl
r275 r312 313 313 } 314 314 315 if [regexp -nocase "${botnicks}?:? ?(how('?s|z) it going|hoe gaat het|what'?s up|'?sup|how are you),?( ${botnicks})?\\?" $text] {316 global mood317 driftFriendship $nick 2318 319 if {![bMotionTalkingToMe $text]} { return 0 }320 321 if {$bMotionCache(lastHows) != $nick} {322 set moodString "I'm feeling "323 set moodIndex 0324 if {$mood(lonely) > 5} {325 append moodString "a bit lonely"326 incr moodIndex -2327 }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 2335 }336 337 if {$mood(happy) > 3} {338 if {[string length $moodString] > 13} {339 append moodString ", "340 }341 append moodString "happy"342 incr moodIndex 1343 }344 345 if {$mood(happy) < 0} {346 if {[string length $moodString] > 13} {347 append moodString ", "348 }349 append moodString "sad"350 incr moodIndex -3351 }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 2359 }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 feelings369 set moodString [pickRandom $feelings]370 }371 372 bMotionDoAction $channel [bMotionGetRealName $nick $host] "%%: $moodString"373 return 0374 }375 return 0376 }377 378 315 ###################################### +I people only ################################################### 379 316
Note: See TracChangeset
for help on using the changeset viewer.
