@prog propcycle.MUF
1 99999 d
1 i
( Propshift - Cycles a property around a list.  Program needs to be set HUID.
`
  Set these on the trigger. {You must own both the action and the object.}
 _propname:property-to-cycle
 _value/1:first value
 _value/2:second value
 _value/3: etc
 _setting:number of current value
 _object:database number of object whose property to change
)
: main ( s -- )
  trig "_propname" getpropstr
  trig "_setting" getpropstr atoi
  1 + intostr dup trig "_setting" rot 0 addprop
  "_value/" swap strcat
  trig swap getpropstr
  dup not if pop
     trig "_setting" "1" 0 addprop
     trig "_value/1" getpropstr
  then
  trig "_object" getpropstr atoi dbref -3 rotate 0 addprop
  pop
;
23 lines displayed.
.
c
q
@register #me propcycle.MUF=tmp/prog1
@set $tmp/prog1=L
@set $tmp/prog1=H
@set $tmp/prog1=2
@propset $tmp/prog1=int:/.debug/errcount:1
@propset $tmp/prog1=int:/.debug/lastcrash:846190452
@propset $tmp/prog1=str:/.debug/lasterr:propcycle.MUF(#21265), line 21; ADDPROP: Empty string argument (2)
@propset $tmp/prog1=str:/_/de:A scroll containing a spell called propcycle.MUF