#推荐
彩虹引擎VIP功能脚本

2023-12-15 0 201
隐藏内容

本脚本仅适合铁血、时光、魔魇模式。

[@VIP触发]
{

[@_VIP_打开界面]
#IF
EQUAL $Task(14) 1
#ACT
UpdateTask 14 2
SENDMSG 5 您正在查看VIP系统!
break
#IF
RANDOM 1
#ACT
SENDMSG 5 您正在查看VIP系统!
break

[@_VIP_充值]
#IF
CHECKGAMEGOLD < $PARAM(0)
#ACT
SENDMSG 5 您的元宝不足
break
#IF
RANDOM 1
#ACT
MOV M80 $VIPLEVEL
MOV M81 $PARAM(0)
GAMEGOLD – $PARAM(0)
BINDGAMEGOLD + $PARAM(0)
#IF
!EQUAL $Table(SG_Pritime).Tim24 $DATE
#ACT
Table SG_ACTIVE Liv01 + 30
Table SG_ACTIVE Liv02 + 30
Table SG_ACTIVE Liv09 + 1
Table SG_Pritime Tim24 = $DATE
SENDMSG 5 今日第1次完成[VIP充值],增加活跃度积分30!
HCALL $USERNAME @活跃度奖励
#IF
LARGE $VIPLEVEL 9
#ACT
SENDMSG 5 新区VIP最高为10级!,您当前是vip#32<$VIPLEVEL>,充值vip元宝数为:<$VIPEXP>,剩余元宝数#32<$GAMEGOLD>
break
#ELSEACT
CHANGEVIPEXP + $STR(M81)
SENDMSG 5 充值新区VIP成功!,您当前是vip#32<$VIPLEVEL>,充值vip元宝数为:<$VIPEXP>,剩余元宝数#32<$GAMEGOLD>
#IF
LARGE $VIPLEVEL $STR(M80)
#ACT
MOV M80 $VIPLEVEL
MULT M80 10
INC M80 200
Table SG_ENERGY RGY06 = $STR(M80)
SENDMSG 14 恭喜<$USERNAME>勇士升级为VIP<$VIPLEVEL>,享有尊贵特权,还有绑定元宝天天领,真是羡煞旁人!
#IF
LARGE $VIPLEVEL 8
#ACT
CHANGENAMECOLOR 253
break

[@_VIP_扩展包裹]
#IF
SMALL $BAGSIZE 66
#ACT
MESSAGEBOX 大侠,请先将主体包裹扩充完再来
break
#IF
SMALL $VIPLEVEL 1
#ACT
MESSAGEBOX 您不是VIP
break
#IF
CHECKITEM 包裹扩充符 1
#ACT
MOV P8 $BAGSIZE
INC P8 1
TAKE 包裹扩充符 1
BAGSIZE $STR(P8)
SENDMSG 5 恭喜你的VIP包裹扩充成功。
break
#ELSEACT
MESSAGEBOX 大侠,你没有包裹扩充符
break

[@_VIP_扩展仓库]
#IF
SMALL $VIPLEVEL 1
#ACT
MESSAGEBOX 您不是VIP
break
#IF
CHECKITEM 仓库扩充符 1
#ACT
TAKE 仓库扩充符 1
StorageSize + 1
SENDMSG 5 恭喜你的VIP仓库扩充成功。
break
#ELSEACT
MESSAGEBOX 大侠,你没有仓库扩充符
break

[@_VIP_升级礼包]
#IF
SMALL $VIPLEVEL 1
#ACT
MESSAGEBOX 您不是VIP无法领取奖励!
break
#IF
EQUAL $TABLE(SG_PRIVITE).Hum13 $VIPLEVEL
#ACT
MESSAGEBOX 您已经领取过奖励!
break
#IF
CHECKBAGSIZE 7
#ACT
#ELSEACT
MESSAGEBOX 请腾出更多包裹!
break
#IF
EQUAL $TABLE(SG_PRIVITE).Hum13 0
#ACT
give 强化石 1 1
give 淬炼石 1 1
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 50
TABLE SG_PRIVITE Hum13 = 1
MESSAGEBOX 你成功领取了VIP1升级礼包!
break
#IF
EQUAL $TABLE(SG_PRIVITE).Hum13 1
#ACT
give 仓库扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 5
give 包裹扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 5
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 50
give 强化石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 2
give 淬炼石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 2
TABLE SG_PRIVITE Hum13 = 2
MESSAGEBOX 你成功领取了VIP2升级礼包!
break
#IF
EQUAL $TABLE(SG_PRIVITE).Hum13 2
#ACT
give 仓库扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 5
give 包裹扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 5
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
give 强化石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 4
give 淬炼石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 4
TABLE SG_PRIVITE Hum13 = 3
MESSAGEBOX 你成功领取了VIP3升级礼包!
break
#IF
EQUAL $TABLE(SG_PRIVITE).Hum13 3
#ACT
give 仓库扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 5
give 包裹扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 5
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
give 强化石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 6
give 淬炼石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 6
TABLE SG_PRIVITE Hum13 = 4
MESSAGEBOX 你成功领取了VIP4升级礼包!
break
#IF
EQUAL $TABLE(SG_PRIVITE).Hum13 4
#ACT
give 仓库扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 5
give 包裹扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 5
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
give 强化石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 8
give 淬炼石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 8
TABLE SG_PRIVITE Hum13 = 5
MESSAGEBOX 你成功领取了VIP5升级礼包!
break
#IF
EQUAL $TABLE(SG_PRIVITE).Hum13 5
#ACT
give 仓库扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 5
give 包裹扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 5
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
give 强化石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
give 淬炼石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
TABLE SG_PRIVITE Hum13 = 6
MESSAGEBOX 你成功领取了VIP6升级礼包!
break
#IF
EQUAL $TABLE(SG_PRIVITE).Hum13 6
#ACT
give 仓库扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 5
give 包裹扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 5
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
give 强化石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 20
give 淬炼石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 20
TABLE SG_PRIVITE Hum13 = 7
MESSAGEBOX 你成功领取了VIP7升级礼包!
break
#IF
EQUAL $TABLE(SG_PRIVITE).Hum13 7
#ACT
give 仓库扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
give 包裹扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 200
give 强化石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 30
give 淬炼石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 30
TABLE SG_PRIVITE Hum13 = 8
MESSAGEBOX 你成功领取了VIP8升级礼包!
break
#IF
EQUAL $TABLE(SG_PRIVITE).Hum13 8
#ACT
give 仓库扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
give 包裹扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 200
give 强化石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 50
give 淬炼石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 50
TABLE SG_PRIVITE Hum13 = 9
MESSAGEBOX 你成功领取了VIP9升级礼包!
break
#IF
EQUAL $TABLE(SG_PRIVITE).Hum13 9
#ACT
give 仓库扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
give 包裹扩充符 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 200
give 强化石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
give 淬炼石 1 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
TABLE SG_PRIVITE Hum13 = 10
MESSAGEBOX 你成功领取了VIP10升级礼包!
break

[@_VIP_每日福利] VIP
                    每日福利特权\
        只有VIP才可以领取每日福利。\\\\
        <领取福利/@handleVIPPrize> <离开/@exit><返回/@main>

[@handleVIPPrize] VIP
#IF
SMALL $VIPLEVEL 1
#SAY
您不是vip玩家  <离开/@exit>
#ACT
break
#IF
EQUAL $Table(SG_Pritime).Tim14 $DATE
#SAY
您已经领取过今日福利 <离开/@exit>
#ACT
break
#IF
CHECKBAGSIZE 3
#ACT
MOV M80 $VIPLEVEL
MULT M80 2
#ELSEACT
MESSAGEBOX 请腾出更多包裹!
break
#IF
LARGE $VIPLEVEL 4
#SAY
领取福利成功!  <返回/@exit>
#ACT
give 超级天山雪莲 2 1
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M80)
Table SG_Pritime Tim14 = $DATE
break
#IF
LARGE $VIPLEVEL 2
#SAY
领取福利成功!  <返回/@exit>
#ACT
give 超级天山雪莲 1 1
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M80)
Table SG_Pritime Tim14 = $DATE
break
#IF
RANDOM 1
#SAY
领取福利成功!  <返回/@exit>
#ACT
give 天山雪莲 $VIPLEVEL 1
give 飞行靴 1 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M80)
Table SG_Pritime Tim14 = $DATE
break

