/*
----▼▼▼削除禁止（著作権及びバージョン管理部分）▼▼▼----------------------
【 ソフト名称 】  月下の神託フォーチュン・クッキー
【 ファイル名 】  fc.js
【  著作権者  】  nekomata
【 バージョン 】  1.10
【  作 成 日  】  2004年9月15日
【 動作可能OS 】  Windows 98+IE5.5 Windows XP+IE6.0（その他未確認）
【  取り扱い  】  フリーウェア（リンクウェア）
【  作成言語  】  JavaScript
【  連絡方法  】  メール、掲示板
【ホームページ】  http://www.aa.alpha-net.ne.jp/nekomata/
【 転載  条件 】  配布・転載の条件を厳守して下さい
----▲▲▲削除禁止（著作権及びバージョン管理部分）▲▲▲----------------------
*/
var sp_card_cnt=25;
var sp_card_w=50;
var sp_card_h=50;
var sp_label_x=new Array(26);
var sp_label_y=new Array(26);
var sp_label_nm=new Array(26);
var sp_label_vis=new Array(26);
var syaf_spd=5;
var syaf_upr=150;
var syaf_lwr=10;
var ht_offset=0;
var auto_scr_en=0;
var ckp="/ck.gif";
var ckl="/ck.gif";
var ckbl="/ckl.gif";
var ckbr="/ckr.gif";
var ckbb="/ckbb.gif";
var image_path="image";
var pict_t=".gif";
var rep_txt_color="#800000";
var rep_txt_face="ＭＳ Ｐゴシック";
var rep_txt_size="4";
var txt_color="#fff8dc";
var txt_face="ＭＳ Ｐゴシック";
var txt_size="2";
var ext_back= new Array("","","","","","","");
var ext_back_x=new Array(7);
var ext_back_y=new Array(7);
var ext_back_alp=new Array(7);
var open_msg_txt="";
var open_msg_txt_x=0;
var open_msg_txt_y=0;
var sp_cros_w=600;
var sp_cros_h=400;
var card_semantic="";
var winw=0;
var winh=0;
var pos_x_c=0;
var pos_y_c=0;
var ostx=0;
var osty=0;
var card_sx=new Array(101);
var card_sy=new Array(101);
var step_sx=new Array(101);
var step_sy=new Array(101);
var card_clk_p=0;
var card_sp=0;
var rnd_r_inc=new Array(101);
var crc_inc=new Array(101);
var crc_data=new Array(101);
var rnd_r_dir=new Array(101);
var rnd_r=new Array(101);
var syaf_gra=Math.PI/180;
var syaf_en=0;
var ImgFlag=false;
var timerID=0;
var rate=100;
var timer_en=0;
var code_p=0;
var lpc_all=0;
var lpc_inc=0;
var lpc_dec=0;
var lpc_ret=0;
var lpc_fin=0;
var lpc_tm=0;
var lpc_tm_stk=0;
var regA=0;
var regB=0;
var regC=0;
var regD=0;
var	link_nm=new Array(11);
var	link_lnk=new Array(11);
var	link_x=new Array(11);
var	link_y=new Array(11);
var	link_p=new Array(11);
var	link_vis=new Array(11);
var	link_pos=new Array(11);
var	link_sema=new Array(11);
var move_exp_x=0;
var move_exp_y=0;
var	move_exp_w=0;
var move_exp_h=0;
var move_exp_step_x=0;
var move_exp_step_y=0;
var move_exp_step_w=0;
var move_exp_step_h=0;
var srr=0;
var _msg_1="どれか一つ選んでクリックすると割れます。";
var _msg_2="このクッキーを割りますか？";
var _msg_3="どれか一つ選んでクリックすると割れます。";
var _msg_4="wait...";
var _msg_5="画面をクリックしてください。";
var _msg_6="クッキーをクリックしてください。";
var _msg_7="画面をクリックすると掻き混ぜるのを停止します。";
var _msg_8="どれか一つ選んでクリックすると割れます。";



