This is a great script. I play it all the time in my room.
Originally posted on MXC by SwitcHcodE Dec 23 2005
<command type="script">
<in>!reow</in>
<out type="pop"extdata="%RANDOMNUM%"></out>
<out type="push"extdata="running">1</out>
<out type="push"extdata="player">%RAWNAME%</out>
<out type="push"extdata="messagemode">/message $player$</out>
<out type="push"extdata="species">%RANDOMNUM[5]%</out>
<out type="push"extdata="species"condition=">"lvalue="$species$"rvalue="2">3</out>
<out type="push"extdata="element">%RANDOMNUM[3]%</out>
<out type="push"extdata="face">%RANDOMNUM[6]%</out>
<out type="push"extdata="face"condition=">"lvalue="$face$"rvalue="4">5</out>
<out type="push"extdata="chargraph"condition="1"lvalue="$species$"rvalue="0">^1´^2ì^3Í^4(^face^^4)^3Ì^2í^1`^4¸¸,^3ø¤^2º°^1*»</out>
<out type="push"extdata="chargraph"condition="1"lvalue="$species$"rvalue="1">^1´º^2Î[^3°^4º]`^1`^2º^3)^4»^face^^4«^3(^2º^1´^4`Î[º^3°´¯^2`]¦^1κ°` </out>
<out type="push"extdata="chargraph"condition="1"lvalue="$species$"rvalue="2">^1(^2'^3\^4_.^1d^2'^3[^face^^3]^2'^1b^4'¯^3\^2¸^1)</out>
<out type="push"extdata="chargraph"condition="1"lvalue="$species$"rvalue="3">^1´'^2\_¸^3.íÍ^4¯`\¸^1{^2Ì^3í^4[^face^^4]^3ì^2Í^1}^4¸/´¯^3Ìì.^2¸_/^1'`</out>
<out type="push"extdata="chargraph"condition="1"lvalue="$face$"rvalue="0"><operator type="strrep"lvalue="^face^"rvalue="#c8#O#c1#.#c8#o"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"condition="1"lvalue="$face$"rvalue="1"><operator type="strrep"lvalue="^face^"rvalue="#c8#`#c9#ì í#c8#´"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"condition="1"lvalue="$face$"rvalue="2"><operator type="strrep"lvalue="^face^"rvalue="#c74#·#c3#Ö#c9#,#c3#ö#c74#·"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"condition="1"lvalue="$face$"rvalue="3"><operator type="strrep"lvalue="^face^"rvalue="#c70#'#c2#+#c57#_#c2#-#c70#'"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"condition="1"lvalue="$face$"rvalue="4"><operator type="strrep"lvalue="^face^"rvalue="#c6#¤#c66#··#c6#¤"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"condition="1"lvalue="$face$"rvalue="5"><operator type="strrep"lvalue="^face^"rvalue="#c4#Ø#c68#.,#c4#ø"nvalue="$chargraph$"/></out>
<out type="goto"extdata="3"condition="1"lvalue="$element$"rvalue="0"></out>
<out type="goto"extdata="7"condition="1"lvalue="$element$"rvalue="1"></out>
<out type="goto"extdata="11"></out>
<out type="push"extdata="chargraph"><operator type="strrep"lvalue="^1"rvalue="#c9#"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"><operator type="strrep"lvalue="^2"rvalue="#c68#"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"><operator type="strrep"lvalue="^3"rvalue="#c4#"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"><operator type="strrep"lvalue="^4"rvalue="#c68#"nvalue="$chargraph$"/></out>
<out type="goto"extdata="11"></out>
<out type="push"extdata="chargraph"><operator type="strrep"lvalue="^1"rvalue="#c56#"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"><operator type="strrep"lvalue="^2"rvalue="#c57#"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"><operator type="strrep"lvalue="^3"rvalue="#c8#"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"><operator type="strrep"lvalue="^4"rvalue="#c63#"nvalue="$chargraph$"/></out>
<out type="goto"extdata="6"></out>
<out type="push"extdata="element">2</out>
<out type="push"extdata="chargraph"><operator type="strrep"lvalue="^1"rvalue="#c65#"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"><operator type="strrep"lvalue="^2"rvalue="#c66#"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"><operator type="strrep"lvalue="^3"rvalue="#c6#"nvalue="$chargraph$"/></out>
<out type="push"extdata="chargraph"><operator type="strrep"lvalue="^4"rvalue="#c1#"nvalue="$chargraph$"/></out>
<out type="push"extdata="speciesname"condition="1"lvalue="$species$"rvalue="0">Viper</out>
<out type="push"extdata="speciesname"condition="1"lvalue="$species$"rvalue="1">Dragon</out>
<out type="push"extdata="speciesname"condition="1"lvalue="$species$"rvalue="2">Elf</out>
<out type="push"extdata="speciesname"condition="1"lvalue="$species$"rvalue="3">Demon</out>
<out type="push"extdata="specieslatin"condition="1"lvalue="$species$"rvalue="0">brah</out>
<out type="push"extdata="specieslatin"condition="1"lvalue="$species$"rvalue="1">vious</out>
<out type="push"extdata="specieslatin"condition="1"lvalue="$species$"rvalue="2">hlin</out>
<out type="push"extdata="specieslatin"condition="1"lvalue="$species$"rvalue="3">wrath</out>
<out type="push"extdata="elementname"condition="1"lvalue="$element$"rvalue="0">Earth</out>
<out type="push"extdata="elementname"condition="1"lvalue="$element$"rvalue="1">Fire</out>
<out type="push"extdata="elementname"condition="1"lvalue="$element$"rvalue="2">Water</out>
<out type="push"extdata="elementlatin"condition="1"lvalue="$element$"rvalue="0">Terra</out>
<out type="push"extdata="elementlatin"condition="1"lvalue="$element$"rvalue="1">Pyra</out>
<out type="push"extdata="elementlatin"condition="1"lvalue="$element$"rvalue="2">Hydra</out>
<out type="push"extdata="facelatin"condition="1"lvalue="$face$"rvalue="0">Nathaniel</out>
<out type="push"extdata="facelatin"condition="1"lvalue="$face$"rvalue="1">Ezekiel</out>
<out type="push"extdata="facelatin"condition="1"lvalue="$face$"rvalue="2">Octavius</out>
<out type="push"extdata="facelatin"condition="1"lvalue="$face$"rvalue="3">Niamh</out>
<out type="push"extdata="facelatin"condition="1"lvalue="$face$"rvalue="4">Artemis</out>
<out type="push"extdata="facelatin"condition="1"lvalue="$face$"rvalue="5">Luciel</out>
<out type="goto"extdata="12"condition="1"lvalue="$fillstats$"rvalue="1"></out>
<out type="push"extdata="fillstats">1</out>
<out type="push"extdata="chargraphtwo">$chargraph$</out>
<out type="push"extdata="elementtwo">$element$</out>
<out type="push"extdata="facelatintwo">$facelatin$</out>
<out type="push"extdata="elementlatintwo">$elementlatin$</out>
<out type="push"extdata="elementnametwo">$elementname$</out>
<out type="push"extdata="specieslatintwo">$specieslatin$</out>
<out type="push"extdata="speciesnametwo">$speciesname$</out>
<out type="push"extdata="speciestwo">$species$</out>
<out type="push"extdata="facetwo">$face$</out>
<out type="goto"extdata="-65"></out>
<out type="push"extdata="fillstats">0</out>
<out>$messagemode$ #c9#Your Kreature: $chargraph$</out>
<out>$messagemode$ #c9#$facelatin$ $elementlatin$$specieslatin$ the $elementname$ $speciesname$</out>
<out delay="50">$messagemode$ #c9#º-#c62#·#c1#«#c62#^#c9#+ #c8#VèrséS #c9#+#c62#^#c1#»#c62#·#c9#-º</out>
<out>$messagemode$ #c9#My Kreature: $chargraphtwo$</out>
<out>$messagemode$ #c9#$facelatintwo$ $elementlatintwo$$specieslatintwo$ the $elementnametwo$ $speciesnametwo$</out>
<out type="self"condition="0"lvalue="$element$"rvalue="$elementtwo$">!battle!</out>
<out type="self"condition="1"lvalue="$element$"rvalue="$elementtwo$">!draw!</out>
</command>
<command type="script"users="_BOT_SELF_TRIGGER_"condition="1"lvalue="$running$"rvalue="1">
<in>!battle!</in>
<out type="sleep"extdata="100"></out>
<out type="goto"extdata="3"condition="1"lvalue="$element$"rvalue="0"></out>
<out type="goto"extdata="5"condition="1"lvalue="$element$"rvalue="1"></out>
<out type="goto"extdata="7"condition="1"lvalue="$element$"rvalue="2"></out>
<out type="goto"extdata="24"condition="1"lvalue="$elementtwo$"rvalue="0"></out>
<out type="goto"extdata="13"condition="1"lvalue="$elementtwo$"rvalue="1"></out>
<out type="goto"extdata="17"condition="1"lvalue="$elementtwo$"rvalue="2"></out>
<out type="goto"extdata="11"condition="1"lvalue="$elementtwo$"rvalue="0"></out>
<out type="goto"extdata="20"condition="1"lvalue="$elementtwo$"rvalue="1"></out>
<out type="goto"extdata="14"condition="1"lvalue="$elementtwo$"rvalue="2"></out>
<out type="goto"extdata="3"condition="1"lvalue="$elementtwo$"rvalue="0"></out>
<out type="goto"extdata="12"condition="1"lvalue="$elementtwo$"rvalue="1"></out>
<out type="goto"extdata="16"condition="1"lvalue="$elementtwo$"rvalue="2"></out>
<out condition="1"lvalue="$element$"rvalue="0">$messagemode$ #c9#$facelatin$ $elementlatin$$specieslatin$ Absorbs $facelatintwo$ $elementlatintwo$$specieslatintwo$'s $elementnametwo$</out>
<out condition="1"lvalue="$element$"rvalue="0">$messagemode$ #c1#Your Kreature Wins!</out>
<out condition="1"lvalue="$elementtwo$"rvalue="0">$messagemode$ #c9#$facelatintwo$ $elementlatintwo$$specieslatintwo$ Absorbs $facelatin$ $elementlatin$$specieslatin$'s $elementname$</out>
<out condition="1"lvalue="$elementtwo$"rvalue="0">$messagemode$ #c8#My Kreature Wins!</out>
<out type="goto"extdata="12"></out>
<out condition="1"lvalue="$element$"rvalue="1">$messagemode$ #c9#$facelatin$ $elementlatin$$specieslatin$ Scorches $facelatintwo$ $elementlatintwo$$specieslatintwo$'s $elementnametwo$</out>
<out condition="1"lvalue="$element$"rvalue="1">$messagemode$ #c1#Your Kreature Wins!</out>
<out condition="1"lvalue="$elementtwo$"rvalue="1">$messagemode$ #c9#$facelatintwo$ $elementlatintwo$$specieslatintwo$ Scorches $facelatin$ $elementlatin$$specieslatin$'s $elementname$</out>
<out condition="1"lvalue="$elementtwo$"rvalue="1">$messagemode$ #c8#My Kreature Wins!</out>
<out type="goto"extdata="7"></out>
<out condition="1"lvalue="$element$"rvalue="2">$messagemode$ #c9#$facelatin$ $elementlatin$$specieslatin$ Extinguishes $facelatintwo$ $elementlatintwo$$specieslatintwo$'s $elementnametwo$</out>
<out condition="1"lvalue="$element$"rvalue="2">$messagemode$ #c1#Your Kreature Wins!</out>
<out condition="1"lvalue="$elementtwo$"rvalue="2">$messagemode$ #c9#$facelatintwo$ $elementlatintwo$$specieslatintwo$ Extinguishes $facelatin$ $elementlatin$$specieslatin$'s $elementname$</out>
<out condition="1"lvalue="$elementtwo$"rvalue="2">$messagemode$ #c8#My Kreature Wins!</out>
<out type="goto"extdata="2"></out>
<out type="self">!draw!</out>
<out type="sleep"extdata="1"></out>
<out type="push"extdata="running">0</out>
</command>
<command type="script"users="_BOT_SELF_TRIGGER_">
<in>!draw!</in>
<out type="push"extdata="running">1</out>
<out>$messagemode$ #c8#Both Kreatures are born of $elementname$!</out>
<out>$messagemode$ #c8#The battle resorts to Physical combat!!</out>
<out type="goto"extdata="4"condition="1"lvalue="$species$"rvalue="0"></out>
<out type="goto"extdata="8"condition="1"lvalue="$species$"rvalue="1"></out>
<out type="goto"extdata="12"condition="1"lvalue="$species$"rvalue="2"></out>
<out type="goto"extdata="16"condition="1"lvalue="$species$"rvalue="3"></out>
<out type="goto"extdata="37"condition="1"lvalue="$speciestwo$"rvalue="0"></out>
<out type="goto"extdata="15"condition="1"lvalue="$speciestwo$"rvalue="1"></out>
<out type="goto"extdata="19"condition="1"lvalue="$speciestwo$"rvalue="2"></out>
<out type="goto"extdata="23"condition="1"lvalue="$speciestwo$"rvalue="3"></out>
<out type="goto"extdata="12"condition="1"lvalue="$speciestwo$"rvalue="0"></out>
<out type="goto"extdata="38"condition="1"lvalue="$speciestwo$"rvalue="1"></out>
<out type="goto"extdata="10"condition="1"lvalue="$speciestwo$"rvalue="2"></out>
<out type="goto"extdata="19"condition="1"lvalue="$speciestwo$"rvalue="3"></out>
<out type="goto"extdata="13"condition="1"lvalue="$speciestwo$"rvalue="0"></out>
<out type="goto"extdata="7"condition="1"lvalue="$speciestwo$"rvalue="1"></out>
<out type="goto"extdata="41"condition="1"lvalue="$speciestwo$"rvalue="2"></out>
<out type="goto"extdata="20"condition="1"lvalue="$speciestwo$"rvalue="3"></out>
<out type="goto"extdata="14"condition="1"lvalue="$speciestwo$"rvalue="0"></out>
<out type="goto"extdata="13"condition="1"lvalue="$speciestwo$"rvalue="1"></out>
<out type="goto"extdata="17"condition="1"lvalue="$speciestwo$"rvalue="2"></out>
<out type="goto"extdata="45"condition="1"lvalue="$speciestwo$"rvalue="3"></out>
<out condition="1"lvalue="$species$"rvalue="1"delay="10">$messagemode$ #c1#$facelatin$ $elementlatin$$specieslatin$ Picks $facelatintwo$ $elementlatintwo$$specieslatintwo$ off the floor and swallows them whole! Yum Yum</out>
<out condition="1"lvalue="$species$"rvalue="1"delay="10">$messagemode$ #c1#Your Kreature is Victorious!! $chargraph$</out>
<out condition="1"lvalue="$speciestwo$"rvalue="1"delay="10">$messagemode$ #c1#$facelatintwo$ $elementlatintwo$$specieslatintwo$ Picks $facelatin$ $elementlatin$$specieslatin$ off the floor and swallows them whole! Yum Yum</out>
<out condition="1"lvalue="$speciestwo$"rvalue="1"delay="10">$messagemode$ #c8#My Kreature is Victorious!! $chargraphtwo$</out>
<out type="goto"extdata="50"></out>
<out condition="1"lvalue="$species$"rvalue="0"delay="10">$messagemode$ #c1#$facelatin$ $elementlatin$$specieslatin$ Slithers behind $facelatintwo$ $elementlatintwo$$specieslatintwo$ and sinks its fangs into their neck!!</out>
<out condition="1"lvalue="$species$"rvalue="0"delay="10">$messagemode$ #c1#Your Kreature is Victorious!! $chargraph$</out>
<out condition="1"lvalue="$speciestwo$"rvalue="0"delay="10">$messagemode$ #c1#$facelatintwo$ $elementlatintwo$$specieslatintwo$ Slithers behind $facelatin$ $elementlatin$$specieslatin$ and sinks its fangs into their neck!!</out>
<out condition="1"lvalue="$speciestwo$"rvalue="0"delay="10">$messagemode$ #c8#My Kreature is Victorious!! $chargraphtwo$</out>
<out type="goto"extdata="45"></out>
<out condition="1"lvalue="$species$"rvalue="3"delay="10">$messagemode$ #c1#$facelatin$ $elementlatin$$specieslatin$ Rams its demon horns into $facelatintwo$ $elementlatintwo$$specieslatintwo$'s stomach!!</out>
<out condition="1"lvalue="$species$"rvalue="3"delay="10">$messagemode$ #c1#Your Kreature is Victorious!! $chargraph$</out>
<out condition="1"lvalue="$speciestwo$"rvalue="3"delay="10">$messagemode$ #c1#$facelatintwo$ $elementlatintwo$$specieslatintwo$ Rams its demon horns into $facelatin$ $elementlatin$$specieslatin$'s stomach!!</out>
<out condition="1"lvalue="$speciestwo$"rvalue="3"delay="10">$messagemode$ #c8#My Kreature is Victorious!! $chargraphtwo$</out>
<out type="goto"extdata="40"></out>
<out condition="1"lvalue="$species$"rvalue="2"delay="10">$messagemode$ #c1#$facelatin$ $elementlatin$$specieslatin$ Nimbly dodges to $facelatintwo$ $elementlatintwo$$specieslatintwo$'s side and sinks an Elven dagger into their back!!</out>
<out condition="1"lvalue="$species$"rvalue="2"delay="10">$messagemode$ #c1#Your Kreature is Victorious!! $chargraph$</out>
<out condition="1"lvalue="$speciestwo$"rvalue="2"delay="10">$messagemode$ #c1#$facelatintwo$ $elementlatintwo$$specieslatintwo$ Nimbly dodges to $facelatin$ $elementlatin$$specieslatin$'s side and sinks an Elven dagger into their back!!</out>
<out condition="1"lvalue="$speciestwo$"rvalue="2"delay="10">$messagemode$ #c8#My Kreature is Victorious!! $chargraphtwo$</out>
<out type="goto"extdata="35"></out>
<out type="push"extdata="decider">%RANDOMNUM[1]%</out>
<out delay="10">$messagemode$ #c1#$facelatin$ and $facelatintwo$ Slither and Contort in battle for hours with no clear victor,</out>
<out condition="1"lvalue="$decider$"rvalue="0"delay="10">$messagemode$ #c1#Until suddenly a Kursed Hawk dives from the clouds above and plucks $facelatin$ $elementlatin$$specieslatin$ from the ground, to become lunch for its Cygnets.</out>
<out condition="1"lvalue="$decider$"rvalue="0"delay="10">$messagemode$ #c8#My Kreature is Victorious!! $chargraphtwo$</out>
<out condition="1"lvalue="$decider$"rvalue="1"delay="10">$messagemode$ #c1#Until suddenly a Kursed Hawk dives from the clouds above and plucks $facelatintwo$ $elementlatintwo$$specieslatintwo$ from the ground, to become lunch for its Cygnets.</out>
<out condition="1"lvalue="$decider$"rvalue="1"delay="10">$messagemode$ #c1#Your Kreature is Victorious!! $chargraph$</out>
<out type="goto"extdata="28"></out>
<out type="push"extdata="decider">%RANDOMNUM[1]%</out>
<out type="push"extdata="years">%RANDOMNUM[4000]%</out>
<out delay="10">$messagemode$ #c1#$facelatin$ and $facelatintwo$ Swoop and Roar in combat for centuries with no clear victor,</out>
<out condition="1"lvalue="$decider$"rvalue="0"delay="10">$messagemode$ #c1#Until, some $years$ years later, during a difficult Barrel-roll-to-inverted-nose-dive manouver, $facelatin$ Collides face first with Mount Ragnorok...</out>
<out condition="1"lvalue="$decider$"rvalue="0"delay="10">$messagemode$ #c8#My Kreature is Victorious!! $chargraphtwo$</out>
<out condition="1"lvalue="$decider$"rvalue="1"delay="10">$messagemode$ #c1#Until, some $years$ years later, during a difficult Barrel-roll-to-inverted-nose-dive manouver, $facelatintwo$ Collides face first with Mount Ragnorok...</out>
<out condition="1"lvalue="$decider$"rvalue="1"delay="10">$messagemode$ #c1#Your Kreature is Victorious!! $chargraph$</out>
<out type="goto"extdata="20"></out>
<out type="push"extdata="decider">%RANDOMNUM[1]%</out>
<out delay="10">$messagemode$ #c1#$facelatin$ and $facelatintwo$ are both masters of the Elven Dagger, their feints and strikes as swift as the honed thought process that guides them,</out>
<out delay="10">$messagemode$ #c1#Strike meets Parry and Counter meets Stopblock many times over before $facelatin$ and $facelatintwo$ realise what an excellent match they make.</out>
<out delay="10">$messagemode$ #c1#Before long they are debating philosophy and peer-cache ownership, their friendship soon flowering into love, whose fruits show when</out>
<out condition="1"lvalue="$decider$"rvalue="0"delay="10">$messagemode$ #c1#$facelatin$ Falls pregnant with $facelatintwo$'s Quadruplets!!</out>
<out condition="1"lvalue="$decider$"rvalue="0"delay="10">$messagemode$ #c8#My Kreature is Victorious!! $chargraphtwo$</out>
<out condition="1"lvalue="$decider$"rvalue="1"delay="10">$messagemode$ #c1#$facelatintwo$ Falls pregnant with $facelatin$'s Quadruplets!!</out>
<out condition="1"lvalue="$decider$"rvalue="1"delay="10">$messagemode$ #c1#Your Kreature is Victorious!! $chargraph$</out>
<out type="goto"extdata="11"></out>
<out type="push"extdata="decider">%RANDOMNUM[1]%</out>
<out type="push"extdata="hangmanhalf">%RANDOMNUM[6000]%</out>
<out type="push"extdata="hangmantotal"><operator type="+"lvalue="$hangmanhalf$"rvalue="$hangmanhalf$"/></out>
<out delay="10">$messagemode$ #c1#$facelatin$ and $facelatintwo$ $elementlatin$$specieslatin$, numbed from eons of needless mortal torturing and forced scarification, decide to settle their differences civilly, with a dignified game of !hangman,</out>
<out condition="1"lvalue="$decider$"rvalue="0"delay="10">$messagemode$ #c1#$hangmantotal$ games later, $facelatin$ wins the decider with a stunning 12-letter word.</out>
<out condition="1"lvalue="$decider$"rvalue="0"delay="10">$messagemode$ #c1#Ever the sore loser, $facelatintwo$ re-enervates it's body with $elementnametwo$ Energy, promptly reducing the defenseless $facelatin$ to dogmeat...</out>
<out condition="1"lvalue="$decider$"rvalue="0"delay="10">$messagemode$ #c8#My Kreature is Victorious!! $chargraphtwo$</out>
<out condition="1"lvalue="$decider$"rvalue="1"delay="10">$messagemode$ #c1#$hangmantotal$ games later, $facelatintwo$ wins the decider with a stunning 12-letter word.</out>
<out condition="1"lvalue="$decider$"rvalue="1"delay="10">$messagemode$ #c1#Ever the sore loser, $facelatin$ re-enervates it's body with $elementname$ Energy, promptly reducing the defenseless $facelatintwo$ to dogmeat...</out>
<out condition="1"lvalue="$decider$"rvalue="1"delay="10">$messagemode$ #c1#Your Kreature is Victorious!! $chargraph$</out>
<out type="push"extdata="running">0</out>
</command>
**EDIT by Me, added author
