antyvfl 发表于 2022-10-9 00:26:32

给你的传奇世界添加排名运算功能

[@无限排名运算]

{
#IF
CHECKVARLIST $STR(S62) $STR(S60)
#ACT
MOV D53 0
;;SENDMSG 7 完全一样无需操作
break
#IF
TRUE
#ACT
MOV S66 $STR(S60)
#IF
POS $STR(S61) 降序排列
PosInList $STR(S64) $STR(S66) S63
#ACT
;;SENDMSG 7 降序排列
MOV S65 $STR(S63)
GOTO @计算一次大小
break
#IF
POS $STR(S61) 升序排列
PosInList $STR(S64) $STR(S66) S63
#ACT
DELVARLIST $STR(S63) $STR(S60)
;;SENDMSG 7 删除原来成绩
MOV D53 1
GOTO @计算排名位置
break
#ELSEACT
;;SENDMSG 7 没有原来成绩
MOV D53 1
GOTO @计算排名位置
break

[@计算一次大小]
#IF
POS $STR(S61) 强化
POS $STR(S65) =
#ACT
GETVALIDSTR $STR(S65) | D52 S65
GETVALIDSTR $STR(S65) = D55 S65
DEC S65 1 $STR(D51)
Trim S65
ReplaceText S65 　
MOV D52 $STR(S65)
;;SENDMSG 7 一、有成绩做降序比较，成绩值<$STR(D54)>，比较值<$STR(D52)>
#ELSEACT
DEC S65 1 $STR(D51)
Trim S65
ReplaceText S65 　
MOV D52 $STR(S65)
;;SENDMSG 7 二、有成绩做降序比较，成绩值<$STR(D54)>，比较值<$STR(D52)>
#IF
SMALL D54 $STR(D52)
#ACT
DELVARLIST $STR(S63) $STR(S60)
MOV D53 1
GOTO @计算排名位置
;;SENDMSG 7 重新排列成绩
break
#ELSEACT
;;SENDMSG 7 保持原成绩
break

[@计算排名位置]
#IF
LARGE D53 $STR(D50)
#ACT
;;SENDMSG 7 服务器只记录前<$STR(D50)>名，你目前还无法达到资格。
break
#ELSEACT
ReadRandomStr $STR(S60) S65 $STR(D53)
MOV D52 0
MOV D55 0
#IF
POS $STR(S61) 强化
POS $STR(S65) =
#ACT
GETVALIDSTR $STR(S65) | D52 S65
GETVALIDSTR $STR(S65) = D55 S65
;;SENDMSG 7 第<$STR(D53)>行数值是<$STR(D52)>和<$STR(D55)>，需要插入数字：<$STR(D54)>
#IF
LARGE D51 0
EQUAL S65 无
#ACT
MOV D52 0
;;SENDMSG 7 第<$STR(D53)>行数值是<$STR(D52)>，需要插入数字：<$STR(D54)>
#IF
LARGE D51 0
!EQUAL S65 无
#ACT
DEC S65 1 $STR(D51)
Trim S65
ReplaceText S65 　
MOV D52 $STR(S65)
;;SENDMSG 7 第<$STR(D53)>行数值是<$STR(D52)>，需要插入数字：<$STR(D54)>
;-------------------------相同情况记录下一行
#IF
!POS $STR(S61) 强化
EQUAL D52 $STR(D54)
#ACT
INC D53 1
;;SENDMSG 7 记录完毕！你目前排名第<$STR(D53)>名
;;INSERTVARLIST $STR(D53) $STR(S62) $STR(S66)
GOTO @计算排名位置
break
#IF
POS $STR(S61) 强化
EQUAL D52 $STR(D54)
EQUAL D55 $STR(D61)
#ACT
INC D53 1
;;SENDMSG 7 记录完毕！你目前排名第<$STR(D53)>名
;;INSERTVARLIST $STR(D53) $STR(S62) $STR(S66)
GOTO @计算排名位置
break
;-------------------------数值大的记录下一行
#IF
POS $STR(S61) 降序排列
LARGE D52 $STR(D54)
#ACT
;;SENDMSG 7 记录完毕！你目前排名第<$STR(D53)>名
ReplaceText S60 ..\ ..\
INSERTVARLIST $STR(D53) $STR(S62) $STR(S66)
break
;-------------------------数值小的记录下一行(计算比例)
#IF
POS $STR(S61) 降序排列(强化)
EQUAL D52 $STR(D54)
LARGE D55 $STR(D61)
#ACT
;;SENDMSG 7 记录完毕！你目前排名第<$STR(D53)>名
INSERTVARLIST $STR(D53) $STR(S62) $STR(S66)
break
;-------------------------数值小的记录下一行
#IF
POS $STR(S61) 升序排列
SMALL D52 $STR(D54)
#ACT
;;SENDMSG 7 记录完毕！你目前排名第<$STR(D53)>名
INSERTVARLIST $STR(D53) $STR(S62) $STR(S66)
break
;-------------------------数值相同记录下一行(计算比例)
#IF
POS $STR(S61) 升序排列(强化)
EQUAL D52 $STR(D54)
SMALL D55 $STR(D61)
#ACT
;;SENDMSG 7 记录完毕！你目前排名第<$STR(D53)>名，一个相等<$STR(D61)>...<$STR(D55)>
INSERTVARLIST $STR(D53) $STR(S62) $STR(S66)
break
;-------------------------记录最后一行
#IF
EQUAL D52 0
#ACT
;;SENDMSG 7 记录完毕！你目前排名第<$STR(D53)>名
INSERTVARLIST $STR(D53) $STR(S62) $STR(S66)
break
#ELSEACT
INC D53 1
GOTO @计算排名位置
}

1092427021 发表于 2022-10-9 03:35:27

感恩无私的分享与奉献 :)

ap2br7iu0vy 发表于 2022-10-10 01:11:20

我只是路过打酱油的。

eden002 发表于 2022-10-11 02:43:38

强烈支持楼主ing……

毒蛇花花 发表于 2022-10-11 02:54:48

无回帖，不论坛，这才是人道。

zhq8008 发表于 2022-10-11 21:13:24

激动人心，无法言表！

w0x0000w0x 发表于 2022-10-14 12:12:45

太生气了，无法HOLD啦 >_<......

阿董--苏州 发表于 2022-10-16 03:55:01

看到这帖子真是高兴！

62scjdi125 发表于 2022-10-16 10:34:16

无回帖，不论坛，这才是人道。

njjguo919 发表于 2022-10-16 16:43:12

感恩无私的分享与奉献 :)
页: [1] 2
查看完整版本: 给你的传奇世界添加排名运算功能