GEE引擎充值进度条分vip等级领取福利脚本！

admin

;本脚本变量说明：
;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 <$STR(U40)>
DIV P500 5
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员等级 <ItemShow:1:0:-415:235:1>
Loopgoto @运算 <$STR(P500)>

#IF
LARGE U40 499
SMALL U40 1001
#ACT
MOV P500 <$STR(U40)>
DIV P500 10
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员等级 VIP2
Loopgoto @运算 <$STR(P500)>

#IF
LARGE U40 999
SMALL U40 2001
#ACT
MOV P500 <$STR(U40)>
DIV P500 20
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员等级 VIP3
Loopgoto @运算 <$STR(P500)>

#IF
LARGE U40 1999
SMALL U40 3001
#ACT
MOV P500 <$STR(U40)>
DIV P500 30
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员等级 VIP4
Loopgoto @运算 <$STR(P500)>

#IF
LARGE U40 2999
SMALL U40 4001
#ACT
MOV P500 <$STR(U40)>
DIV P500 40
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员等级 VIP5
Loopgoto @运算 <$STR(P500)>

#IF
LARGE U40 3999
SMALL U40 5001
#ACT
MOV P500 <$STR(U40)>
DIV P500 50
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员等级 VIP6
Loopgoto @运算 <$STR(P500)>

#IF
LARGE U40 4999
#ACT
MOV P500 100
MOV P501 140
MOV P502 1000
MOV S$充值进度条
MOV S$会员等级 VIP7
Loopgoto @运算 <$STR(P500)>

#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$礼包展示 <PlayImg:115:2:1:1000:100:0:2:200积分礼包(一)><PlayImg:115:2:1:1000:130:0:2:200积分礼包(二)><PlayImg:115:2:1:1000:160:0:2:200积分礼包(三)>

#IF
CHECK [502] 0
#ACT
MOV P503 100
MOV S$礼包展示 <PlayImg:115:2:1:1000:100:0:2:100积分礼包(一)><PlayImg:115:2:1:1000:130:0:2:1000积分礼包(二)><PlayImg:115:2:1:1000:160:0:2:100积分礼包(三)>

#IF
CHECK [501] 0
#ACT
MOV P503 50
MOV S$礼包展示 <PlayImg:115:2:1:1000:100:0:2:50积分礼包(一)><PlayImg:115:2:1:1000:130:0:2:50积分礼包(二)><PlayImg:115:2:1:1000:160:0:2:50积分礼包(三)>

#IF
CHECK [500] 0
#ACT
MOV P503 10
MOV S$礼包展示 <PlayImg:115:2:1:1000:100:0:2:10积分礼包(一)><PlayImg:115:2:1:1000:130:0:2:10积分礼包(二)><PlayImg:115:2:1:1000:160:0:2:10积分礼包(三)>
Mov S$Vip功能0 充值达1元升级为Vip1,可以开启以下功能：
Mov S$Vip功能1 1.自动开启宠物栏1-2格。
Mov S$Vip功能2 2.每日可以领取10W补助金。
#IF
#ACT
MOV S$当前积分 <$STR(U40)>/<$STR(P502)>
SetStringBlank S$当前积分 24 1
OPENMERCHANTBIGDLG 21 24 1 0 235 75 1 510 23 1
#SAY
\ \ \                                          {[<$STR(S$会员等级)>]/FCOLOR=251}\
\ \ \ \ \
<我是充值积分回馈大师，很高兴为你服务：/FCOLOR=70>\ \
<你已经充值：/FCOLOR=251>              <$STR(S$当前积分)>\
<Img:0:115:70:-22><$STR(S$充值进度条)>\
<回馈礼包/FCOLOR=250><(<$STR(P503)>积分)/FCOLOR=253><：/FCOLOR=254>\
<>  <$STR(S$礼包展示)>\ \ \
<>                                               【<领取/@领取>】 \
<充1/@加充值> <充10/@加充值10> <充20/@加充值20> <充50/@加充值50> <充100/@加充值100> <充500/@加充值500> <清空充值/@清空充值>

[@领取]
#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 <$STR(P503)>
#ACT
MESSAGEBOX  [操作失败]：领取该礼包需要<$STR(P503)>积分！
#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$充值进度条 <Img:1:115:-<$STR(P501)>:-20>
充值.txt (5.27 KB, 下载次数: 23, 售价: 10 金币)

2017-7-20 15:08 上传

点击文件名下载附件

xcyach

欢迎大家来到传奇单机版论坛，有资源的朋友可发点东西到论坛赚取金币和大家交流资源呀！

19861208

欢迎大家来到传奇单机版论坛，有资源的朋友可发点东西到论坛赚取金币和大家交流资源呀！

请叫我云哥

这个脚本不错，我拿过去用了，不过可惜要自己找素材了！
这些都是小问题啊

5232390

pandaphone

资源编号：25，根据自己版本资源编号修改

a757575sss

欢迎大家来到传奇单机版论坛，有资源的朋友可发点东西到论坛赚取金币和大家交流资源呀

guoguanzo

不错的东西····稍微改一下能搞出不少东西来

大蛇丸

我看不错噢 谢谢楼主！！

wt88576705

大萨达萨达萨达

wt88576705

大萨达萨达萨达

a82968228

不错哈哈