请选择 进入手机版 | 继续访问电脑版

6n论坛

 找回密码
立即注册

QQ登录

只需一步,快速开始

查看: 5453|回复: 1

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

[复制链接]

 成长值: 1014829

643

主题

644

帖子

12万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
121833

推广达人宣传达人灌水之王突出贡献优秀版主论坛元老

QQ
发表于 2020-12-23 11:03:37 | 显示全部楼层 |阅读模式

                               
登录/注册后可看大图


[@main]
#IF
#ACT
OPENMERCHANTBIGDLG 7 275 0 0 0 0 1 480 2
MOV S$显示第1名  
SetStringBlank S$显示第1名 18 1
MOV S$显示第2名  
SetStringBlank S$显示第2名 18 1
MOV S$显示第3名  
SetStringBlank S$显示第3名 18 1

#SAY
\
           \
 \
 [ ] []\
 [ ] []\
 [ ] []\
 \
   \
 \
<               >      \
    \
    \
    \
         \
       \
       \


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


[@酒鬼币捐献]
#act
MOV S$显示第1名  
SetStringBlank S$显示第1名 18 1
MOV S$显示第2名  
SetStringBlank S$显示第2名 18 1
MOV S$显示第3名  
SetStringBlank S$显示第3名 18 1

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

#IF
CHECKGamePoint <
#ACT
messagebox 你没有人民币点,拿什么捐献?
BREAK
#ELSEACT
GamePoint -
CALCVAR HUMAN YBJX-个人捐献 +
SAVEVAR HUMAN YBJX-个人捐献 ..\QuestDiary\元宝捐献\元宝捐献排行数据.txt
GOTO @开始捐献排名
GuildNoticeMsg 254 0 【人民币点捐献提示】:[]捐献了[]人民币点!当前排名:
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名 =
CALCVAR GLOBAL YBJX-捐献第1数 =
#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名 =
CALCVAR GLOBAL YBJX-捐献第2数 =
#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名 =
CALCVAR GLOBAL YBJX-捐献第3数 =
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第3名 =  
CALCVAR GLOBAL YBJX-捐献第3数 =


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


来源:网络
免责声明:如果侵犯了您的权益,请联系站长,我们会及时删除侵权内容,谢谢合作!

0

主题

1

帖子

4

积分

新手上路

Rank: 1

积分
4
发表于 2023-2-23 22:28:34 | 显示全部楼层
对方个人风格天热个人头
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|小黑屋|sixn

GMT+8, 2024-12-10 19:55 , Processed in 0.047179 second(s), 28 queries .

Powered by 6N论坛 X3.4

© 免责声明:本站所有资源均来至网络,仅供学习交流,严禁用于商业用途,请于24小时内删除!

快速回复 返回顶部 返回列表