找回密码
 立即注册

[其他] 传世天人排行榜脚本

[复制链接]
antyvfl 发表于 2022-10-7 13:11:38 | 显示全部楼层 |阅读模式
[@天人排行]
{
#IF
random 1
#ACT
mov S0 $USERNAME
inc S0 |
#IF
PosEx $STR(S0) .QuestDiary无限排名<$STR(S10)>.txt S0
#ACT
DELVARLIST $STR(S0) ..QuestDiary无限排名<$STR(S10)>.txt
#IF
large P0 5
#ACT
break
#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名<$STR(S10)>.txt S0 $STR(P0)
MOV P5 0
#IF
!equal S0 无
#ACT
mov S1
GETVALIDSTR $STR(S0) | S1 S2
GETVALIDSTR $STR(S2) | P5 S3
#IF
LARGE $TRJJ $STR(P5)
#ACT
MOV S0
GOTO @天人雕像
#ELSEACT
inc P1 1
inc P0 1
goto @天人排行
break

[@天人雕像]
#IF
EQUAL $TRFL 3
#ACT
GOTO @幻神圣殿
#IF
EQUAL $TRFL 4
#ACT
GOTO @赤魔圣殿
#IF
random 1
#ACT
MOV S30 $TRJJ
INC S30 |
#IF
PosEx $STR(S30) .QuestDiary数据文件文本数据天人重数.txt S2
#ACT
ReplaceText S2 $TRJJ
ReplaceText S2 |
INC S2 $JOB
#IF
random 1
#ACT
MOV S0 $USERNAME
INC S0 的护法数据
#IF
!EQUAL $GUILDNAME 无
!CHICKTXT .QuestDiary数据文件飞升台数据<$STR(S0)>.txt
#ACT
MOV S1
FORMATSTR S0 %s|%s|%s <$USERNAME>|<$TRJJ>|<$STR(P2)>
INSERTVARLIST $STR(P0) $STR(S0) .QuestDiary无限排名<$STR(S10)>.txt
SETNPCNAME $STR(P1) $USERNAME $STR(P2)
FORMATSTR S1                   {COLOR=Green#32%s}        %s,隶属于{COLOR=Green#32%s}行会        于%s年%s月%s日凭借他%s级实力,经过1次渡劫,终于飞升成功!\        那时天地变色、云霞翻滚,浩天破地的能量震撼着整个中州,九道        浩天神雷如期而至将渡劫者力量提炼的更加精纯,使其足以突破凡        间的束搏飞升更高的所在。 <$USERNAME>|<$STR(S2)>|<$GUILDNAME>|<$YEAR>|<$MONTH>|<$DAY>|<$LEVEL>
INSERTVARLIST $STR(P0) $STR(S1) .QuestDiary无限排名<$STR(S11)>.txt
GOTO @修复雕像
break
#IF
EQUAL $GUILDNAME 无
!CHICKTXT .QuestDiary数据文件飞升台数据<$STR(S0)>.txt
#ACT
MOV S1
FORMATSTR S0 %s|%s|%s <$USERNAME>|<$TRJJ>|<$STR(P2)>
INSERTVARLIST $STR(P0) $STR(S0) .QuestDiary无限排名<$STR(S10)>.txt
SETNPCNAME $STR(P1) $USERNAME $STR(P2)
FORMATSTR S1                   {COLOR=Green#32%s}        %s        于%s年%s月%s日凭借他%s级实力,经过1次渡劫,终于飞升成功!\        那时天地变色、云霞翻滚,浩天破地的能量震撼着整个中州,九道        浩天神雷如期而至将渡劫者力量提炼的更加精纯,使其足以突破凡        间的束搏飞升更高的所在。 <$USERNAME>|<$STR(S2)>|<$YEAR>|<$MONTH>|<$DAY>|<$LEVEL>
INSERTVARLIST $STR(P0) $STR(S1) .QuestDiary无限排名<$STR(S11)>.txt
GOTO @修复雕像
break
#IF
!EQUAL $GUILDNAME 无
CHICKTXT .QuestDiary数据文件飞升台数据<$STR(S0)>.txt
#ACT
GOTO @检测护法数据
MOV S1
FORMATSTR S0 %s|%s|%s <$USERNAME>|<$TRJJ>|<$STR(P2)>
INSERTVARLIST $STR(P0) $STR(S0) .QuestDiary无限排名<$STR(S10)>.txt
SETNPCNAME $STR(P1) $USERNAME $STR(P2)
FORMATSTR S1                   {COLOR=Green#32%s}        %s,隶属于{COLOR=Green#32%s}行会        于%s年%s月%s日凭借他%s级实力,经过1次渡劫,终于飞升成功!\        那时天地变色、云霞翻滚,浩天破地的能量震撼着整个中州,九道        浩天神雷如期而至将渡劫者力量提炼的更加精纯,使其足以突破凡        间的束搏飞升更高的所在。\          %s渡劫时,有他的好友为他护法,这些人是:%s <$USERNAME>|<$STR(S2)>|<$GUILDNAME>|<$YEAR>|<$MONTH>|<$DAY>|<$LEVEL>|<$USERNAME>|<$STR(S12)>
INSERTVARLIST $STR(P0) $STR(S1) .QuestDiary无限排名<$STR(S11)>.txt
GOTO @修复雕像
break
#IF
EQUAL $GUILDNAME 无
CHICKTXT .QuestDiary数据文件飞升台数据<$STR(S0)>.txt
#ACT
GOTO @检测护法数据
MOV S1
FORMATSTR S0 %s|%s|%s|%s <$USERNAME>|<$TRJJ>|<$STR(P2)>
INSERTVARLIST $STR(P0) $STR(S0) .QuestDiary无限排名<$STR(S10)>.txt
SETNPCNAME $STR(P1) $USERNAME $STR(P2)
FORMATSTR S1                   {COLOR=Green#32%s}        %s        于%s年%s月%s日凭借他%s级实力,经过1次渡劫,终于飞升成功!\        那时天地变色、云霞翻滚,浩天破地的能量震撼着整个中州,九道        浩天神雷如期而至将渡劫者力量提炼的更加精纯,使其足以突破凡        间的束搏飞升更高的所在。\          %s渡劫时,有他的好友为他护法,这些人是:%s <$USERNAME>|<$STR(S2)>|<$YEAR>|<$MONTH>|<$DAY>|<$LEVEL>|<$USERNAME>|<$STR(S12)>
INSERTVARLIST $STR(P0) $STR(S1) .QuestDiary无限排名<$STR(S11)>.txt
MOV P0 0
MOV P1 35
GOTO @修复雕像
break

[@修复雕像]
#IF
EQUAL $TRFL 3
gender MAN
#ACT
MOV P0 0
MOV P1 35
GOTO @开始修复
#IF
EQUAL $TRFL 3
gender WOMAN
#ACT
MOV P0 0
MOV P1 41
GOTO @开始修复
#IF
EQUAL $TRFL 4
gender MAN
#ACT
MOV P0 0
MOV P1 47
GOTO @开始修复
#IF
EQUAL $TRFL 4
gender WOMAN
#ACT
MOV P0 0
MOV P1 53
GOTO @开始修复

[@开始修复]
#IF
LARGE P0 5
#ACT
break
#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名<$STR(S10)>.txt S0 $STR(P0)
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S0 S1
GETVALIDSTR $STR(S1) | S1 P3
SETNPCNAME $STR(P1) $STR(S0) $STR(P3)
INC P0 1
INC P1 1
GOTO @开始修复
break

[@检测护法数据]
#IF
random 1
#ACT
MOV S12
MOV S20
MOV S21
MOV S22
#IF
random 1
#ACT
ReadRandomStr ..QuestDiary数据文件飞升台数据<$STR(S0)>.txt S20 0
#IF
!equal S20 无
#ACT
GETVALIDSTR $STR(S20) | S21 S22
INC S12                   
INC S12 $STR(S21)
INC S12  
INC S12 <Color=Green[]
INC S12 $STR(S22)
INC S12 >
INC S12
#IF
random 1
#ACT
ReadRandomStr ..QuestDiary数据文件飞升台数据<$STR(S0)>.txt S20 1
#IF
!equal S20 无
#ACT
GETVALIDSTR $STR(S20) | S21 S22
INC S12                   
INC S12 $STR(S21)
INC S12  
INC S12 <COLOR=Green[]
INC S12 $STR(S22)
INC S12 >
INC S12
#IF
random 1
#ACT
ReadRandomStr ..QuestDiary数据文件飞升台数据<$STR(S0)>.txt S20 2
#IF
!equal S20 无
#ACT
GETVALIDSTR $STR(S20) | S21 S22
INC S12                   
INC S12 $STR(S21)
INC S12  
INC S12 <Color=Green[]
INC S12 $STR(S22)
INC S12 >
INC S12
#IF
random 1
#ACT
ReadRandomStr ..QuestDiary数据文件飞升台数据<$STR(S0)>.txt S20 3
#IF
!equal S20 无
#ACT
GETVALIDSTR $STR(S20) | S21 S22
INC S12                   
INC S12 $STR(S21)
INC S12  
INC S12 <Color=Green[]
INC S12 $STR(S22)
INC S12 >
INC S12
#IF
random 1
#ACT
ReadRandomStr ..QuestDiary数据文件飞升台数据<$STR(S0)>.txt S20 4
#IF
!equal S20 无
#ACT
GETVALIDSTR $STR(S20) | S21 S22
INC S12                   
INC S12 $STR(S21)
INC S12  
INC S12 <Color=Green[]
INC S12 $STR(S22)
INC S12 >
INC S12
#IF
random 1
#ACT
ReadRandomStr ..QuestDiary数据文件飞升台数据<$STR(S0)>.txt S20 5
#IF
!equal S20 无
#ACT
GETVALIDSTR $STR(S20) | S21 S22
INC S12                   
INC S12 $STR(S21)
INC S12  
INC S12 <Color=Green[]
INC S12 $STR(S22)
INC S12 >
INC S12

[@幻神圣殿]
#IF
gender MAN
checkjob warrior
#ACT
mov P2 178
#IF
gender WOMAN
checkjob warrior
#ACT
mov P2 179
#IF
gender MAN
checkjob wizard
#ACT
mov P2 180
#IF
gender WOMAN
checkjob wizard
#ACT
mov P2 181
#IF
gender MAN
checkjob taoist
#ACT
mov P2 182
#IF
gender WOMAN
checkjob taoist
#ACT
mov P2 183

[@赤魔圣殿]
#IF
gender MAN
checkjob warrior
#ACT
mov P2 184
#IF
gender WOMAN
checkjob warrior
#ACT
mov P2 185
#IF
gender MAN
checkjob wizard
#ACT
mov P2 186
#IF
gender WOMAN
checkjob wizard
#ACT
mov P2 187
#IF
gender MAN
checkjob taoist
#ACT
mov P2 188
#IF
gender WOMAN
checkjob taoist
#ACT
mov P2 189
}

anlxxu 发表于 2022-10-7 13:18:36 | 显示全部楼层
真是被感动的痛哭流涕……
回复

使用道具 举报

ludaxia 发表于 2022-10-10 21:23:18 | 显示全部楼层
太生气了,无法HOLD啦 >_<......
回复

使用道具 举报

qtpj 发表于 2022-10-13 20:49:30 | 显示全部楼层
太生气了,无法HOLD啦 >_<......
回复

使用道具 举报

hellophpcode 发表于 2022-10-17 01:30:02 | 显示全部楼层
感恩无私的分享与奉献
回复

使用道具 举报

jz641268 发表于 2022-10-17 08:07:53 | 显示全部楼层
无回帖,不论坛,这才是人道。
回复

使用道具 举报

ABC◇◆◇ 发表于 2022-10-17 10:32:00 | 显示全部楼层
激动人心,无法言表!
回复

使用道具 举报

chaofanbiz 发表于 2022-10-18 04:10:20 | 显示全部楼层
我只是路过打酱油的。
回复

使用道具 举报

zxljake 发表于 2022-10-19 06:43:16 | 显示全部楼层
无回帖,不论坛,这才是人道。
回复

使用道具 举报

vidrxua 发表于 2022-10-22 07:32:33 | 显示全部楼层
无回帖,不论坛,这才是人道。
回复

使用道具 举报

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

本版积分规则

Archiver|手机版|小黑屋|游戏淘宝湾

GMT+8, 2024-11-21 18:47 , Processed in 0.067750 second(s), 53 queries .

Powered by Discuz! X3.5

Copyright © 2001-2024, Oddpp Cloud.

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