千年服务端比较好用的删除回城脚本

内容介绍

这个是强行全部删除，如果有人用外挂坐药，就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。

1. 'getsenderallitem 删除玩家身上所有同名的物品。不论数量
   
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   Str : String;
    
19.    Race : Integer;
    
20. begin   Str := callfunc ('getsenderrace');
    
21.    Race := StrToInt (Str);
    
22.    if Race = 1 then begin
    
23.       print ('getsenderallitem 回城卷');
    
24.       print ('getsenderallitem 玉露丸');
    
25.       end;
    
26.    exit;
    
27. end;
    
28. end.

复制代码