;------------------------------------QF
[@STDMODEFUNC10]
#IF
CHECKLEVELEX > 0
#ACT
KILLMONEXPRATE 200 3600
Gmexecute showeffect 75
SENDMSG 7 您获得了1小时双倍经验时间
CalcVar HUMAN 双倍时间 = 3600
SaveVar HUMAN 双倍时间 ..\QuestDiary\数据文件\双倍时间保存.txt
SetScTimer 1 1
BREAK
;------------------------------------QM声明
Var Integer HUMAN 双倍时间 "" HardDisk
LOADVAR HUMAN 双倍时间 ..\QuestDiary\数据文件\双倍时间保存.txt
;------------------------------------登录添加：
#If
CheckVar HUMAN 双倍时间 > 0
#Act
KILLMONEXPRATE 200 <$HUMAN(双倍时间)>
SetScTimer 1 1
Break
;------------------------------------定时器执行
[@OnTimer1]
#If
CheckVar HUMAN 双倍时间 > 0
#Act
CalcVar HUMAN 双倍时间 - 1
SaveVar HUMAN 双倍时间 ..\QuestDiary\数据文件\双倍时间保存.txt
Break
#ElseAct
KILLMONEXPRATE 100 1
CalcVar HUMAN 双倍时间 = 0
SaveVar HUMAN 双倍时间 ..\QuestDiary\数据文件\双倍时间保存.txt
KillScTimer 1
Break
|
