[ITEMDEF i_song_book]
NAME=Song Book
ID=0efa
TYPE=t_spellbook
WEIGHT=10
CATEGORY=Special
SUBSECTION=Magical items
DESCRIPTION=Bardic Song Book

ON=@Create
ATTR=04
AMOUNT=1
COLOR=058

ON=@DCLICK
SRC.SYSMESSAGE As you open the book, you are filled with joy.
DIALOG D_bard_book
return 1

[DIALOG d_bard_book]
0, 0
page 0                //Page 0: Background of book
gumppic 100 10 2203         //Background: open book

page 1               //Page 1: Spells Index
text 175 15 899 0          //Text: Book
gumppic 100 -13 13          //woman
gumppic 100 -13 60469           //robe
gumppic 100 -12 50706         //long hair
text 149 91 899 1           //Text: Blessed Book
button 285 20 1209 1210 0 2       //Button: (spells 1 and 2)
button 285 60 1209 1210 0 2       //Button: (spells 1 and 2)
button 285 100 1209 1210 0 3       //Buttonspells 3 and 4)
button 285 140 1209 1210 0 3       //Button: (spells 3 and 4)
button 285 180 1209 1210 0 4       //Button: (spells 5)
text 300 20 0 9            //Text: The Night //
text 300 60 0 3          //Text: Wild Rover  //
text 300 40 0 10           //Text: Dance  //
text 300 100 0 7         //Text: Humors of //
text 300 120 0 8         //Text: Whiskey
text 300 140 0 5         //text: line 5
text 300 180 0 6         //text: line 6
button 394 14 2206 2206 0 2       //page flip

page 2                //Page 2: Spells 1 and 2
button 123 15 2205 2205 0 1       //page flip
button 394 14 2206 2206 0 3        //page flip
text 148 30 0 2          //Text: Heal
button 160 55 7004 7004 1 0 1       //Cast Heal
gumppic 140 120 93           //flower
gumppic 130 120 92           //flower
gumppic 160 120 94           //flower
text 300 30 0 3          //Text: Heal
button 320 55 7013 7013 1 0 2       //Cast Greater Heal
gumppic 300 120 93           //flower
gumppic 290 120 92           //flower
gumppic 310 120 94           //flower

page 3              //Page 3: Spells 3 and 4
button 123 15 2205 2205 0 2        //page flip
button 394 14 2206 2206 0 4        //page flip
text 124 30 0 4          //Text: Bless
button 160 55 7001 7001 1 0 3       //Cast Bless
gumppic 140 120 93           //flower
gumppic 130 120 92           //Flower
gumppic 160 120 94           //flower

text 290 30 0 5          //Text: Magic reflect
button 320 55 7034 7034 1 0 4       //Cast Magic Reflect
gumppic 300 120 93           //flower
gumppic 290 120 92           //flower
gumppic 310 120 94           //flower

page 4              //Page 4: Spells 5 and 6
button 123 15 2205 2205 0 3        //page flip
text 165 30 0 6            //Text: Forgiveness
button 160 55 7006 7006 1 0 5       //Cast Forgiveness
gumppic 140 120 93           //flower
gumppic 130 120 92           //flower
gumppic 160 120 94           //flower

[DIALOG D_bard_book TEXT]
Bard's //Line 0
Song Book
The Night Dance
Wild Rover
Humors of Whiskey
The Minstrel Boy  //line 5
Oak and Ash
Humors of //line 7
Whiskey
The Night
Dance //line 10

[DIALOG D_bard_book BUTTON]
ONBUTTON=0         // Close Book
SRC.SYSMESSAGE As you close the book, you spirit is lifted!.


ONBUTTON=1
IF !(<SRC.FINDTYPE.t_musical>)
      SRC.MESSAGE=You need a musical instrument.
      RETURN 1
   ENDIF
   IF (<FLAGS>&4)
      SRC.MESSAGE=You're too busy to play a tune.
      RETURN 1
   ENDIF
   SRC.NEWITEM=i_night_dance
   SRC.ACT.P=<SRC.P>
   SRC.ACT.DCLICK

ONBUTTON=2
IF !(<SRC.FINDTYPE.t_musical>)
      SRC.MESSAGE=You need a musical instrument.
      RETURN 1
   ENDIF
   IF (<FLAGS>&4)
      SRC.MESSAGE=You're too busy to play a tune.
      RETURN 1
   ENDIF
   SRC.NEWITEM=i_wild_rover
   SRC.ACT.P=<SRC.P>
   SRC.ACT.DCLICK

