游客您好
  • 点击联系客服

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

    客服微信

    Wkr-3000y-kf

    电子邮件

    3000y@wenkeruan.com
  • 手机版

    随时掌握游戏动态

  • 扫一扫二维码

    添加微信客服

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

[安全工具] 回城卷轴在流放地的BUG及解决方法

[复制链接]
快要发癫啦 发表于 2023-2-1 14:20:38 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
原理:进入流放地后自动删除物品栏内所有回城卷
* p/ n$ P/ u" n. R
方法:
! j2 r% H! y! b( k7 C
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135 / w- m$ b+ z6 o4 h
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
& g* u5 Y8 g" G5 d4 a# f
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
0 C! L: p8 C& \/ d6 @& U: [" a3 c& Z
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE * r1 j- j# i& x
删除回城.txt
& k: o  Z- h8 K" X
unit 删除回城;
* z3 P2 B8 V! d+ @+ _4 G
inte**ce 7 \7 @9 i; z& a
function  GetToken (aStr, aToken, aSep : String) : String;
' J0 g/ k, Y& `: p
function  CompareStr (aStr1, aStr2 : String) : Boolean;
" X% X, a/ M* N7 R: t4 h
function  callfunc (aText: string): string;/ r4 f+ o: I2 E. u5 \  m; o2 X, E
procedure print (aText: string);
( V! r7 h3 z8 M2 x
function  Random (aScope: integer): integer;
# j& d5 t! V8 L0 I
function  Length (aText: string): integer;; G" _( A% ~. V" ?. q
procedure Inc (aInt: integer);# }+ R% T# |' a: X( V; I. v
procedure Dec (aInt: integer);
/ I+ [# b$ S; q) }: T# X' q
function  StrToInt (astr: string): integer;
- A8 O8 S7 t& W2 A4 z! u, D3 l
function  IntToStr (aInt: integer): string;
5 ~. p! q2 x* ?; c: B5 J$ P7 W% k
procedure exit;
' v4 V; }+ z  d3 G" h; c
procedure OnCreate (aStr : String);
9 q. [; k/ `! `3 @
implementation
2 K$ c! V7 s4 D1 e# n4 R$ m. [- _
procedure OnCreate (aStr : String);; p" D' M; a2 Z" e
var7 D6 y- h0 m1 H/ w! ^# h( ?0 C7 X# s
   Str : String;# o0 g& L8 J% P3 f" {1 Q
   iCount : String;, t6 W& n8 j9 Z) K0 k! ]. P, {6 P
   GoBigMapItem : String = '回城卷';  B7 T9 J: I& E, L3 i7 y* J6 z5 ?! A
begin6 Q; m* [$ Y/ s/ \; i4 M
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;1 U1 w+ j9 \2 l& b1 w$ L5 R5 w7 A
      iCount := callfunc (Str);
8 S, ?- A( w4 z; i# O2 K
      if iCount <> '0' then begin
9 o- {0 @, ]- X
         Str := 'getsenderitem ' + GoBigMapItem;( F2 W5 h+ ?; i8 Z
         Str := Str + ':';
. R" W$ c9 r. m
         Str := Str + iCount;4 j! n7 ~, @  f9 ]8 \6 V
         print (Str);  c2 c: h" ?3 ]4 i7 i# L4 r: Q, I' A
      end;; B  p7 n5 ~$ x  Z- h/ u5 O- W" [
   exit;
$ b# g7 U% s& z& k8 E5 ^* x
end;
# H/ _+ |5 v( G  Y5 {
end.

. z0 q# y/ }. y8 L" H
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

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