;;Ҫɾ

[@Main_Rose]
{
#SAY
Rose List:\\
{FCOLOR/10}Level:{FCOLOR/12} 3 <Rose/@MakeRose(Rose1,2)>\
{FCOLOR/10}Level:{FCOLOR/12} 7 <Rose/@MakeRose(Rose2,4)>\
{FCOLOR/10}Level:{FCOLOR/12} 15 <Rose/@MakeRose(Rose3,6)>\
{FCOLOR/10}Level:{FCOLOR/12} 15 <Rose/@MakeRose(Rose4,6)>\
{FCOLOR/10}Level:{FCOLOR/12} 22 <Rose/@MakeRose(Rose5,8)>\
{FCOLOR/10}Level:{FCOLOR/12} 28 <Rose/@MakeRose(Rose6,10)>\
{FCOLOR/10}Level:{FCOLOR/12} 33 <Rose/@MakeRose(Rose7,12)>\
{FCOLOR/10}Level:{FCOLOR/12} 38 <Rose/@MakeRose(Rose8,14)>\
{FCOLOR/10}Level:{FCOLOR/12} 42 <Rose/@MakeRose(Rose9,16)>\
{FCOLOR/10}Level:{FCOLOR/12} 45 <Rose/@MakeRose(Rose10,18)>\
{FCOLOR/10}Level:{FCOLOR/12} 48 <Rose/@MakeRose(Rose11,20)>\
{FCOLOR/10}Level:{FCOLOR/12} 51 <Rose/@MakeRose(Rose12,22)>\

;----------------------------------------------------------------------

[@MakeRose()]
#ACT
Mov A1 %ARG(1)
Mov D2 %ARG(2)
Loadvalue D1 "QuestDiary\System\VitalPoints.txt" [Points] %USERNAME
#SAY
Rose to buy: {FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12}\
Vital Points Needed:  {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12}(+1)\
<Buy/@MakeRose2>\
<Leave/@Exit>

;----------------------------------------------------------------------

[@MakeRose2]
#IF
Large D1 %D2
#ACT
Dec D1 %D2
SaveValue "QuestDiary\System\VitalPoints.txt" [Points] %USERNAME %D1
Give %A1 1
CLOSE
#ELSESAY
sorry you only have {FCOLOR/10}<$OUTPUT(D1)>{FCOLOR/12} vital points...\
To do this you need {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12}\\
<Leave/@Exit>

;----------------------------------------------------------------------

}
;;Ҫɾ