- Timestamp:
- 02/04/12 17:25:10 (4 months ago)
- Location:
- trunk/plugins/en
- Files:
-
- 90 edited
-
action_complex_attack.tcl (modified) (2 diffs)
-
action_complex_away.tcl (modified) (3 diffs)
-
action_complex_failsafe.tcl (modified) (2 diffs)
-
action_complex_fucks.tcl (modified) (1 diff)
-
action_complex_hands.tcl (modified) (2 diffs)
-
action_complex_hands_dildo.tcl (modified) (4 diffs)
-
action_complex_hugs.tcl (modified) (1 diff)
-
action_complex_lifts.tcl (modified) (2 diffs)
-
action_complex_light.tcl (modified) (3 diffs)
-
action_complex_misc.tcl (modified) (2 diffs)
-
action_complex_rolls.tcl (modified) (1 diff)
-
action_complex_shows.tcl (modified) (5 diffs)
-
action_complex_smacks.tcl (modified) (3 diffs)
-
action_complex_waves.tcl (modified) (1 diff)
-
action_simple_squeeze.tcl (modified) (1 diff)
-
complex_abbr.tcl (modified) (5 diffs)
-
complex_action_hands_dildo.tcl (modified) (4 diffs)
-
complex_activate.tcl (modified) (1 diff)
-
complex_asl.tcl (modified) (1 diff)
-
complex_bhar.tcl (modified) (1 diff)
-
complex_chomp.tcl (modified) (1 diff)
-
complex_correct.tcl (modified) (1 diff)
-
complex_crap.tcl (modified) (3 diffs)
-
complex_eitheror.tcl (modified) (1 diff)
-
complex_fact.tcl (modified) (1 diff)
-
complex_fry.tcl (modified) (1 diff)
-
complex_fuckoff.tcl (modified) (1 diff)
-
complex_getfact.tcl (modified) (5 diffs)
-
complex_gollum.tcl (modified) (1 diff)
-
complex_hand.tcl (modified) (3 diffs)
-
complex_hello.tcl (modified) (2 diffs)
-
complex_invader.tcl (modified) (6 diffs)
-
complex_joker.tcl (modified) (2 diffs)
-
complex_knockknock.tcl (modified) (1 diff)
-
complex_les.tcl (modified) (1 diff)
-
complex_love.tcl (modified) (1 diff)
-
complex_nazi.tcl (modified) (1 diff)
-
complex_nightmare.tcl (modified) (1 diff)
-
complex_pack.tcl (modified) (1 diff)
-
complex_pants.tcl (modified) (1 diff)
-
complex_phonetic.tcl (modified) (4 diffs)
-
complex_pokemon.tcl (modified) (1 diff)
-
complex_questions.tcl (modified) (5 diffs)
-
complex_readings.tcl (modified) (3 diffs)
-
complex_replicate.tcl (modified) (1 diff)
-
complex_scrap.tcl (modified) (19 diffs)
-
complex_sex.tcl (modified) (2 diffs)
-
complex_snap.tcl (modified) (1 diff)
-
complex_sosyour.tcl (modified) (1 diff)
-
complex_spoonerism.tcl (modified) (1 diff)
-
complex_sport.tcl (modified) (7 diffs)
-
complex_summon.tcl (modified) (7 diffs)
-
complex_supermarkets.tcl (modified) (1 diff)
-
complex_taunt.tcl (modified) (2 diffs)
-
complex_techsupport.tcl (modified) (5 diffs)
-
complex_trivia.tcl (modified) (1 diff)
-
complex_unf.tcl (modified) (1 diff)
-
complex_want_catch.tcl (modified) (5 diffs)
-
complex_wins.tcl (modified) (1 diff)
-
complex_woot.tcl (modified) (1 diff)
-
complex_worried.tcl (modified) (1 diff)
-
complex_wrong_console.tcl (modified) (2 diffs)
-
irc_join.tcl (modified) (2 diffs)
-
irc_nick_away.tcl (modified) (1 diff)
-
irc_quit.tcl (modified) (2 diffs)
-
output_NUMBER.tcl (modified) (1 diff)
-
output_SETTING.tcl (modified) (1 diff)
-
output_SMILEY.tcl (modified) (1 diff)
-
output_TIME.tcl (modified) (1 diff)
-
output_VAR.tcl (modified) (3 diffs)
-
output_censor.tcl (modified) (1 diff)
-
output_channel.tcl (modified) (1 diff)
-
output_demon.tcl (modified) (1 diff)
-
output_ebonics.tcl (modified) (1 diff)
-
output_english.tcl (modified) (1 diff)
-
output_homophone.tcl (modified) (2 diffs)
-
output_preprocess.tcl (modified) (1 diff)
-
output_rbot.tcl (modified) (1 diff)
-
output_ruser.tcl (modified) (1 diff)
-
output_stop.tcl (modified) (1 diff)
-
output_switch.tcl (modified) (1 diff)
-
output_typos.tcl (modified) (2 diffs)
-
simple_general.tcl (modified) (1 diff)
-
simple_here.tcl (modified) (1 diff)
-
simple_ick.tcl (modified) (5 diffs)
-
simple_list.tcl (modified) (1 diff)
-
simple_littlebit.tcl (modified) (1 diff)
-
simple_notbot.tcl (modified) (1 diff)
-
simple_notlong.tcl (modified) (1 diff)
-
simple_sneeze.tcl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/plugins/en/action_complex_attack.tcl
r936 r1137 13 13 bMotion_plugin_add_action_complex "attacks" "^attacks (.+) with " 100 bMotion_plugin_complex_action_attack "en" 14 14 15 proc bMotion_plugin_complex_action_attack { nick host handle channel text } { 16 if {![bMotion_interbot_me_next $channel]} { 17 return 1 15 proc bMotion_plugin_complex_action_attack { nick host handle channel text } { 16 if {![bMotion_interbot_me_next $channel]} { 17 return 1 18 18 } 19 19 set damage [rand 1500] … … 28 28 } 29 29 30 bMotion_abstract_register "attack_responses" 31 bMotion_abstract_batchadd "attack_responses" { 30 bMotion_abstract_register "attack_responses" { 32 31 "%% attacks %SETTING{complex:attacks:who:_:_} with '%SETTING{complex:attacks:item:_:_}' for %SETTING{complex:attacks:score:_:_} damage." 33 32 "%SETTING{complex:attacks:who:_:_} takes %SETTING{complex:attacks:score:_:_} damage from %OWNER{%%} '%SETTING{complex:attacks:item:_:_}'" -
trunk/plugins/en/action_complex_away.tcl
r936 r1137 38 38 #save as newnick because if they do a /me next it'll be their new nick 39 39 bMotion_plugins_settings_set "complex:away" "lastnick" $channel "" $nick 40 40 41 41 #autoaway 42 42 if [regexp -nocase "(auto( |-)?away|idle)" $text] { … … 75 75 return 1 76 76 } 77 77 78 78 bMotionDoAction $channel [bMotionGetRealName $nick $host] "%VAR{cyas}" 79 79 return 1 … … 104 104 105 105 bMotionDoAction $channel [bMotionGetRealName $nick $host] "%VAR{welcomeBacks}" 106 106 107 107 bMotion_plugins_settings_set "system:join" "lastgreeted" $channel "" $nick 108 108 return 1 -
trunk/plugins/en/action_complex_failsafe.tcl
r1136 r1137 52 52 bMotionGetHorny 53 53 driftFriendship $nick 10 54 } 54 } 55 55 56 56 … … 131 131 } 132 132 133 bMotion_abstract_register "failsafe_nice" 134 bMotion_abstract_batchadd "failsafe_nice" [list "mmm" "%VAR{smiles}" "%VAR{smiles}%|/gives %% %VAR{sillyThings}" "i do love a good %2ing"] 133 bMotion_abstract_register "failsafe_nice" [list "mmm" "%VAR{smiles}" "%VAR{smiles}%|/gives %% %VAR{sillyThings}" "i do love a good %2ing"] 135 134 136 135 137 bMotion_abstract_register "failsafes_a" 138 bMotion_abstract_batchadd "failsafes_a" [list "%VAR{rarrs}" "%REPEAT{3:7:m}" "%VAR{thanks}" "what" "/loves it" "/passes it on to %ruser" "/. o O ( ? )" "i do love a good %%ing"] 136 bMotion_abstract_register "failsafes_a" [list "%VAR{rarrs}" "%REPEAT{3:7:m}" "%VAR{thanks}" "what" "/loves it" "/passes it on to %ruser" "/. o O ( ? )" "i do love a good %%ing"] 139 137 140 bMotion_abstract_register "failsafes_b" 141 bMotion_abstract_batchadd "failsafes_b" [list "/%% %2 %SETTING{complex:failsafe:last:nick:moo} back with %VAR{sillyThings}" "/%% %2 %SETTING{complex:failsafe:last:nick:moo}" "/%VAR{sillyThings:verb,strip} %2 %SETTING{complex:failsafe:last:nick:moo} in the %VAR{bodypart:bothmixin}" "/%VAR{sillyThings:verb,strip} %2 %SETTING{complex:failsafe:last:nick:moo} in return" "i do love a good %%ing"] 138 bMotion_abstract_register "failsafes_b" [list "/%% %2 %SETTING{complex:failsafe:last:nick:moo} back with %VAR{sillyThings}" "/%% %2 %SETTING{complex:failsafe:last:nick:moo}" "/%VAR{sillyThings:verb,strip} %2 %SETTING{complex:failsafe:last:nick:moo} in the %VAR{bodypart:bothmixin}" "/%VAR{sillyThings:verb,strip} %2 %SETTING{complex:failsafe:last:nick:moo} in return" "i do love a good %%ing"] 142 139 bMotion_abstract_add_filter "failsafes_b" "%VERB" 143 140 144 bMotion_abstract_register "squeezeds" 145 bMotion_abstract_batchadd "squeezeds" [list "/pops" "/bursts" "/is compressed to a singularity and sucks in all of spacetime%|whoops" "/deflates" "%VAR{smiles}"] 141 bMotion_abstract_register "squeezeds" [list "/pops" "/bursts" "/is compressed to a singularity and sucks in all of spacetime%|whoops" "/deflates" "%VAR{smiles}"] 146 142 147 bMotion_abstract_register "whats" 148 bMotion_abstract_batchadd "whats" [list "what?" "hmm?" "hello? yes?" "er... they did it%|/points at %ruser" "/stares back"] 143 bMotion_abstract_register "whats" [list "what?" "hmm?" "hello? yes?" "er... they did it%|/points at %ruser" "/stares back"] 149 144 150 bMotion_abstract_register "failsafe_lookback" 151 bMotion_abstract_batchadd "failsafe_lookback" [list "/stares at %%" "hello, yes?" "i can still see you..." "/poses" "/bounces away" "%VAR{smiles}" "/looks at %%" ] 152 153 bMotion_abstract_register "failsafe_wtfs" 154 bMotion_abstract_batchadd "failsafe_wtfs" [list "%VAR{satOns}" "%VAR{shocked}" ] 145 bMotion_abstract_register "failsafe_lookback" [list "/stares at %%" "hello, yes?" "i can still see you..." "/poses" "/bounces away" "%VAR{smiles}" "/looks at %%" ] 155 146 156 bMotion_abstract_register "failsafe_niceactions" 157 bMotion_abstract_batchadd "failsafe_niceactions" [list "wh%REPEAT{3:7:e} %VAR{smiles}" "%VAR{smiles}" "/bounces around" "*drool*" ] 147 bMotion_abstract_register "failsafe_wtfs" [list "%VAR{satOns}" "%VAR{shocked}" ] 148 149 bMotion_abstract_register "failsafe_niceactions" [list "wh%REPEAT{3:7:e} %VAR{smiles}" "%VAR{smiles}" "/bounces around" "*drool*" ] 158 150 159 151 bMotion_abstract_register "sillyVerbs" -
trunk/plugins/en/action_complex_fucks.tcl
r1136 r1137 21 21 frightened $nick $channel 22 22 return 1 23 } 23 } 24 24 25 25 if [bMotionLike $nick $host] { -
trunk/plugins/en/action_complex_hands.tcl
r1114 r1137 67 67 } 68 68 return 1 69 } 69 } 70 70 #end of "hands dildo" 71 71 … … 120 120 } 121 121 return 1 122 } 122 } 123 123 #end of "hands" handler 124 124 } -
trunk/plugins/en/action_complex_hands_dildo.tcl
r936 r1137 46 46 } 47 47 48 #play with it 48 #play with it 49 49 #TODO: Rationalise this! 50 50 if {$got(dildo,count) == 1} { … … 59 59 60 60 if {[bMotionGetGender $nick $host] == "male"} { 61 #-- hander is male 61 #-- hander is male 62 62 if [string match -nocase "*flute*" $item] { 63 63 bMotionDoAction $channel $item "%VAR{dildoFlutePlays}" $nick … … 129 129 return 0 130 130 } else { 131 bMotionDoAction $channel $nick "%VAR{dildoMaleMale}" $item 131 bMotionDoAction $channel $nick "%VAR{dildoMaleMale}" $item 132 132 #take turns 133 133 set useTimer 1 … … 149 149 set useTimer 1 150 150 set style "normal" 151 } 152 } 151 } 152 } 153 153 #male bot, female hander 154 154 bMotion_putloglev 1 * "bMotion: dildo (male) timer starting" -
trunk/plugins/en/action_complex_hugs.tcl
r936 r1137 14 14 bMotion_plugin_add_action_complex "hugs" "^(hugs|snuggles|huggles|knuffelt) %botnicks" 100 bMotion_plugin_complex_action_hugs "en" 15 15 16 proc bMotion_plugin_complex_action_hugs { nick host handle channel text } { 16 proc bMotion_plugin_complex_action_hugs { nick host handle channel text } { 17 17 bMotionGetUnLonely 18 18 bMotionGetHappy -
trunk/plugins/en/action_complex_lifts.tcl
r1112 r1137 30 30 } 31 31 32 bMotion_abstract_register "nolift_channel_response" 33 bMotion_abstract_batchadd "nolift_channel_response" { 32 bMotion_abstract_register "nolift_channel_response" { 34 33 "hmmmph %SMILEY{sad}" 35 34 "OI! Don't do that" … … 39 38 } 40 39 41 bMotion_abstract_register "lift_channel_response" 42 bMotion_abstract_batchadd "lift_channel_response" { 40 bMotion_abstract_register "lift_channel_response" { 43 41 "Weeeeeeeeeeeeeeeeeeeee, do that again!" 44 42 "Ooo aren't we strong" -
trunk/plugins/en/action_complex_light.tcl
r936 r1137 16 16 bMotion_plugin_add_action_complex "light2" "^sets %botnicks (alight|on fire)" 100 bMotion_plugin_complex_action_light "en" 17 17 18 proc bMotion_plugin_complex_action_light { nick host handle channel text } { 18 proc bMotion_plugin_complex_action_light { nick host handle channel text } { 19 19 bMotionDoAction $channel $nick "%VAR{burns}" 20 20 bMotionGetUnLonely … … 23 23 } 24 24 25 bMotion_abstract_register "burns" 26 bMotion_abstract_batchadd "burns" { 25 bMotion_abstract_register "burns" { 27 26 "/burns%|%bot[50,¬VAR{extinguishes}]" 28 27 "*flames*%|%bot[50,¬VAR{extinguishes}]" … … 40 39 } 41 40 42 bMotion_abstract_register "extinguishes" 43 bMotion_abstract_batchadd "extinguishes" { 41 bMotion_abstract_register "extinguishes" { 44 42 "/puts %% out" 45 43 "/pours water on %%" -
trunk/plugins/en/action_complex_misc.tcl
r1136 r1137 14 14 bMotion_plugin_add_action_complex "freshens" "^freshens %botnicks" 100 bMotion_plugin_complex_action_freshen "en" 15 15 16 proc bMotion_plugin_complex_action_freshen { nick host handle channel text } { 16 proc bMotion_plugin_complex_action_freshen { nick host handle channel text } { 17 17 global botnicks 18 18 if [regexp -nocase "freshens ${botnicks}('s (.+))?" $text matches 1 2 what] { … … 42 42 bMotion_plugin_add_action_complex "fallsout" "^falls out with %botnicks" 100 bMotion_plugin_complex_action_fallsout "en" 43 43 44 proc bMotion_plugin_complex_action_fallsout { nick host handle channel text } { 44 proc bMotion_plugin_complex_action_fallsout { nick host handle channel text } { 45 45 if [bMotionIsFriend $nick] { 46 46 bMotionDoAction $channel $nick "%VAR{felloutfriend}" -
trunk/plugins/en/action_complex_rolls.tcl
r936 r1137 20 20 } 21 21 22 bMotion_abstract_register "rolls_channel_response" 23 bMotion_abstract_batchadd "rolls_channel_response" { 22 bMotion_abstract_register "rolls_channel_response" { 24 23 "keep them doggies rolling RAWHIDE" 25 24 "rolls a joint" -
trunk/plugins/en/action_complex_shows.tcl
r1074 r1137 88 88 # abstracts 89 89 90 bMotion_abstract_register "show_amazements" 91 bMotion_abstract_batchadd "show_amazements" { 90 bMotion_abstract_register "show_amazements" { 92 91 "amazement" 93 92 "astonishment" … … 98 97 } 99 98 100 bMotion_abstract_register "show_whoas" 101 bMotion_abstract_batchadd "show_whoas" { 99 bMotion_abstract_register "show_whoas" { 102 100 "whoa" 103 101 "wow" … … 108 106 } 109 107 110 bMotion_abstract_register "show_comparisons" 111 bMotion_abstract_batchadd "show_comparisons" { 108 bMotion_abstract_register "show_comparisons" { 112 109 "bigger" 113 110 "smaller" … … 128 125 } 129 126 130 bMotion_abstract_register "show_adjectives" 131 bMotion_abstract_batchadd "show_adjectives" { 127 bMotion_abstract_register "show_adjectives" { 132 128 "shiny" 133 129 "pretty" … … 139 135 } 140 136 141 bMotion_abstract_register "show_generic" 142 bMotion_abstract_batchadd "show_generic" { 137 bMotion_abstract_register "show_generic" { 143 138 "/gasps in %VAR{show_amazements}" 144 139 "%VAR{show_whoas}%colen" -
trunk/plugins/en/action_complex_smacks.tcl
r1136 r1137 33 33 } 34 34 35 bMotion_abstract_register "trouts" 36 bMotion_abstract_batchadd "trouts" { 35 bMotion_abstract_register "trouts" { 37 36 "/slaps %% back using a default menu command" 38 37 "%VAR{goAways}" … … 43 42 } 44 43 45 bMotion_abstract_register "slapped" 46 bMotion_abstract_batchadd "slapped" { 44 bMotion_abstract_register "slapped" { 47 45 "ow hey! that was my %VAR{counts} %VAR{bodypart} %VAR{unsmiles}" 48 46 "ow! that was my %VAR{counts} %VAR{bodypart} %VAR{unsmiles}" … … 64 62 } 65 63 66 bMotion_abstract_register "counts" 67 bMotion_abstract_batchadd "counts" { 64 bMotion_abstract_register "counts" { 68 65 "last" 69 66 "penultimate" -
trunk/plugins/en/action_complex_waves.tcl
r936 r1137 29 29 } 30 30 31 bMotion_abstract_register "waveTooMuch" 32 bMotion_abstract_batchadd "waveTooMuch" [list "What." "Are you practicing to be the Queen or something?" "..."] 31 bMotion_abstract_register "waveTooMuch" [list "What." "Are you practicing to be the Queen or something?" "..."] -
trunk/plugins/en/action_simple_squeeze.tcl
r936 r1137 14 14 bMotion_plugin_add_action_simple "squeeze" "^(squeezes|beeps|honks|knijpt( in)?) %botnicks" 100 "%VAR{honks}" "en" 15 15 16 bMotion_abstract_register "honks" 17 bMotion_abstract_batchadd "honks" { 16 bMotion_abstract_register "honks" { 18 17 "/honks" 19 18 "/beeps" -
trunk/plugins/en/complex_abbr.tcl
r936 r1137 41 41 bMotion_plugin_add_complex "abbr" "^!abbr" 100 bMotion_plugin_complex_abbr "en" 42 42 43 bMotion_abstract_register "abbr_nouns" 44 bMotion_abstract_batchadd "abbr_nouns" { 43 bMotion_abstract_register "abbr_nouns" { 45 44 "mullet" 46 45 "cheese" … … 53 52 } 54 53 55 bMotion_abstract_register "abbr_adj" 56 bMotion_abstract_batchadd "abbr_adj" { 54 bMotion_abstract_register "abbr_adj" { 57 55 "hot" "cold" "purple" "clean" "freezing" "thooper" "white" "starchy" "bavarian" "woolly" "blippy" "decent" "smart" "coloured" "flavoured" "norwegian" "swede" "brit" "dutchman" "american" "canadian" "german" 58 56 } 59 57 60 bMotion_abstract_register "abbr_verbs" 61 bMotion_abstract_batchadd "abbr_verbs" { 58 bMotion_abstract_register "abbr_verbs" { 62 59 "wielding" 63 60 "powered" … … 67 64 68 65 69 bMotion_abstract_register "abbr_adult_nouns_t" 70 bMotion_abstract_batchadd "abbr_adult_nouns_t" { 66 bMotion_abstract_register "abbr_adult_nouns_t" { 71 67 "sex" 72 68 "vibrator" … … 76 72 } 77 73 78 bMotion_abstract_register "abbr_adult_adj_t" 79 bMotion_abstract_batchadd "abbr_adult_adj_t" { 74 bMotion_abstract_register "abbr_adult_adj_t" { 80 75 "thexy" "horny" 81 76 "hot" "moist" "wet" "lubricated" 82 77 } 83 78 84 bMotion_abstract_register "abbr_adult_verbs_t" 85 bMotion_abstract_batchadd "abbr_adult_verbs_t" { 79 bMotion_abstract_register "abbr_adult_verbs_t" { 86 80 "licking" 87 81 "moaning" … … 90 84 91 85 #create the big lists :) 92 bMotion_abstract_register "abbr_adult_nouns" 93 bMotion_abstract_batchadd "abbr_adult_nouns" { 86 bMotion_abstract_register "abbr_adult_nouns" { 94 87 "%VAR{abbr_nouns}" 95 88 "%VAR{abbr_adult_nouns_t}" 96 89 } 97 90 98 bMotion_abstract_register "abbr_adult_verbs" 99 bMotion_abstract_batchadd "abbr_adult_verbs" { 91 bMotion_abstract_register "abbr_adult_verbs" { 100 92 "%VAR{abbr_verbs}" 101 93 "%VAR{abbr_adult_verbs_t}" 102 94 } 103 95 104 bMotion_abstract_register "abbr_adult_adj" 105 bMotion_abstract_batchadd "abbr_adult_adj" { 96 bMotion_abstract_register "abbr_adult_adj" { 106 97 "%VAR{abbr_adj}" 107 98 "%VAR{abbr_adult_adj_t}" -
trunk/plugins/en/complex_action_hands_dildo.tcl
r936 r1137 46 46 } 47 47 48 #play with it 48 #play with it 49 49 #TODO: Rationalise this! 50 50 if {$got(dildo,count) == 1} { … … 59 59 60 60 if {[bMotionGetGender $nick $host] == "male"} { 61 #-- hander is male 61 #-- hander is male 62 62 if [string match -nocase "*flute*" $item] { 63 63 bMotionDoAction $channel $item "%VAR{dildoFlutePlays}" $nick … … 129 129 return 0 130 130 } else { 131 bMotionDoAction $channel $nick "%VAR{dildoMaleMale}" $item 131 bMotionDoAction $channel $nick "%VAR{dildoMaleMale}" $item 132 132 #take turns 133 133 set useTimer 1 … … 149 149 set useTimer 1 150 150 set style "normal" 151 } 152 } 151 } 152 } 153 153 #male bot, female hander 154 154 bMotion_putloglev 1 * "bMotion: dildo (male) timer starting" -
trunk/plugins/en/complex_activate.tcl
r936 r1137 30 30 } 31 31 32 bMotion_abstract_register "activateses" 33 bMotion_abstract_batchadd "activateses" { 32 bMotion_abstract_register "activateses" { 34 33 "/increases power to %%" 35 34 "/brings %% online" -
trunk/plugins/en/complex_asl.tcl
r936 r1137 12 12 13 13 bMotion_plugin_add_complex "asl" {\ma/?s/?l\??\M} 100 bMotion_plugin_complex_asl "en" 14 14 15 15 proc bMotion_plugin_complex_asl { nick host handle channel text } { 16 16 if {[bMotionTalkingToMe $text] || [rand 2]} { -
trunk/plugins/en/complex_bhar.tcl
r936 r1137 20 20 bMotionDoAction $channel $nick "%VAR{arrs}" 21 21 return 1 22 } 22 } 23 23 } 24 24 25 bMotion_abstract_register "arrs" 26 bMotion_abstract_batchadd "arrs" { 25 bMotion_abstract_register "arrs" { 27 26 "bhar" 28 27 "boohar" -
trunk/plugins/en/complex_chomp.tcl
r936 r1137 13 13 bMotion_plugin_add_complex "chomp" "^%botnicks,?:? ?(please )?chomp" 100 bMotion_plugin_complex_chomp "en" 14 14 15 proc bMotion_plugin_complex_chomp { nick host handle channel text } { 15 proc bMotion_plugin_complex_chomp { nick host handle channel text } { 16 16 global botnicks 17 17 if [regexp -nocase "^$botnicks,?:? ?(please )?chomp (.+)" $text matches ming ming2 who] { -
trunk/plugins/en/complex_correct.tcl
r936 r1137 24 24 } 25 25 26 bMotion_abstract_register "shouldhaves" 27 bMotion_abstract_batchadd "shouldhaves" { 26 bMotion_abstract_register "shouldhaves" { 28 27 "\"%% have\" %VAR{smiles}" 29 28 "%% what?" -
trunk/plugins/en/complex_crap.tcl
r1094 r1137 1 1 # 2 2 # vim: fdm=indent fdn=1 3 #4 # Altered to new style bMotion_abstract_register/batchadd by Mark Sangster5 3 6 4 ############################################################################### … … 34 32 bMotion_abstract_add_filter "random_crap_main" "\$ruser" 35 33 36 bMotion_abstract_register "random_crap_adj" 37 bMotion_abstract_batchadd "random_crap_adj" { 34 bMotion_abstract_register "random_crap_adj" { 38 35 "lemon-flavoured" 39 36 "tasty" … … 42 39 "yummy" 43 40 } 44 45 bMotion_abstract_register "random_crap_type" 46 bMotion_abstract_batchadd "random_crap_type" { 41 42 bMotion_abstract_register "random_crap_type" { 47 43 "poop" 48 44 "crap" -
trunk/plugins/en/complex_eitheror.tcl
r936 r1137 44 44 } 45 45 46 bMotion_abstract_register "eitherors" 47 bMotion_abstract_batchadd "eitherors" [list "%%: %2" "/thinks%|%%: %2" "/ponders%|%%: %2" "/flips a coin%|%%: %2" "%%: %2%|Or you could just use a placebo" "%%: none of the above" "%%: actually, i think it's %VAR{sillyThings}"] 46 bMotion_abstract_register "eitherors" [list "%%: %2" "/thinks%|%%: %2" "/ponders%|%%: %2" "/flips a coin%|%%: %2" "%%: %2%|Or you could just use a placebo" "%%: none of the above" "%%: actually, i think it's %VAR{sillyThings}"] -
trunk/plugins/en/complex_fact.tcl
r1044 r1137 30 30 return 0 31 31 } 32 32 33 33 if {[string range $text end end] == "?"} { return 0 } 34 34 if [regexp -nocase {\m([^ !"]+)[!" ]+(is|was|==?|am) ?([a-z0-9 '_/-]+)} $text matches item blah fact] { -
trunk/plugins/en/complex_fry.tcl
r1118 r1137 33 33 set response "%VAR{technically_worst}" 34 34 } 35 bMotionDoAction $channel $thing $response 35 bMotionDoAction $channel $thing $response 36 36 return 1 37 37 } -
trunk/plugins/en/complex_fuckoff.tcl
r961 r1137 34 34 } 35 35 36 bMotion_abstract_register "fuckYous" 37 bMotion_abstract_batchadd "fuckYous" [list "stfu" "shut up, you %VAR{PROM}" "eh fuck you buddy" "lalala not listening" "suck my balls you %VAR{dNouns}-%VAR{dVerbs}ing %VAR{prom_first}-%VAR{prom_second}" "yeah, whatever *yawn*" "shut it" "leave me alone" "oh go poo a bottom"] 36 bMotion_abstract_register "fuckYous" [list "stfu" "shut up, you %VAR{PROM}" "eh fuck you buddy" "lalala not listening" "suck my balls you %VAR{dNouns}-%VAR{dVerbs}ing %VAR{prom_first}-%VAR{prom_second}" "yeah, whatever *yawn*" "shut it" "leave me alone" "oh go poo a bottom"] -
trunk/plugins/en/complex_getfact.tcl
r936 r1137 1 # 1 # 2 2 # vim: fdm=indent fdn=1 3 3 … … 6 6 # Copyright (C) Kevin Smith 2003 7 7 # 8 # This program is covered by the GPL, please refer the to LICENCE file in the 9 # distribution; further information can be found in the headers of the scripts 10 # in the modules directory. 8 # This program is covered by the GPL, please refer the to LICENCE file in the 9 # distribution; further information can be found in the headers of the scripts 10 # in the modules directory. 11 11 ############################################################################### 12 12 … … 15 15 # 16 16 # Usage: 17 # !fact 18 # botname what do you know 17 # !fact 18 # botname what do you know 19 19 # botname tell me something new 20 20 21 21 bMotion_plugin_add_complex "getfact1" "^!fact" 100 bMotion_plugin_complex_get_fact "en" 22 bMotion_plugin_add_complex "getfact2" "^%botnicks,?:? what do you know" 100 bMotion_plugin_complex_get_fact "en" 22 bMotion_plugin_add_complex "getfact2" "^%botnicks,?:? what do you know" 100 bMotion_plugin_complex_get_fact "en" 23 23 bMotion_plugin_add_complex "getfact3" "^%botnicks,?:? tell me something new" 100 bMotion_plugin_complex_get_fact "en" 24 24 … … 31 31 set i [lindex $items [rand [llength $items]]] 32 32 if {[regexp "what,(.+)" $i matches item]} { 33 #set item 33 #set item 34 34 } 35 35 #set property $bMotionFacts(what,$item) … … 42 42 } 43 43 44 bMotion_abstract_register "get_fact_intros" 45 bMotion_abstract_batchadd "get_fact_intros" { 44 bMotion_abstract_register "get_fact_intros" { 46 45 "I think I heard that" 47 46 "last time I knew, " -
trunk/plugins/en/complex_gollum.tcl
r1092 r1137 16 16 proc bMotion_plugin_complex_gollum { nick host handle channel text } { 17 17 bMotion_putloglev 2 * "bMotion: run complex_gollum," 18 if {![bMotion_interbot_me_next $channel]} { 18 if {![bMotion_interbot_me_next $channel]} { 19 19 bMotion_putloglev 4 * "bMotion: would have run gollum, but not my turn" 20 return 0 20 return 0 21 21 } 22 22 bMotion_putloglev 4 * "bMotion: my turn when running complex_gollum" 23 23 bMotionDoAction $channel [bMotionGetRealName $nick $host] "%VAR{gollums}" 24 return 1 24 return 1 25 25 #this allows us to still respond to questions, right? 26 26 } 27 27 28 bMotion_abstract_register "gollums" 29 bMotion_abstract_batchadd "gollums" [list "Foolishness!" "Stupid fat hobbit!" "We hates the fat hobbit! Him and his pots and pans and ropes." "Thieves. Thieves all!" "Stupid hobbit. Talking to %himherself like that. Not answering %himherself." "Yes. Sleep sweet sleep with our precious!" "Filthy little thief playing with our precious!" "If only fat hobbit would go away for a moment, we could go to master and take the precious away from him." "No! Must not take away our precious!" "We miss the song of the precious. We miss it. We wants it back!" "Everyone wants my precious. It's not fair! It's ours!" "Shiny, shiny." "pet it, yes. stroke it. mmm, nice, yes.%|nice precious, yes." ] 28 bMotion_abstract_register "gollums" [list "Foolishness!" "Stupid fat hobbit!" "We hates the fat hobbit! Him and his pots and pans and ropes." "Thieves. Thieves all!" "Stupid hobbit. Talking to %himherself like that. Not answering %himherself." "Yes. Sleep sweet sleep with our precious!" "Filthy little thief playing with our precious!" "If only fat hobbit would go away for a moment, we could go to master and take the precious away from him." "No! Must not take away our precious!" "We miss the song of the precious. We miss it. We wants it back!" "Everyone wants my precious. It's not fair! It's ours!" "Shiny, shiny." "pet it, yes. stroke it. mmm, nice, yes.%|nice precious, yes." ] -
trunk/plugins/en/complex_hand.tcl
r936 r1137 31 31 if { [string match -nocase "me" $who] } { 32 32 bMotion_plugin_complex_hug_do $channel $nick $host 33 } else { 33 } else { 34 34 bMotion_plugin_complex_hug_do $channel $who $host 35 } 35 } 36 36 } else { 37 37 bMotionDoAction $channel $nick "%%: I'm sorry, I don't know how to hug %VAR{unsmiles}" … … 45 45 } else { 46 46 set whom [bMotionGetRealName $who] 47 } 47 } 48 48 49 49 #your -> his/her … … 51 51 set item "[getHisHers] [string range $item 5 end]" 52 52 } 53 53 54 54 if [string match -nocase "something*" $item] { 55 55 set item "%VAR{sillyThings}" 56 56 } 57 57 58 58 bMotion_putloglev d * "bMotion: Handed $whom $item on $channel (from $nick)" 59 59 bMotionDoAction $channel $nick "/gives $whom $item" -
trunk/plugins/en/complex_hello.tcl
r1109 r1137 19 19 set exclaim "" 20 20 regexp -nocase "^${botnicks}(!+|\[!\"£\$%^&*()#\]{3,})" $text bling pop exclaim 21 global bMotionInfo 21 global bMotionInfo 22 22 23 23 set lastGreeted [bMotion_plugins_settings_get "complex:hello" "lastGreeted" $channel ""] … … 65 65 } 66 66 67 bMotion_abstract_register "hello_familiars" 68 bMotion_abstract_batchadd "hello_familiars" { 67 bMotion_abstract_register "hello_familiars" { 69 68 "%%%colen" 70 69 "%%!" -
trunk/plugins/en/complex_invader.tcl
r1084 r1137 82 82 83 83 # random zimlike phrases 84 bMotion_abstract_register "randomZimness" 85 bMotion_abstract_batchadd "randomZimness" { 84 bMotion_abstract_register "randomZimness" { 86 85 "yes, my tallest!" 87 86 "how can you have an operation impending doom 2 without me?" … … 182 181 "people of earth! prepare to meet the mighty foot of my planet" 183 182 "well... yes... i'm an unstoppable death machine" 184 }185 186 bMotion_abstract_batchadd "randomZimness" {187 183 "i congratulate you in recognising my superiority and choosing me to be your love pig!" 188 184 "your magical love adventure begins now" … … 225 221 226 222 # random girlike phrases 227 bMotion_abstract_register "randomGirness" 228 bMotion_abstract_batchadd "randomGirness" { 223 bMotion_abstract_register "randomGirness" { 229 224 "i don't know... weee hoo hoo hoo!" 230 225 "I'm gonna sing the doom song now... dooom doom doom" … … 291 286 292 287 # random "duty" responses... inevitable Gir 293 bMotion_abstract_register "randomDootie" 294 bMotion_abstract_batchadd "randomDootie" { 288 bMotion_abstract_register "randomDootie" { 295 289 "dootie %VAR{smiles}" 296 290 "doootie dootie dooootie dootie" … … 304 298 305 299 # random zim/gir name change responses 306 bMotion_abstract_register "randomZimNameChange" 307 bMotion_abstract_batchadd "randomZimNameChange" { 300 bMotion_abstract_register "randomZimNameChange" { 308 301 "master, where did you go? I can't see you" 309 302 "master?" … … 326 319 # nick change response 327 320 bMotion_plugin_add_irc_event "invader(nick)" "nick" ".*" 5 "bMotion_plugin_complex_invader_nick" "en" 328 -
trunk/plugins/en/complex_joker.tcl
r1078 r1137 17 17 # random joke callback 18 18 proc bMotion_plugin_complex_invoke_joke { nick host handle channel text } { 19 global bMotion_abstract_contents jokeInfo 19 global bMotion_abstract_contents jokeInfo 20 20 21 21 # I'll have no part in this if i'm telling a joke already … … 111 111 bMotionDoAction $channel $nick "%DELAY{10}%|$answer" 112 112 113 return 1 113 return 1 114 114 } 115 115 -
trunk/plugins/en/complex_knockknock.tcl
r936 r1137 61 61 } 62 62 } 63 bMotion_abstract_register "knock1" 64 bMotion_abstract_batchadd "knock1" [list "%%: Who's there?" "who's there?"] 63 bMotion_abstract_register "knock1" [list "%%: Who's there?" "who's there?"] 65 64 66 bMotion_abstract_register "knock2" 67 bMotion_abstract_batchadd "knock2" [list "%% who?"] 65 bMotion_abstract_register "knock2" [list "%% who?"] 68 66 69 bMotion_abstract_register "knock3" 70 bMotion_abstract_batchadd "knock3" [list "%REPEAT{3:10:ha}" "%REPEAT{3:10:ha}%|I don't get it." "..." "?" "lol" "what" "%VAR{smiles}"] 67 bMotion_abstract_register "knock3" [list "%REPEAT{3:10:ha}" "%REPEAT{3:10:ha}%|I don't get it." "..." "?" "lol" "what" "%VAR{smiles}"] 71 68 -
trunk/plugins/en/complex_les.tcl
r936 r1137 12 12 bMotion_plugin_add_complex "les" "^les .+" 40 bMotion_plugin_complex_les "en" 13 13 14 proc bMotion_plugin_complex_les { nick host handle channel text } { 14 proc bMotion_plugin_complex_les { nick host handle channel text } { 15 15 if {![bMotion_interbot_me_next $channel]} { 16 16 return 0 -
trunk/plugins/en/complex_love.tcl
r1112 r1137 28 28 } 29 29 30 driftFriendship $nick 8 30 driftFriendship $nick 8 31 31 # people of the wrong gender get the platonic treatment 32 32 if {![bMotionLike $nick $host]} { -
trunk/plugins/en/complex_nazi.tcl
r1135 r1137 76 76 77 77 78 bMotion_abstract_register "nazi1" 79 bMotion_abstract_batchadd "nazi1" [list "%%: \"you're\"" "their what?" "s/your/you're/"] 78 bMotion_abstract_register "nazi1" [list "%%: \"you're\"" "their what?" "s/your/you're/"] 80 79 81 bMotion_abstract_register "nazi2" 82 bMotion_abstract_batchadd "nazi2" [list "Invalid regular expression." "You suck at the regular expression syntax." "/detects invalid regexp use" "%%: +/" "s/you/suck/"] 80 bMotion_abstract_register "nazi2" [list "Invalid regular expression." "You suck at the regular expression syntax." "/detects invalid regexp use" "%%: +/" "s/you/suck/"] 83 81 84 82 -
trunk/plugins/en/complex_nightmare.tcl
r955 r1137 1145 1145 bMotion_abstract_add "goodnights" "I hope you have a dream about %VAR{nicemare} %VAR{smiles}" 1146 1146 1147 bMotion_abstract_add "randomStuff" "/daydreams about %VAR{nicemare} %VAR{smiles}" 1147 bMotion_abstract_add "randomStuff" "/daydreams about %VAR{nicemare} %VAR{smiles}" 1148 1148 bMotion_abstract_add "randomStuff" "aw%REPEAT{2:8:w}... look! It's %VAR{nicemare}%|%VAR{smiles}" 1149 1149 -
trunk/plugins/en/complex_pack.tcl
r936 r1137 28 28 return 0 29 29 } 30 -
trunk/plugins/en/complex_pants.tcl
r936 r1137 32 32 } 33 33 34 bMotion_abstract_register "hateitem" 35 bMotion_abstract_batchadd "hateitem" { 34 bMotion_abstract_register "hateitem" { 36 35 "so, i hate your %% too" 37 36 "yeah me too, %ruser gave them to me and i've never liked them" -
trunk/plugins/en/complex_phonetic.tcl
r936 r1137 81 81 } elseif { $letter == " " } { 82 82 set line "$line " 83 } 83 } 84 84 } 85 85 … … 94 94 } 95 95 96 return $line 96 return $line 97 97 } 98 98 # end bMotion_plugin_complex_phonetic_xform … … 124 124 # bMotion_plugin_output_asshat procedure 125 125 # make the phonetic asshat plugin a general output filter 126 proc bMotion_plugin_output_asshat { channel text } { 126 proc bMotion_plugin_output_asshat { channel text } { 127 127 return [ bMotion_plugin_complex_phonetic_xform $text 1 ] 128 128 } … … 131 131 # bMotion_plugin_output_phonetic procedure 132 132 # make the phonetic plugin a general output filter 133 proc bMotion_plugin_output_phonetic { channel text } { 133 proc bMotion_plugin_output_phonetic { channel text } { 134 134 return [ bMotion_plugin_complex_phonetic_xform $text 0 ] 135 135 } -
trunk/plugins/en/complex_pokemon.tcl
r1112 r1137 82 82 checkPokemon "Damoachu" $channel 83 83 bMotionDoAction $channel $nick "Damoa...chu!" 84 if {$who == ""} { 84 if {$who == ""} { 85 85 bMotionDoAction $channel $nick "*monkey* *monkey* *monkey* *squirtle*" 86 86 } else { -
trunk/plugins/en/complex_questions.tcl
r1123 r1137 460 460 return 1 461 461 } 462 bMotionDoAction $channel "" "%VAR{cracker_your_hats_current}" 462 bMotionDoAction $channel "" "%VAR{cracker_your_hats_current}" 463 463 return 1 464 464 } … … 478 478 return 1 479 479 } 480 bMotionDoAction $channel $handle "%VAR{cracker_handle_hats_current}" 480 bMotionDoAction $channel $handle "%VAR{cracker_handle_hats_current}" 481 481 return 1 482 482 … … 586 586 ## end sid's functions 587 587 588 bMotion_abstract_register "question_what_fact_wrapper" 589 bMotion_abstract_batchadd "question_what_fact_wrapper" { 588 bMotion_abstract_register "question_what_fact_wrapper" { 590 589 "%%" 591 590 "%% i guess" … … 595 594 } 596 595 597 bMotion_abstract_register "question_want_reply_wrapper" 598 bMotion_abstract_batchadd "question_want_reply_wrapper" { 596 bMotion_abstract_register "question_want_reply_wrapper" { 599 597 "Why? I've got %VAR{sillyThings}!" 600 598 "With %VAR{sillyThings} I have no need for anything else." … … 612 610 } 613 611 614 bMotion_abstract_register "question_colour_wrapper" 615 bMotion_abstract_batchadd "question_colour_wrapper" { 612 bMotion_abstract_register "question_colour_wrapper" { 616 613 "%VAR{colours}" 617 614 "hmm.. %VAR{colours}, I think" -
trunk/plugins/en/complex_readings.tcl
r936 r1137 2 2 # 3 3 # vim: fdm=indent fdn=1 4 4 5 5 ############################################################################### 6 6 # This is a bMotion plugin … … 27 27 } 28 28 29 bMotion_abstract_register "readings_scan" 30 bMotion_abstract_batchadd "readings_scan" { 29 bMotion_abstract_register "readings_scan" { 31 30 "/scans %%" 32 31 "/analyses %%" … … 36 35 } 37 36 38 bMotion_abstract_register "readings_result" 39 bMotion_abstract_batchadd "readings_result" { 37 bMotion_abstract_register "readings_result" { 40 38 "%%: That reads as %NUMBER{10000} %VAR{units}." 41 39 "%SETTING{complex:readings:reading:reading:_} levels of %NUMBER{101} percent detected." -
trunk/plugins/en/complex_replicate.tcl
r999 r1137 21 21 22 22 #make it so 23 if [regexp -nocase "^it so$" $details] { 23 if [regexp -nocase "^it so$" $details] { 24 24 bMotionDoAction $channel $nick "/makes it so for %%" 25 25 bMotion_plugins_settings_set "system" "lastdonefor" $channel "" $nick -
trunk/plugins/en/complex_scrap.tcl
r1135 r1137 1 # 1 # 2 2 # 3 3 # vim: fdm=indent fdn=1 … … 37 37 } 38 38 39 # outputtype = 0 <-- regular output 40 # outputtype = 1 <-- silly output 41 # outputtype = 2 <-- adult output 42 # outputtype = 3 <-- silly adult output 39 # outputtype = 0 <-- regular output 40 # outputtype = 1 <-- silly output 41 # outputtype = 2 <-- adult output 42 # outputtype = 3 <-- silly adult output 43 43 44 44 # quality … … 129 129 } 130 130 131 bMotion_abstract_register "scrap_qualities" 132 bMotion_abstract_batchadd "scrap_qualities" { 131 bMotion_abstract_register "scrap_qualities" { 133 132 "broken" 134 133 "cheap" … … 162 161 } 163 162 164 bMotion_abstract_register "scrap_adjectives" 165 bMotion_abstract_batchadd "scrap_adjectives" { 163 bMotion_abstract_register "scrap_adjectives" { 166 164 "broken down" 167 165 "greasy" … … 218 216 bMotion_abstract_add_filter "scrap_adjectives" "mamoth" 219 217 220 bMotion_abstract_register "scrap_power_adjectives" 221 bMotion_abstract_batchadd "scrap_power_adjectives" { 218 bMotion_abstract_register "scrap_power_adjectives" { 222 219 "super powered" 223 220 "steam powered" … … 244 241 } 245 242 246 bMotion_abstract_register "scrap_construction" 247 bMotion_abstract_batchadd "scrap_construction" { 243 bMotion_abstract_register "scrap_construction" { 248 244 "barge" 249 245 "submarine" … … 304 300 } 305 301 306 bMotion_abstract_register "scrap_silly_qualities_t" 307 bMotion_abstract_batchadd "scrap_silly_qualities_t" { 302 bMotion_abstract_register "scrap_silly_qualities_t" { 308 303 "weird" 309 304 "strange" … … 318 313 } 319 314 320 bMotion_abstract_register "scrap_silly_adjectives_t" 321 bMotion_abstract_batchadd "scrap_silly_adjectives_t" { 315 bMotion_abstract_register "scrap_silly_adjectives_t" { 322 316 "spotty" 323 317 "funny" … … 342 336 } 343 337 344 bMotion_abstract_register "scrap_silly_power_adjectives_t" 345 bMotion_abstract_batchadd "scrap_silly_power_adjectives_t" { 338 bMotion_abstract_register "scrap_silly_power_adjectives_t" { 346 339 "lunar powered" 347 340 "psychicly charged" … … 354 347 } 355 348 356 bMotion_abstract_register "scrap_silly_construction_t" 357 bMotion_abstract_batchadd "scrap_silly_construction_t" { 349 bMotion_abstract_register "scrap_silly_construction_t" { 358 350 "blamanche" 359 351 "fork" … … 408 400 bMotion_abstract_add_filter "scrap_silly_construction_t" "coktail machine" 409 401 410 bMotion_abstract_register "scrap_adult_qualities_t" 411 bMotion_abstract_batchadd "scrap_adult_qualities_t" { 402 bMotion_abstract_register "scrap_adult_qualities_t" { 412 403 "well formed" 413 404 "well rounded" 414 405 "slinky" 415 406 "slender" 416 "slim" 407 "slim" 417 408 "voluptuous" 418 409 "bound" … … 421 412 } 422 413 423 bMotion_abstract_register "scrap_adult_adjectives_t" 424 bMotion_abstract_batchadd "scrap_adult_adjectives_t" { 414 bMotion_abstract_register "scrap_adult_adjectives_t" { 425 415 "norty" 426 416 "vary norty" … … 449 439 "shagging" 450 440 "fucking" 451 "screwing" 441 "screwing" 452 442 "bulging" 453 443 "tight" … … 481 471 bMotion_abstract_add_filter "scrap_adult_adjectives_t" "girating" 482 472 483 bMotion_abstract_register "scrap_adult_power_adjectives_t" 484 bMotion_abstract_batchadd "scrap_adult_power_adjectives_t" { 473 bMotion_abstract_register "scrap_adult_power_adjectives_t" { 485 474 "jizz powered" 486 475 "love juice powered" … … 491 480 } 492 481 493 bMotion_abstract_register "scrap_adult_construction_t" 494 bMotion_abstract_batchadd "scrap_adult_construction_t" { 482 bMotion_abstract_register "scrap_adult_construction_t" { 495 483 "dildo" 496 484 "love doll" … … 513 501 "tongue" 514 502 "lip" 515 "mouth" 503 "mouth" 516 504 "teenager" 517 505 "prostitute" … … 520 508 "wench" 521 509 "bitch" 522 "mistress" 510 "mistress" 523 511 "box" 524 512 "dominatrix" … … 543 531 544 532 #create the big lists :) 545 bMotion_abstract_register "scrap_silly_qualities" 546 bMotion_abstract_batchadd "scrap_silly_qualities" { 533 bMotion_abstract_register "scrap_silly_qualities" { 547 534 "%VAR{scrap_qualities}" 548 535 "%VAR{scrap_silly_qualities_t}" 549 536 } 550 bMotion_abstract_register "scrap_silly_power_adjectives" 551 bMotion_abstract_batchadd "scrap_silly_power_adjectives" { 537 bMotion_abstract_register "scrap_silly_power_adjectives" { 552 538 "%VAR{scrap_power_adjectives}" 553 539 "%VAR{scrap_silly_power_adjectives_t}" 554 540 } 555 bMotion_abstract_register "scrap_silly_adjectives" 556 bMotion_abstract_batchadd "scrap_silly_adjectives" { 541 bMotion_abstract_register "scrap_silly_adjectives" { 557 542 "%VAR{scrap_adjectives}" 558 543 "%VAR{scrap_silly_adjectives_t}" 559 544 } 560 bMotion_abstract_register "scrap_silly_construction" 561 bMotion_abstract_batchadd "scrap_silly_construction" { 545 bMotion_abstract_register "scrap_silly_construction" { 562 546 "%VAR{scrap_construction}" 563 547 "%VAR{scrap_silly_construction_t}" 564 548 } 565 549 566 bMotion_abstract_register "scrap_adult_qualities" 567 bMotion_abstract_batchadd "scrap_adult_qualities" { 550 bMotion_abstract_register "scrap_adult_qualities" { 568 551 "%VAR{scrap_qualities}" 569 552 "%VAR{scrap_adult_qualities_t}" 570 553 } 571 bMotion_abstract_register "scrap_adult_power_adjectives" 572 bMotion_abstract_batchadd "scrap_adult_power_adjectives" { 554 bMotion_abstract_register "scrap_adult_power_adjectives" { 573 555 "%VAR{scrap_power_adjectives}" 574 556 "%VAR{scrap_adult_power_adjectives_t}" 575 557 } 576 bMotion_abstract_register "scrap_adult_adjectives" 577 bMotion_abstract_batchadd "scrap_adult_adjectives" { 558 bMotion_abstract_register "scrap_adult_adjectives" { 578 559 "%VAR{scrap_adjectives}" 579 560 "%VAR{scrap_adult_adjectives_t}" 580 561 } 581 bMotion_abstract_register "scrap_adult_construction" 582 bMotion_abstract_batchadd "scrap_adult_construction" { 562 bMotion_abstract_register "scrap_adult_construction" { 583 563 "%VAR{scrap_construction}" 584 564 "%VAR{scrap_adult_construction_t}" 585 565 } 586 566 587 bMotion_abstract_register "scrap_silly_adult_qualities" 588 bMotion_abstract_batchadd "scrap_silly_adult_qualities" { 567 bMotion_abstract_register "scrap_silly_adult_qualities" { 589 568 "%VAR{scrap_qualities}" 590 569 "%VAR{scrap_silly_qualities_t}" 591 570 } 592 bMotion_abstract_register "scrap_silly_adult_power_adjectives" 593 bMotion_abstract_batchadd "scrap_silly_adult_power_adjectives" { 571 bMotion_abstract_register "scrap_silly_adult_power_adjectives" { 594 572 "%VAR{scrap_power_adjectives}" 595 573 "%VAR{scrap_silly_power_adjectives_t}" 596 574 } 597 bMotion_abstract_register "scrap_silly_adult_adjectives" 598 bMotion_abstract_batchadd "scrap_silly_adult_adjectives" { 575 bMotion_abstract_register "scrap_silly_adult_adjectives" { 599 576 "%VAR{scrap_adjectives}" 600 577 "%VAR{scrap_silly_adjectives_t}" 601 578 } 602 bMotion_abstract_register "scrap_silly_adult_construction" 603 bMotion_abstract_batchadd "scrap_silly_adult_construction" { 579 bMotion_abstract_register "scrap_silly_adult_construction" { 604 580 "%VAR{scrap_construction}" 605 581 "%VAR{scrap_silly_construction_t}" … … 607 583 608 584 #duplicate for second adjectives 609 bMotion_abstract_register "scrap_silly_adjectives2" 610 bMotion_abstract_batchadd "scrap_silly_adjectives2" { 585 bMotion_abstract_register "scrap_silly_adjectives2" { 611 586 "%VAR{scrap_silly_adjectives}" 612 587 } 613 bMotion_abstract_register "scrap_adult_adjectives2" 614 bMotion_abstract_batchadd "scrap_adult_adjectives2" { 588 bMotion_abstract_register "scrap_adult_adjectives2" { 615 589 "%VAR{scrap_adult_adjectives}" 616 590 } 617 bMotion_abstract_register "scrap_silly_adult_adjectives2" 618 bMotion_abstract_batchadd "scrap_silly_adult_adjectives2" { 591 bMotion_abstract_register "scrap_silly_adult_adjectives2" { 619 592 "%VAR{scrap_silly_adult_adjectives}" 620 593 } 621 bMotion_abstract_register "scrap_adjectives2" 622 bMotion_abstract_batchadd "scrap_adjectives2" { 594 bMotion_abstract_register "scrap_adjectives2" { 623 595 "%VAR{scrap_adjectives}" 624 596 } -
trunk/plugins/en/complex_sex.tcl
r936 r1137 17 17 proc bMotion_plugin_complex_sex_go_down_on { nick host handle channel text } { 18 18 global botnicks 19 if [regexp -nocase "${botnicks}:?,? (please)?go down on (.+)" $text ming ming1 ming2 details] { 20 bMotionGoDownOn $channel $details $nick 19 if [regexp -nocase "${botnicks}:?,? (please)?go down on (.+)" $text ming ming1 ming2 details] { 20 bMotionGoDownOn $channel $details $nick 21 21 return 1 22 22 } … … 34 34 35 35 proc bMotionGoDownOn {channel nick forNick} { 36 global mood botnick 36 global mood botnick 37 37 regsub {^([^ ]+)( .+)?} $nick {\1} nick 38 38 bMotion_putloglev d * "bMotion: Was asked to go down on '$nick' in $channel by $forNick" 39 if {[regexp -nocase "(himself|herself|your?self)" $nick] || [isbotnick $nick]} { 39 if {[regexp -nocase "(himself|herself|your?self)" $nick] || [isbotnick $nick]} { 40 40 bMotionDoAction $channel "" "No. (ERR_EXCESS_RIBS)" 41 41 return 0 -
trunk/plugins/en/complex_snap.tcl
r936 r1137 20 20 21 21 set ctime [clock seconds] 22 22 23 23 if { 24 24 ($text == [bMotion_plugins_settings_get "complex:snap" $channel "" "text"]) && -
trunk/plugins/en/complex_sosyour.tcl
r979 r1137 33 33 } 34 34 35 bMotion_abstract_register "sosyours" 36 bMotion_abstract_batchadd "sosyours" [list "so's your face" "you're %2"] 35 bMotion_abstract_register "sosyours" [list "so's your face" "you're %2"] 37 36 -
trunk/plugins/en/complex_spoonerism.tcl
r1136 r1137 95 95 96 96 97 bMotion_abstract_register "spoonerisms" 98 bMotion_abstract_batchadd "spoonerisms" [list "%% ... more like %2, am i rite?" "%% ... more like %2, am i right?" "%%? More like %2, am I correct?" "/. o O (%2)"] 97 bMotion_abstract_register "spoonerisms" [list "%% ... more like %2, am i rite?" "%% ... more like %2, am i right?" "%%? More like %2, am I correct?" "/. o O (%2)"] 99 98 100 99 bMotion_abstract_register "xhery_male" [list "I'd %% her %2"] -
trunk/plugins/en/complex_sport.tcl
r1112 r1137 25 25 } 26 26 27 bMotion_abstract_register "sport_superadjectives" 28 bMotion_abstract_batchadd "sport_superadjectives" { 27 bMotion_abstract_register "sport_superadjectives" { 29 28 "extreme" 30 29 "super" … … 65 64 } 66 65 67 bMotion_abstract_register "sport_adjectives" 68 bMotion_abstract_batchadd "sport_adjectives" { 66 bMotion_abstract_register "sport_adjectives" { 69 67 "downhill" 70 68 "uphill" … … 102 100 } 103 101 104 bMotion_abstract_register "sport_sports" 105 bMotion_abstract_batchadd "sport_sports" { 102 bMotion_abstract_register "sport_sports" { 106 103 "archery" 107 104 "athletics" … … 191 188 } 192 189 193 bMotion_abstract_register "sport_adult_superadjectives_t" 194 bMotion_abstract_batchadd "sport_adult_superadjectives_t" { 190 bMotion_abstract_register "sport_adult_superadjectives_t" { 195 191 "nude" 196 192 "horny" … … 201 197 } 202 198 203 bMotion_abstract_register "sport_adult_adjectives_t" 204 bMotion_abstract_batchadd "sport_adult_adjectives_t" { 199 bMotion_abstract_register "sport_adult_adjectives_t" { 205 200 "bent" 206 201 "%ruser" … … 219 214 } 220 215 221 bMotion_abstract_register "sport_adult_sports_t" 222 bMotion_abstract_batchadd "sport_adult_sports_t" { 216 bMotion_abstract_register "sport_adult_sports_t" { 223 217 "chicken fancying" 224 218 "vomiting" … … 236 230 237 231 #create the big lists :) 238 bMotion_abstract_register "sport_adult_superadjectives" 239 bMotion_abstract_batchadd "sport_adult_superadjectives" { 232 bMotion_abstract_register "sport_adult_superadjectives" { 240 233 "%VAR{sport_adjectives}" 241 234 "%VAR{sport_adult_superadjectives_t}" 242 235 "%VAR{scrap_adult_adjectives_t}" 243 236 } 244 bMotion_abstract_register "sport_adult_adjectives" 245 bMotion_abstract_batchadd "sport_adult_adjectives" { 237 bMotion_abstract_register "sport_adult_adjectives" { 246 238 "%VAR{sport_adjectives}" 247 239 "%VAR{sport_adult_adjectives_t}" 248 240 "%VAR{scrap_adult_construction_t}" 249 241 } 250 bMotion_abstract_register "sport_adult_sports" 251 bMotion_abstract_batchadd "sport_adult_sports" { 242 bMotion_abstract_register "sport_adult_sports" { 252 243 "%VAR{sport_sports}" 253 244 "%VAR{sport_adult_sports_t}" -
trunk/plugins/en/complex_summon.tcl
r1121 r1137 63 63 set msg [bMotionDoInterpolation "%VAR{summon_privmsg_response}" $nick ""] 64 64 # replacements (TODO: may not be needed after doInterpolation) 65 regsub "%channel" $msg $channel msg 65 regsub "%channel" $msg $channel msg 66 66 regsub "%%" $msg $nick msg 67 67 # notify … … 70 70 return 1 71 71 } 72 } 72 } 73 73 bMotion_putloglev d * "bMotion: (summon) $nick doesn't know what they're doing" 74 74 # poke fun at the idiot 75 75 bMotionDoAction $channel $nick "%VAR{summon_channel_idiot}" 76 return 1 76 return 1 77 77 } 78 78 … … 80 80 bMotion_plugin_add_complex "summon" "^!summon" 100 "bMotion_plugin_complex_summon" "en" 81 81 82 bMotion_abstract_register "summon_channel_response_notthere" 83 bMotion_abstract_batchadd "summon_channel_response_notthere" { 82 bMotion_abstract_register "summon_channel_response_notthere" { 84 83 "yoooo hooooo! %%!" 85 84 "hello there, %%?" … … 91 90 } 92 91 93 bMotion_abstract_register "summon_channel_response" 94 bMotion_abstract_batchadd "summon_channel_response" { 92 bMotion_abstract_register "summon_channel_response" { 95 93 "/prods at %% with %VAR{sillyThings}" 96 94 "through my awesome powers of telepathy, I shall summon %%!!" … … 103 101 bMotion_abstract_add_filter "summon_channel_response" "%noun" 104 102 105 bMotion_abstract_register "summon_privmsg_response" 106 bMotion_abstract_batchadd "summon_privmsg_response" { 103 bMotion_abstract_register "summon_privmsg_response" { 107 104 "FYI: %% was looking for you on %channel" 108 105 "just so you know %% was asking about you on %channel" … … 114 111 bMotion_abstract_add_filter "summon_privmsg_response" "%chan(?!nel)" 115 112 116 bMotion_abstract_register "summon_channel_idiot" 117 bMotion_abstract_batchadd "summon_channel_idiot" { 113 bMotion_abstract_register "summon_channel_idiot" { 118 114 "ANNOUNCEMENT: %% is an idiot. That is all." 119 115 "Pay no attention to %%, the village idiot." … … 127 123 } 128 124 129 bMotion_abstract_register "summon_bot" 130 bMotion_abstract_batchadd "summon_bot" { 125 bMotion_abstract_register "summon_bot" { 131 126 "oh! here i am!" 132 127 "sup" -
trunk/plugins/en/complex_supermarkets.tcl
r1108 r1137 14 14 15 15 proc bMotion_plugin_complex_supermarket { nick host handle channel text } { 16 if {![bMotion_interbot_me_next $channel]} { 17 return 1 16 if {![bMotion_interbot_me_next $channel]} { 17 return 1 18 18 } 19 19 -
trunk/plugins/en/complex_taunt.tcl
r936 r1137 49 49 50 50 ### and our abstracts... 51 bMotion_abstract_register "randomTauntPrefixes" 52 bMotion_abstract_batchadd "randomTauntPrefixes" { 51 bMotion_abstract_register "randomTauntPrefixes" { 53 52 "idiot" 54 53 "stupid" … … 76 75 } 77 76 78 bMotion_abstract_register "randomTauntSuffixes" 79 bMotion_abstract_batchadd "randomTauntSuffixes" { 77 bMotion_abstract_register "randomTauntSuffixes" { 80 78 "fool" 81 79 "idiot" -
trunk/plugins/en/complex_techsupport.tcl
r936 r1137 24 24 # abstracts 25 25 26 bMotion_abstract_register "tech_software" 27 bMotion_abstract_batchadd "tech_software" { 26 bMotion_abstract_register "tech_software" { 28 27 "windows" 29 28 "xml spy" … … 38 37 } 39 38 40 bMotion_abstract_register "tech_answer" 41 bMotion_abstract_batchadd "tech_answer" { 39 bMotion_abstract_register "tech_answer" { 42 40 "I just bought %VAR{tech_software} and I can't get it to %VAR{tech_problem}, I've tried %VAR{tech_tries} and it still won't work" 43 41 "I've just got %VAR{tech_software}, and it won't %VAR{tech_problem}. I've tried everything including %VAR{tech_tries} but nothing helps" … … 46 44 } 47 45 48 bMotion_abstract_register "tech_problem" 49 bMotion_abstract_batchadd "tech_problem" { 46 bMotion_abstract_register "tech_problem" { 50 47 "install" 51 48 "work" … … 59 56 } 60 57 61 bMotion_abstract_register "tech_tries" 62 bMotion_abstract_batchadd "tech_tries" { 58 bMotion_abstract_register "tech_tries" { 63 59 "sacrificing my boss" 64 60 "reinstalling it" … … 72 68 } 73 69 74 bMotion_abstract_register "tech_functions" 75 bMotion_abstract_batchadd "tech_functions" { 70 bMotion_abstract_register "tech_functions" { 76 71 "virus-scan" 77 72 "validate" -
trunk/plugins/en/complex_trivia.tcl
r936 r1137 268 268 } 269 269 270 bMotion_abstract_register "bahs" 271 bMotion_abstract_batchadd "bahs" [list "dang" "blast" "i was close %VAR{unsmiles}" "%colen" "curse you %%" "blah" "bleh" "damnit" "S%REPEAT{1:4:O} CLOSE" "no fair, %ruser told me the wrong answer %VAR{unsmiles}"] 272 273 bMotion_abstract_register "trivia_wins" 274 bMotion_abstract_batchadd "trivia_wins" [list "%VAR{harhars}" "own3d" "PWND!" "yes!" "w%REPEAT{3:6:o}!" "go %me, go %me!" "whe%REPEAT{3:7:e}" "muhar" "winnar!" "in your face, %ruser!"] 275 276 bMotion_abstract_register "trivia_loses" 277 bMotion_abstract_batchadd "trivia_loses" [list "hey stop copying me %VAR{unsmiles}" "i was going to say that next" "hay you're cheating %VAR{unsmiles}" "you're in league with the bot, i know it" "that's not the right answer; the right answer is obviously '%VAR{sillyThings}'" "feh" "*cough*google*cough*" "toss" "%VAR{unsmiles}" "I was distracted by %VAR{sillyThings}" "i wish i knew as much as you. really." "/dumb" "/stupid" "i knew that"] 278 279 270 bMotion_abstract_register "bahs" [list "dang" "blast" "i was close %VAR{unsmiles}" "%colen" "curse you %%" "blah" "bleh" "damnit" "S%REPEAT{1:4:O} CLOSE" "no fair, %ruser told me the wrong answer %VAR{unsmiles}"] 271 272 bMotion_abstract_register "trivia_wins" [list "%VAR{harhars}" "own3d" "PWND!" "yes!" "w%REPEAT{3:6:o}!" "go %me, go %me!" "whe%REPEAT{3:7:e}" "muhar" "winnar!" "in your face, %ruser!"] 273 274 bMotion_abstract_register "trivia_loses" [list "hey stop copying me %VAR{unsmiles}" "i was going to say that next" "hay you're cheating %VAR{unsmiles}" "you're in league with the bot, i know it" "that's not the right answer; the right answer is obviously '%VAR{sillyThings}'" "feh" "*cough*google*cough*" "toss" "%VAR{unsmiles}" "I was distracted by %VAR{sillyThings}" "i wish i knew as much as you. really." "/dumb" "/stupid" "i knew that"] -
trunk/plugins/en/complex_unf.tcl
r1114 r1137 13 13 14 14 bMotion_plugin_add_complex "unf" "((~(rarr|oof|unf)~)|unf|lick(s)?) %botnicks" 100 bMotion_plugin_complex_unf "en" 15 15 16 16 proc bMotion_plugin_complex_unf { nick host handle channel text } { 17 17 set bodyPaintNick [bMotion_plugins_settings_get "complexaction:hands" "paint_nick" "" ""] 18 18 set bodyPaintChannel [bMotion_plugins_settings_get "complexaction:hands" "paint_channel" "" ""] 19 19 20 20 if {$bodyPaintNick != "" && $bodyPaintChannel == $channel && $nick == $bodyPaintNick} { 21 21 bMotionDoAction $channel $bodyPaintNick "OOoooooooooooo thanks %%, thats some good tongue action" 22 bMotion_plugins_settings_set "complexaction:hands" "paint_nick" "" "" "" 23 bMotion_plugins_settings_set "complexaction:hands" "paint_channel" "" "" "" 22 bMotion_plugins_settings_set "complexaction:hands" "paint_nick" "" "" "" 23 bMotion_plugins_settings_set "complexaction:hands" "paint_channel" "" "" "" 24 24 } 25 25 bMotionGetHorny -
trunk/plugins/en/complex_want_catch.tcl
r1078 r1137 38 38 global botnicks 39 39 if [regexp -nocase {^mm+[,.]* (.+)} $text matches item] { 40 40 41 41 if {![bMotion_filter_sillyThings $item]} { 42 42 return 0 … … 47 47 return 1 48 48 } 49 49 50 50 bMotion_abstract_add "sillyThings" $item 51 51 … … 61 61 global botnicks 62 62 if [regexp -nocase {^(.+)\+{2}$} $text matches item] { 63 63 64 64 if {![bMotion_filter_sillyThings $item]} { 65 65 return 0 … … 71 71 return 1 72 72 } 73 73 74 74 bMotion_abstract_add "sillyThings" $item 75 75 … … 134 134 } 135 135 136 bMotion_abstract_register "gotone" 137 bMotion_abstract_batchadd "gotone" [list "I've already got one%|%BOT\[are you sure?\]%|yes yes, it's very nice" "I already have one of those." "I had one of them the other week. They're very nice, aren't they?" "r"] 136 bMotion_abstract_register "gotone" [list "I've already got one%|%BOT\[are you sure?\]%|yes yes, it's very nice" "I already have one of those." "I had one of them the other week. They're very nice, aren't they?" "r"] 138 137 139 bMotion_abstract_register "betters" 140 bMotion_abstract_batchadd "betters" [list "mm%REPEAT{1:5:m}, %VAR{sillyThings:strip}" "%VAR{sillyThings:strip} > %%" "%% < %VAR{sillyThings:strip}" "%%++"] 138 bMotion_abstract_register "betters" [list "mm%REPEAT{1:5:m}, %VAR{sillyThings:strip}" "%VAR{sillyThings:strip} > %%" "%% < %VAR{sillyThings:strip}" "%%++"] -
trunk/plugins/en/complex_wins.tcl
r936 r1137 22 22 } 23 23 24 bMotion_abstract_register "wins" 25 bMotion_abstract_batchadd "wins" { 24 bMotion_abstract_register "wins" { 26 25 "victory for %me%colen" 27 26 "this victory strengthens the soul of %me!" -
trunk/plugins/en/complex_woot.tcl
r936 r1137 21 21 } 22 22 23 bMotion_abstract_register "woots" 24 bMotion_abstract_batchadd "woots" { 23 bMotion_abstract_register "woots" { 25 24 "i like %%" 26 25 "\\o/" -
trunk/plugins/en/complex_worried.tcl
r936 r1137 24 24 } 25 25 26 bMotion_abstract_register "dontworrys" 27 bMotion_abstract_batchadd "dontworrys" { 26 bMotion_abstract_register "dontworrys" { 28 27 "Don't you worry about %%. I'll worry about blank." 29 28 } -
trunk/plugins/en/complex_wrong_console.tcl
r1106 r1137 16 16 # bMotion_plugin_complex_wrong_console 17 17 proc bMotion_plugin_complex_wrong_console { nick host handle channel text } { 18 if {![bMotion_interbot_me_next $channel]} { 18 if {![bMotion_interbot_me_next $channel]} { 19 19 return 0 20 20 } … … 26 26 27 27 # random wrong console responses 28 bMotion_abstract_register "randomWrongConsoleReply" 29 bMotion_abstract_batchadd "randomWrongConsoleReply" { 28 bMotion_abstract_register "randomWrongConsoleReply" { 30 29 "yay! %% can't get it right" 31 30 "why don't you tell us your password as well?" -
trunk/plugins/en/irc_join.tcl
r1112 r1137 11 11 12 12 13 proc bMotion_plugins_irc_default_join { nick host handle channel text } { 13 proc bMotion_plugins_irc_default_join { nick host handle channel text } { 14 14 bMotion_putloglev 4 * "bMotion_plugins_irc_default_join $nick $host $handle $channel $text" 15 15 … … 112 112 bMotion_plugin_add_irc_event "default join" "join" ".*" 40 "bMotion_plugins_irc_default_join" "en" 113 113 114 bMotion_abstract_register "insult_joins" 115 bMotion_abstract_batchadd "insult_joins" [list "%ruser: yeah, %% does suckOH HI %%!" "\[%%\] I'm a %VAR{PROM}%|%VAR{wrong_infoline}" "\[%%\] I love %ruser%|%VAR{wrong_infoline}" "/looks at %%%|so THAT'S where my oil-skin thong got to!" ] 114 bMotion_abstract_register "insult_joins" [list "%ruser: yeah, %% does suckOH HI %%!" "\[%%\] I'm a %VAR{PROM}%|%VAR{wrong_infoline}" "\[%%\] I love %ruser%|%VAR{wrong_infoline}" "/looks at %%%|so THAT'S where my oil-skin thong got to!" ] 116 115 117 bMotion_abstract_register "wrong_infoline" 118 bMotion_abstract_batchadd "wrong_infoline" [list "oops, wrong infoline, sorry" "huk, wrong infoline" "whoops" "o wait not that infoline"] 116 bMotion_abstract_register "wrong_infoline" [list "oops, wrong infoline, sorry" "huk, wrong infoline" "whoops" "o wait not that infoline"] 119 117 120 bMotion_abstract_register "dislike_joins" 121 bMotion_abstract_batchadd "dislike_joins" [list "shut up" "o no it's %%" "oh no it's %%" "oh noes it's %% %VAR{unsmiles}" "meh" "oh, it's %ruser.%|\"yay\"" "oh, it's fuckmaster mc shitty white clownhorse ass jacket pubic face." "you look beautiful%|incidentally my favourite artist is picasso"] 118 bMotion_abstract_register "dislike_joins" [list "shut up" "o no it's %%" "oh no it's %%" "oh noes it's %% %VAR{unsmiles}" "meh" "oh, it's %ruser.%|\"yay\"" "oh, it's fuckmaster mc shitty white clownhorse ass jacket pubic face." "you look beautiful%|incidentally my favourite artist is picasso"] -
trunk/plugins/en/irc_nick_away.tcl
r936 r1137 58 58 bMotion_plugins_settings_set "complex:returned" "lastnick" $channel "" $newnick 59 59 60 if {[regexp -nocase "(away|sleep|gone|afk|zzz+|bed|slaap|w(0|e|3|o)rk|school)" $nick] && 60 if {[regexp -nocase "(away|sleep|gone|afk|zzz+|bed|slaap|w(0|e|3|o)rk|school)" $nick] && 61 61 ![regexp -nocase "(away|sleep|gone|afk|slaap|w(0|e|3|o)rk|school)" $newnick]} { 62 62 63 63 bMotion_plugins_settings_set "system" "lastdonefor" $channel "" $nick 64 64 bMotion_plugins_settings_set "system:join" "lastgreeted" $channel "" $newnick -
trunk/plugins/en/irc_quit.tcl
r979 r1137 11 11 12 12 13 proc bMotion_plugins_irc_default_quit { nick host handle channel text } { 13 proc bMotion_plugins_irc_default_quit { nick host handle channel text } { 14 14 15 15 #has something happened since we last spoke? … … 72 72 bMotion_plugin_add_irc_event "default part" "part" ".*" 15 "bMotion_plugins_irc_default_quit" "en" 73 73 74 bMotion_abstract_register "departs-nice" 75 bMotion_abstract_batchadd "departs-nice" [list "bye %%" "i like them %VAR{smiles}" "i wish they didn't have to go %VAR{unsmiles}" "mmm %%"] 74 bMotion_abstract_register "departs-nice" [list "bye %%" "i like them %VAR{smiles}" "i wish they didn't have to go %VAR{unsmiles}" "mmm %%"] 76 75 77 bMotion_abstract_register "departs-nasty" 78 bMotion_abstract_batchadd "departs-nasty" [list "bye sucker" "i don't like them" "i hope they don't come back" "%%: AND DON'T COME BACK!" "See You Next Tuesday, %%!" "%%: don't let the door hit your ass on the way out%|because I don't want ass-prints on my new door!" "what a %VAR{insults} %VAR{unsmiles}"] 76 bMotion_abstract_register "departs-nasty" [list "bye sucker" "i don't like them" "i hope they don't come back" "%%: AND DON'T COME BACK!" "See You Next Tuesday, %%!" "%%: don't let the door hit your ass on the way out%|because I don't want ass-prints on my new door!" "what a %VAR{insults} %VAR{unsmiles}"] -
trunk/plugins/en/output_NUMBER.tcl
r1081 r1137 1 1 # vim: fdm=indent fdn=1 2 2 # 3 3 4 4 ############################################################################### 5 5 # This is a bMotion plugin -
trunk/plugins/en/output_SETTING.tcl
r1019 r1137 1 1 # vim: fdm=indent fdn=1 2 2 # 3 3 4 4 ############################################################################### 5 5 # This is a bMotion plugin -
trunk/plugins/en/output_SMILEY.tcl
r1112 r1137 1 1 # vim: fdm=indent fdn=1 2 2 # 3 3 4 4 ############################################################################### 5 5 # This is a bMotion plugin -
trunk/plugins/en/output_TIME.tcl
r1019 r1137 1 1 # vim: fdm=indent fdn=1 2 2 # 3 3 4 4 ############################################################################### 5 5 # This is a bMotion plugin -
trunk/plugins/en/output_VAR.tcl
r1112 r1137 1 1 # vim: fdm=indent fdn=1 2 2 # 3 3 4 4 ############################################################################### 5 5 # This is a bMotion plugin … … 77 77 set var [subst $$abstract] 78 78 set replacement [pickRandom $var] 79 }] { 79 }] { 80 80 bMotion_putloglev d * "Unable to handle %VAR{$abstract}" 81 81 return "" … … 102 102 set prefix [pickRandom $prefixes] 103 103 set replacement "$prefix$replacement" 104 } 104 } 105 105 1 { 106 106 regsub "((an?|the|some|his|her|their) )?" $replacement "\\1%VAR{noun_prefix} " replacement -
trunk/plugins/en/output_censor.tcl
r983 r1137 12 12 ############################################################################### 13 13 14 bMotion_plugin_add_output "censor" bMotion_plugin_output_censor 0 "en" 90 14 bMotion_plugin_add_output "censor" bMotion_plugin_output_censor 0 "en" 90 15 15 16 16 proc bMotion_plugin_output_censor { channel line } { -
trunk/plugins/en/output_channel.tcl
r979 r1137 3 3 # vim: fdm=indent fdn=1 4 4 # 5 5 6 6 ############################################################################### 7 7 # This is a bMotion plugin -
trunk/plugins/en/output_demon.tcl
r1108 r1137 3 3 # vim: fdm=indent fdn=1 4 4 # 5 5 6 6 ############################################################################### 7 7 # This is a bMotion plugin -
trunk/plugins/en/output_ebonics.tcl
r961 r1137 24 24 if [regexp -nocase {^([aeiou]?[^aeiou]+[aeiou])\w{2,}$} $word matches first] { 25 25 set word "${first}zzle" 26 } 26 } 27 27 28 28 set word [string map -nocase {for fo} $word] -
trunk/plugins/en/output_english.tcl
r1112 r1137 25 25 # me ___s --> /me 26 26 # me __[^s] --> I 27 27 28 28 if [regexp -nocase {^me ([^ ]+) (.+)} $line matches first rest] { 29 29 bMotion_putloglev 2 * "bMotion: output:english detected a me* line" -
trunk/plugins/en/output_homophone.tcl
r1124 r1137 31 31 foreach word $words { 32 32 if {[bMotion_plugin_output_homophone_chance $homophone_rate]} { 33 33 34 34 bMotion_putloglev 1 * "trying to trigger homophone on $word" 35 35 36 36 # we might want to replace this word. iterate through all homophone sets. 37 37 38 38 foreach homSet $homList { 39 39 set homItems [split $homSet ":"] 40 40 41 41 bMotion_putloglev 1 * "working with $homSet" 42 42 43 43 set haveReplaced 0 44 44 45 45 foreach item $homItems { 46 46 # only try to keep replacing things if we haven't done so yet, to avoid cyclical replacements … … 48 48 # is it a word we can replace, possibly with some punctuation around it? 49 49 if {[regexp -nocase "^\[\\\,\\\:\\\;\\\.\\\!\\\?\\\-\\\"\\\'\]*($item)\[\\\,\\\:\\\;\\\.\\\!\\\?\\\-\\\"\\\'\]*$" $word fullWord cleanWord]} { 50 50 51 51 # found a match! replace with a random word from the list 52 52 53 53 bMotion_putloglev 1 * "$word matches $item, cleanWord is $cleanWord" 54 54 55 55 set newWord [pickRandom $homItems] 56 56 while { [string equal -nocase $cleanWord $newWord] } { 57 57 set newWord [pickRandom $homItems] 58 58 } 59 59 60 60 set haveReplaced 1 61 61 62 62 # now just change the word and it will be output below 63 63 regsub -all -nocase "\\\w\+" $word $newWord word 64 64 65 65 bMotion_putloglev 1 * "leaving with $word" 66 66 } -
trunk/plugins/en/output_preprocess.tcl
r987 r1137 3 3 # vim: fdm=indent fdn=1 4 4 # 5 5 6 6 ############################################################################### 7 7 # This is a bMotion plugin -
trunk/plugins/en/output_rbot.tcl
r1019 r1137 1 1 # vim: fdm=indent fdn=1 2 2 # 3 3 4 4 ############################################################################### 5 5 # This is a bMotion plugin -
trunk/plugins/en/output_ruser.tcl
r1033 r1137 1 1 # vim: fdm=indent fdn=1 2 2 # 3 3 4 4 ############################################################################### 5 5 # This is a bMotion plugin -
trunk/plugins/en/output_stop.tcl
r1132 r1137 1 1 # vim: fdm=indent fdn=1 2 2 # 3 3 4 4 ############################################################################### 5 5 # This is a bMotion plugin -
trunk/plugins/en/output_switch.tcl
r1132 r1137 1 1 # vim: fdm=indent fdn=1 2 2 # 3 3 4 4 ############################################################################### 5 5 # This is a bMotion plugin -
trunk/plugins/en/output_typos.tcl
r1125 r1137 132 132 proc bMotion_plugin_output_typos { channel line } { 133 133 bMotion_putloglev 4 * "bMotion_plugin_output_typos $channel $line" 134 global bMotionSettings 134 global bMotionSettings 135 135 136 136 set typochance $bMotionSettings(typos) … … 187 187 } 188 188 189 bMotion_plugin_add_output "typos" bMotion_plugin_output_typos 1 "all" 99 189 bMotion_plugin_add_output "typos" bMotion_plugin_output_typos 1 "all" 99 -
trunk/plugins/en/simple_general.tcl
r1082 r1137 55 55 bMotion_plugin_add_simple "cunt" "^(cunt|twat|bollocks)" 80 [list "cunt" "twat" "bollocks" "bastards" "idiot" "wanker" "%VAR{prom_first}" "pile of %VAR{prom_first}" "%VAR{prom_first}ing %VAR{prom_first}ers"] "en" 56 56 57 58 bMotion_plugin_add_simple "likea-catch" "i do love a good (.+)" 40 [list "me too %VAR{smiles}" "same!" ] "en" 57 bMotion_plugin_add_simple "likea-catch" "i do love a good (.+)" 40 [list "me too %VAR{smiles}" "same!" ] "en" 59 58 bMotion_plugin_add_simple "secretcatch" "(secret|sekrit)" 40 [list "we all know %ruser likes to %VAR{dVerbs} themselves with a %VAR{dNouns} %VAR{smiles}" "it was %ruser!" "%VAR{ididntresponses}" ] "en" 60 59 bMotion_plugin_add_simple "andthan-catch" "and( then| than)" 10 [list "and then a %VAR{animals} came" "and then a bear came" "and then my %VAR{bodypart} %VAR{fellOffs}" "and thaaan?"] "en" -
trunk/plugins/en/simple_here.tcl
r936 r1137 15 15 # abstracts 16 16 17 bMotion_abstract_register "here_responses" 18 bMotion_abstract_batchadd "here_responses" { 17 bMotion_abstract_register "here_responses" { 19 18 "%VAR{nos}" 20 19 } -
trunk/plugins/en/simple_ick.tcl
r1061 r1137 15 15 # abstracts 16 16 17 bMotion_abstract_register "ick_sentences" 18 bMotion_abstract_batchadd "ick_sentences" { 17 bMotion_abstract_register "ick_sentences" { 19 18 "Don't picture %VAR{ick_males} and %VAR{ick_females} in %VAR{ick_wraps} and covered in %VAR{ick_covereds} %VAR{ick_fucks} each other %VAR{ick_locations}" 20 19 "Don't picture %VAR{ick_females} %VAR{ick_fucks} %VAR{ick_males} %VAR{ick_dildos} %VAR{ick_locations}" … … 22 21 } 23 22 24 bMotion_abstract_register "ick_males" 25 bMotion_abstract_batchadd "ick_males" { 26 "yourself" 27 "Jean-Luc Picard" 28 "the Pope" 29 "John Major" 30 "your dad" 31 "the entire crew of Voyager" 23 bMotion_abstract_register "ick_males" { 24 "yourself" 25 "Jean-Luc Picard" 26 "the Pope" 27 "John Major" 28 "your dad" 29 "the entire crew of Voyager" 32 30 "your mum" 33 31 "Bill Gates" … … 44 42 "Tim" 45 43 "Brian" 46 "%ruser{male}"44 "%ruser{male}" 47 45 } 48 46 49 bMotion_abstract_register "ick_females" 50 bMotion_abstract_batchadd "ick_females" { 51 "the queen" 52 "your mum" 53 "Miss Marple" 54 "that really minging woman who was on Eurovision" 47 bMotion_abstract_register "ick_females" { 48 "the queen" 49 "your mum" 50 "Miss Marple" 51 "that really minging woman who was on Eurovision" 55 52 "Ling Xiaoyu" 56 53 "Britney Spears" … … 60 57 "Jade of Big Brother" 61 58 "Davina McCall" 62 "%ruser{female}"59 "%ruser{female}" 63 60 } 64 61 65 bMotion_abstract_register "ick_wraps" 66 bMotion_abstract_batchadd "ick_wraps" { 67 "cellophane" 68 "cling-film" 69 "pvc" 70 "latex" 71 "a thong" 72 "stockings" 73 "a miniskirt" 62 bMotion_abstract_register "ick_wraps" { 63 "cellophane" 64 "cling-film" 65 "pvc" 66 "latex" 67 "a thong" 68 "stockings" 69 "a miniskirt" 74 70 "zero-gravity" 75 71 "pantyhose" 76 72 "chains" 77 "hotpants"73 "hotpants" 78 74 } 79 75 80 bMotion_abstract_register "ick_covereds" 81 bMotion_abstract_batchadd "ick_covereds" { 76 bMotion_abstract_register "ick_covereds" { 82 77 "custard" "cooking oil" "motor oil" "baby oil" "cream" "whipped cream" "KY" "strawberry jam" 83 78 "Raspberry yogurt *eg*" "chocolate sauce" "coconut oil" "peanut butter" "dairylea" "%ruser{:owner} love juice" … … 86 81 bMotion_abstract_add_filter "ick_covereds" "%OWNER" 87 82 88 bMotion_abstract_register "ick_locations" 89 bMotion_abstract_batchadd "ick_locations" { 90 "in your bed" 91 "on a chair" "in a field" "on a checkout" "against a fish tank" 92 "on a trampoline" "from behind" 93 "on a train" "on a bus" "in a swimming pool" "at the bus stop" "in your parents' bed" "under that bush" 94 "under your desk" "at the local Tesco" "over there -->" "in the shower" "behind the bikesheds" 95 "in Essex" "in Wales" "on a hilltop" "at Pontins" "for a porn site" 83 bMotion_abstract_register "ick_locations" { 84 "in your bed" 85 "on a chair" "in a field" "on a checkout" "against a fish tank" 86 "on a trampoline" "from behind" 87 "on a train" "on a bus" "in a swimming pool" "at the bus stop" "in your parents' bed" "under that bush" 88 "under your desk" "at the local Tesco" "over there -->" "in the shower" "behind the bikesheds" 89 "in Essex" "in Wales" "on a hilltop" "at Pontins" "for a porn site" 96 90 "in %ruser{:owner} bed" 97 91 } 98 92 99 bMotion_abstract_register "ick_fucks" 100 bMotion_abstract_batchadd "ick_fucks" { 101 "doing it to" 102 "fucking" 103 "shagging" 104 "having sex with" 105 "having intercourse with" 93 bMotion_abstract_register "ick_fucks" { 94 "doing it to" 95 "fucking" 96 "shagging" 97 "having sex with" 98 "having intercourse with" 106 99 "being intimate with" 107 100 "fscking" 108 101 "fux0ring" 109 "rogering"110 "making sweet love to"102 "rogering" 103 "making sweet love to" 111 104 } 112 105 113 bMotion_abstract_register "ick_dildos" 114 bMotion_abstract_batchadd "ick_dildos" { 106 bMotion_abstract_register "ick_dildos" { 115 107 "with a strap-on" "with a big dildo" "with a cucumber" "with a banana" "with a chicken" 116 108 "whith a cucumber" "with a keyboard" "with bananna motion lotion" "with a ribbed tickler" -
trunk/plugins/en/simple_list.tcl
r936 r1137 17 17 18 18 # abstracts 19 bMotion_abstract_register "list1" 20 bMotion_abstract_batchadd "list1" { 19 bMotion_abstract_register "list1" { 21 20 "No. Try \002/msg NoTopic ftp?? ...\002 instead of saying it in the channel. Sheesh." 22 21 } 23 22 24 bMotion_abstract_register "list2" 25 bMotion_abstract_batchadd "list2" { 23 bMotion_abstract_register "list2" { 26 24 "Heh, idiot." 27 25 "Fool." -
trunk/plugins/en/simple_littlebit.tcl
r936 r1137 13 13 bMotion_plugin_add_simple "littlebit" "(what, )?not even a little bit" 40 "%VAR{goonthens}" "en" 14 14 15 bMotion_abstract_register "goonthens" 16 bMotion_abstract_batchadd "goonthens" { 15 bMotion_abstract_register "goonthens" { 17 16 "sssh sekrit" 18 17 "go on then" -
trunk/plugins/en/simple_notbot.tcl
r1112 r1137 15 15 bMotion_plugin_add_simple "arebot" "((is %botnicks a bot)|(are you a bot,? %botnicks)|(^%botnicks%:? are you a bot))" 60 "%VAR{nos}" "en" 16 16 17 bMotion_abstract_register "notbots" 18 bMotion_abstract_batchadd "notbots" { 17 bMotion_abstract_register "notbots" { 19 18 "no I'm not" 20 19 "am not %SMILEY{sad}" -
trunk/plugins/en/simple_notlong.tcl
r936 r1137 17 17 } 18 18 19 bMotion_abstract_register "notlong" 19 bMotion_abstract_register "notlong" -
trunk/plugins/en/simple_sneeze.tcl
r936 r1137 15 15 16 16 # abstracts 17 bMotion_abstract_register "blessyous" 18 bMotion_abstract_batchadd "blessyous" { 17 bMotion_abstract_register "blessyous" { 19 18 "gesuntheit" 20 19 "bless you" … … 26 25 "Rogue bogey!" 27 26 "/ducks" 28 "/hides behind %ruser" 27 "/hides behind %ruser" 29 28 "Great. Now I'm gonna get a cold %VAR{unsmiles}" 30 29 "Eek. Don't give it to me"
Note: See TracChangeset
for help on using the changeset viewer.
