;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;直接调用
[@推广QQ]
{
#IF
#SAY
<请输入您获得的推广QQ/@@INPUTQQNUM>\\

[@@INPUTQQNUM]
#IF
!checklevel 41
#ACT
mov A0 %INPUTSTR
mov D0 %INPUTNUM
#ELSEACT
break
#ELSESAY
对不起，等级超过40级无法填写推广QQ.\\
<关闭/@exit>\

#IF
!EQUAL D0 0
!EQUAL A0 ""
#ACT
savevalue "PlayerParam\推广QQ.ini" [%USERNAME] [QQ] %A0
#SAY
您登记的推广QQ为<$OUTPUT(A0)>.\\
<关闭/@exit>
#ELSEACT
break
#ELSESAY
对不起，请输入一个正确的QQ号.\
}
[@升级累计QQ]
{
#IF
checklevel
#ACT
mov D1 %P9
loadvalue A0 "PlayerParam\推广QQ.ini" [%USERNAME] [QQ]

#IF
!EQUAL A0 ""
#ACT
loadvalue D0 "PlayerParam\QQ统计记录.ini" [%A0] [数量]
#ELSEACT
break

#IF
EQUAL D1 60
#ACT
actcmd SETUSERJF + 10 推广奖励
inc D0 1
savevalue "PlayerParam\QQ统计记录.ini" [%A0] [数量] %D0
sysmsg "恭喜您到达60级,获得推广奖励10积分"
break

#IF
EQUAL D1 70
#ACT
actcmd SETUSERJF + 20 推广奖励
inc D0 2
savevalue "PlayerParam\QQ统计记录.ini" [%A0] [数量] %D0
sysmsg "恭喜您到达70级,获得推广奖励20积分"
break

#IF
EQUAL D1 80
#ACT
actcmd SETUSERJF + 30 推广奖励
inc D0 3
savevalue "PlayerParam\QQ统计记录.ini" [%A0] [数量] %D0
sysmsg "恭喜您到达80级,获得推广奖励30积分"
break


#IF
EQUAL D1 85
#ACT
actcmd SETUSERJF + 50 推广奖励
inc D0 5
savevalue "PlayerParam\QQ统计记录.ini" [%A0] [数量] %D0
sysmsg "恭喜您到达85级,获得推广奖励50积分"
break


#IF
EQUAL D1 90
#ACT
actcmd SETUSERJF + 100 推广奖励
inc D0 10
savevalue "PlayerParam\QQ统计记录.ini" [%A0] [数量] %D0
sysmsg "恭喜您到达90级,获得推广奖励100积分"
break


#IF
EQUAL D1 95
#ACT
actcmd SETUSERJF + 150 推广奖励
inc D0 15
savevalue "PlayerParam\QQ统计记录.ini" [%A0] [数量] %D0
sysmsg "恭喜您到达95级,获得推广奖励150积分"
break

#IF
EQUAL D1 100
#ACT
actcmd SETUSERJF + 200 推广奖励
inc D0 20
savevalue "PlayerParam\QQ统计记录.ini" [%A0] [数量] %D0
sysmsg "恭喜您到达100级,获得推广奖励200积分"
break

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