【千年服务端】回城卷轴在流放地的BUG及解决方法

回城卷轴在流放地的BUG及解决方法

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

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

复制代码

下载地址

回城卷轴在流放地的BUG及解决方法.doc

网盘失效？举报有奖

立即下载

免费

您已购买

金币

【年费VIP仅需28元】   【购买VIP会员】  
【充值金币】  【免费领取金币】 
【解压密码在此下载文档内，请仔细阅读！】