[战神脚本]充值卡兑换元宝

这个脚本非常简单，实现的无非就是一种物品兑换成元宝，当然你也可以兑换成灵符或者其他。

1. procedure _1;
   
2. var
   
3. czs : integer;
   
4. begin
   
5. begin
   
6.    if  This_Player.GetV(88,88)< 1
   
7.     then  
   
8.    begin
   
9.    This_Player.setV(88,88,0)
   
10.    czs := This_Player.getV(88,88);
    
11.    end else
    
12.    czs := This_Player.getV(88,88);
    
13.    end;
    
14. if (This_Player.GetBagItemCount ('1元充值卡') >= 1) then
    
15.    begin
    
16.         This_Player.Take('1元充值卡',1);
    
17.                 This_Player.ScriptRequestAddYBNum(1000);
    
18.                 This_Player.AddLF(0,1);
    
19.                 This_Player.SetV(88,88,1+czs);
    
20.                 ServerSay('<' + This_Player.Name + '>在盟重兑换了1元充值卡', 70);
    
21. This_Npc.NpcDialog(This_Player,
    
22.          '回收成功！'
    
23.          +'|                                                           <返回/@0000>') ;
    
24.          end else
    
25.         This_NPC.NpcDialog(This_Player,
    
26.         '你没有1元充值卡无法兑换,请不要捣乱！');               
    
27. end;
    

复制代码