千年服务端修复回城卷轴在流放地BUG的方法
内容介绍
原理:进入流放地后自动删除物品栏内所有回城卷
方法:
1、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
2、在流放地随便放个NPC Notice列加上script的编号135坐标 58 78 要保证进去后就能看到
3、"删除回城.txt"中回城卷的名字根据各服务器情况修改
4、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
删除回城.txt
unit 删除回城;
interface
functionGetToken (aStr, aToken, aSep : String) : String;
functionCompareStr (aStr1, aStr2 : String) : Boolean;
functioncallfunc (aText: string): string;
procedure print (aText: string);
functionRandom (aScope: integer): integer;
functionLength (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
functionStrToInt (astr: string): integer;
functionIntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
var
Str : String;
iCount : String;
GoBigMapItem : String = '回城卷';
begin
Str := 'getsenderitemcountbyname ' + GoBigMapItem;
iCount := callfunc (Str);
if iCount <> '0' then begin
Str := 'getsenderitem ' + GoBigMapItem;
Str := Str + ':';
Str := Str + iCount;
print (Str);
end;
exit;
end;
end.
页:
[1]