抽選会後、日本をあきらめる奴 part2

>>193 ルールに基づく最新版、第１ポットの抽選もするようにした。
メキシコvsアジア勢 はありにしてます。

pot1=",ドイツ　　,,ブラジル,E,スペイン,N,メキシコ,E,イングランド,S,アルゼンチン,E,イタリア,E,フランス"
pot2="F,トーゴ　　　　　　　　,F,ガーナ　　　　　　　,F,コートジボワール,F,アンゴラ　　　　　　,F,チュニジア　　　,S,エクアドル　　　,S,パラグアイ　　　,O,オーストラリア"
pot3="E,チェコ　　　　　　　　,E,オランダ　　　　　　,E,ポルトガル　　,E,スウェーデン　,E,スイス　　　　　　　　,E,クロアチア　　　,E,ポーランド　　　,E,ウクライナ　　　"
pot4="N,アメリカ,N,コスタリカ,N,トリニダード・トバゴ,A,日本,A,イラン,A,韓国,A,サウジアラビア,E,セルビア・モンテネグロ"

dim ary1, ary2, ary3, ary4, grp(7,3,1)
ary1=split(pot1,",")
ary2=split(pot2,",")
ary3=split(pot3,",")
ary4=split(pot4,",")
grp(0,0,0) = "E"
grp(0,0,1) = ary1(1)
grp(5,0,0) = "S"
grp(5,0,1) = ary1(3)

kuji "E", 4, ary1, 0, "X"
kuji "S", 1, ary1, 0, "X"
kuji "N", 1, ary1, 0, "X"
kuji "S", 2, ary2, 1, "S"
kuji "F", 5, ary2, 1, "X"
kuji "O", 1, ary2, 1, "X"
kuji "E", 8, ary3, 2, "X"
kuji "E", 1, ary4, 3, "E"
kuji "N", 3, ary4, 3, "N"
kuji "A", 4, ary4, 3, "X"

for i=0 to 7
msg = msg & chr(-32160+i) & "：　　"
msg = msg & grp(i,0,0) & grp(i,0,1) & chr(9)
msg = msg & grp(i,1,0) & grp(i,1,1) & chr(9)
msg = msg & grp(i,2,0) & grp(i,2,1) & chr(9)
msg = msg & grp(i,3,0) & grp(i,3,1) & chr(13)
next
msgbox msg

sub kuji(AREAid, AREAnum, ary, ROWnum, AVOid)
randomize
for i=0 to (AREAnum-1)
Do
index = int(rnd*8)
Loop until ary(index*2)=AREAid
Do
Do
selG = int(rnd*8)
Loop until grp(selG,ROWnum,0)=""
Loop until grp(selG,0,0)<>AVOid
grp(selG,ROWnum,0) = ary(index*2)
grp(selG,ROWnum,1) = ary(index*2+1)
ary(index*2) = ""
next
end sub

イタリア・コートジボアール・チェコ・日本
で日本全勝

第二ポッドはどれがきても勝てそうだな
問題は第三ポッドからどれを引くかだな
ウクライナ、スイス、ポーランドのどれかを引きたいところだ

最悪
ブラジル
パラグアイ
スウェーデン

最良（？）
イングランド
チュニジア
ポーランド

かな？

>>241
すごいなｗ。世間知らずでﾜﾗﾀ。
スイスはつえーよ。おぼえときな坊や

スイスつえーぞ。
クロアチア・ポーランドにしか微かな期待はできない。
第2でオーストラリアと組むのも何気にツライと思うんだが。。

オランダと初戦あたると空気読めないほど点取られそう
ユースの時や前のニダさんみたいに

>>239
乙です

ドイツやスイスに弱そうなチームが当たるようにするのは
むずかしいものですか？

>>239
サンクス。

「2006年ドイツＷ杯ポット分け」
pot1（ドイツ、ブラジル、スペイン、メキシコ、イングランド、アルゼンチン、イタリア、フランス）
pot2（トーゴ、ガーナ、コートジボワール、アンゴラ、チュニジア、エクアドル、パラグアイ、オーストラリア）
pot3（チェコ、オランダ、ポルトガル、スウェーデン、スイス、クロアチア、ポーランド、ウクライナ）
pot4（アメリカ、コスタリカ、トリニダード・トバゴ、日本、イラン、韓国、サウジアラビア、セルビア・モンテネグロ）

抽選方法
�@pot1の8カ国を抽選でＡ〜Ｈに分ける。(ドイツはA、ブラジルはFに決定）
�Apot2の8カ国を抽選でＡ〜Ｈに分ける。
�Bpot3の8カ国を抽選でＡ〜Ｈに分ける。
�Cpot4の8カ国を抽選でＡ〜Ｈに分ける。
※各組とも欧州は2カ国、その他の地域は1カ国まで。

ソース
http://germany2006.nikkansports.com/news/wc051206-0031.html

第一シード決定方法
http://eur.i1.yimg.com/eu.download.yahoo.com/fifa/fu/finaldrawpot1.pdf

ＴＶ放映[12．10（土）NHK総合 05:10〜(05:57)]
http://www.nhk.or.jp/s-live/schedule-fball/w20051205.htm#

最新版「自動抽選システム」（ドイツＷ杯対応）
>>239のpot1以下をメモ帳にコピペして抽選.vbsで保存。そのファイルをダブルクリックすると自分のパソコンで
抽選できる。