吾爱尚玩资源基地

标题: 【千年服务端】比较好用的删除回城的脚本 [打印本页]
作者: admin    时间: 3 天前
标题: 【千年服务端】比较好用的删除回城的脚本
比较好用的删除回城的脚本


这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
  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   Str : String;
  18.    Race : Integer;
  19. begin   Str := callfunc ('getsenderrace');
  20.    Race := StrToInt (Str);
  21.    if Race = 1 then begin
  22.       print ('getsenderallitem 回城卷');
  23.       print ('getsenderallitem 玉露丸');
  24.       end;
  25.    exit;
  26. end;
  27. end.
复制代码
(, 下载次数: 0)





欢迎光临 吾爱尚玩资源基地 (http://bbs.523play.com/) Powered by Discuz! X3.4