ONBUTTON=3
IF !(<SRC.FINDTYPE.t_musical>)
      SRC.MESSAGE=You need a musical instrument.
      RETURN 1
   ENDIF
   IF (<FLAGS>&4)
      SRC.MESSAGE=You're too busy to play a tune.
      RETURN 1
   ENDIF
   SRC.NEWITEM=i_humors_whiskey
   SRC.ACT.P=<SRC.P>
   SRC.ACT.DCLICK

ONBUTTON=4
IF !(<SRC.FINDTYPE.t_musical>)
      SRC.MESSAGE=You need a musical instrument.
      RETURN 1
   ENDIF
   IF (<FLAGS>&4)
      SRC.MESSAGE=You're too busy to play a tune.
      RETURN 1
   ENDIF
   SRC.NEWITEM=i_minstrel_boy
   SRC.ACT.P=<SRC.P>
   SRC.ACT.DCLICK

ONBUTTON=5
IF !(<SRC.FINDTYPE.t_musical>)
      SRC.MESSAGE=You need a musical instrument.
      RETURN 1
   ENDIF
   IF (<FLAGS>&4)
      SRC.MESSAGE=You're too busy to play a tune.
      RETURN 1
   ENDIF
   SRC.NEWITEM=i_oak_ash
   SRC.ACT.P=<SRC.P>
   SRC.ACT.DCLICK


//spell effects

[ITEMDEF i_night_dance]
ID=0fef
NAME=The Night Dance

ON=@CREATE
   MOREX=50
   TYPE=t_bandage
   ATTR=010

ON=@DCLICK
   SRC.MESSAGE Choose who you would sing this song for.
   LINK=<SRC.UID>
   ATTR=090
   SRC.RESEND
//   TIMER=50

ON=@TARGON_ITEM
   SRC.MESSAGE=You must target a character for this song.
   REMOVE

ON=@TARGON_CHAR
   IF (<SRC.TARG.NPC>>0)
      SRC.MESSAGE=You cannot play for that person!
      RETURN 1
   ENDIF
   MORE2=<LINK.UID>
   MOREY=<SRC.TARG.DEX>
   MOREX=11
   SRC.TARG.DEX=<SRC.TARG.DEX>+5
   TIMER=1
   ATTR=090
   SRC.FLAGS=<SRC.FLAGS>|04
   RETURN 1

ON=@TIMER
IF (<LINK.STAMINA><5)
   LINK.MESSAGE You are too tired to continue singing.
   LINK.FLAGS=<LINK.FLAGS>&~04
   LINK=<MORE2>
   LINK.DEX=<MOREY>
   REMOVE
ENDIF
IF (<MOREX> == 50)
   REMOVE
ENDIF
IF (<MOREX> == 11)
   LINK.SAY Strike the gay harp! see the moon is on high,
   LINK.STAMINA=<LINK.STAMINA>+(-5)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 10)
   LINK.SAY And, as true to her beam as the tides of the ocean,
   LINK.STAMINA=<LINK.STAMINA>+(-5)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 9)
   LINK.SAY Young hearts, when they feel the soft light of her eye,
   LINK.STAMINA=<LINK.STAMINA>+(-5)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 8)
   LINK.SAY Obey the mute call, and heave into motion.
   LINK.STAMINA=<LINK.STAMINA>+(-5)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 7)
   LINK.SAY Then, sound notes - the gayest, the lightest,
   LINK.STAMINA=<LINK.STAMINA>+(-5)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 6)
   LINK.SAY That ever took wing, when heaven look'd brightest
   LINK.STAMINA=<LINK.STAMINA>+(-5)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 5)
   LINK.SAY Again! Again!
   LINK.STAMINA=<LINK.STAMINA>+(-5)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 4)
   LINK.SAY Oh! could such heart-stirring music be heard
   LINK.STAMINA=<LINK.STAMINA>+(-5)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 3)
   LINK.SAY In that City of Statues described by romancers,
   LINK.STAMINA=<LINK.STAMINA>+(-5)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 2)
   LINK.SAY So wakening its spell, even stone would be stirr'd,
   LINK.STAMINA=<LINK.STAMINA>+(-5)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 1)
   LINK.SAY And statues themselves all start into dancers!
   LINK.STAMINA=<LINK.STAMINA>+(-5)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 0)
   LINK.MESSAGE You have finished the song.
   LINK.FLAGS=<LINK.FLAGS>&~04
   LINK=<MORE2>
   LINK.DEX=<MOREY>
   REMOVE
