#6300 Near Death Trap Mahatma - 6318~ 0 g 100 ~ * By Rumble of The Builder Academy builderacademy.net 9091 * Near Death Trap - Mahatma stuns actor and then takes all of their equipment. wait 3 sec say Here, have a quick trip to the Temple of Midgaard. wait 2 sec %send% %actor% Mahatma plunges a black dagger into your back and takes all your equipment. %echoaround% %actor% Mahatma plunges a black dagger into %actor.name%'s back and takes all of %actor.hisher% equipment. * Damage the actor to 0 hitpoints so they lay there stunned, unable to move. * They will recover. eval stunned %actor.hitp% %damage% %actor% %stunned% * steal all their inventory. set i %actor.inventory% while %i% set pge 1 if %i.type% == container if %i.contents% set i %container.contents% * Don't purge containers inside containers or mudmail. if %i.type% == container || %i.vnum% <= 1 set pge 0 end end end eval stolen %i.vnum% set next %i.next_in_list% if %pge% %purge% %i% end * Don't steal mail. if %stolen% > 1 %load% obj %stolen% end if !%next% set i %actor.inventory% else set i %next% end done eval i 0 * steal all their equipped items. while %i% < 18 eval item %actor.eq(%i%)% if %item% eval stolen %item.vnum% %purge% %item% %load% obj %stolen% end eval i %i%+1 done ~ #6301 Magic User - 6302, 6309, 6312, 6314, 6315~ 0 k 10 ~ switch %actor.level% case 1 case 2 case 3 break case 4 dg_cast 'magic missile' %actor% break case 5 dg_cast 'chill touch' %actor% break case 6 dg_cast 'burning hands' %actor% break case 7 case 8 dg_cast 'shocking grasp' %actor% break case 9 case 10 case 11 dg_cast 'lightning bolt' %actor% break case 12 dg_cast 'color spray' %actor% break case 13 dg_cast 'energy drain' %actor% break case 14 dg_cast 'curse' %actor% break case 15 dg_cast 'poison' %actor% break case 16 if %actor.align% > 0 dg_cast 'dispel good' %actor% else dg_cast 'dispel evil' %actor% end break case 17 case 18 dg_cast 'call lightning' %actor% break case 19 case 20 case 21 case 22 dg_cast 'harm' %actor% break default dg_cast 'fireball' %actor% break done ~ $~