64GM论坛 › 传奇技术教程 › GEE引擎的传奇一条龙随机品质升级，属性加成的方法，360M2品质鉴定设置！

秀颖5602 发表于 2023-11-20 14:55:06

GEE引擎的传奇一条龙随机品质升级，属性加成的方法，360M2品质鉴定设置！

GEE引擎的传奇一条龙随机品质升级，属性加成的方法，360M2品质鉴定设置！

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

#IF
#ACT
GETRANDOMTEXT ..\QuestDiary\品质鉴定\条数几率.TXT <$STR(N$绿字条数)>

#IF
EQUAL N$绿字条数 1
#ACT
GETRANDOMTEXT ..\QuestDiary\品质鉴定\属性几率.TXT <$STR(N$绿字属性)>
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 <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
MOV N$绿字位置 0
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
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 <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
MOV N$绿字位置 0
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
INC N$绿字位置 1
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
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 <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
MOV N$绿字位置 0
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
INC N$绿字位置 1
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
INC N$绿字位置 1
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
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 <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
MOV N$绿字位置 0
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
INC N$绿字位置 1
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
INC N$绿字位置 1
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
INC N$绿字位置 1
GOTO @绿字属性加成
GETRANDOMTEXT ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
DELTextList ..\QuestDiary\品质鉴定\临时文本.txt <$STR(N$绿字属性)>
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 <$STR(N$属性点)>
SetCustomItemValue -1 0  = <$STR(N$属性点)>

;魔法
SetCustomItemAbil -1 1 0 250
SetCustomItemAbil -1 1 1 4
SetCustomItemAbil -1 1 2 1
SetCustomItemAbil -1 1 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT <$STR(N$属性点)>
SetCustomItemValue -1 1  = <$STR(N$属性点)>

;道术
SetCustomItemAbil -1 2 0 250
SetCustomItemAbil -1 2 1 5
SetCustomItemAbil -1 2 2 2
SetCustomItemAbil -1 2 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT <$STR(N$属性点)>
SetCustomItemValue -1 2  = <$STR(N$属性点)>

;HP
SetCustomItemAbil -1 3 0 250
SetCustomItemAbil -1 3 1 6
SetCustomItemAbil -1 3 2 3
SetCustomItemAbil -1 3 3 1
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT <$STR(N$属性点)>
SetCustomItemValue -1 3  = <$STR(N$属性点)>

;MP
SetCustomItemAbil -1 4 0 250
SetCustomItemAbil -1 4 1 7
SetCustomItemAbil -1 4 2 4
SetCustomItemAbil -1 4 3 1
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT <$STR(N$属性点)>
SetCustomItemValue -1 4  = <$STR(N$属性点)>

;吸血
SetCustomItemAbil -1 5 0 250
SetCustomItemAbil -1 5 1 8
SetCustomItemAbil -1 5 2 5
SetCustomItemAbil -1 5 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT <$STR(N$属性点)>
SetCustomItemValue -1 5  = <$STR(N$属性点)>




#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 <$STR(N$属性点)>
SetCustomItemValue -1 0  = <$STR(N$属性点)>

;魔法
SetCustomItemAbil -1 1 0 250
SetCustomItemAbil -1 1 1 4
SetCustomItemAbil -1 1 2 1
SetCustomItemAbil -1 1 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT <$STR(N$属性点)>
SetCustomItemValue -1 1  = <$STR(N$属性点)>

;道术
SetCustomItemAbil -1 2 0 250
SetCustomItemAbil -1 2 1 5
SetCustomItemAbil -1 2 2 2
SetCustomItemAbil -1 2 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT <$STR(N$属性点)>
SetCustomItemValue -1 2  = <$STR(N$属性点)>

;HP
SetCustomItemAbil -1 3 0 250
SetCustomItemAbil -1 3 1 6
SetCustomItemAbil -1 3 2 3
SetCustomItemAbil -1 3 3 1
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT <$STR(N$属性点)>
SetCustomItemValue -1 3  = <$STR(N$属性点)>

;MP
SetCustomItemAbil -1 4 0 250
SetCustomItemAbil -1 4 1 7
SetCustomItemAbil -1 4 2 4
SetCustomItemAbil -1 4 3 1
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT <$STR(N$属性点)>
SetCustomItemValue -1 4  = <$STR(N$属性点)>

