发帖
查看: 142|回复: 0

GOM引擎富豪捐献脚本, 开区富豪捐献系统脚本

[复制链接]

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
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【快速回复】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则