kyonshi/grenzland-mud
1
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updated World and files for 3.58 release. --Rumble

Browse Source
This commit is contained in:
Rumble
2009-01-18 01:22:15 +00:00
parent eb99864f0b
commit 6f22042712
52 changed files with 763 additions and 803 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/world/trg/0.trg
View File

@@ -284,7 +284,7 @@ Tutorial Quest 1441 - Load 8ball~
* By Rumble of The Builder Academy tbamud.com 9091
* Quest Trigs 9-12. Drop the 8ball on their head when they enter.
wait 1 sec
%echoaround% %actor.name% A magic eight ball drops from the sky striking %actor.name% on the head.
%echoaround% %actor% A magic eight ball drops from the sky striking %actor.name% on the head.
%send% %actor% A magic eight ball drops from the sky striking you on the head.
%load% obj 1394
%damage% %actor% %random.5%
@@ -1598,6 +1598,7 @@ set actor %random.char%
Room Command Example~
2 c 100
l~
* By Rumble of The Builder Academy tbamud.com 9091
if %cmd.mudcommand% == look && bridge /= %arg%
%send% %actor% As you look at the bridge a small form staggers out from underneath it.
%echoaround% %actor% As %actor.name% peers under the bridge a small form emerges.
@@ -2500,7 +2501,7 @@ Puff - Random Advice~
0 ab 12
~
* By Rumble of The Builder Academy tbamud.com 9091
set man %random.197%
set max %random.197%
set text[1] My god! It's full of stars!
set text[2] How'd all those fish get up here?
set text[3] Some people are like Slinkies. Not really good for anything, but still bring a smile to your face when you push them down a flight of stairs.
@@ -2712,7 +2713,7 @@ if %arg.room% != %actor.room% || %arg.id% == %actor.id%
end
set inroom %actor.room%
if %arg.inventory(80)%
%echoaround% %actor.name% %actor.name% blasts %arg.name% with %actor.hisher% paintball gun.
%echoaround% %actor% %actor.name% blasts %arg.name% with %actor.hisher% paintball gun.
%send% %actor% You blast %arg.name%.
%send% %arg% You lose!
%purge% %arg.inventory(80)%
@@ -2734,7 +2735,7 @@ if %arg.room% != %actor.room% || %arg.id% == %actor.id%
end
set inroom %actor.room%
if %arg.inventory(81)%
%echoaround% %actor.name% %actor.name% blasts %arg.name% with %actor.hisher% paintball gun.
%echoaround% %actor% %actor.name% blasts %arg.name% with %actor.hisher% paintball gun.
%send% %actor% You blast %arg.name%.
%send% %arg% You lose!
%purge% %arg.inventory(81)%

3
lib/world/trg/1.trg
View File

@@ -2100,7 +2100,7 @@ if %self.contents.vnum% != 47
%load% obj 47
end
wait 2 sec
%echoaround% %actor.name% A magic eight ball drops from the sky striking %actor.name% on the head.
%echoaround% %actor% A magic eight ball drops from the sky striking %actor.name% on the head.
%send% %actor% A magic eight ball drops from the sky striking you on the head.
%damage% %actor% %random.5%
~
@@ -2109,7 +2109,6 @@ Mob Quest Tutorial Example Quest completion - 25~
0 j 100
~
* By Rumble of The Builder Academy tbamud.com 9091
wait 1 sec
if %object.vnum% == 47 && !%actor.varexists(solved_example_quest_zone_0)%
dance
wait 1 sec

14
lib/world/trg/117.trg
View File

