三千论坛

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

---

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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
4 W2 x5 [* {" G; A% s! Q) h7 u, T) C'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
inte**ce
0 F* K* q% {* h* c4 x& U- j. l5 Kfunction  GetToken (aStr, aToken, aSep : String) : String;
4 k6 o- O4 o  Y6 h7 s6 {function  CompareStr (aStr1, aStr2 : String) : Boolean;
1 ?  F7 |3 n  O! c. G; O# lfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
1 h6 ?. {0 K* m, }& E- [7 [  bprocedure Inc (aInt: integer);
$ w! n2 e9 c6 c4 J' L7 n. iprocedure Dec (aInt: integer);
1 s( c5 [' g0 k" G1 kfunction  StrToInt (astr: string): integer;
- ]  L. V8 J) v% |' x5 s. J  ?, ufunction  IntToStr (aInt: integer): string;
5 k2 |) k& b; z9 Hprocedure exit;
procedure OnCreate (aStr : String);
implementation
5 A& w0 O4 V9 c4 nprocedure OnCreate (aStr : String);
var   Str : String;
% q2 a' G1 f; B8 x   Race : Integer;
: G% d" j# y: M* T: P  Lbegin   Str := callfunc ('getsenderrace');
+ d& y7 @0 \5 |) M) O! ~   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
      end;
) }% E. [5 U/ l' ]5 |3 w- A- K! U   exit;
end;
; N3 Q- o+ W3 _. {# P2 y6 D& n- I- wend.

- |( D& ~- K6 ]' W5 Q* J' M

---

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

Powered by Discuz! X3.4