ENDIF
RETURN 1

[ITEMDEF i_wild_rover]
ID=0fef
NAME=I've Been a Wild Rover

ON=@CREATE
   TYPE=t_bandage
   ATTR=010

ON=@DCLICK
   SRC.MESSAGE Choose who you would sing this song for.
   MOREX=50
   LINK=<SRC.UID>
   ATTR=090
   SRC.RESEND
//   TIMER=15

ON=@TARGON_ITEM
   SRC.MESSAGE=You must target a character for this song.
   REMOVE

ON=@TARGON_CHAR
   IF (<SRC.TARG.NPC>>0)
      SRC.MESSAGE=You cannot play for that person!
      RETURN 1
   ENDIF
   SRC.FLAGS=<SRC.FLAGS>|04
   IF (<SRC.TARG.FLAGS>&04)
      SRC.FLAGS=<SRC.FLAGS>&~04
      SRC.MESSAGE=That person is already affected in this way.
      RETURN 1
   ENDIF
   MORE2=<LINK.UID>
   SRC.TARG.FLAGS=<SRC.TARG.FLAGS>|04
   TIMER=1
   ATTR=090
   MOREX=8
   RETURN 1

ON=@TIMER
IF (<LINK.STAMINA><10)
   LINK.MESSAGE You are too tired to continue singing.
   LINK.FLAGS=<LINK.FLAGS>&~04
   LINK=<MORE2>
   LINK.DEX=<MOREY>
   REMOVE
ENDIF
IF (<MOREX> == 50)
   REMOVE
ENDIF
IF (<MOREX> == 8)
   SAY I've been a wild rover for many a year
   LINK.STAMINA=<LINK.STAMINA>+(-15)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 7)
   SAY And I spent all my money on whiskey and beer,
   LINK.STAMINA=<LINK.STAMINA>+(-15)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 6)
   SAY And now I'm returning with gold in great store
   LINK.STAMINA=<LINK.STAMINA>+(-15)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 5)
   SAY And I never will play the wild rover no more.
   LINK.STAMINA=<LINK.STAMINA>+(-15)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 4)
   SAY And it's no, nay, never,
   LINK.STAMINA=<LINK.STAMINA>+(-15)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 3)
   SAY No nay never no more,
   LINK.STAMINA=<LINK.STAMINA>+(-15)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 2)
   SAY Will I play the wild rover
   LINK.STAMINA=<LINK.STAMINA>+(-15)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 1)
   SAY No never no more.
   LINK.STAMINA=<LINK.STAMINA>+(-15)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 0)
   LINK.MESSAGE You have finished the song.
   LINK.FLAGS=<LINK.FLAGS>&~04
   LINK=<MORE2>
   REMOVE
ENDIF
RETURN 1


[ITEMDEF i_humors_whiskey]
ID=0fef
NAME=The Humors of Whiskey

ON=@CREATE
   TYPE=t_bandage
   ATTR=010

ON=@DCLICK
   SRC.MESSAGE Choose who you would sing this song for.
   MOREX=50
   LINK=<SRC.UID>
   ATTR=090
   SRC.RESEND
//   TIMER=15

ON=@TARGON_ITEM
   SRC.MESSAGE=You must target a character for this song.
   REMOVE

ON=@TARGON_CHAR
   IF (<SRC.TARG.NPC>>0)
      SRC.MESSAGE=You cannot play for that person!
      RETURN 1
   ENDIF
   IF (<SRC.TARG.HITS> == <SRC.TARG.STR>)
      SRC.MESSAGE=That person is already fully healed.
      RETURN 1
   ENDIF
   SRC.FLAGS=<SRC.FLAGS>|04
   MORE2=<LINK.UID>
   MOREX=8
   TIMER=1
   ATTR=090
   RETURN 1

ON=@TIMER
IF (<LINK.STAMINA><10)
   LINK.MESSAGE You are too tired to continue singing.
   LINK.FLAGS=<LINK.FLAGS>&~04
   LINK=<MORE2>
   LINK.DEX=<MOREY>
   REMOVE
