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