新INI功能示范脚本

高效率的Ini文件NPC操作命令说明：

全服自定义排行榜.ini

INI内容

[鲜花] ;全服自定义排行榜.ini=文件;[鲜花]=节 ;bluem2 =键 ;100=值
bluem2=100
网易=100
百度=100

如果手动修改ini内容后，请使用命令，INI_RELOAD 文件 //重新加载文件，可以用于手动修改了文本文件的情况下。

示例脚本：以下脚本只是演示，请GM自行完善

注：脚本使用的是S1-S20 M1-M20的个人变量，如果你的版本里有，请自行修改。

[@main]
<排序鲜花的排名(名字+数值)/@Get> <排序鲜花的排名(名字)/@GetEx>\\

<检查鲜花的排名(名字)/@Get1>\\

<清理鲜花数据/@INI_CLEAR_SECTION>\\

<关闭/@exit >

[@Get1]
#IF
EQUAL S1 <$USERNAME>
#ACT
MessageBox 目前你排名第一。
BREAK
#IF
EQUAL S2 <$USERNAME>
#ACT
MessageBox 目前你排名第二。
BREAK
#IF
EQUAL S3 <$USERNAME>
#ACT
MessageBox 目前你排名第三。
BREAK
#IF
EQUAL S4 <$USERNAME>
#ACT
MessageBox 目前你排名第四。
BREAK
#IF
EQUAL S5 <$USERNAME>
#ACT
MessageBox 目前你排名第五。
BREAK
#IF
EQUAL S6 <$USERNAME>
#ACT
MessageBox 目前你排名第六。
BREAK
#IF
EQUAL S7 <$USERNAME>
#ACT
MessageBox 目前你排名第七。
BREAK
#IF
EQUAL S8 <$USERNAME>
#ACT
MessageBox 目前你排名第八。
BREAK
#IF
EQUAL S9 <$USERNAME>
#ACT
MessageBox 目前你排名第九。
BREAK
#IF
EQUAL S10 <$USERNAME>
#ACT
MessageBox 目前你排名第十。
BREAK
#ELSEACT
MessageBox 榜上无名，请再接再厉。
BREAK

[@INI_CLEAR_SECTION]
#IF
CHECKLEVELEX > 0
#ACT
INI_CLEAR_SECTION ..\QuestDiary\功能脚本\全服自定义排行榜.ini 鲜花
INI_SAVE ..\QuestDiary\功能脚本\全服自定义排行榜.ini
INI_SORT_DELETE INI_排名__鲜花_IV
SENDMSG 5 清楚鲜花数据成功。

[@Get]
#IF
CHECKLEVELEX > 0
#ACT
INI_SORT_READ_SECTION_VALUES ..\QuestDiary\功能脚本\全服自定义排行榜.ini 鲜花 1 1 1 INI_排名__鲜花_IV 0
INI_SORT_SECTION_VALUES_COUNT INI_排名__鲜花_IV D0
;SENDMSG 5 获取到排行数据：<$STR(D0)>条

#IF
LARGE D0 1
#ACT
INI_SORT_GET_SECTION_STRING INI_排名__鲜花_IV S0
;;P0用于限制最多的排名次数
MOV P0 1
;;S92用于累计排名，#ELSESAY的显示调用
MOV S92
SENDMSG 5 正在计算排名，请稍后。。。
DELAYGOTO 1 @GetIdentValueLoop
#ELSEACT
MessageBox 目前没有数据。
BREAK

;按顺序获取排行字符串(IDENT_VALUE)到S1~S20
[@GetIdentValueLoop]
#IF
LARGE D0 1
SMALL P0 10
#ACT
MOV S90 S
INC S90 <$STR(P0)>
INC S92 <COLOR=clYellow>
INC S92
INC S92 <$STR(P0)>、
INC S92 <COLOR=$F7FFFF>
INI_SORT_GET_IDENT_VALUE_STRING INI_排名__鲜花_IV <$STR(P0)> <$STR(S90)>

MOV S91 <$STR(S
INC S91 <$STR(P0)>
INC S91 )>

INC S92 <$STR(S91)>
INC S92 \
;SENDMSG 5 排名<$STR(P0)>：<$STR(S91)>

DEC D0 1
INC P0 1

DELAYGOTO 1 @GetIdentValueLoop
#SAY
<$STR(S0)>的当前排名是：\
<$STR(S92)>\
<关闭/@exit>
#ACT
BREAK