ENDIF
IF (<MOREX> == 50)
   REMOVE
ENDIF
IF (<MOREX> == 8)
   LINK.SAY Let your quacks and newspapers be cuttin' their capers
   LINK.STAMINA=<LINK.STAMINA>+(-2)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=3
ELSEIF (<MOREX> == 7)
   LINK.SAY And curing the Vapours, the Scratch and the Gout.
   LINK.STAMINA=<LINK.STAMINA>+(-2)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 6)
   LINK.SAY With their medical potions, their pills and their lotions,
   LINK.STAMINA=<LINK.STAMINA>+(-2)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 5)
   LINK.SAY Upholdin' their notions, they're mighty put out.
   LINK.STAMINA=<LINK.STAMINA>+(-2)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 4)
   LINK.SAY Who can tell the true physic of all things pathetic
   LINK.STAMINA=<LINK.STAMINA>+(-2)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 3)
   LINK.SAY And pitch to the Devil Cramp, Colic and Spleen?
   LINK.STAMINA=<LINK.STAMINA>+(-2)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 2)
   LINK.SAY Oh you'll find them I think if you take a big drink
   LINK.STAMINA=<LINK.STAMINA>+(-2)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 1)
   LINK.SAY With your mouth to the brink of a jug of Poteen.
   LINK.STAMINA=<LINK.STAMINA>+(-2)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 0)
   LINK.MESSAGE You have finished the song.
   LINK.FLAGS=<LINK.FLAGS>&~04
   LINK=<MORE2>
   LINK.HITS=<LINK.HITS>+30
   IF <LINK.HITS>><LINK.STR>
      LINK.HITS=<LINK.STR>
   ENDIF
   REMOVE
ENDIF
RETURN 1

[ITEMDEF i_minstrel_boy]
ID=0fef
NAME=The Minstrel Boy

ON=@CREATE
   TYPE=t_bandage

ON=@DCLICK
   LINK=<SRC.UID>
   SRC.NEWITEM=i_flame_sword
   SRC.ACT.EQUIP
   SRC.ACT.ATTR=010
   SRC.ACT.TYPE=t_flaming_sword
   MOREX=8
   TIMER=1
   ATTR=090
   RETURN 1

ON=@TIMER
IF (<LINK.STAMINA><10)
   LINK.FINDTYPE.t_flaming_sword.REMOVE
   LINK.MESSAGE You are too tired to continue singing.
   REMOVE
   RETURN 1
ENDIF
IF (<MOREX> == 50)
   REMOVE
ENDIF
IF (<MOREX> == 8)
   LINK.SAY The Minstrel-Boy to the war is gone
   LINK.STAMINA=<LINK.STAMINA>+(-10)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 7)
   LINK.SAY In the ranks of death you will find him
   LINK.STAMINA=<LINK.STAMINA>+(-10)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 6)
   LINK.SAY His father's sword he hath girded on
   LINK.STAMINA=<LINK.STAMINA>+(-10)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 5)
   LINK.SAY And his wild harp slung behind him
   LINK.STAMINA=<LINK.STAMINA>+(-10)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 4)
   LINK.SAY "Land of Song!" said the warrior-bard
   LINK.STAMINA=<LINK.STAMINA>+(-10)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 3)
   LINK.SAY "Though all the world betrays thee
   LINK.STAMINA=<LINK.STAMINA>+(-10)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 2)
   LINK.SAY One sword, at least, thy rights shall guard
   LINK.STAMINA=<LINK.STAMINA>+(-10)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 1)
   LINK.SAY One faithful harp shall praise thee!"
   LINK.STAMINA=<LINK.STAMINA>+(-10)
   MOREX=<MOREX>+(-1)
   LINK.SOUND=043
   TIMER=5
ELSEIF (<MOREX> == 0)
   LINK.MESSAGE You have finished the song.
   LINK.FINDTYPE.t_flaming_sword.REMOVE
   REMOVE
ENDIF
RETURN 1

