论坛首页 › 传奇脚本分享 › GEE引擎充值进度条分vip等级领取福利脚本！

admin 发表于 2017-7-20 15:07:15

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

;本脚本变量说明：
;U40    当前积分
;P500   把当前积分赋值给P500，便于计算
;P501    进度条X坐标位移量
;P502   本阶段所需要积分
;P503   占用
;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 0
#ACT
MOV P503 1000
MOV S$礼包展示 <PlayImg:115:2:1:1000:100:0:2:1000积分礼包(一)><PlayImg:115:2:1:1000:130:0:2:1000积分礼包(二)><PlayImg:115:2:1:1000:160:0:2:1000积分礼包(三)>

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

#IF
CHECK 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 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 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 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 0
LARGE U40 499
#ACT
SET 1
GIVE 500积分礼包(一) 1
GIVE 500积分礼包(二) 1
GIVE 500积分礼包(三) 1
GOTO @MAIN2
MESSAGEBOX 恭喜，500积分回馈礼包领取成功！
BREAK

#IF
CHECK 0
LARGE U40 999
#ACT
SET 1
GIVE 1000积分礼包(一) 1
GIVE 1000积分礼包(二) 1
GIVE 1000积分礼包(三) 1
GOTO @MAIN2
MESSAGEBOX 恭喜，1000积分回馈礼包领取成功！
BREAK

#IF
CHECK 0
LARGE U40 1999
#ACT
SET 1
GIVE 2000积分礼包(一) 1
GIVE 2000积分礼包(二) 1
GIVE 2000积分礼包(三) 1
GOTO @MAIN2
MESSAGEBOX 恭喜，2000积分回馈礼包领取成功！
BREAK

#IF
CHECK 0
LARGE U40 2999
#ACT
SET 1
GIVE 3000积分礼包(一) 1
GIVE 3000积分礼包(二) 1
GIVE 3000积分礼包(三) 1
GOTO @MAIN2
MESSAGEBOX 恭喜，3000积分回馈礼包领取成功！
BREAK

#IF
CHECK 0
LARGE U40 3999
#ACT
SET 1
GIVE 4000积分礼包(一) 1
GIVE 4000积分礼包(二) 1
GIVE 4000积分礼包(三) 1
GOTO @MAIN2
MESSAGEBOX 恭喜，4000积分回馈礼包领取成功！
BREAK

#IF
CHECK 0
LARGE U40 4999
#ACT
SET 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 6
GOTO @MAIN2

[@运算]
#IF
#ACT
INC S$充值进度条 <Img:1:115:-<$STR(P501)>:-20>

xcyach 发表于 2022-5-17 02:17:20

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

19861208 发表于 2020-12-12 21:03:48

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

请叫我云哥 发表于 2017-7-21 13:30:07

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

5232390 发表于 2017-8-9 02:45:10

;P:lol:lol:lol:lol:lol

pandaphone 发表于 2018-2-22 18:32:09

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

a757575sss 发表于 2018-2-28 13:33:43

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

guoguanzo 发表于 2018-3-23 09:20:39

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

大蛇丸 发表于 2018-8-31 10:00:20

我看不错噢 谢谢楼主！！

wt88576705 发表于 2020-5-30 21:58:20

大萨达萨达萨达

wt88576705 发表于 2020-5-30 21:59:13

大萨达萨达萨达

a82968228 发表于 2020-9-30 16:04:14

不错哈哈

查看完整版本: GEE引擎充值进度条分vip等级领取福利脚本！