;吸血
SetCustomItemAbil -1 5 0 250
SetCustomItemAbil -1 5 1 8
SetCustomItemAbil -1 5 2 5
SetCustomItemAbil -1 5 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT <$STR(N$属性点)>
SetCustomItemValue -1 5  = <$STR(N$属性点)>

;切割
SetCustomItemAbil -1 5 0 250
SetCustomItemAbil -1 5 1 9
SetCustomItemAbil -1 5 2 5
SetCustomItemAbil -1 5 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\切割点数.TXT <$STR(N$属性点)>
SetCustomItemValue -1 5  = <$STR(N$属性点)>






[@绿字属性加成]

#OR
EQUAL N$绿字属性 6
EQUAL N$绿字属性 7
#ACT
SetCustomItemAbil -1 <$STR(N$绿字位置)> 0 250
SetCustomItemAbil -1 <$STR(N$绿字位置)> 1 <$STR(N$绿字属性)>
SetCustomItemAbil -1 <$STR(N$绿字位置)> 2 <$STR(N$绿字位置)>
SetCustomItemAbil -1 <$STR(N$绿字位置)> 3 1
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT <$STR(N$属性点)>
SetCustomItemValue -1 <$STR(N$绿字位置)>  = <$STR(N$属性点)>
#ELSEACT
SetCustomItemAbil -1 <$STR(N$绿字位置)> 0 250
SetCustomItemAbil -1 <$STR(N$绿字位置)> 1 <$STR(N$绿字属性)>
SetCustomItemAbil -1 <$STR(N$绿字位置)> 2 <$STR(N$绿字位置)>
SetCustomItemAbil -1 <$STR(N$绿字位置)> 3 0
GETRANDOMTEXT ..\QuestDiary\品质鉴定\点数几率.TXT <$STR(N$属性点)>
SetCustomItemValue -1 <$STR(N$绿字位置)>  = <$STR(N$属性点)>





#IF
EQUAL N$绿字属性 8
#ACT
MOVR N$属性点 10
SetCustomItemAbil -1 <$STR(N$绿字位置)> 0 250
SetCustomItemAbil -1 <$STR(N$绿字位置)> 1 <$STR(N$绿字属性)>
SetCustomItemAbil -1 <$STR(N$绿字位置)> 2 <$STR(N$绿字位置)>
SetCustomItemAbil -1 <$STR(N$绿字位置)> 3 0
SetCustomItemValue -1 <$STR(N$绿字位置)>  = <$STR(N$属性点)>

#IF
EQUAL N$绿字属性 9
#ACT
GETRANDOMTEXT ..\QuestDiary\品质鉴定\切割点数.TXT <$STR(N$属性点)>
SetCustomItemAbil -1 <$STR(N$绿字位置)> 0 250
SetCustomItemAbil -1 <$STR(N$绿字位置)> 1 <$STR(N$绿字属性)>
SetCustomItemAbil -1 <$STR(N$绿字位置)> 2 <$STR(N$绿字位置)>
SetCustomItemAbil -1 <$STR(N$绿字位置)> 3 0
SetCustomItemValue -1 <$STR(N$绿字位置)>  = <$STR(N$属性点)>





上一篇：进游戏后全黑屏
下一篇：GOB传奇服务端增加无瑕疵反加速解决方案，30秒内必检测

幻想大陆 发表于 2023-11-20 18:26:45

在这里可以学到很多传奇一条龙开区时遇到的问题。

专属合击 发表于 2023-11-20 19:16:09

楼主发贴辛苦了，谢谢楼主分享！

红牛迷失 发表于 2023-11-21 00:44:16

比较全的传奇教程分享网站，站长辛苦了。

勇敢牛牛 发表于 2023-11-21 06:58:48

这个帖子不回对不起自己！

逍遥微变 发表于 2023-11-21 11:39:43

楼主发贴辛苦了，谢谢楼主分享！

浪剑传说 发表于 2023-11-21 15:11:34

这东西我收了！谢谢楼主！

帝王火龙 发表于 2023-11-21 16:23:23

开传奇一条龙不求人，自己学习架设。

血战火龙 发表于 2023-11-21 16:36:50

这个帖子不回对不起自己！

龙牌沉默 发表于 2023-11-21 22:37:43

这个帖子不回对不起自己！

查看完整版本: GEE引擎的传奇一条龙随机品质升级，属性加成的方法，360M2品质鉴定设置！