#3000 Mage Guildguard - 3024~ 0 q 100 ~ * Check the direction the player must go to enter the guild. if %direction% == south * Stop them if they are not the appropriate class. if %actor.class% != Magic User return 0 %send% %actor% The guard humiliates you, and blocks your way. %echoaround% %actor% The guard humiliates %actor.name%, and blocks %actor.hisher% way. end end ~ #3001 Cleric Guildguard - 3025~ 0 q 100 ~ * Check the direction the player must go to enter the guild. if %direction% == north * Stop them if they are not the appropriate class. if %actor.class% != Cleric return 0 %send% %actor% The guard humiliates you, and blocks your way. %echoaround% %actor% The guard humiliates %actor.name%, and blocks %actor.hisher% way. end end ~ #3002 Thief Guildguard - 3026~ 0 q 100 ~ * Check the direction the player must go to enter the guild. if %direction% == east * Stop them if they are not the appropriate class. if %actor.class% != Thief return 0 %send% %actor% The guard humiliates you, and blocks your way. %echoaround% %actor% The guard humiliates %actor.name%, and blocks %actor.hisher% way. end end ~ #3003 Warrior Guildguard - 3027~ 0 q 100 ~ * Check the direction the player must go to enter the guild. if %direction% == east * Stop them if they are not the appropriate class. if %actor.class% != Warrior return 0 %send% %actor% The guard humiliates you, and blocks your way. %echoaround% %actor% The guard humiliates %actor.name%, and blocks %actor.hisher% way. end end ~ #3004 Dump - 3030~ 2 h 100 ~ %echo% %object.shortdesc% vanishes in a puff of smoke! %send% %actor% You are awarded for outstanding performance. %echoaround% %actor% %actor.name% has been awarded for being a good citizen. eval value %object.cost% / 10 %purge% %object% if %value% > 50 set value 50 elseif %value% < 1 set value 1 end if %actor.level% < 3 nop %actor.exp(%value%)% else nop %actor.gold(%value%)% end ~ #3005 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 ~ #3006 Stock Snake~ 0 k 10 ~ %send% %actor% %self.name% bites you! %echoaround% %actor% %self.name% bites %actor.name%. dg_cast 'poison' %actor% ~ #3007 Stock Magic User~ 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 ~ #3008 Near Death Trap~ 2 g 100 ~ * By Rumble of The Builder Academy tbamud.com 9091 * Near Death Trap stuns actor set stunned %actor.hitp% %damage% %actor% %stunned% %send% %actor% You are on the brink of life and death. %send% %actor% The Gods must favor you this day. ~ #3009 Stock Cityguard - 3059, 60, 67~ 0 b 50 ~ if !%self.fighting% set actor %random.char% if %actor% if %actor.is_killer% emote screams 'HEY!!! You're one of those PLAYER KILLERS!!!!!!' kill %actor.name% elseif %actor.is_thief% emote screams 'HEY!!! You're one of those PLAYER THIEVES!!!!!!' kill %actor.name% elseif %actor.cha% < 6 %send% %actor% %self.name% spits in your face. %echoaround% %actor% %self.name% spits in %actor.name%'s face. end if %actor.fighting% eval victim %actor.fighting% if %actor.align% < %victim.align% && %victim.align% >= 0 emote screams 'PROTECT THE INNOCENT! BANZAI! CHARGE! ARARARAGGGHH!' kill %actor.name% end end end end ~ #3010 Stock Fido - 3062, 3066~ 0 b 100 ~ set inroom %self.room% set item %inroom.contents% while %item% * Target the next item in room. In case it is devoured. set next_item %item.next_in_list% * Check for a corpse. Corpse on TBA is vnum 65535. Stock is -1. if %item.vnum(65535)% emote savagely devours a corpse. %purge% %item% halt end set item %next_item% * Loop back done ~ #3011 Stock Janitor - 3061, 3068~ 0 b 100 ~ eval inroom %self.room% eval item %inroom.contents% while %item% * Target the next item in room. In case it is picked up. set next_item %item.next_in_list% * TODO: if %item.wearflag(take)% * Check for fountains and expensive items. if %item.type% != FOUNTAIN && %item.cost% <= 15 take %item.name% end set item %next_item% * Loop back done ~ #3012 Newbie Tour Guide~ 0 e 0 has entered the game.~ %echo% This trigger commandlist is not complete! ~ #3013 Newbie Tour Guide Loader~ 0 e 0 has entered the game.~ * By Rumble of The Builder Academy tbamud.com 9091 * Num Arg 0 means the argument has to match exactly. So trig will only fire off: * "has entered game." and not "has" or "entered" etc. (that would be num arg 1). * Figure out what vnum the mob is in so we can use zoneecho. eval inroom %self.room% %zoneecho% %inroom.vnum% %self.name% shouts, 'Welcome, %actor.name%!' ~ #3014 Teleporter~ 1 c 3 teleport~ * By Rumble w/help from Jamie Nelson on http://groups.yahoo.com/group/dg_scripts/ %send% %actor% You attempt to manipulate space and time. %echoaround% %actor% %actor.name% attempts to manipulate space and time. wait 1 sec set sanctus 100 set jade 400 set newbie 500 set sea 600 set camelot 775 set nuclear 1800 set spider 1999 set arena 2000 set tower 2200 set memlin 2798 set mudschool 2800 set midgaard 3001 set capital 3702 set haven 3998 set chasm 4200 set arctic 4396 set Orc 4401 set monastery 4512 set ant 4600 set zodiac 5701 set grave 7401 set zamba 7500 set gidean 7801 set glumgold 8301 set duke 8660 set oasis 9000 set domiae 9603 set northern 10004 set south 10101 set dbz 10301 set orchan 10401 set elcardo 10604 set iuel 10701 set omega 11501 set torres 11701 set dollhouse 11899 set hannah 12500 set maze 13001 set wyvern 14000 set caves 16999 set cardinal 17501 set circus 18700 set western 20001 set sapphire 20101 set kitchen 22001 set terringham 23200 set dragon 23300 set school 23400 set mines 23500 set aldin 23601 set crystal 23875 set pass 23901 set maura 24000 set enterprise 24100 set new 24200 set valley 24300 set prison 24457 set nether 24500 set yard 24700 set elven 24801 set jedi 24901 set dragonspyre 25000 set ape 25100 set vampyre 25200 set windmill 25300 set village 25400 set shipwreck 25516 set keep 25645 set jareth 25705 set light 25800 set mansion 25907 set grasslands 26000 set igor's 26100 set forest 26201 set farmlands 26300 set banshide 26400 set beach 26500 set ankou 26600 set vice 26728 set desert 26900 set wasteland 27001 set sundhaven 27119 set station 27300 set smurfville 27400 set sparta 27501 set shire 27700 set oceania 27800 set notre 27900 set motherboard 28000 set khanjar 28100 set kerjim 28200 set haunted 28300 set ghenna 28400 set hell 28601 set goblin 28700 set galaxy 28801 set werith's 28900 set lizard 29000 set black 29100 set kerofk 29202 set trade 29400 set jungle 29500 set froboz 29600 set desire 29801 set cathedral 29900 set ancalador 30000 set campus 30100 set bull 30401 set chessboard 30537 set tree 30600 set castle 30700 set baron 30800 set westlawn 30900 set graye 31003 set teeth 31100 set leper 31200 set altar 31400 set mcgintey 31500 set wharf 31700 set dock 31800 set yllnthad 31900 set bay 32200 set pale 32300 set army 32400 set revelry 32500 set perimeter 32600 if !%arg% *they didnt type a location set fail 1 else *take the first word they type after the teleport command *compare it to a variable above eval loc %%%arg.car%%% if !%loc% *they typed an invalid location set fail 1 end end if %fail% %send% %actor% You fail. %echoaround% %actor% %actor.name% fails. halt end %echoaround% %actor% %actor.name% seems successful as %actor.heshe% steps into another realm. %teleport% %actor% %loc% %force% %actor% look %echoaround% %actor% %actor.name% steps out of space and time. ~ #3015 Teleporter Recall~ 1 c 7 recall~ * By Rumble of The Builder Academy tbamud.com 9091 %send% %actor% You recall to safety. %echoaround% %actor% %actor.name% recalls. %teleport% %actor% 3001 %force% %actor% look ~ #3016 Kind Soul Gives Newbie Equipment~ 0 g 100 ~ * By Rumble of The Builder Academy tbamud.com 9091 * If a player is < level 5 and naked it fully equips them. If < 5 and missing * some equipment it will equip one spot. if %actor.is_pc% && %actor.level% < 5 wait 2 sec if !%actor.eq(*)% say get some clothes on! Here, I will help. %load% obj 3037 %actor% light %load% obj 3083 %actor% rfinger %load% obj 3083 %actor% lfinger %load% obj 3082 %actor% neck1 %load% obj 3082 %actor% neck2 %load% obj 3040 %actor% body %load% obj 3076 %actor% head %load% obj 3080 %actor% legs %load% obj 3084 %actor% feet %load% obj 3071 %actor% hands %load% obj 3086 %actor% arms %load% obj 3042 %actor% shield %load% obj 3087 %actor% about %load% obj 3088 %actor% waist %load% obj 3089 %actor% rwrist %load% obj 3089 %actor% lwrist %load% obj 3021 %actor% wield %load% obj 3055 %actor% hold halt end if !%actor.eq(light)% Say you really shouldn't be wandering these parts without a light source %actor.name%. shake %load% obj 3037 give candle %actor.name% halt end if !%actor.eq(rfinger)% || !%actor.eq(lfinger)% Say did you lose one of your rings? sigh %load% obj 3083 give ring %actor.name% halt end if !%actor.eq(neck1)% || !%actor.eq(neck2)% Say you lose everything don't you? roll %load% obj 3082 give neck %actor.name% halt end if !%actor.eq(body)% say you won't get far without some body armor %actor.name%. %load% obj 3040 give plate %actor.name% halt end if !%actor.eq(head)% Say protect that noggin of yours, %actor.name%. %load% obj 3076 give cap %actor.name% halt end if !%actor.eq(legs)% Say why do you always lose your pants %actor.name%? %load% obj 3080 give leggings %actor.name% halt end if !%actor.eq(feet)% Say you can't go around barefoot %actor.name%. %load% obj 3084 give boots %actor.name% halt end if !%actor.eq(hands)% Say need some gloves %actor.name%? %load% obj 3071 give gloves %actor.name% halt end if !%actor.eq(arms)% Say you must be freezing %actor.name%. %load% obj 3086 give sleeve %actor.name% halt end if !%actor.eq(shield)% Say you need one of these to protect yourself %actor.name%. %load% obj 3042 give shield %actor.name% halt end if !%actor.eq(about)% Say you are going to catch a cold %actor.name%. %load% obj 3087 give cape %actor.name% halt end if !%actor.eq(waist)% Say better use this to hold your pants up %actor.name%. %load% obj 3088 give belt %actor.name% halt end if !%actor.eq(rwrist)% || !%actor.eq(lwrist)% Say misplace something? smile %load% obj 3089 give wristguard %actor.name% halt end if !%actor.eq(wield)% Say without a weapon you will be Fido food %actor.name%. %load% obj 3021 give sword %actor.name% halt end end ~ #3017 Mortal Greet~ 2 s 100 ~ * By Rumble of The Builder Academy tbamud.com 9091 * TBA mortal greet and equip. New players start at level 0. wait 1 sec if %actor.level% == 0 if !%actor.eq(*)% %load% obj 3037 %actor% light %load% obj 3083 %actor% rfinger %load% obj 3083 %actor% lfinger %load% obj 3082 %actor% neck1 %load% obj 3082 %actor% neck2 %load% obj 3040 %actor% body %load% obj 3076 %actor% head %load% obj 3080 %actor% legs %load% obj 3084 %actor% feet %load% obj 3071 %actor% hands %load% obj 3086 %actor% arms %load% obj 3042 %actor% shield %load% obj 3087 %actor% about %load% obj 3088 %actor% waist %load% obj 3089 %actor% rwrist %load% obj 3089 %actor% lwrist %load% obj 3021 %actor% wield %load% obj 3055 %actor% hold end end wait 3 sec %zoneecho% 3001 A booming voice announces, 'Welcome %actor.name% to the realm!' if !%actor.has_item(3006)% %load% obj 3006 %actor% inv end ~ $~