kn.tmさんのアンケート Ver.1.2 作成中

#include "user32.as"
screen 0,520,637
syscolor 15 : boxf
color : title "5月24日記念524アンケート Ver.1.2 - Kerupani and f(x) soft"
font "ＭＳ 明朝",30 : mes "5月24日記念524アンケート"
font "",25 : mes "以下のアンケートに答えてください。"
font "",18 : objsize 260,24
a0="めっちゃ面白い","まあまあ","つまらない","その他","","面白い","ま、こんなもんだろ","つまらなすぎる"
s00=1
m00="その他の場合は、ここに書いてな！"
mes "Ｑ１　このブログは面白いですか？"
pos 0,73
chkbox a0(0), s00
SetWindowLong objinfo(stat, 2), -16, $50000009 | $20000
chkbox a0(1), s01
sendmsg objinfo(stat, 2), $F4, $9
chkbox a0(2), s02
sendmsg objinfo(stat, 2), $F4, $9
chkbox a0(3), s03
sendmsg objinfo(stat, 2), $F4, $9
pos 260,145
mesbox m00,260,48
pos 260,73
chkbox a0(5), s04
sendmsg objinfo(stat, 2), $F4, $9
chkbox a0(6), s05
sendmsg objinfo(stat, 2), $F4, $9
chkbox a0(7), s06
sendmsg objinfo(stat, 2), $F4, $9
a1="続けるべき！","続けなくてもいいよ","いつまでこんなブログやってる。さっさと立ち去れ！","その他","","まあ、あったほうが良いかも…","お前のブログのことなんて知らねーよ。どうだっていい。"
s10=1
m10="その他の場合は、ここに書いてな！"
pos 0,217
mes "Ｑ２　このブログは続けるべきですか？"
chkbox a1(0), s10
SetWindowLong objinfo(stat, 2), -16, $50000009 | $20000
chkbox a1(1), s11
sendmsg objinfo(stat, 2), $F4, $9
chkbox a1(2), s12
sendmsg objinfo(stat, 2), $F4, $9
chkbox a1(3), s13
sendmsg objinfo(stat, 2), $F4, $9
pos 260,283
mesbox m10,260,48
pos 260,235
chkbox a1(5), s14
sendmsg objinfo(stat, 2), $F4, $9
chkbox a1(6), s15
sendmsg objinfo(stat, 2), $F4, $9
a2="また明日来るぜ","運が良ければ来る","間違えてきただけだから来るかわからない","更新したら、また来るぜ","明日のことは分からない","もう二度と来ねーよ"
s20=1
m20="その他の場合は、ここに書いてな！"
pos 0,355
mes "Ｑ３　またこのブログに来てくれますか？"
chkbox a2(0), s20
SetWindowLong objinfo(stat, 2), -16, $50000009 | $20000
chkbox a2(1), s21
sendmsg objinfo(stat, 2), $F4, $9
chkbox a2(2), s22
sendmsg objinfo(stat, 2), $F4, $9
pos 260,373
chkbox a2(3), s23
sendmsg objinfo(stat, 2), $F4, $9
chkbox a2(4), s24
sendmsg objinfo(stat, 2), $F4, $9
chkbox a2(5), s24
sendmsg objinfo(stat, 2), $F4, $9
objsize 520,24
pos 0,469 : button "送信",*check
pos 0,517
button "このアンケートのブログにリンク",*link1
button "アンケートについてのページにリンク",*link2
button "アンケートの原作者：kn.tm(koni524361)さん",*link1
button "アンケートのソフト版の作成者１：kerupaniさん",*link3
button "アンケートのソフト版の作成者２：f(x)(fxfunctiongenius)さん",*link4
stop
*check
syscolor 15 : boxf
pos 0,0 : color
re0="え、マジでココの選択肢でいいの？","どうも解答ありがとうございます","あなたのブログが面白すぎるだけです。","コメントにて受け付けます。","","いえいえ、どうもありがとうございます。","そうです。ぼくのブログはこんなモンです。","そうですか…、まあ頑張ります。"
re1="そんな素晴らしいご解答。何かの間違いじゃ…","XXX"/*←改良の必要あり*/,"いや。ぼくはしぶとくここに残ります。","コメントくれればご返答いたします。","コメントにて受け付けます。","そうですか、ありがとうございます。","厳しいご意見…"
re2="まじで～～？ありがと～～","また来てくれることをお祈りしています。","もう一度間違えてくれ！","またのご来店（←？）をお待ちしています","後は神に頼むか…","はい。そうして下さい。興味が無いのなら早くお引き取りください。詳しくは\nhttp://blogs.yahoo.co.jp/koni524361/folder/931735.html\nをご覧下さい。"
repeat 8,0
if cnt!4 {
sendmsg objinfo(cnt, 2), $F0
if stat=1 : s0=cnt
}
loop
repeat 7,8
if cnt!12 {
sendmsg objinfo(cnt, 2), $F0
if stat=1 : s1=cnt
}
loop
repeat 6,15
sendmsg objinfo(cnt, 2), $F0
if stat=1 : s2=cnt
loop
clrobj
pos 0,0 : font "ＭＳ 明朝",30 : mes "5月24日記念524アンケート"
font "",18
if s0!3 : ma0=a0(s0-0) : else : ma0="その他："+m00
if s1!11 : ma1=a1(s1-8) : else : ma1="その他："+m10
ma2=a2(s2-15)
message="Ａ１："+ma0+"\n->"+re0(s0-0)+"\n\nＡ２："+ma1+"\n->"+re1(s1-8)+"\n\nＡ３："+ma2+"\n->"+re2(s2-15)
mesbox message,520,234,4
mes "以上のデータを下のページに投稿したければしてください。"
axobj ie, "Shell.Explorer.2",520,235
ie->"Navigate" "http://blogs.yahoo.co.jp/koni524361/14374293.html"
pos 0,517
button "このアンケートのブログにリンク",*link1
button "アンケートについてのページにリンク",*link2
button "アンケートの原作者：kn.tm(koni524361)さん",*link1
button "アンケートのソフト版の作成者１：kerupaniさん",*link3
button "アンケートのソフト版の作成者２：f(x)(fxfunctiongenius)さん",*link4
stop
*link1
exec "http://blogs.yahoo.co.jp/koni524361",16
stop
*link2
exec "http://blogs.yahoo.co.jp/koni524361/14374293.html",16
stop
*link3
exec "http://blogs.yahoo.co.jp/kerupani",16
stop
*link4
exec "http://blogs.yahoo.co.jp/fxfunctiongenius",16