GOM引擎打捆成叠加材料脚本，传奇SF解包成灵魂盒子方法示例

[@打捆仓库]

{

#IF
#ACT
CloseBigDialogBox
#Say
\　\　\　\　\
　　　　　　　 <灵魂盒子/FCOLOR=146>　　　→　　<[点击打捆]成叠加材料/@Ksdk01x>\　\　\
　　　　　　 <灵魂盒子[捆]/FCOLOR=146>　　→　　<[点击解包]成灵魂盒子/@Ksdk02x>\　\　\
<Img:363:1:3:4>\
　　　　<[提炼精粹]|154#毁掉装备，去除杂质^154#保留需要的精粹/@Main1>　<┆/FCOLOR=10>　<当前精粹数量：<$STR(U40)>|154#点击刷新{SCOLOR=154}/@打捆仓库>　<┆/FCOLOR=10>　<[提取]|154#[身上精粹]提取到背包/@@InPutinteger92(当前身上[精粹]为：<$Str(U40)>　请输入提取[精粹]的数量！)>　<┆/FCOLOR=10>　<[存入]|154#[背包精粹]储存在身上/@@InPutinteger93(请输入存入[精粹]的数量！)>\

[@Ksdk01x]
#IF
CheckItem 灵魂盒子 1
#Act
Take 灵魂盒子 1
Give 灵魂盒子[捆] 1

[@Ksdk02x]
#IF
CheckItem 灵魂盒子[捆] 1
#Act
Take 灵魂盒子[捆] 1
Give 灵魂盒子 1

[@InPutinteger92]
#OR
LARGE N92 10000
SMALL N92 1
#ACT
MOV N92
Messagebox \【错误提示】:\\\　　　　　　请输入1-9999数量！
Break

#IF
Large U40 0
#Act
Mov N$扣除精粹数量 0
Mov N$给于精粹数量 0
Mov N$扣除精粹数量 <$STR(N92)>
Mov N$给于精粹数量 <$STR(N92)>
Mul N$扣除精粹数量 1
Mul N$给于精粹数量 1
Give 精粹 <$STR(N92)>
Dec U40 <$STR(N92)>
Goto @打捆仓库
Messagebox \【成功操作】:\\\　　　　　　成功取出<$STR(N92)>精粹。！
Break
#ElseAct
MESSAGEBOX \【错误提示】:\\　　　　　　你没有<$STR(N92)>精粹，无法取出！
break

[@InPutinteger93]
#OR
LARGE N93 10000
SMALL N93 1
#ACT
MOV N93
Messagebox \【错误提示】:\\\　　　　　　请输入1-9999数量！
Break

#IF
CheckItem 精粹 <$STR(N93)>
#Act
Mov N$扣除背包精粹 0
Mov N$赋予精粹数量 0
Mov N$扣除背包精粹 <$STR(N93)>
Mov N$赋予精粹数量 <$STR(N93)>
Mul N$扣除背包精粹 1
Mul N$赋予精粹数量 1
Take 精粹 <$STR(N93)>
Inc U40 <$STR(N93)>
Goto @打捆仓库
Messagebox \【成功操作】:\\\　　　　　　成功存入<$STR(N93)>精粹。！
Break
#ElseAct
MESSAGEBOX \【错误提示】:\\　　　　　　你没有<$STR(N93)>精粹，无法存出！
Break

;====================================================================================================================================================
;====================================================================================================================================================

[@Main1]
#IF
#ACT
#CALL [\功能文件\提炼精粹.txt] @提炼精粹

}

确实是难得好帖啊，顶先

确实是难得好帖啊，顶先