home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 July / VPR0007A.BIN / OLS / MAIKO / maiko.lzh / data / start.txt < prev    next >
Text File  |  2000-02-21  |  2KB  |  116 lines
  1. ;
  2. ;フラグの内容は次の通り
  3. ;000...ビールを飲むでクリア
  4. ;001...ビールを飲まないでクリア
  5. ;002...全問正解でクリア
  6. ;003...博多でクリア
  7. ;004...京都でクリア
  8. ;005...東京でクリア
  9. ;006...川崎でクリア
  10. ;007...クイズに出る。英語だめでクリア
  11. ;008...日本に帰るでクリア
  12. ;009...やくざにやられるでクリア
  13. ;010...中国へ行くでクリア
  14. ;011...英語を習得
  15. ;012...戦闘を修得
  16. ;013...英語を習得して、クイズに出る
  17. ;014...戦闘を修得して、やくざを殺す
  18. ;015...カーソルの自動移動がオンかどうか
  19. ;
  20. ;フルスクリーンになったとき、ちょっと時間がかかるので、そのぶん待つ。
  21. .wat 500
  22. ;コードを書きやすくするためにテキストモードを1にする。
  23. .tmd 1
  24.  
  25. ;「Ｋｕｒｉｍａ」ロゴの表示。半透明処理でフェードイン、フェードアウト
  26. .pic logo00 001011 10 170 195
  27. .wat 1000
  28. .pic base 001011 10 170 195 300 90
  29.  
  30. ;ホワイトアウト。
  31. .pic white 011010 1
  32. .wat 500
  33.  
  34. .pic off1 white
  35.  
  36. .let dsty1 = 0
  37. .let dsty2 = 476
  38.  
  39. ;最初のループ。上下から黒（ベースカラー）をはりつけ、映画みたいに。
  40. :loop1
  41. .pic off1 base 0 0 0 dsty1 640 4
  42. .pic off1 base 0 0 0 dsty2 640 4
  43.  
  44. .pic screen off1 0 8
  45.  
  46. .let dsty1 = dsty1 + 4
  47. .let dsty2 = dsty2 - 4
  48.  
  49. .cas dsty1
  50. .= 60
  51.     .jmp start next1
  52. .els
  53.     .jmp start loop1
  54. .
  55.  
  56. :next1
  57.  
  58. .pic michi256 021005 1 0 60 640 360 0 60
  59. .pic off2 michi256 0 1 0 60 640 360 0 60
  60. .pic off1 base 0 1
  61. .pic off1 off2 0 1 0 60 640 360 0 60
  62.  
  63. .let dstx = 640
  64.  
  65. ;次のループ。まいこが横から登場。
  66. :loop2
  67. .pic off1 off2 0 5 360 60 280 360 360 60
  68. .spr off1 maiko6 0 5 dstx 60 280 360 0 48
  69.  
  70. .pic screen off1 0 3 340 60 300 360 340 60
  71.  
  72. .let dstx = dstx - 4
  73.  
  74. .cas dstx
  75. .= 356
  76.     .jmp start next2
  77. .els
  78.     .jmp start loop2
  79. .
  80.  
  81. :next2
  82.  
  83.  
  84. .let dsty = 60
  85. .let dsth = 360
  86.  
  87. .pic off1 michi256
  88. .spr off1 maiko6 0 0 360 12
  89.  
  90. ;最後のループ。映画みたいになった画面を広げていく。
  91. :loop3
  92.  
  93. .pic screen off1 0 8 0 dsty 640 dsth 0 dsty 
  94.  
  95. .let dsty = dsty - 4
  96. .let dsth = dsth + 8
  97.  
  98. .cas dsty
  99. .= -4
  100.     .jmp start next3
  101. .els
  102.     .jmp start loop3
  103. .
  104.  
  105. :next3
  106.  
  107. ;ロゴや著作権の文字の画像を貼り付ける。
  108. .pic logo 021005
  109. .pic right 0 0 0 440
  110.  
  111. ;ミュージックすたーと。
  112. .mid jesus_christ.mid
  113.  
  114. ;クリック待ち。
  115. .clk
  116. .jmp select