#1300 Mob TBA Welcome - 1300~ 0 e 1 entered reconnected~ if %actor.is_pc% && %actor.level% == 1 wait 1 sec if %actor.varexists(mortal_greeting_for_TBA)% say Welcome back %actor.name%. Tell someone level 32 or above when you complete the application. else say Welcome to The Builder Academy %actor.name%. wait 2 sec say If you are interested in learning how to build, or want to teach others, then you have come to the right place. wait 2 sec say Please fill out the application at: geocities.com/buildersacademy/ set mortal_greeting_for_TBA 1 remote mortal_greeting_for_TBA %actor.id% end end ~ #1301 Give Suggestions - 1302~ 0 g 100 ~ wait 2 sec say The best advice for new builders is under @RHELP SUGGESTIONS@n. ~ #1302 Finish Redit Hallway - 1304~ 0 g 100 ~ wait 2 sec say Good Job. That's the first form of OLC (on-line-creation) everyone learns. wait 2 sec say Now I would suggest that you practice what you have learned. wait 2 sec say Check your title under @RWHO@n. A vnum should be listed there, if not mudmail Rumble for one. wait 2 sec say Just type @RGOTO VNUM@n and type redit to modify your room. wait 2 sec say Once you think you have it complete go ahead and move on to the next hallway. wait 3 sec beam %actor.name% ~ #1303 CAPITAL LETTERS (1301)~ 0 c 0 CAPITAL~ %send% %actor% @RSocrates tells you, 'Good job, that is correct. Be on the lookout for more of those.'@n ~ #1304 free~ 0 g 100 ~ wait 1 sec say some more good advice may be found under @RHELP GRAMMAR@n and @RHELP REPORT@n. ~ #1305 TBA Greeting - 1301~ 0 e 1 arrives entered appears~ if %actor.is_pc% wait 1 sec if %actor.varexists(TBA_greeting)% say Welcome back %actor.name%. Read through these rooms whenever you need a refresher. else say Welcome to The Builder Academy %actor.name%. wait 1 sec say Within this zone you can learn all the immortal commands and how to build. wait 2 sec say This zone is like a newbie zone, except for gods. All you have to do is walk through the zone and read every room description. wait 3 sec say Be sure to do everything the room descriptions tell you to do. You should read and comprehend everything contained within these walls. set TBA_greeting 1 remote TBA_greeting %actor.id% if !%actor.has_item(1332)% %load% obj 1332 %actor% inv end end end ~ #1306 Trial Vnum Assigner - 1332~ 1 c 2 tbalim~ * Trial vnum assigner. For STAFF only! Make sure player has nohassle off. * Make sure name matches a player, purge mobs or use 0.name if you have * troubles. Socrates should have given them an assigner. * Usage: tbalim <player> <vnum | purge> if !%actor.is_pc% || %actor.level% < 32 %send% %actor% Only human staff can use this limiter. else set victim %arg.car% if %victim.is_pc% if purge /= %arg.cdr% && %victim.has_item(1332)% %send% %actor% %arg.car%'s assigner has been %arg.cdr%'d. %purge% %victim.inventory(1332)% else set TBA_trial_vnum %arg.cdr% remote TBA_trial_vnum %victim.id% %send% %actor% %arg.car%'s trial vnum set to %arg.cdr%. end else %send% %actor% Make sure they have nohassle off. Don't use it on mobs. Use 0.<name>! return 0 end end ~ #1307 Annoying Verizone Wireless Guy - 1314~ 0 abg 100 ~ say can you hear me now? ~ #1308 inventory and container purge~ 2 g 100 ~ while %actor.inventory% eval item %actor.inventory% * checks inside containers if %item.type% == CONTAINER while %item.contents% eval stolen %item.contents.vnum% %echo% purging %item.contents.shortdesc% in container. %purge% %item.contents% eval num %random.99% + 100 %at% %num% %load% obj %stolen% done end eval item_to_purge %%actor.inventory(%item.vnum%)%% eval stolen %item.vnum% %echo% purging %item.shortdesc%. %purge% %item_to_purge% eval num %random.99% + 100 %at% %num% %load% obj %stolen% done ~ #1309 Eat/look/read Cnady~ 1 c 2 *~ if look /= %cmd.mudcommand% && heart /= %arg% && %arg% || read /= %cmd.mudcommand% && heart /= %arg% && %arg% || read /= %cmd.mudcommand% && candy /= %arg% && %arg% || look /= %cmd.mudcommand% && candy /= %arg% && %arg% * eval color %random.3% set col[1] \@W set col[2] \@R set col[3] \@M *@n eval colors %%col[%color%]%% * eval heart %random.15% set love[1] Be Mine set love[2] I Love You set love[3] I Wuv You set love[4] Kiss Me set love[5] Hug Me set love[6] Be My Valentine set love[7] Will You Be Mine set love[8] You Are The Only One For Me set love[9] I'm yours set love[10] You're Special To Me set love[11] I Really Like You set love[12] I Luv U set love[13] U R Mine set love[14] With All My Heart set love[15] Cutie Pie eval candy %%love[%heart%]%% * %send% %actor% Written on the candy is: %send% %actor% %colors% %candy% \@n * elseif eat /= %cmd.mudcommand% && heart /= %arg% && %arg% || eat /= %cmd.mudcommand% && candy /= %arg% && %arg% * eval message %random.10% set word[1] It warms the cockles of your heart! set word[2] It tastes wonderful! set word[3] It melts in your mouth. set word[4] It slowly disolves in your mouth. set word[5] It tastes sweet and a little chalky. set word[6] Mmmmm! set word[7] You can feel the love! set word[8] You feel warmer already! set word[9] Mmm hearty goodness! set word[10] Sweet like candy! eval msg %%word[%message%]%% * %send% %actor% You eat %self.shortdesc%. %echoaround% %actor% %actor.name% eats %self.shortdesc%. %send% %actor% %msg% %purge% self * else return 0 end ~ #1310 Multiple Choice Answer A~ 2 c 100 A~ %echo% That's it! ~ #1311 Multiple Choice Answer B~ 2 c 100 B~ %echo% That's it! ~ #1312 Multiple Choice Answer C~ 2 c 100 C~ %echo% That's it! ~ #1313 Multiple Choice Answer D~ 2 c 100 D~ %echo% That's it! ~ #1314 Room Door Example~ 2 c 100 move~ *%door% <vnum> < direction> < field> [value] *Used for adding, deleting, and modifying doors in room #vnum. *Direction determines which door is being changed, and can be north, south, east, west, up, or down. *If the door does not exist first, a new door will be created. *Field is what property of the door is being changed. Valid fields are: * *purge - remove the exit in the direction specified - no value needed *description - value will become the new exit description *flags - value will be the new door flags bitvector as defined here: * a - Exit is a door that can be opened and closed. * b - The door is closed. * c - The door is locked. * d - The door is pick-proof. *key - value is the vnum of the key to the door in this direction *name - value is the name of the door in the specified direction *room - value is the vnum of the room this direction leads to *Example by Falstar for room 14520 *The following trigger is designed to reveal a trapdoor leading down when Player types 'Move Chest' * *The following ARGument determines what can be MOVEd ('move' Command inserted in Arg List of trigger) if ("%arg%" == "chest") * *Send text to player to show effect of command %send% %actor% You move the chest across the floor, revealing a trapdoor underneath!! * *Send text to other players in room to inform them of Player's discovery %echoaround% %actor% %actor.name% has discovered a hidden trapdoor under a chest! * * Set door flags to 'ab' - Exit is a door that can be opened and closed, then close door %door% 14520 down flags ab * Change door name to 'trapdoor' (used in door commands, eg open trapdoor, lock trapdoor) %door% 14520 down name trapdoor * Set room that trapdoor exits leads to (Room 14521 in this case) %door% 14520 down room 14521 *Set Exit desc for the wary adventure who decides to 'look down' %door% 14520 down description A wooden ladder leads down into the darkness. *Set the Vnum of the KEY OBJECT which will lock/unlock door %door% 14520 down key 14500 * * Now for Continuity, door commands must be set for reverse direction FROM 14521 %door% 14521 up flags ab %door% 14521 up name trapdoor %door% 14521 up room 14520 %door% 14521 up description A wooden ladder leads up into a storeroom. %door% 14521 up key 14500 * * IMPORTANT: Note reverse of direction in both the commands and extra descriptions and room numbers * it can be very easy to get lost here and probably get your adventurer lost too. * *Finally set up what happens when adventurer tries to move anything else and end the trigger * else %send% %actor% Move what ?! end ~ #1315 Room Enter Damage Example~ 2 g 100 ~ * First put a wait in there so the echo waits for the player to get into the room. wait 1 %echo% As %actor.name% enters the room a bolt of lightning smites %actor.himher%. %damage% %actor% 10 wait 5 sec %echo% The Gods feel sorry for %actor.name% and restore him to full health. %damage% %actor% -10 ~ #1316 Room Command Example~ 2 c 100 l~ if (%cmd.mudcommand% == look) && (%arg% /= test) %echo% works return 1 else * Don't capture the look command.. return 0 end ~ #1317 Room At Example~ 2 d 100 test~ *In progress %at% 1208 %echo% wat'd %echo% trigger fired. %at% 1208 %purge% statue ~ #1318 Room Enter Block Mobs Not Following~ 2 g 100 ~ if !%actor.is_pc% if !%actor.master% return 0 end end ~ #1319 Room Random Test For Variables~ 2 b 100 ~ %echo% my ID is: %self.ID% %echo% my VNUM is: %self.vnum% set actor %random.char% %echo% Hello, %actor.name% ~ #1320 Room Enter Echo Example~ 2 g 100 ~ * put a wait in here so it doesn't fire before the player enters the room wait 1 switch %random.3% case 1 * only the person entering the room will see this. %send% %actor% You trip over a root as you walk into the room. * everyone in the room except the actor will see this. %echoaround% %actor% %actor.name% trips on a root walking into the room. * everyone in the room will see this. %echo% The root suddenly springs to life and attacks! * let everyone in the zone hear about this. %zoneecho% %self.vnum% %actor.name% is a clutz. break case 2 %send% %actor% You strut into the room. %echoaround% %actor% %actor.name% Seems to have a big head.. %echo% A strong breeze kicks some leaves up into the air. break case 3 %echo% A light breeze picks up, causing the leaves to rustle quietly. break default * this should be here, even if it's never reached %echo% This is the default case in case I missed something break done ~ #1321 Room Command Mushroom Pick~ 2 c 100 pick~ if %cmd.mudcommand%==pick && mushroom/=%arg% && %arg.strlen%>0 %load% obj 1300 %force% %actor% say it works else %echo% pick what? end ~ #1322 Room Random Variables~ 2 b 100 test~ %echo% the weather is: %room.weather% ~ #1323 Room Variables Example~ 2 b 100 ~ set actor %random.char% eval room %actor.room% %echo% ID: %room.id% %echo% NAME: %room.name% %echo% NORTH: %room.north% %echo% SOUTH: %room.south% %echo% EAST: %room.east% %echo% WEST: %room.west% %echo% UP: %room.up% %echo% DOWN: %room.down% %echo% VNUM: %room.vnum% %echo% PEOPLE: %room.people% ~ #1324 Mob Greet Inventory Check~ 0 g 100 ~ * By Jamie Nelson from the forum http://groups.yahoo.com/group/dg_scripts/ * Checks if the actor is wielding the item if %actor.eq(wield)% eval wep %actor.eq(wield)% if %wep.vnum%==1300 set has_it 1 end end * Checks the actors inventory if not wielding it. if !%has_it% eval i %actor.inventory% while (%i%) set next %i.next_in_list% if %i.vnum%==1300 set has_it 1 break end if %i.type% == CONTAINER %echo% is a container. %echo% contains: %i.contents% eval in_bag %i.contents% %echo% %in_bag.vnum% while %in_bag% set next_in_bag %in_bag.next_in_list% %echo% %next_in_bag.vnum% if %in_bag.vnum%==1300 %echo% has it in bag set has_it 1 break end set in_bag %next_in_bag% done set i %next% done end * if %has_it% say %actor.name% has that special item. else say %actor.name% doesnt have that crappy item. end ~ #1325 Mob Command Quote~ 0 d 100 quote~ * By Jamie Nelson eval w1max %random.20% eval w2max %random.20% eval w3max %random.20% eval w4max %random.20% eval w5max %random.11% eval w6max %random.20% set w1[0] phenomenal set w1[1] rapid set w1[2] chilling set w1[3] insipid set w1[4] nauseating set w1[5] astronomical set w1[6] austere set w1[7] inevitable set w1[8] inescapable set w1[9] reckless set w1[10] haphazard set w1[11] accelerating set w1[12] profound set w1[13] awesome set w1[14] terrifying set w1[15] ubiquitous set w1[16] ignominious set w1[17] unprecedented set w1[18] unparalleled set w1[19] insidious set w1[20] broad set w2[0] growth set w2[1] decline set w2[2] prospects set w2[3] acceleration set w2[4] threat set w2[5] expansion set w2[6] oneness set w2[7] outgrowth set w2[8] madness set w2[9] evacuation set w2[10] diminishment set w2[11] consumption set w2[12] decay set w2[13] putrefaction set w2[14] vapidity set w2[15] downsizing set w2[16] degeneration set w2[17] litigation set w2[18] declivity set w2[19] hastening set w2[20] paradigm shifting set w3[0] the Internet set w3[1] urban tax dollars set w3[2] new technologies set w3[3] gender identification disorders set w3[4] censorship set w3[5] interpersonal communications set w3[6] modern life set w3[7] rampant paradigm shifts set w3[8] consumer spending set w3[9] rain forests set w3[10] human literacy set w3[11] natural resources set w3[12] traditional values set w3[13] media junk food set w3[14] family values set w3[15] corporate mentality set w3[16] the American justice system set w3[17] technological change set w3[18] the ozone layer set w3[19] human resources set w3[20] current epistemologies set w4[0] forever dissipate set w4[1] escalate set w4[2] aggrandize set w4[3] overhaul set w4[4] deteriorate set w4[5] revolutionize set w4[6] uglify set w4[7] put an end to set w4[8] enslave set w4[9] bankrupt set w4[10] truncate set w4[11] nullify set w4[12] sabotage set w4[13] destabilize set w4[14] incapacitate set w4[15] hasten set w4[16] dehumanize set w4[17] evaporate set w4[18] indenture set w4[19] intensify set w4[20] undermine set w5[0] today's set w5[1] tomorrow's set w5[2] the entrenchment of our set w5[3] worldwide set w5[4] our children's set w5[5] modern set w5[6] all of our set w5[7] our future set w5[8] our set w5[9] the demise of our set w5[10] our grandchildren's set w5[11] all hope for set w6[0] business models set w6[1] re-ruralization set w6[2] human condition set w6[3] family values set w6[4] self-esteem set w6[5] medical insights set w6[6] human psyche set w6[7] human depth set w6[8] egalitarianism set w6[9] World Wide Web set w6[10] future values set w6[11] hopes and dreams set w6[12] business models set w6[13] political climate set w6[14] education set w6[15] cultural heritage set w6[16] lifestyles set w6[17] fiduciary responsibility set w6[18] genetic diversity set w6[19] intestinal fortitude set w6[20] computer literacy set w1 %%w1[%w1max%]%% eval w1 %w1% set msg The %w1% set w2 %%w2[%w2max%]%% eval w2 %w2% set msg %msg% %w2% of set w3 %%w3[%w3max%]%% eval w3 %w3% set msg %msg% %w3% set w4 %%w4[%w4max%]%% eval w4 %w4% set msg %msg% will %w4% set w5 %%w5[%w5max%]%% eval w5 %w5% set msg %msg% %w5% set w6 %%w6[%w6max%]%% eval w6 %w6% set msg %msg% %w6% say %msg% ~ #1326 Mob Greet Einstein Converter - 1319~ 0 g 100 ~ wait 1 sec emote is distracted by your entrance is seems to lose his train of thought. wait 1 sec say Good day, %actor.name%. Can I help you convert something? ~ #1327 Temperature Converter for Detta - 1319~ 0 d 100 *~ if %speech% > -999 eval celsius (((%speech% - 32) * 5) / 9) eval fahrenheit (((%speech% * 9) / 5) + 32) say %speech% converted to celsius would be: %celsius% say %speech% converted to fahrenheit would be: %fahrenheit% end ~ #1328 Mobile Receive Example~ 0 j 100 ~ *Check to see if the player gave it the right object if %object.vnum% == 1300 wait 1 sec say Thank you %actor.name%! wait 1 sec tell %actor.name% Here is a small reward for your hard work! %echo% %self.name% thanks %actor.name% kiss %actor.name% %purge% app %load% obj 1301 give gren %actor.name% else say I don't want this! return 0 end ~ #1329 Mobile Act Example~ 0 e 100 kisses you.~ slap %actor.name% say I'm not that kind of girl. pout ~ #1330 Mobile Greet Example~ 0 g 100 ~ *only greet players if %actor.is_pc% *coming from this direction if %direction% == down say Ah, hello %actor.name% I have been waiting for you. Go learn to build %teleport% %actor% 1300 %force% %actor% look end end ~ #1331 Mobile Random Example~ 0 b 100 ~ *DENTIST *From the show "Little Shop Of Horrors" (1982) *(Alan Menken / Howard Ashman) *Steve Martin * %echo% %self.name% sings, When I was young and just a bad little kid, wait 3 sec %echo% %self.name% sings, My momma noticed funny things I did. wait 3 sec %echo% %self.name% sings, Like shootin' puppies with a BB-Gun. wait 3 sec %echo% %self.name% sings, I'd poison guppies, and when I was done, wait 3 sec %echo% %self.name% sings, I'd find a pussy-cat and bash in it's head. wait 3 sec %echo% %self.name% sings, That's when my momma said... wait 3 sec %echo% A chorus from above sings, 'What did she say?' wait 3 sec %echo% %self.name% sings, She said my boy I think someday wait 3 sec %echo% %self.name% sings, You'll find a way wait 3 sec %echo% %self.name% sings, To make your natural tendencies pay... wait 6 sec %echo% %self.name% sings, You'll be a dentist. wait 3 sec %echo% %self.name% sings, You have a talent for causing things pain! wait 3 sec %echo% %self.name% sings, Son, be a dentist. wait 3 sec %echo% %self.name% sings, People will pay you to be inhumane! wait 3 sec %echo% %self.name% sings, You're temperment's wrong for the priesthood, wait 3 sec %echo% %self.name% sings, And teaching would suit you still less. wait 3 sec %echo% %self.name% sings, Son, be a dentist. wait 3 sec %echo% %self.name% sings, You'll be a success. wait 6 sec %echo% A chorus from above sings, "Here he is folks, the leader of the plaque." wait 3 sec %echo% A chorus from above sings, "Watch him suck up that gas. Oh My God!" wait 3 sec %echo% A chorus from above sings, "He's a dentist and he'll never ever be any good." wait 3 sec %echo% A chorus from above sings, "Who wants their teeth done by the Marqui DeSade?" wait 6 sec %echo% An innocent dental patient screams, "Oh, that hurts! Wait! I'm not numb!" %echo% %self.name% sings, "Eh, Shut Up! Open Wide! Here I Come!" wait 6 sec %echo% %self.name% sings, I am your dentist. wait 3 sec %echo% %self.name% sings, And I enjoy the career that I picked. wait 3 sec %echo% %self.name% sings, I'm your dentist. wait 3 sec %echo% %self.name% sings, And I get off on the pain I inflict! wait 6 sec %echo% %self.name% sings, When I start extracting those mollars wait 3 sec %echo% %self.name% sings, Girls, you'll be screaming like holy rollers wait 6 sec %echo% %self.name% sings, And though it may cause my patients distress. wait 3 sec %echo% %self.name% sings, Somewhere...Somewhere in heaven above me... wait 3 sec %echo% %self.name% sings, I know...I know that my momma's proud of me. wait 3 sec %echo% %self.name% sings, "Oh, Momma..." wait 6 sec %echo% %self.name% sings, 'Cause I'm a dentist... wait 3 sec %echo% %self.name% sings, And a success! wait 6 sec %echo% %self.name% sings, "Say ahh..." wait 3 sec %echo% %self.name% sings, "Say AHhhh..." wait 3 sec %echo% %self.name% sings, "Say AAARRRHHHH!!!" wait 3 sec %echo% %self.name% sings, "Now Spit!" %purge% %self% ~ #1332 Variables Example~ 0 b 100 ~ * By Rumble set actor %random.char% say hello %actor.name% say your alias is %actor.alias% say you canbeseen %actor.canbeseen% say your cha is %actor.cha% say your class is %actor.class% say your con is %actor.con% say your dex is %actor.dex% say your experience is %actor.exp% * *equipment positions *light 0 if %actor.eq(light)% eval light %actor.eq(light)% say your light is ID: %light.id%, Name: %light.name%, Shortdesc: %light.shortdesc%, Timer: %light.timer%, Type: %light.type%. say your light is Val0: %light.val0%, Val1: %light.val1%, Val2: %light.val2%, Val3: %light.val3%, Vnum: %light.vnum%, Weight: %light.weight%, Cost: %light.cost%. end *rfinger 1 if %actor.eq(rfinger)% eval rfinger %actor.eq(rfinger)% say your rfinger is ID: %rfinger.id%, Name: %rfinger.name%, Shortdesc: %rfinger.shortdesc%, Timer: %rfinger.timer%, Type: %rfinger.type%. say your rfinger is Val0: %rfinger.val0%, Val1: %rfinger.val1%, Val2: %rfinger.val2%, Val3: %rfinger.val3%, Vnum: %rfinger.vnum%, Weight: %rfinger.weight%, Cost: %rfinger.cost%. end *lfinger 2 if %actor.eq(lfinger)% eval lfinger %actor.eq(lfinger)% say your lfinger is ID: %lfinger.id%, Name: %lfinger.name%, Shortdesc: %lfinger.shortdesc%, Timer: %lfinger.timer%, Type: %lfinger.type%. say your lfinger is Val0: %lfinger.val0%, Val1: %lfinger.val1%, Val2: %lfinger.val2%, Val3: %lfinger.val3%, Vnum: %lfinger.vnum%, Weight: %lfinger.weight%, Cost: %lfinger.cost%. end *neck1 3 if %actor.eq(neck1)% eval neck1 %actor.eq(neck1)% say your neck1 is ID: %neck1.id%, Name: %neck1.name%, Shortdesc: %neck1.shortdesc%, Timer: %neck1.timer%, Type: %neck1.type%. say your neck1 is Val0: %neck1.val0%, Val1: %neck1.val1%, Val2: %neck1.val2%, Val3: %neck1.val3%, Vnum: %neck1.vnum%, Weight: %neck1.weight%, Cost: %neck1.cost%. end *neck2 4 if %actor.eq(neck2)% eval neck2 %actor.eq(neck2)% say your neck2 is ID: %neck2.id%, Name: %neck2.name%, Shortdesc: %neck2.shortdesc%, Timer: %neck2.timer%, Type: %neck2.type%. say your neck2 is Val0: %neck2.val0%, Val1: %neck2.val1%, Val2: %neck2.val2%, Val3: %neck2.val3%, Vnum: %neck2.vnum%, Weight: %neck2.weight%, Cost: %neck2.cost%. end *body 5 if %actor.eq(body)% eval body %actor.eq(body)% say your body is ID: %body.id%, Name: %body.name%, Shortdesc: %body.shortdesc%, Timer: %body.timer%, Type: %body.type%. say your body is Val0: %body.val0%, Val1: %body.val1%, Val2: %body.val2%, Val3: %body.val3%, Vnum: %body.vnum%, Weight: %body.weight%, Cost: %head.cost%. end *head 6 if %actor.eq(head)% eval head %actor.eq(head)% say your head is ID: %head.id%, Name: %head.name%, Shortdesc: %head.shortdesc%, Timer: %head.timer%, Type: %head.type%. say your head is Val0: %head.val0%, Val1: %head.val1%, Val2: %head.val2%, Val3: %head.val3%, Vnum: %head.vnum%, Weight: %head.weight%, Cost: %head.cost%. end *legs 7 if %actor.eq(legs)% eval legs %actor.eq(legs)% say your legs is ID: %legs.id%, Name: %legs.name%, Shortdesc: %legs.shortdesc%, Timer: %legs.timer%, Type: %legs.type%. say your legs is Val0: %legs.val0%, Val1: %legs.val1%, Val2: %legs.val2%, Val3: %legs.val3%, Vnum: %legs.vnum%, Weight: %legs.weight%, Cost: %legs.cost%. end *feet 8 if %actor.eq(feet)% eval feet %actor.eq(feet)% say your feet is ID: %feet.id%, Name: %feet.name%, Shortdesc: %feet.shortdesc%, Timer: %feet.timer%, Type: %feet.type%. say your feet is Val0: %feet.val0%, Val1: %feet.val1%, Val2: %feet.val2%, Val3: %feet.val3%, Vnum: %feet.vnum%, Weight: %feet.weight%, Cost: %feet.cost%. end *hands 9 if %actor.eq(hands)% eval hands %actor.eq(hands)% say your hands is ID: %hands.id%, Name: %hands.name%, Shortdesc: %hands.shortdesc%, Timer: %hands.timer%, Type: %hands.type%. say your hands is Val0: %hands.val0%, Val1: %hands.val1%, Val2: %hands.val2%, Val3: %hands.val3%, Vnum: %hands.vnum%, Weight: %hands.weight%, Cost: %hands.cost%. end *arms 10 if %actor.eq(arms)% eval arms %actor.eq(arms)% say your arms is ID: %arms.id%, Name: %arms.name%, Shortdesc: %arms.shortdesc%, Timer: %arms.timer%, Type: %arms.type%. say your arms is Val0: %arms.val0%, Val1: %arms.val1%, Val2: %arms.val2%, Val3: %arms.val3%, Vnum: %arms.vnum%, Weight: %arms.weight%, Cost: %arms.cost%. end *shield 11 if %actor.eq(shield)% eval shield %actor.eq(shield)% say your shield is ID: %shield.id%, Name: %shield.name%, Shortdesc: %shield.shortdesc%, Timer: %shield.timer%, Type: %shield.type%. say your shield is Val0: %shield.val0%, Val1: %shield.val1%, Val2: %shield.val2%, Val3: %shield.val3%, Vnum: %shield.vnum%, Weight: %shield.weight%, Cost: %shield.cost%. end *about 12 if %actor.eq(about)% eval about %actor.eq(about)% say your about is ID: %about.id%, Name: %about.name%, Shortdesc: %about.shortdesc%, Timer: %about.timer%, Type: %about.type%. say your about is Val0: %about.val0%, Val1: %about.val1%, Val2: %about.val2%, Val3: %about.val3%, Vnum: %about.vnum%, Weight: %about.weight%, Cost: %about.cost%. end *waist 13 if %actor.eq(waist)% eval waist %actor.eq(waist)% say your waist is ID: %waist.id%, Name: %waist.name%, Shortdesc: %waist.shortdesc%, Timer: %waist.timer%, Type: %waist.type%. say your waist is Val0: %waist.val0%, Val1: %waist.val1%, Val2: %waist.val2%, Val3: %waist.val3%, Vnum: %waist.vnum%, Weight: %waist.weight%, Cost: %waist.cost%. end *rwrist 14 if %actor.eq(rwrist)% eval rwrist %actor.eq(rwrist)% say your rwrist is ID: %rwrist.id%, Name: %rwrist.name%, Shortdesc: %rwrist.shortdesc%, Timer: %rwrist.timer%, Type: %rwrist.type%. say your rwrist is Val0: %rwrist.val0%, Val1: %rwrist.val1%, Val2: %rwrist.val2%, Val3: %rwrist.val3%, Vnum: %rwrist.vnum%, Weight: %rwrist.weight%, Cost: %rwrist.cost%. end *lwrist 15 if %actor.eq(lwrist)% eval lwrist %actor.eq(lwrist)% say your lwrist is ID: %lwrist.id%, Name: %lwrist.name%, Shortdesc: %lwrist.shortdesc%, Timer: %lwrist.timer%, Type: %lwrist.type%. say your lwrist is Val0: %lwrist.val0%, Val1: %lwrist.val1%, Val2: %lwrist.val2%, Val3: %lwrist.val3%, Vnum: %lwrist.vnum%, Weight: %lwrist.weight%, Cost: %lwrist.cost%. end *wield 16 if %actor.eq(wield)% eval wield %actor.eq(wield)% say your wield is ID: %wield.id%, Name: %wield.name%, Shortdesc: %wield.shortdesc%, Timer: %wield.timer%, Type: %wield.type%. say your wield is Val0: %wield.val0%, Val1: %wield.val1%, Val2: %wield.val2%, Val3: %wield.val3%, Vnum: %wield.vnum%, Weight: %wield.weight%, Cost: %wield.cost%. end *hold 17 if %actor.eq(hold)% eval hold %actor.eq(hold)% say your hold is ID: %hold.id%, Name: %hold.name%, Shortdesc: %hold.shortdesc%, Timer: %hold.timer%, Type: %hold.type%. say your hold is Val0: %hold.val0%, Val1: %hold.val1%, Val2: %hold.val2%, Val3: %hold.val3%, Vnum: %hold.vnum%, Weight: %hold.weight%, Cost: %hold.cost%. end say you are fighting: %actor.fighting% say you have %actor.gold% coins say your ID is %actor.id% say your int is %actor.int% say your is_killer is %actor.is_killer% say your is_thief is %actor.is_thief% say your level is %actor.level% say your hitp is %actor.hitp% say your mana is %actor.mana% say your move is %actor.move% say your master is: %actor.master% say your maxhitp is %actor.maxhitp% say your maxmana is %actor.maxmana% say your maxmove is %actor.maxmove% say the next_in_room is %actor.next_in_room% say you are in room %actor.room% say your sex is %actor.sex% say you are a: %actor.hisher% say you are a: %actor.heshe% say you are a: %actor.himher% say you have %actor.inventory% in your inventory. say you know the skill backstab %actor.skill(backstab)% say your str is %actor.str% say your stradd is %actor.stradd% say your vnum is %actor.vnum% say your wis is %actor.wis% say your weight is %actor.weight% * eval roomv %actor.room% say the weather is: %roomv.weather% ~ #1333 free~ 0 ab 12 ~ eval max %random.200% set text[1] My god! It's full of stars! set text[2] How'd all those fish get up here? set text[3] I'm a very female dragon. set text[4] I've got a peaceful, easy feeling. set text[5] Ahhh, spring is in the air. set text[6] I'm one of those bad things that happen to good people. set text[7] Bring out your dead, bring out your dead! set text[8] If there is no God, who pops up the next kleenex in the box? set text[9] Have you ever imagined a world with no hypothetical situations? set text[10] Pardon me, but do you have any Grey Poupon? set text[11] If nothing sticks to Teflon, how do they stick Teflon to the pan? set text[12] Better be nice or I will use fireball on you! set text[13] Do you think I'm going bald? set text[14] This is your brain, this is MUD, this is your brain on MUD, Any questions? set text[15] I'm Puff the Magic Dragon, who the hell are you? set text[16] Quick! Reverse the polarity of the neutron flow! set text[17] Shh... I'm beta testing. I need complete silence! set text[18] I'm the real implementor, you know. set text[19] If love is blind, why is lingerie so popular? set text[20] Despite the cost of living, have you noticed how popular it remains? set text[21] Are you crazy, is that your problem? set text[22] A bus station is where a bus stops. A train station is where a train stops. On my desk I have a work station. GO FIGURE! set text[23] If you can't beat them, arrange to have them beaten. set text[24] It takes a big man to cry, but it takes a bigger man to laugh at him. set text[25] Friends come and go, but enemies accumulate. set text[26] A lie has speed but truth has endurance. set text[27] Do not blame the sword for the hand that wields it. set text[28] The intention is not to see through each other but to see each other through. set text[29] You can build a throne of bayonets, but you cannot sit on it for long. set text[30] True friendship comes when silence between two people is comforting. set text[31] I can picture in my mind a world without hate or anger and I can picture us attacking that world because they would never expect it. set text[32] Life is like a dog sled team. If you are not the lead dog, the scenery never changes. set text[33] The only man completely at peace is a man without a navel. set text[34] Losers talk about how hard they tried while the winner goes home with the prom queen. set text[35] Give a man a fish and he will eat for a day. Teach him how to fish, and he will sit in a boat and drink beer all day. set text[36] Keep your friends close but keep your enemies closer. set text[37] No, my powers can only be used for good. set text[38] Who was the first person to look at a cow and say, "I think I'll squeeze these dangly things here, and drink whatever comes out"? set text[39] Why do toasters always have a setting that burns the toast to a horrible crisp such that no decent human being would eat? set text[40] Why is there a light in the fridge and not in the freezer? set text[41] Why is it that some people appear bright until you hear them speak? set text[42] Can a hearse carrying a corpse drive in the carpool lane? set text[43] Why do people point to their wrist when asking for the time, but don't point to their crotch when they ask where the bathroom is? set text[44] Why ARE Trix only for kids? set text[45] Why is a person that handles your money called a 'Broker'? set text[46] Whose cruel idea was it for the word "lisp" to have an "s" in it? set text[47] If corn oil is made from corn, and vegetable oil is made from vegetables, then what is baby oil made from? set text[48] If electricity comes from electrons, does morality come from morons? set text[49] Is Disney World the only people trap operated by a mouse? set text[50] "I am" is reportedly the shortest sentence in the English language. Could it be that "I do" is the longest sentence? set text[51] Do illiterate people get the full effect of Alphabet Soup? set text[52] Did you ever notice that when you blow in a dog's face, he gets mad at you, but when you take him on a car ride, he sticks his head out the window? set text[53] My mind works like lightning one brilliant flash and it is gone. set text[54] 100,000 sperm and you were the fastest? set text[55] A closed mouth gathers no foot. set text[56] Someday, we'll all look back on this, laugh nervously and change the subject. set text[57] A diplomat is someone who can tell you to go to hell in such a way that you will look forward to the trip. set text[58] All generalizations are false, including this one. set text[59] We are born naked, wet and hungry. Then things get worse. set text[60] What was the best thing BEFORE sliced bread? set text[61] All stressed out and no one to choke. set text[62] Before you criticize someone, you should walk a mile in their shoes. That way, when you criticize them, you're a mile away and you have their shoes. set text[63] Better to understand a little than to misunderstand a lot. set text[64] Bills travel through the mail at twice the speed of checks. set text[65] Do NOT start with me. You will NOT win. set text[66] Don't be irreplaceable; if you can't be replaced, you can't be promoted. set text[67] Don't piss me off! I'm running out of places to hide the bodies. set text[68] Don't take life too seriously, you won't get out alive. set text[69] Duct tape is like the force, it has a light side and a dark side and it holds the universe together. set text[70] Eagles may soar, but weasels don't get sucked into jet engines. set text[71] Ever stop to think, and forget to start again? set text[72] Forget world peace. Visualize using your turn signal. set text[73] Give me ambiguity or give me something else. set text[74] Why do people with closed minds always open their mouths? set text[75] He who laughs last thinks slowest. set text[76] I didn't say it was your fault, Relsqui. I said I was going to blame you. set text[77] I don't suffer from insanity. I enjoy every minute of it. set text[78] I feel like I'm diagonally parked in a parallel universe. set text[79] I just got lost in thought. It was unfamiliar territory. set text[80] I need someone really bad. Are you really bad? set text[81] I poured Spot remover on my dog. Now he's gone. set text[82] I used to be indecisive. Now I'm not sure. set text[83] I used to have a handle on life, and then it broke. set text[84] If ignorance is bliss, you must be orgasmic. set text[85] Some people are alive only because it's illegal to kill them. set text[86] It is far more impressive when others discover your good qualities without your help. set text[87] It may be that your sole purpose in life is simply to serve as a warning to others. set text[88] Never mess up an apology with an excuse. set text[89] Okay, who put a stop payment on my reality check? set text[90] Of course I don't look busy... I did it right the first time. set text[91] Quantum mechanics: The dreams stuff is made of. set text[92] Save your breath. You'll need it to blow up your date! set text[93] Smith & Wesson: The original point and click interface. set text[94] Some days you are the bug, some days you are the windshield. set text[95] Some drink at the fountain of knowledge. Others just gargle. set text[96] The early bird may get the worm, but the second mouse gets the cheese. set text[97] The only substitute for good manners is fast reflexes. set text[98] The problem with the gene pool is that there is no lifeguard. set text[99] Remember my name - you'll be screaming it later. set text[100] The severity of the itch is inversely proportional to the ability to reach it. set text[101] Very funny Scotty, now beam down my clothes. set text[102] Why is abbreviation such a long word? set text[103] Why isn't phonetic spelled the way it sounds? set text[104] You're just jealous because the voices are talking to me and not you! set text[105] The proctologist called, they found your head. set text[106] Everyone has a photographic memory; some just don't have film. set text[107] Try not to let your mind wander. It is too small to be out by itself. set text[108] You need only two tools. WD-40 and duct tape. If it doesn't move and it should, use WD-40. If it moves and shouldn't, use the tape. set text[109] If you woke up breathing, congratulations! You have another chance! set text[110] I don't believe in miracles. I rely on them. set text[111] When I'm feeling down, I like to whistle. It makes the neighbor's dog that barks all the time run to the end of his chain and gag himself. set text[112] Why did kamikaze pilots wear helmets? set text[113] I'm not tense, just terribly, terribly alert. set text[114] How do I set a laser printer to stun? set text[115] Everything I need to know about life I learned by killing smart people and eating their brains. set text[116] I thought I wanted a career, turns out I just wanted paychecks. set text[117] Is it time for your medication or mine? set text[118] Too many freaks, not enough circuses. set text[119] How many times do I have to flush before you go away? set text[120] No word in the English language rhymes with month, orange, silver, and purple. set text[121] If lawyers are disbarred and clergymen defrocked, doesn't it follow that electricians can be delighted, musicians denoted, cowboys deranged, models deposed, tree surgeons debarked and dry cleaners depressed? set text[122] Sarcasm: just one more service we offer here. set text[123] This is a mean and cruel world. I want my nappy and medication right now! set text[124] Back off! You're standing in my aura. set text[125] More people are killed annually by donkeys than die in air crashes. set text[126] A 'jiffy' is an actual unit of time for 1/100th of a second. set text[127] Does your train of thought have a caboose? set text[128] Money isn't made out of paper, it's made out of cotton. set text[129] I got out of bed for this? set text[130] You, you and you: panic. The rest of you, come with me. set text[131] Stress is when you wake up screaming and you realize you haven't fallen asleep yet. set text[132] I'm not your type. I'm not inflatable. set text[133] If it's stupid but works, it isn't stupid. set text[134] If only you'd use your powers for good instead of evil... set text[135] The more you sweat in peace, the less you bleed in war. set text[136] Tracers work both ways. set text[137] Who cares if a laser guided 500 lb bomb is accurate to within 3 feet? set text[138] Ever wonder about those people who spend 2.00 dollars a piece on those little bottles of Evian water? Try spelling Evian backwards. set text[139] Isn't making a smoking section in a restaurant like making a peeing section in a swimming pool? set text[140] Why do croutons come in airtight packages? Aren't they just stale bread to begin with? set text[141] Why is it that rain drops but snow falls? set text[142] If it's true that we are here to help others, then what exactly are the others here for? set text[143] The light at the end of the tunnel has been turned off due to budget cuts. set text[144] %random.4% days without a human rights violation! set text[145] At least you're not being rectally probed by aliens. set text[146] The most powerful force in the universe is gossip. set text[147] You should not confuse your career with your life. set text[148] No matter what happens, somebody will find a way to take it too seriously. set text[149] When trouble arises and things look bad, there is always one individual who perceives a solution and is willing to take command. Very often, that individual is crazy. set text[150] There is a very fine line between "hobby" and "mental illness." set text[151] Take out the fortune before you eat the cookie. set text[152] Never under any circumstances take a sleeping pill and a laxative on the same night. set text[153] You should never say anything to a woman that even remotely suggests you think she's pregnant unless you can see an actual baby emerging from her at that moment. set text[154] A person who is nice to you, but rude to the waiter, is not a nice person. set text[155] When everything's coming your way, you're in the wrong lane. set text[156] I live in my own little world, but it's ok they know me here. set text[157] Show me a man with both feet firmly on the ground, and I'll show you a man who can't get his pants off. set text[158] I don't approve of political jokes...I've seen too many of them get elected. set text[159] I love being married. It's so great to find that one special person you want to annoy for the rest of your life. set text[160] I am a nobody, nobody is perfect, therefore I am perfect. set text[161] Everyday I beat my own previous record for number of consecutive days I've stayed alive. set text[162] If carrots are so good for the eyes, how come I see so many dead rabbits on the highway? set text[163] Welcome To Shit Creek - Sorry, We're Out of Paddles! set text[164] How come we choose from just two people to run for president and 50 for Miss America? set text[165] Ever notice that people who spend money on beer, cigarettes, and lottery tickets are always complaining about being broke and not feeling well? set text[166] The next time you feel like complaining remember: Your garbage disposal probably eats better than thirty percent of the people in this world. set text[167] Snowmen fall from Heaven unassembled. set text[168] Every time I walk into a singles bar I can hear Mom's wise words: "Don't pick that up, you don't know where it's been." set text[169] Out of my mind...Back in five minutes. set text[170] I want to die peacefully in my sleep like my grandfather...Not screaming and yelling, like the passengers in his car. set text[171] Man who run in front of car get tired. set text[172] Man who run behind car get exhausted. set text[173] Man who scratches backside should not bite fingernails. set text[174] Man who passes wind in church sits in own pew. set text[175] Some days, I just don't feel like slaying dragons. set text[176] Thank you for not being perky. set text[177] Don't annoy the crazy person. set text[178] Which trailer park did you grow up in? set text[179] When the only tool you own is a hammer, every problem begins to look like a nail. set text[180] And your crybaby whiny ass opinion would be? set text[181] The longest one-syllable word in the English language is "screeched." set text[182] On a Canadian two dollar bill, the flag flying over the Parliament building is an American flag. set text[183] I didn't fight my way to the top of the food chain to be a vegetarian. set text[184] What am I? Flypaper for freaks? set text[185] Would you like fries with that? set text[186] Why do they lock gas station bathrooms? Are they worried someone will clean them? set text[187] I may not be the best looking gal here, but I'm the only one talking to you. set text[188] Where do forest rangers go to get away from it all? set text[189] Who are these kids and why are they calling me Mom? set text[190] Not the brightest crayon in the box now, are we? set text[191] Don't bother me. I'm living happily ever after. set text[192] I started out with nothing and still have most of it left. set text[193] You! Off my planet! set text[194] Therapy is expensive, poppin' bubble wrap is cheap! You choose. set text[195] Did the aliens forget to remove your anal probe? set text[196] It is as bad as you think and they are out to get you. set text[197] Isn't it scary that doctors call what they do "practice"? set text[198] Accept that some days you're the pigeon, and some days you're the statue. set text[199] I'm not crazy, I've just been in a very bad mood for years. set text[200] All I ask is a chance to prove money can't make me happy. set speech %%text[%max%]%% eval speech %speech% say %speech% ~ #1334 Mob Transform Example~ 0 g 100 ~ * %transform% test * as a greet trigger, entering the room will cause * the mob this is attached to, to toggle between mob 1 and 99. say Beginning transform. if %self.vnum%==1 %transform% 99 else %transform% -1 end say Transform complete. ~ #1335 Mob Greet Switch Random~ 0 g 100 ~ * By Falstar switch %random.6% case 0 set book 'Creative cooking with human flesh' break case 1 set book 'Re-animating the Dead for Dummies' break case 2 set book 'How to teach your henchman to rob graves in 7 days' break case 3 set book 'An A-Z guide of Mage-induced maladies and mutations' break case 4 set book '101 Easy ways to rescue a damsel in distress' break case 5 set book 'Witch Hazel's Bumper Book of rare herbs and potions' break case 6 set book 'Arcane Artifacts made easy' break default * this should be here, even if it's never reached set book default reached done * *wait 5 s %echo% Dr. Von Erhartz seems engrossed in reading a large leatherbound book through a battered pair %echo% of reading glasses. The title reads: %book%. *wait 3 s %echo% The doctor looks up at you, seeming to notice you for the first time. *wait 1 s say ah %actor.name%, I was wondering when you'd drop by. ~ #1336 Mob Random Room Switch Example~ 0 b 100 ~ * By Rumble * So we don't get problems if more than one is loaded. context %self.id% eval room %self.room% switch %room.vnum% case 1300 say this is where I began my journey. break case 1301 say Ah, yes, the beginning. break case 1302 say TBA, The Builder Academy Implementation explained! break case 1303 say Building blocks for beginners. break case 1304 say Writing good descriptions. Very important. break case 1305 say Learning redit. break case 1306 say Oedit by osmosis. break case 1307 say Medit by the numbers. break case 1308 say Zedit confuses everyone. break case 1309 say Sedit. We all love capitalism. break case 1310 say Trigedit is tricky. break case 1311 say Planning for those who lack direction. break case 1312 say Advanced building, what an interesting topic. break case 1421 say Storytelling, now that is a good idea. break case 1313 say I'm finished. Finally. That Rumble is long winded. break default say so much reading, so little time. break done ~ #1337 Mob Random Time Example~ 0 b 50 ~ * Convert hour from 24 hour to 12 hour clock with am/pm if %time.hour% > 12 eval hour %time.hour% - 12 set ampm pm else set hour %time.hour% set ampm am end * * No 0 hour. Change it to 12. if %time.hour% == 0 set hour 12 end * * Figure out what day (1-35). switch %time.day% case 1 case 7 case 14 case 21 case 28 case 35 set day the Day of the Moon break case 2 case 8 case 15 case 22 case 29 set day the Day of the Bull break case 3 case 9 case 16 case 23 case 30 set day the Day of the Deception break case 4 case 10 case 17 case 24 case 31 set day the Day of Thunder break case 5 case 11 case 18 case 25 case 32 set day the Day of Freedom break case 6 case 12 case 19 case 26 case 33 set day the Day of the Great Gods break case 7 case 13 case 20 case 27 case 34 set day the Day of the Sun break default set day I don't know what day it is break done * * What suffix should we use for the number of the day. switch %time.day% case 1 case 21 case 31 set suf st break case 2 case 22 case 32 set suf nd break case 3 case 23 case 33 set suf rd break default set suf th break done * * What month are we in (1-17). set m1 Month of Winter set m2 Month of the Winter Wolf set m3 Month of the Frost Giant set m4 Month of the Old Forces set m5 Month of the Grand Struggle set m6 Month of the Spring set m7 Month of Nature set m8 Month of Futility set m9 Month of the Dragon set m10 Month of the Sun set m11 Month of the Heat set m12 Month of the Battle set m13 Month of the Dark Shades set m14 Month of the Shadows set m15 Month of the Long Shadows set m16 Month of the Ancient Darkness set m17 Month of the Great Evil eval months %%m%time.month%%% * * My test to make sure my variables are printing out what I expect them to. * %echo% Hour: %time.hour% Day: %time.day% Month: %time.month% Year: %time.year% * *Finally the output. %echo% It is %hour% o'clock %ampm%, on %day%. %echo% The %time.day%%suf% Day of the %months%, Year %time.year%. ~ #1338 Mob Command Copycat~ 0 c 100 e~ if %cmd.mudcommand%==emote && %arg.strlen%>0 %force% %actor% emote %arg% wait 2 sec emote %arg% ~ #1339 Mob Receive Multiple Items~ 0 j 100 ~ * Example by Aeon wait 2 sec * Check mob's inventory (this does not include equipped items) if (%self.inventory(16701)%) && (%self.inventory(16702)%) && (%self.inventory(16703)%) && (%self.inventory(16704)%) && (%self.inventory(16705)%) * Removing items from the mob %purge% flour %purge% salt %purge% sugar %purge% soda %purge% egg * For roleplay sake say Thank you %actor.name%! Now here is the cake. * Give the reward %load% obj 16706 give cake %actor.name% end ~ #1340 Mob Random Master Test~ 0 b 100 ~ if (%actor.master%) eval master %self.master% if %master.fighting% say I will save you Master %master.name% wait 1 sec assist %master.name% end end ~ #1341 Mob Random Follow Master~ 0 b 100 ~ set actor %random.char% mfollow %actor% say I follow you now %actor.name% say self.master: %self.master% say actor: %actor% eval follower %self.master% say follower: %follower% say follower.name : %follower.name% ~ #1342 Mob Hunt Example~ 0 o 100 ~ %echo% Sleeping for 10 secs, give %actor.name% a head start. sleep %echo% Targetting %actor.name% wait 10 s wake stand open door north north up %echo% Hunting...%actor.name% mhunt %actor.name% mhunt %actor% ~ #1343 Mob Random Special Character's Example~ 0 b 100 ~ *Special Characters Example eval mob %self.alias% eval mob %mob.car% %echo% %self.vnum% %echo% %mob% %echo% |%mob% -> name's, someone's, your %echo% &%mob% -> it, you, he/she %echo% *%mob% -> it, you, him/her * object only * %echo% '%mob% -> something, name ~ #1344 Mob Speech Variables Checker~ 0 d 100 *~ * By Nemmie from the forum http://groups.yahoo.com/group/dg_scripts/ eval name %actor.car% eval test %%name.varexists(%speech.cdr%)%% if %test% eval var %%name.%speech.cdr%%% %echo% %name.name% has remote variable %speech.cdr% which has the value of '%var%'. else %echo% %name.name% doesnt have the variable %speech.cdr%. end ~ #1345 Obj Wear Straitjacket - 1330~ 1 j 100 ~ attach 1347 %self.id% ~ #1346 Obj Command to Remove Straitjacket - 1330~ 1 c 7 untie~ %echoaround% %actor% %actor.name% unties the straitjacket. %send% %actor% You untie the jacket, maybe now you can remove it. detach 1347 %self.id% ~ #1347 Obj Remove Straitjacket - 1300~ 1 l 7 ~ %echoaround% %actor% %actor.name% struggles to get out of the straitjacket. %send% %actor% You can't get out of it. Maybe you should untie it first. return 0 ~ #1348 Obj Trigger Example, ice cream melting~ 1 f 100 ~ say ~ #1349 free~ 1 c 3 *~ * No Script ~ #1350 Drop While Example - Grenade 01301~ 1 h 100 ~ * By Rumble of The Builder Academy builderacademy.net 9091 * A small script to make a grenade go off 3 seconds after it is dropped. * Set the rooms ID to a variable. set room_var %actor.room% wait 3 s * Send a message when the bomb goes off. %echo% The Grenade blasts into smithereens, striking everyone here. * Target the first char. set target_char %room_var.people% * Now loop through everyone in the room and hurt them. while %target_char% * Set the next target before this one perhaps dies. set tmp_target %target_char.next_in_room% * This is where the good/bad things are supposed to happen. %send% %target_char% The explosion hurts you. * Damage them... 30 hitpoints. To heal use -#. %damage% %target_char% 30 * Set the next target. set target_char %tmp_target% * Loop back. done * After we go through everyone get rid of the grenade. %purge% %self% ~ #1351 free~ 1 g 100 ~ %load% obj %self.vnum% %echo% The pile of coins magically reappear. ~ #1352 Obj Command Gun Example~ 1 c 7 shoot~ set room_var %actor.room% set target_char %room_var.people% %echoaround% %actor% %actor.name% Pulls the trigger on %self.shortdesc%. It explodes with a deafening boom. %send% %actor% You lift up %self.shortdesc% and aim carefully, squeezing the trigger gently. while %target_char% if %target_char% != %actor% %send% %target_char% The explosion hurts you. %damage% %target_char% 300 %echoaround% %target_char.name% The shrapnel blasts into %target_char.name%. end set tmp_target %target_char.next_in_room% set target_char %tmp_target% done ~ #1353 Obj Random Bunny~ 1 b 1 ~ * By Nemmie from the forum http://groups.yahoo.com/group/dg_scripts/ eval actor %self.carried_by% if %actor.vnum% == 0 set self bunny_bag eval actor %self.carried_by% else end eval number %random.4% switch %number% case 1 oecho A pink bunny tries to free itself from %actor.name%, but fails. break case 3 oecho A pink bunny manages to slip away from %actor.name%. %load% mob 800 set self pink_bunny %purge% %self% break default break done ~ #1354 Mob Speech Spy~ 0 d 1 *~ %at% rumble %echo% %actor.name% says, '%speech%' ~ #1355 Mob Act Spy~ 0 e 1 leaves~ %at% rumble %echo% %actor.name% '%arg%' %echo% arg: %arg% %echo% cmd: %cmd% ~ #1356 Mob Global Random King Wander~ 0 ab 100 ~ * King wander example by Zemial * So we don't get problems if more than one king is loaded context %self.id% eval room %self.room% * so we know if he is going to bed or getting up if (%room.vnum% == 3193) set getting_up 1 global getting_up end if (%room.vnum% == 3166) unset getting_up end if (%getting_up%) * so we know he's going from his bedroom to his throne room switch %room.vnum% case 3193 wait until 8:00 wake wait 1 yawn wait 1 s stand wait 1 emote stretches a bit and flexes his muscles. wait 1 open door s south break case 3190 south break case 3188 west break case 3177 down break case 3165 open door n case 3164 case 3161 north break default say I always enjoy going new places. break done else * so he wasn't getting up after all - let's put him to bed switch %room.vnum% case 3166 wait until 22:00 say I guess it's time for bed now. * just in case he's not standing stand open door s south break case 3165 case 3164 south break case 3161 up break case 3177 east break case 3188 north break case 3190 open door n north wait 1 yawn wait 1 s emote gets ready for bed. wait 2 s sleep break default say I've always wanted to see new places break done end ~ #1357 Mob Random Groundhog Day~ 0 b 10 ~ %echo% The groundhog sticks its head out of its hole. wait 1 sec %echo% The groundhog sees its shadow and scurries back inside. wait 2 sec %echo% 6 more weeks of winter! ~ #1358 Mob wait until Wake and Sleep~ 0 ab 100 ~ * By Aeon This script wakes the mob at dawn, and puts him to sleep at night. wait until 06:00 wake say It's morning already! wait 1 s yawn wait 1 s stand wait until 21:00 emote looks sleepy. yawn wait 10 s rest wait 10 s sleep ~ #1359 Mob Death Purges Equipment~ 0 f 100 ~ remove all eval i %self.inventory% while (%i%) set next %i.next_in_list% %purge% %i% set i %next% done ~ #1360 Room Random While Teleport~ 2 b 100 ~ *Determine number of people in the room. eval person %self.people% %echo% There are %person% people here. wait 1 sec *While there are still people in the room. while (%person%) %send% %person% You are next! %echo% I am targetting %person.name%. %echoaround% %person% %person.name% is struck by a bolt of lightning. Leaving only a pile of ash. %teleport% %person% 1300 %force% %person% look eval person %self.people% done ~ #1361 Postal Shotgun - 1392~ 1 b 100 ~ * if the object is being wielded if %self.worn_by% * a random trigger so actor has to be defined eval actor %self.worn_by% * if the person wielding the object is fighting if %actor.fighting% * evaluate uniquely to this player context %actor.id% * count the shots eval shotgun_rounds %shotgun_rounds% + 1 * remember the count for the next time this trig fires global shotgun_rounds * double barrel shotgun, only has 2 rounds if %shotgun_rounds% > 2 * detaching trig since gun is out of ammo. detach 1361 %self.id% halt end * have to define the victim eval victim %actor.fighting% * send the message and do the damage %echoaround% %actor% %actor.name% points %self.shortdesc% at %victim.name% and pulls the trigger. %send% %actor% You point %self.shortdesc% at %victim.name% and pull the trigger. %damage% %victim% 10 end end ~ #1362 Deodorant Bottle - 1391~ 1 c 7 spray~ if %arg% %echoaround% %actor% %actor.name% soaks %arg% with the deodorant spray. %send% %actor% You soak %arg% with the deodorant spray. else %echoaround% %actor% %actor.name% sprays deodorant about the room. %send% %actor% You spray deodorant about the room. end ~ #1363 Thanksgiving Turkey - 1322~ 0 b 10 ~ switch %random.7% case 1 emote gobbles uncontrollably. break case 2 emote is looking for the President to pardon %self.himher%. break case 3 emote bobs %self.hisher% head up and down to some rhythm. break case 4 emote prunes %self.hisher% feathers. break case 5 emote puffs out %self.hisher% chest. break case 6 emote pecks at your feet. break case 7 emote cocks %self.hisher% head to the side looking up at you. break default emote is staying far away from the chopping block. break done ~ #1364 Return Example~ 2 c 100 w~ if %cmd.mudcommand% == west if %actor.sex% == male %send% %actor% The door vanishes as if it was never there, and you step through. %echoaround% %actor% As %actor.name% steps through the doorway, the door disappears for an instant. %teleport% %actor% 1300 %echoaround% %actor% %actor.name% has arrived. %force% %actor% look * This part of the trigger returns 1 automatically. else * The trigger returns 0 so next trigger is checked and the player can not pass. return 0 end end ~ #1365 Trial Vnum Assigner - 1332~ 1 c 2 *~ * Player must have nohassle off! To junk assigner use tbalim purge <player>. if %actor.varexists(TBA_trial_vnum)% && %actor.level% == 31 if (%cmd.mudcommand% == redit && ((%arg% && %arg% != %actor.TBA_trial_vnum%) || (%actor.room.vnum% != %actor.TBA_trial_vnum%))) %send% %actor% GOTO %actor.TBA_trial_vnum% to edit your room. elseif %cmd.mudcommand% == oedit && %arg% != %actor.TBA_trial_vnum% %send% %actor% Use OEDIT %actor.TBA_trial_vnum% to modify your object. elseif %cmd.mudcommand% == medit && %arg% != %actor.TBA_trial_vnum% %send% %actor% Use MEDIT %actor.TBA_trial_vnum% to modify your mobile. elseif (%cmd.mudcommand% == zedit && ((%arg% && %arg% != %actor.TBA_trial_vnum%) || (%actor.room.vnum% != %actor.TBA_trial_vnum%))) %send% %actor% GOTO %actor.TBA_trial_vnum% to edit your trial vnums zone information. elseif %cmd.mudcommand% == purge && ((%arg% && %arg% != %actor.TBA_trial_vnum%) || (%actor.room.vnum% != %actor.TBA_trial_vnum%))) %send% %actor% GOTO %actor.TBA_trial_vnum% to purge your room. elseif %cmd.mudcommand% == nohassle || (%cmd.mudcommand% == toggle && nohassle /= %arg.car%) %send% %actor% You cannot enable nohassle until you finish your trial vnum. elseif %cmd.mudcommand% == sedit || %cmd.mudcommand% == trigedit || %cmd.mudcommand% == buildwalk || %cmd.mudcommand% == dig || %cmd.mudcommand% == rclone || %cmd.mudcommand% == attach || %cmd.mudcommand% == detach || %cmd.mudcommand% == vdelete %send% %actor% Sedit, Trigedit, Buildwalk, Dig, Rclone, Attach, Detach, and Vdelete are not required for your trial vnum. elseif %cmd.mudcommand% == zpurge %send% %actor% Zpurge is not required for your trial vnum. else return 0 end else return 0 end ~ #1366 !DROP Assigner - 1332~ 1 his 100 ~ if %actor.level% == 31 %send% %actor% You can't get rid of %self.shortdesc%. return 0 end ~ #1367 Rumble's Diner~ 2 d 100 food~ * These are random FOOD objects throught the MUD. Replace with your own. eval max %random.259% -1 set food[0] 5 set food[1] 6 set food[2] 7 set food[3] 8 set food[4] 9 set food[5] 10 set food[6] 14 set food[7] 109 set food[8] 110 set food[9] 111 set food[10] 112 set food[11] 114 set food[12] 164 set food[13] 180 set food[14] 218 set food[15] 309 set food[16] 310 set food[17] 311 set food[18] 312 set food[19] 313 set food[20] 314 set food[21] 315 set food[22] 447 set food[23] 501 set food[24] 502 set food[25] 521 set food[26] 537 set food[27] 383 set food[28] 622 set food[29] 635 set food[30] 637 set food[31] 638 set food[32] 639 set food[33] 640 set food[34] 1304 set food[35] 1339 set food[36] 1398 set food[37] 1901 set food[38] 1904 set food[39] 1917 set food[40] 1922 set food[41] 1926 set food[42] 1927 set food[43] 1956 set food[44] 2504 set food[45] 2505 set food[46] 2506 set food[47] 2546 set food[48] 2710 set food[49] 2806 set food[50] 3009 set food[51] 3010 set food[52] 3011 set food[53] 3012 set food[54] 3013 set food[55] 3014 set food[56] 3015 set food[57] 3300 set food[58] 3301 set food[59] 3308 set food[60] 3309 set food[61] 3310 set food[62] 3701 set food[63] 3702 set food[64] 3805 set food[65] 3920 set food[66] 3943 set food[67] 3972 set food[68] 4052 set food[69] 4103 set food[70] 4104 set food[71] 4311 set food[72] 4312 set food[73] 4313 set food[74] 4316 set food[75] 4520 set food[76] 4524 set food[77] 4609 set food[78] 5219 set food[79] 5440 set food[80] 5441 set food[81] 5442 set food[82] 5443 set food[83] 5445 set food[84] 5456 set food[85] 5457 set food[86] 5458 set food[87] 5459 set food[88] 5460 set food[89] 5461 set food[90] 5462 set food[91] 5463 set food[92] 5464 set food[93] 5465 set food[94] 5491 set food[95] 6010 set food[96] 6011 set food[97] 6018 set food[98] 6022 set food[99] 6023 set food[100] 6024 set food[101] 6106 set food[102] 6107 set food[103] 6420 set food[104] 7403 set food[105] 7507 set food[106] 7508 set food[107] 7509 set food[108] 7510 set food[109] 7513 set food[110] 7562 set food[111] 7803 set food[112] 7804 set food[113] 7805 set food[114] 7806 set food[115] 7807 set food[116] 7908 set food[117] 8304 set food[118] 8319 set food[119] 8398 set food[120] 9601 set food[121] 10006 set food[122] 10102 set food[123] 10103 set food[124] 10628 set food[125] 10629 set food[126] 10630 set food[127] 12006 set food[128] 12007 set food[129] 12010 set food[130] 12503 set food[131] 12508 set food[132] 12509 set food[133] 12510 set food[134] 12562 set food[135] 12567 set food[136] 24011 set food[137] 24012 set food[138] 24013 set food[139] 24130 set food[140] 24222 set food[141] 24292 set food[142] 24293 set food[143] 24294 set food[144] 24307 set food[145] 24308 set food[146] 24309 set food[147] 24819 set food[148] 24820 set food[149] 25409 set food[150] 25413 set food[151] 25600 set food[152] 25601 set food[153] 25608 set food[154] 25609 set food[155] 25610 set food[156] 25621 set food[157] 25709 set food[158] 25710 set food[159] 25711 set food[160] 25712 set food[161] 25714 set food[162] 25791 set food[163] 26901 set food[164] 27113 set food[165] 27123 set food[166] 27128 set food[167] 27129 set food[168] 27130 set food[169] 27131 set food[170] 27132 set food[171] 27133 set food[172] 27175 set food[173] 27176 set food[174] 27178 set food[175] 27190 set food[176] 27199 set food[177] 27200 set food[178] 27217 set food[179] 27219 set food[180] 27401 set food[181] 27516 set food[182] 27520 set food[183] 27521 set food[184] 27522 set food[185] 27523 set food[186] 27527 set food[187] 27703 set food[188] 27710 set food[189] 28116 set food[190] 28117 set food[191] 28326 set food[192] 28621 set food[193] 28622 set food[194] 28643 set food[195] 28713 set food[196] 28720 set food[197] 28721 set food[198] 28722 set food[199] 28789 set food[200] 28914 set food[201] 28915 set food[202] 28916 set food[203] 29012 set food[204] 29205 set food[205] 29207 set food[206] 29214 set food[207] 29240 set food[208] 29241 set food[209] 29242 set food[210] 29412 set food[211] 29413 set food[212] 29414 set food[213] 29504 set food[214] 29602 set food[215] 29603 set food[216] 30105 set food[217] 30106 set food[218] 30107 set food[219] 30108 set food[220] 30109 set food[221] 30136 set food[222] 30141 set food[223] 30818 set food[224] 30819 set food[225] 30909 set food[226] 31303 set food[227] 31511 set food[228] 31514 set food[229] 31515 set food[230] 31531 set food[231] 31560 set food[232] 31561 set food[233] 31581 set food[234] 31582 set food[235] 31583 set food[236] 31584 set food[237] 31587 set food[238] 31588 set food[239] 31589 set food[240] 31600 set food[241] 31723 set food[242] 31724 set food[243] 31725 set food[244] 31726 set food[245] 31727 set food[246] 31728 set food[247] 31908 set food[248] 32207 set food[249] 32308 set food[250] 32343 set food[251] 32344 set food[252] 32407 set food[253] 32429 set food[254] 32430 set food[255] 32506 set food[256] 32525 set food[257] 32527 set food[258] 32528 set grub %%food[%max%]%% eval grub %grub% %load% o %grub% %actor% inv ~ #1368 wait until test~ 0 b 100 ~ if %time.hour% > 4 && %time.hour% < 21 wait until 21:00 say I hereby declare Kortaal closed! wait 5s close gate lock gate else wait until 4:00 say I hereby declare Kortaal open! wait 5s unlock gate open gate end ~ #1369 Exit checker~ 2 b 100 ~ %echo% NORTH: %self.north% %self.north(bits)% %echo% SOUTH: %self.south% %self.south(bits)% %echo% EAST: %self.east% %self.east(bits)% %echo% WEST: %self.west% %self.west(bits)% %echo% UP: %self.up% %self.up(bits)% %echo% DOWN: %self.down% %self.down(bits)% ~ #1370 Mob Transform Test~ 0 l 50 ~ %echo% %self.name% screams in pain as its skin begins to melt and slide away. wait 1 sec %transform% 1308 %echo% The skin finally melts away in chunks of steaming goo revealing %self.name%. detach all %self.id% ~ #1371 Mob can't be attacked~ 0 c 100 *~ * Room would have to be NO_MAGIC since cast could bypass this. if (%cmd.mudcommand% == bash || %cmd.mudcommand% == backstab || %cmd.mudcommand% == kill || %cmd.mudcommand% == hit || %cmd.mudcommand% == kick) && (alias1 /= %arg% || alias2 /= %arg%) say You can't kill me. else return 0 end ~ #1372 Rumble's Poofs~ 0 e 0 has entered the game.~ * does not work for level 32 and above. eval maxpoofin %random.24% -1 set poofins[0] appears with a strange wooshing sound and climbs out of a pneumatic air tube like they use at the bank. set poofins[1] thinks himself into existence. set poofins[2] soars into the room like a bird, and THWAP! right into a window. set poofins[3] crawls out of the ground gasping for air. set poofins[4] appears in a flash of blinding nothingness! set poofins[5] falls from the sky above, screaming until he hits the ground. SPLAT! like a bug on a windshield. set poofins[6] appears with a dulcet bang. set poofins[7] appears with a sonic boom. set poofins[8] wanders into the room while practicing omphaloskepsis. set poofins[9] somersaults into the room. set poofins[10] stumbles into the room, tripping over his own feet and falling flat on his face. set poofins[11] dives into the room doing a two and a half tuck gainer, right into the dirt. set poofins[12] runs into the room screaming and looking over his shoulder. set poofins[13] steps out of your shadow. set poofins[14] forms out of the very essence of your shadow to hang in the air before you. set poofins[15] climbs out of your left nostril. set poofins[16] has abandoned his search for truth and is now looking for a good fantasy. set poofins[17] wishes he was a donut specialist. set poofins[18] can resist everything but temptation. set poofins[19] is searching for a near life experience. set poofins[20] walks into the room fashionably early. set poofins[21] hanglides into the room. set poofins[22] parachutes into the room performing a perfect parachute landing fall, except for the fact that he landed backside first. set poofins[23] does a cannonball into room, injuring himself on the hard ground. set poofin %%poofins[%maxpoofin%]%% eval poofin %poofin% %force% %actor% poofin %poofin% * eval maxpoofout %random.20% -1 set poofouts[0] is chased out of the room by a barrel of rabid monkeys. set poofouts[1] creates a pneumatic air tube, like they use at the banks, and steps in. He is sucked out of sight. set poofouts[2] thinks himself out of existence. set poofouts[3] walks out saying 'time to make the donuts.' set poofouts[4] goes super critical and has a meltdown. Nothing remains but a pile of steaming radioactive mush. set poofouts[5] disappears in a flash of blinding nothingness! set poofouts[6] merges with his surroundings and vanishes. set poofouts[7] morphs into millions of ants, which run off in all directions. set poofouts[8] senses that everything is well, so he floats away. set poofouts[9] goes to hell in a handbasket. set poofouts[10] does somersaults out of the room. set poofouts[11] dives out of the room doing three rotations in the jackknife position. set poofouts[12] stumbles out of the room with a look of confusion on his face, must have forgotten where he parked. set poofouts[13] steps into your shadow and disappears. set poofouts[14] points behind you with a look of horror. While you turn away he disappears chuckling 'made you look'. set poofouts[15] doesn't like saying goodbye, so he didn't. set poofouts[16] completes an intricate spell of chantings and gestures that creates an inter-dimensional portal of space and time. Before he steps through it and disappears you notice a 'made in china' sticker on its bottom. set poofouts[17] creates a huge rubber band, straps himself into the middle of it and stretches it back like a slingshot. With a wave he releases it and is hurtled out of sight. set poofouts[18] straps an ACME rocket to his back and asks, 'got a light?' right before it explodes and sends him soaring. set poofouts[19] puts on a helmet and climbs into the barrel of an ACME cannon. It explodes sending pieces of Rumble off into the distance. set poofout %%poofouts[%maxpoofout%]%% eval poofout %poofout% %force% %actor% poofout %poofout% ~ #1373 Present Unwrapping~ 1 c 7 unwrap~ eval present %random.326% * 100 + %random.99% %echo% present: %present% id %present.id.name% vnum %present.vnum% name %present.name% %force% %actor% vstat obj %present% if %present% == %present.id.name% %echo% fails else %echo% works end ~ #1374 Consume Example~ 1 s 100 ~ %send% %actor% You %command% %self.name%. %echoaround% %actor% %actor.name% %command%s %self.name%. return 0 %purge% %self% ~ #1375 Random Mob Purge~ 2 b 100 ~ * This script checks if anyone is in the room. If so each mob has a 50% chance of * being purged 5% of the time. eval target %self.people% while %target% eval tmp_target %target.next_in_room% if %target.vnum% != -1 && %random.2% != 1 %echo% The gods destroy %target.name% %purge% %target% end eval target %tmp_target% done ~ #1376 Obj Contents test~ 1 c 7 testing~ %echo% firing eval in_bag %self.contents% while %in_bag% set next_in_bag %in_bag.next_in_list% %echo% contains: %in_bag.vnum% set in_bag %next_in_bag% done ~ #1377 door test~ 2 g 100 ~ %door% 1233 west flags abcd %door% 1233 west key 1233 %door% 1233 west name steel door %door% 1233 west room 1233 ~ #1378 Racing Bet~ 2 c 100 bet~ eval 1 Salya eval 2 Fluffy eval 3 Angela eval 4 Malicious eval 5 Arden eval 6 Calista eval 7 Balderdash eval 8 Hessa eval Salya 99 eval Fluffy 50 eval Angela 50 eval Malicious 35 eval Arden 33 eval Calista 28 eval Balderdash 25 eval Hessa 20 set racer 1 set racing 1 while %racing% eval name %racer% %echo% Racer %racer%: %%name%% eval racer %racer%+1 if %racer% == 9 set racing 0 else end done ~ #1379 Command test~ 2 c 100 l~ * Numeric Arg: 7 means obj can be worn, carried, or in room. * does not work for level 32 and above. * Make sure the command is look, check for any abbrev of closet * and make sure there is an arg. if %cmd.mudcommand% == look && closet /= %arg% %send% %actor% As you peer into the closet you see movement. %echoaround% %actor% %actor.name% looks into a closet and something comes out. %load% mob 1 else * If it doesn't match let the command continue. return 0 end * An example for sitting in a chair. Arg: s * if %cmd.mudcommand% == sit && chair /= %arg% * %echoaround% %actor% %actor.name% sits in a chair. * %send% %actor% You sit in a chair. * else * return 0 * end ~ #1380 Command Test~ 2 c 100 l~ if %cmd.mudcommand% == look && rodent /= %arg% return 0 wait 2 sec %send% %actor% A soft, pleasant voice calls 'Welcome, do come inside.' else return 0 end ~ #1381 Voodoo Doll~ 1 c 2 pin~ * By Heiach if !%arg% %send% %actor% Stab a pin into a voodoo doll of who? else eval dmg %arg.hitp% * 100 / %arg.maxhitp% if (%dmg% > 25) eval pain %random.15% switch %pain% case 1 set hurt back break case 2 set hurt head break case 3 set hurt stomach break case 4 set hurt left eye break case 5 set hurt chest break case 6 set hurt right eye break case 7 set hurt left arm break case 8 set hurt right arm break case 9 set hurt left leg break case 10 set hurt right leg break case 11 set hurt groin break case 12 set hurt left foot break case 13 set hurt right foot break case 14 set hurt throat break case 15 set hurt heart break default break done %send% %actor% You slowly push a pin into the voodoo doll of %arg.name%'s %hurt%. %echoaround% %actor% %actor.name% slowly pushes a pin into a voodoo doll. %send% %arg% You suddenly feel a sharp stabbing pain in your %hurt%! %echoaround% %arg% %arg.name% suddenly screams with pain, clenching %arg.hisher% %hurt%! %damage% %arg% 10 wait 20 s elseif %dmg% < 26 set msg %random.5% switch %msg% case 1 %send% %actor% %arg.name% has suffered enough! break case 2 %send% %actor% %arg.name% can't take it anymore! break case 3 %send% %actor% %arg.name% is too weak! break case 4 %send% %actor% %arg.name% is still writhing in pain! break case 5 %send% %actor% %arg.name% won't survive another pin! break default break done end end ~ #1382 dg_affect test~ 0 g 100 ~ dg_affect %actor% str 1 1 dg_affect %actor% dex 1 1 dg_affect %actor% int 1 1 dg_affect %actor% wis 1 1 dg_affect %actor% con 1 1 dg_affect %actor% cha 1 1 dg_affect %actor% age 1 1 dg_affect %actor% char_weight 1 1 dg_affect %actor% char_height 1 1 dg_affect %actor% maxmana 1 1 dg_affect %actor% maxhit 1 1 dg_affect %actor% maxmove 1 1 dg_affect %actor% armor 1 1 dg_affect %actor% hitroll 1 1 dg_affect %actor% damroll 1 1 dg_affect %actor% saving_para 1 1 dg_affect %actor% saving_rod 1 1 dg_affect %actor% saving_petri 1 1 dg_affect %actor% saving_breath 1 1 dg_affect %actor% saving_spell 1 1 dg_affect %actor% blind on 1 dg_affect %actor% invis on 1 dg_affect %actor% det-align on 1 dg_affect %actor% det-invis on 1 dg_affect %actor% det-magic on 1 dg_affect %actor% sense-life on 1 dg_affect %actor% watwalk on 1 dg_affect %actor% sanct on 1 dg_affect %actor% curse on 1 dg_affect %actor% infra on 1 dg_affect %actor% poison on 1 dg_affect %actor% prot-evil on 1 dg_affect %actor% prot-good on 1 dg_affect %actor% sleep on 1 dg_affect %actor% no_track on 1 dg_affect %actor% sneak on 1 dg_affect %actor% hide on 1 dg_affect %actor% charm on 1 ~ #1383 %load% test~ 0 g 100 ~ %load% obj 200 %actor% light %load% obj 201 %actor% rfinger %load% obj 202 %actor% lfinger %load% obj 203 %actor% neck1 %load% obj 204 %actor% neck2 %load% obj 205 %actor% body %load% obj 206 %actor% head %load% obj 207 %actor% legs %load% obj 208 %actor% feet %load% obj 209 %actor% hands %load% obj 210 %actor% arms %load% obj 211 %actor% shield %load% obj 212 %actor% about %load% obj 213 %actor% waist %load% obj 214 %actor% rwrist %load% obj 215 %actor% lwrist %load% obj 216 %actor% wield %load% obj 217 %actor% hold %load% obj 218 %actor% inv %echo% You have 10 seconds to remove and junk all before we test 0-17 wait 10 sec %load% obj 200 %actor% 0 %load% obj 201 %actor% 1 %load% obj 202 %actor% 2 %load% obj 203 %actor% 3 %load% obj 204 %actor% 4 %load% obj 205 %actor% 5 %load% obj 206 %actor% 6 %load% obj 207 %actor% 7 %load% obj 208 %actor% 8 %load% obj 209 %actor% 9 %load% obj 210 %actor% 10 %load% obj 211 %actor% 11 %load% obj 212 %actor% 12 %load% obj 213 %actor% 13 %load% obj 214 %actor% 14 %load% obj 215 %actor% 15 %load% obj 216 %actor% 16 %load% obj 217 %actor% 17 %load% obj 218 %actor% 18 ~ #1384 Mob Speech Parrot~ 0 d 100 *~ *** Squak for the nice people, Polly wait 1s emote squawks loudly. wait 1s *** 75% chance of learning phrase eval polly %random.4% if (%polly% > 1) say %speech% %echo% %speech% %echo% %phrase(1)% %echo% %phrase(2)% %echo% %phrase(3)% *** Ignore if already known switch %speech% case test case test 2 case %phrase(3)% case %phrase(4)% case %phrase(5)% case %phrase(6)% case %phrase(7)% case %phrase(8)% case %phrase(9)% case %phrase(10)% emote looks at you curiously. break default break done *** Learn new phrases eval number (%number% + 1) eval phrase(%number%) %speech% global number global phrase(%number%) *** Reset array after 10 phrases if (%number% == 10) eval number 0 global number eval maxphrases 1 global maxphrases end else end ~ #1385 Room Enter if/elseif/else Combo crash test~ 2 g 100 ~ if %actor.is_pc% wait 1 sec if %actor.sex% == male %echo% male elseif %actor.sex% == female %echo% elseif female else %echo% else nuetral else %echo% mob ~ #1386 Room Command Combination Lock~ 2 c 100 push~ * * combinationlock, based on script by Rumble * small modifications made by Welcor * * To allow multiple scripts based on this script we set a context: context %self.id% * clear old var, if set. unset reset_buttons * check argument if %arg% == red %send% %actor% You push the red button. set pushed_red 1 global pushed_red elseif %arg% == yellow %send% %actor% You push the yellow button. if %pushed_red% set pushed_yellow 1 global pushed_yellow else set reset_buttons 1 end elseif %arg% == green %send% %actor% You push the green button. if %pushed_red% && %pushed_yellow% set pushed_green 1 global pushed_green else set reset_buttons 1 end elseif %arg% == blue %send% %actor% You push the blue button. if %pushed_red% && %pushed_yellow% && %pushed_green% set pushed_blue 1 global pushed_blue else set reset_buttons 1 end elseif %arg% == purple %send% %actor% You push the purple button. if %pushed_red% && %pushed_yellow% && %pushed_green% && %pushed_blue% %send% %actor% You hear a loud click as you push the final button. set reset_buttons 1 else set reset_buttons 1 end elseif %arg% == white %send% %actor% You push the white reset button. set reset_buttons 1 else %send% %actor% Push what ?! halt end * reset the buttons if necessary if %reset_buttons% unset reset_buttons unset pushed_red unset pushed_yellow unset pushed_green unset pushed_blue %send% %actor% The buttons all suddenly pop back out. end * send the state of the buttons %send% %actor% red:%pushed_red% yellow:%pushed_yellow% green:%pushed_green% blue:%pushed_blue% purple:%pushed_purple% ~ #1387 free~ 2 g 100 ~ eval item %actor.inventory% eval item_to_purge %%actor.inventory(%item.vnum%)%% if %item_to_purge% %echo% purging %item.shortdesc% with vnum %item.vnum% in %actor.name%'s inventory. %purge% %item_to_purge% else %echo% I cant find %item.shortdesc% with vnum %item.vnum% in %actor.name%'s inventory. %echo% I cant find an item in %actor.name%'s inventory. end ~ #1388 Room Command Detach Example~ 2 c 100 detach~ Detach 1388 %self.id% %echo% detached ~ #1389 Obj Command Assemble~ 1 c 7 join~ eval currentroom %self.room% if ((%currentroom.vnum% == 1233) && (%actor.inventory(1315)%) && (%actor.inventory(1316)%)) %echo% room check correct: %currentroom.vnum% %purge% %actor.inventory(1316)% %echo% orb purged switch %random.2% case 1 otransform 12 %echo% staff loaded break default otransform 1317 %echo% broken staff loaded break done detach 1389 %self.id% else %send% %actor% You can not do that here. end ~ #1390 Obj Random Special Character's Example~ 1 b 100 ~ *Special Characters Example eval obj %self.name% eval obj %obj.car% %echo% %self.vnum% %echo% %obj% %echo% |%obj% -> name's, someone's, your %echo% %obj% -> name, someone, you %echo% &%obj% -> it, you, he/she %echo% *%obj% -> it, you, him/her * object only %echo% '%obj% -> something, name ~ #1391 Obj Wear Ruby Slippers~ 1 j 100 ~ wait 1 sec dg_cast 'word of recall' %actor% ~ #1392 free~ 1 c 2 shake~ * Numeric Arg: 2 means in character's carried inventory * does not work for level 32 and above. * There are 20 possible answers that the Magic Eight Ball can give. * Of these, nine are full positive, two are full negative, one is * mostly positive, three are mostly negative, and five are abstentions. * if ball /= %arg% || eightball /= %arg% %echoaround% %actor% %actor.name% shakes the magic eight ball vigorously. %send% %actor% You shake the magic eight ball vigorously. switch %random.20% case 1 %send% %actor% The magic eight ball reveals the answer: Outlook Good break case 2 %send% %actor% The magic eight ball reveals the answer: Outlook Not So Good break case 3 %send% %actor% The magic eight ball reveals the answer: My Reply Is No break case 4 %send% %actor% The magic eight ball reveals the answer: Don't Count On It break case 5 %send% %actor% The magic eight ball reveals the answer: You May Rely On It break case 6 %send% %actor% The magic eight ball reveals the answer: Ask Again Later break case 7 %send% %actor% The magic eight ball reveals the answer: Most Likely break case 8 %send% %actor% The magic eight ball reveals the answer: Cannot Predict Now break case 9 %send% %actor% The magic eight ball reveals the answer: Yes break case 10 %send% %actor% The magic eight ball reveals the answer: Yes, definitely break case 11 %send% %actor% The magic eight ball reveals the answer: Better Not Tell You Now break case 12 %send% %actor% The magic eight ball reveals the answer: It Is Certain break case 13 %send% %actor% The magic eight ball reveals the answer: Very Doubtful break case 14 %send% %actor% The magic eight ball reveals the answer: It Is Decidedly So break case 15 %send% %actor% The magic eight ball reveals the answer: Concentrate And Ask Again break case 16 %send% %actor% The magic eight ball reveals the answer: Signs Point To Yes break case 17 %send% %actor% The magic eight ball reveals the answer: My Sources Say No break case 18 %send% %actor% The magic eight ball reveals the answer: Without A Doubt break case 19 %send% %actor% The magic eight ball reveals the answer: Reply Hazy, Try Again break case 20 %send% %actor% The magic eight ball reveals the answer: As I See It, Yes break default %send% %actor% The magic eight ball explodes since your question is unanswerable. break done else %send% %actor% shake What? end ~ #1393 Obj Command quarter flip example~ 1 c 2 flip~ * Numeric Arg: 2 means in character's carried inventory * does not work for level 32 and above. if coin /= %arg% || quarter /= %arg% %echoaround% %actor% %actor.name% flips a coin high up into the air. %send% %actor% You flip the coin up into the air. switch %random.2% case 1 %echo% The coin falls to the ground, bounces, rolls, and ends up showing heads! break case 2 %echo% The coin falls to the ground, bounces, rolls, and ends up showing tails! break default %echo% The coin falls on its edge and balances perfectly. break done else %send% %actor% flip What? end ~ #1394 Timing trigger~ 2 ab 100 ~ wait until 7:00 %echo% loading %load% obj 1200 wait until 11:00 %purge% list ~ #1395 Mob Random Black Cat~ 0 b 20 ~ switch %random.7% case 1 emote crosses your path. break case 2 emote sneezes. break case 3 emote rubs up against your leg. break case 4 emote starts cleaning itself. break case 5 emote howls wickedly. break case 6 emote hisses at you spitefully! break case 7 emote purrs warmly. break default emote runs in terror. break done ~ #1396 Room Speech Actor.eq Example~ 2 d 100 test~ eval i 0 while %i%<32 eval item %%actor.eq(%i%)%% if %item% %echo% In slot %i% you are wearing %item.shortdesc% end eval i %i%+1 done ~ #1397 Mob Random Wait Until Example~ 0 ab 100 ~ eval time1 %time.hour% if %time1% != %time.hour% say %time1% end wait until 1:00 say 1 wait until 2:00 say 2 wait until 3:00 say 3 wait until 4:00 say 4 wait until 5:00 say 5 wait until 6:00 say 6 wait until 7:00 say 7 wait until 8:00 say 8 wait until 9:00 say 9 wait until 10:00 say 10 wait until 11:00 say 11 wait until 12:00 say 12 wait until 13:00 say 13 wait until 14:00 say 14 wait until 15:00 say 15 wait until 16:00 say 16 wait until 1700 say 17 wait until 18:00 say 18 wait until 19:00 say 19 wait until 20:00 say 20 wait until 21:00 say 21 wait until 22:00 say 22 wait until 23:00 say 23 wait until 24:00 say 24 ~ #1398 Random Rabbit Decapitates Mobs - M1307~ 0 b 100 none~ * By Rumble of The Builder Academy builderacademy.net 9091 * This is for any Monty Python Fans. * First figure out what room you are in. eval room_var %self.room% * Target the first character. set target %room_var.people% * Make a loop so everyone in the room is targeted. while %target% * Create the next target before the bunny kills them. set tmp_target %target.next_in_room% * Don't let the bunny kill players or itself. if ((%target.vnum% != -1) && (%target.name% != %self.name%)) * Do the deed with a little pause in between. emote hops towards %target.name% and looks up innocently. wait 2 sec emote strikes with lightning speed, decapitating %target.name%. * bye bye. %purge% %target% wait 5 sec * End the if statement. end * Target to the temp target you created above. set target %tmp_target% * Loop back to the next target. done * Remove the bunny, I don't want people leaving him lying in waiting. %purge% %self% ~ #1399 Chair Sit~ 1 c 7 si~ * Trigger fires off the command sit chair. if %cmd.mudcommand% == sit && %arg% /= chair %echoaround% %actor% %actor.name% sits in a chair. %send% %actor% You sit in a chair. * Set the actors position as sitting (they will have to stand). nop %actor.pos(sitting)% else * Make sure to let them sit, even if they don't choose the chair. return 0 end ~ $~