|
这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
# R2 H, |# E$ ?* G5 L# u'getsenderallitem 删除玩家身上所有同名的物品。不论数量: ]. k1 F) r- f* f+ O
unit 删除回城;, v# S* M. F) K0 m% K5 ?5 `" v& J
inte**ce9 c4 P8 a4 Q( Z, Y5 p
function GetToken (aStr, aToken, aSep : String) : String;, Y9 k- P: E3 `/ f& G. Z4 I! w! P9 A" E) t1 x
function CompareStr (aStr1, aStr2 : String) : Boolean;
E, I$ B( ^# a \1 Rfunction callfunc (aText: string): string;
6 E" v7 Y# I9 ^2 G mprocedure print (aText: string);' C; ]8 n( B8 o
function Random (aScope: integer): integer;, o1 C1 \# [/ d
function Length (aText: string): integer;. N0 Y3 E! D$ C& M8 h9 F
procedure Inc (aInt: integer);+ F5 R% Q3 t g4 I8 ?
procedure Dec (aInt: integer);! ~# r0 N0 U$ w/ l! Y
function StrToInt (astr: string): integer;9 P. P/ m. c* m
function IntToStr (aInt: integer): string;
; A4 d' O: O, |& z0 Aprocedure exit;( h" _) a9 j9 D& }
procedure OnCreate (aStr : String);
- I M* _+ B3 k" e4 C/ bimplementation
5 [! C: v: |/ @: ], y% c# hprocedure OnCreate (aStr : String);
4 y9 l& F& {) Q* ^var Str : String;1 b+ d- x# c U# I
Race : Integer;
% O6 S" E" m, Z) q4 J4 L1 sbegin Str := callfunc ('getsenderrace');
/ I0 `3 [- \' p2 [# t- h Race := StrToInt (Str); |4 V0 V+ P7 v1 s, }& X6 b) H
if Race = 1 then begin7 v0 }7 m. x! v7 h8 m: ^
print ('getsenderallitem 回城卷');& y2 j6 T+ T) o
print ('getsenderallitem 玉露丸');
+ e x8 I8 q$ x* R! W end;
: a# Q7 {5 L" i. z8 y$ E exit;
* m% o7 z9 [9 Y4 D; T- Qend;
* L' {, r5 g) i( A3 {& F9 a( X: bend. $ z( ~; Z, G& z4 U
| 
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
闽公网安备 35099902000100号增值电信业务经营许可证 闽B2-20220593 闽ICP备2023014375号