|
这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。7 _' S+ @( r! O
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
4 Q: \, A9 i a. bunit 删除回城;
2 M3 ]: x- d# u* `3 |7 rinte**ce
8 o; r0 r& {! `! a9 o# nfunction GetToken (aStr, aToken, aSep : String) : String;% |) j# s5 ?# f* _
function CompareStr (aStr1, aStr2 : String) : Boolean;
8 v# v( u" U+ D2 o1 zfunction callfunc (aText: string): string;5 X3 O3 S: R3 `
procedure print (aText: string);5 H$ @+ r$ [ ^4 l1 O: l
function Random (aScope: integer): integer;" Z5 C" X, a. Q: W4 o
function Length (aText: string): integer;5 p+ v P" e. r5 B- m$ r2 @& U
procedure Inc (aInt: integer);% r2 L% R3 V. I0 ^) Z
procedure Dec (aInt: integer); {8 [4 s3 ^- p+ E% J }
function StrToInt (astr: string): integer;
0 E" h; n! i+ ~3 Jfunction IntToStr (aInt: integer): string;, z- G. y: V3 {: x+ {: G
procedure exit;) ~* K2 W; {7 R8 [6 g3 G% a
procedure OnCreate (aStr : String);# O; z& p# E' a3 N& w
implementation$ T5 s2 o. h: b4 m3 V# _
procedure OnCreate (aStr : String);7 O+ O) Z' f+ b/ y
var Str : String;6 u0 G1 M6 }: R( y! u; l
Race : Integer;
$ e/ U8 N" ]: u- F" z! w) [, Q6 Pbegin Str := callfunc ('getsenderrace');
! C$ t$ n* ] a% F5 j4 i, Q/ w9 z& X Race := StrToInt (Str);' J1 F2 \! G2 m, r# e8 z9 P) |% ]
if Race = 1 then begin% F/ z9 T6 Y6 t5 f; a
print ('getsenderallitem 回城卷');; @3 f6 [/ U9 j
print ('getsenderallitem 玉露丸');2 {9 ]# \2 J3 t. V
end;
T/ g! M! j% |6 D$ c/ u( o0 v X. Z exit;: ]4 ?0 W9 m/ r7 v5 N: v, |
end;
8 H. l$ B+ h1 ]" bend. 9 b1 e8 q1 }; t7 j3 p
| 
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
闽公网安备 35099902000100号增值电信业务经营许可证 闽B2-20220593 闽ICP备2023014375号