[分享]波利卡換錢

主題：[分享]波利卡換錢 - BBS3000 Internet Explorer
當前位置 E.F.EA測試伺服器BUG討論聊天區 [分享]波利卡換錢

■ 回覆數：0　◆ 點擊數：986

作者	主題: [分享]波利卡換錢

GubbyTom

論壇版主

發表于 2005-10-06.21:05:24　　

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;

}

總發帖數: 49 |

來源: 台灣 |

註冊日期: 2005-10-02

IP: 已記錄

快速回覆主題：	Re:[分享]波利卡換錢
選項：	用戶名：沒有註冊？　密碼：忘記密碼？
記住密碼 HTML語法禁止YBB代碼禁止表情關鍵字寄郵件給作者
我要評比：	共 0 票　 1.0 = 最低評比等級� 5.0 = 最高評比等級