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 谢谢楼主！ 下次在来看脚本 楼主发贴辛苦了，谢谢楼主分享！感谢楼主提供这么好的论坛！ 这东西我收了！ 传奇论坛里面相对来说比较好的一个！ 这个帖子不回对不起自己！ 感谢站长分享传奇脚本，让我学习到很多知识。 很专业的很全面的gm论坛 这东西我收了！