#28800 Cleric Fight Function~ 0 k 35 ~ * Written by Fizban to imitate ROM Cleric Function set current_hp %actor.hitp% set rand %random.7% * The dmg 5000 is actually non-damage, not damage. switch %rand% case 1 case 2 case 3 case 4 set dmg 5000 break case 5 eval dmg (%random.2% * %random.8%) + (%self.level% / 2) set spellname cause serious break case 6 eval dmg (%random.3% * %random.8%) + (%self.level% - 6) set spellname cause critical break case 7 eval dmg %random.6% + %self.level% set spellname flamestrike break done eval new_current_hp %current_hp% - %dmg% eval dmgpc (%dmg% * 100) / %current_hp% if %dmgpc% == 0 set vp misses elseif %dmgpc% <= 4 set vp scratches elseif %dmgpc% <= 8 set vp grazes elseif %dmgpc% <= 12 set vp hits elseif %dmgpc% <= 16 set vp injures elseif %dmgpc% <= 20 set vp wounds elseif %dmgpc% <= 24 set vp mauls elseif %dmgpc% <= 28 set vp decimates elseif %dmgpc% <= 32 set vp devastates elseif %dmgpc% <= 36 set vp maims elseif %dmgpc% <= 40 set vp MUTILATES elseif %dmgpc% <= 44 set vp DISEMBOWELS elseif %dmgpc% <= 48 set vp EVISCERATES elseif %dmgpc% <= 52 set vp MASSACRES elseif %dmgpc% <= 100 set vp DEMOLISHES else set vp ANNIHILATES end if %dmg% > 4000 return 1 else %send% %actor% %self.name%'s %spellname% %vp% you! %echoaround% %actor% %self.name%'s %spellname% %vp% %actor.name%! end switch %rand% case 1 dg_cast 'poison' %actor% break case 2 dg_cast 'curse' %actor% break case 3 dg_cast 'blind' %actor% break case 4 dg_cast 'earthquake' break case 5 case 6 case 7 %damage% %actor% %dmg% break done ~ #28801 Mage Fight Function~ 0 k 35 ~ * Written by Fizban to imitate ROM Cleric Function * adjusted to imitate TBA Mage Functions set current_hp %actor.hitp% set rand %random.5% switch %rand% case 1 eval dmg (%random.1% * %random.8%) + 1 set spellname chill touch break case 2 eval dmg (%random.3% * %random.8%) + 3 set spellname burning hands break case 3 eval dmg (%random.7% * %random.8%) + 7 set spellname lightning bolt case 4 eval dmg (%random.9% * %random.8%) + 9 set spellname color spray case 5 eval dmg (%random.11% * %random.8%) + 11 set spellname fireball break done eval new_current_hp %current_hp% - %dmg% eval dmgpc (%dmg% * 100) / %current_hp% if %dmgpc% == 0 set vp misses elseif %dmgpc% <= 4 set vp scratches elseif %dmgpc% <= 8 set vp grazes elseif %dmgpc% <= 12 set vp hits elseif %dmgpc% <= 16 set vp injures elseif %dmgpc% <= 20 set vp wounds elseif %dmgpc% <= 24 set vp mauls elseif %dmgpc% <= 28 set vp decimates elseif %dmgpc% <= 32 set vp devastates elseif %dmgpc% <= 36 set vp maims elseif %dmgpc% <= 40 set vp MUTILATES elseif %dmgpc% <= 44 set vp DISEMBOWELS elseif %dmgpc% <= 48 set vp EVISCERATES elseif %dmgpc% <= 52 set vp MASSACRES elseif %dmgpc% <= 100 set vp DEMOLISHES else set vp ANNIHILATES end if %dmg% > 4000 return 1 else %send% %actor% %self.name%'s %spellname% %vp% you! %echoaround% %actor% %self.name%'s %spellname% %vp% %actor.name%! end ~ #28802 Stock Thief~ 0 b 10 ~ set actor %random.char% if %actor% if %actor.is_pc% && %actor.gold% %send% %actor% You discover that %self.name% has %self.hisher% hands in your wallet. %echoaround% %actor% %self.name% tries to steal gold from %actor.name%. eval coins %actor.gold% * %random.10% / 100 nop %actor.gold(-%coins%)% nop %self.gold(%coins%)% end end ~ #28803 Fire Breath Function~ 0 k 100 ~ set current_hp %actor.hitp% eval low (%self.hitp% / 9) eval high %self.hitp% / 5 eval range %high% - %low% eval dmg %%random.%range%%% + %low% eval dmgpc (%dmg% * 100) / %current_hp% set spellname fire breath if %dmgpc% == 0 set vp misses elseif %dmgpc% <= 4 set vp scratches elseif %dmgpc% <= 8 set vp grazes elseif %dmgpc% <= 12 set vp hits elseif %dmgpc% <= 16 set vp injures elseif %dmgpc% <= 20 set vp wounds elseif %dmgpc% <= 24 set vp mauls elseif %dmgpc% <= 28 set vp decimates elseif %dmgpc% <= 32 set vp devastates elseif %dmgpc% <= 36 set vp maims elseif %dmgpc% <= 40 set vp MUTILATES elseif %dmgpc% <= 44 set vp DISEMBOWELS elseif %dmgpc% <= 48 set vp EVISCERATES elseif %dmgpc% <= 52 set vp MASSACRES elseif %dmgpc% <= 100 set vp DEMOLISHES else set vp ANNIHILATES end %echoaround% %actor% %self.name% breathes forth a cone of fire. %send% %actor% %self.name% breathes a cone of hot fire over you! %send% %actor% %self.name%'s %spellname% %vp% you! %echoaround% %actor% %self.name%'s %spellname% %vp% %actor.name%! %damage% %actor% %dmg% ~ #28804 Acid Breath Function~ 0 k 100 ~ set current_hp %actor.hitp% eval low (%self.hitp% / 11) eval high %self.hitp% / 6 eval range %high% - %low% eval dice_dam %self.level% * 16 eval hp_dam %%random.%range%%% + %low% eval dmg (%hp_dam% + %dice_dam%) / 10 eval dmgpc (%dmg% * 100) / %current_hp% set spellname acid breath if %dmgpc% == 0 set vp misses elseif %dmgpc% <= 4 set vp scratches elseif %dmgpc% <= 8 set vp grazes elseif %dmgpc% <= 12 set vp hits elseif %dmgpc% <= 16 set vp injures elseif %dmgpc% <= 20 set vp wounds elseif %dmgpc% <= 24 set vp mauls elseif %dmgpc% <= 28 set vp decimates elseif %dmgpc% <= 32 set vp devastates elseif %dmgpc% <= 36 set vp maims elseif %dmgpc% <= 40 set vp MUTILATES elseif %dmgpc% <= 44 set vp DISEMBOWELS elseif %dmgpc% <= 48 set vp EVISCERATES elseif %dmgpc% <= 52 set vp MASSACRES elseif %dmgpc% <= 100 set vp DEMOLISHES else set vp ANNIHILATES end %echoaround% %actor% %self.name% spits acid at %actor.name%. %send% %actor% %self.name% spits a stream of corrosive acid at you. %send% %actor% %self.name%'s %spellname% %vp% you! %echoaround% %actor% %self.name%'s %spellname% %vp% %actor.name%! %damage% %actor% %dmg% ~ #28820 Supernova DeathTrap~ 2 g 100 ~ * Taken from a trigger By Rumble of The Builder Academy * Near Death Trap stuns actor wait 1 sec %send% %actor% There must be a price to pay to witness this stunning sight! wait 2 sec set stunned %actor.hitp% - 2 %send% %actor% That really HURTS! And indeed... %damage% %actor% %stunned% %echo% @n %force% %actor% look ~ #28830 Enter Crystal Ball~ 1 c 100 l~ if %cmd.mudcommand% == look && %arg% /= crystal || %arg% /= ball %send% %actor% You feel drawn towards the crystal ball. Your hand reaches out... %echoaround% %actor% %actor.name% is drawn into the crystal ball! %teleport% %actor% 28802 wait 2 sec %at% 28802 %echoaround% %actor% %actor.name% appears out of nowhere! %force% %actor% look else return 0 end ~ $~