home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 61 / CDRom61.iso / turmavea / CLIP.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-18  |  18.3 KB  |  267 lines
  1. FRM_CLIP
  2. CLIPIZINHOS
  3. Form15<
  4. IMG_MENU
  5. LB_LEGENDA
  6. MS Sans Serif
  7. IMG_PLAY
  8. IMG_MENUMUSICA
  9. IMG_FIM
  10. IMG_TELA
  11. IMG_STOP
  12. IMG_BOTCLIP
  13. FRAME
  14. TIME_SOUND
  15.     Form_Load
  16.     PLAY_CLIP
  17. sndPlaySound
  18. SOM_SOLDADO^
  19.     IMG_FRAME
  20. Picture
  21. WAIT_SECONDZ
  22. FRAMES
  23. SOM_CLIP
  24. IMG_TELA
  25. IMG_FUNDO_Click*
  26. IMG_TELA_Click:
  27. Image1_Click
  28. IMG_MENUMUSICA_CLICK
  29. FRM_CLIP
  30. IMG_MENUMUSICA_MouseMove
  31. Button
  32. Shift%
  33. IMG_MENUMUSICA
  34. MousePointerO
  35. IMG_FUNDO_MouseMovej
  36. SCREEN
  37.     MID_INTROH
  38. FRM_MAINH
  39. Timer1=
  40. Enabled0
  41. Interval
  42. CONTROL_SOUND
  43. RETORNO
  44.     IMG_FUNDOq
  45. IMG_PLAY_CLICK
  46. IMG_PLAY_MouseMove,
  47. IMG_PLAY
  48. IMG_STOP_Click
  49. IMG_STOP
  50. IMG_STOP_MouseMove
  51. IMG_MENU_Click
  52. IMG_FIM_Clicks
  53. ENCERRA_PROGRAMA
  54. IMG_FIM_MouseMove
  55. IMG_FIM
  56. IMG_MENU_MouseMove>
  57. IMG_MENU
  58. LIMPA_MENU
  59. DIR_TEMP
  60. LIMPA_BUFFERN
  61. SPRITE_SOLDADOo
  62. POSYz
  63. TEMPO
  64. LARG'
  65. COORD1
  66.     IMG_JOGOSi
  67. Leftw
  68. IMG_BMP
  69. IMG_MASK
  70. BMP_SPR_JOGOS
  71. MASK_SPR_JOGOS+
  72. WAIT    
  73. SPRITEBACK
  74.     BMP_JOGOS5
  75. MASK_JOGOS
  76. Width
  77. Height`
  78. QUADROSH
  79. IMG_SOLD
  80. BMP_SPR_SOLDADO
  81. MASK_SPR_SOLDADO
  82. MASK)
  83. BMP_SOLD
  84.     MASK_SOLD
  85. BMP_MAT
  86. MASK_MAT
  87. SPRITE:
  88. IMG_MAT
  89. LOAD_PICTURE
  90. COPY_MUSICA
  91. WAITSECOND
  92. CARREGA_TELA
  93. POS_ESQ
  94. POS_DIR=
  95. POS_UPy
  96. POS_LEFTB
  97. CLIPH
  98. POS_TOP
  99. IMG_SOLD_ClickT
  100. IMG_BOTCLIP
  101. BMP_SPR_SOLD2
  102. MASK_SPR_SOLD2
  103. BMP_SPR_FOGO
  104. MASK_SPR_FOGO
  105. BMP_SPR_BANDEIRA
  106. MASK_SPR_BANDEIRA
  107.     BMP_SOLD2
  108. MASK_SOLD2
  109. BMP_FOGO
  110.     MASK_FOGOm
  111. BMP_BANDEIRAw
  112. MASK_BANDEIRA
  113. SPRITE_BANDEIRA
  114. SPRITE_SOLD2
  115. SPRITE_FOGOi
  116. IMG_BOCA
  117. IMG_BANDEIRA
  118. IMG_FOGO
  119.     IMG_SOLD2
  120.     COPY_FILE
  121. MOUSE_MOVE
  122. SOM_MENU/
  123. IMG_TELA_MouseMove
  124. SOM_FIM
  125. SOM_MENUHIST
  126. SOM_MENU_MUSICA
  127. IMG_MENU_MUSICA
  128. IMG_BOTCLIP_ClickS    
  129. IMG_BOTCLIP_MouseMoveg    
  130. NUM_TELA
  131. FST_TELA
  132.     SEQUENCIA
  133. CLIP_CIRANDA
  134. CLIP_ESCRAVOS
  135. SOM_CD
  136.     CLIP_GATO
  137. CLIP_SOLDADO9    
  138. LB_LEGENDA&
  139. LETRA
  140. LEGENDAZ
  141. Caption
  142.     TIMESOUND-    
  143.     ForeColor
  144. BOT_CLIP
  145. DIR_ORIGEM~    
  146. LB_LEGENDA_Click
  147. PARAk
  148. EXITSUB
  149.     LIMPA_BMP
  150. Form_Activate
  151. FIM_CLIP
  152. Form_Unload
  153. Cancel
  154. Form_Deactivate
  155. VOLTA_MENU
  156. VOLTA
  157. IMG_MENU_MouseUp
  158. IMG_MENU_MouseDown
  159. ThenUnload
  160. SCRENN
  161. TOCANDO
  162. Integerr
  163. IMG_MENU_DISABLEDr    
  164. VISIBLED
  165. IMG_MENU_DISABLE_Click
  166. IMG_MENU_DISABLE
  167. Visible
  168. MENU_DIS
  169. SOM_PLAY
  170. SOM_PARA_M
  171. SOM_TOCA_M
  172. SOM_MUSICAS
  173. MUSICA
  174. FontSize
  175.     CLIP_PLAY
  176. DURACAO
  177. QUADRO
  178. CLIP_JO
  179. SOLDIER_CLIP
  180. CAT_CLIP
  181. CIRANDA_CLIPx
  182. Declara
  183. o das vari
  184. veis desse formul
  185. Declara
  186. o dos Sons4
  187. Dim SOM_MENU_MUSICA As String"
  188. Declara
  189. o dos Bitmaps utilizados na constru
  190. o da tela do clip)
  191. CAT_CLIP
  192. SEGUNDA VEZL
  193. CIRANDA_CLIP
  194. SEGUNDA VEZL
  195. Call CLIP_PLAY(1, 12, 0)
  196. CLIP_JO
  197. SEGUNDA VEZL
  198. CLIP_PLAY
  199. Form_Activate
  200. Inicializa o formul
  201. rio j
  202.  a primeira cena da m
  203. Form_Load
  204. Prepara o buffer dos clips
  205. Call COPY_FILE("\GAME01.MID")C
  206. \MUSICAS.WAV
  207. \TOCA_M.WAV
  208. \PARA_M.WAV
  209. \MENU.WAV
  210. \FIM.WAV
  211. Call COPY_FILE("\MUSICA.WAV")i
  212. Call COPY_MUSICA("\BOTCLIP3.BMP")B
  213. \MUSICAS.WAV
  214. \TOCA_M.WAV
  215. \PARA_M.WAV
  216. \MENU.WAV
  217. \FIM.WAV
  218. SOM_MENU_MUSICA = DIR_TEMP + "\MUSICA.WAV"
  219. \MUSICA\BOTCLIP2.BMP
  220. MENU_DIS = DIR_TEMP + "\BOTCLIP3.BMP" 
  221. Deve garantir que o bot
  222. o do menu esteja enabled
  223. Precisa evitar que seja tocada m
  224. sica nesse formul
  225. IMG_BOTCLIP_MouseMove
  226. IMG_FIM_Click
  227. Evita que continue passando o clip em outro formul
  228. FRM_MAIN.Timer1.Interval = 200
  229. IMG_FIM_MouseMove
  230. IMG_MENU_Click
  231. FRM_MAIN.Timer1.Interval = 200
  232. IMG_MENU_MouseMove
  233. IMG_MENUMUSICA_CLICK
  234. Evita que continue passando o clip em outro formul
  235. FRM_MAIN.Timer1.Interval = 200
  236. Retorna para a Galeria de M
  237. sicasA
  238. RETORNO = 1C
  239. IMG_MENUMUSICA_MouseMove
  240. IMG_PLAY_CLICK
  241. Desabilita os outros sons enquanto a m
  242. sica est
  243.  tocando
  244. Deve desabilitar o bot
  245. o do menu
  246. CIRANDA CIRANDINHA
  247. Call CLIP_CIRANDA
  248. PLAY = 0
  249. ESCRAVOS DE J
  250. Call CLIP_ESCRAVOS
  251. PLAY = 0
  252. MARCHA SOLDADO
  253. Call CLIP_SOLDADO
  254. PLAY = 0
  255. ATIREI O PAU NO GATO
  256. Call CLIP_GATO
  257. PLAY = 0
  258. FRM_MAIN.Timer1.Interval = 200
  259. IMG_PLAY_MouseMove
  260. IMG_STOP_Click
  261. Deve liberar o bot
  262. o de menu
  263. IMG_STOP_MouseMove
  264. IMG_TELA_MouseMove
  265. SOLDIER_CLIP
  266. SEGUNDA VEZL
  267.