|
楼主 |
发表于 2016-7-10 11:20:15
|
显示全部楼层
谢谢防线大大 我找到这个脚本自己改了下 不知道对不对
db里 callfunc 指令我真心不会写,能否指点一下
function script refine {
set @max,5;
set @part,1;
set @part_max,7;
set @ngp,1;
set @ygp,1;
set @ngpmx,7;
set @ygpmx,7;
mes " 此卷可以双击使用,双击后瞬间+"+@max+"";
next;
menu "不要一定骗人的",L_CANCEL,
"我要锻治",L_Yes,
L_Yes:
if (@ngp == @ngpmx) goto L_ERROR;
if (@ygp == @ygpmx) goto L_ERROR1;
if (@part == @part_max) goto L_CLOSE;
if ( getequipisequiped(@part) > 0) goto L_Yes2;
set @ngp,@ngp+1;
set @part,@part+1;
goto L_Yes;
L_Yes2:
if ( getequiprefinerycnt(@part) < @max) goto L_Yes3;
set @ygp,@ygp+1;
set @part,@part+1;
goto L_Yes;
L_Yes3:
if ( getequipisenableref(@part) > 0 ) goto L_Yes4;
set @part,@part+1;
goto L_Yes;
L_Yes4:
if ( getequiprefinerycnt(@part) >= @max) end;
goto L_Yes5;
L_Yes5:
successrefitem @part;
goto L_Yes;
L_ERROR:
mes " 请检查装备有没穿上! ";
goto L_CLOSE;
L_ERROR1:
mes " 对不起!!你全身装备+"+@max+"喽";
goto L_CLOSE;
L_CANCEL:
mes " 真是无聊的人!!";
goto L_CLOSE;
L_CLOSE:
close;
}
|
|