viewing paste Unknown #27964 | Text

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
prontera,150,149,4      script  範例  80,{
 
//以下拿箭矢桶作範例 因為不知道拿什麼來做
//這邊都是採用暫時NPC變量
 
        mes "[範例]";
        mes "製作 ^0000FF箭矢筒^000000 所需材料如下:";
        mes "材料 ^FF0000箭矢 500^000000 個";
        mes " 和 ^FF0000金錢 500^000000 z";
        mes "請輸入^FF00001~100^000000為限";
        next;
        switch(select("製作 ^0000FF箭矢筒^000000","製作 ^0000FF鐵箭矢筒^000000",
                        "製作 ^0000FF鋼鐵箭矢筒^000000","製作 ^0000FF神之金屬箭矢筒^000000",
                        "製作 ^0000FF火箭矢筒^000000","製作 ^0000FF銀箭矢筒^000000",
                        "製作 ^0000FF風靈箭矢筒^000000","製作 ^0000FF地靈箭矢筒^000000",
                        "製作 ^0000FF水靈箭矢筒^000000","製作 ^0000FF影子箭矢筒^000000",
                        "製作 ^0000FF無形箭矢筒^000000","製作 ^0000FF鐵銹箭矢筒^000000")) {
        case 1:
                set .@DelItem,1750;
                set .@GetItem,12004;
                break;
        case 2:
                set .@DelItem,1770;
                set .@GetItem,12005;
                break;
        case 3:
                set .@DelItem,1753;
                set .@GetItem,12006;
                break;
        case 4:
                set .@DelItem,1765;
                set .@GetItem,12007;
                break;
        case 5:
                set .@DelItem,1752;
                set .@GetItem,12008;
                break;
        case 6:
                set .@DelItem,1751;
                set .@GetItem,12009;
                break;
        case 7:
                set .@DelItem,1755;
                set .@GetItem,12010;
                break;
        case 8:
                set .@DelItem,1756;
                set .@GetItem,12011;
                break;
        case 9:
                set .@DelItem,1754;
                set .@GetItem,12012;
                break;
        case 10:
                set .@DelItem,1767;
                set .@GetItem,12013;
                break;
        case 11:
                set .@DelItem,1757;
                set .@GetItem,12014;
                break;
        case 12:
                set .@DelItem,1762;
                set .@GetItem,12015;
                break;
        }
        input .@itemport;
        if ( .@itemport < 1  || .@itemport > 100 ) {
                dispbottom "您輸入的數量不正確。";
                close;
        }
        if ( countitem(.@DelItem) < .@itemport * 500 || Zeny < .@itemport * 500 ) {
                dispbottom "無法替您兌換,請檢查物品跟金錢是否足夠!";
                close;
        }
        set Zeny, Zeny - .@itemport * 500;
        delitem .@DelItem,.@itemport * 500;
        getitem .@GetItem,.@itemport;
        close;
}
Viewed 442 times, submitted by unknown.