| 
  |
prontera.gat,147,173,4 script 波利卡換錢 828,{
mes "[波利卡換錢]";
mes "缺錢花嗎？我這裡正在收購波利卡哦！";
mes "可以用各種波利卡換a lot of Money！";
next;
mes "[波利卡換錢]";
mes "1張^FF0000波利卡片^000000換^FF00005W^000000 Zeny";
mes "1張^FF0000土波利卡片^000000換^FF00005W^000000 Zeny";
mes "1張^FF0000波波利卡片^000000換^FF00007W^000000 Zeny";
mes "1張^FF0000冰波利卡片^000000換^FF000010W^000000 Zeny";
mes "1張^FF0000聖誕波利卡片^000000換^FF000010W^000000 Zeny";
mes "1張^FF0000天使波利卡片^000000換^FF0000200W^000000 Zeny";
mes "1張^FF0000幽靈波利卡片^000000換^FF0000200W^000000 Zeny";
next;
mes "[波利卡換錢]";
mes "有興趣交換嗎？";
next;
menu "換 波利卡片",LChange1,"換 土波利卡片",LChange2,"換 波波利卡片",LChange3,"換 冰波利卡片",LChange4,"換 聖誕波利卡片",LChange5,"換 天使波利卡片",LChange6,"換 幽靈波利卡片",LChange7,"不想換了",LExit;
//換 波利卡片
LChange1:
mes "[波利卡換錢]";
mes "要換幾張呢？";
next;
input @CardCount;
if (@CardCount<=0) goto LExit;
if (countitem(4001)<@CardCount) goto LNotEnough;
delitem 4001,@CardCount;
set Zeny,Zeny+50000*@CardCount;
goto LEnd;
//換 土波利卡片
LChange2:
mes "[波利卡換錢]";
mes "要換幾張呢？";
next;
input @CardCount;
if (@CardCount<=0) goto LExit;
if (countitem(4004)<@CardCount) goto LNotEnough;
delitem 4004,@CardCount;
set Zeny,Zeny+50000*@CardCount;
goto LEnd;
//換 波波利卡片
LChange3:
mes "[波利卡換錢]";
mes "要換幾張呢？";
next;
input @CardCount;
if (@CardCount<=0) goto LExit;
if (countitem(4033)<@CardCount) goto LNotEnough;
delitem 4033,@CardCount;
set Zeny,Zeny+70000*@CardCount;
goto LEnd;
//換 冰波利卡片
LChange4:
mes "[波利卡換錢]";
mes "要換幾張呢？";
next;
input @CardCount;
if (@CardCount<=0) goto LExit;
if (countitem(4196)<@CardCount) goto LNotEnough;
delitem 4196,@CardCount;
set Zeny,Zeny+100000*@CardCount;
goto LEnd;
//換 聖誕波利卡片
LChange5:
mes "[波利卡換錢]";
mes "要換幾張呢？";
next;
input @CardCount;
if (@CardCount<=0) goto LExit;
if (countitem(4005)<@CardCount) goto LNotEnough;
delitem 4005,@CardCount;
set Zeny,Zeny+100000*@CardCount;
goto LEnd;
//換 天使波利卡片
LChange6:
mes "[波利卡換錢]";
mes "要換幾張呢？";
next;
input @CardCount;
if (@CardCount<=0) goto LExit;
if (countitem(4054)<@CardCount) goto LNotEnough;
delitem 4054,@CardCount;
set Zeny,Zeny+2000000*@CardCount;
goto LEnd;
//換 幽靈波利卡片
LChange7:
mes "[波利卡換錢]";
mes "要換幾張呢？";
next;
input @CardCount;
if (@CardCount<=0) goto LExit;
if (countitem(4047)<@CardCount) goto LNotEnough;
delitem 4047,@CardCount;
set Zeny,Zeny+2000000*@CardCount;
goto LEnd;
//結束
LEnd:
mes "[波利卡換錢]";
mes "交易成功！";
mes "跟你交易是我的榮幸！";
mes "下次有事再找我！88!";
close;
//不夠
LNotEnough:
mes "[波利卡換錢]";
mes "你好像沒帶夠啊！不老實的傢伙！";
mes "再這樣以後不做你生意了！";
close;
//退出
LExit:
mes "[波利卡換錢]";
mes "沒事！繼續努力收集啊！";
mes "我永遠等著你！";
close;
}
|  |  |
|
主題：[分享]波利卡換錢 - BBS3000 Internet Explorer
E.F.EA測試伺服器BUG討論聊天區 
[分享]波利卡換錢
將此頁發給您的朋友
[分享]波利卡換錢
