游客您好
  • 点击联系客服

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

    客服微信

    Wkr-3000y-kf

    电子邮件

    3000y@wenkeruan.com
  • 手机版

    随时掌握游戏动态

  • 扫一扫二维码

    添加微信客服

Lv.7 版主
8号会员,9活跃值,2022.09.01 加入
  • 127发帖
  • 123主题
  • 0关注
  • 0粉丝
这个人很懒,什么也没有留下。
独家推荐 更多>

[游戏设置] 进入流放地后自动删除物品栏内所有回城卷

[复制链接]
异仟年认证商人 发表于 2022-9-5 17:39:14 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
原理:进入流放地后自动删除物品栏内所有回城卷
5 X8 X" a$ f2 {& O4 Y" b; l
" @/ Z" T0 r) e( [4 H方法:/ R) E5 U7 Q$ A( q5 R2 B- z

0 x- j+ u( @' n2 r/ O! k一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135! |; t4 h+ b7 K$ |
* c- S2 l. A0 t. t& {: }
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到% k& p/ s- a1 B# w, z9 H1 W

# Q6 [- v8 ]; \三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
2 Z! I, q9 C/ z+ E5 o. V/ z
6 f# ]' Y2 q: y1 w' z' e四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE' E* {0 T7 Z+ k( R& }& K

# {3 a' M. y, k& Q1 k; L, ~4 H* E删除回城.txt9 M7 G: C/ L1 v7 j

- F; ^  k/ M1 Z  Y, n4 w6 _6 I+ g) @unit 删除回城;1 `) E; z7 S  ]/ R; N

5 R- O' H8 u9 [6 e+ c$ iinterface
7 N+ p5 o' }$ ~' h( g. t
; i2 l! P# W& K0 R! ?function  GetToken (aStr, aToken, aSep : String) : String;
/ q8 ?$ G& Q( o, N) \function  CompareStr (aStr1, aStr2 : String) : Boolean;
& a2 {5 x9 \. J# Nfunction  callfunc (aText: string): string;6 \& P" j( ]3 t, Q5 w
procedure print (aText: string);
  n4 |9 s) p) m; d. E9 L5 D7 ^4 ^3 H  jfunction  Random (aScope: integer): integer;) `/ Y& ^2 ^8 b, O
function  Length (aText: string): integer;7 |5 P$ Z, f6 U* |
procedure Inc (aInt: integer);
' z) W: O5 l6 E0 Lprocedure Dec (aInt: integer);
- C" j, k; G9 P$ Afunction  StrToInt (astr: string): integer;. k9 ^+ _" l3 }
function  IntToStr (aInt: integer): string;
/ B1 ^* @" d: c0 ?& }procedure exit;
" V$ S" Y8 |, p, w  `8 Y! \8 r  Y1 j/ K& ?
procedure OnCreate (aStr : String);& e0 c: w# F! ?) p. m8 a
; G/ s' ]' _9 m9 U7 H1 @! Y0 E$ k2 ~
implementation# ^+ k1 h2 |( E+ ?2 J5 k7 r2 z
- A% d! a1 k  ~  Z* z
procedure OnCreate (aStr : String);
( {7 R8 O9 J; l& L6 ?var0 U2 e) l+ [2 n; m) w2 ~
   Str : String;0 G- E$ O+ J/ R8 `1 W& F  R
   iCount : String;
8 H5 Z, U& ~7 o) G5 A* z5 h   GoBigMapItem : String = '回城卷';' B: A0 d5 s6 d" H
begin
' [3 A+ j! d( \8 m      Str := 'getsenderitemcountbyname ' + GoBigMapItem;' Q6 d* u/ O; u1 ?; I3 O
      iCount := callfunc (Str);
4 ?# D) s: W3 Z* w      if iCount <> '0' then begin. ^1 p2 \9 V9 a9 r6 o
         Str := 'getsenderitem ' + GoBigMapItem;% q4 k( t9 ^# [1 M7 |
         Str := Str + ':';
% N* G; ?5 ^' @: V         Str := Str + iCount;; U- u2 u+ O2 ?3 m
         print (Str);+ w/ x0 H0 h6 Q& n" z4 e  _
      end;
  i  d9 ]! M4 H   exit;9 c, Y. _4 h2 x7 {: B+ i6 X
end;
! Q) Z/ @& z4 v7 A
0 S% ?4 a. z  B7 j! fend.

& Q$ Z( A  M  @. P2 x7 K
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

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