[@_VIP_神行千里] VIP
                    <color=red 神行千里> \
        VIP1-2可以使用初级传送功能 \
        VIP3-5可以使用中级传送功能 \
        VIP6以上可以使用高级传送功能 \
        每次传送需要消耗1个飞行靴。 \\
        <传送地点说明/@ToFly> \
        <使用初级传送/@PutongChuansong> \
        <使用中级传送/@ZhongjiChuansong> \
        <使用高级传送/@GaojiChuansong> \\
        <离开/@exit>

[@ToFly] VIP
<color=orange 初级传送地点:>\
    落霞岛、中州魔法祭祀、中州铁匠铺、中州书店、\
中州药店、中州首饰店、中州仓库、比武准备场。\
<color=orange 中级传送地点:>\
    将军坟一层入口、将军坟东一层入口、尸王殿、\
机关洞、蛇魔谷、逆魔古刹、通天塔、禁地、地下魔域。\
<color=orange 高级传送地点:>\
    将军殿、中枢大殿、盘蛇道、八仙纵横、尸上行、\
逆魔古刹四层、苍茫大厅。\
    <返回/@_VIP_神行千里>\

[@GaojiChuansong] VIP
#IF
SMALL $VIPLEVEL 1
#SAY
您不是vip\
<返回/@_VIP_神行千里>
#ACT
break
#IF
LARGE $VIPLEVEL 5
#SAY
  VIP6级以上可使用以下传送功能\
    <将军殿入口/@SendTo&H073&140&153>        <中枢大殿入口/@SendTo&M004&24&127>\
    <盘蛇道/@SendTo&N004&208&477>            <八仙纵横/@SendTo&TT008&166&211>\
    <逆魔古刹四层/@SendTo&S018&152&285>      <苍茫大厅/@SendTo&AS002&24&118>\
    <尸上行入口/@SendTo&J006&45&13>       \
  传送功能使用有风险,请谨慎使用!\
    <返回/@_VIP_神行千里>