@@ -22,7 +22,7 @@ g~
* should be looking for 117xx, where xx is 00-99.
if %cmd.mudcommand% == get && ring /= %arg%
%send% %actor% You dig in the dirt and pick up the ring.
%echoaround% %actor.name% %actor.name% gets a ring from the dirt.
%echoaround% %actor% %actor.name% gets a ring from the dirt.
%load% obj 11700 %actor% inv
else
return 0
@@ -38,7 +38,7 @@ steal~
* should be looking for 117xx, where xx is 00-99.
if %cmd.mudcommand% == steal && cello /= %arg%
%send% %actor% You steal the cello from the cello player who exclaims 'Hey!'
%echoaround% %actor.name% %actor.name% immaturely nabs the cello from the cello player's hands during the middle of a performance.
%echoaround% %actor% %actor.name% immaturely nabs the cello from the cello player's hands during the middle of a performance.
%load% obj 11708 %actor% inv
end
~
@@ -175,7 +175,7 @@ touch~
* should be looking for 117xx, where xx is 00-99.
if %arg% == display
%send% %actor% You browse around the forbidden display and lift up the large sword. A clicking noise is made from the stand it is on, and suddenly, a huge crashing sound comes from the far west!
%echoaround% %actor.name% %actor.name% lifts the sword on the display and a gigantic crashing sound comes from the west!
%echoaround% %actor% %actor.name% lifts the sword on the display and a gigantic crashing sound comes from the west!
%at% 11704 %door% 11704 down flags a
%at% 11758 %load% obj 11737
%send% %actor% Salesman Derresor Maosund punches you in the face with anger for touching the display!!
@@ -273,7 +273,7 @@ touch~
* should be looking for 117xx, where xx is 00-99.
if %arg% == nest
%send% %actor% You reach out for the squirrel's nest and touch it, but it falls toward the patch of sand and abruptly falls right through!
%echoaround% %actor.name% %actor.name% tries to reach out and touch the nest, like the 2-year-old %actor.heshe% is. %actor.heshe% drops the nest clumsily but the nest abruptly falls through the strange patch of sand!
%echoaround% %actor% %actor.name% tries to reach out and touch the nest, like the 2-year-old %actor.heshe% is. %actor.heshe% drops the nest clumsily but the nest abruptly falls through the strange patch of sand!
%door% 11755 down flags a
else
%send% %actor% Touch what?
@@ -304,7 +304,7 @@ sit~
* should be looking for 117xx, where xx is 00-99.
if %cmd.mudcommand% == sit && %arg% /= stump
%echo% You sit down on the large stump and take a rest.
%echoaround% %actor.name% %actor.name% sits down on a stump and takes a quick rest.
%echoaround% %actor% %actor.name% sits down on a stump and takes a quick rest.
return 0
end
~
@@ -318,7 +318,7 @@ pick~
* should be looking for 117xx, where xx is 00-99.
if %arg% == flowers
%send% %actor% You kneel beside the path, pick the flowers, and arrange them in a nice bouquet.
%echoaround% %actor.name% %actor.name% picks the exotic flowers beside the path and makes a bouquet from them.
%echoaround% %actor% %actor.name% picks the exotic flowers beside the path and makes a bouquet from them.
%load% obj 11735 %actor% inv
else
%send% %actor% Pick what??
@@ -335,7 +335,7 @@ search~
* should be looking for 117xx, where xx is 00-99.
if %arg% == fireplace
%send% %actor% You search around the fireplace, and bump into the loose tile. Suddenly, the fire goes out, and the wall behind it opens up!
%echoaround% %actor.name% %actor.name% searches the fireplace, and before you know it, the wall to the north opens like a door!
%echoaround% %actor% %actor.name% searches the fireplace, and before you know it, the wall to the north opens like a door!
%door% 11725 north flags a
else
%send% %actor% Search what?

2
lib/world/trg/118.trg
View File

@@ -48,7 +48,7 @@ end
1 g 100
~
if %actor.room.vnum% == 11802
%echoaround% %actor.name% %actor.name% takes something from the dollhouse and seems to fade mysteriously away, leaving no trace.
%echoaround% %actor% %actor.name% takes something from the dollhouse and seems to fade mysteriously away, leaving no trace.
%teleport% %actor% 11801
wait 2 s
%send% %actor% You feel a little strange as everything starts to blur, shifting and changing shape until you are completely disorientated.

2
lib/world/trg/13.trg
View File

@@ -1835,6 +1835,8 @@ if %actor.varexists(TBA_trial_vnum)% && %actor.level% == 31
%send% %actor% Sedit, Trigedit, 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. Use 'purge' or 'purge item.'
elseif %cmd.mudcommand% == sacrifice
%send% %actor% Sacrifice is disabled until your trial room is completed.
else
return 0
end

6
lib/world/trg/14.trg
View File

@@ -181,7 +181,7 @@ free~
2 g 100
~
wait 2 sec
%echoaround% %actor.name% A magic eight ball drops from the sky striking %actor.name% on the head.
%echoaround% %actor% A magic eight ball drops from the sky striking %actor.name% on the head.
%send% %actor% A magic eight ball drops from the sky striking you on the head.
%load% obj 47
%damage% %actor% %random.5%
@@ -590,8 +590,8 @@ Mob Leave Example~
~
if (%actor.level% > 10)
say You may not leave here, %actor.name%.
%send% %actor.name% %self.name% prevents you from leaving the room.
%echoaround% %actor.name% As %actor.name% tries to leave the room, %self.name% stops %actor.himher%.
%send% %actor% %self.name% prevents you from leaving the room.
%echoaround% %actor% As %actor.name% tries to leave the room, %self.name% stops %actor.himher%.
return 0
end
~

