游客您好
  • 点击联系客服

    在线时间:8:30-18:00

    客服微信

    Wkr-3000y-kf

    电子邮件

    3000y@wenkeruan.com
  • 手机版

    随时掌握游戏动态

  • 扫一扫二维码

    添加微信客服

Lv.5 解脱境
277号会员,0活跃值,2022.10.27 加入
  • 207发帖
  • 173主题
  • 0关注
  • 0粉丝
这个人很懒,什么也没有留下。
独家推荐 更多>

[安全工具] 比较好用的删除回城的脚本

[复制链接]
快要发癫啦 发表于 2022-12-30 08:36:23 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
这个是强行全部删除,如果有人用外挂坐药,你就把他拉到你自己设计的地图里,让他在里面劳改。想删他什么就删他什么。
  J; d2 X" V# p8 ^) u3 {6 P4 @
'getsenderallitem 删除玩家身上所有同名的物品。不论数量, Y- M% m$ Z5 H
unit 删除回城;
# A, P. p5 ~  T1 R2 ]3 _, ?8 J
inte**ce' O8 i$ o% V0 Q
function  GetToken (aStr, aToken, aSep : String) : String;/ B+ ]+ E9 v2 S; V+ B2 e% E
function  CompareStr (aStr1, aStr2 : String) : Boolean;- c! l5 _4 G5 [2 P
function  callfunc (aText: string): string;3 G9 H6 Y) r! F: h4 W. n! D
procedure print (aText: string);* L* A5 Z/ c4 v
function  Random (aScope: integer): integer;
  v% d" r! P$ }5 R$ D2 e- u' }6 ?
function  Length (aText: string): integer;% e" y. A( a* R( D: J! i
procedure Inc (aInt: integer);' i5 G! K$ w  @6 H) }% @" S
procedure Dec (aInt: integer);3 U6 v4 F$ g: c0 m3 R4 j2 y+ l3 a6 ~
function  StrToInt (astr: string): integer;: S8 j+ t6 u/ V. d& v$ [
function  IntToStr (aInt: integer): string;& n5 Z1 i* r" b6 D
procedure exit;: v9 j5 l- D/ R% T
procedure OnCreate (aStr : String);/ F$ Z- P& m5 f- h' r+ t
implementation
/ H+ m( W9 F' @* R7 }
procedure OnCreate (aStr : String);$ k/ _7 s: F; x/ j
var   Str : String;; r) `. }7 B2 d& f! G
   Race : Integer;6 M5 v& `. I: V2 {# u- ^2 N
begin   Str := callfunc ('getsenderrace');
4 ?. F' L% r4 Y8 Q
   Race := StrToInt (Str);0 |/ O& z# d5 s
   if Race = 1 then begin9 G, c- O& e7 v/ {7 y$ y
      print ('getsenderallitem 回城卷');5 @/ c# i* J: ^$ n
      print ('getsenderallitem 玉露丸');
& X% a7 N2 R5 [# c" E  D# E
      end;
- i& f( \  d# z$ U
   exit;
" f2 F5 B- p* l% I
end;
' ?1 v- \  B" T7 t
end.

+ v) U6 F/ r8 [. w" P
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

Powered by Discuz!X3.4 ©2001-2013 Comsenz Inc.闽公网安备 35099902000100号增值电信业务经营许可证 闽B2-20220593 闽ICP备2023014375号