tbaMUD Continued development of the CircleMUD core

Intended for: Objects
Trigger Types: Command
Argument: shovel
Commands:
if %cmd% == shovel
  if %arg% == manure
    if %actor.eq(*)%
      eval held %actor.eq(held)%
      if %held.vnum != 201
        %send% %actor% You're not holding a shovel!
      elseif 
         * search the room for manure <-- Need help this part
         %send% %actor% There's no manure to shovel!
      else
        %purge% shit
        %load% obj 200 %actor% inv
      end
    end
  end
end

while %actor.has_item(<vnum>)%
  nop %actor.gold(#)%
  * assuming the manure doesn't have any wear flags it will be in inventory.
  %purge% %actor.inventory(obj vnum)%   
done

if %cmd% == shovel
  if %arg% == manure
      if %actor.eq(*)%
        eval hold %actor.eq(hold)%
        if %hold.vnum% != 201
          %send% %actor% You're not holding a shovel!
        elseif !%findobj.208(200)%
          %send% %actor% There's nothing to shovel here.
        else
          %purge% manure
          %load% obj 200 %actor% inv
      end
    end
  end
end

if %cmd% == talk
  if %arg% == herdsman
    %send% %actor% %self.name% says, 'Hey there.'
    %send% %actor% -----------------------------------
    %send% %actor% Option 1) Do you have any work?
    %send% %actor% -----------------------------------
  elseif %arg% /= herdsman && %arg% /= work
    %send% %actor% %self.name% says, 'Start shoveling up some of this manure.'
    %send% %actor% %self.name% says, 'Tell me when you're done and I'll pay you.'
    if !actor.has_item(201)%
    %load% obj 201 %actor%
    %send% %actor% %self.name% says, 'Here, you'll need a shovel.
    %send% %actor% %self.name% gives you a shovel.
  elseif %arg% /= herdsman && %arg% /= done
    while %actor.has_item(200)%
    nop %actor.gold(5)%
    %purge% %actor.inventory(200)%
    done
    %send% %actor% %self.name% says, 'Here you go.'
  end
end

Name: 'Panning for gold',  VNum: [  700], RNum: [  272]
Trigger Intended Assignment: Rooms
Trigger Type: Command , Numeric Arg: 100, Arg list: p
Commands:
* 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 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