2
lib/world/trg/19.trg
View File

@@ -1287,7 +1287,7 @@ test while~
set stunned %actor.hitp% - 1
%damage% %actor% %stunned%
eval num %random.99% + 1900
%teleport% %actor.name% %num%
%teleport% %actor% %num%
while %actor.inventory%
eval item %actor.inventory%
eval item_to_purge %%actor.inventory(%item.vnum%)%%

24
lib/world/trg/2.trg
View File

@@ -190,6 +190,30 @@ extract word5 5 %speech%
extract word6 6 %speech%
say %word6% %word5% %word4% %word3% %word2% %word1%?
~
#209
Open a Chest once per zone reset~
1 c 100
open~
* By Mordecai
if chest /= %arg%
* Verify that the player typed 'open chest'
* Has the player already opened this chest?
context %actor.id%
if %already_opened_chest%
%send% %actor% The chest has already been opened, and emptied.
else
* The first time! OK, open the chest.
%send% %actor% You get a jar of naphthalene from an iron bound chest.
%load% obj 306 %actor% inv
set already_opened_chest 1
global already_opened_chest
return 0
end
else
* Not 'open chest' - pass control back to the command parser
return 0
end
~
#212
Phoenix Rising - 219~
1 c 4

2
lib/world/trg/236.trg
View File

@@ -39,7 +39,7 @@ end
~
#23603
Remove Secret Door - 23667~
2 af 100
2 f 100
~
if %self.east%
%door% 23667 east purge 0

16
lib/world/trg/238.trg
View File

@@ -90,10 +90,10 @@ Fountain portal - 23855~
en~
if %cmd.mudcommand% == enter && fountain /= %arg%
%send% %actor% You dive into a large fountain.
%echoaround% %actor.name% %actor.name% dives into a large fountain.
%echoaround% %actor% %actor.name% dives into a large fountain.
%teleport% %actor% 23856
%force% %actor% look
%echoaround% %actor.name% %actor.name% emerges from a large fountain.
%echoaround% %actor% %actor.name% emerges from a large fountain.
else
%send% %actor% enter what?!
end
@@ -164,10 +164,10 @@ Green portal entrance - 23863~
en~
if %cmd.mudcommand% == enter && green /= %arg%
%send% %actor% You enter a large green portal.
%echoaround% %actor.name% %actor.name% steps into a large green portal.
%echoaround% %actor% %actor.name% steps into a large green portal.
%teleport% %actor% 23864
%force% %actor% look
%echoaround% %actor.name% steps into a large green portal.
%echoaround% %actor% steps into a large green portal.
else
%send% %actor% enter what?!
end
@@ -178,10 +178,10 @@ Blue portal entrance - 23861~
en~
if %cmd.mudcommand% == enter && blue /= %arg%
%send% %actor% You enter a large blue portal.
%echoaround% %actor.name% %actor.name% steps into a large blue portal.
%echoaround% %actor% %actor.name% steps into a large blue portal.
%teleport% %actor% 23862
%force% %actor% look
%echoaround% %actor.name% steps through a large blue portal.
%echoaround% %actor% steps through a large blue portal.
else
%send% %actor% enter what?!
end
@@ -192,10 +192,10 @@ Red portal entrance - 23862~
en~
if %cmd.mudcommand% == enter && red /= %arg%
%send% %actor% You enter a large blue portal.
%echoaround% %actor.name% %actor.name% steps into a large blue portal.
%echoaround% %actor% %actor.name% steps into a large blue portal.
%teleport% %actor% 23862
%force% %actor% look
%echoaround% %actor.name% steps through a large blue portal.
%echoaround% %actor% steps through a large blue portal.
else
%send% %actor% enter what?!
end

196
lib/world/trg/267.trg
View File

