;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@FPScrollMain]
{
#IF
CheckItem  1FPScroll 1
#ACT
Take 1FPSCroll 1
Goto @Add1FP
Break

#IF
CheckItem  2FPScroll 1
#ACT
Take 2FPSCroll 1
Goto @Add2FP
Break

#IF
CheckItem  3FPScroll 1
#ACT
Take 3FPSCroll 1
Goto @Add3FP
Break

#IF
CheckItem  4FPScroll 1
#ACT
Take 4FPSCroll 1
Goto @Add4FP
Break

#IF
CheckItem  5FPScroll 1
#ACT
Take 5FPSCroll 1
Goto @Add5FP
Break

#IF
CheckItem  6FPScroll 1
#ACT
Take 6FPSCroll 1
Goto @Add6FP
Break

#IF
CheckItem  100FPScroll 1
#ACT
Take 100FPSCroll 1
Goto @Add100FP
Break

#IF
#SAY
You have no FPScrolls\\
<[ Exit ]/@exit>\\\

[@Add1FP]
#IF
CheckFame
#ACT
Mov  D0  %P9
Inc  D0  1
SetFame %D0
Mov  A7  "1 Fame Point Added! You now have <$OUTPUT(D0)> FP's"
SysMsg %A7
Break

[@Add2FP]
#IF
CheckFame
#ACT
Mov  D0  %P9
Inc  D0  2
SetFame %D0
Mov  A7  "2 Fame Points Added! You now have <$OUTPUT(D0)> FP's"
SysMsg %A7
Break

[@Add3FP]
#IF
CheckFame
#ACT
Mov  D0  %P9
Inc  D0  3
SetFame %D0
Mov  A7  "3 Fame Points Added! You now have <$OUTPUT(D0)> FP's"
SysMsg %A7
Break

[@Add4FP]
#IF
CheckFame
#ACT
Mov  D0  %P9
Inc  D0  4
SetFame %D0
Mov  A7  "4 Fame Points Added! You now have <$OUTPUT(D0)> FP's"
SysMsg %A7
Break

[@Add5FP]
#IF
CheckFame
#ACT
Mov  D0  %P9
Inc  D0  5
SetFame %D0
Mov  A7  "5 Fame Points Added! You now have <$OUTPUT(D0)> FP's"
SysMsg %A7
Break

[@Add6FP]
#IF
CheckFame
#ACT
Mov  D0  %P9
Inc  D0  6
SetFame %D0
Mov  A7  "6 Fame Point Added! You now have <$OUTPUT(D0)> FP's"
SysMsg %A7
Break

[@Add100FP]
#IF
CheckFame
#ACT
Mov  D0  %P9
Inc  D0  100
SetFame %D0
Mov  A7  "100 Fame Point Added! You now have <$OUTPUT(D0)> FP's"
SysMsg %A7
Break
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
