三千论坛
标题: 比较好用的删除回城的脚本 [打印本页]
作者: 快要发癫啦 时间: 2022-12-30 08:36
标题: 比较好用的删除回城的脚本
这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。/ J' R; X! r1 ]% X5 _# V3 _; F3 ~
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
' E: b8 D. H4 b* ?& D9 y3 _unit 删除回城;: z9 u# s) i# D0 c1 i8 x
inte**ce$ \& C1 E6 K% n+ m2 ~' }0 j
function GetToken (aStr, aToken, aSep : String) : String;
" f7 D% y$ ~" ?* c7 }) L- ~function CompareStr (aStr1, aStr2 : String) : Boolean;; O" |" Y. ?+ ~, o8 J5 e
function callfunc (aText: string): string;) I: o% L2 X" A: ]3 l" j \
procedure print (aText: string);
4 y4 D* c+ y2 M( Z5 [function Random (aScope: integer): integer;
; V2 A) A) q( `% w! u. |, Q. u( T8 Rfunction Length (aText: string): integer;1 w) t: M' }, R4 `9 |; k! Y
procedure Inc (aInt: integer);
. p4 |7 n* E: j n) _6 g( Iprocedure Dec (aInt: integer);% `2 G: c' b; Y% r4 G- l
function StrToInt (astr: string): integer;
- T/ H7 _+ g p( pfunction IntToStr (aInt: integer): string;
& b6 c- A7 T/ j& `+ [& o) r q1 ^procedure exit;
1 N! ]8 D( s2 Tprocedure OnCreate (aStr : String);& {, B& _( X, E
implementation+ G0 x6 @0 M3 `3 Z* H" K. A
procedure OnCreate (aStr : String);9 T8 l# e5 `& l
var Str : String;- B% a3 ]% Z. l8 C B8 Z5 W
Race : Integer;( a7 N$ ^- P- v8 b
begin Str := callfunc ('getsenderrace');
4 g+ w% Y5 C9 {/ D3 g/ R Race := StrToInt (Str);$ B1 ~, v2 l- v o- |& B
if Race = 1 then begin
7 ?+ k1 e3 N, s print ('getsenderallitem 回城卷');4 u. P0 S2 I1 I- B0 B7 l, q
print ('getsenderallitem 玉露丸');9 `5 u/ ]3 n* F/ T- K1 |# Q' Q8 ]
end;; K- Z; m8 b* J# j0 |/ v
exit;
8 s, C5 `: M& S; u$ w5 U0 vend;
" \# z. K5 K- @0 U6 }0 H( d2 Mend.
h: J7 v" {% t2 Q
| 欢迎光临 三千论坛 (http://bbs.3000y.com.cn/) |
Powered by Discuz! X3.4 |