//----------------------------------------------------------------------------- // // Ragnarok Online Sakray仕様カード交換自動販売機script // 作成日:2006/10/15 // 作った犯人:いるか // // 不要になったカードを交換するNPCです。 // カードは便宜上、落とすMOBのLvでA〜Eまで分けられています。 // MVP-BOSSのカードはSランクになっています。 // 5枚一組でランダムに同じLvのカード1枚との交換です。 // カードは10枚まで設定出来ます。 // 5枚から増えるごとにもう1ランク上のカードがランダムで当たる確率が増加。 // 最大、10枚で50%の確率で1ランク上のカードをランダムで取得出来ます。 // // ※･･･一番下にduplicateしています。 // // // 使用上の注意 : // このscriptのデフォ仕様はathena-2227でのsakray仕様になっています。 // 本鯖仕様 or それ以前のバージョンでは予期せぬ不具合が発生する可能性があります。 // ご利用は計画的に。 // //----------------------------------------------------------------------------- - script Card_Changer -1,{ callsub L_sub; mes "[カードちゃん]"; mes "いらっしゃいませ！"; mes "カードの交換ですか？"; next; menu "そうです",Lcard,"違いますよ",Lno; Lcard: mes "[カードちゃん]"; mes "カードの交換は初めてでしょうか？"; next; menu "初めてです",Lcard2,"いいえ、何度かやっています",Lsec; Lno: mes "[カードちゃん]"; mes "そうですか･･･"; mes "不要なカードがありましたら"; mes "またお声をお掛け下さい！"; mes "その時は是非、交換させて頂きます！"; close; Lcard2: mes "[カードちゃん]"; mes "初めての方ですね。"; mes "まずはご挨拶から･･･"; mes "初めまして！"; mes "私がカード交換を担当させて頂いています、"; mes "^4A4AFFカードちゃん^000000と言います。"; mes "宜しくお願いします！"; next; goto Lsetumei; //(2度目以降の台詞ここから) Lsec: mes "[カードちゃん]"; mes "" + strcharinfo(0) + "様ですね"; mes "お久しぶりで御座います！"; mes "もうお分かりかも知れませんが"; mes "忘れる事もあるかと思いますので･･･"; next; //(ここまで) Lsetumei: mes "[カードちゃん]"; mes "カード交換についての説明を聞きますか？"; next; menu "聞く^4A4AFF(推奨)^000000",Lcard3,"聞かない",Lcard4; Lcard3: mes "[カードちゃん]"; mes "では、カード交換の説明をさせて頂きます"; next; mes "[カードちゃん]"; mes "カードは便宜上、^4A4AFFEランク^000000から^4A4AFFSランク^000000まで分けています。"; next; mes "[カードちゃん]"; mes "^4A4AFFEランク^000000･･･レベル1〜19までのモンスターが落とすカード"; mes "^4A4AFFDランク^000000･･･レベル20〜39までのモンスターが落とすカード"; mes "^4A4AFFCランク^000000･･･レベル40〜59までのモンスターが落とすカード"; mes "^4A4AFFBランク^000000･･･レベル60〜79までのモンスターが落とすカード"; mes "^4A4AFFAランク^000000･･･レベル80〜99までのモンスターとBOSS属性のモンスターが落とすカード"; mes "^4A4AFFSランク^000000･･･MVPモンスターが落とすカード"; next; mes "[カードちゃん]"; mes "カードの交換は^4A4AFF基本的に5枚の同ランクのカードと1枚の交換^000000"; mes "になります。"; mes "交換するカードは選べません。"; mes "同ランクのカードの中から^4A4AFFランダムで1枚^000000を差し上げます。"; next; mes "[カードちゃん]"; mes "尚、途中でやめる場合は"; mes "^4A4AFF現在選択中のカードを見る or カードを交換する^000000"; mes "の項目を参照下さい。"; next; mes "[カードちゃん]"; mes "これで仕様についての説明を終わります。"; mes "追加での説明もありますので、初めての方は読む事を推奨致します"; next; Lcard4: mes "[カードちゃん]"; mes "それではメニューを選んで下さい。"; next; menu "^019CFF警告^000000",Lwarning,"^4A4AFFちょっとお得な話^000000",Ltoku,"カードを交換する",L_change; Lwarning: mes "[カードちゃん]"; mes "^4A4AFF[WARNING!!]^000000"; mes "^019CFFカード交換中は決して途中で中止をしたり^000000"; mes "^019CFF途中でログアウトをしないで下さい!!^000000"; mes "^019CFF仕様により、カード選択時にカードが消えます^000000"; mes "^019CFFその状態でキャンセル or ログアウトをしますと^000000"; mes "^019CFF手持ちのカードだけがロストする危険があります!!^000000"; next; mes "[カードちゃん]"; mes "メニューを選んで下さい。"; next; menu "^4A4AFFちょっとお得な話^000000",Ltoku,"カードを交換する",L_change; Ltoku: mes "[カードちゃん]"; mes "^019CFFちょっとお得な話！^000000"; next; mes "[カードちゃん]"; mes "通常では5枚で1枚と交換となっておりますが"; mes "実は、交換するカードは^019CFF10枚^000000まで指定出来ます。"; mes "その場合、5枚一組と貰えるカードが違うかも知れません。"; mes "5枚から1枚増えるごとに、もう1ランク上のカードが当る確立が増えて行きます。"; mes "不要カードを交換して、お目当てのカードを当てましょう！"; next; mes "[カードちゃん]"; mes "以上、ちょっとお得な話でした"; next; mes "[カードちゃん]"; mes "メニューを選んで下さい。"; next; menu "^019CFF警告^000000",Lwarning,"カードを交換する",L_change; //ここからカード交換用メインscript L_change: set @maisu,0; mes "[カードちゃん]"; mes "交換するカードのランクを選んで下さい。"; next; menu "Eランク",L_rank_e,"Dランク",L_rank_d,"Cランク",L_rank_c, "Bランク",L_rank_b,"Aランク",L_rank_a,"Sランク",L_rank_s,"やっぱやめる",Lno; L_rank_e: set @rank,6; L_rank_e2: mes "[カードちゃん]"; mes "交換するカードを選んで下さい。"; next; switch(select( "現在選択中のカードを見る or カードを交換する", getitemname(@id1[1]),getitemname(@id1[2]),getitemname(@id1[3]),getitemname(@id1[4]),getitemname(@id1[5]), getitemname(@id1[6]),getitemname(@id1[7]),getitemname(@id1[8]),getitemname(@id1[9]),getitemname(@id1[10]), getitemname(@id1[11]),getitemname(@id1[12]),getitemname(@id1[13]),getitemname(@id1[14]),getitemname(@id1[15]), getitemname(@id1[16]),getitemname(@id1[17]),getitemname(@id1[18]),getitemname(@id1[19]),getitemname(@id1[20]), getitemname(@id1[21]),getitemname(@id1[22]),getitemname(@id1[23]),getitemname(@id1[24]),getitemname(@id1[25]), getitemname(@id1[26]),getitemname(@id1[27]),getitemname(@id1[28]),getitemname(@id1[29]),getitemname(@id1[30]), getitemname(@id1[31]),getitemname(@id1[32]),getitemname(@id1[33]),getitemname(@id1[34]),getitemname(@id1[35]), getitemname(@id1[36]),getitemname(@id1[37]),getitemname(@id1[38]),getitemname(@id1[39]),getitemname(@id1[40]), getitemname(@id1[41]),getitemname(@id1[42]),getitemname(@id1[43]),getitemname(@id1[44]),getitemname(@id1[45]), getitemname(@id1[46]),getitemname(@id1[47]),getitemname(@id1[48]),getitemname(@id1[49]),getitemname(@id1[50]), getitemname(@id1[51]),getitemname(@id1[52]),getitemname(@id1[53]),getitemname(@id1[54]),getitemname(@id1[55]), getitemname(@id1[56]),getitemname(@id1[57]), )) { case 1: goto L_change1; case 2: set @card_id,(@id1[1]); break; case 3: set @card_id,(@id1[2]); break; case 4: set @card_id,(@id1[3]); break; case 5: set @card_id,(@id1[4]); break; case 6: set @card_id,(@id1[5]); break; case 7: set @card_id,(@id1[6]); break; case 8: set @card_id,(@id1[7]); break; case 9: set @card_id,(@id1[8]); break; case 10: set @card_id,(@id1[9]); break; case 11: set @card_id,(@id1[10]); break; case 12: set @card_id,(@id1[11]); break; case 13: set @card_id,(@id1[12]); break; case 14: set @card_id,(@id1[13]); break; case 15: set @card_id,(@id1[14]); break; case 16: set @card_id,(@id1[15]); break; case 17: set @card_id,(@id1[16]); break; case 18: set @card_id,(@id1[17]); break; case 19: set @card_id,(@id1[18]); break; case 20: set @card_id,(@id1[19]); break; case 21: set @card_id,(@id1[20]); break; case 22: set @card_id,(@id1[21]); break; case 23: set @card_id,(@id1[22]); break; case 24: set @card_id,(@id1[23]); break; case 25: set @card_id,(@id1[24]); break; case 26: set @card_id,(@id1[25]); break; case 27: set @card_id,(@id1[26]); break; case 28: set @card_id,(@id1[27]); break; case 29: set @card_id,(@id1[28]); break; case 30: set @card_id,(@id1[29]); break; case 31: set @card_id,(@id1[30]); break; case 32: set @card_id,(@id1[31]); break; case 33: set @card_id,(@id1[32]); break; case 34: set @card_id,(@id1[33]); break; case 35: set @card_id,(@id1[34]); break; case 36: set @card_id,(@id1[35]); break; case 37: set @card_id,(@id1[36]); break; case 38: set @card_id,(@id1[37]); break; case 39: set @card_id,(@id1[38]); break; case 40: set @card_id,(@id1[39]); break; case 41: set @card_id,(@id1[40]); break; case 42: set @card_id,(@id1[41]); break; case 43: set @card_id,(@id1[42]); break; case 44: set @card_id,(@id1[43]); break; case 45: set @card_id,(@id1[44]); break; case 46: set @card_id,(@id1[45]); break; case 47: set @card_id,(@id1[46]); break; case 48: set @card_id,(@id1[47]); break; case 49: set @card_id,(@id1[48]); break; case 50: set @card_id,(@id1[49]); break; case 51: set @card_id,(@id1[50]); break; case 52: set @card_id,(@id1[51]); break; case 53: set @card_id,(@id1[52]); break; case 54: set @card_id,(@id1[53]); break; case 55: set @card_id,(@id1[54]); break; case 56: set @card_id,(@id1[55]); break; case 57: set @card_id,(@id1[56]); break; } goto L_change2; L_rank_d: set @rank,5; L_rank_d2: mes "[カードちゃん]"; mes "交換するカードを選んで下さい。"; next; switch(select( "現在選択中のカードを見る or カードを交換する", getitemname(@id2[1]),getitemname(@id2[2]),getitemname(@id2[3]),getitemname(@id2[4]),getitemname(@id2[5]), getitemname(@id2[6]),getitemname(@id2[7]),getitemname(@id2[8]),getitemname(@id2[9]),getitemname(@id2[10]), getitemname(@id2[11]),getitemname(@id2[12]),getitemname(@id2[13]),getitemname(@id2[14]),getitemname(@id2[15]), getitemname(@id2[16]),getitemname(@id2[17]),getitemname(@id2[18]),getitemname(@id2[19]),getitemname(@id2[20]), getitemname(@id2[21]),getitemname(@id2[22]),getitemname(@id2[23]),getitemname(@id2[24]),getitemname(@id2[25]), getitemname(@id2[26]),getitemname(@id2[27]),getitemname(@id2[28]),getitemname(@id2[29]),getitemname(@id2[30]), getitemname(@id2[31]),getitemname(@id2[32]),getitemname(@id2[33]),getitemname(@id2[34]),getitemname(@id2[35]), getitemname(@id2[36]),getitemname(@id2[37]),getitemname(@id2[38]),getitemname(@id2[39]),getitemname(@id2[40]), getitemname(@id2[41]),getitemname(@id2[42]),getitemname(@id2[43]),getitemname(@id2[44]),getitemname(@id2[45]), getitemname(@id2[46]),getitemname(@id2[47]),getitemname(@id2[48]),getitemname(@id2[49]),getitemname(@id2[50]), getitemname(@id2[51]),getitemname(@id2[52]),getitemname(@id2[53]),getitemname(@id2[54]),getitemname(@id2[55]), getitemname(@id2[56]),getitemname(@id2[57]),getitemname(@id2[58]),getitemname(@id2[59]),getitemname(@id2[60]), getitemname(@id2[61]),getitemname(@id2[62]),getitemname(@id2[63]),getitemname(@id2[64]),getitemname(@id2[65]), getitemname(@id2[66]),getitemname(@id2[67]),getitemname(@id2[68]),getitemname(@id2[69]),getitemname(@id2[70]), getitemname(@id2[71]),getitemname(@id2[72]),getitemname(@id2[73]),getitemname(@id2[74]),getitemname(@id2[75]), getitemname(@id2[76]),getitemname(@id2[77]),getitemname(@id2[78]),getitemname(@id2[79]),getitemname(@id2[80]), getitemname(@id2[81]),getitemname(@id2[82]),getitemname(@id2[83]),getitemname(@id2[84]),getitemname(@id2[85]), getitemname(@id2[86]) )) { case 1: goto L_change1; case 2: set @card_id,(@id2[1]); break; case 3: set @card_id,(@id2[2]); break; case 4: set @card_id,(@id2[3]); break; case 5: set @card_id,(@id2[4]); break; case 6: set @card_id,(@id2[5]); break; case 7: set @card_id,(@id2[6]); break; case 8: set @card_id,(@id2[7]); break; case 9: set @card_id,(@id2[8]); break; case 10: set @card_id,(@id2[9]); break; case 11: set @card_id,(@id2[10]); break; case 12: set @card_id,(@id2[11]); break; case 13: set @card_id,(@id2[12]); break; case 14: set @card_id,(@id2[13]); break; case 15: set @card_id,(@id2[14]); break; case 16: set @card_id,(@id2[15]); break; case 17: set @card_id,(@id2[16]); break; case 18: set @card_id,(@id2[17]); break; case 19: set @card_id,(@id2[18]); break; case 20: set @card_id,(@id2[19]); break; case 21: set @card_id,(@id2[20]); break; case 22: set @card_id,(@id2[21]); break; case 23: set @card_id,(@id2[22]); break; case 24: set @card_id,(@id2[23]); break; case 25: set @card_id,(@id2[24]); break; case 26: set @card_id,(@id2[25]); break; case 27: set @card_id,(@id2[26]); break; case 28: set @card_id,(@id2[27]); break; case 29: set @card_id,(@id2[28]); break; case 30: set @card_id,(@id2[29]); break; case 31: set @card_id,(@id2[30]); break; case 32: set @card_id,(@id2[31]); break; case 33: set @card_id,(@id2[32]); break; case 34: set @card_id,(@id2[33]); break; case 35: set @card_id,(@id2[34]); break; case 36: set @card_id,(@id2[35]); break; case 37: set @card_id,(@id2[36]); break; case 38: set @card_id,(@id2[37]); break; case 39: set @card_id,(@id2[38]); break; case 40: set @card_id,(@id2[39]); break; case 41: set @card_id,(@id2[40]); break; case 42: set @card_id,(@id2[41]); break; case 43: set @card_id,(@id2[42]); break; case 44: set @card_id,(@id2[43]); break; case 45: set @card_id,(@id2[44]); break; case 46: set @card_id,(@id2[45]); break; case 47: set @card_id,(@id2[46]); break; case 48: set @card_id,(@id2[47]); break; case 49: set @card_id,(@id2[48]); break; case 50: set @card_id,(@id2[49]); break; case 51: set @card_id,(@id2[50]); break; case 52: set @card_id,(@id2[51]); break; case 53: set @card_id,(@id2[52]); break; case 54: set @card_id,(@id2[53]); break; case 55: set @card_id,(@id2[54]); break; case 56: set @card_id,(@id2[55]); break; case 57: set @card_id,(@id2[56]); break; case 58: set @card_id,(@id2[57]); break; case 59: set @card_id,(@id2[58]); break; case 60: set @card_id,(@id2[59]); break; case 61: set @card_id,(@id2[60]); break; case 62: set @card_id,(@id2[61]); break; case 63: set @card_id,(@id2[62]); break; case 64: set @card_id,(@id2[63]); break; case 65: set @card_id,(@id2[64]); break; case 66: set @card_id,(@id2[65]); break; case 67: set @card_id,(@id2[66]); break; case 68: set @card_id,(@id2[67]); break; case 69: set @card_id,(@id2[68]); break; case 70: set @card_id,(@id2[69]); break; case 71: set @card_id,(@id2[70]); break; case 72: set @card_id,(@id2[71]); break; case 73: set @card_id,(@id2[72]); break; case 74: set @card_id,(@id2[73]); break; case 75: set @card_id,(@id2[74]); break; case 76: set @card_id,(@id2[75]); break; case 77: set @card_id,(@id2[76]); break; case 78: set @card_id,(@id2[77]); break; case 79: set @card_id,(@id2[78]); break; case 80: set @card_id,(@id2[79]); break; case 81: set @card_id,(@id2[80]); break; case 82: set @card_id,(@id2[81]); break; case 83: set @card_id,(@id2[82]); break; case 84: set @card_id,(@id2[83]); break; case 85: set @card_id,(@id2[84]); break; case 86: set @card_id,(@id2[85]); break; case 87: set @card_id,(@id2[86]); break; } goto L_change2; L_rank_c: set @rank,4; L_rank_c2: mes "[カードちゃん]"; mes "交換するカードを選んで下さい。"; next; switch(select( "現在選択中のカードを見る or カードを交換する", getitemname(@id3[1]),getitemname(@id3[2]),getitemname(@id3[3]),getitemname(@id3[4]),getitemname(@id3[5]), getitemname(@id3[6]),getitemname(@id3[7]),getitemname(@id3[8]),getitemname(@id3[9]),getitemname(@id3[10]), getitemname(@id3[11]),getitemname(@id3[12]),getitemname(@id3[13]),getitemname(@id3[14]),getitemname(@id3[15]), getitemname(@id3[16]),getitemname(@id3[17]),getitemname(@id3[18]),getitemname(@id3[19]),getitemname(@id3[20]), getitemname(@id3[21]),getitemname(@id3[22]),getitemname(@id3[23]),getitemname(@id3[24]),getitemname(@id3[25]), getitemname(@id3[26]),getitemname(@id3[27]),getitemname(@id3[28]),getitemname(@id3[29]),getitemname(@id3[30]), getitemname(@id3[31]),getitemname(@id3[32]),getitemname(@id3[33]),getitemname(@id3[34]),getitemname(@id3[35]), getitemname(@id3[36]),getitemname(@id3[37]),getitemname(@id3[38]),getitemname(@id3[39]),getitemname(@id3[40]), getitemname(@id3[41]),getitemname(@id3[42]),getitemname(@id3[43]),getitemname(@id3[44]),getitemname(@id3[45]), getitemname(@id3[46]),getitemname(@id3[47]),getitemname(@id3[48]),getitemname(@id3[49]),getitemname(@id3[50]), getitemname(@id3[51]),getitemname(@id3[52]),getitemname(@id3[53]),getitemname(@id3[54]),getitemname(@id3[55]), getitemname(@id3[56]),getitemname(@id3[57]),getitemname(@id3[58]),getitemname(@id3[59]),getitemname(@id3[60]), getitemname(@id3[61]),getitemname(@id3[62]),getitemname(@id3[63]),getitemname(@id3[64]),getitemname(@id3[65]), getitemname(@id3[66]),getitemname(@id3[67]),getitemname(@id3[68]),getitemname(@id3[69]),getitemname(@id3[70]), getitemname(@id3[71]),getitemname(@id3[72]),getitemname(@id3[73]),getitemname(@id3[74]),getitemname(@id3[75]), getitemname(@id3[76]),getitemname(@id3[77]),getitemname(@id3[78]),getitemname(@id3[79]),getitemname(@id3[80]), getitemname(@id3[81]),getitemname(@id3[82]),getitemname(@id3[83]),getitemname(@id3[84]),getitemname(@id3[85]), getitemname(@id3[86]),getitemname(@id3[87]),getitemname(@id3[88]),getitemname(@id3[89]),getitemname(@id3[10]), getitemname(@id3[91]),getitemname(@id3[92]),getitemname(@id3[93]),getitemname(@id3[94]),getitemname(@id3[95]), getitemname(@id3[96]),getitemname(@id3[97]),getitemname(@id3[98]),getitemname(@id3[99]),getitemname(@id3[100]), getitemname(@id3[101]),getitemname(@id3[102]),getitemname(@id3[103]), )) { case 1: goto L_change1; case 2: set @card_id,(@id3[1]); break; case 3: set @card_id,(@id3[2]); break; case 4: set @card_id,(@id3[3]); break; case 5: set @card_id,(@id3[4]); break; case 6: set @card_id,(@id3[5]); break; case 7: set @card_id,(@id3[6]); break; case 8: set @card_id,(@id3[7]); break; case 9: set @card_id,(@id3[8]); break; case 10: set @card_id,(@id3[9]); break; case 11: set @card_id,(@id3[10]); break; case 12: set @card_id,(@id3[11]); break; case 13: set @card_id,(@id3[12]); break; case 14: set @card_id,(@id3[13]); break; case 15: set @card_id,(@id3[14]); break; case 16: set @card_id,(@id3[15]); break; case 17: set @card_id,(@id3[16]); break; case 18: set @card_id,(@id3[17]); break; case 19: set @card_id,(@id3[18]); break; case 20: set @card_id,(@id3[19]); break; case 21: set @card_id,(@id3[20]); break; case 22: set @card_id,(@id3[21]); break; case 23: set @card_id,(@id3[22]); break; case 24: set @card_id,(@id3[23]); break; case 25: set @card_id,(@id3[24]); break; case 26: set @card_id,(@id3[25]); break; case 27: set @card_id,(@id3[26]); break; case 28: set @card_id,(@id3[27]); break; case 29: set @card_id,(@id3[28]); break; case 30: set @card_id,(@id3[29]); break; case 31: set @card_id,(@id3[30]); break; case 32: set @card_id,(@id3[31]); break; case 33: set @card_id,(@id3[32]); break; case 34: set @card_id,(@id3[33]); break; case 35: set @card_id,(@id3[34]); break; case 36: set @card_id,(@id3[35]); break; case 37: set @card_id,(@id3[36]); break; case 38: set @card_id,(@id3[37]); break; case 39: set @card_id,(@id3[38]); break; case 40: set @card_id,(@id3[39]); break; case 41: set @card_id,(@id3[40]); break; case 42: set @card_id,(@id3[41]); break; case 43: set @card_id,(@id3[42]); break; case 44: set @card_id,(@id3[43]); break; case 45: set @card_id,(@id3[44]); break; case 46: set @card_id,(@id3[45]); break; case 47: set @card_id,(@id3[46]); break; case 48: set @card_id,(@id3[47]); break; case 49: set @card_id,(@id3[48]); break; case 50: set @card_id,(@id3[49]); break; case 51: set @card_id,(@id3[50]); break; case 52: set @card_id,(@id3[51]); break; case 53: set @card_id,(@id3[52]); break; case 54: set @card_id,(@id3[53]); break; case 55: set @card_id,(@id3[54]); break; case 56: set @card_id,(@id3[55]); break; case 57: set @card_id,(@id3[56]); break; case 58: set @card_id,(@id3[57]); break; case 59: set @card_id,(@id3[58]); break; case 60: set @card_id,(@id3[59]); break; case 61: set @card_id,(@id3[60]); break; case 62: set @card_id,(@id3[61]); break; case 63: set @card_id,(@id3[62]); break; case 64: set @card_id,(@id3[63]); break; case 65: set @card_id,(@id3[64]); break; case 66: set @card_id,(@id3[65]); break; case 67: set @card_id,(@id3[66]); break; case 68: set @card_id,(@id3[67]); break; case 69: set @card_id,(@id3[68]); break; case 70: set @card_id,(@id3[69]); break; case 71: set @card_id,(@id3[70]); break; case 72: set @card_id,(@id3[71]); break; case 73: set @card_id,(@id3[72]); break; case 74: set @card_id,(@id3[73]); break; case 75: set @card_id,(@id3[74]); break; case 76: set @card_id,(@id3[75]); break; case 77: set @card_id,(@id3[76]); break; case 78: set @card_id,(@id3[77]); break; case 79: set @card_id,(@id3[78]); break; case 80: set @card_id,(@id3[79]); break; case 81: set @card_id,(@id3[80]); break; case 82: set @card_id,(@id3[81]); break; case 83: set @card_id,(@id3[82]); break; case 84: set @card_id,(@id3[83]); break; case 85: set @card_id,(@id3[84]); break; case 86: set @card_id,(@id3[85]); break; case 87: set @card_id,(@id3[86]); break; case 88: set @card_id,(@id3[87]); break; case 89: set @card_id,(@id3[88]); break; case 90: set @card_id,(@id3[89]); break; case 91: set @card_id,(@id3[90]); break; case 92: set @card_id,(@id3[91]); break; case 93: set @card_id,(@id3[92]); break; case 94: set @card_id,(@id3[93]); break; case 95: set @card_id,(@id3[94]); break; case 96: set @card_id,(@id3[95]); break; case 97: set @card_id,(@id3[96]); break; case 98: set @card_id,(@id3[97]); break; case 99: set @card_id,(@id3[98]); break; case 100: set @card_id,(@id3[99]); break; case 101: set @card_id,(@id3[100]); break; case 102: set @card_id,(@id3[101]); break; case 103: set @card_id,(@id3[102]); break; case 104: set @card_id,(@id3[103]); break; } goto L_change2; L_rank_b: set @rank,3; L_rank_b2: mes "[カードちゃん]"; mes "交換するカードを選んで下さい。"; next; switch(select( "現在選択中のカードを見る or カードを交換する", getitemname(@id4[1]),getitemname(@id4[2]),getitemname(@id4[3]),getitemname(@id4[4]),getitemname(@id4[5]), getitemname(@id4[6]),getitemname(@id4[7]),getitemname(@id4[8]),getitemname(@id4[9]),getitemname(@id4[10]), getitemname(@id4[11]),getitemname(@id4[12]),getitemname(@id4[13]),getitemname(@id4[14]),getitemname(@id4[15]), getitemname(@id4[16]),getitemname(@id4[17]),getitemname(@id4[18]),getitemname(@id4[19]),getitemname(@id4[20]), getitemname(@id4[21]),getitemname(@id4[22]),getitemname(@id4[23]),getitemname(@id4[24]),getitemname(@id4[25]), getitemname(@id4[26]),getitemname(@id4[27]),getitemname(@id4[28]),getitemname(@id4[29]),getitemname(@id4[30]), getitemname(@id4[31]),getitemname(@id4[32]),getitemname(@id4[33]),getitemname(@id4[34]),getitemname(@id4[35]), getitemname(@id4[36]),getitemname(@id4[37]),getitemname(@id4[38]),getitemname(@id4[39]),getitemname(@id4[40]), getitemname(@id4[41]),getitemname(@id4[42]),getitemname(@id4[43]),getitemname(@id4[44]),getitemname(@id4[45]), getitemname(@id4[46]),getitemname(@id4[47]),getitemname(@id4[48]),getitemname(@id4[49]),getitemname(@id4[50]), getitemname(@id4[51]),getitemname(@id4[52]),getitemname(@id4[53]),getitemname(@id4[54]),getitemname(@id4[55]), getitemname(@id4[56]),getitemname(@id4[57]),getitemname(@id4[58]),getitemname(@id4[59]),getitemname(@id4[60]), getitemname(@id4[61]),getitemname(@id4[62]),getitemname(@id4[63]),getitemname(@id4[64]),getitemname(@id4[65]), getitemname(@id4[66]),getitemname(@id4[67]),getitemname(@id4[68]),getitemname(@id4[69]),getitemname(@id4[70]), getitemname(@id4[71]),getitemname(@id4[72]),getitemname(@id4[73]),getitemname(@id4[74]),getitemname(@id4[75]), getitemname(@id4[76]),getitemname(@id4[77]),getitemname(@id4[78]),getitemname(@id4[79]),getitemname(@id4[80]), getitemname(@id4[81]),getitemname(@id4[82]),getitemname(@id4[83]), )) { case 1: goto L_change1; case 2: set @card_id,(@id4[1]); break; case 3: set @card_id,(@id4[2]); break; case 4: set @card_id,(@id4[3]); break; case 5: set @card_id,(@id4[4]); break; case 6: set @card_id,(@id4[5]); break; case 7: set @card_id,(@id4[6]); break; case 8: set @card_id,(@id4[7]); break; case 9: set @card_id,(@id4[8]); break; case 10: set @card_id,(@id4[9]); break; case 11: set @card_id,(@id4[10]); break; case 12: set @card_id,(@id4[11]); break; case 13: set @card_id,(@id4[12]); break; case 14: set @card_id,(@id4[13]); break; case 15: set @card_id,(@id4[14]); break; case 16: set @card_id,(@id4[15]); break; case 17: set @card_id,(@id4[16]); break; case 18: set @card_id,(@id4[17]); break; case 19: set @card_id,(@id4[18]); break; case 20: set @card_id,(@id4[19]); break; case 21: set @card_id,(@id4[20]); break; case 22: set @card_id,(@id4[21]); break; case 23: set @card_id,(@id4[22]); break; case 24: set @card_id,(@id4[23]); break; case 25: set @card_id,(@id4[24]); break; case 26: set @card_id,(@id4[25]); break; case 27: set @card_id,(@id4[26]); break; case 28: set @card_id,(@id4[27]); break; case 29: set @card_id,(@id4[28]); break; case 30: set @card_id,(@id4[29]); break; case 31: set @card_id,(@id4[30]); break; case 32: set @card_id,(@id4[31]); break; case 33: set @card_id,(@id4[32]); break; case 34: set @card_id,(@id4[33]); break; case 35: set @card_id,(@id4[34]); break; case 36: set @card_id,(@id4[35]); break; case 37: set @card_id,(@id4[36]); break; case 38: set @card_id,(@id4[37]); break; case 39: set @card_id,(@id4[38]); break; case 40: set @card_id,(@id4[39]); break; case 41: set @card_id,(@id4[40]); break; case 42: set @card_id,(@id4[41]); break; case 43: set @card_id,(@id4[42]); break; case 44: set @card_id,(@id4[43]); break; case 45: set @card_id,(@id4[44]); break; case 46: set @card_id,(@id4[45]); break; case 47: set @card_id,(@id4[46]); break; case 48: set @card_id,(@id4[47]); break; case 49: set @card_id,(@id4[48]); break; case 50: set @card_id,(@id4[49]); break; case 51: set @card_id,(@id4[50]); break; case 52: set @card_id,(@id4[51]); break; case 53: set @card_id,(@id4[52]); break; case 54: set @card_id,(@id4[53]); break; case 55: set @card_id,(@id4[54]); break; case 56: set @card_id,(@id4[55]); break; case 57: set @card_id,(@id4[56]); break; case 58: set @card_id,(@id4[57]); break; case 59: set @card_id,(@id4[58]); break; case 60: set @card_id,(@id4[59]); break; case 61: set @card_id,(@id4[60]); break; case 62: set @card_id,(@id4[61]); break; case 63: set @card_id,(@id4[62]); break; case 64: set @card_id,(@id4[63]); break; case 65: set @card_id,(@id4[64]); break; case 66: set @card_id,(@id4[65]); break; case 67: set @card_id,(@id4[66]); break; case 68: set @card_id,(@id4[67]); break; case 69: set @card_id,(@id4[68]); break; case 70: set @card_id,(@id4[69]); break; case 71: set @card_id,(@id4[70]); break; case 72: set @card_id,(@id4[71]); break; case 73: set @card_id,(@id4[72]); break; case 74: set @card_id,(@id4[73]); break; case 75: set @card_id,(@id4[74]); break; case 76: set @card_id,(@id4[75]); break; case 77: set @card_id,(@id4[76]); break; case 78: set @card_id,(@id4[77]); break; case 79: set @card_id,(@id4[78]); break; case 80: set @card_id,(@id4[79]); break; case 81: set @card_id,(@id4[80]); break; case 82: set @card_id,(@id4[81]); break; case 83: set @card_id,(@id4[82]); break; case 84: set @card_id,(@id4[83]); break; } goto L_change2; L_rank_a: set @rank,2; L_rank_a2: mes "[カードちゃん]"; mes "交換するカードを選んで下さい。"; next; switch(select( "現在選択中のカードを見る or カードを交換する", getitemname(@id5[1]),getitemname(@id5[2]),getitemname(@id5[3]),getitemname(@id5[4]),getitemname(@id5[5]), getitemname(@id5[6]),getitemname(@id5[7]),getitemname(@id5[8]),getitemname(@id5[9]),getitemname(@id5[10]), getitemname(@id5[11]),getitemname(@id5[12]),getitemname(@id5[13]),getitemname(@id5[14]),getitemname(@id5[15]), getitemname(@id5[16]),getitemname(@id5[17]),getitemname(@id5[18]),getitemname(@id5[19]),getitemname(@id5[20]), getitemname(@id5[21]),getitemname(@id5[22]),getitemname(@id5[23]),getitemname(@id5[24]),getitemname(@id5[25]), getitemname(@id5[26]),getitemname(@id5[27]),getitemname(@id5[28]),getitemname(@id5[29]),getitemname(@id5[30]), getitemname(@id5[31]),getitemname(@id5[32]),getitemname(@id5[33]),getitemname(@id5[34]),getitemname(@id5[35]), getitemname(@id5[36]),getitemname(@id5[37]),getitemname(@id5[38]), )) { case 1: goto L_change1; case 2: set @card_id,(@id5[1]); break; case 3: set @card_id,(@id5[2]); break; case 4: set @card_id,(@id5[3]); break; case 5: set @card_id,(@id5[4]); break; case 6: set @card_id,(@id5[5]); break; case 7: set @card_id,(@id5[6]); break; case 8: set @card_id,(@id5[7]); break; case 9: set @card_id,(@id5[8]); break; case 10: set @card_id,(@id5[9]); break; case 11: set @card_id,(@id5[10]); break; case 12: set @card_id,(@id5[11]); break; case 13: set @card_id,(@id5[12]); break; case 14: set @card_id,(@id5[13]); break; case 15: set @card_id,(@id5[14]); break; case 16: set @card_id,(@id5[15]); break; case 17: set @card_id,(@id5[16]); break; case 18: set @card_id,(@id5[17]); break; case 19: set @card_id,(@id5[18]); break; case 20: set @card_id,(@id5[19]); break; case 21: set @card_id,(@id5[20]); break; case 22: set @card_id,(@id5[21]); break; case 23: set @card_id,(@id5[22]); break; case 24: set @card_id,(@id5[23]); break; case 25: set @card_id,(@id5[24]); break; case 26: set @card_id,(@id5[25]); break; case 27: set @card_id,(@id5[26]); break; case 28: set @card_id,(@id5[27]); break; case 29: set @card_id,(@id5[28]); break; case 30: set @card_id,(@id5[29]); break; case 31: set @card_id,(@id5[30]); break; case 32: set @card_id,(@id5[31]); break; case 33: set @card_id,(@id5[32]); break; case 34: set @card_id,(@id5[33]); break; case 35: set @card_id,(@id5[34]); break; case 36: set @card_id,(@id5[35]); break; case 37: set @card_id,(@id5[36]); break; case 38: set @card_id,(@id5[37]); break; case 39: set @card_id,(@id5[38]); break; } goto L_change2; L_rank_s: set @rank,1; L_rank_s2: mes "[カードちゃん]"; mes "交換するカードを選んで下さい。"; next; switch(select( "現在選択中のカードを見る or カードを交換する", getitemname(@id6[1]),getitemname(@id6[2]),getitemname(@id6[3]),getitemname(@id6[4]),getitemname(@id6[5]), getitemname(@id6[6]),getitemname(@id6[7]),getitemname(@id6[8]),getitemname(@id6[9]),getitemname(@id6[10]), getitemname(@id6[11]),getitemname(@id6[12]),getitemname(@id6[13]),getitemname(@id6[14]),getitemname(@id6[15]), getitemname(@id6[16]),getitemname(@id6[17]),getitemname(@id6[18]),getitemname(@id6[19]),getitemname(@id6[20]), getitemname(@id6[21]),getitemname(@id6[22]),getitemname(@id6[23]),getitemname(@id6[24]),getitemname(@id6[25]), getitemname(@id6[26]),getitemname(@id6[27]),getitemname(@id6[28]),getitemname(@id6[29]),getitemname(@id6[30]), getitemname(@id6[31]),getitemname(@id6[32]),getitemname(@id6[33]),getitemname(@id6[34]),getitemname(@id6[35]), getitemname(@id6[36]),getitemname(@id6[37]),getitemname(@id6[38]),getitemname(@id6[39]),getitemname(@id6[40]), )) { case 1: goto L_change1; case 2: set @card_id,(@id6[1]); break; case 3: set @card_id,(@id6[2]); break; case 4: set @card_id,(@id6[3]); break; case 5: set @card_id,(@id6[4]); break; case 6: set @card_id,(@id6[5]); break; case 7: set @card_id,(@id6[6]); break; case 8: set @card_id,(@id6[7]); break; case 9: set @card_id,(@id6[8]); break; case 10: set @card_id,(@id6[9]); break; case 11: set @card_id,(@id6[10]); break; case 12: set @card_id,(@id6[11]); break; case 13: set @card_id,(@id6[12]); break; case 14: set @card_id,(@id6[13]); break; case 15: set @card_id,(@id6[14]); break; case 16: set @card_id,(@id6[15]); break; case 17: set @card_id,(@id6[16]); break; case 18: set @card_id,(@id6[17]); break; case 19: set @card_id,(@id6[18]); break; case 20: set @card_id,(@id6[19]); break; case 21: set @card_id,(@id6[20]); break; case 22: set @card_id,(@id6[21]); break; case 23: set @card_id,(@id6[22]); break; case 24: set @card_id,(@id6[23]); break; case 25: set @card_id,(@id6[24]); break; case 26: set @card_id,(@id6[25]); break; case 27: set @card_id,(@id6[26]); break; case 28: set @card_id,(@id6[27]); break; case 29: set @card_id,(@id6[28]); break; case 30: set @card_id,(@id6[29]); break; case 31: set @card_id,(@id6[30]); break; case 32: set @card_id,(@id6[31]); break; case 33: set @card_id,(@id6[32]); break; case 34: set @card_id,(@id6[33]); break; case 35: set @card_id,(@id6[34]); break; case 36: set @card_id,(@id6[35]); break; case 37: set @card_id,(@id6[36]); break; case 38: set @card_id,(@id6[37]); break; case 39: set @card_id,(@id6[38]); break; case 40: set @card_id,(@id6[39]); break; case 41: set @card_id,(@id6[40]); break; } goto L_change2; L_change1: if( @maisu ==0 ){ mes "[カードちゃん]"; mes "現在、選択中のカードはございません"; next; switch(select("カードを追加する","やっぱやめる。")){ case 1: switch(@rank){ case 1: goto L_rank_s2; case 2: goto L_rank_a2; case 3: goto L_rank_b2; case 4: goto L_rank_c2; case 5: goto L_rank_d2; case 6: goto L_rank_e2; } case 2: goto Lno; } } L_max: if( @maisu ==10 ){ mes "[カードちゃん]"; mes "現在あなたが選択したカードは"; mes getitemname(@cardid_1); mes getitemname(@cardid_2); mes getitemname(@cardid_3); mes getitemname(@cardid_4); mes getitemname(@cardid_5); mes getitemname(@cardid_6); mes getitemname(@cardid_7); mes getitemname(@cardid_8); mes getitemname(@cardid_9); mes getitemname(@cardid_10); mes "です。"; mes "現在、追加枚数が最大です。"; next; mes "[カードちゃん]"; mes "カードを交換しますか？"; next; menu "交換する",L_change3,"やっぱやめる。",L_cansel; } mes "[カードちゃん]"; mes "現在あなたが選択したカードは"; mes getitemname(@cardid_1); if( @maisu < 5 ){ if(@maisu > 1){ mes getitemname(@cardid_2); } if(@maisu > 2){ mes getitemname(@cardid_3); } if(@maisu > 3){ mes getitemname(@cardid_4); } mes "の" + @maisu + "枚です。"; mes "後" + (5 - (@maisu)) + "枚追加する必要があります。"; next; mes "[カードちゃん]"; mes "カードを追加しますか？"; next; switch(select("追加する","やっぱやめる。")){ case 1: switch(@rank){ case 1: goto L_rank_s2; case 2: goto L_rank_a2; case 3: goto L_rank_b2; case 4: goto L_rank_c2; case 5: goto L_rank_d2; case 6: goto L_rank_e2; } case 2: goto L_cansel; } } mes getitemname(@cardid_2); mes getitemname(@cardid_3); mes getitemname(@cardid_4); mes getitemname(@cardid_5); if( @maisu > 5 && @maisu < 10 ){ mes getitemname(@cardid_6); if(@maisu > 6){ mes getitemname(@cardid_7); } if(@maisu > 7){ mes getitemname(@cardid_8); } if(@maisu > 8){ mes getitemname(@cardid_9); } mes "の" + @maisu + "枚です。"; mes "現在交換可能です。"; mes "後" + (10 - (@maisu)) + "枚追加する事が出来ます。"; next; } if(@rank == 1 && @maisu == 5){ mes "の" + @maisu + "枚です。"; mes "これ以上上のランクがありませんので"; mes "" + @maisu + "枚以上は必要ありません。"; mes "このままで交換可能です。"; next; mes "[カードちゃん]"; mes "どうしますか？"; next; switch(select("このまま交換する","やっぱやめる")){ case 1: goto L_change3; case 2: goto L_cansel; } } if(@maisu ==5){ mes "の" + @maisu + "枚です。"; mes "このままでも交換可能ですが"; mes "後５枚追加する事が出来ます。"; next; } mes "[カードちゃん]"; mes "どうしますか？"; next; switch(select("このまま交換する","さらにカードを追加する","やっぱやめる")){ case 1: goto L_change3; case 2: switch(@rank){ case 1: goto L_rank_s2; case 2: goto L_rank_a2; case 3: goto L_rank_b2; case 4: goto L_rank_c2; case 5: goto L_rank_d2; case 6: goto L_rank_e2; } case 3: goto L_cansel; } L_change2: //MVPは5枚以上は意味がないのでエラー。 if(countitem(@card_id) < 1) { goto L_ng; } if( @maisu > 10) { goto L_max; } if( @rank == 1 && @maisu == 5) { mes "[カードちゃん]"; mes "MVPカードはこれ以上のランクがないので"; mes "これ以上のカードは意味がありません。"; next; goto L_rank_s2; } //カード枚数最大に達したらエラー。 if(@maisu==10){ mes "[カードちゃん]"; mes "これ以上は追加出来ません。"; next; switch(@rank){ case 1: goto L_rank_s2; case 2: goto L_rank_a2; case 3: goto L_rank_b2; case 4: goto L_rank_c2; case 5: goto L_rank_d2; case 6: goto L_rank_e2; } } set @maisu,@maisu+1; switch(@maisu) { case 1: set @cardid_1,(@card_id); break; case 2: set @cardid_2,(@card_id); break; case 3: set @cardid_3,(@card_id); break; case 4: set @cardid_4,(@card_id); break; case 5: set @cardid_5,(@card_id); break; case 6: set @cardid_6,(@card_id); break; case 7: set @cardid_7,(@card_id); break; case 8: set @cardid_8,(@card_id); break; case 9: set @cardid_9,(@card_id); break; case 10: set @cardid_10,(@card_id); break; } mes "[カードちゃん]"; mes getitemname(@card_id) + "を交換対象に指定します。"; mes "対象カードを一旦お預かり致します。"; delitem (@card_id),1; next; switch(@rank){ case 1: goto L_rank_s2; case 2: goto L_rank_a2; case 3: goto L_rank_b2; case 4: goto L_rank_c2; case 5: goto L_rank_d2; case 6: goto L_rank_e2; } L_ng: mes "[カードちゃん]"; mes " カードがありません。"; next; switch(@rank){ case 1: goto L_rank_s2; case 2: goto L_rank_a2; case 3: goto L_rank_b2; case 4: goto L_rank_c2; case 5: goto L_rank_d2; case 6: goto L_rank_e2; } L_cansel: mes "[カードちゃん]"; mes "やめるのですね。"; mes "では、預かっているカードをお返しします。"; next; if((@maisu) > 9) getitem (@cardid_10),1; if((@maisu) > 8) getitem (@cardid_9),1; if((@maisu) > 7) getitem (@cardid_8),1; if((@maisu) > 6) getitem (@cardid_7),1; if((@maisu) > 5) getitem (@cardid_6),1; if((@maisu) > 4) getitem (@cardid_5),1; if((@maisu) > 3) getitem (@cardid_4),1; if((@maisu) > 2) getitem (@cardid_3),1; if((@maisu) > 1) getitem (@cardid_2),1; getitem (@cardid_1),1; mes "[カードちゃん]"; mes "もし、気が変わってカードを交換したくなりましたら"; mes "また是非お声をお掛け下さい！"; mes "その時は是非、交換させて頂きます！"; close; L_change3: mes "[カードちゃん]"; mes "それでは、お預かりしたカードは"; mes "こちらで処分させて頂きます。"; next; //----------------------------------------------------------------------------- // // ここから渡すカードのルーレットscriptです。 // カードが5枚の場合のみ、同Lvからの引き当て。 // 1枚追加の度に1ランク上のカードを引く確率が10%増加。 // MVPカードに関しては、それ以上がないので除外。 // //----------------------------------------------------------------------------- //大当たり判定 switch(@maisu - 5){ case 0: break; case 1: set @kkrt,rand(1,10); if(@kkrt == 1){ switch(@rank){ case 2: set @card_no,rand(1,40); set @card_id,@id6[@card_no]; goto L_big; case 3: set @card_no,rand(1,38); set @card_id,@id5[@card_no]; goto L_big; case 4: set @card_no,rand(1,83); set @card_id,@id4[@card_no]; goto L_big; case 5: set @card_no,rand(1,103); set @card_id,@id3[@card_no]; goto L_big; case 6: set @card_no,rand(1,86); set @card_id,@id2[@card_no]; goto L_big; } set @cardid_7,0; set @cardid_8,0; set @cardid_9,0; set @cardid_10,0; } break; case 2: set @kkrt,rand(1,10); if(@kkrt < 3){ switch(@rank){ case 2: set @card_no,rand(1,40); set @card_id,@id6[@card_no]; goto L_big; case 3: set @card_no,rand(1,38); set @card_id,@id5[@card_no]; goto L_big; case 4: set @card_no,rand(1,83); set @card_id,@id4[@card_no]; goto L_big; case 5: set @card_no,rand(1,103); set @card_id,@id3[@card_no]; goto L_big; case 6: set @card_no,rand(1,86); set @card_id,@id2[@card_no]; goto L_big; } set @cardid_8,0; set @cardid_9,0; set @cardid_10,0; } break; case 3: set @kkrt,rand(1,10); if(@kkrt < 4){ switch(@rank){ case 2: set @card_no,rand(1,40); set @card_id,@id6[@card_no]; goto L_big; case 3: set @card_no,rand(1,38); set @card_id,@id5[@card_no]; goto L_big; case 4: set @card_no,rand(1,83); set @card_id,@id4[@card_no]; goto L_big; case 5: set @card_no,rand(1,103); set @card_id,@id3[@card_no]; goto L_big; case 6: set @card_no,rand(1,86); set @card_id,@id2[@card_no]; goto L_big; } set @cardid_9,0; set @cardid_10,0; } break; case 4: set @kkrt,rand(1,10); if(@kkrt < 5){ switch(@rank){ case 2: set @card_no,rand(1,40); set @card_id,@id6[@card_no]; goto L_big; case 3: set @card_no,rand(1,38); set @card_id,@id5[@card_no]; goto L_big; case 4: set @card_no,rand(1,83); set @card_id,@id4[@card_no]; goto L_big; case 5: set @card_no,rand(1,103); set @card_id,@id3[@card_no]; goto L_big; case 6: set @card_no,rand(1,86); set @card_id,@id2[@card_no]; goto L_big; } set @cardid_10,0; } break; case 5: set @kkrt,rand(1,10); if(@kkrt < 6){ switch(@rank){ case 2: set @card_no,rand(1,40); set @card_id,@id6[@card_no]; goto L_big; case 3: set @card_no,rand(1,38); set @card_id,@id5[@card_no]; goto L_big; case 4: set @card_no,rand(1,83); set @card_id,@id4[@card_no]; goto L_big; case 5: set @card_no,rand(1,103); set @card_id,@id3[@card_no]; goto L_big; case 6: set @card_no,rand(1,86); set @card_id,@id2[@card_no]; goto L_big; } } break; } //通常判定 set @kkrt,1; switch(@rank){ case 1: set @card_no,rand(1,40); set @card_id,@id6[@card_no]; break; case 2: set @card_no,rand(1,38); set @card_id,@id5[@card_no]; break; case 3: set @card_no,rand(1,83); set @card_id,@id4[@card_no]; break; case 4: set @card_no,rand(1,103); set @card_id,@id3[@card_no]; break; case 5: set @card_no,rand(1,86); set @card_id,@id2[@card_no]; break; case 6: set @card_no,rand(1,57); set @card_id,@id1[@card_no]; break; } //大ハズレ判定 switch(@maisu - 5){ case 0: while(@kkrt < 6){ if(@card_id == @cardid_[@kkrt]){ goto L_suka; } set @kkrt,@kkrt+1; } break; case 1: while(@kkrt < 7){ if(@card_id == @cardid_[@kkrt]){ goto L_suka; } set @kkrt,@kkrt+1; } break; case 2: while(@kkrt < 8){ if(@card_id == @cardid_[@kkrt]){ goto L_suka; } set @kkrt,@kkrt+1; } break; case 3: while(@kkrt < 9){ if(@card_id == @cardid_[@kkrt]){ goto L_suka; } set @kkrt,@kkrt+1; } break; case 4: while(@kkrt < 10){ if(@card_id == @cardid_[@kkrt]){ goto L_suka; } set @kkrt,@kkrt+1; } break; case 5: while(@kkrt < 11){ if(@card_id == @cardid_[@kkrt]){ goto L_suka; } set @kkrt,@kkrt+1; } break; } //通常終了 mes "[カードちゃん]"; mes "･･･････････････"; next; mes "[" +strcharinfo(0)+ "]"; mes "･････もしもし？"; next; mes "[カードちゃん]"; mes "発表します！"; next; mes "[カードちゃん]"; mes "あなたの今回のカード交換は･･･"; mes "(ダラララララララララララ････)"; next; mes "[" +strcharinfo(0)+ "]"; mes "(どきどき)"; next; mes "[カードちゃん]"; mes "(ダンッ)"; mes "あなたの今回は･･･"; next; gmcommand "@misceffect 83"; mes "[カードちゃん]"; mes getitemname(@card_id) +"です！ "; mes "おめでとうございます！"; getitem (@card_id),1; next; mes "[カードちゃん]"; mes "普通当たりですね。"; next; mes "[" +strcharinfo(0)+ "]"; mes "そうですか。"; next; mes "[カードちゃん]"; mes "カードを追加すればする程"; mes "Lvの高いカードが出る確率が高くなりますよ。"; next; mes "[カードちゃん]"; mes "また不要なカードがありましたら"; mes "お声を掛けて下さい。"; mes "ありがとうございました。"; close; //大当たり L_big: mes "[カードちゃん]"; mes "･･･････････････"; next; mes "[" +strcharinfo(0)+ "]"; mes "･････もしもし？"; next; mes "[カードちゃん]"; mes "発表します！"; next; mes "[カードちゃん]"; mes "あなたの今回のカード交換は･･･"; mes "(ダラララララララララララ････)"; next; mes "[" +strcharinfo(0)+ "]"; mes "(どきどき)"; next; mes "[カードちゃん]"; mes "(ダンッ)"; mes "あなたの今回は･･･"; next; //MVP-cardを当てた時 if(@rank == 2){ gmcommand "@misceffect 68"; mes "[カードちゃん]"; mes "大当たり〜！！"; mes "何と"+ getitemname(@card_id) +"です！ "; mes "おめでとうございます！"; getitem (@card_id),1; next; mes "[" +strcharinfo(0)+ "]"; mes "やったー！！"; next; } if(@rank != 2){ gmcommand "@misceffect 371"; gmcommand "@misceffect 568"; mes "[カードちゃん]"; mes "大当たり〜！！"; mes getitemname(@card_id) +"です！ "; mes "おめでとうございます！"; getitem (@card_id),1; next; mes "[" +strcharinfo(0)+ "]"; mes "ありがとー！"; next; } mes "[カードちゃん]"; mes "大当たり、おめでとうございます！"; mes strcharinfo(0) + "さんが渡されたカードよりも"; mes "もう1ランク上のカードです！"; mes "これでちょっと得した気分に。"; mes "でも、実際に今のカードが使えるかは人それぞれ"; mes "なんですけど･･･(ﾎﾞｿ"; next; gmcommand "@emotion 4"; mes "[" +strcharinfo(0)+ "]"; mes "･････"; next; mes "[カードちゃん]"; mes "カードの交換はまだまだ受け付けておりますよ"; mes "交換したいカードが出来ましたら"; mes "どしどし声を掛けて下さいね。"; mes "次も喜んで交換させて頂きます！"; close; //渡したカードと同じ物が当たった時 L_ska: mes "[カードちゃん]"; mes "･･･････････････"; next; mes "[" +strcharinfo(0)+ "]"; mes "･････もしもし？"; next; mes "[カードちゃん]"; mes "発表します！"; next; mes "[カードちゃん]"; mes "あなたの今回のカード交換は･･･"; mes "(ダラララララララララララ････)"; next; mes "[" +strcharinfo(0)+ "]"; mes "(どきどき)"; next; mes "[カードちゃん]"; mes "(ダンッ)"; mes "あなたの今回は･･･"; next; gmcommand "@misceffect 183"; mes "[カードちゃん]"; mes getitemname(@card_id) +"です！ "; mes "おめでとうござ･･･あれ？"; getitem (@card_id),1; next; gmcommand "@emotion 9"; mes "[" +strcharinfo(0)+ "]"; mes "･････"; next; gmcommand "@emotion 19"; mes "[" +strcharinfo(0)+ "]"; mes "こ、これって･･･"; mes "さっき渡したカードですよね･･･？"; next; emotion 20; mes "[カードちゃん]"; mes "えーと･･･"; mes "ま、まぁ･･･"; mes "そんな事もあるって事で！"; next; gmcommand "@emotion 23"; emotion 23; mes "[カードちゃん]"; mes "残念賞！"; next; gmcommand "@emotion 28"; mes "[" +strcharinfo(0)+ "]"; mes "ひ、酷い･･･"; close; L_sub: //card-id //id1(E_rank)57枚 setarray @id1[0],0,4001,4002,4003,4004,4005,4006,4007,4008,4009,4010,4011,4012,4013,4014,4015,4016,4017,4018,4019; setarray @id1[20],4020,4021,4022,4023,4024,4025,4026,4027,4028,4029,4030,4031,4032,4033,4034,4035,4036,4037,4038,4039; setarray @id1[40],4040,4041,4042,4043,4044,4045,4046,4048,4049,4050,4051,4083,4196,4211,4243,4247,4273,4306; //id2(D_rank)86枚 setarray @id2[0],0,4052,4053,4055,4056,4057,4058,4059,4060,4061,4062,4063,4064,4066,4067,4068,4069,4070,4071,4072; setarray @id2[20],4073,4074,4075,4076,4077,4078,4079,4080,4081,4082,4084,4085,4086,4087,4088,4089,4090,4091,4092,4093; setarray @id2[40],4094,4095,4096,4097,4098,4100,4101,4102,4103,4104,4105,4106,4107,4108,4109,4110,4153,4154,4156,4157; setarray @id2[60],4186,4192,4193,4195,4206,4208,4212,4216,4233,4235,4255,4257,4260,4281,4286,4292,4293,4297,4303,4307; setarray @id2[80],4308,4334,4337,4341,4343,4344,4375; //id3(C_rank)103枚 setarray @id3[0],0,4111,4112,4113,4114,4115,4116,4117,4118,4119,4120,4122,4125,4126,4127,4129,4130,4133,4139,4141; setarray @id3[20],4149,4159,4160,4161,4167,4170,4171,4172,4173,4175,4177,4180,4181,4185,4187,4188,4190,4199,4200,4205; setarray @id3[40],4213,4215,4217,4219,4222,4224,4225,4227,4231,4232,4239,4240,4244,4252,4256,4259,4261,4262,4264,4265; setarray @id3[60],4267,4268,4270,4271,4272,4275,4278,4280,4283,4285,4287,4288,4294,4295,4296,4301,4304,4309,4310,4313; setarray @id3[80],4314,4315,4321,4322,4326,4327,4328,4333,4335,4338,4339,4345,4346,4349,4353,4355,4356,4373,4377,4382; setarray @id3[100],4383,4385,4389,4390; //id4(B_rank)83枚 setarray @id4[0],0,4065,4099,4124,4136,4140,4150,4151,4152,4158,4162,4164,4165,4166,4169,4176,4178,4182,4184,4189; setarray @id4[20],4191,4194,4201,4202,4203,4204,4209,4210,4214,4220,4221,4223,4226,4228,4229,4230,4234,4237,4238,4242; setarray @id4[40],4245,4246,4248,4249,4251,4253,4258,4269,4274,4279,4282,4289,4298,4299,4300,4311,4312,4316,4319,4323; setarray @id4[60],4329,4331,4332,4336,4340,4347,4348,4350,4351,4369,4370,4371,4379,4380,4381,4387,4388,4391,4394,4400; setarray @id4[80],4401,4402,4404,4405; //id5(A_rank)38枚 setarray @id5[0],0,4047,4054,4155,4163,4174,4179,4183,4197,4198,4207,4218,4241,4250,4254,4266,4277,4284,4290,4291; setarray @id5[20],4317,4320,4325,4354,4358,4360,4362,4364,4366,4368,4378,4384,4392,4393,4395,4396,4397,4398,4406; //id6(S_rank)40枚 setarray @id6[0],0,4121,4123,4128,4131,4132,4134,4135,4137,4138,4142,4143,4144,4145,4146,4147,4148,4168,4236,4263; setarray @id6[20],4276,4302,4305,4318,4324,4330,4342,4352,4357,4359,4361,4363,4365,4367,4372,4374,4376,4386,4399,4403; setarray @id6[40],4407; return; } //----------------------------------------------------------------------------- //duplicate prontera.gat,229,83,6 duplicate(Card_Changer) カードちゃん#1 719 pay_arche.gat,100,132,3 duplicate(Card_Changer) カードちゃん#2 719 moc_ruins.gat,148,159,3 duplicate(Card_Changer) カードちゃん#3 719