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