[战神脚本]充值卡兑换元宝
这个脚本非常简单，实现的无非就是一种物品兑换成元宝，当然你也可以兑换成灵符或者其他。
procedure _1;
var
czs : integer;
begin
begin
ifThis_Player.GetV(88,88)< 1
then
begin
This_Player.setV(88,88,0)
czs := This_Player.getV(88,88);
end else
czs := This_Player.getV(88,88);
end;
if (This_Player.GetBagItemCount ('1元充值卡') >= 1) then
begin
This_Player.Take('1元充值卡',1);
This_Player.ScriptRequestAddYBNum(1000);
This_Player.AddLF(0,1);
This_Player.SetV(88,88,1+czs);
ServerSay('<' + This_Player.Name + '>在盟重兑换了1元充值卡', 70);
This_Npc.NpcDialog(This_Player,
'回收成功！'
+'| <返回/@0000>') ;
end else
This_NPC.NpcDialog(This_Player,
'你没有1元充值卡无法兑换,请不要捣乱！');
end;
页:
[1]