home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 August / VPR9608A.BIN / ffilly / onatu4k9 / onatu4k9.tfy < prev    next >
Text File  |  1995-12-28  |  6KB  |  152 lines
  1. #info INAM "おなつこ劇場9"
  2. #info ICMT "画：おなつこ/作：ＴＡＭＥＪＹＯＵ/音楽：ＴＡＭＥＪＹＯＵ（jammer）/ああせい構成：まま"
  3.  
  4. main() {
  5.  
  6.     int nTp, nHp, nSTp;
  7.     int nIp1, nIp2, nIp3, nIp4;
  8.     int nOp1, nOp2, nOp3, nOp4;
  9.     int nO2p1, nO2p2, nO2p3;
  10.     int nendp;
  11.  
  12.     sub1();
  13.     
  14.   mes(LBDBLCLK){
  15.     CloseWin(0);
  16.     del_all; del_me;
  17.   }
  18. }
  19.  
  20. sub1(){
  21.   mes(TIME) {
  22.        step(2) {
  23.     OpenWin( nTp=LoadPic("title.bmp"));
  24.  
  25. //イントロ「win95」
  26.     nIp1=LoadPic("f00901.bmp");
  27.     nIp2=LoadPic("f00902.bmp");
  28.     nIp3=LoadPic("f00903.bmp");
  29.     nIp4=LoadPic("err.bmp");
  30. ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  31.         SetFont(20,"ＭＳ ゴシック", 128);
  32.         TextColor(0,0,0);
  33.         BgColor(255,255,255);
  34.         TextWrite("ついに買ったぞ！！ ",nIp1,20,10);
  35.         TextWrite("WIN95。 ",nIp1,20,30);
  36.         TextWrite("まーた ",nIp1,360,20);
  37.         TextWrite("無駄遣いして。！！ ",nIp1,360,40);
  38.     MovePic(nIp1,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  39.         TextWrite("うっ、まずった ",nIp2,370,10);
  40.         TextWrite("よーし今ｲﾝｽﾄｰﾙして ",nIp2,370,30);
  41.         TextWrite("見せてやる、驚くな。 ",nIp2,370,50);
  42.     MovePic(nIp2,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  43.         TextWrite("みれみれ ",nIp3,20,20);
  44.         TextWrite("う、うごいたぞ。 ",nIp3,20,40);
  45.         TextWrite("当たり前でしょ、お金 ",nIp3,360,10);
  46.         TextWrite("出して買ったんだから。 ",nIp3,360,30);
  47.     MovePic(nIp3,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  48.         TextWrite("そーゆー問題じゃ ",nIp2,370,10);
  49.         TextWrite("無くって、、、　　　 ",nIp2,370,30);
  50.         TextWrite("かっ　　　　　　　 ",nIp2,370,50);
  51.         TextWrite("返す言葉がなっ、無い。　 ",nIp2,370,70);
  52.     MovePic(nIp2,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  53.         TextWrite("右クリックも出来るし ",nIp3,20,20);
  54.         TextWrite("メニューが下から出るし。 ",nIp3,20,40);
  55.         TextWrite("ふーん　　　　　　　　 ",nIp3,360,10);
  56.         TextWrite("それで？　　　　　　　 ",nIp3,360,30);
  57.     MovePic(nIp3,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  58.         TextWrite("なんだこいつら　",nIp2,370,10);
  59.         TextWrite("いっこも驚かねーや　",nIp2,370,30);
  60.         TextWrite("見ろ　　　　　　　　 ",nIp2,370,50);
  61.         TextWrite("ｴｸｽﾌﾟﾛｰﾗｰだって      　",nIp2,370,70);
  62.         TextWrite("有るんだぞ。 ",nIp2,410,90);
  63.     MovePic(nIp2,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  64.     MovePic(nIp4,0,0,264,189,nTp,36,105,7,5 );
  65.     MovePic(nIp4,264,0,264,189,nTp,300,105,6,5 );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  66.         SetFont(40,"ＭＳ ゴシック", 128);
  67.         TextColor(255,255,255);
  68.         BgColor(0,0,255);
  69.         TextWrite("あれ？ ",nTp,50,20);,,,,,,,,,,,,,,,,,,
  70.         TextWrite("おーい",nTp,180,20);,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  71.         TextWrite("ワトソン君はどこだーい ",nTp,100,60);
  72.     DelPic(nIp1);DelPic(nIp2);DelPic(nIp3);DelPic(nIp4);
  73. ,,,,,,,,,,,,,,,,,,,,
  74. //no.17「おなつこVS.ため」
  75.     nHp=LoadPic("hyoushi.bmp");
  76.     nSTp=LoadPic("st.bmp");
  77.     nOp1=LoadPic("f00911.bmp");
  78.     nOp2=LoadPic("f00912.bmp");
  79.     nOp3=LoadPic("f00913.bmp");
  80.     nOp4=LoadPic("f00914.bmp");
  81. ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  82.     PlayMIDI("onatuko.mid");
  83.     MovePic(nHp,0,0,600,400,0,0,0,2,50 );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  84.         SetFont(22,"ＭＳ ゴシック", 128);
  85.         TextColor(0,0,255);
  86.         BgColor(255,255,255);
  87.         TextWrite("しょの１７「おなつこVS.ため」 ",nSTp,26,200);
  88.         TextWrite("作、ＴＡＭＥＪＹＯＵ ",nSTp,26,290);
  89.         TextWrite("画、おなつこ ",nSTp,26,320);
  90.     MovePic(nSTp,0,0,600,400,nTp,0,0,3,50 );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  91.     PlayWAVE("krakka.wav");
  92.     MovePic(nOp1,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  93.     MovePic(nOp2,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  94.     PlayWAVE("krakka2.wav");
  95.     MovePic(nOp3,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  96.         SetFont(26,"ＭＳ ゴシック", 128);
  97.         TextColor(255,255,255);
  98.         BgColor(255,0,0);
  99.         TextWrite("こらあーやめなさい ",nTp,200,300);,,,,,,,,,,,,,,,,,,,,
  100.     MovePic(nOp4,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  101.         SetFont(26,"ＭＳ ゴシック", 128);
  102.         TextColor(255,255,255);
  103.         BgColor(255,0,150);
  104.         TextWrite("よい子はまねしないでね 。",nTp,170,300);,,,,,,,,,,
  105.     DelPic(nHp);DelPic(nOp1);
  106.     DelPic(nOp2);DelPic(nOp3);DelPic(nOp4);
  107.  
  108. //no.18「床屋」
  109.     nO2p1=LoadPic("f00921.bmp");
  110.     nO2p2=LoadPic("f00923.bmp");
  111.     nO2p3=LoadPic("f00924.bmp");
  112.     nendp=LoadPic("oshimai.bmp");
  113. ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  114.         SetFont(22,"ＭＳ ゴシック", 128);
  115.         TextColor(0,0,255);
  116.         BgColor(255,255,255);
  117.         TextWrite("しょの１８「床屋」　　　　　",nSTp,26,200);
  118.         TextWrite("作、ＴＡＭＥＪＹＯＵ ",nSTp,26,290);
  119.         TextWrite("画、おなつこ ",nSTp,26,320);
  120.     MovePic(nSTp,0,0,600,400,nTp,0,0,3,50 );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  121.         SetFont(20,"ＭＳ ゴシック", 128);
  122.         TextColor(0,0,0);
  123.         BgColor(255,255,255);
  124.         TextWrite("久しぶりですね ",nO2p1,200,10);
  125.         TextWrite("だんな ",nO2p1,200,30);
  126.         TextWrite("うん ",nO2p1,20,190);
  127.         TextWrite("ここん所 ",nO2p1,20,210);
  128.         TextWrite("忙しくて ",nO2p1,20,230);
  129.         TextWrite("① ",nO2p1,10,10);
  130.     MovePic(nO2p1,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  131.         TextWrite("相変わらず頭　 ",nO2p1,200,10);
  132.         TextWrite("でかいね ",nO2p1,200,30);
  133.         TextWrite("えへへ ",nO2p1,20,190);
  134.         TextWrite("いやー　 ",nO2p1,20,210);
  135.         TextWrite("それほどでも ",nO2p1,20,230);
  136.         TextWrite("② ",nO2p1,10,10);
  137.     MovePic(nO2p1,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  138.         TextWrite("どっか痒い所 ",nO2p2,420,330);
  139.         TextWrite("有りますか？ ",nO2p2,420,350);
  140.         TextWrite("③ ",nO2p2,10,10);
  141.     MovePic(nO2p2,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  142.         TextWrite("ここが ",nO2p3,20,20);
  143.         TextWrite("ちょっと ",nO2p3,20,40);
  144.         TextWrite("水虫で ",nO2p3,20,60);
  145.         TextWrite("④ ",nO2p3,10,370);
  146.     MovePic(nO2p3,0,0,600,400,nTp );,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  147.     MovePic(nendp,0,0,300,400,nTp,0,0,6,100 );
  148.     MovePic(nendp,300,0,300,400,nTp,300,0,7,100 );
  149.         del_me;
  150.     }
  151.   }
  152. }