#ACT
break
#ELSESAY
\\您不是vip6级以上玩家,无法使用高级传送功能  <返回/@main>
#ELSEACT
break

[@ZhongjiChuansong] VIP
#IF
SMALL $VIPLEVEL 1
#SAY
您不是vip\
<返回/@_VIP_神行千里>
#ACT
break
#IF
LARGE $VIPLEVEL 2
#SAY
  VIP3-5可使用以下传送功能\
    <将军坟一层入口/@SendTo&0&51&181>            <逆魔古刹/@SendTo&3&368&716>\
    <将军坟东一层入口/@SendTo&0&775&401>          <通天塔/@SendTo&5&141&111>\
    <尸王殿/@SendTo&T015&63&134>                    <禁地之门/@SendTo&4&53&187>\
    <机关洞/@SendTo&2&218&440>                    <地下魔域/@SendTo&7&383&54>\
    <蛇魔谷/@SendTo&10&60&44>\
  传送功能使用有风险,请谨慎使用!\
    <返回/@_VIP_神行千里>
#ACT
break
#ELSESAY
\\您不是vip3级以上玩家,无法使用高级传送功能  <返回/@main>
#ELSEACT
break

[@PutongChuansong] VIP
#IF
SMALL $VIPLEVEL 1
#SAY
您不是vip\
<返回/@_VIP_神行千里>
#ACT
break
#IF
LARGE $VIPLEVEL 0
#SAY
  VIP1-2级可使用以下传送功能\
    <落霞岛/@SendTo&1&246&243>         <中州药店/@SendTo&0&494&274>\
    <中州魔法祭祀/@SendTo&0&426&179>   <中州首饰店/@SendTo&0&471&252>\
    <中州铁匠铺/@SendTo&0&420&248>     <中州仓库/@SendTo&0&374&214>\
    <中州书店/@SendTo&SH010&7&13>       <比武准备场/@SendTo&SH003&15&28>\
  传送功能使用有风险,请谨慎使用!\
    <返回/@_VIP_神行千里>
#ACT
break

[@SendTo]
#IF
CHECKITEM 飞行靴 1
#ACT
MAPMOVE $SCRIPTPARAM(1) $SCRIPTPARAM(2) $SCRIPTPARAM(3)
UPGRADEUSERITEM $ITEMMAKEINDEX[飞行靴] 20 – 1
break
#ELSEACT
SENDMSG 5 缺少传送道具“飞行靴”,无法使用传送功能,请到商城购买。

break

}

收藏 (0) 打赏

感谢您的支持,我会继续努力的!

打开微信/支付宝扫一扫,即可进行扫码打赏哦,分享从这里开始,精彩与您同在
点赞 (0)

常见问题

相关文章

发表评论
暂无评论