Code: Select all
>intercept_prog embroider %~
mposet $o short a handkerchief embroidered with '%'
~
>intercept_prog humm~
if string(1) == X
mpcast soundburst X
endif
~
|
Code: Select all
>intercept_prog embroider %~
mposet $o short a handkerchief embroidered with '%'
~
>intercept_prog humm~
if string(1) == X
mpcast soundburst X
endif
~
|
Code: Select all
>intercept_prog embroider~
if actorhasobjnum(i12345)
if stringprefix($1) == handkerchief
embroiders....
else
mpunintercept
endif
else
mpunintercept
endif
~
Code: Select all
>intercept_prog customise~
if stringprefix($1) ==
mposet $o short a $1 birthday card
mpechoat $N You customise a birthday card.
else
mpunintercept
endif
~
Code: Select all
> customise pink
You customise a birthday card.
You are carrying:
a pink birthday card (perfect)
For posterity though, one uses $0, not $1. e.g.A butt birthday card lies here.
Code: Select all
>intercept_prog customize~
mposet on $n $o short a $0 birthday card
mpechoat $n You customize a birthday card (and it better be an acceptable, IC choice).
~
Code: Select all
>intercept_prog color~
if stringprefix($1) == pink
or stringprefix($1) == red
if stringprefix($1) == pink
mposet on $n $o etc... etc..
else
if stringprefix($1) == red
mposet on $n $o etc... etc... etc..
endif
endif
else
mpechoat $n That is not an acceptable color.
endif
~