@@ -1,98 +1,98 @@
#26700
Harem Master - 26706~
0 b 5
~
emote looks at his minions and growls, 'get to work, bitches!'
~
#26701
Slaves Bow - 26701-26704~
0 e 0
A fat harem master looks at his minions and growls, 'get to work, bitches!'~
wait 1 sec
bow master
~
#26702
Master Needs Assist - 26706~
0 k 10
~
emote screams loudly, 'HELP ME, MY SLAVES!'
~
#26703
Slaves Assist Master - 26701-26704~
0 e 0
A fat harem master screams loudly, 'HELP ME, MY SLAVES!'~
wait %random.6% sec
assist master
~
#26705
Fear Spell - 26710~
0 k 5
~
emote utters the words, 'pabrow'.
%force% %actor% flee
~
#26706
Butcher - 26713~
0 bg 5
~
emote begins sharpening %self.hisher% knife.
~
#26707
Tar Baby Follow - 26708~
0 b 10
~
set actor %random.char%
if %actor.is_pc%
mfollow %actor%
say Ho ho, hee hee, %actor.name% you are sooo funneeee!
%send% %actor% %self.name% looks at you with the cutest expression.
%echoaround% %actor% %self.name% looks at %actor.name% with the cutest expression.
end
~
#26708
Grand Inquisitor - 26719~
0 k 100
5~
switch %random.2%
case 1
emote utters the words, 'ordalaba'.
dg_cast 'energy drain' %actor%
break
case 2
emote evilly grins and snaps his hands.
dg_cast 'animate dead' corpse
order followers assist
break
default
break
done
~
#26709
High Priest of Terror - 26714~
0 k 5
~
switch %random.2%
case 1
emote utters the words, 'ordalaba'.
dg_cast 'charm' %actor
break
case 2
emote waves $s hands in a swirling motion.
dg_cast 'earthquake'
break
default
break
done
~
#26710
Near Death Trap - 26744~
2 g 100
~
* Near Death Trap stuns actor
wait 3 sec
set stunned %actor.hitp%
%damage% %actor% %stunned%
wait 3 sec
%send% %actor% The Gods allow your puny existence to continue.
~
$~
#26700
Harem Master - 26706~
0 b 5
~
emote looks at his minions and growls, 'get to work, bitches!'
~
#26701
Slaves Bow - 26701-26704~
0 e 0
A fat harem master looks at his minions and growls, 'get to work, bitches!'~
wait 1 sec
bow master
~
#26702
Master Needs Assist - 26706~
0 k 10
~
emote screams loudly, 'HELP ME, MY SLAVES!'
~
#26703
Slaves Assist Master - 26701-26704~
0 e 0
A fat harem master screams loudly, 'HELP ME, MY SLAVES!'~
wait %random.6% sec
assist master
~
#26705
Fear Spell - 26710~
0 k 5
~
emote utters the words, 'pabrow'.
%force% %actor% flee
~
#26706
Butcher - 26713~
0 b 10
~
emote begins sharpening %self.hisher% knife.
~
#26707
Tar Baby Follow - 26708~
0 b 10
~
set actor %random.char%
if %actor.is_pc%
mfollow %actor%
say Ho ho, hee hee, %actor.name% you are sooo funneeee!
%send% %actor% %self.name% looks at you with the cutest expression.
%echoaround% %actor% %self.name% looks at %actor.name% with the cutest expression.
end
~
#26708
Grand Inquisitor - 26719~
0 k 100
5~
switch %random.2%
case 1
emote utters the words, 'ordalaba'.
dg_cast 'energy drain' %actor%
break
case 2
emote evilly grins and snaps his hands.
dg_cast 'animate dead' corpse
order followers assist
break
default
break
done
~
#26709
High Priest of Terror - 26714~
0 k 5
~
switch %random.2%
case 1
emote utters the words, 'ordalaba'.
dg_cast 'charm' %actor
break
case 2
emote waves $s hands in a swirling motion.
dg_cast 'earthquake'
break
default
break
done
~
#26710
Near Death Trap - 26744~
2 g 100
~
* Near Death Trap stuns actor
wait 3 sec
set stunned %actor.hitp%
%damage% %actor% %stunned%
wait 3 sec
%send% %actor% The Gods allow your puny existence to continue.
~
$~

36
lib/world/trg/27.trg
View File

