- Timestamp:
- 02/11/08 17:53:53 (11 months ago)
- Location:
- trunk
- Files:
-
- 6 modified
-
modules/abstracts/en/abstracts.tcl (modified) (6 diffs)
-
modules/output.tcl (modified) (5 diffs)
-
modules/system.tcl (modified) (1 diff)
-
plugins/en/complex_sucks.tcl (modified) (1 diff)
-
plugins/en/simple_general.tcl (modified) (1 diff)
-
plugins/en/simple_ick.tcl (modified) (7 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/modules/abstracts/en/abstracts.tcl
r877 r882 189 189 bMotion_abstract_register "answerWhos" 190 190 bMotion_abstract_batchadd "answerWhos" { 191 "Dr Beanturd Cake" 191 192 "%ruser" 192 193 "me" … … 318 319 "tomorrow" 319 320 "today" 320 "in 10 minutes" 321 "4:32" 322 "7:53" 323 "9:21" 324 "16:08" 321 "in %NUMBER{59} minutes" 322 "%NUMBER{12}:%NUMBER{5}%NUMBER{9}" 325 323 } 326 324 … … 1150 1148 "jizz" 1151 1149 "ass" 1150 "bum" 1151 "twat" 1152 1152 } 1153 1153 … … 1355 1355 } 1356 1356 1357 bMotion_abstract_batchadd "sillyThings" [list "12 year old black metal kids" "14 US dollars" "1.5 pie" "20 minutes till lunch" "5 litres of Halfords 10W-40" "5 pints" "99 bicycle clips" "a 12-inch pianist" "a 1.44MB floppy disk" "a 1979 Aston Martin" "a 7MB Flash movie" "AA" "a backup" "a badger" "a bag" "a bagette" "a bank" "a barbecue" "a bath" "a baton" "a bazooka" "a beach" "a beard" "a beast" "a bed" "Aberystwyth" "a better computer" "a big stick with nails in it" "a bike" "a bird" "a biscuit tin" "a blanket" "a bloke" "a bog wallness" "a boiler" "a boob" "a book" "a bookshelf" "a bookstore" "a boot" "a bot" "a bottle" "a bottom" "a box" "a boy" "a branch" "a brick" "a bridge" "a broken CD case" "a brother" "a brownie" "a bucket" "a budget" "a building" "a bullet" "a bunker" "a bus" "a business" "a button" "a cab" "a camara" "a camera" "a candidate" "a can of coke" "a can of diet coke (bleh)" "a capital" "a Cappucino" "a captain" "a car" "a car park" "a carrot" "a cartoon" "a case" "a cassette" "a cassette deck" "a cat" "a catflap" "a cd wallet" "a ceiling" "a cellar" "a certain" "a chain" "a champion" "a channel" "a chat" "a chatterbot" "a cheque" "a choir" "a Christian" "a chum" "a cinema" "a circus" "a client" "a clock" "a clothes peg" "a clown" "a coffee pot" "a company" "a compiler" "a complete central heating system" ]1357 bMotion_abstract_batchadd "sillyThings" [list "12 year old black metal kids" "14 US dollars" "1.5 pie" "20 minutes till lunch" "5 litres of Halfords 10W-40" "5 pints" "99 bicycle clips" "a 12-inch pianist" "a 1.44MB floppy disk" "a 1979 Aston Martin" "a 7MB Flash movie" "AA" "a backup" "a badger" "a bag" "a bagette" "a bank" "a barbecue" "a bath" "a baton" "a bazooka" "a beach" "a beard" "a beast" "a bed" "Aberystwyth" "a better computer" "a big stick with nails in it" "a bike" "a bird" "a biscuit tin" "a blanket" "a bloke" "a bog wallness" "a boiler" "a boob" "a book" "a bookshelf" "a bookstore" "a boot" "a bot" "a bottle" "a bottom" "a box" "a boy" "a branch" "a brick" "a bridge" "a broken CD case" "a brother" "a brownie" "a bucket" "a budget" "a building" "a bullet" "a bunker" "a bus" "a business" "a button" "a cab" "a camara" "a camera" "a candidate" "a can of coke" "a can of diet coke (bleh)" "a capital" "a Cappucino" "a captain" "a car" "a car park" "a carrot" "a cartoon" "a case" "a cassette" "a cassette deck" "a cat" "a catflap" "a cd wallet" "a ceiling" "a cellar" "a certain" "a chain" "a champion" "a channel" "a chat" "a chatterbot" "a cheque" "a choir" "a Christian" "a chum" "a cinema" "a circus" "a client" "a clock" "a clothes peg" "a clown" "a coffee pot" "a company" "a compiler" "a complete central heating system" "marinated fuck giblets" ] 1358 1358 1359 1359 bMotion_abstract_batchadd "blownAways" [list "/is blown off feet by force of %%'s statement%|%bot\[50,¬VAR{picksUp}\]" "/falls over%|%bot\[50,¬VAR{picksUp}\]" "/is blown away by force of %%'s statement%|%bot\[50,¬VAR{picksUp}\]" "ow my eyes :(" "/blinks" ":O" "o_O" ":o" "blimey" "crumbs" "i say" "lordy" ] … … 1449 1449 bMotion_abstract_batchadd "pullsOut" [list "/pulls it out%|%bot\[50,¬VAR{wahey}\]" ] 1450 1450 1451 bMotion_abstract_batchadd "goodMornings" [list "Morning %%" "good morning %%" "What time do you call this?" "G'day" "*yawn*" "r"] 1451 bMotion_abstract_batchadd "goodMornings" [list "%daytime %%" "good %daytime %%" "What time do you call this?" "G'day" "*yawn*" "r"] 1452 1453 #clear out old good-morning text 1454 bMotion_abstract_add_filter "goodMornings" "morning" 1452 1455 1453 1456 bMotion_abstract_batchadd "stonedRandomStuff" [list "wheeeeeeee" "wheeeee..." "hey... i sound really stoned..." "hey, my hands are huge... they can touch anything but themselves... oh, wait" "slap my ass and call me charlie" "I don't think I'm ever going to come down" "peace" "flower power rules" "Did you ever wonder about the rising situation in Eastern Europe" "Hey, my TCL is HUGE" "I love you all" "look at all those beautiful colours" "I have to be stoned to feel normal" "see the marmalade skies" ] … … 2170 2173 "/wakes up" 2171 2174 "/awakens" 2172 "good morning!"2173 "good morning"2174 " morning"2175 "good %daytime!" 2176 "good %daytime" 2177 "%daytime" 2175 2178 "r" 2176 2179 "mmm toast" -
trunk/modules/output.tcl
r881 r882 202 202 #set loops 0 203 203 bMotion_putloglev 4 * "doing VAR processing" 204 204 set lastloop "" 205 205 while {[regexp -nocase {%VAR\{([^\}]+)\}(\{strip\})?} $line matches BOOM clean]} { 206 #putlog "var: clean = $clean"207 206 global $BOOM 208 #incr loops209 #if {$loops > 10} {210 # putlog "bMotion: ALERT! looping too much in %VAR code with $line"211 # set line "/has a tremendous error while trying to sort something out :("212 #}213 207 #see if we have a new-style abstract available 214 208 set newText [bMotion_abstract_get $BOOM] 215 209 set replacement "" 216 210 if {$newText == ""} { 217 211 bMotion_putloglev d * "abstract '$BOOM' doesn't exist in new abstracts system!" 218 212 #insert old style 219 213 set var [subst $$BOOM] 220 214 set replacement [pickRandom $var] 221 215 } else { 222 216 set replacement $newText 223 217 } 224 218 if {$clean != ""} { 225 219 set replacement [bMotion_strip_article $replacement] 226 220 } 227 221 regsub -nocase "%VAR\{$BOOM\}$clean" $line $replacement line … … 229 223 set line [bMotionInsertString $line "%noun" "%VAR{sillyThings}"] 230 224 } 231 225 if {$lastloop == $line} { 232 226 putlog "bMotion: ALERT! looping too much in %VAR code with $line (no change since last parse)" 233 227 set line "/has a tremendous error while trying to sort something out :(" 234 235 236 228 break 229 } 230 set lastloop $line 237 231 } 238 232 … … 258 252 set loops 0 259 253 bMotion_putloglev 4 * "doing NUMBER processing" 260 254 set padding 0 261 255 while {[regexp "%NUMBER\{(\[0-9\]+)\}(\{(\[0-9\]+)\})?" $line matches numberString paddingOpt padding]} { 262 256 set var [bMotion_get_number [bMotion_rand_nonzero $numberString]] 263 264 265 266 267 257 if {$padding > 0} { 258 set fmt "%0$padding" 259 append fmt "u" 260 set var [format $fmt $var] 261 } 268 262 incr loops 269 263 if {$loops > 10} { … … 272 266 } 273 267 set line [bMotionInsertString $line "%NUMBER\\{$numberString\\}(\\{\[0-9\]+\\})?" $var] 274 275 } 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 268 set padding 0 269 } 270 271 set loops 0 272 bMotion_putloglev 4 * "doing TIME processing" 273 while {[regexp "%TIME\{(\[a-zA-Z0-9 -\]+)\}" $line matches timeString]} { 274 bMotion_putloglev 2 * "found timestring $timeString" 275 set origtime $timeString 276 regsub -nocase {^-([0-9]) minutes?$} $timeString "\\1 minutes ago" timeString 277 set var [clock scan $timeString] 278 set var [clock format $var -format "%I:%M %p"] 279 bMotion_putloglev 2 * "using time $var" 280 incr loops 281 if {$loops > 10} { 282 putlog "bMotion: ALERT! looping too much in %TIME code with %line" 283 set line "/has a tremendous error while trying to do complex time mathematics :(" 284 } 285 set line [bMotionInsertString $line "%TIME\\{$origtime\\}" $var] 286 } 293 287 294 288 bMotion_putloglev 4 * "doing misc interpolation processing for $line" … … 303 297 set line [bMotionInsertString $line "%2" $moreText] 304 298 set line [bMotionInsertString $line "%percent" "%"] 305 306 307 bMotion_putloglev 4 * "done misc" 299 set line [bMotionInsertString $line "%daytime" [bMotion_get_daytime]] 300 301 302 bMotion_putloglev 4 * "done misc" 308 303 309 304 #ruser: -
trunk/modules/system.tcl
r870 r882 1106 1106 } 1107 1107 1108 proc bMotion_get_daytime { } { 1109 set hour [clock format [clock seconds] -format "%H"] 1110 1111 if {$hour < 1} { 1112 return "evening" 1113 } 1114 1115 if {$hour < 12} { 1116 return "morning" 1117 } 1118 1119 if {$hour < 6} { 1120 return "afternoon" 1121 } 1122 1123 return "evening" 1124 } 1125 1108 1126 bMotion_putloglev d * "bMotion: system module loaded" 1109 1127 -
trunk/plugins/en/complex_sucks.tcl
r741 r882 17 17 18 18 proc bMotion_plugin_complex_sucks { nick host handle channel text } { 19 global botnicks19 global botnicks 20 20 21 22 23 24 21 if [regexp -nocase {([^ ]+) ((is|si|==) (teh|the)? )?sucks?} $text matches item] { 22 if {$item == "=="} { 23 return 0 24 } 25 25 26 if {[string tolower $item] == "i"} { 27 return 0 26 if {[string tolower $item] == "i"} { 27 return 0 28 } 29 30 if [regexp -nocase "you|we|really|=|i|$botnicks" $item] { 31 return 0 32 } 33 34 bMotionDoAction $channel $item "%VAR{sucks}" 35 return 1 28 36 } 29 30 if [regexp -nocase "=|i|$botnicks" $item] {31 return 032 }33 34 bMotionDoAction $channel $item "%VAR{sucks}"35 return 136 }37 37 } 38 38 -
trunk/plugins/en/simple_general.tcl
r875 r882 54 54 55 55 bMotion_plugin_add_simple "centipedes" {[a-z]+\? in my [a-z]+\?} 70 [list "it's more likely than you think"] "en" 56 56 bMotion_plugin_add_simple "cilit" "they're a challenge" 80 [list "but not... for Cilit Bang!"] "en" 57 57 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" -
trunk/plugins/en/simple_ick.tcl
r753 r882 31 31 "John Major" 32 32 "your dad" 33 "Jed"34 33 "the entire crew of Voyager" 35 34 "your mum" 36 "Joost"37 35 "Bill Gates" 38 "damo"39 "jms"40 "Colen"41 36 "the Kazon" 42 37 "the cast of Dallas" … … 51 46 "Tim" 52 47 "Brian" 48 "%ruser{male}" 53 49 } 54 50 55 51 bMotion_abstract_register "ick_females" 56 52 bMotion_abstract_batchadd "ick_females" { 57 "wendy"58 "sue"59 "cherie blair"60 53 "the queen" 61 54 "your mum" … … 63 56 "that really minging woman who was on Eurovision" 64 57 "Ling Xiaoyu" 65 "Domilijn"66 "monica"67 58 "Britney Spears" 68 59 "Ling Xiaoyu" … … 71 62 "Jade of Big Brother" 72 63 "Davina McCall" 73 "Cath 2's mum"64 "%ruser{female}" 74 65 } 75 66 … … 86 77 "pantyhose" 87 78 "chains" 79 "hotpants" 88 80 } 89 81 … … 97 89 bMotion_abstract_register "ick_locations" 98 90 bMotion_abstract_batchadd "ick_locations" { 99 "in your bed" "on wendy's desk" "in the yellow room"100 "on a chair in the Nash lounge" "on the Nash kitchen table" "in a field" "on a checkout" "against a fish tank"91 "in your bed" 92 "on a chair" "in a field" "on a checkout" "against a fish tank" 101 93 "on a trampoline" "from behind" 102 "on a train" "on a bus" "in a swimming pool" "at the bus stop" "in your parents' bed" "under that bush" "on dunos' sofa"103 "at James' PC""under your desk" "at the local Tesco" "over there -->" "in the shower" "behind the bikesheds"104 "on TalkCity" "in #New2Internet" "on Chabbys front porch""in Essex" "in Wales" "on a hilltop" "at Pontins" "for a porn site"94 "on a train" "on a bus" "in a swimming pool" "at the bus stop" "in your parents' bed" "under that bush" 95 "under your desk" "at the local Tesco" "over there -->" "in the shower" "behind the bikesheds" 96 "in Essex" "in Wales" "on a hilltop" "at Pontins" "for a porn site" 105 97 "in %OWNER{%ruser} bed" 106 98 } … … 116 108 "fscking" 117 109 "fux0ring" 110 "rogering" 111 "making sweet love to" 118 112 } 119 113
