三千论坛

标题: 比较好用的删除回城的脚本 [打印本页]

---

作者: 快要发癫啦    时间: 2022-12-30 08:36
标题: 比较好用的删除回城的脚本

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
5 u4 b7 _4 W3 z% j( i'getsenderallitem 删除玩家身上所有同名的物品。不论数量
- p( P: L5 b7 \+ K# sunit 删除回城;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
8 w4 x! w- }) ]0 Z; z; K; r" Nfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
5 ]! ~3 {6 N( b& M5 Y7 v# tprocedure print (aText: string);
. ?% k6 n) s' R& F& F4 q+ u/ [function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
4 A+ e% \  D5 A6 Tprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
" ~) c2 e. m* s$ X. Y8 Nfunction  IntToStr (aInt: integer): string;
* T0 E( \# Z2 o  e3 K0 ~( R9 \7 Dprocedure exit;
procedure OnCreate (aStr : String);
implementation
  }" b& G7 O# K2 Y: ~  Aprocedure OnCreate (aStr : String);
var   Str : String;
9 [/ h" \3 p+ j3 M1 m, \! y" x0 o   Race : Integer;
begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
7 H/ A" ?* l% s, `+ E  @0 E/ Z      end;
4 a9 c8 A* I) s% r5 h* g, B   exit;
end;
end.

---

欢迎光临 三千论坛 (http://www.3000y.vip/)

Powered by Discuz! X3.4