Code:
Name: 'Mob Questshop Example', VNum: [ 167], RNum: [ 167]
Trigger Intended Assignment: Mobiles
Trigger Type: Command , Numeric Arg: 100, Arg list: *
Commands:
* By Rumble of The Builder Academy tbamud.com 9091
* A questshop that uses questpoints!
* Command triggers do not work for level 32 and above.
if %cmd.mudcommand% == list
*
%send% %actor% ## Available Item Cost in Questpoints
%send% %actor% -------------------------------------------------------------------------
%send% %actor% 1) Unlimited War's Blood 100
%send% %actor% 2) Unlimited shadow stealer 100
%send% %actor% 3) Unlimited the staff of spellfire 100
*
elseif %cmd.mudcommand% == buy
if War /= %arg% || Blood /= %arg% || %arg% == 1
set quest_item 21
set quest_item_cost 100
elseif shadow /= %arg% || stealer /= %arg% || %arg% == 2
set quest_item 22
set quest_item_cost 100
elseif staff /= %arg% || spellfire /= %arg% || %arg% == 3
set quest_item 23
set quest_item_cost 100
else
tell %actor.name% What would you like to buy?
halt
end
*
if %actor.questpoints% < %quest_item_cost%
tell %actor.name% You don't have enough questpoints for that.
else
%load% obj %quest_item% %actor% inv
tell %actor.name% here you go.
nop %actor.questpoints(-%quest_item_cost%)
end
elseif %cmd.mudcommand% == sell
tell %actor.name% I don't want anything you have.
else
return 0
end
for TBA.
