|
|
[@main]
#IF
#ACT
OPENMERCHANTBIGDLG 13 319 1 4 10 10 1 492 23 1
mov N$成功进度 341
MOV N$成功几率 0
#SAY
赤血魔剑
checkjob taoist
#ACT
mov S$升级属性 道术
GOTO @道术需求
#IF
CheckContainsTextList ..\\QuestDiary\\装备升级\\武器升级\\战士装备.txt <$BOXITEM[1].NAME>
#ACT
mov S$升级属性 攻击
GOTO @攻击需求
#IF
CheckContainsTextList ..\\QuestDiary\\装备升级\\武器升级\\道士装备.txt <$BOXITEM[1].NAME>
#ACT
mov S$升级属性 道术
GOTO @道术需求
#IF
CheckContainsTextList ..\\QuestDiary\\装备升级\\武器升级\\法师装备.txt <$BOXITEM[1].NAME>
#ACT
mov S$升级属性 魔法
GOTO @魔法需求
[@攻击需求]
#IF
CHECKITEMADDVALUE boxitem1 0 < 3
#ACT
INC N$成功进度 7
INC N$成功几率 40
MOV S$是否消失 否
MOV N$需求金币 200000
MOV N$需求矿石 1
GOTO @强化界面
#IF
CHECKITEMADDVALUE boxitem1 0 > 2
CHECKITEMADDVALUE boxitem1 0 < 6
#ACT
INC N$成功进度 5
INC N$成功几率 30
MOV S$是否消失 否
MOV N$需求金币 400000
MOV N$需求矿石 2
GOTO @强化界面
#IF
CHECKITEMADDVALUE boxitem1 0 > 5
CHECKITEMADDVALUE boxitem1 0 < 8
#ACT
INC N$成功进度 3
INC N$成功几率 20
MOV S$是否消失 是
MOV N$需求金币 500000
MOV N$需求矿石 5
GOTO @强化界面
[@道术需求]
#IF
CHECKITEMADDVALUE boxitem1 1 < 3
#ACT
INC N$成功进度 7
INC N$成功几率 40
MOV S$是否消失 否
MOV N$需求金币 200000
MOV N$需求矿石 1
GOTO @强化界面
#IF
CHECKITEMADDVALUE boxitem1 1 > 2
CHECKITEMADDVALUE boxitem1 1 < 6
#ACT
INC N$成功进度 5
INC N$成功几率 30
MOV S$是否消失 否
MOV N$需求金币 400000
MOV N$需求矿石 2
GOTO @强化界面
#IF
CHECKITEMADDVALUE boxitem1 1 > 5
CHECKITEMADDVALUE boxitem1 1 < 8
#ACT
INC N$成功进度 3
INC N$成功几率 20
MOV S$是否消失 是
MOV N$需求金币 500000
MOV N$需求矿石 5
GOTO @强化界面
[@魔法需求]
#IF
CHECKITEMADDVALUE boxitem1 2 < 3
#ACT
INC N$成功进度 7
INC N$成功几率 40
MOV S$是否消失 否
MOV N$需求金币 200000
MOV N$需求矿石 1
GOTO @强化界面
#IF
CHECKITEMADDVALUE boxitem1 2 > 2
CHECKITEMADDVALUE boxitem1 2 < 6
#ACT
INC N$成功进度 5
INC N$成功几率 30
MOV S$是否消失 否
MOV N$需求金币 400000
MOV N$需求矿石 2
GOTO @强化界面
#IF
CHECKITEMADDVALUE boxitem1 2 > 5
CHECKITEMADDVALUE boxitem1 2 < 8
#ACT
INC N$成功进度 3
INC N$成功几率 20
MOV S$是否消失 是
MOV N$需求金币 500000
MOV N$需求矿石 5
GOTO @强化界面
[@ItemIntoBox2]
#IF
EQUAL <$BOXITEM[2].NAME> 黑铁矿石
#ACT
INC N$成功几率 5
INC N$成功进度 1
GOTO @强化界面
#ELSEACT
ReturnBoxItem 2
MessageBox [提示]\\\\请放入黑铁矿石。
Break
[@ItemIntoBox3]
#IF
EQUAL <$BOXITEM[3].NAME> 升级保护符
#ACT
INC N$成功几率 20
INC N$成功进度 4
MOV S$是否消失 否
GOTO @强化界面
#ELSEACT
ReturnBoxItem 3
MessageBox [提示]\\\\请放入升级保护符。
Break
[@ItemOutBox1]
#IF
#ACT
ReturnBoxItem 2
ReturnBoxItem 3
GOTO @main
[@ItemOutBox2]
#IF
LARGE <$STR(N$成功进度)> 341
#ACT
DEC N$成功几率 5
DEC N$成功进度 1
GOTO @强化界面
[@ItemOutBox3]
#IF
CHECKITEMADDVALUE boxitem1 0 > 5
CHECKITEMADDVALUE boxitem1 0 < 8
#ACT
MOV S$是否消失 是
#IF
CHECKITEMADDVALUE boxitem1 1 > 5
CHECKITEMADDVALUE boxitem1 1 < 8
#ACT
MOV S$是否消失 是
#IF
CHECKITEMADDVALUE boxitem1 2 > 5
CHECKITEMADDVALUE boxitem1 2 < 8
#ACT
MOV S$是否消失 是
#IF
LARGE <$STR(N$成功进度)> 341
#ACT
DEC N$成功几率 20
DEC N$成功进度 4
GOTO @强化界面
[@强化界面]
#IF
#SAY
]/SCOLOR=250}在强化{[<$BOXITEM[1].Name>]/SCOLOR=146}<$STR(S$升级属性)>时失败,装备破碎了。 14 10 0 0
DelBoxItem 1
[@刷新]
#IF
#ACT
mov N$成功进度 341
MOV N$成功几率 0
goto @ItemIntoBox1
#IF
Equal <$BOXITEM[2].NAME> 黑铁矿石
#ACT
goto @ItemIntoBox2
#IF
Equal <$BOXITEM[3].NAME> 升级保护符
#ACT
goto @ItemIntoBox3
现在能完美运行!但是我总觉得我写得非常繁琐! 求精简 |
|