三千论坛
标题: 比较好用的删除回城的脚本 [打印本页]
作者: 快要发癫啦 时间: 2022-12-30 08:36
标题: 比较好用的删除回城的脚本
这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
; |6 C! [7 }5 i, u% j) y( _6 Z'getsenderallitem 删除玩家身上所有同名的物品。不论数量$ b7 Q/ }; F6 F6 _
unit 删除回城;
6 s; _/ }9 z2 F# {4 Q. N& ]4 [# Iinte**ce
$ K, d+ V* X1 `' S8 {/ @; Hfunction GetToken (aStr, aToken, aSep : String) : String;; M* M9 R" p4 k4 V8 _+ z
function CompareStr (aStr1, aStr2 : String) : Boolean;$ D q6 ~5 a) t" N: T" y
function callfunc (aText: string): string;
6 o) H t L/ B1 gprocedure print (aText: string);1 Y1 F! V( r3 `3 |& G: i; Q
function Random (aScope: integer): integer;
' V2 L' G% M* p9 w; qfunction Length (aText: string): integer;
( g1 x' I) W: ]+ aprocedure Inc (aInt: integer);
6 `) w' j& L) o1 a- hprocedure Dec (aInt: integer);$ J D+ |0 @0 v: M! W, q) v/ i& q
function StrToInt (astr: string): integer;
. \: H" T2 u! W8 @function IntToStr (aInt: integer): string;
6 F+ t6 A- ?- C5 _% K9 Bprocedure exit;. C5 ~4 I) {2 a2 k
procedure OnCreate (aStr : String);3 U6 c% t8 c7 t/ Z
implementation
! |& t X) g; D2 }1 g4 [4 lprocedure OnCreate (aStr : String);
* R9 \- B/ Z c2 ^var Str : String;3 `' d) e1 A+ x4 w; }
Race : Integer;( j/ V% O" o5 Q$ `
begin Str := callfunc ('getsenderrace');: p4 L. {! ?' z4 t0 D+ Z" R! H9 J$ W
Race := StrToInt (Str);& ~3 y9 w) n, K y
if Race = 1 then begin
/ e4 n5 \- P: n# E+ `; i6 r! d1 z print ('getsenderallitem 回城卷');+ s" u, o2 \+ `1 _9 \* {
print ('getsenderallitem 玉露丸');
0 S& I) V7 D# f G9 \ end;% W% W" K1 {) m3 X
exit;
* @ z( l9 B/ i1 ?# hend;" [- e/ D4 ~- `- F$ F( s Y, `& g
end.
; i" C) Y/ P) `" V7 P5 L
| 欢迎光临 三千论坛 (http://www.3000y.com.cn/) |
Powered by Discuz! X3.4 |