|
|
;本脚本变量说明：
;U40 当前积分
500 把当前积分赋值给P500，便于盘算
501 进度条X坐标位移量
502 本阶段[VIP]所需要积分
503 占用
;S$充值进度条
;S$礼包展示
;S$会员品级
;S$当前积分
;资源文件：002.wzl
;资源编号：25，根据自己版本资源编号修改
[@main]
#IF
#ACT
MOV S$充值进度条
GOTO @MAIN2
[@MAIN2]
#IF
EQUAL U40 0
#ACT
MOV P502 1000
MOV S$会员品级 VIP0
#IF
LARGE U40 0
SMALL U40 500
#ACT
MOV P500
DIV P500 5
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员品级
Loopgoto @运算
#IF
LARGE U40 499
SMALL U40 1001
#ACT
MOV P500
DIV P500 10
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员品级 VIP2
Loopgoto @运算
#IF
LARGE U40 999
SMALL U40 2001
#ACT
MOV P500
DIV P500 20
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员品级 VIP3
Loopgoto @运算
#IF
LARGE U40 1999
SMALL U40 3001
#ACT
MOV P500
DIV P500 30
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员品级 VIP4
Loopgoto @运算
#IF
LARGE U40 2999
SMALL U40 4001
#ACT
MOV P500
DIV P500 40
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员品级 VIP5
Loopgoto @运算
#IF
LARGE U40 3999
SMALL U40 5001
#ACT
MOV P500
DIV P500 50
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员品级 VIP6
Loopgoto @运算
#IF
LARGE U40 4999
#ACT
MOV P500 100
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员品级 VIP7
Loopgoto @运算
#IF
CHECK [505] 0
#ACT
MOV P503 1000
MOV S$礼包展示 <layImg:115:2:1:1000:100:0:2:1000积分礼包(一)><layImg:115:2:1:1000:130:0:2:1000积分礼包(二)><layImg:115:2:1:1000:160:0:2:1000积分礼包(三)>
#IF
CHECK [504] 0
#ACT
MOV P503 500
MOV S$礼包展示 <layImg:115:2:1:1000:100:0:2:500积分礼包(一)><layImg:115:2:1:1000:130:0:2:500积分礼包(二)><layImg:115:2:1:1000:160:0:2:500积分礼包(三)>
#IF
CHECK [503] 0
#ACT
MOV P503 200
MOV S$礼包展示
#IF
CHECK [502] 0
#ACT
MOV P503 100
MOV S$礼包展示
#IF
CHECK [501] 0
#ACT
MOV P503 50
MOV S$礼包展示
#IF
CHECK [500] 0
#ACT
MOV P503 10
MOV S$礼包展示
Mov S$Vip功能0 充值达1元升级为Vip1,可以开启以下功能：
Mov S$Vip功能1 1.自动开启宠物栏1-2格。
Mov S$Vip功能2 2.每日可以领取10W补贴金。
#IF
#ACT
MOV S$当前积分 /
SetStringBlank S$当前积分 24 1
OPENMERCHANTBIGDLG 21 24 1 0 235 75 1 510 23 1
#SAY
\ \ \ {[]/FCOLOR=251}\
\ \ \ \ \
\ \
\
\
\
\ \ \
【】 \
[@领取]
#IF
CHECK [500] 0
LARGE U40 499
#ACT
SET [500] 1
GIVE 500积分礼包(一) 1
GIVE 500积分礼包(二) 1
GIVE 500积分礼包(三) 1
GOTO @MAIN2
MESSAGEBOX 恭喜，500积分回馈礼包领取乐成！
BREAK
#IF
CHECK [501] 0
LARGE U40 999
#ACT
SET [501] 1
GIVE 1000积分礼包(一) 1
GIVE 1000积分礼包(二) 1
GIVE 1000积分礼包(三) 1
GOTO @MAIN2
MESSAGEBOX 恭喜，1000积分回馈礼包领取乐成！
BREAK
#IF
CHECK [502] 0
LARGE U40 1999
#ACT
SET [502] 1
GIVE 2000积分礼包(一) 1
GIVE 2000积分礼包(二) 1
GIVE 2000积分礼包(三) 1
GOTO @MAIN2
MESSAGEBOX 恭喜，2000积分回馈礼包领取乐成！
BREAK
#IF
CHECK [503] 0
LARGE U40 2999
#ACT
SET [503] 1
GIVE 3000积分礼包(一) 1
GIVE 3000积分礼包(二) 1
GIVE 3000积分礼包(三) 1
GOTO @MAIN2
MESSAGEBOX 恭喜，3000积分回馈礼包领取乐成！
BREAK
#IF
CHECK [504] 0
LARGE U40 3999
#ACT
SET [504] 1
GIVE 4000积分礼包(一) 1
GIVE 4000积分礼包(二) 1
GIVE 4000积分礼包(三) 1
GOTO @MAIN2
MESSAGEBOX 恭喜，4000积分回馈礼包领取乐成！
BREAK
#IF
CHECK [505] 0
LARGE U40 4999
#ACT
SET [505] 1
GIVE 5000积分礼包(一) 1
GIVE 5000积分礼包(二) 1
GIVE 5000积分礼包(三) 1
GOTO @MAIN2
MESSAGEBOX 恭喜，5000积分回馈礼包领取乐成！
BREAK
#IF
SMALL U40
#ACT
MESSAGEBOX [操作失败]：领取该礼包需要积分！
#ELSEACT
MESSAGEBOX [操作失败]：你已经领取完所有礼包了！
[@加充值]
#IF
#ACT
INC U40 1
GOTO @MAIN2
[@加充值10]
#IF
#ACT
INC U40 10
GOTO @MAIN2
[@加充值20]
#IF
#ACT
INC U40 20
GOTO @MAIN2
[@加充值50]
#IF
#ACT
INC U40 50
GOTO @MAIN2
[@加充值100]
#IF
#ACT
INC U40 100
GOTO @MAIN2
[@加充值500]
#IF
#ACT
INC U40 500
GOTO @MAIN2
[@清空充值]
#IF
#ACT
MOV U40 0
MOV S$充值进度条
RESET [500] 6
GOTO @MAIN2
[@运算]
#IF
#ACT
INC S$充值进度条
充值.txt
(5.27 KB, 下载次数: 0, 售价: 10 金币)
·欢迎您将手头的闲置资源分享到传奇版本库哟！ |
|
发表于
2020-11-4 03:37:48