设为首页收藏本站
开启辅助访问 切换到窄版
搜索
资源社区»论坛 › 资源板块 › 功能脚本 › 彩虹引擎VIP功能脚本
查看: 23|回复: 0

[案例脚本] 彩虹引擎VIP功能脚本

[复制链接]
admin
  • 打卡等级：偶尔看看
  • 打卡总天数：10
  • 打卡月天数：1
  • 打卡总奖励：2092
  • 最近打卡：2025-10-01 05:51:05

261

主题

1

回帖

2925

积分

管理员

积分
2925
发表于 2025-9-19 02:58:46 | 显示全部楼层 |阅读模式
  1. 本脚本仅适合铁血、时光、魔魇模式。

  3. [@VIP触发]
  4. {

  6. [@_VIP_打开界面]
  7. #IF
  8. EQUAL $Task(14) 1
  9. #ACT
  10. UpdateTask 14 2
  11. SENDMSG 5 您正在查看VIP系统！
  12. break
  13. #IF
  14. RANDOM 1
  15. #ACT
  16. SENDMSG 5 您正在查看VIP系统！
  17. break

  19. [@_VIP_充值]
  20. #IF
  21. CHECKGAMEGOLD < $PARAM(0)
  22. #ACT
  23. SENDMSG 5 您的元宝不足
  24. break
  25. #IF
  26. RANDOM 1
  27. #ACT
  28. MOV M80 $VIPLEVEL
  29. MOV M81 $PARAM(0)
  30. GAMEGOLD – $PARAM(0)
  31. BINDGAMEGOLD + $PARAM(0)
  32. #IF
  33. !EQUAL $Table(SG_Pritime).Tim24 $DATE
  34. #ACT
  35. Table SG_ACTIVE Liv01 + 30
  36. Table SG_ACTIVE Liv02 + 30
  37. Table SG_ACTIVE Liv09 + 1
  38. Table SG_Pritime Tim24 = $DATE
  39. SENDMSG 5 今日第1次完成[VIP充值],增加活跃度积分30!
  40. HCALL $USERNAME @活跃度奖励
  41. #IF
  42. LARGE $VIPLEVEL 9
  43. #ACT
  44. SENDMSG 5 新区VIP最高为10级!，您当前是vip#32<$VIPLEVEL>,充值vip元宝数为:<$VIPEXP>,剩余元宝数#32<$GAMEGOLD>
  45. break
  46. #ELSEACT
  47. CHANGEVIPEXP + $STR(M81)
  48. SENDMSG 5 充值新区VIP成功!，您当前是vip#32<$VIPLEVEL>,充值vip元宝数为:<$VIPEXP>,剩余元宝数#32<$GAMEGOLD>
  49. #IF
  50. LARGE $VIPLEVEL $STR(M80)
  51. #ACT
  52. MOV M80 $VIPLEVEL
  53. MULT M80 10
  54. INC M80 200
  55. Table SG_ENERGY RGY06 = $STR(M80)
  56. SENDMSG 14 恭喜<$USERNAME>勇士升级为VIP<$VIPLEVEL>，享有尊贵特权，还有绑定元宝天天领，真是羡煞旁人！
  57. #IF
  58. LARGE $VIPLEVEL 8
  59. #ACT
  60. CHANGENAMECOLOR 253
  61. break

  63. [@_VIP_扩展包裹]
  64. #IF
  65. SMALL $BAGSIZE 66
  66. #ACT
  67. MESSAGEBOX 大侠，请先将主体包裹扩充完再来
  68. break
  69. #IF
  70. SMALL $VIPLEVEL 1
  71. #ACT
  72. MESSAGEBOX 您不是VIP
  73. break
  74. #IF
  75. CHECKITEM 包裹扩充符 1
  76. #ACT
  77. MOV P8 $BAGSIZE
  78. INC P8 1
  79. TAKE 包裹扩充符 1
  80. BAGSIZE $STR(P8)
  81. SENDMSG 5 恭喜你的VIP包裹扩充成功。
  82. break
  83. #ELSEACT
  84. MESSAGEBOX 大侠，你没有包裹扩充符
  85. break

  87. [@_VIP_扩展仓库]
  88. #IF
  89. SMALL $VIPLEVEL 1
  90. #ACT
  91. MESSAGEBOX 您不是VIP
  92. break
  93. #IF
  94. CHECKITEM 仓库扩充符 1
  95. #ACT
  96. TAKE 仓库扩充符 1
  97. StorageSize + 1
  98. SENDMSG 5 恭喜你的VIP仓库扩充成功。
  99. break
  100. #ELSEACT
  101. MESSAGEBOX 大侠，你没有仓库扩充符
  102. break

  104. [@_VIP_升级礼包]
  105. #IF
  106. SMALL $VIPLEVEL 1
  107. #ACT
  108. MESSAGEBOX 您不是VIP无法领取奖励!
  109. break
  110. #IF
  111. EQUAL $TABLE(SG_PRIVITE).Hum13 $VIPLEVEL
  112. #ACT
  113. MESSAGEBOX 您已经领取过奖励!
  114. break
  115. #IF
  116. CHECKBAGSIZE 7
  117. #ACT
  118. #ELSEACT
  119. MESSAGEBOX 请腾出更多包裹!
  120. break
  121. #IF
  122. EQUAL $TABLE(SG_PRIVITE).Hum13 0
  123. #ACT
  124. give 强化石 1 1
  125. give 淬炼石 1 1
  126. give 飞行靴 1 1
  127. UPGRADEUSERITEM $PARAM(10) 20 = 50
  128. TABLE SG_PRIVITE Hum13 = 1
  129. MESSAGEBOX 你成功领取了VIP1升级礼包！
  130. break
  131. #IF
  132. EQUAL $TABLE(SG_PRIVITE).Hum13 1
  133. #ACT
  134. give 仓库扩充符 1 1
  135. UPGRADEUSERITEM $PARAM(10) 20 = 5
  136. give 包裹扩充符 1 1
  137. UPGRADEUSERITEM $PARAM(10) 20 = 5
  138. give 飞行靴 1 1
  139. UPGRADEUSERITEM $PARAM(10) 20 = 50
  140. give 强化石 1 1
  141. UPGRADEUSERITEM $PARAM(10) 20 = 2
  142. give 淬炼石 1 1
  143. UPGRADEUSERITEM $PARAM(10) 20 = 2
  144. TABLE SG_PRIVITE Hum13 = 2
  145. MESSAGEBOX 你成功领取了VIP2升级礼包！
  146. break
  147. #IF
  148. EQUAL $TABLE(SG_PRIVITE).Hum13 2
  149. #ACT
  150. give 仓库扩充符 1 1
  151. UPGRADEUSERITEM $PARAM(10) 20 = 5
  152. give 包裹扩充符 1 1
  153. UPGRADEUSERITEM $PARAM(10) 20 = 5
  154. give 飞行靴 1 1
  155. UPGRADEUSERITEM $PARAM(10) 20 = 100
  156. give 强化石 1 1
  157. UPGRADEUSERITEM $PARAM(10) 20 = 4
  158. give 淬炼石 1 1
  159. UPGRADEUSERITEM $PARAM(10) 20 = 4
  160. TABLE SG_PRIVITE Hum13 = 3
  161. MESSAGEBOX 你成功领取了VIP3升级礼包！
  162. break
  163. #IF
  164. EQUAL $TABLE(SG_PRIVITE).Hum13 3
  165. #ACT
  166. give 仓库扩充符 1 1
  167. UPGRADEUSERITEM $PARAM(10) 20 = 5
  168. give 包裹扩充符 1 1
  169. UPGRADEUSERITEM $PARAM(10) 20 = 5
  170. give 飞行靴 1 1
  171. UPGRADEUSERITEM $PARAM(10) 20 = 100
  172. give 强化石 1 1
  173. UPGRADEUSERITEM $PARAM(10) 20 = 6
  174. give 淬炼石 1 1
  175. UPGRADEUSERITEM $PARAM(10) 20 = 6
  176. TABLE SG_PRIVITE Hum13 = 4
  177. MESSAGEBOX 你成功领取了VIP4升级礼包！
  178. break
  179. #IF
  180. EQUAL $TABLE(SG_PRIVITE).Hum13 4
  181. #ACT
  182. give 仓库扩充符 1 1
  183. UPGRADEUSERITEM $PARAM(10) 20 = 5
  184. give 包裹扩充符 1 1
  185. UPGRADEUSERITEM $PARAM(10) 20 = 5
  186. give 飞行靴 1 1
  187. UPGRADEUSERITEM $PARAM(10) 20 = 100
  188. give 强化石 1 1
  189. UPGRADEUSERITEM $PARAM(10) 20 = 8
  190. give 淬炼石 1 1
  191. UPGRADEUSERITEM $PARAM(10) 20 = 8
  192. TABLE SG_PRIVITE Hum13 = 5
  193. MESSAGEBOX 你成功领取了VIP5升级礼包！
  194. break
  195. #IF
  196. EQUAL $TABLE(SG_PRIVITE).Hum13 5
  197. #ACT
  198. give 仓库扩充符 1 1
  199. UPGRADEUSERITEM $PARAM(10) 20 = 5
  200. give 包裹扩充符 1 1
  201. UPGRADEUSERITEM $PARAM(10) 20 = 5
  202. give 飞行靴 1 1
  203. UPGRADEUSERITEM $PARAM(10) 20 = 100
  204. give 强化石 1 1
  205. UPGRADEUSERITEM $PARAM(10) 20 = 10
  206. give 淬炼石 1 1
  207. UPGRADEUSERITEM $PARAM(10) 20 = 10
  208. TABLE SG_PRIVITE Hum13 = 6
  209. MESSAGEBOX 你成功领取了VIP6升级礼包！
  210. break
  211. #IF
  212. EQUAL $TABLE(SG_PRIVITE).Hum13 6
  213. #ACT
  214. give 仓库扩充符 1 1
  215. UPGRADEUSERITEM $PARAM(10) 20 = 5
  216. give 包裹扩充符 1 1
  217. UPGRADEUSERITEM $PARAM(10) 20 = 5
  218. give 飞行靴 1 1
  219. UPGRADEUSERITEM $PARAM(10) 20 = 100
  220. give 强化石 1 1
  221. UPGRADEUSERITEM $PARAM(10) 20 = 20
  222. give 淬炼石 1 1
  223. UPGRADEUSERITEM $PARAM(10) 20 = 20
  224. TABLE SG_PRIVITE Hum13 = 7
  225. MESSAGEBOX 你成功领取了VIP7升级礼包！
  226. break
  227. #IF
  228. EQUAL $TABLE(SG_PRIVITE).Hum13 7
  229. #ACT
  230. give 仓库扩充符 1 1
  231. UPGRADEUSERITEM $PARAM(10) 20 = 10
  232. give 包裹扩充符 1 1
  233. UPGRADEUSERITEM $PARAM(10) 20 = 10
  234. give 飞行靴 1 1
  235. UPGRADEUSERITEM $PARAM(10) 20 = 200
  236. give 强化石 1 1
  237. UPGRADEUSERITEM $PARAM(10) 20 = 30
  238. give 淬炼石 1 1
  239. UPGRADEUSERITEM $PARAM(10) 20 = 30
  240. TABLE SG_PRIVITE Hum13 = 8
  241. MESSAGEBOX 你成功领取了VIP8升级礼包！
  242. break
  243. #IF
  244. EQUAL $TABLE(SG_PRIVITE).Hum13 8
  245. #ACT
  246. give 仓库扩充符 1 1
  247. UPGRADEUSERITEM $PARAM(10) 20 = 10
  248. give 包裹扩充符 1 1
  249. UPGRADEUSERITEM $PARAM(10) 20 = 10
  250. give 飞行靴 1 1
  251. UPGRADEUSERITEM $PARAM(10) 20 = 200
  252. give 强化石 1 1
  253. UPGRADEUSERITEM $PARAM(10) 20 = 50
  254. give 淬炼石 1 1
  255. UPGRADEUSERITEM $PARAM(10) 20 = 50
  256. TABLE SG_PRIVITE Hum13 = 9
  257. MESSAGEBOX 你成功领取了VIP9升级礼包！
  258. break
  259. #IF
  260. EQUAL $TABLE(SG_PRIVITE).Hum13 9
  261. #ACT
  262. give 仓库扩充符 1 1
  263. UPGRADEUSERITEM $PARAM(10) 20 = 10
  264. give 包裹扩充符 1 1
  265. UPGRADEUSERITEM $PARAM(10) 20 = 10
  266. give 飞行靴 1 1
  267. UPGRADEUSERITEM $PARAM(10) 20 = 200
  268. give 强化石 1 1
  269. UPGRADEUSERITEM $PARAM(10) 20 = 100
  270. give 淬炼石 1 1
  271. UPGRADEUSERITEM $PARAM(10) 20 = 100
  272. TABLE SG_PRIVITE Hum13 = 10
  273. MESSAGEBOX 你成功领取了VIP10升级礼包！
  274. break

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

  281. [@handleVIPPrize] VIP
  282. #IF
  283. SMALL $VIPLEVEL 1
  284. #SAY
  285. 您不是vip玩家  <离开/@exit>
  286. #ACT
  287. break
  288. #IF
  289. EQUAL $Table(SG_Pritime).Tim14 $DATE
  290. #SAY
  291. 您已经领取过今日福利 <离开/@exit>
  292. #ACT
  293. break
  294. #IF
  295. CHECKBAGSIZE 3
  296. #ACT
  297. MOV M80 $VIPLEVEL
  298. MULT M80 2
  299. #ELSEACT
  300. MESSAGEBOX 请腾出更多包裹!
  301. break
  302. #IF
  303. LARGE $VIPLEVEL 4
  304. #SAY
  305. 领取福利成功!  <返回/@exit>
  306. #ACT
  307. give 超级天山雪莲 2 1
  308. give 飞行靴 1 1
  309. UPGRADEUSERITEM $PARAM(10) 20 = $STR(M80)
  310. Table SG_Pritime Tim14 = $DATE
  311. break
  312. #IF
  313. LARGE $VIPLEVEL 2
  314. #SAY
  315. 领取福利成功!  <返回/@exit>
  316. #ACT
  317. give 超级天山雪莲 1 1
  318. give 飞行靴 1 1
  319. UPGRADEUSERITEM $PARAM(10) 20 = $STR(M80)
  320. Table SG_Pritime Tim14 = $DATE
  321. break
  322. #IF
  323. RANDOM 1
  324. #SAY
  325. 领取福利成功!  <返回/@exit>
  326. #ACT
  327. give 天山雪莲 $VIPLEVEL 1
  328. give 飞行靴 1 1
  329. UPGRADEUSERITEM $PARAM(10) 20 = $STR(M80)
  330. Table SG_Pritime Tim14 = $DATE
  331. break

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

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

  357. [@GaojiChuansong] VIP
  358. #IF
  359. SMALL $VIPLEVEL 1
  360. #SAY
  361. 您不是vip\
  362. <返回/@_VIP_神行千里>
  363. #ACT
  364. break
  365. #IF
  366. LARGE $VIPLEVEL 5
  367. #SAY
  368.   VIP6级以上可使用以下传送功能\
  369.     <将军殿入口/@SendTo&H073&140&153>        <中枢大殿入口/@SendTo&M004&24&127>\
  370.     <盘蛇道/@SendTo&N004&208&477>            <八仙纵横/@SendTo&TT008&166&211>\
  371.     <逆魔古刹四层/@SendTo&S018&152&285>      <苍茫大厅/@SendTo&AS002&24&118>\
  372.     <尸上行入口/@SendTo&J006&45&13>       \
  373.   传送功能使用有风险，请谨慎使用！\
  374.     <返回/@_VIP_神行千里>
  375. #ACT
  376. break
  377. #ELSESAY
  378. \\您不是vip6级以上玩家,无法使用高级传送功能  <返回/@main>
  379. #ELSEACT
  380. break

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

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

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

  439. break

  441. }
复制代码


回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则