Menu
News
All News
Dungeons & Dragons
Level Up: Advanced 5th Edition
Pathfinder
Starfinder
Warhammer
2d20 System
Year Zero Engine
Industry News
Reviews
Dragon Reflections
Columns
Weekly Digests
Weekly News Digest
Freebies, Sales & Bundles
RPG Print News
RPG Crowdfunding News
Game Content
ENterplanetary DimENsions
Mythological Figures
Opinion
Worlds of Design
Peregrine's Next
RPG Evolution
Other Columns
From the Freelancing Frontline
Monster ENcyclopedia
WotC/TSR Alumni Look Back
4 Hours w/RSD (Ryan Dancey)
The Road to 3E (Jonathan Tweet)
Greenwood's Realms (Ed Greenwood)
Drawmij's TSR (Jim Ward)
Community
Forums & Topics
Forum List
Latest Posts
Forum list
*Dungeons & Dragons
Level Up: Advanced 5th Edition
D&D Older Editions
*TTRPGs General
*Pathfinder & Starfinder
EN Publishing
*Geek Talk & Media
Search forums
Chat/Discord
Resources
Wiki
Pages
Latest activity
Media
New media
New comments
Search media
Downloads
Latest reviews
Search resources
EN Publishing
Store
EN5ider
Adventures in ZEITGEIST
Awfully Cheerful Engine
What's OLD is NEW
Judge Dredd & The Worlds Of 2000AD
War of the Burning Sky
Level Up: Advanced 5E
Events & Releases
Upcoming Events
Private Events
Featured Events
Socials!
Twitch
YouTube
Facebook (EN Publishing)
Facebook (EN World)
Twitter
Instagram
TikTok
Podcast
Features
Top 5 RPGs Compiled Charts 2004-Present
Adventure Game Industry Market Research Summary (RPGs) V1.0
Ryan Dancey: Acquiring TSR
Q&A With Gary Gygax
D&D Rules FAQs
TSR, WotC, & Paizo: A Comparative History
D&D Pronunciation Guide
Million Dollar TTRPG Kickstarters
Tabletop RPG Podcast Hall of Fame
Eric Noah's Unofficial D&D 3rd Edition News
D&D in the Mainstream
D&D & RPG History
About Morrus
Log in
Register
What's new
Search
Search
Search titles only
By:
Forums & Topics
Forum List
Latest Posts
Forum list
*Dungeons & Dragons
Level Up: Advanced 5th Edition
D&D Older Editions
*TTRPGs General
*Pathfinder & Starfinder
EN Publishing
*Geek Talk & Media
Search forums
Chat/Discord
Menu
Log in
Register
Install the app
Install
Community
Playing the Game
Play by Post
Attention Meowth! Reiella
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Reply to thread
Message
<blockquote data-quote="reiella" data-source="post: 45181" data-attributes="member: 160"><p>Sent it.</p><p></p><p>Will post it here too.</p><p>[code][color=white]</p><p>proc ybmaster {} {</p><p> set realout "&outmsg."</p><p> set outmsg "MeowthBot has decreed this match to take place at the"</p><p> set xmtab01 {"badlands" "canyon" "castle" "caves" "cemetery" "city" "coast" "delta" "desert" "dungeon" "foothills" "forest" "fountain" "garden" "gate" "glade" "groto" "heavens" "hells" "island" "knoll" "lake" "madlands" "marsh" "mesa" "mountain" "palace" "pillars" "plain" "pond" "prairie" "ravine" "ricefield" "river" "ruins" "savanna" "spring" "steppes" "swamp" "temple" "tower" "tundra" "vale" "valley" "village" "vineyard" "volcano" "wastelands" "well" "wetlands"}</p><p> set xmtab02 {"east" "north" "north-east" "north-west" "south" "south-east" "south-west" "west" }</p><p> set xmtab03 {"the Ancient Ruins" "Blackrock Pass" "the Hunting Grounds" "the Iron City" "the Jade Gate" "Mount Kachi" "Pang-Wu Province" "the Yang River Bridge" "the Dragon's Crater" "the Swamp of Hopelessness" "the Sea of Stars" "the Obsidian Tower" "Xiang-Xia Province" "the Imperial Palace" "the Valley of Shadows" "the Altar of the Ancestors" "the Purelands" "the Garden of Worship" "the Point of the Wailing Bones" "the Endless Beach" "the Bottomless Well" "the Tomb of the Ancient Kings" "the Hall of Bones" "the Vineyard of Xian's Song" "the Garden of Lost Hope" "the Desert of Gems" "the Snowy Wastes" "the Ancient Volcano" "the Spring of Life" "the Old Hermit's Village" "the Forbidden City" "the Jade Cliffs" "the Graveyard of the Undying" "the Cho-ma Market Square" "the Altar of the Rainbow Circle" "Ssu-Ma's Tomb" "the Eyrie of the Phoenix" "the Palace of the Dragon Kings" "the Cherry Blossom Pagoda" "the Plaza of the Ten Thousand Immortals" "the Lake of the Sacred Tortoise" "the Imperial Pleasure Garden" "Shangtung Mountain" "the Baths at Lo Xiang" "the Monastery of the Red Butterfly" "Dancing Buddha's Shrine" "the Citadel of Lord Lao" "the Sweetwater Swamp" "NorthGuard Keep" "the Guardian Range"}</p><p> set xmtab04 {"dawn" "morning" "day" "evening" "dusk" "night" }</p><p> set xmtab05 {"blizzard" "cherry blossum" "chopstick" "chimera" "claw" "crab" "crane" "dagger" "dragon" "falcon" "fan" "fang" "fist" "fox" "frog" "hammer" "jaguar" "kama" "ki-rin" "lizard" "lotus blossum" "manta ray" "manticore" "mantis" "mongoose" "monkey" "needle" "northstar" "owl" "panther" "phoenix" "rabbit" "rat" "raven" "rose petal" "scorpion" "snake" "spear" "spider" "staff" "sword" "thorn" "thunder" "tiger" "toad" "tree" "turtle" "vine" "west wind" "wolf" }</p><p> </p><p> lappend outmsg [lindex $xmtab01 [expr [rand 1 [llength $xmtab01]] - 1]]</p><p> lappend outmsg [lindex $xmtab02 [expr [rand 1 [llength $xmtab02]] - 1]]</p><p> lappend outmsg "of"</p><p> lappend outmsg [lindex $xmtab03 [expr [rand 1 [llength $xmtab03]] - 1]]</p><p> lappend outmsg "on the"</p><p> lappend outmsg [lindex $xmtab04 [expr [rand 1 [llength $xmtab04]] - 1]]</p><p> lappend outmsg "of the"</p><p> lappend outmsg [lindex $xmtab05 [expr [rand 1 [llength $xmtab05]] - 1]]</p><p> </p><p> set outmsg [join $outmsg]</p><p></p><p> regsub -all "&outmsg" $realout $outmsg realout</p><p> return $realout</p><p> complete</p><p>}</p><p></p><p>proc ybmove {} {</p><p> # realout, future attempt to remove dummy spaces</p><p> set realout "&outmsg; &defmsg! &yen"</p><p> set outmsg "The"</p><p> set defmsg ""</p><p> set yen ""</p><p> set omtab01 { "ancestral" "ancient" "astral" "avenging" "black" "careful" "celestial" "crouching" "dark" "diamond" "drunken" "elaborate" "ethereal" "falling" "ferocious" "flying" "frozen" "golden" "great" "hidden" "infernal" "invincible" "iron" "jade" "light" "meditating" "mighty" "onyx" "opal" "perfect" "roaring" "rolling" "running" "secret" "shadow" "silent" "sleeping" "sly" "sneaky" "star" "staid" "standing" "stealthy" "steel" "timid" "tricky" "veiled" "walking" "whispering" "white" }</p><p> set xmtab01 { "avenging" "ferocious" "cautious" "relentless" "calm" "confidant" "joyful" "courageous" "wrathful" "sad" "crouching" "flying" "falling" "rolling" "running" "tumbling" "leaping" "twisting" "balancing" "speeding" "Tricky" "invisible" "stealthy" "sneaky" "sly" "evasive" "secret" "unseen" "hidden" "shadowy" "diamond" "jade" "onyx" "pearl" "opal" "gold" "silver" "topaz" "emerald" "ruby" "irresistible" "invincible" "mighty" "perfect" "faultless" "flawless" "pure" "superior" "transcendent" "supreme" }</p><p> set xmtab02 {"blizzard" "cherry blossum" "chopstick" "chimera" "claw" "crab" "crane" "dagger" "dragon" "falcon" "fan" "fang" "fist" "fox" "frog" "hammer" "jaguar" "kama" "ki-rin" "lizard" "lotus blossum" "manta ray" "manticore" "mantis" "mongoose" "monkey" "needle" "northstar" "owl" "panther" "phoenix" "rabbit" "rat" "raven" "rose petal" "scorpion" "snake" "spear" "spider" "staff" "sword" "thorn" "thunder" "tiger" "toad" "tree" "turtle" "vine" "west wind" "wolf"}</p><p> set xmtab03 {"aggresively" "angrily" "brutally" "completely" "cruelly" "destructively" "ferociously" "fiercely" "forcefully" "harshly" "insanely" "masterfully" "menacingly" "mercilessly" "overwhelmingly" "painfully" "perfectly" "powerfully" "quickly" "roughly" "ruthlessly" "skillfully" "strongly" "suddenly" "swiftly" "terrifyingly" "unrelentingly" "unremittingly" "viciously" "vigorously" "beautifully" "brilliantly" "calmly" "dexterously" "easily" "effortlessly" "fluidly" "gracefully" "sinuously" "smoothly" "unfailingly" "poetically" "tranquilly" "reflexively" "secretly" "painlessly" "quietly" "elegantly" "cautiously" "delicately"}</p><p> set xmtab04 { "annihilates" "assails" "assaults" "attacks" "bashes" "becomes one with" "breaks" "blasts" "brutalizes" "burns" "carves" "charges" "crushes" "cuts" "decimates" "demolishes" "destroys" "devastates" "devours" "dominates" "drowns" "eliminates" "illuminates" "impales" "invades" "kicks" "leaps over" "mangles" "nails" "obliterates" "overwhelms" "parts" "penetrates" "punches" "quells" "rains upon" "ravages" "removes" "rends" "scatters" "scourges" "severs" "shatters" "silences" "shreds" "slashes" "slaughters" "slays" "splits" "storms" "strikes" "sucker punches" "thrusts" "torments" "tramples" "vanquishes" "withers" "wounds" "wracks"}</p><p> set xmtab05 {"appears" "bows" "dances" "dodges" "drifts" "drops" "falls" "flies" "flips" "glides" "kicks" "lies" "leaps" "moves" "prances" "punches" "rides" "seeks" "shouts" "sings" "slashes" "spins" "slides" "speaks" "stands" "strikes" "sweeps" "swims" "tracks" "tumbles" }</p><p> set xmtab06 {"above" "across" "atop" "before" "below" "by" "close to" "facing" "from" "higher than" "in the midst of" "near" "next to" "on top of" "over" "through" "underneath" "upon" "with" "within"}</p><p> set xmtab07 {"badlands" "canyon" "castle" "caves" "cemetery" "city" "coast" "delta" "desert" "dungeon" "foothills" "forest" "fountain" "garden" "gate" "glade" "groto" "heavens" "hells" "island" "knoll" "lake" "madlands" "marsh" "mesa" "mountain" "palace" "pillars" "plain" "pond" "prairie" "ravine" "ricefield" "river" "ruins" "savanna" "spring" "steppes" "swamp" "temple" "tower" "tundra" "vale" "valley" "village" "vineyard" "volcano" "wastelands" "well" "wetlands"}</p><p> set xmtab08 {"and so it" "before it" "for it" "in addition, it" "so fast that it" "so it" "then it" "when it" "where it" "while it" "and" "and" "and" "and" "and" "and" "and" "and" "and" "and" "and" "and" "and" "and" "and" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it"}</p><p> set xmtab09 {"battlements" "body" "chi" "clouds" "dark sunbeam" "eyes" "fell dagger" "flame" "fortress" "heart" "invisible blade" "ki" "moon" "rain" "rainbow" "snow" "soul" "spirit" "stone" "stars" "steel" "sun" "thorn" "comet" "ember" "foul" "four winds" "river" "root" "vaccuum" "willow" "wyrm" "air" "armor" "arrow" "bamboo" "earth" "fire" "honor" "lava" "leaf" "lightbeam" "mist" "scythe" "shadow" "shield" "spirit" "steam" "teardrop" "water" "weapon" "amphibian" "ape" "bird" "canine" "cat" "reptile" "rodent" "vermin" "lily" "orchid" "rosewood" "sunflower" "willow"}</p><p> set xmtab10 {"absorbs" "averts" "avoids" "blocks" "conceals" "defends against" "dodges" "dominates" "fends off" "grasps" "guards against" "leaps over" "negates" "parries" "parts" "protects against" "quells" "redirects" "reduces" "removes" "scatters" "shields" "shields against" "silences" "shreds" "wards off" "waves away" "dodges"}</p><p> set xmtab11 {"aggression" "assailment" "beauty" "blood" "chaos" "chi" "cut" "descent" "drive" "edge" "efforts" "energy" "foray" "gaze" "kick" "motion" "offensive" "onslaught" "pain" "punch" "push" "quickening" "rising" "roar" "rolling" "slash" "speed" "stab" "storm" "tempest" "terror" "touch" "throw" "thrust" "violence" }</p><p></p><p></p><p># set n [lindex $n [expr [rand 1 [llength $n]] - 1]]</p><p></p><p># echo "[MB-DBG] d20 = [rand 1 20]"</p><p></p><p># Is there a style-mod?</p><p> if {[rand 1 20] == 1} {</p><p> lappend outmsg [lindex $xmtab01 [expr [rand 1 [llength $xmtab01]] - 1]]</p><p> }</p><p># generate Style</p><p> lappend outmsg [lindex $xmtab02 [expr [rand 1 [llength $xmtab02]] - 1]]</p><p># generate the attack</p><p> if {[rand 1 20] == 1} {</p><p> lappend outmsg [lindex $xmtab03 [expr [rand 1 [llength $xmtab03]] - 1]]</p><p> lappend outmsg [lindex $xmtab04 [expr [rand 1 [llength $xmtab04]] - 1]]</p><p> } else {</p><p> set dice [rand 1 2]</p><p> if {$dice == 1} {lappend outmsg [lindex $xmtab04 [expr [rand 1 [llength $xmtab04]] - 1]]}</p><p> if {$dice == 2} {</p><p> lappend outmsg [lindex $xmtab05 [expr [rand 1 [llength $xmtab05]] - 1]]</p><p> lappend outmsg [lindex $xmtab06 [expr [rand 1 [llength $xmtab06]] - 1]]</p><p> }</p><p> }</p><p> lappend outmsg "the"</p><p> lappend outmsg [lindex $xmtab07 [expr [rand 1 [llength $xmtab07]] - 1]]</p><p></p><p># generate attack special</p><p> if {[rand 1 20] == 1} {</p><p> set dice [rand 1 3]</p><p> lappend outmsg [lindex $xmtab08 [expr [rand 1 [llength $xmtab08]] - 1]]</p><p> if {$dice == 1} {</p><p> lappend outmsg [lindex $xmtab03 [expr [rand 1 [llength $xmtab03]] - 1]]</p><p> lappend outmsg [lindex $xmtab04 [expr [rand 1 [llength $xmtab04]] - 1]]</p><p> }</p><p> if {$dice == 2} {</p><p> lappend outmsg [lindex $xmtab04 [expr [rand 1 [llength $xmtab04]] - 1]]</p><p> }</p><p> if {$dice == 3} {</p><p> lappend outmsg [lindex $xmtab05 [expr [rand 1 [llength $xmtab05]] - 1]]</p><p> lappend outmsg [lindex $xmtab06 [expr [rand 1 [llength $xmtab06]] - 1]]</p><p> }</p><p> lappend outmsg "the"</p><p> set dice [rand 1 2]</p><p> if {$dice == 1} {lappend outmsg [lindex $xmtab07 [expr [rand 1 [llength $xmtab07]] - 1]]}</p><p> if {$dice == 2} {lappend outmsg [lindex $xmtab09 [expr [rand 1 [llength $xmtab09]] - 1]]}</p><p></p><p> }</p><p># attack/defense split</p><p></p><p># defense</p><p> if {[rand 1 20] == 1} {</p><p> set dice [rand 1 2]</p><p> if {$dice == 1} {</p><p> lappend defmsg [lindex $xmtab03 [expr [rand 1 [llength $xmtab03]] - 1]]</p><p> lappend defmsg [lindex $xmtab10 [expr [rand 1 [llength $xmtab10]] - 1]]</p><p> }</p><p> if {$dice == 2} {</p><p> lappend defmsg [lindex $xmtab05 [expr [rand 1 [llength $xmtab05]] - 1]]</p><p> lappend defmsg [lindex $xmtab06 [expr [rand 1 [llength $xmtab06]] - 1]]</p><p> }</p><p> } else {</p><p> lappend defmsg [lindex $xmtab10 [expr [rand 1 [llength $xmtab10]] - 1]]</p><p> }</p><p> lappend defmsg "the"</p><p> lappend defmsg [lindex $xmtab11 [expr [rand 1 [llength $xmtab11]] - 1]]</p><p> lappend defmsg "of the"</p><p> lappend defmsg [lindex $xmtab09 [expr [rand 1 [llength $xmtab09]] - 1]]</p><p># defense special</p><p> if {[rand 1 20] == 1} {</p><p> set dice [rand 1 3]</p><p> lappend defmsg [lindex $xmtab08 [expr [rand 1 [llength $xmtab08]] - 1]]</p><p> if {$dice == 1} {</p><p> lappend defmsg [lindex $xmtab03 [expr [rand 1 [llength $xmtab03]] - 1]]</p><p> lappend defmsg [lindex $xmtab10 [expr [rand 1 [llength $xmtab10]] - 1]]</p><p> }</p><p> if {$dice == 2} {</p><p> lappend defmsg [lindex $xmtab05 [expr [rand 1 [llength $xmtab05]] - 1]]</p><p> lappend defmsg [lindex $xmtab06 [expr [rand 1 [llength $xmtab06]] - 1]]</p><p> }</p><p> if {$dice == 3} {</p><p> lappend defmsg [lindex $xmtab10 [expr [rand 1 [llength $xmtab10]] - 1]]</p><p> }</p><p> lappend defmsg "the"</p><p> lappend defmsg [lindex $xmtab11 [expr [rand 1 [llength $xmtab11]] - 1]]</p><p> lappend defmsg "of the"</p><p> lappend defmsg [lindex $xmtab09 [expr [rand 1 [llength $xmtab09]] - 1]]</p><p> } </p><p></p><p># yen</p><p> if {[rand 1 20] == 1} {</p><p> if {[rand 1 20] == 1} { lappend yen "*yen+yen*"} else { lappend yen "*yen*" }</p><p> }</p><p></p><p> set outmsg [join $outmsg]</p><p> set defmsg [join $defmsg]</p><p> set yen [join $yen]</p><p></p><p> regsub -all "&outmsg" $realout $outmsg realout</p><p> regsub -all "&defmsg" $realout $defmsg realout</p><p> regsub -all "&yen" $realout $yen realout</p><p></p><p> return $realout</p><p> complete</p><p>}</p><p>[/color][/code]</p></blockquote><p></p>
[QUOTE="reiella, post: 45181, member: 160"] Sent it. Will post it here too. [code][color=white] proc ybmaster {} { set realout "&outmsg." set outmsg "MeowthBot has decreed this match to take place at the" set xmtab01 {"badlands" "canyon" "castle" "caves" "cemetery" "city" "coast" "delta" "desert" "dungeon" "foothills" "forest" "fountain" "garden" "gate" "glade" "groto" "heavens" "hells" "island" "knoll" "lake" "madlands" "marsh" "mesa" "mountain" "palace" "pillars" "plain" "pond" "prairie" "ravine" "ricefield" "river" "ruins" "savanna" "spring" "steppes" "swamp" "temple" "tower" "tundra" "vale" "valley" "village" "vineyard" "volcano" "wastelands" "well" "wetlands"} set xmtab02 {"east" "north" "north-east" "north-west" "south" "south-east" "south-west" "west" } set xmtab03 {"the Ancient Ruins" "Blackrock Pass" "the Hunting Grounds" "the Iron City" "the Jade Gate" "Mount Kachi" "Pang-Wu Province" "the Yang River Bridge" "the Dragon's Crater" "the Swamp of Hopelessness" "the Sea of Stars" "the Obsidian Tower" "Xiang-Xia Province" "the Imperial Palace" "the Valley of Shadows" "the Altar of the Ancestors" "the Purelands" "the Garden of Worship" "the Point of the Wailing Bones" "the Endless Beach" "the Bottomless Well" "the Tomb of the Ancient Kings" "the Hall of Bones" "the Vineyard of Xian's Song" "the Garden of Lost Hope" "the Desert of Gems" "the Snowy Wastes" "the Ancient Volcano" "the Spring of Life" "the Old Hermit's Village" "the Forbidden City" "the Jade Cliffs" "the Graveyard of the Undying" "the Cho-ma Market Square" "the Altar of the Rainbow Circle" "Ssu-Ma's Tomb" "the Eyrie of the Phoenix" "the Palace of the Dragon Kings" "the Cherry Blossom Pagoda" "the Plaza of the Ten Thousand Immortals" "the Lake of the Sacred Tortoise" "the Imperial Pleasure Garden" "Shangtung Mountain" "the Baths at Lo Xiang" "the Monastery of the Red Butterfly" "Dancing Buddha's Shrine" "the Citadel of Lord Lao" "the Sweetwater Swamp" "NorthGuard Keep" "the Guardian Range"} set xmtab04 {"dawn" "morning" "day" "evening" "dusk" "night" } set xmtab05 {"blizzard" "cherry blossum" "chopstick" "chimera" "claw" "crab" "crane" "dagger" "dragon" "falcon" "fan" "fang" "fist" "fox" "frog" "hammer" "jaguar" "kama" "ki-rin" "lizard" "lotus blossum" "manta ray" "manticore" "mantis" "mongoose" "monkey" "needle" "northstar" "owl" "panther" "phoenix" "rabbit" "rat" "raven" "rose petal" "scorpion" "snake" "spear" "spider" "staff" "sword" "thorn" "thunder" "tiger" "toad" "tree" "turtle" "vine" "west wind" "wolf" } lappend outmsg [lindex $xmtab01 [expr [rand 1 [llength $xmtab01]] - 1]] lappend outmsg [lindex $xmtab02 [expr [rand 1 [llength $xmtab02]] - 1]] lappend outmsg "of" lappend outmsg [lindex $xmtab03 [expr [rand 1 [llength $xmtab03]] - 1]] lappend outmsg "on the" lappend outmsg [lindex $xmtab04 [expr [rand 1 [llength $xmtab04]] - 1]] lappend outmsg "of the" lappend outmsg [lindex $xmtab05 [expr [rand 1 [llength $xmtab05]] - 1]] set outmsg [join $outmsg] regsub -all "&outmsg" $realout $outmsg realout return $realout complete } proc ybmove {} { # realout, future attempt to remove dummy spaces set realout "&outmsg; &defmsg! ¥" set outmsg "The" set defmsg "" set yen "" set omtab01 { "ancestral" "ancient" "astral" "avenging" "black" "careful" "celestial" "crouching" "dark" "diamond" "drunken" "elaborate" "ethereal" "falling" "ferocious" "flying" "frozen" "golden" "great" "hidden" "infernal" "invincible" "iron" "jade" "light" "meditating" "mighty" "onyx" "opal" "perfect" "roaring" "rolling" "running" "secret" "shadow" "silent" "sleeping" "sly" "sneaky" "star" "staid" "standing" "stealthy" "steel" "timid" "tricky" "veiled" "walking" "whispering" "white" } set xmtab01 { "avenging" "ferocious" "cautious" "relentless" "calm" "confidant" "joyful" "courageous" "wrathful" "sad" "crouching" "flying" "falling" "rolling" "running" "tumbling" "leaping" "twisting" "balancing" "speeding" "Tricky" "invisible" "stealthy" "sneaky" "sly" "evasive" "secret" "unseen" "hidden" "shadowy" "diamond" "jade" "onyx" "pearl" "opal" "gold" "silver" "topaz" "emerald" "ruby" "irresistible" "invincible" "mighty" "perfect" "faultless" "flawless" "pure" "superior" "transcendent" "supreme" } set xmtab02 {"blizzard" "cherry blossum" "chopstick" "chimera" "claw" "crab" "crane" "dagger" "dragon" "falcon" "fan" "fang" "fist" "fox" "frog" "hammer" "jaguar" "kama" "ki-rin" "lizard" "lotus blossum" "manta ray" "manticore" "mantis" "mongoose" "monkey" "needle" "northstar" "owl" "panther" "phoenix" "rabbit" "rat" "raven" "rose petal" "scorpion" "snake" "spear" "spider" "staff" "sword" "thorn" "thunder" "tiger" "toad" "tree" "turtle" "vine" "west wind" "wolf"} set xmtab03 {"aggresively" "angrily" "brutally" "completely" "cruelly" "destructively" "ferociously" "fiercely" "forcefully" "harshly" "insanely" "masterfully" "menacingly" "mercilessly" "overwhelmingly" "painfully" "perfectly" "powerfully" "quickly" "roughly" "ruthlessly" "skillfully" "strongly" "suddenly" "swiftly" "terrifyingly" "unrelentingly" "unremittingly" "viciously" "vigorously" "beautifully" "brilliantly" "calmly" "dexterously" "easily" "effortlessly" "fluidly" "gracefully" "sinuously" "smoothly" "unfailingly" "poetically" "tranquilly" "reflexively" "secretly" "painlessly" "quietly" "elegantly" "cautiously" "delicately"} set xmtab04 { "annihilates" "assails" "assaults" "attacks" "bashes" "becomes one with" "breaks" "blasts" "brutalizes" "burns" "carves" "charges" "crushes" "cuts" "decimates" "demolishes" "destroys" "devastates" "devours" "dominates" "drowns" "eliminates" "illuminates" "impales" "invades" "kicks" "leaps over" "mangles" "nails" "obliterates" "overwhelms" "parts" "penetrates" "punches" "quells" "rains upon" "ravages" "removes" "rends" "scatters" "scourges" "severs" "shatters" "silences" "shreds" "slashes" "slaughters" "slays" "splits" "storms" "strikes" "sucker punches" "thrusts" "torments" "tramples" "vanquishes" "withers" "wounds" "wracks"} set xmtab05 {"appears" "bows" "dances" "dodges" "drifts" "drops" "falls" "flies" "flips" "glides" "kicks" "lies" "leaps" "moves" "prances" "punches" "rides" "seeks" "shouts" "sings" "slashes" "spins" "slides" "speaks" "stands" "strikes" "sweeps" "swims" "tracks" "tumbles" } set xmtab06 {"above" "across" "atop" "before" "below" "by" "close to" "facing" "from" "higher than" "in the midst of" "near" "next to" "on top of" "over" "through" "underneath" "upon" "with" "within"} set xmtab07 {"badlands" "canyon" "castle" "caves" "cemetery" "city" "coast" "delta" "desert" "dungeon" "foothills" "forest" "fountain" "garden" "gate" "glade" "groto" "heavens" "hells" "island" "knoll" "lake" "madlands" "marsh" "mesa" "mountain" "palace" "pillars" "plain" "pond" "prairie" "ravine" "ricefield" "river" "ruins" "savanna" "spring" "steppes" "swamp" "temple" "tower" "tundra" "vale" "valley" "village" "vineyard" "volcano" "wastelands" "well" "wetlands"} set xmtab08 {"and so it" "before it" "for it" "in addition, it" "so fast that it" "so it" "then it" "when it" "where it" "while it" "and" "and" "and" "and" "and" "and" "and" "and" "and" "and" "and" "and" "and" "and" "and" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it" "as it"} set xmtab09 {"battlements" "body" "chi" "clouds" "dark sunbeam" "eyes" "fell dagger" "flame" "fortress" "heart" "invisible blade" "ki" "moon" "rain" "rainbow" "snow" "soul" "spirit" "stone" "stars" "steel" "sun" "thorn" "comet" "ember" "foul" "four winds" "river" "root" "vaccuum" "willow" "wyrm" "air" "armor" "arrow" "bamboo" "earth" "fire" "honor" "lava" "leaf" "lightbeam" "mist" "scythe" "shadow" "shield" "spirit" "steam" "teardrop" "water" "weapon" "amphibian" "ape" "bird" "canine" "cat" "reptile" "rodent" "vermin" "lily" "orchid" "rosewood" "sunflower" "willow"} set xmtab10 {"absorbs" "averts" "avoids" "blocks" "conceals" "defends against" "dodges" "dominates" "fends off" "grasps" "guards against" "leaps over" "negates" "parries" "parts" "protects against" "quells" "redirects" "reduces" "removes" "scatters" "shields" "shields against" "silences" "shreds" "wards off" "waves away" "dodges"} set xmtab11 {"aggression" "assailment" "beauty" "blood" "chaos" "chi" "cut" "descent" "drive" "edge" "efforts" "energy" "foray" "gaze" "kick" "motion" "offensive" "onslaught" "pain" "punch" "push" "quickening" "rising" "roar" "rolling" "slash" "speed" "stab" "storm" "tempest" "terror" "touch" "throw" "thrust" "violence" } # set n [lindex $n [expr [rand 1 [llength $n]] - 1]] # echo "[MB-DBG] d20 = [rand 1 20]" # Is there a style-mod? if {[rand 1 20] == 1} { lappend outmsg [lindex $xmtab01 [expr [rand 1 [llength $xmtab01]] - 1]] } # generate Style lappend outmsg [lindex $xmtab02 [expr [rand 1 [llength $xmtab02]] - 1]] # generate the attack if {[rand 1 20] == 1} { lappend outmsg [lindex $xmtab03 [expr [rand 1 [llength $xmtab03]] - 1]] lappend outmsg [lindex $xmtab04 [expr [rand 1 [llength $xmtab04]] - 1]] } else { set dice [rand 1 2] if {$dice == 1} {lappend outmsg [lindex $xmtab04 [expr [rand 1 [llength $xmtab04]] - 1]]} if {$dice == 2} { lappend outmsg [lindex $xmtab05 [expr [rand 1 [llength $xmtab05]] - 1]] lappend outmsg [lindex $xmtab06 [expr [rand 1 [llength $xmtab06]] - 1]] } } lappend outmsg "the" lappend outmsg [lindex $xmtab07 [expr [rand 1 [llength $xmtab07]] - 1]] # generate attack special if {[rand 1 20] == 1} { set dice [rand 1 3] lappend outmsg [lindex $xmtab08 [expr [rand 1 [llength $xmtab08]] - 1]] if {$dice == 1} { lappend outmsg [lindex $xmtab03 [expr [rand 1 [llength $xmtab03]] - 1]] lappend outmsg [lindex $xmtab04 [expr [rand 1 [llength $xmtab04]] - 1]] } if {$dice == 2} { lappend outmsg [lindex $xmtab04 [expr [rand 1 [llength $xmtab04]] - 1]] } if {$dice == 3} { lappend outmsg [lindex $xmtab05 [expr [rand 1 [llength $xmtab05]] - 1]] lappend outmsg [lindex $xmtab06 [expr [rand 1 [llength $xmtab06]] - 1]] } lappend outmsg "the" set dice [rand 1 2] if {$dice == 1} {lappend outmsg [lindex $xmtab07 [expr [rand 1 [llength $xmtab07]] - 1]]} if {$dice == 2} {lappend outmsg [lindex $xmtab09 [expr [rand 1 [llength $xmtab09]] - 1]]} } # attack/defense split # defense if {[rand 1 20] == 1} { set dice [rand 1 2] if {$dice == 1} { lappend defmsg [lindex $xmtab03 [expr [rand 1 [llength $xmtab03]] - 1]] lappend defmsg [lindex $xmtab10 [expr [rand 1 [llength $xmtab10]] - 1]] } if {$dice == 2} { lappend defmsg [lindex $xmtab05 [expr [rand 1 [llength $xmtab05]] - 1]] lappend defmsg [lindex $xmtab06 [expr [rand 1 [llength $xmtab06]] - 1]] } } else { lappend defmsg [lindex $xmtab10 [expr [rand 1 [llength $xmtab10]] - 1]] } lappend defmsg "the" lappend defmsg [lindex $xmtab11 [expr [rand 1 [llength $xmtab11]] - 1]] lappend defmsg "of the" lappend defmsg [lindex $xmtab09 [expr [rand 1 [llength $xmtab09]] - 1]] # defense special if {[rand 1 20] == 1} { set dice [rand 1 3] lappend defmsg [lindex $xmtab08 [expr [rand 1 [llength $xmtab08]] - 1]] if {$dice == 1} { lappend defmsg [lindex $xmtab03 [expr [rand 1 [llength $xmtab03]] - 1]] lappend defmsg [lindex $xmtab10 [expr [rand 1 [llength $xmtab10]] - 1]] } if {$dice == 2} { lappend defmsg [lindex $xmtab05 [expr [rand 1 [llength $xmtab05]] - 1]] lappend defmsg [lindex $xmtab06 [expr [rand 1 [llength $xmtab06]] - 1]] } if {$dice == 3} { lappend defmsg [lindex $xmtab10 [expr [rand 1 [llength $xmtab10]] - 1]] } lappend defmsg "the" lappend defmsg [lindex $xmtab11 [expr [rand 1 [llength $xmtab11]] - 1]] lappend defmsg "of the" lappend defmsg [lindex $xmtab09 [expr [rand 1 [llength $xmtab09]] - 1]] } # yen if {[rand 1 20] == 1} { if {[rand 1 20] == 1} { lappend yen "*yen+yen*"} else { lappend yen "*yen*" } } set outmsg [join $outmsg] set defmsg [join $defmsg] set yen [join $yen] regsub -all "&outmsg" $realout $outmsg realout regsub -all "&defmsg" $realout $defmsg realout regsub -all "¥" $realout $yen realout return $realout complete } [/color][/code] [/QUOTE]
Insert quotes…
Verification
Post reply
Community
Playing the Game
Play by Post
Attention Meowth! Reiella
Top