#IF
LARGE D0 1
LARGE P0 9
SMALL P0 21
#ACT
MOV S90 S
INC S90 <$STR(P0)>
INC S92 <COLOR=clYellow>
INC S92 <$STR(P0)>、
INC S92 <COLOR=$F7FFFF>
INI_SORT_GET_IDENT_VALUE_STRING INI_排名__鲜花_IV <$STR(P0)> <$STR(S90)>

MOV S91 <$STR(S
INC S91 <$STR(P0)>
INC S91 )>

INC S92 <$STR(S91)>
INC S92 \
;SENDMSG 5 排名<$STR(P0)>：<$STR(S91)>

DEC D0 1
INC P0 1

DELAYGOTO 1 @GetIdentValueLoop
#SAY
<$STR(S0)>的当前排名是：\
<$STR(S92)>\
<关闭/@exit>
#ELSESAY
<$STR(S0)>的当前排名是：\
<$STR(S92)>\
<关闭/@exit>

#ELSEACT
SENDMSG 5 鲜花排名完毕。
BREAK

[@GetEx]
#IF
CHECKLEVELEX > 0
#ACT
INI_RELOAD ..\QuestDiary\功能脚本\全服自定义排行榜.ini
INI_SORT_READ_SECTION_VALUES ..\QuestDiary\功能脚本\全服自定义排行榜.ini 鲜花 1 1 1 INI_排名__鲜花_IVEX 0
INI_SORT_SECTION_VALUES_COUNT INI_排名__鲜花_IVEX D0
;SENDMSG 5 获取鲜花排行数据：<$STR(D0)>条

#IF
LARGE D0 1
#ACT
INI_SORT_GET_SECTION_STRING INI_排名__鲜花_IVEX S0
;;P0用于限制最多的排名次数
MOV P0 1
;;S92用于累计排名，#ELSESAY的显示调用
MOV S92
SENDMSG 5 正在计算排名，请稍后。。。
DELAYGOTO 1 @GetIdentValueLoopEx
BREAK
#ELSEACT
MessageBox 目前没有数据。
BREAK

;按顺序获取排行，分别获取IDENT和VALUE到S1~S20
[@GetIdentValueLoopEx]
#IF
LARGE D0 1
SMALL P0 10
#ACT
MOV S90 S
INC S90 <$STR(P0)>
MOV S95 M
INC S95 <$STR(P0)>
INC S92 <COLOR=clYellow>
INC S92
INC S92 <$STR(P0)>、
INC S92 <COLOR=$F7FFFF>
INI_SORT_GET_IDENT_STRING INI_排名__鲜花_IVEX <$STR(P0)> <$STR(S90)>
INI_SORT_GET_VALUE_INTEGER INI_排名__鲜花_IVEX <$STR(P0)> <$STR(S95)>

MOV S91 <$STR(S
INC S91 <$STR(P0)>
INC S91 )>

MOV S93 <$STR(M
INC S93 <$STR(P0)>
INC S93 )>

INC S92 <$STR(S91)>
INC S92 " "
INC S92 " 鲜花数："
INC S92 <$STR(S93)>
INC S92 " "
INC S92 \
;;SENDMSG 5 排名<$STR(P0)>：<$STR(S91)>
DEC D0 1
INC P0 1
DELAYGOTO 1 @GetIdentValueLoopEx
#SAY
<$STR(S0)>的当前排名是：\
<$STR(S92)>\
<关闭/@exit>
#ACT
BREAK

#IF
LARGE D0 1
LARGE P0 9
SMALL P0 23
#ACT
MOV S90 S
INC S90 <$STR(P0)>
MOV S95 M
INC S95 <$STR(P0)>
INC S92 <COLOR=clYellow>
INC S92 <$STR(P0)>、
INC S92 <COLOR=$F7FFFF>

INI_SORT_GET_IDENT_STRING INI_排名__鲜花_IVEX <$STR(P0)> <$STR(S90)>
INI_SORT_GET_VALUE_INTEGER INI_排名__鲜花_IVEX <$STR(P0)> <$STR(S95)>

MOV S91 <$STR(S
INC S91 <$STR(P0)>
INC S91 )>

MOV S93 <$STR(M
INC S93 <$STR(P0)>
INC S93 )>