mirror of
https://github.com/tbamud/tbamud.git
synced 2025-12-24 03:00:13 +01:00
33 lines
1.1 KiB
Text
33 lines
1.1 KiB
Text
#700
|
|
Panning for gold~
|
|
2 c 100
|
|
p~
|
|
* Don't let someone spam the trigger to make money Take some movement points away every round and stop when they get to 10
|
|
if %actor.move% <= 10
|
|
%send% %actor% You are too exhausted to continue.
|
|
halt
|
|
end
|
|
* Fire on pan gold or abbreviations of each word
|
|
if %cmd% /= pan && %arg% /= gold
|
|
eval heldobj %actor.eq(hold)%
|
|
* Make sure they picked up the gold pan in room 703 and are holding it
|
|
if %heldobj.vnum% == 717
|
|
%send% %actor% You dip your pan into the river and scoop up some of the river bed and begin swirling it in the water.
|
|
%echoaround% %actor% %actor.name% dips a pan into the river and begins panning for gold.
|
|
* Take 10 movement points away, wait 3 seconds and give a 1 in 10 chance of success.
|
|
nop %actor.move(-10)%
|
|
wait 3 sec
|
|
if %random.10% == 1
|
|
%send% %actor% You find a small gold nugget in the bottom of your pan.
|
|
%echoaround% %actor% %actor.name% picks something out of %actor.hisher% pan.
|
|
* Give them a nugget
|
|
%load% obj 718 %actor% inv
|
|
else
|
|
%send% %actor% You find nothing of value.
|
|
end
|
|
else
|
|
%send% %actor% You need a pan for that.
|
|
end
|
|
end
|
|
~
|
|
$~
|