[ITEMDEF=i_flame_sword]
//Flame sword, for bards
ID=0f60
TYPE=T_WEAPON_sword
FLIP=1
DAM=5,29
//SPEED=35
SKILL=Swordsmanship
REQSTR=0
TWOHANDS=N
//MATERIAL=20
WEIGHT=.01
CATEGORY=Provisions - Weapons
SUBSECTION=Swords
DESCRIPTION=Broadsword
SKILLMAKE=BLACKSMITHING 60.8
DUPELIST=0f5f
NAME=flame sword

ON=@CREATE
   COLOR=0486
   HITPOINTS=500

[TYPEDEF t_flaming_sword]
ON=@DAMAGE
   SRC.SAY *<SRC.NAME> is burned by the flaming sword*
   SRC.DAMAGE=40

[ITEMDEF i_oak_ash]
ID=0fef
NAME=The Oak and the Ash

ON=@CREATE
   TYPE=t_bandage
   ATTR=010

ON=@DCLICK
   SRC.MESSAGE Choose a rune.
   MORE2=05f
   LINK=<SRC.UID>
   ATTR=090
   SRC.RESEND
//   TIMER=15

ON=@TARGON_CHAR
   SRC.SYSMESSAGE This song requires a rune to be targetted.
   RETURN 1

ON=@TARGON_ITEM
   IF !(<SRC.TARG.TYPE> == T_RUNE)
      SRC.SYSMESSAGE But that's not a rune!
      RETURN 1
   ENDIF
   IF (<SRC.TARG.MOREX> == 0)
      SRC.SYSMESSAGE That rune is not marked.
      RETURN 1
   ENDIF
   MORE2=6
   MOREP=<SRC.TARG.MOREP>
   ATTR=090
   SRC.FLAGS=<SRC.FLAGS>|04
   TIMER=1
   RETURN 1

ON=@TIMER
IF (<MORE2>==05f)
   REMOVE
   RETURN 0
ENDIF
IF ( ( <LINK.STAMINA> < 18 ) && ( <MORE2> != 00 ) )
   LINK.FLAGS=<LINK.FLAGS>&~04
   LINK.MESSAGE You are too tired to continue singing.
   REMOVE
   RETURN 1
ENDIF
IF (<MORE2> == 6)
   LINK.SAY Of the oak and the ash and the ivy tree
   LINK.STAMINA=<LINK.STAMINA>+(-18)
   MORE2=<MORE2>+(-1)
   LINK.SOUND=043
   TIMER=10
ELSEIF (<MORE2> == 5)
   LINK.SAY They flourish at home in my own country
   LINK.STAMINA=<LINK.STAMINA>+(-18)
   MORE2=<MORE2>+(-1)
   LINK.SOUND=043
   TIMER=10
ELSEIF (<MORE2> == 4)
   LINK.SAY Oh fain would I be in the north country
   LINK.STAMINA=<LINK.STAMINA>+(-18)
   MORE2=<MORE2>+(-1)
   LINK.SOUND=043
   TIMER=10
ELSEIF (<MORE2> == 3)
   LINK.SAY Where the men and the women are making of hay
   LINK.STAMINA=<LINK.STAMINA>+(-18)
   MORE2=<MORE2>+(-1)
   LINK.SOUND=043
   TIMER=10
ELSEIF (<MORE2> == 2)
   LINK.SAY There should I see what is pleasant to me
   LINK.STAMINA=<LINK.STAMINA>+(-18)
   MORE2=<MORE2>+(-1)
   LINK.SOUND=043
   TIMER=10
ELSEIF (<MORE2> == 1)
   LINK.SAY A mischief light on them that enticed me away!
   LINK.STAMINA=<LINK.STAMINA>+(-18)
   MORE2=<MORE2>+(-1)
   LINK.SOUND=043
   TIMER=10
ELSEIF (<MORE2> == 0)
   LINK.MESSAGE You have finished the song.
   LINK.NEWITEM=0f6c
   LINK.ACT.TYPE=17
   LINK.ACT.P=<LINK.P>
   LINK.ACT.MOREP=<MOREP>
   LINK.ACT.ATTR=08002
   LINK.ACT.TIMER=45
   LINK.NEWITEM=0f6c
   LINK.ACT.TYPE=17
   LINK.ACT.MOREP=<LINK.P>
   LINK.ACT.P=<MOREX> <MOREY> <MOREZ>
   LINK.ACT.ATTR=08002
   LINK.ACT.TIMER=45
   LINK.FLAGS=<LINK.FLAGS>&~04
   REMOVE
ENDIF
RETURN 1