@@ -337,28 +337,28 @@ rdelete Zn27_shacklepass %actor.id%
2 c 100
kneel~
if %arg%==creature
%send% %actor.name% You kneel before the skeletal creature.
%send% %actor% You kneel before the skeletal creature.
wait 1 s
%send% %actor.name% You suddenly feel very strange as the creature gestures and an eerie mist surrounds you.
%send% %actor% You suddenly feel very strange as the creature gestures and an eerie mist surrounds you.
wait 3 s
%teleport% %actor.name% 2712
%teleport% %actor% 2712
%force% %actor% look
elseif %arg%==skeletal
%send% %actor.name% You kneel before the skeletal creature.
%send% %actor% You kneel before the skeletal creature.
wait 1 s
%send% %actor.name% You suddenly feel very strange as the creature gestures and an eerie mist surrounds you.
%send% %actor% You suddenly feel very strange as the creature gestures and an eerie mist surrounds you.
wait 3 s
%teleport% %actor.name% 2712
%teleport% %actor% 2712
%force% %actor% look
elseif %arg%==circle
%send% %actor.name% You kneel inside the circle.
%send% %actor% You kneel inside the circle.
wait 1 s
%send% %actor.name% You suddenly feel very strange as an eerie mist surrounds you.
%send% %actor% You suddenly feel very strange as an eerie mist surrounds you.
wait 3 s
%teleport% %actor.name% 2712
%teleport% %actor% 2712
%force% %actor% look
else
%send% %actor.name% Kneel to who?
%send% %actor% Kneel to who?
end
~
#2719
@@ -530,19 +530,19 @@ if %self.carried_by%
eval actor %self.carried_by%
if %actor.fighting%
eval victim %actor.fighting%
%echoaround% %actor.name% @R%actor.name%'s doll suddenly opens its eyes and causes %victim.name% to shudder in pain.@n
%send% %actor.name% @RYour doll suddenly opens its eyes and causes %victim.name% to shudder in pain.@n
%echoaround% %actor% @R%actor.name%'s doll suddenly opens its eyes and causes %victim.name% to shudder in pain.@n
%send% %actor% @RYour doll suddenly opens its eyes and causes %victim.name% to shudder in pain.@n
%damage% %victim% 100
if (%actor.varexists(zn27_twice)%)
rdelete Zn27_twice %actor.id%
wait 3 s
%send% %actor.name% @RYour doll turns its head to look at you.@n
%send% %actor% @RYour doll turns its head to look at you.@n
wait 1 s
%send% %actor.name% @RYour doll says 'Thrice I have repaid my debt.'@n
%send% %actor% @RYour doll says 'Thrice I have repaid my debt.'@n
wait 1 s
%send% %actor.name% @RYour doll says 'And still I await my freedom.'@n
%send% %actor% @RYour doll says 'And still I await my freedom.'@n
wait 1 s
%send% %actor.name% @RThe doll suddenly transforms into a little girl and runs away.'@n
%send% %actor% @RThe doll suddenly transforms into a little girl and runs away.'@n
rdelete Zn27_offereddoll %actor.id%
%purge% %self%
elseif (%actor.varexists(zn27_once)%)
@@ -805,7 +805,7 @@ test door~
enter~
if ("%arg%" == "space")
%send% %actor% A previously concealed space suddenly becomes apparant.
%echoaround% %actor.name% %actor.name% has discovered a hidden space!
%echoaround% %actor% %actor.name% has discovered a hidden space!
%door% 2740 down flags a
%door% 2740 down room 2741
%door% 2740 down description Nothing can be seen within this dark space.
@@ -921,7 +921,7 @@ attach %arg%
test act~
1 c 7
look~
%force% %actor.name% %at% 2755 look
%force% %actor% %at% 2755 look
~
#2752
test speech~

22
lib/world/trg/271.trg
View File

@@ -1,6 +1,6 @@
#27100
Silk Trader - 27137~
0 bg 100
0 b 10
~
wait 1 sec
switch %random.23%
@@ -95,7 +95,7 @@ done
~
#27101
Athos - 27153~
0 bg 50
0 b 10
~
wait 1 sec
switch %random.7%
@@ -130,7 +130,7 @@ done
~
#27102
Hangman - 27102~
0 bg 100
0 b 10
~
wait 1 sec
switch %random.5%
@@ -162,7 +162,7 @@ done
~
#27103
Butcher - 27142~
0 bg 5
0 b 10
~
wait 1 sec
switch %random.17%
@@ -232,7 +232,7 @@ done
~
#27104
Stu - 27166~
0 bg 100
0 b 10
~
wait 1 sec
switch %random.14%
@@ -287,7 +287,7 @@ done
~
#27105
Earl of Sundhaven - 27100~
0 bg 100
0 b 10
~
wait 1 sec
switch %random.9%
@@ -332,16 +332,16 @@ Blinder - 27161~
~
%echo% %self.name% whispers, 'So, %actor.name%! You wouldst share my affliction!'
wait 1 sec
%send% %actor.name% %self.name%'s frayed cloak blows as he aims a bony finger at you.
%echoaround% %actor.name% %self.name%'s frayed cloak blows as he points at %actor.name%.
%send% %actor% %self.name%'s frayed cloak blows as he aims a bony finger at you.
%echoaround% %actor% %self.name%'s frayed cloak blows as he points at %actor.name%.
wait 1 sec
%send% %actor.name% A flash of pale fire explodes in your face!
%echoaround% %actor.name% A flash of pale fire explodes in %actor.name%'s face!
%send% %actor% A flash of pale fire explodes in your face!
%echoaround% %actor% A flash of pale fire explodes in %actor.name%'s face!
dg_cast 'blindness' %actor%
~
#27107
Idiot - 27115~
0 bg 100
0 b 10
~
wait 1 sec
switch %random.13%

