请教一个脚本问题

诚实小鸟

蓅氓爱学习 发表于 2022-4-29 20:33 发完整脚本..全看完了.就这几个毛病

我刚测试了OK框删除物品功能可能失灵了。
[@chongjianding]
#if
CHECKBAGSIZE 2
#ACT
goto @宠物鉴定44
#ELSEACT
MESSAGEBOX 背包格子不够两个无法进行鉴定。
break
[@宠物鉴定44]
#IF
EQUAL <$BOXITEM[6].NAME_G> 熊猫刺客
#ACT
goto @宠物鉴定dd
#elseact
goto @宠物鉴定55
break
[@宠物鉴定55]
#IF
EQUAL <$BOXITEM[6].NAME_G> 艾米利奥
#ACT
goto @宠物鉴定ee
break
[@宠物鉴定dd]
#if
not checkgold 1000000
#ACT
MESSAGEBOX 1000000金币才可以鉴定一次。
break
#IF
#ACT
MOVR N$宠物鉴定几率 1 100
#IF
SMALL N$宠物鉴定几率 80
LARGE N$宠物鉴定几率 44
#ACT
DelBoxItem 6
take 金币 1000000
GiveGamePet 熊猫刺客·普通
UpdateItem boxitem6
Sendmsg 7 恭喜获得熊猫刺客宠物蛋一枚品质为《普通》
goto @main
break
#IF
SMALL N$宠物鉴定几率 45
LARGE N$宠物鉴定几率 5
#ACT
DelBoxItem 6
take 金币 1000000
GiveGamePet 熊猫刺客·优良 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 250
UpdateItem -1
Sendmsg 7 恭喜获得熊猫刺客物蛋一枚品质为《优良》
goto @main
break
#IF
LARGE N$宠物鉴定几率 79
#ACT
DelBoxItem 6
take 金币 1000000
GiveGamePet 熊猫刺客·卓越 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 252
UpdateItem -1
Sendmsg 7 恭喜获得熊猫刺客宠物蛋一枚品质为《卓越》
goto @main
break
#IF
SMALL N$宠物鉴定几率 6
#ACT
DelBoxItem 6
take 金币 1000000
GiveGamePet 熊猫刺客·史诗 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 241
UpdateItem -1
Sendmsg 7 恭喜获得熊猫刺客宠物蛋一枚品质为《史诗》
goto @main
break
[@宠物鉴定ee]
#if
not checkgold 1000000
#ACT
MESSAGEBOX 1000000金币才可以鉴定一次。
break
#IF
#ACT
MOVR N$宠物鉴定几率 1 200
#IF
SMALL N$宠物鉴定几率 200
LARGE N$宠物鉴定几率 129
#ACT
ReturnBoxItem 6
take 艾米利奥 1 1
take 金币 1000000
GiveGamePet 艾米利奥·普通
UpdateItem boxitem6
Sendmsg 7 恭喜获得艾米利奥宠物蛋一枚品质为《普通》
goto @main
break
#IF
SMALL N$宠物鉴定几率 80
LARGE N$宠物鉴定几率 9
#ACT
ReturnBoxItem 6
take 艾米利奥 1 1
take 金币 1000000
GiveGamePet 艾米利奥·优良 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 250
UpdateItem -1
Sendmsg 7 恭喜获得艾米利奥物蛋一枚品质为《优良》
goto @main
break
#IF
SMALL N$宠物鉴定几率 130
LARGE N$宠物鉴定几率 80
#ACT
ReturnBoxItem 6
take 艾米利奥 1 1
take 金币 1000000
GiveGamePet 艾米利奥·卓越 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 252
UpdateItem -1
Sendmsg 7 恭喜获得艾米利奥宠物蛋一枚品质为《卓越》
goto @main
break
#IF
SMALL N$宠物鉴定几率 10
#ACT
ReturnBoxItem 6
take 艾米利奥 1 1
take 金币 1000000
GiveGamePet 艾米利奥·史诗 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 241
UpdateItem -1
Sendmsg 7 恭喜获得艾米利奥宠物蛋一枚品质为《史诗》
goto @main
break
#IF
EQUAL N$宠物鉴定几率 80
#ACT
ReturnBoxItem 6
take 艾米利奥 1 1
take 金币 1000000
GiveGamePet 艾米利奥·传说 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 251
UpdateItem -1
Sendmsg 7 恭喜获得艾米利奥宠物蛋一枚品质为《传说》
goto @main
break

诚实小鸟

大好人一个 发表于 2022-4-29 20:58 我刚测试了OK框删除物品功能可能失灵了。

我擦,你这脚本,简直看不下去...GOTO当饭吃了...

诚实小鸟

蓅氓爱学习 发表于 2022-4-29 21:06 我擦,你这脚本,简直看不下去...GOTO当饭吃了...

看出什么问题了吗？为什么删不不了OK框物品呢？

诚实小鸟

大好人一个 发表于 2022-4-29 21:19 看出什么问题了吗？为什么删不不了OK框物品呢？

没看出啥问题啊..群里去找人问问..建议还是重写

诚实小鸟

大好人一个 发表于 2022-4-29 20:58 我刚测试了OK框删除物品功能可能失灵了。

你这脚本实在写得看不下去。你直接说你想达到什么效果，我帮你写就好了。

诚实小鸟

czy7812 发表于 2022-4-29 23:12 你这脚本实在写得看不下去。你直接说你想达到什么效果，我帮你写就好了。