function item_make(){var i=0;for(i=1;i<6;i++){if(ext_back[i]!=""){CardGene_A("30"+i,ext_back[i],"bk30"+i,ext_back_x[i],ext_back_y[i],null,1,1);}}card_sp=new Image();card_sp.src=image_path+ckp;card_sl=new Image();card_sl.src=image_path+ckl;for(i=1;i<sp_card_cnt+1;i++){CardGene(i,card_sp.src,"pic"+i,0,0,i,1);}for(i=1;i<11;i++){if(link_vis[i]==0){LinkGene(i,link_nm[i],link_lnk[i],"lnk"+i,link_x[i],link_y[i],link_p[i]);cursor_sw("lnk"+i,true);}}CardGene_A(201,image_path+ckbl,"pic201",20,20,201,1,1);CardGene_A(202,image_path+ckbr,"pic202",20,20,202,1,1);CardGene_A(203,image_path+ckbb,"pic203",20,20,203,1,1);ImgReSize("pic203",50,50);RepLabelGene("","msg",0,0,1);if(open_msg_txt!=""){LabelGene(open_msg_txt,"msg0",0,0,1);}}
function card_onmouseout(no,id){if(code_p==100){document.body.style.cursor="default";}else if(code_p==140){document.body.style.cursor="default";window.status=_msg_1;}}
function card_onmouseover(no,id){if(code_p==100){document.body.style.cursor="hand";}else if(code_p==140){document.body.style.cursor="hand";window.status=_msg_2;}}
function card_onclick(no,id){if(code_p==100){code_p=110;}else if(code_p==120){window.status=_msg_3;syaf_en=0;}else if(code_p==140){card_clk_p=no;window.status="";ImgZindex("pic"+no,100,0);ImgMove("pic201",card_sx[no]-30,card_sy[no],200);ImgMove("pic202",card_sx[no]+30,card_sy[no],200);ImgMove("pic203",card_sx[no],card_sy[no],200);ImgVisible("pic201",true);ImgVisible("pic202",true);ImgVisible("pic"+no,false);ImgVisible("pic203",true);document.body.style.cursor="default";code_p=150;}}
function link_onmouseover(no,id){if(code_p==190){window.self.status=link_sema[no];return true;}}
function link_onmouseout(no,id){if(code_p==190){window.self.status="";return true;}}
function ani_card_move_center(no,rp){if(lpc_fin==0){lpc_all=1;lpc_ret=rp;lpc_fin=1;regA=0;}if(lpc_all>0){if(regA==0){regA=1;regB=48;step_sx=((pos_x_c-(sp_card_w/2))-card_sx[no])/48;step_sy=((pos_y_c-(sp_card_h/2))-card_sy[no])/48;}if(regB>0){card_sx[no]=card_sx[no]+step_sx;card_sy[no]=card_sy[no]+step_sy;ImgMove("pic203",card_sx[no],card_sy[no],200);regB--;}else if(regB==0){regA=0;regB=48;lpc_all--;}}else if(lpc_all==0){rate=lpc_tm_stk;regA=0;regB=0;lpc_fin=0;code_p=lpc_ret;}}
function ani_card_move_exp(rp){if(lpc_fin==0){lpc_all=1;lpc_ret=rp;lpc_fin=1;regA=0;pos_center();}if(lpc_all>0){if(regA==0){regA=1;regB=48;move_exp_w=50;move_exp_h=50;move_exp_x=pos_x_c-(move_exp_w/2);move_exp_y=pos_y_c-(move_exp_h/2);move_exp_step_x=((pos_x_c-180)-(pos_x_c-(move_exp_w/2)))/48;move_exp_step_y=((pos_y_c-180)-(pos_y_c-(move_exp_h/2)))/48;move_exp_step_w=(360-move_exp_w)/48;move_exp_step_h=(360-move_exp_h)/48;}if(regB>0){move_exp_x=move_exp_x+move_exp_step_x;move_exp_y=move_exp_y+move_exp_step_y;ImgMove("pic203",move_exp_x,move_exp_y,200);move_exp_w=move_exp_w+move_exp_step_w;move_exp_h=move_exp_h+move_exp_step_h;ImgReSize("pic203", move_exp_w, move_exp_h);regB--;}else if(regB==0){regA=0;regB=48;lpc_all--;}}else if(lpc_all==0){rate=lpc_tm_stk;regA=0;regB=0;lpc_fin=0;code_p=lpc_ret;}}
function RangeRandom(num1,num2){if((num1-num2)>0){var nn1=num1;var nn2=num2;}else{var nn1=num2;var nn2=num1;}var rn=nn1-nn2+1;var number=Math.floor(Math.random()*rn)+nn2;return number;}
function syaful_loop(nm,rp){if(lpc_fin==0){regA=pos_x_c-(sp_card_w/2);regB=pos_y_c-(sp_card_h/2);regC=0;for(i=1;i<(nm+1);i++){crc_data[i]=0;rnd_r_dir[i]=0;rnd_r[i]=0;}lpc_all=nm;lpc_ret=rp;lpc_fin=1;var sr1=(winw/2)-sp_card_w;var sr2=(winh/2)-sp_card_h;srr=sr1;if(sr1<sr2){srr=sr1;}else if(sr1>sr2){srr=sr2;}srr-=10;}var G=0;regC++;if(regC>lpc_all){regC=1;}i=regC;if(syaf_en==1){G=RangeRandom(1,2);rnd_r_inc[i]=RangeRandom(syaf_lwr,syaf_upr);crc_inc[i]=RangeRandom(syaf_lwr,srr);crc_data[i]=crc_data[i]+crc_inc[i];if(rnd_r_dir[i]==0){rnd_r[i]=rnd_r[i]+rnd_r_inc[i];}else if(rnd_r_dir[i]==1){rnd_r[i]=rnd_r[i]-rnd_r_inc[i];}if(rnd_r[i]>srr&&rnd_r_dir[i]==0){rnd_r_dir[i]=1;}else if(rnd_r[i]<50&&rnd_r_dir[i]==1){rnd_r_dir[i]=0;}card_sx[i]=((Math.cos(crc_data[i]*syaf_gra))*rnd_r[i])+regA;card_sy[i]=((Math.sin(crc_data[i]*syaf_gra))*rnd_r[i])+regB;ImgMove("pic"+i,card_sx[i],card_sy[i],i);if(G==1){card_rev_load("pic"+i,null,0);}else if(G==2){card_rev_load("pic"+i,null,1);}}if(syaf_en==0){lpc_fin=0;code_p=lpc_ret;}}
function card_disp_sw(n,sw){if(sw==0){for(i=1;i<(n+1);i++){ImgVisible("pic"+i,true);}}else if(sw==1){for(i=1;i<(n+1);i++){ImgVisible("pic"+i,false);}}}
function CardGene_A(no,src,id,x,y,z,vis,cen){var tmp="";tmp="<img id=\""+id+"\" src=\""+src+"\" style=\"position:absolute;Left:"+x+";";if(cen==0){tmp+="cursor:hand;";}else if(cen==1){tmp+="";}tmp+="Top:"+y+";z-index:"+z+";visibility:";if(vis==0){tmp+="visible;";}else if(vis==1){tmp+="hidden;";}tmp+="\">";document.write(tmp);}
function CardGene(no,src,id,x,y,z,vis){var tmp="";tmp="<img ";tmp+="usemap=\"#maru"+no+"\" border=0 ";tmp+="id=\""+id+"\" src=\""+src+"\" ";tmp+="style=\"position:absolute;Left:"+x+";";tmp+="Top:"+y+";z-index:"+z+";visibility:";if(vis==0){tmp+="visible;";}else if(vis==1){tmp+="hidden;";}tmp+="\">";tmp+="<map name=\"maru"+no+"\">";tmp+="<area shape=\"circle\" coords=\"25,25,24\" onmouseover=\"card_onmouseover("+no +","+ id+");&#13;&#10;\" onclick=\"card_onclick("+no +","+ id+");&#13;&#10;\" onmouseout=\"card_onmouseout("+no +","+ id+");&#13;&#10;\" >";tmp+="<area shape=\"default\" nohref>";tmp+="</map>";document.write(tmp);}
function LabelGene(src,id,x,y){var tmp="";tmp="<font face=\""+txt_face+"\" color="+txt_color+" size="+txt_size+" ";tmp+="id=\""+id+"\"";tmp+="style=\"";tmp+="position:absolute;";tmp+="Left:"+x+";";tmp+="Top:"+y+";";tmp+="visibility:hidden;";tmp+="\">";tmp+="<nobr>";tmp+=src;tmp+="</nobr>";tmp+="</font>";document.write(tmp);}
function RepLabelGene(src,id,x,y,vis){var tmp="";tmp="<center><font face=\""+rep_txt_face+"\" color="+rep_txt_color+" size="+rep_txt_size+" ";tmp+="id=\""+id+"\"";tmp+="style=\"position:absolute;Left:"+x+";Width:300;";tmp+="Top:"+y+";visibility:";if(vis==0){tmp+="visible;";}else if(vis==1){tmp+="hidden;";}tmp+="\">";tmp+=src;tmp+="</font></center>";document.write(tmp);}
function LinkGene(no,src,lnk,id,x,y,p){var tmp="";tmp="<string><a target="+p+" href=\""+lnk+"\"";tmp+=">";tmp+="<font face=\""+txt_face+"\" color="+txt_color+" size="+txt_size+" ";if(document.all){tmp+="onmouseover=\"return link_onmouseover("+no+","+id+");&#13;&#10;\" ";tmp+="onmouseout=\"return link_onmouseout("+no+","+id+");&#13;&#10;\" ";}tmp+="id=\""+id+"\"";tmp+="style=\"";tmp+="position:absolute;";tmp+="Left:"+x+";";tmp+="Top:"+(y+ht_offset)+";";tmp+="visibility:hidden;";tmp+="\">";tmp+=src;tmp+="</font>";tmp+="</a></string>";document.write(tmp);}
function pos_center(){winw=document.all?document.body.clientWidth:window.innerWidth;winh=document.all?document.body.clientHeight:window.innerHeight;var pos_x=document.all?document.body.scrollLeft:window.pageXOffset;var pos_y=document.all?document.body.scrollTop:window.pageYOffset;pos_x_c=winw/2;pos_y_c=winh/2+ht_offset;ostx=(winw-sp_cros_w)/2;osty=(winh-sp_cros_h)/2+ht_offset;if(ostx<0){ostx=0;}if(osty<0){osty=0;}}
function card_move_center(n){for(i=1;i<(n+1);i++){card_sx[i]=pos_x_c-(sp_card_w/2);card_sy[i]=pos_y_c-(sp_card_h/2);ImgMove("pic"+i,card_sx[i],card_sy[i],i);}}
function ImgCheck(){ImgFlag=true;if(document.all){for(i=0;i<document.images.length;i++){if(document.images[i].complete==false){ImgFlag=false;}}}if(ImgFlag==true){code_p=30;}}
function card_rev_load(id,srp,sw){if(srp==null){if(sw==0){document.images[id].src=card_sp.src;}else if(sw==1){document.images[id].src=card_sl.src;}}else if(srp!=null){document.images[id].src=card_s[srp].src;}}
function ImgMove(id,x,y,z){if(document.all){if(x!=null){document.all[id].style.left=x;}if(y!=null){document.all[id].style.top=y;}if(z!=null){document.all[id].style.zIndex=z;}}else{if(x!=null){document.getElementById(id).style.left=x;}if(y!=null){document.getElementById(id).style.top =y;}if(z!=null){document.getElementById(id).style.zIndex=z;}}}
function ImgZindex(id,z,pn){if(document.all){if(pn==0){document.all[id].style.zIndex+=z;}else if(pn==1){document.all[id].style.zIndex-=z;}}else{if(pn==0){document.getElementById(id).style.zIndex+=z;}else if(pn==1){document.getElementById(id).style.zIndex-=z;}}}
function ImgAlt(id,src){if(document.all){document.all[id].alt=src;}else{}}
function ImgVisible(id,bis){if(document.all){document.all[id].style.visibility=bis?"visible":"hidden";}else{document.getElementById(id).style.visibility=bis?"visible":"hidden";}}
function ImgReSize(id,w,h){if(document.all){if(w!=null){document.all[id].style.width=w;}if(h!=null){document.all[id].style.height=h;}}else{if(w!=null){document.getElementById(id).style.width=w;}if(h!=null){document.getElementById(id).style.height=h;}}}
function cursor_sw(id,on){if(document.all){document.all[id].style.cursor=on?"hand":"";}else{document.getElementById(id).style.cursor=on?"pointer":"";}}
function ext_back_sw(no,sw){if(ext_back[no]!=""){if(sw==0){ImgMove("bk30"+no,pos_x_c+ext_back_x[no],pos_y_c+ext_back_y[no],null);ImgVisible("bk30"+no,true);ImgAlpha("bk30"+no,ext_back_alp[no]);}else if(sw==1){ImgVisible("bk30"+no,false);}}}
function ImgAlpha(id,alp){if(document.all){document.all[id].style.filter="Alpha(Opacity="+alp+",FinishOpacity="+alp+")";}}
function bk_mousedown(){if(code_p==120){syaf_en=0;}else if(code_p==3){code_p=4;}}
function init(){for(i=1;i<11;i++){link_sema[i]="";link_pos[i]=0;}}
function label_init(no,nam,x,y,vis){sp_label_nm[no]=nam;sp_label_x[no]=x;sp_label_y[no]=y;sp_label_vis[no]=vis;}
function link_init(no,nam,lnk,x,y,p,vis){link_nm[no]=nam;link_lnk[no]=lnk;link_x[no]=x;link_y[no]=y;link_p[no]=p;link_vis[no]=vis;}
function ext_back_init(no,nm,x,y,alp){ext_back[no]=nm;ext_back_x[no]=x;ext_back_y[no]=y;ext_back_alp[no]=alp;}
function open_msg(nam,x,y){open_msg_txt=nam;open_msg_txt_x=x;open_msg_txt_y=y;}
function main_loop(){if(0<code_p&&code_p<100){if(code_p==0){}else if(code_p==1){window.status=_msg_4;pos_center();item_make();ext_back_sw(1,0);if(auto_scr_en==1){scrollTo(0,ht_offset);}code_p=2;}else if(code_p==2){if(open_msg_txt!=""){ImgMove("msg0",pos_x_c+open_msg_txt_x,pos_y_c+open_msg_txt_y,null);ImgVisible("msg0",true);window.status=_msg_5;document.onmousedown=bk_mousedown;code_p=3;}else{code_p=10;}}else if(code_p==3){}else if(code_p==4){ImgVisible("msg0",false);document.onmousedown="";code_p=10;}else if(code_p==10){code_p=20;}else if(code_p==20){ImgCheck();}else if(code_p==30){card_move_center(sp_card_cnt);card_disp_sw(sp_card_cnt,0);window.status=_msg_6;code_p=100;}}else if(99<code_p&&code_p<200){if(code_p==100){}else if(code_p==110){document.onmousedown=bk_mousedown;pos_center();ext_back_sw(1,1);ext_back_sw(2,0);window.status=_msg_7;rate=syaf_spd;syaf_en=1;code_p=120;}else if(code_p==120){syaful_loop(sp_card_cnt,130);}else if(code_p==130){ext_back_sw(2,1);ext_back_sw(3,0);document.onmousedown="";window.status=_msg_8;rate=100;code_p=140;}else if(code_p==140){}else if(code_p==150){ext_back_sw(3,1);ext_back_sw(4,0);Oracle(card_clk_p,0);if(document.all){document.all["msg"].innerHTML=card_semantic;}else{document.getElementById("msg").innerHTML=card_semantic;}rate=50;ImgMove("pic203",card_sx[card_clk_p],card_sy[card_clk_p],200);code_p=160;}else if(code_p==160){ani_card_move_center(card_clk_p,170);}else if(code_p==170){ani_card_move_exp(180);}else if(code_p==180){if(document.all){var txofw=document.all["msg"].offsetWidth/2;}else{var txofw=document.getElementById("msg").offsetWidth/3;}if(document.all){var txofh=document.all["msg"].offsetHeight/2;}else{var txofh=document.getElementById("msg").offsetHeight/3;}ImgMove("msg",pos_x_c-txofw,pos_y_c-txofh,200);ImgVisible("msg", true);for(i=1;i<11;i++){if(link_pos[i]==0&&link_vis[i]==0){ImgVisible("lnk"+i,true);ImgZindex("lnk"+i,sp_card_cnt,0);}else if(link_pos[i]==1&&link_vis[i]==0){ImgMove("lnk"+i,link_x[i]+ostx,link_y[i]+osty,null);ImgVisible("lnk"+i,true);ImgZindex("lnk"+i,sp_card_cnt,0);}}ext_back_sw(4,1);ext_back_sw(5,0);code_p=190;}else if(code_p==190){}}else if(199<code_p&&code_p<300){}if(timer_en==0){clearTimeout(timerID);timerID=setTimeout("main_loop()",rate);}}
init();