home *** CD-ROM | disk | FTP | other *** search
/ Phoenix Heaven Sunny 2 / APPARE2.BIN / oh_towns / taropyon / gsplay / sample.kok < prev    next >
Text File  |  1995-06-20  |  5KB  |  171 lines
  1. /*************************************************************************
  2. /.V2            #KOK V2指定
  3. /*************************************************************************
  4.  
  5. /*------------------------------------------------------------------------
  6. /;writePage(0);    resolution(10)    #    640×480    16 colors
  7. /;writePage(1);    resolution(3)    #    320×240 32768 colors
  8.  
  9. /*------------------------------------------------------------------------
  10. /*    32768 colors screen
  11. /;writePage(0);
  12. /;box(0,0,319,239,0)
  13. /;let(i,0)
  14. /;do
  15. /;  let(y0,i*4)
  16. /;  let(col,31-i)
  17. /;  boxf(0,y0,319,y0+7,col)
  18. /;  let(i,i+1)
  19. /;repeat(32)
  20.  
  21. /;let(x,84);let(y,96)
  22. /;let(col ,(15<<10)+(15<<5)+15);
  23. /;let(col2,(31<<10)+(31<<5)+31);
  24. /;let(col3,(22<<10)+(22<<5)+22);
  25. /;fontstyle(BOLD,ITALIC,SHADOW)
  26. /;fontcolor(col,0)
  27. /;fontdirection(0,0,1)
  28. /;fontlocate(x,y+15)
  29. /;fontdisplay(PSET)
  30. /;text("32768 colors screen")
  31. /;chgcol(0,y+ 6,319,y+ 7,col,col3)
  32. /;chgcol(0,y+ 8,319,y+ 8,col,col2)
  33. /;chgcol(0,y+ 9,319,y+10,col,col3)
  34.  
  35. /*------------------------------------------------------------------------
  36. /*    16 colors screen
  37. /;writePage(1);
  38. /;let(C_BLACK,  0)
  39. /;let(C_BLUE ,  2);    palette(C_BLUE,0,0,176)
  40. /;let(C_P1,     3);    palette(C_P1  ,0,0,176)
  41. /;let(C_P2,    11);    palette(C_P2  ,0,0,0)
  42. /;let(C_P3,    12);    palette(C_P3  ,0,0,0)
  43. /;let(C_P4,    13);    palette(C_P4  ,0,0,0)
  44.  
  45. /;boxf(0,24,639,479-16, C_BLACK)
  46. /*------------------------------------------------------------------------
  47. /;palette(7  ,176,176,192)
  48. /;palette(8  , 96, 96,112)
  49. /;palette(8+6,192,192,208)
  50. /;palette(8+7,240,240,240)
  51. /;tifload("gsplay","sample.tif")
  52. /;let(gsplay_xs,455);let(gsplay_ys,25)
  53.  
  54. /*------------------------------------------------------------------------
  55. /;let(x0,320);let(y0,244)
  56.  
  57. /;let(y,y0);    let(yd,4<<4)
  58. /;do
  59. /;    line(0, y              , 639, y              ,C_P1)
  60. /;    line(0, y+((  yd>>2)>>4), 639, y+((  yd/4)>>4),C_P2)
  61. /;    line(0, y+((  yd>>1)>>4), 639, y+((  yd/2)>>4),C_P3)
  62. /;    line(0, y+((3*yd>>2)>>4), 639, y+((3*yd/4)>>4),C_P4)
  63. /;    let(y,y+(yd>>4));    let(yd,yd+yd/10)
  64. /;repeat(20)
  65.  
  66. /;line(0,y0,639,y0,C_BLUE)
  67. /;let(x,0);let(y,479-16);let(xd,32)
  68. /;do
  69. /;    line(x0, y0, x0-x, y, C_BLUE)
  70. /;    line(x0, y0, x0+x, y, C_BLUE)
  71. /;    let(x,x+xd);    let(xd,xd+2)
  72. /;repeat(11)
  73.  
  74. /;let(y,y0+9);    let(yd,4)
  75. /;do
  76. /;    line(x0, y0,   0, y, C_BLUE)
  77. /;    line(x0, y0, 639, y, C_BLUE)
  78. /;    let(y,y+yd);    let(yd,yd+1)
  79. /;repeat(17)
  80.  
  81. /*************************************************************************
  82. /*  演奏開始
  83. /*------------------------------------------------------------------------
  84. /;start
  85. /*************************************************************************
  86.  
  87. /;wait(32)
  88. /;let(tm,16)
  89. /;let(x1,(640-gsplay_xs)/2);let(x2,x1+gsplay_xs-1)
  90. /;let(y_start,y0-gsplay_ys-1);
  91. /;let(yd,y_start-32+1);    /* スクロールドット数    */
  92. /;let(i,0)
  93. /;let(y,y_start);            tifput("gsplay",x1,y,-1,-1)
  94. /;do
  95. /;    wait(2)
  96. /;    boxf(x1, y, x2, y+gsplay_ys-1, 0)
  97. /;    let(i,i+1)
  98. /;    let(y,y_start-i*yd/tm);    tifput("gsplay",x1,y,-1,-1)
  99. /;repeat(tm)
  100.  
  101. /;let(len,27)
  102. /;let(x1,630-(len+1)*8);let(x2,639-8);let(y,54)
  103. /;puts(x1,y,7,0,"Copyright (C) 1993, TaroPYON")
  104. /;chgcol(x1,y+6,x2,y+7,7,15)
  105. /;chgcol(x1,y+5,x2,y+5,7,14)
  106. /;chgcol(x1,y+8,x2,y+8,7,14)
  107.  
  108. /*************************************************************************
  109. /*    パレットアニメ
  110. /*************************************************************************
  111.  
  112. /;let(loops,101)
  113. /;let(wt,4)
  114. /;do
  115. /;    palette(C_P4,0,0,0);palette(C_P1,0,0,176);    wait(wt)
  116. /;    palette(C_P1,0,0,0);palette(C_P2,0,0,176);    wait(wt)
  117. /;    palette(C_P2,0,0,0);palette(C_P3,0,0,176);    wait(wt)
  118. /;    palette(C_P3,0,0,0);palette(C_P4,0,0,176);    wait(wt)
  119.  
  120. /;    palette(C_P4,0,0,0);palette(C_P1,0,0,176);    wait(wt)
  121. /;    palette(C_P1,0,0,0);palette(C_P2,0,0,176);    wait(wt)
  122. /;    palette(C_P2,0,0,0);palette(C_P3,0,0,176);    wait(wt)
  123. /;    palette(C_P3,0,0,0);palette(C_P4,0,0,176);    wait(wt)
  124. /;repeat(loops)
  125.  
  126. /*------------------------------------------------------------------------
  127. /;writePage(0)
  128. /;wait(-wt*8*loops)        #タイミングを戻す
  129.  
  130. /;wait(32*8)
  131. /;let(i,0)
  132. /;do
  133. /;  let(y0,i*4)
  134. /;  let(col,(31-i)*32*32)
  135. /;  boxf(0,y0,319,y0+7,col)
  136. /;  let(i,i+1)
  137. /;repeat(32)
  138.  
  139. /;wait(32*8)
  140. /;let(i,0)
  141. /;do
  142. /;  let(y0,i*4)
  143. /;  let(col,(31-i)*32)
  144. /;  boxf(0,y0,319,y0+7,col)
  145. /;  let(i,i+1)
  146. /;repeat(32)
  147.  
  148. /;wait(32*8)
  149. /;let(i,0)
  150. /;do
  151. /;  let(y0,i*4)
  152. /;  let(col,31-i)
  153. /;  boxf(0,y0,319,y0+7,col)
  154. /;  let(i,i+1)
  155. /;repeat(32)
  156.  
  157. /*------------------------------------------------------------------------
  158. /;writePage(1)
  159. /;let(y,24)
  160. /;let(col,0)
  161. /;do
  162. /;  let(y,y-1)
  163. /;  boxf(0,y,639,y,col)
  164. /;    wait(2)
  165. /;repeat(24)
  166. /;wait(16)
  167.  
  168. /*------------------------------------------------------------------------
  169.  
  170. /;end
  171.