翎风引擎 仿放置手游的挂机奖励领取(按时间戳)

落日804452252

来源 西伯利亚的忠犬-狗哥

QM:
[@Login]
#IF
ISNEWHUMAN
#ACT
MOV U0 <$UTCNOW>

#IF
#ACT
SETONTIMER 1 1

[@ONTIMER1]

#IF
#ACT
FORMULATION <$UTCNOW>-<$STR(U15)> N$临时实际挂机时间变量

#IF
#ACT
FORMULATION <$STR(N$临时实际挂机时间变量)>/3600 S$挂机小时数
FORMULATION (<$STR(N$临时实际挂机时间变量)>-<$STR(S$挂机小时数)>*3600)/60 S$挂机分钟数
FORMULATION <$STR(N$临时实际挂机时间变量)>-<$STR(S$挂机小时数)>*3600-<$STR(S$挂机分钟数)>*60 S$挂机秒数

#IF
SMALL S$挂机小时数 10
#ACT
MOV S$挂机小时数 0<$STR(S$挂机小时数)>

#IF
SMALL S$挂机分钟数 10
#ACT
MOV S$挂机分钟数 0<$STR(S$挂机分钟数)>

#IF
SMALL S$挂机秒数 10
#ACT
MOV S$挂机秒数 0<$STR(S$挂机秒数)>

#IF
NOT SMALL N$临时实际挂机时间变量 <$STR(N$当前人物挂机时间)>
#ACT
MOV N$临时实际挂机时间变量 <$STR(N$当前人物挂机时间)>
MOV S$挂机按钮显示时间 {点击领取|249}
#ELSEACT
MOV S$挂机按钮显示时间 {<$STR(S$挂机小时数)>:<$STR(S$挂机分钟数)>:<$STR(S$挂机秒数)>|251}

#IF
#ACT
FORMULATION (<$STR(N$临时实际挂机时间变量)>*<$STR(N$人物等级奖励基数)>*<$LEVEL>+<$STR(U0)>*<$STR(N$任务进程奖励基数)>*<$STR(N$临时实际挂机时间变量)>)*<$STR(N$挂机奖励倍率)>/100 N$当前挂机可获得奖励

#IF
#ACT
MOVR N$按钮展示图标变量 0 3
ADDBUTTON 34 34 <$STR(L$替身草人素材数组[<$STR(N$按钮展示图标变量)>])> <$STR(L$替身草人素材数组[<$STR(N$按钮展示图标变量)>])> <$STR(L$替身草人素材数组[<$STR(N$按钮展示图标变量)>])> 270 25 2 \　\　\<$STR(S$挂机按钮显示时间)> {最大时长:|70}{<$STR(N$人物挂机时间上限小时数)>小时|253}\{奖励倍率:|70}{<$STR(N$挂机奖励倍率)>%|253}\{每小时奖励:|70}{人物等级*40000金币+第五幕任务进度*100000+额外奖励|253}\　\{当前点击可获得:|70}{<$STR(N$当前挂机可获得奖励)>金币+若干物品|250}

QF:
[@TAKEONEX]
#ACT
#CALL [挂机属性.txt] @开始计算挂机属性

[@ButtonClick34]
#IF
#ACT
FORMULATION <$UTCNOW>-<$STR(U15)> N$领取时挂机时间

#IF
SMALL N$领取时挂机时间 10
#ACT
MOV N$临时变量 10
DEC N$临时变量 <$STR(N$领取时挂机时间)>
MESSAGEBOX <请/SCOLOR=251><[<$STR(N$临时变量)>秒]/SCOLOR=249><后再领取！/SCOLOR=251>
BREAK

#IF
LARGE N$领取时挂机时间 <$STR(N$人物挂机时间上限)>
#ACT
MOV N$领取时挂机时间 <$STR(N$人物挂机时间上限)>

#IF
#ACT
FORMULATION (<$STR(N$领取时挂机时间)>*<$STR(N$人物等级奖励基数)>*<$LEVEL>+<$STR(U0)>*<$STR(N$任务进程奖励基数)>*<$STR(N$领取时挂机时间)>)*<$STR(N$挂机奖励倍率)>/100 N$本次挂机奖励金币
GIVE 金币 <$STR(N$本次挂机奖励金币)>
MOV U15 <$UTCNOW>
SENDMSG 6 你领取了挂机奖励：{<$STR(N$本次挂机奖励金币)>金币|70}

挂机属性.txt：

[@开始计算挂机属性]
{

#IF
#ACT
MOV N$人物挂机时间上限 21600
MOV N$人物挂机时间上限小时数 6
MOV N$人物等级奖励基数 11
MOV N$挂机奖励倍率 100
MOV N$任务进程奖励基数 27
MOV N$精铁石奖励基数 10
MOV N$进阶石奖励基数 8
MOV L$限时卡数组 <$STR(T12)>

#IF(2)
NOT EQUAL L$限时卡数组[0] 未购买
LARGE <$STR(L$限时卡数组[0])> 0
LARGE J2 0
#ACT
INC N$人物挂机时间上限 7200
INC N$人物挂机时间上限小时数 2

#IF(2)
NOT EQUAL L$限时卡数组[1] 未购买
LARGE <$STR(L$限时卡数组[1])> 0
LARGE J3 0
#ACT
INC N$挂机奖励倍率 10

#IF
CHECK [500] 1
#ACT
INC N$人物挂机时间上限 14400
INC N$挂机奖励倍率 20
INC N$人物挂机时间上限小时数 4

}