多谢大佬好意，大佬如果有时间就帮我测试一下自定义OK框的几个命令，我测试好久都感觉那几个命令失效了。
20211225-2引擎，下边这三个命令没效果。
ReturnBoxItem (0~31)
OK框物品返回到包裹
DelBoxItem(0~31) 数量(数量只对叠加物品有效)
删除操作框物品
;禁止放入命令，可以检测是否可以升级的物品，可以使用此命令禁止放入
UNALLOWITEMINTOBOX

诚实小鸟

蓅氓爱学习 发表于 2022-4-29 20:33 发完整脚本..全看完了.就这几个毛病

我刚测试了OK框删除物品功能可能失灵了。
[@chongjianding]
#if
CHECKBAGSIZE 2
#ACT
goto @宠物鉴定44
#ELSEACT
MESSAGEBOX 背包格子不够两个无法进行鉴定。
break
[@宠物鉴定44]
#IF
EQUAL <$BOXITEM[6].NAME_G> 熊猫刺客
#ACT
goto @宠物鉴定dd
#elseact
goto @宠物鉴定55
break
[@宠物鉴定55]
#IF
EQUAL <$BOXITEM[6].NAME_G> 艾米利奥
#ACT
goto @宠物鉴定ee
break
[@宠物鉴定dd]
#if
not checkgold 1000000
#ACT
MESSAGEBOX 1000000金币才可以鉴定一次。
break
#IF
#ACT
MOVR N$宠物鉴定几率 1 100
#IF
SMALL N$宠物鉴定几率 80
LARGE N$宠物鉴定几率 44
#ACT
DelBoxItem 6
take 金币 1000000
GiveGamePet 熊猫刺客·普通
UpdateItem boxitem6
Sendmsg 7 恭喜获得熊猫刺客宠物蛋一枚品质为《普通》
goto @main
break
#IF
SMALL N$宠物鉴定几率 45
LARGE N$宠物鉴定几率 5
#ACT
DelBoxItem 6
take 金币 1000000
GiveGamePet 熊猫刺客·优良 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 250
UpdateItem -1
Sendmsg 7 恭喜获得熊猫刺客物蛋一枚品质为《优良》
goto @main
break
#IF
LARGE N$宠物鉴定几率 79
#ACT
DelBoxItem 6
take 金币 1000000
GiveGamePet 熊猫刺客·卓越 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 252
UpdateItem -1
Sendmsg 7 恭喜获得熊猫刺客宠物蛋一枚品质为《卓越》
goto @main
break
#IF
SMALL N$宠物鉴定几率 6
#ACT
DelBoxItem 6
take 金币 1000000
GiveGamePet 熊猫刺客·史诗 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 241
UpdateItem -1
Sendmsg 7 恭喜获得熊猫刺客宠物蛋一枚品质为《史诗》
goto @main
break
[@宠物鉴定ee]
#if
not checkgold 1000000
#ACT
MESSAGEBOX 1000000金币才可以鉴定一次。
break
#IF
#ACT
MOVR N$宠物鉴定几率 1 200
#IF
SMALL N$宠物鉴定几率 200
LARGE N$宠物鉴定几率 129
#ACT
ReturnBoxItem 6
take 艾米利奥 1 1
take 金币 1000000
GiveGamePet 艾米利奥·普通
UpdateItem boxitem6
Sendmsg 7 恭喜获得艾米利奥宠物蛋一枚品质为《普通》
goto @main
break
#IF
SMALL N$宠物鉴定几率 80
LARGE N$宠物鉴定几率 9
#ACT
ReturnBoxItem 6
take 艾米利奥 1 1
take 金币 1000000
GiveGamePet 艾米利奥·优良 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 250
UpdateItem -1
Sendmsg 7 恭喜获得艾米利奥物蛋一枚品质为《优良》
goto @main
break
#IF
SMALL N$宠物鉴定几率 130
LARGE N$宠物鉴定几率 80
#ACT
ReturnBoxItem 6
take 艾米利奥 1 1
take 金币 1000000
GiveGamePet 艾米利奥·卓越 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 252
UpdateItem -1
Sendmsg 7 恭喜获得艾米利奥宠物蛋一枚品质为《卓越》
goto @main
break
#IF
SMALL N$宠物鉴定几率 10
#ACT
ReturnBoxItem 6
take 艾米利奥 1 1
take 金币 1000000
GiveGamePet 艾米利奥·史诗 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 241
UpdateItem -1
Sendmsg 7 恭喜获得艾米利奥宠物蛋一枚品质为《史诗》
goto @main
break
#IF
EQUAL N$宠物鉴定几率 80
#ACT
ReturnBoxItem 6
take 艾米利奥 1 1
take 金币 1000000
GiveGamePet 艾米利奥·传说 N$宠物鉴定品质
LinkBagItem <$STR(N$宠物鉴定品质)>
CHANGEITEMNAMECOLOR -1 251
UpdateItem -1
Sendmsg 7 恭喜获得艾米利奥宠物蛋一枚品质为《传说》
goto @main
break

诚实小鸟

大好人一个 发表于 2022-4-29 20:58 我刚测试了OK框删除物品功能可能失灵了。

我擦,你这脚本,简直看不下去...GOTO当饭吃了...

诚实小鸟

蓅氓爱学习 发表于 2022-4-29 21:06 我擦,你这脚本,简直看不下去...GOTO当饭吃了...

看出什么问题了吗？为什么删不不了OK框物品呢？

诚实小鸟

大好人一个 发表于 2022-4-29 21:19 看出什么问题了吗？为什么删不不了OK框物品呢？

没看出啥问题啊..群里去找人问问..建议还是重写