GOM引擎富豪捐献脚本， 传奇一条龙开区富豪捐献系统脚本教程

[@main]
#IF
#ACT
OPENMERCHANTBIGDLG 7 275 0 0 0 0 1 480 2
MOV S$显示第1名 　<$GLOBAL(YBJX-捐献第1名)>
SetStringBlank S$显示第1名 18 1
MOV S$显示第2名 　<$GLOBAL(YBJX-捐献第2名)>
SetStringBlank S$显示第2名 18 1
MOV S$显示第3名 　<$GLOBAL(YBJX-捐献第3名)>
SetStringBlank S$显示第3名 18 1

#SAY
\
　　　　　　　　　　　<★酒鬼单职业富豪捐献系统/SCOLOR=251>\
　<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=7>\
　<第一富豪:/SCOLOR=243>[<$STR(S$显示第1名)>　] <当前捐献游戏点点数量:/SCOLOR=251>[<$GLOBAL(YBJX-捐献第1数)>]\
　<第二富豪:/SCOLOR=241>[<$STR(S$显示第2名)>　] <当前捐献游戏点点数量:/SCOLOR=251>[<$GLOBAL(YBJX-捐献第2数)>]\
　<第三富豪:/SCOLOR=245>[<$STR(S$显示第3名)>　] <当前捐献游戏点点数量:/SCOLOR=251>[<$GLOBAL(YBJX-捐献第3数)>]\
　<富豪捐献排名实时更新，捐献游戏点点数量每天0点以及合区清零./SCOLOR=250>\
　<你当前的捐献游戏点点数量为:/SCOLOR=227><$HUMAN(YBJX-个人捐献)> <最低1元就可以上榜/SCOLOR=249> <捐献游戏点点/@@InPutInteger88>\
　<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=7>\
<               ><进入捐献第一名专属地图/@d1>  <此地图刷本服所有BOSS,前三名增加伤害反弹BUFF！/SCOLOR=249>    \
　　　　<排行第一可获得“第一富豪”称号，HP+10000，元素+10%,几率打掉对方一切回城/SCOLOR=243>\
　　　　<排行第二可获得“第二富豪”称号，HP+5000，元素+5%/SCOLOR=241>\
　　　　<排行第三可获得“第三富豪”称号，HP+2000，元素+2%/SCOLOR=245>\
　　　　　　　  <获得“第一富豪”称号，爆率增加1.0倍/SCOLOR=251>\
　　　　　　　<★★★称号无需佩戴，自动激活属性★★★/SCOLOR=250>\
　　　　　　　<★★★称号无需佩戴，自动激活属性★★★/SCOLOR=250>\


[@d1]
#IF
CHECKTITLE 第一富豪
#ACT
MAP yanhuangzhide
SetOnTimer 11 1
GuildNoticeMsg 151 249 玩家『<$USERNAME>』进入了排行榜第一名。
break
#ELSEACT
MESSAGEBOX 您还不是排行榜第一名，加油吧！
break


[@酒鬼币捐献]
#act
MOV S$显示第1名 　<$GLOBAL(YBJX-捐献第1名)>
SetStringBlank S$显示第1名 18 1
MOV S$显示第2名 　<$GLOBAL(YBJX-捐献第2名)>
SetStringBlank S$显示第2名 18 1
MOV S$显示第3名 　<$GLOBAL(YBJX-捐献第3名)>
SetStringBlank S$显示第3名 18 1

[@InPutInteger88]
#if
small N88 1
#ACT
MESSAGEBOX 【失败】：最少捐献1游戏点点!
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV P61 <$HUMAN(YBJX-个人捐献)>
INC P61 <$STR(N88)>
#IF
LARGE P61 0
#ELSEACT
messagebox 你当前所捐献的金额,累计总额里后超出系统上限,请重新输入！\(最高累计金额21.47亿)
BREAK

#IF
CHECKGamePoint < <$STR(N88)>
#ACT
messagebox 你没有<$STR(N88)>游戏点点,拿什么捐献？
BREAK
#ELSEACT
GamePoint - <$STR(N88)>
CALCVAR HUMAN YBJX-个人捐献 + <$STR(N88)>
SAVEVAR HUMAN YBJX-个人捐献 ..\QuestDiary\元宝捐献\元宝捐献排行数据.txt
GOTO @开始捐献排名
GuildNoticeMsg 254 0 【游戏点点捐献提示】：[<$USERNAME>]捐献了[<$STR(N88)>]游戏点点!当前排名:<$STR(S$当前排名)>
GOTO @酒鬼币捐献
GMEXECUTE 开始提问 @元宝捐献属性刷新

[@开始捐献排名]
#IF
CHECKLEVELEX > 0
#ACT
SortHumVarToListEx YBJX-个人捐献 ..\QuestDiary\元宝捐献\元宝捐献排行数据.txt 1 ..\QuestDiary\元宝捐献\元宝捐献排行排名.txt 1
AddTextList ..\QuestDiary\元宝捐献\元宝捐献排行排名.txt 　:0
AddTextList ..\QuestDiary\元宝捐献\元宝捐献排行排名.txt 　:0

#IF
CHECKLEVELEX > 0
#ACT
GetListString ..\QuestDiary\元宝捐献\元宝捐献排行排名.txt 0 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第1名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第1数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第1名 = 　
CALCVAR GLOBAL YBJX-捐献第1数 =
#IF
CHECKLEVELEX > 0
#ACT
GetListString ..\QuestDiary\元宝捐献\元宝捐献排行排名.txt 1 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第2名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第2数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第2名 = 　
CALCVAR GLOBAL YBJX-捐献第2数 =
#IF
CHECKLEVELEX > 0
#ACT
GetListString ..\QuestDiary\元宝捐献\元宝捐献排行排名.txt 2 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第3名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第3数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第3名 = 　
CALCVAR GLOBAL YBJX-捐献第3数 =


#if
CHECKVAR GLOBAL YBJX-捐献第1名 = <$USERNAME>
#act
MOV S$当前排名 第一名
BREAK
#if
CHECKVAR GLOBAL YBJX-捐献第2名 = <$USERNAME>
#act
MOV S$当前排名 第二名
BREAK
#if
CHECKVAR GLOBAL YBJX-捐献第3名 = <$USERNAME>
#act
MOV S$当前排名 第三名
BREAK

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

谢谢楼主！

下次在来看脚本

楼主发贴辛苦了，谢谢楼主分享！感谢楼主提供这么好的论坛！

这东西我收了！

传奇论坛里面相对来说比较好的一个！

这个帖子不回对不起自己！

感谢站长分享传奇脚本，让我学习到很多知识。

很专业的很全面的gm论坛

这东西我收了！