home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / FFILLY / FTILE400 / HELP.TFY < prev    next >
Text File  |  1996-12-19  |  8KB  |  249 lines
  1. /*　ヘルプ関係　Ｔｏｆｆｙファイル　*/
  2.  
  3. helptitle(){
  4.     BackMode(1);
  5.     SetFont(36, "ＭＳ ゴシック",128,0,0,0,500);
  6.     TextColor(255,0,0);
  7.     TextWrite("ふらっとタイル　　ヘルプ",helppic,55,50);
  8.  
  9.     SetFont(16, "ＭＳ ゴシック",128,0,0,0,600);
  10.     TextColor(0,0,255);
  11.     TextWrite("１．タイルは平面に描いてありますが、実際は高さがあります",helppic,30,100);
  12.     TextWrite("２．タイルに書いてある数字は、積み重なっている段数です",helppic,30,130);
  13.     TextWrite("３．全てのタイルを１段以下にすれば、ステージクリアです",helppic,30,160);
  14.     TextWrite("４．タイルを落とした直後に限り、一手戻しができます",helppic,30,190);
  15.     TextWrite("５．遊んでいるステージに限り、セーブをすることができます",helppic,30,220);
  16. }
  17.  
  18. help(){            //ヘルプ
  19.     openwave();
  20.  
  21. /*
  22.     mes(TIME){        //ご意見､ご感想ブリンク
  23.         step(20){
  24.             MovePic(goikenpic,0,0,400,30,helppic,80,200);,
  25.             MovePic(helppic,0,230,400,30,helppic,80,200);
  26.         }
  27. */
  28.     mes(LBDOWN){
  29.         if((MesP2>90 && MesP3>260 && MesP2<150 && MesP3<280) && MesP1==(helpwinno)){
  30.             MovePic(bottunpic,59,114,59,19,helppic,90,260);
  31.             CapTitle("ふらっとマン　プロフィール");
  32.             profilewinno=OpenWin(helpprofilepic,80,80);
  33.             MovePic(bottunpic,0,114,59,19,helppic,90,260);
  34.             helpprofile();
  35.             del_us;
  36.         }
  37.         if((MesP2>180 && MesP3>260 && MesP2<240 && MesP3<280) && MesP1==(helpwinno)){
  38.             MovePic(bottunpic,59,57,59,19,helppic,180,260);
  39.             CapTitle("ふらっとタイル　Ver 4.00+　操作方法");
  40.             movewinno=OpenWin(helpmovepic,80,80);
  41.             MovePic(bottunpic,0,57,59,19,helppic,180,260);
  42.             helpmove();
  43.             del_us;
  44.         }
  45.         if((MesP2>270 && MesP3>260 && MesP2<330 && MesP3<280) && MesP1==(helpwinno)){
  46.             MovePic(bottunpic,59,95,59,19,helppic,270,260);
  47.             CapTitle("ふらっとタイル　Ver 4.00+　ルール");
  48.             rulewinno=OpenWin(helprulepic,80,80);
  49.             MovePic(bottunpic,0,95,59,19,helppic,270,260);
  50.             helprule();
  51.             del_us;
  52.         }
  53.         if((MesP2>360 && MesP3>260 && MesP2<420 && MesP3<280) && MesP1==(helpwinno)){
  54.             MovePic(bottunpic,59,0,59,19,helppic,360,260);
  55.             CapTitle("ふらっとタイル　Ver 4.00+　について");
  56.             aboutwinno=OpenWin(helpaboutpic,150,120);
  57.             MovePic(bottunpic,0,0,59,19,helppic,360,260);
  58.             helpabout();
  59.             del_us;
  60.         }
  61.         if((MesP2>450 && MesP3>260 && MesP2<510 && MesP3<280) && MesP1==(helpwinno)){
  62.             MovePic(bottunpic,59,38,59,19,helppic,450,260);
  63.             CloseWin(helpwinno);
  64.             closewave();
  65.             MovePic(bottunpic,0,38,59,19,helppic,450,260);
  66.             del_us;    del_me;
  67.         }
  68.     }
  69. }
  70.  
  71. helpprofiletitle(){
  72.     BackMode(1);
  73.     SetFont(30, "ＭＳ ゴシック",128,0,0,0,600);
  74.     TextColor(255,0,0);
  75.     TextWrite("ふらっとマン　プロフィール",helpprofilepic,70,20);
  76.     SetFont(12, "ＭＳ ゴシック",128,0,0,0,400);
  77.     TextColor(0,0,255);
  78.     TextWrite("私の名前はふらっとマン３号",helpprofilepic,10,85);
  79.     TextWrite("自慢のパンチ力でタイルを落とすのが趣味である",helpprofilepic,10,110);
  80.     TextWrite("ふらっとマン１号は回転に欠陥があったため廃棄処分になった",helpprofilepic,10,135);
  81.     TextWrite("ふらっとマン２号も人々に賞賛されなかったため廃棄処分になった",helpprofilepic,10,160);
  82.     TextWrite("ジャンプ力は一級品、どんな高いタイルでも登ることが出来る",helpprofilepic,10,185);
  83.     TextWrite("チャームポイントはタマネギのような頭である",helpprofilepic,10,210);
  84.     TextWrite("今後ともよろしくお願い申す・・・・",helpprofilepic,10,235);
  85.  
  86. }
  87.  
  88. helpprofile(){            //プロフィール
  89.     openwave();
  90.  
  91.     mes(LBDOWN){
  92.         if((MesP2>260 && MesP3>250 && MesP2<320 && MesP3<270) && MesP1==(profilewinno)){
  93.             MovePic(bottunpic,59,76,59,19,helpprofilepic,260,250);
  94.             CloseWin(profilewinno);
  95.             closewave();
  96.             MovePic(bottunpic,0,76,59,19,helpprofilepic,260,250);
  97.             del_me;
  98.         }
  99.     }
  100. }
  101.  
  102. helpmovetitle(){
  103.     int i;
  104.  
  105.     DrawLine(helpmovepic,40,90,40,225);
  106.     DrawLine(helpmovepic,40,225,175,225);
  107.     DrawLine(helpmovepic,175,225,175,90);
  108.     DrawLine(helpmovepic,175,90,40,90);
  109.     SetPaintColor(0x00ff00);
  110.     DrawRect(helpmovepic,40,135,175,150,0,0);
  111.     DrawRect(helpmovepic,115,90,130,225,0,0);
  112.     SetPaintColor(0xff00ff);
  113.     DrawRect(helpmovepic,115,135,130,150,0,0);
  114.  
  115.     BackMode(1);
  116.     SetFont(14, "ＭＳ ゴシック",0,0,0,0,600);
  117.     TextColor(0,0,255);
  118.     TextWrite("F",helpmovepic,120,136);
  119.  
  120.     SetLineSize(2);
  121.     SetPaintColor(0x000000);
  122.     DrawRect(helpmovepic,40,90,176,226,0,1);
  123.  
  124.  
  125.     SetLineSize(1);
  126.     for(i=1;i<=8;i=i+1){
  127.         SetLineSize(1);
  128.         DrawLine(helpmovepic,40+15*i,90,40+15*i,225);
  129.         DrawLine(helpmovepic,40,90+15*i,175,90+15*i);
  130.     }
  131.  
  132.     SetFont(24, "ＭＳ ゴシック",128,0,0,0,500);
  133.     TextColor(255,0,0);
  134.     TextWrite("ふらっとタイル　操作方法",helpmovepic,120,15);
  135.  
  136.     SetFont(15, "ＭＳ ゴシック",128,0,0,0,600);
  137.     TextColor(0,0,255);
  138.     TextWrite("１．下図の",helpmovepic,15,55);
  139.     TextColor(0,255,0);
  140.     TextWrite("緑色",helpmovepic,95,55);
  141.     TextColor(0,0,255);
  142.     TextWrite("の部分を",helpmovepic,127,55);
  143.     TextColor(255,0,255);
  144.     TextWrite("左クリック",helpmovepic,190,55);
  145.     TextColor(0,0,255);
  146.     TextWrite("すると、次のような動きをします",helpmovepic,270,55);
  147.     SetFont(14, "ＭＳ ゴシック",128,0,0,0,600);
  148.     TextWrite("・自分が向いている方向と同じならば",helpmovepic,210,110);
  149.     TextWrite("　１ステップずつ進みます",helpmovepic,210,130);
  150.  
  151.     TextWrite("・自分が向いている方向と違うならば",helpmovepic,210,170);
  152.     TextWrite("　その方向へ向きを変えます",helpmovepic,210,190);
  153.     SetFont(15, "ＭＳ ゴシック",128,0,0,0,600);
  154.     TextWrite("２．",helpmovepic,15,250);
  155.     TextColor(255,0,255);
  156.     TextWrite("右クリック",helpmovepic,45,250);
  157.     TextColor(0,0,255);
  158.     TextWrite("すると、タイルが移動します",helpmovepic,125,250);
  159. }
  160.  
  161. helpmove(){            //操作方法
  162.     openwave();
  163.  
  164.     mes(LBDOWN){
  165.         if((MesP2>450 && MesP3>240 && MesP2<510 && MesP3<260) && MesP1==(movewinno)){
  166.             MovePic(bottunpic,59,76,59,19,helpmovepic,450,240);
  167.             CloseWin(movewinno);
  168.             closewave();
  169.             MovePic(bottunpic,0,76,59,19,helpmovepic,450,240);
  170.             del_me;
  171.         }
  172.     }
  173. }
  174.  
  175. helpruletitle(){
  176.     BackMode(1);
  177.     SetFont(36, "ＭＳ ゴシック",128,0,0,0,500);
  178.     TextColor(255,0,0);
  179.     TextWrite("ふらっとタイル　　ルール",helprulepic,55,10);
  180.  
  181.     MovePic(rulepic,0,0,320,150,helprulepic,180,100);
  182.     MovePic(bottunpic,0,76,59,19,helprulepic,440,330);    //ルールＯＫボタン
  183.  
  184.     SetFont(12, "ＭＳ ゴシック",128,0,0,0,600);
  185.     TextColor(0,0,255);
  186.     TextWrite("ゲーム盤は真上から見た状態になっています",helprulepic,20,65);
  187.     TextWrite("ふらっとマンを右向きの状態で下図の　 まで動かします",helprulepic,20,80);
  188.     SetFont(12, "ＭＳ ゴシック",128,0,0,0,800);
  189.     TextColor(255,0,255);
  190.     TextWrite("→",helprulepic,245,80);
  191.  
  192.     SetFont(16, "ＭＳ ゴシック",128,0,0,0,600);
  193.     TextColor(0,0,0);
  194.     TextWrite("真上から見た状態",helprulepic,30,125);
  195.     TextWrite("正面から見た状態",helprulepic,30,210);
  196.  
  197.     SetFont(12, "ＭＳ ゴシック",128,0,0,0,600);
  198.     TextColor(0,0,255);
  199.     TextWrite("ここで右クリックすると、３段目のタイルが落ちます",helprulepic,20,250);
  200.     TextColor(255,0,0);
  201.     TextWrite("つまり、ふらっとマンの位置より１段高いタイルを落とすことが出来ます",helprulepic,20,265);
  202.     TextColor(0,0,255);
  203.     TextWrite("また、ふらっとマンはジャンプ力があるので、",helprulepic,20,285);
  204.     TextWrite("移動する時にはどのタイルにも乗ることが出来ます",helprulepic,20,300);
  205.     TextWrite("このようにして、全ての２段以上のタイルを落として、",helprulepic,20,320);
  206.     TextWrite("１段以下にすればステージクリアです",helprulepic,20,335);
  207. }
  208.  
  209. helprule(){            //ルール
  210.     openwave();
  211.  
  212.     mes(LBDOWN){
  213.         if((MesP2>440 && MesP3>330 && MesP2<500 && MesP3<350) && MesP1==(rulewinno)){
  214.             MovePic(bottunpic,59,76,59,19,helprulepic,440,330);
  215.             CloseWin(rulewinno);
  216.             closewave();
  217.             MovePic(bottunpic,0,76,59,19,helprulepic,440,330);
  218.             del_me;
  219.         }
  220.     }
  221. }
  222.  
  223.  
  224. helpabouttitle(){
  225.     SetFont(24, "ＭＳ ゴシック",128,0,0,0,500);
  226.     TextColor(255,0,0);
  227.     TextWrite("ふらっとタイル　Ver 4.00+",helpaboutpic,50,15);
  228.     SetFont(18, "ＭＳ ゴシック",128,0,0,0,600);
  229.     TextColor(0,0,255);
  230.     TextWrite("Filly  data  by  迎　　亮",helpaboutpic,55,55);
  231.     TextWrite("E-Mail:mxe05170@niftyserve.or.jp",helpaboutpic,16,85);
  232.     TextWrite("1996/12/22",helpaboutpic,240,115);
  233. }
  234.  
  235. helpabout(){            //ａｂｏｕｔ
  236.     openwave();
  237.  
  238.     mes(LBDOWN){
  239.         if((MesP2>150 && MesP3>150 && MesP2<210 && MesP3<170) && MesP1==(aboutwinno)){
  240.             MovePic(bottunpic,59,76,59,19,helpaboutpic,150,150);
  241.             CloseWin(aboutwinno);
  242.             closewave();
  243.             MovePic(bottunpic,0,76,59,19,helpaboutpic,150,150);
  244.             del_me;
  245.         }
  246.     }
  247. }
  248.  
  249.