Ignore:
Timestamp:
02/17/08 18:54:27 (4 years ago)
Author:
james
Message:

exciting times

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/plugins/en/action_complex_hands.tcl

    r794 r891  
    1717 
    1818proc bMotion_plugin_complex_action_hands { nick host handle channel text } { 
    19   global botnicks 
     19        global botnicks 
    2020        if {[regexp -nocase "(hands|gives) $botnicks ((a|an|the|some) )?(.+)" $text bling act bot moo preposition item]} { 
    21           bMotion_putloglev d * "bMotion: Got handed !$item! by $nick in $channel" 
    22  
    23     #Coffee 
     21                bMotion_putloglev d * "bMotion: Got handed !$item! by $nick in $channel" 
     22 
     23                #Coffee 
    2424                if [regexp -nocase "(cup of )?coffee" $item] { 
    25       bMotion_plugin_complex_action_hands_coffee $channel $nick 
    26       return 1 
    27                 } 
    28  
    29     #hug 
    30     if [regexp -nocase "^hug" $item] { 
    31       if [bMotion_plugin_check_depend "action_complex:hugs"] { 
    32         bMotion_plugin_complex_action_hugs $nick $host $handle $channel "" 
    33         return 1 
    34       } 
    35     } 
    36  
    37     # Tissues 
    38     if [regexp -nocase "((box of)|a)? tissues?" $item] { 
    39       bMotion_plugin_complex_action_hands_tissues $channel $nick 
    40       return 1 
    41     } 
    42  
    43     # Body paint 
    44     if [regexp -nocase "(chocolate|strawberry) (sauce|bodypaint|body paint|body-paint)" $item] { 
    45       bMotion_plugin_complex_action_hands_bodypaint $channel $nick 
    46       return 1 
    47     } 
    48  
    49     # pie 
    50     if [regexp -nocase {\mpie\M} $item] { 
    51       bMotion_plugin_complex_action_hands_pie $channel $nick 
    52       return 1 
    53     } 
    54  
    55     #spliff 
    56     if [regexp -nocase "(spliff|joint|bong|pipe|dope|gear|pot)" $item] { 
    57       bMotion_plugin_complex_action_hands_spliff $channel $nick $handle 
    58       return 1 
    59     } 
    60  
    61     #dildo 
    62     if [regexp -nocase "(dildo|vibrator|cucumber|banana|flute)" $item bling item2] { 
    63       if [bMotion_plugin_check_depend "action_complex:hands_dildo"] { 
    64         bMotion_plugin_complex_action_hands_dildo $channel $nick $item $item2 
    65       } 
    66       return 1 
    67     }  
    68     #end of "hands dildo" 
    69  
    70     #catch everything else 
    71     bMotionDoAction $channel $item "%VAR{hand_generic}" 
    72      
    73     #we'll add it to our random things list for this session too 
    74     bMotion_abstract_add "sillyThings" $item 
    75     return 1 
    76   }  
    77   #end of "hands" handler 
     25                        driftFriendship $nick 5 
     26                        bMotion_plugin_complex_action_hands_coffee $channel $nick 
     27                        return 1 
     28                } 
     29 
     30                #hug 
     31                if [regexp -nocase "^hug" $item] { 
     32                        if [bMotion_plugin_check_depend "action_complex:hugs"] { 
     33                        driftFriendship $nick 5 
     34                                bMotion_plugin_complex_action_hugs $nick $host $handle $channel "" 
     35                                return 1 
     36                        } 
     37                } 
     38 
     39                # Tissues 
     40                if [regexp -nocase "((box of)|a)? tissues?" $item] { 
     41                        bMotion_plugin_complex_action_hands_tissues $channel $nick 
     42                        return 1 
     43                } 
     44 
     45                # Body paint 
     46                if [regexp -nocase "(chocolate|strawberry) (sauce|bodypaint|body paint|body-paint)" $item] { 
     47                        bMotion_plugin_complex_action_hands_bodypaint $channel $nick 
     48                        return 1 
     49                } 
     50 
     51                # pie 
     52                if [regexp -nocase {\mpie\M} $item] { 
     53                        driftFriendship $nick 5 
     54                        bMotion_plugin_complex_action_hands_pie $channel $nick 
     55                        return 1 
     56                } 
     57 
     58                #spliff 
     59                if [regexp -nocase "(spliff|joint|bong|pipe|dope|gear|pot)" $item] { 
     60                        driftFriendship $nick 3 
     61                        bMotion_plugin_complex_action_hands_spliff $channel $nick $handle 
     62                        return 1 
     63                } 
     64 
     65                #dildo 
     66                if [regexp -nocase "(dildo|vibrator|cucumber|banana|flute)" $item bling item2] { 
     67                        if [bMotion_plugin_check_depend "action_complex:hands_dildo"] { 
     68                                bMotion_plugin_complex_action_hands_dildo $channel $nick $item $item2 
     69                        } 
     70                        return 1 
     71                }  
     72                #end of "hands dildo" 
     73 
     74                #catch everything else 
     75                bMotion_abstract_add "sillyThings" $item 
     76 
     77                set original_item $item 
     78                set item [string tolower [bMotion_strip_article $item]] 
     79                regsub "e?s$" $item "" item 
     80 
     81                # check if we already know if we don't like this 
     82                if [bMotion_abstract_contains "_bmotion_dislike" $item] { 
     83                        bMotionDoAction $channel $original_item "%VAR{hand_dislike}" $nick 
     84                        return 1 
     85                } 
     86 
     87                if [bMotion_abstract_contains "_bmotion_like" $item] { 
     88                        bMotionDoAction $channel $original_item "%VAR{hand_like}" $nick 
     89                        return 1 
     90                } 
     91 
     92                if {[rand 100] > 80} { 
     93                        bMotionDoAction $channel $original_item "%VAR{hand_dislike}" $nick 
     94                        bMotion_abstract_add "_bmotion_dislike" $item 
     95                } else { 
     96                        bMotionDoAction $channel $original_item "%VAR{hand_like}" $nick 
     97                        bMotion_abstract_add "_bmotion_like" $item 
     98                } 
     99                return 1 
     100        }  
     101        #end of "hands" handler 
    78102} 
    79103 
    … …  
    83107##### COFFEE 
    84108proc bMotion_plugin_complex_action_hands_coffee { channel nick } { 
    85   global got 
    86   set coffeeNick [bMotion_plugins_settings_get "complexaction:hands" "coffee_nick"  "" ""] 
    87   bMotion_putloglev 1 * "bMotion: ...and it's a cup of coffee... mmmmmmm" 
    88   if {$coffeeNick != ""} { 
    89     bMotion_putloglev 1 * "bMotion: But I already have one :/" 
    90     bMotionDoAction $channel $nick "%%: thanks anyway, but I'm already drinking the one $coffeeNick gave me :)" 
    91     return 1 
    92   } 
    93   driftFriendship $nick 2 
    94   bMotionDoAction $channel "" "%VAR{thanks}" 
    95   bMotionDoAction $channel "" "mmmmm..." 
    96   bMotionDoAction $channel "" "/drinks the coffee %VAR{smiles}" 
    97   bMotion_plugins_settings_set "complexaction:hands" "coffee_nick" "" "" $nick 
    98   bMotion_plugins_settings_set "complexaction:hands" "coffee_channel" "" "" $channel 
    99   utimer 45 { bMotion_plugin_complex_action_hands_finishcoffee } 
    100   return 1 
     109        global got 
     110        set coffeeNick [bMotion_plugins_settings_get "complexaction:hands" "coffee_nick"        "" ""] 
     111        bMotion_putloglev 1 * "bMotion: ...and it's a cup of coffee... mmmmmmm" 
     112        if {$coffeeNick != ""} { 
     113                bMotion_putloglev 1 * "bMotion: But I already have one :/" 
     114                bMotionDoAction $channel $nick "%%: thanks anyway, but I'm already drinking the one $coffeeNick gave me :)" 
     115                return 1 
     116        } 
     117        driftFriendship $nick 2 
     118        bMotionDoAction $channel "" "%VAR{thanks}" 
     119        bMotionDoAction $channel "" "mmmmm..." 
     120        bMotionDoAction $channel "" "/drinks the coffee %VAR{smiles}" 
     121        bMotion_plugins_settings_set "complexaction:hands" "coffee_nick" "" "" $nick 
     122        bMotion_plugins_settings_set "complexaction:hands" "coffee_channel" "" "" $channel 
     123        utimer 45 { bMotion_plugin_complex_action_hands_finishcoffee } 
     124        return 1 
    101125} 
    102126 
    103127proc bMotion_plugin_complex_action_hands_finishcoffee { } { 
    104   global mood 
    105   set coffeeChannel [bMotion_plugins_settings_get "complexaction:hands" "coffee_channel" "" ""] 
     128        global mood 
     129        set coffeeChannel [bMotion_plugins_settings_get "complexaction:hands" "coffee_channel" "" ""] 
    106130        bMotionDoAction $coffeeChannel "" "/finishes the coffee" 
    107131        bMotionDoAction $coffeeChannel "" "mmmm... thanks :)" 
    108   incr mood(happy) 1 
     132        incr mood(happy) 1 
    109133        bMotion_plugins_settings_set "complexaction:hands" "coffee_nick" "" "" "" 
    110134} 
    … …  
    114138 
    115139proc bMotion_plugin_complex_action_hands_tissues { channel nick } { 
    116   bMotion_putloglev 1 * "bMotion: ...and it's a box of tissues! ~rarr~" 
    117   global mood 
    118   if {$mood(horny) < -3} { 
    119     bMotion_putloglev 1 * "bMotion: But i'm not in the mood" 
    120     bMotionDoAction $channel "" "$nick: thanks, but i'm not in the mood for that right now :(" 
    121   } 
    122  
    123   set tissuesNick [bMotion_plugins_settings_get "complexaction:hands" "tissues_nick" "" ""] 
    124   if {$tissuesNick != ""} { 
    125     bMotion_putloglev 1 * "bMotion: But I already have one :/" 
    126     bMotionDoAction $channel "" "$nick: thanks anyway, but I'm already using the tissues $tissuesNick gave me :) *uNF*" 
    127   } 
    128  
    129   driftFriendship $nick 2 
    130   bMotionDoAction $channel "" "%VAR{thanks}" 
    131   bMotionDoAction $channel $nick "/locks %himherself in the bathroom" 
    132   bMotion_plugins_settings_set "complexaction:hands" "tissues_nick" "" "" $nick 
    133   bMotion_plugins_settings_set "complexaction:hands" "tissues_channel" "" "" $channel 
    134  
    135   #TODO: this mood stuff is OLD 
    136   incr mood(lonely) -1 
    137   incr mood(horny) -1 
    138   incr mood(happy) 2 
    139  
    140   utimer 90 bMotion_plugin_complex_action_hands_finishtissues 
     140        bMotion_putloglev 1 * "bMotion: ...and it's a box of tissues! ~rarr~" 
     141        global mood 
     142        if {$mood(horny) < -3} { 
     143                bMotion_putloglev 1 * "bMotion: But i'm not in the mood" 
     144                bMotionDoAction $channel "" "$nick: thanks, but i'm not in the mood for that right now :(" 
     145        } 
     146 
     147        set tissuesNick [bMotion_plugins_settings_get "complexaction:hands" "tissues_nick" "" ""] 
     148        if {$tissuesNick != ""} { 
     149                bMotion_putloglev 1 * "bMotion: But I already have one :/" 
     150                bMotionDoAction $channel "" "$nick: thanks anyway, but I'm already using the tissues $tissuesNick gave me :) *uNF*" 
     151        } 
     152 
     153        driftFriendship $nick 2 
     154        bMotionDoAction $channel "" "%VAR{thanks}" 
     155        bMotionDoAction $channel $nick "/locks %himherself in the bathroom" 
     156        bMotion_plugins_settings_set "complexaction:hands" "tissues_nick" "" "" $nick 
     157        bMotion_plugins_settings_set "complexaction:hands" "tissues_channel" "" "" $channel 
     158 
     159        #TODO: this mood stuff is OLD 
     160        incr mood(lonely) -1 
     161        incr mood(horny) -1 
     162        incr mood(happy) 2 
     163 
     164        utimer 90 bMotion_plugin_complex_action_hands_finishtissues 
    141165} 
    142166 
    143167proc bMotion_plugin_complex_action_hands_finishtissues { } { 
    144   global mood 
    145   set tissuesChannel [bMotion_plugins_settings_get "complexaction:hands" "tissues_channel" "" ""] 
    146   bMotionDoAction $tissuesChannel "" "uNF *squeaky* *boing* *squirt*" 
    147   bMotionDoAction $tissuesChannel "" "/finishes using the tissues" 
    148   bMotion_plugins_settings_set "complexaction:hands" "tissues_nick" "" "" "" 
    149  
    150   #TODO: this mood stuff is OLD 
    151   incr mood(happy) 1 
    152   incr mood(horny) -2 
     168        global mood 
     169        set tissuesChannel [bMotion_plugins_settings_get "complexaction:hands" "tissues_channel" "" ""] 
     170        bMotionDoAction $tissuesChannel "" "uNF *squeaky* *boing* *squirt*" 
     171        bMotionDoAction $tissuesChannel "" "/finishes using the tissues" 
     172        bMotion_plugins_settings_set "complexaction:hands" "tissues_nick" "" "" "" 
     173 
     174        #TODO: this mood stuff is OLD 
     175        incr mood(happy) 1 
     176        incr mood(horny) -2 
    153177} 
    154178 
    … …  
    157181 
    158182proc bMotion_plugin_complex_action_hands_bodypaint { channel nick } { 
    159   bMotion_putloglev 1 *  "bMotion: Ooh ooh body paint!" 
    160   if {![bMotionLike $nick]} { 
    161     frightened $nick $channel 
    162     return 0 
    163   } 
    164  
    165   global bMotionInfo 
    166   driftFriendship $nick 2 
    167   if {$bMotionInfo(gender) == "male"} { 
    168     bMotionDoAction $channel $nick "/applies it to %%" 
    169     bMotionDoAction $channel $nick "/licks it off" 
    170     return 0 
    171   } 
    172  
    173   #female 
    174   set bodyPaintNick [bMotion_plugins_settings_get "complexaction:hands" "paint_nick" "" ""] 
    175  
    176   if {$bodyPaintNick != ""} { 
    177     bMotion_putloglev 1 * "bMotion: But I'm already wearing some" 
    178     bMotionDoAction $channel $bodyPaintNick "Thanks $nick but I'm already waiting for %% to lick some body paint off me" 
    179     return 0 
    180   } 
    181  
    182   bMotionDoAction $channel $nick "/smears it over herself and waits for %% to come and lick it off" 
    183   bMotion_plugins_settings_set "complexaction:hands" "paint_nick" "" "" $nick 
    184   bMotion_plugins_settings_set "complexaction:hands" "paint_channel" "" "" $channel 
    185   utimer 60 bMotion_plugin_complex_action_hands_finishPaint 
    186   return 0 
     183        bMotion_putloglev 1 *  "bMotion: Ooh ooh body paint!" 
     184        if {![bMotionLike $nick]} { 
     185                frightened $nick $channel 
     186                return 0 
     187        } 
     188 
     189        global bMotionInfo 
     190        driftFriendship $nick 2 
     191        if {$bMotionInfo(gender) == "male"} { 
     192                bMotionDoAction $channel $nick "/applies it to %%" 
     193                bMotionDoAction $channel $nick "/licks it off" 
     194                return 0 
     195        } 
     196 
     197        #female 
     198        set bodyPaintNick [bMotion_plugins_settings_get "complexaction:hands" "paint_nick" "" ""] 
     199 
     200        if {$bodyPaintNick != ""} { 
     201                bMotion_putloglev 1 * "bMotion: But I'm already wearing some" 
     202                bMotionDoAction $channel $bodyPaintNick "Thanks $nick but I'm already waiting for %% to lick some body paint off me" 
     203                return 0 
     204        } 
     205 
     206        bMotionDoAction $channel $nick "/smears it over herself and waits for %% to come and lick it off" 
     207        bMotion_plugins_settings_set "complexaction:hands" "paint_nick" "" "" $nick 
     208        bMotion_plugins_settings_set "complexaction:hands" "paint_channel" "" "" $channel 
     209        utimer 60 bMotion_plugin_complex_action_hands_finishPaint 
     210        return 0 
    187211} 
    188212 
    189213proc bMotion_plugin_complex_action_hands_finishPaint { } { 
    190   set bodyPaintNick [bMotion_plugins_settings_get "complexaction:hands" "paint_nick" "" ""] 
    191   set bodyPaintChannel [bMotion_plugins_settings_get "complexaction:hands" "paint_channel" "" ""] 
    192   bMotionDoAction $bodyPaintChannel $bodyPaintNick "/gets bored of waiting for %% and licks the body paint off by herself instead" 
    193   bMotion_plugins_settings_set "complexaction:hands" "paint_nick" "" "" "" 
    194   bMotionGetHorny 
    195   bMotionGetLonely 
     214        set bodyPaintNick [bMotion_plugins_settings_get "complexaction:hands" "paint_nick" "" ""] 
     215        set bodyPaintChannel [bMotion_plugins_settings_get "complexaction:hands" "paint_channel" "" ""] 
     216        bMotionDoAction $bodyPaintChannel $bodyPaintNick "/gets bored of waiting for %% and licks the body paint off by herself instead" 
     217        bMotion_plugins_settings_set "complexaction:hands" "paint_nick" "" "" "" 
     218        bMotionGetHorny 
     219        bMotionGetLonely 
    196220} 
    197221 
    … …  
    199223 
    200224proc bMotion_plugin_complex_action_hands_pie { channel nick } { 
    201   driftFriendship $nick 1 
    202   bMotion_putloglev 1 * "bMotion: ah ha, pie :D" 
    203   bMotionGetHappy 
    204   bMotionGetUnLonely 
    205   bMotionDoAction $channel $nick ":D%|thanks %%%|/eats pie" 
    206   return 0 
     225        driftFriendship $nick 1 
     226        bMotion_putloglev 1 * "bMotion: ah ha, pie :D" 
     227        bMotionGetHappy 
     228        bMotionGetUnLonely 
     229        bMotionDoAction $channel $nick ":D%|thanks %%%|/eats pie" 
     230        return 0 
    207231} 
    208232 
    … …  
    210234 
    211235proc bMotion_plugin_complex_action_hands_spliff { channel nick handle } { 
    212   global mood 
    213  
    214   driftFriendship $nick 1 
    215   bMotion_putloglev 1 * "bMotion: ... and it's mind-altering drugs! WOOHOO!" 
    216   bMotion_putloglev 1 * "bMotion: ...... wheeeeeeeeeeeeeeeeeeeeeeeeeeeeeee...." 
    217   incr mood(stoned) 2 
    218   checkmood $nick $channel 
    219   bMotionDoAction $channel $nick "%VAR{smokes}" 
    220   return 0 
     236        global mood 
     237 
     238        driftFriendship $nick 1 
     239        bMotion_putloglev 1 * "bMotion: ... and it's mind-altering drugs! WOOHOO!" 
     240        bMotion_putloglev 1 * "bMotion: ...... wheeeeeeeeeeeeeeeeeeeeeeeeeeeeeee...." 
     241        incr mood(stoned) 2 
     242        checkmood $nick $channel 
     243        bMotionDoAction $channel $nick "%VAR{smokes}" 
     244        return 0 
    221245} 
    222246 
    223247# abstracts 
    224 bMotion_abstract_register "hand_generic" 
    225 bMotion_abstract_batchadd "hand_generic" { 
    226   "%VAR{thanks}" 
    227   "%REPEAT{3:6:m} %%" 
    228   "Do I want this?" 
    229   "Just what I've always wanted %VAR{smiles}" 
    230 } 
     248bMotion_abstract_register "hand_generic" { 
     249        "%VAR{thanks}" 
     250        "%REPEAT{3:6:m} %%" 
     251        "Do I want this?" 
     252        "Just what I've always wanted %VAR{smiles}" 
     253} 
     254 
     255bMotion_abstract_register "_bmotion_like" 
     256bMotion_abstract_register "_bmotion_dislike" 
     257 
     258bMotion_abstract_register "hand_like" { 
     259  "mmm %%" 
     260  "/plays with %hisher %%" 
     261  "%VAR{smiles}%|/shares with %2" 
     262  "%VAR{smiles}%|/shares with %ruser{friend}" 
     263  "i like these" 
     264} 
     265 
     266bMotion_abstract_register "hand_dislike" { 
     267  "oh no %%" 
     268  "/throws it in the bin" 
     269  "/throws it at %ruser{enemy}" 
     270  "/jams it up %hisher arse%|that's what i think of that." 
     271} 
     272 
Note: See TracChangeset for help on using the changeset viewer.