三千论坛

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

---

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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
2 f, R2 r! c  a4 U$ N  P% S0 K, b8 l'getsenderallitem 删除玩家身上所有同名的物品。不论数量
: ]5 D; S8 v5 p/ L5 lunit 删除回城;
+ d1 O) S4 h  kinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
) S) X5 q  q0 u: a6 q4 ~$ S5 e% S1 }procedure Dec (aInt: integer);
+ L* A3 c$ N% m, {* y/ n7 Cfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
2 _$ G' r5 S* P; ^; [8 b$ f2 vprocedure OnCreate (aStr : String);
implementation
. }: ^- f0 E$ f8 p; B- \procedure OnCreate (aStr : String);
var   Str : String;
   Race : Integer;
, C( x9 _- Q& T! n. X( bbegin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
9 y# Y! P" T9 w3 H, Z      print ('getsenderallitem 回城卷');
! f5 @8 p3 l$ B6 r4 N* s! U      print ('getsenderallitem 玉露丸');
      end;
  {# k5 l; o3 P' [6 `   exit;
3 \' {7 D) `& W1 \end;
end.

5 X" b1 ~5 l  M2 y. N

---

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

Powered by Discuz! X3.4