千年服务端修复回城卷轴在流放地BUG的方法

内容介绍

原理:进入流放地后自动删除物品栏内所有回城卷
方法:
1、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
2、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
3、"删除回城.txt"中回城卷的名字根据各服务器情况修改
4、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE

1. 删除回城.txt
   
2. unit 删除回城;
   
3. interface
   
4. function  GetToken (aStr, aToken, aSep : String) : String;
   
5. function  CompareStr (aStr1, aStr2 : String) : Boolean;
   
6. function  callfunc (aText: string): string;
   
7. procedure print (aText: string);
   
8. function  Random (aScope: integer): integer;
   
9. function  Length (aText: string): integer;
   
10. procedure Inc (aInt: integer);
    
11. procedure Dec (aInt: integer);
    
12. function  StrToInt (astr: string): integer;
    
13. function  IntToStr (aInt: integer): string;
    
14. procedure exit;
    
15. procedure OnCreate (aStr : String);
    
16. implementation
    
17. procedure OnCreate (aStr : String);
    
18. var
    
19.    Str : String;
    
20.    iCount : String;
    
21.    GoBigMapItem : String = '回城卷';
    
22. begin
    
23.       Str := 'getsenderitemcountbyname ' + GoBigMapItem;
    
24.       iCount := callfunc (Str);
    
25.       if iCount <> '0' then begin
    
26.          Str := 'getsenderitem ' + GoBigMapItem;
    
27.          Str := Str + ':';
    
28.          Str := Str + iCount;
    
29.          print (Str);
    
30.       end;
    
31.    exit;
    
32. end;
    
33. end.

复制代码