69
lib/world/trg/3.trg
View File

@@ -79,38 +79,53 @@ if %actor.class% != cleric || %actor.align% < 350
end
~
#304
Room Enter - test trigger~
2 g 100
~
wait 50
wsend %actor% you enter a room
Room Command - Look at Painting~
2 c 100
l~
* By Rumble of The Builder Academy tbamud.com 9091
if %cmd.mudcommand% == look && painting /= %arg%
%send% %actor% As you stare at the painting the figures seem to start moving and acting out the scenes they portray.
%echoaround% %actor% %actor.name% stares at one of the paintings. A strange look coming over %actor.hisher% face.
else
* If it doesn't match let the command continue. Without a return 0 a player
* will not be able to "look" at anything else.
return 0
end
~
#305
car/cdr test~
0 d 100
*~
*by having * as the arg, it will not always display
* 'test' as %speech.car%
say speech: %speech%
say car: %speech.car%
say cdr: %speech.cdr%
Mob Greet Clothing Check~
0 g 100
~
* By Rumble of The Builder Academy tbamud.com 9091
if %actor.is_pc%
wait 1 sec
if %actor.eq(*)%
eval worn_about %actor.eq(about)%
if %worn_about.vnum% == 326
look %actor.name%
smile
else
say You always bathe in your clothes?
eyebrow
end
else
say at least get a towel, I don't want to see that.
end
end
~
#306
Mob Command - subfield test~
0 c 100
test~
* test to make sure %actor.skill(skillname)% works
say your hide ability is %actor.skill(hide)% percent.
*
* make sure %actor.eq(name)% works too
eval headgear %actor.eq(head)%
if %headgear%
say You have some sort of helmet on
else
say Where's your headgear?
halt
Room Entry - sneak check~
2 g 25
~
* By Rumble of The Builder Academy tbamud.com 9091
if %actor.is_pc%
if %actor.skill(sneak)% > 50
%send% %actor% You walk into the room, not waking any of the clerics.
else
%send% %actor% Your entry into the room wakes a few of the clerics.
%load% mob 340
end
end
say Fix your %headgear.name%
~
#307
Obj Remove - %transform% test~

10
lib/world/trg/30.trg
View File

@@ -159,9 +159,10 @@ switch %actor.level%
done
~
#3008
Death Trap~
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%
@@ -199,15 +200,16 @@ end
Stock Fido - 3062, 3066~
0 b 100
~
eval inroom %self.room%
eval item %inroom.contents%
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
if %item.vnum(65535)%
emote savagely devours a corpse.
%purge% %item%
halt
end
set item %next_item%
* Loop back

8
lib/world/trg/83.trg
View File

@@ -70,7 +70,7 @@ surrender~
~
#8306
Navigator (8306) Sings~
0 bg 100
0 b 10
~
eval song %random.4%
switch %song%
@@ -141,7 +141,7 @@ done
~
#8307
Cabin Boy (8307) Mops~
0 bh 75
0 b 10
~
wait 2s
emote sings, 'Mop, mop, mop, all day long...'
@@ -286,7 +286,7 @@ Polly (8313) Learn & Repeat~
~
#8314
Polly (8313) Random Speech~
0 bgq 80
0 b 10
~
wait 1s
emote squawks loudly.
@@ -434,7 +434,7 @@ jump~
~
#8393
99 Bottles of Beer (Drunken Pirate: 8309)~
0 bg 100
0 b 10
~
set beers 99
emote clears his throat.