;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@FameGoods_Main]
{
#IF
IsAdmin

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_0

#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_1

[@View_Fame_ForAdmin]
#IF
CheckFame

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_2

[@@Edit_Fame_ForAdmin]
#IF
#ACT
Mov D1 %INPUTSTR
SetFame %D1

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_3

[@Help_Rose]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_4

[@Help_Carnation]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_5

[@Buy_FameGoods()]
#IF
#ACT
Mov A1 %ARG(1)
Mov D1 %ARG(2)
Mov D2 %ARG(3)
Mov D3 %ARG(4)

#IF
CheckFAME
CheckGold %D1
#ACT
Mov D4 %P9
goto @Buy_FameGoods_FameCheck
break

#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_6

[@Buy_FameGoods_FameCheck]
#IF
Large D4 %D2
#ACT
Dec D4 %D2
goto @Buy_FameGoods_FameCheck_1
break
#ELSEACT
break

#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_7

[@Buy_FameGoods_FameCheck_1]
#IF
Large D4 %D3
#ACT
give %A1 1
take  %D1
SetFame %D4

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_8

#ELSEACT
Inc D4 %D2

#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_9

[@Buy_FameGoods_FameCheck_2]
#IF
#ACT
Dec D4 %D2
give %A1 1
take  %D1
SetFame %D4

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_10
;;ֳֵ
;;--------------------------------------------------------------------------------------------------------
[@@mingzi]
#ACT
   mov  A0  %INPUTSTR
   FormatStr "FLD_USERID='%s'" %A0
   ReadValueSql  "TBL_RELATPOINT"  %A9  "FLD_USERID,FLD_POINT"  [@Point_Add111]

[@Point_Add111()]
#IF  
#ACT
   mov    A0      %ARG(1)
   mov    D1      %ARG(2)
#IF
   Equal  A0   ""       
#ACT
    break
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_11

#if
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_12



[@@inpds]
   #ACT
   mov   D7  %INPUTNUM
   FormatStr "FLD_USERID='%s'" %A0
   mov   A8       %A9
   INC   D1       %D7
   mov   D8       %D1
   FormatStr "FLD_POINT='%s'" %D8
   UPDATEVALUESQL "TBL_RELATPOINT" %A8 %A9
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\FameGoods.txt] @Convert_FameGoods_13

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;