翎风引擎的传奇私服随机品质升级，属性加成的方法，360M2品质鉴定设置-GM0000论坛

桡猜亢 发表于 2025-7-23 01:31:58

翎风引擎的传奇私服随机品质升级，属性加成的方法，360M2品质鉴定设置

[@360M2品质]
{
;#IF
;RANDOM 2
;#ACT
;BREAK

#IF
#ACT
GETRANDOMTEXT ..\QuestDiary\品质鉴定\条数几率.TXT

#IF
EQUAL N$绿字条数 1
#ACT
GETRANDOMTEXT ..\QuestDiary\品质鉴定\属性几率.TXT
MOV N$绿字位置 0
GOTO @绿字属性加成
BREAK

#IF
EQUAL N$绿字条数 2
#ACT
CLEARNAMELIST ..\QuestDiary\品质鉴定\临时文本.txt
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 3
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 4
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 5
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 6
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 7
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 8
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 9
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
MOV N$绿字位置 0
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
INC N$绿字位置 1
GOTO @绿字属性加成
BREAK

#IF
EQUAL N$绿字条数 3
#ACT
CLEARNAMELIST ..\QuestDiary\品质鉴定\临时文本.txt
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 3
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 4
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 5
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 6
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 7
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 8
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 9
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
MOV N$绿字位置 0
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
INC N$绿字位置 1
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
INC N$绿字位置 1
GOTO @绿字属性加成
BREAK

#IF
EQUAL N$绿字条数 4
#ACT
CLEARNAMELIST ..\QuestDiary\品质鉴定\临时文本.txt
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 3
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 4
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 5
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 6
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 7
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 8
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 9
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
MOV N$绿字位置 0
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
INC N$绿字位置 1
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
INC N$绿字位置 1
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
INC N$绿字位置 1
GOTO @绿字属性加成
BREAK

#IF
EQUAL N$绿字条数 5
#ACT
CLEARNAMELIST ..\QuestDiary\品质鉴定\临时文本.txt
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 3
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 4
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 5
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 6
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 7
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 8
AddTextList ..\QuestDiary\品质鉴定\临时文本.txt 9
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
MOV N$绿字位置 0
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
INC N$绿字位置 1
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
INC N$绿字位置 1
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
INC N$绿字位置 1
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt
INC N$绿字位置 1
GOTO @绿字属性加成
BREAK

#IF
EQUAL N$绿字条数 6
#ACT
;攻击
SetCustomItemAbil -1 0 0 250
SetCustomItemAbil -1 0 1 3
SetCustomItemAbil -1 0 2 0
SetCustomItemAbil -1 0 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 0=

;魔法
SetCustomItemAbil -1 1 0 250
SetCustomItemAbil -1 1 1 4
SetCustomItemAbil -1 1 2 1
SetCustomItemAbil -1 1 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 1=

;道术
SetCustomItemAbil -1 2 0 250
SetCustomItemAbil -1 2 1 5
SetCustomItemAbil -1 2 2 2
SetCustomItemAbil -1 2 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 2=

;HP
SetCustomItemAbil -1 3 0 250
SetCustomItemAbil -1 3 1 6
SetCustomItemAbil -1 3 2 3
SetCustomItemAbil -1 3 3 1
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 3=

;MP
SetCustomItemAbil -1 4 0 250
SetCustomItemAbil -1 4 1 7
SetCustomItemAbil -1 4 2 4
SetCustomItemAbil -1 4 3 1
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 4=

;吸血
SetCustomItemAbil -1 5 0 250
SetCustomItemAbil -1 5 1 8
SetCustomItemAbil -1 5 2 5
SetCustomItemAbil -1 5 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 5=

#IF
EQUAL N$绿字条数 7
#ACT
;攻击
SetCustomItemAbil -1 0 0 250
SetCustomItemAbil -1 0 1 3
SetCustomItemAbil -1 0 2 0
SetCustomItemAbil -1 0 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 0=

;魔法
SetCustomItemAbil -1 1 0 250
SetCustomItemAbil -1 1 1 4
SetCustomItemAbil -1 1 2 1
SetCustomItemAbil -1 1 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 1=

;道术
SetCustomItemAbil -1 2 0 250
SetCustomItemAbil -1 2 1 5
SetCustomItemAbil -1 2 2 2
SetCustomItemAbil -1 2 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 2=

;HP
SetCustomItemAbil -1 3 0 250
SetCustomItemAbil -1 3 1 6
SetCustomItemAbil -1 3 2 3
SetCustomItemAbil -1 3 3 1
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 3=

;MP
SetCustomItemAbil -1 4 0 250
SetCustomItemAbil -1 4 1 7
SetCustomItemAbil -1 4 2 4
SetCustomItemAbil -1 4 3 1
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 4=

;吸血
SetCustomItemAbil -1 5 0 250
SetCustomItemAbil -1 5 1 8
SetCustomItemAbil -1 5 2 5
SetCustomItemAbil -1 5 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 5=

;切割
SetCustomItemAbil -1 5 0 250
SetCustomItemAbil -1 5 1 9
SetCustomItemAbil -1 5 2 5
SetCustomItemAbil -1 5 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\切割点数.TXT
SetCustomItemValue -1 5=

[@绿字属性加成]

#OR
EQUAL N$绿字属性 6
EQUAL N$绿字属性 7
#ACT
SetCustomItemAbil -10 250
SetCustomItemAbil -11
SetCustomItemAbil -12
SetCustomItemAbil -13 1
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 =
#ELSEACT
SetCustomItemAbil -10 250
SetCustomItemAbil -11
SetCustomItemAbil -12
SetCustomItemAbil -13 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT
SetCustomItemValue -1 =

#IF
EQUAL N$绿字属性 8
#ACT
MOVR N$属性点 10
SetCustomItemAbil -10 250
SetCustomItemAbil -11
SetCustomItemAbil -12
SetCustomItemAbil -13 0
SetCustomItemValue -1 =

#IF
EQUAL N$绿字属性 9
#ACT
GETRANDOMTEXT ..\QuestDiary\品质鉴定\切割点数.TXT
SetCustomItemAbil -10 250
SetCustomItemAbil -11
SetCustomItemAbil -12
SetCustomItemAbil -13 0
SetCustomItemValue -1 =

}

金夜迷失 发表于 2025-7-23 02:20:52

鼎力支持！！

问道天下专属 发表于 2025-7-23 02:20:52

向楼主学习，不错的论坛

全民剿魔 发表于 2025-7-23 02:20:52

顶起顶起顶起

福晟沉默 发表于 2025-7-23 02:20:52

没人回帖。。。我来个吧

弘天江湖 发表于 2025-7-23 02:20:53

LZ敢整点更有创意的不？兄弟们等着围观捏~

征战玉兔 发表于 2025-7-23 02:20:53

占坑编辑ing

谕三刀沉默 发表于 2025-7-23 02:20:53

在撸一遍。。。

勇者大陆 发表于 2025-7-23 05:16:02

大人，此事必有蹊跷！

沙海龄 发表于 2025-7-23 07:07:49

不知道这版本怎么样，先下载玩玩

页: [1] 2 3 4

传奇一条龙,GM论坛,GM版本库,传奇版本库,传奇单机版服务端 - GM0000.com's Archiver

翎风引擎的传奇私服随机品质升级，属性加成的方法，360M2品质鉴定设置