进入流放地后自动删除物品栏内所有回城卷

原理:进入流放地后自动删除物品栏内所有回城卷

方法:

一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
, P& T  o; @) |$ g! [
; I# G7 x) G4 R7 H  A8 Q二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
, |7 r3 n# J) u
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
% f% x6 I2 ~& D9 q4 D
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
0 Q2 j3 p) O# h9 X- u
删除回城.txt

unit 删除回城;
. X$ ^' L0 _; Z, s9 r. x' V
interface
- G' D, d1 u8 k! f, J2 m
function  GetToken (aStr, aToken, aSep : String) : String;
5 N( k6 x( q# M8 [6 J# h- v# Vfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
# K2 b1 j- v8 w2 I. E6 R, M" W) P2 xfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
9 j4 F2 L8 M$ c  M4 H# d. Fprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
0 R1 ~4 H8 }# r5 B$ q0 @1 Bfunction  StrToInt (astr: string): integer;
' @, x' g' a# b2 w$ wfunction  IntToStr (aInt: integer): string;
$ d2 @8 Y, x! Y# R/ j" Rprocedure exit;
9 v3 B6 I2 z. p! H) v7 @
procedure OnCreate (aStr : String);

7 ^- O6 M+ {6 U( `& B0 ]5 o# timplementation
2 H: J5 o9 s& I% ]
procedure OnCreate (aStr : String);
var
   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
) W1 O7 _4 r* J3 Q& k( e- c7 r      iCount := callfunc (Str);
. k/ P+ v$ X' o' ?" u) ?      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
- A; x0 }7 l+ G' E         Str := Str + ':';
         Str := Str + iCount;
         print (Str);
' m  f1 v! P; G" M; {      end;
. W* `7 ^5 u1 V. ~" f1 @! |   exit;
5 j/ U/ K2 n- S: h) h  gend;
& c  O5 }$ D; a1 {
end.