Miscellaneous ifMUD-code

No comments for these. The code should be self-explanatory.

See also the Jota Code Compiler version.

Pirate hat

> drop hat

You drop pirate hat.

> "Arr, a prize, for the winning pirate!

Kwi says, "Arr, a prize, for the winning pirate!"

> x hat

The fearsome hat features a proud Jolly Roger. No doubt it was once worn by a bloodthirsty pirate, but now it just sits there and looks like it's been forgotten, a left-over from a time where people would drink rum, trade favours and gold coins, plan mutinies, and keelhaul shipmates. Aye, just by looking at the hat, you start longing for sailing the seven seas. Yarr!

schep gets pirate hat.

> x schep's hat

The fearsome hat features a proud Jolly Roger, and the text "Schep, Pirate Captain!", below. Aye, just by looking at the hat, you start longing for sailing the seven seas. Yarr!

@create pirate hat
@set pirate hat = jumpok
@desc pirate hat = @print(
 "The fearsome hat features a proud Jolly Roger",
 @switch(@type(@location("%!")),
  2, @print(
   ", and the text \"",
   @ucfirst(@shortname(@location("%!"))),
   ", Pirate Captain!\", below."
  ),
  ". No doubt it was once worn by a bloodthirsty pirate, but now it
   just sits there and looks like it's been forgotten, a left-over
   from a time where people would drink rum, trade favours and gold
   coins, plan mutinies, and keelhaul shipmates."
 ),
 " Aye, just by looking at the hat, you start longing for sailing the seven seas. Yarr!"
)

T-shirt with arrow

> x t-shirt

Below the arrow, the text "HE CANT HELP IT!" is printed on the t-shirt. The arrow is, however, pointing upwards, implying that the person in question is Kwi himself.

@field T-shirt = textm : HE
@field T-shirt = textf : SHE
@field T-shirt = textn : IT

@field T-shirt = reflectm : himself.
@field T-shirt = reflectf : herself.
@field T-shirt = reflectn : itself.

@desc T-shirt = @let("x", @switch("1",
 @testflag(@location("%!"), "male"), "m",
 @testflag(@location("%!"), "female"), "f",
 "n"),
 @print(
  "Below the arrow, the text \"",
  @g("text%x"),
  " CANT HELP IT!\" is printed on the T-shirt. The arrow is, however,
   pointing upwards, implying that the person in question is ",
  @shortname(@location("%!")),
  " ",
  @g("reflect%x")
 )
)

Faceless head/Headless face

> x kwi

It looks like an ordinary Kwi to me.
Carrying: headless face, T-shirt with arrow

> x kwi's head

Wait... isn't it actually a faceless head?

> x kwi

It looks like an ordinary Kwi to me.
Carrying: faceless head, T-shirt with arrow

@field head = name0 : faceless head;face;faceless;head;flh;fh;headless;hlf;hf
@field head = name1 : headless face;face;faceless;head;flh;fh;headless;hlf;hf

@desc head = @let("x", @g("toggle"), @print(
 @s("toggle", @not("%x")),
 @s("name", @g("name%x")),
 "Wait... isn't it actually a ",
 @shortname("%!"),
 "?"
))