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