三千论坛
标题: 比较好用的删除回城的脚本 [打印本页]
作者: 快要发癫啦 时间: 2022-12-30 08:36
标题: 比较好用的删除回城的脚本
这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。3 b& j" n+ F+ H( _ E }
'getsenderallitem 删除玩家身上所有同名的物品。不论数量2 S3 X. i# E' ]7 M% F
unit 删除回城;0 D$ X3 r8 s9 `1 A5 ^
inte**ce
& W2 {# n" L. E7 Y% T4 ] w; dfunction GetToken (aStr, aToken, aSep : String) : String;
4 ^- k0 g; D1 P& W+ ofunction CompareStr (aStr1, aStr2 : String) : Boolean;
. @" |1 [: [) _1 W& P* Z5 m9 a; ^% vfunction callfunc (aText: string): string;" B6 y( A: D6 o. l6 Y, }
procedure print (aText: string);: B- u ?' M4 }7 J
function Random (aScope: integer): integer;
3 P* z! [! k& U! ?, D e9 afunction Length (aText: string): integer;) ?% K$ |7 Z1 A7 j
procedure Inc (aInt: integer);
u1 U6 f+ P9 R* J( m/ aprocedure Dec (aInt: integer);
8 }# P0 X' x8 K: S2 [/ T) M( c2 L2 t2 Z7 ofunction StrToInt (astr: string): integer;7 K* ?3 M: I; K9 t
function IntToStr (aInt: integer): string;! M# Z% T+ l# \0 p# d( ^0 f6 H
procedure exit;
w, w, F3 [, Q1 Q8 uprocedure OnCreate (aStr : String);: H8 S/ A8 N8 f) Y# h
implementation( {* B7 w8 k" t7 C
procedure OnCreate (aStr : String);
& F( b4 d _1 R: Zvar Str : String;6 g- z# Z F0 l6 {' t
Race : Integer;/ t0 c0 M" P: [& n, W% \! ~5 J; e: K
begin Str := callfunc ('getsenderrace');
9 ^6 q9 Q" ]# m/ m Race := StrToInt (Str);4 B$ x# i* U" p
if Race = 1 then begin
2 F7 F* n3 N# E" P" B print ('getsenderallitem 回城卷');
' G0 H; R1 u/ r8 d# o( N1 X- v print ('getsenderallitem 玉露丸');
, d5 W# S2 }% x! U I3 l end;1 _% a. ^: Y* b* G
exit;1 c% i/ w$ o1 D; c7 q9 J. [0 u
end;
* O0 S% I. Z- Z, ~! ^end.
7 A7 l* l5 f2 \( j
| 欢迎光临 三千论坛 (http://bbs.3000y.com.cn/) |
Powered by Discuz! X3.4 |