home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD137831142001.psc / intro / intro.ang < prev   
Encoding:
Text File  |  2001-01-09  |  11.5 KB  |  640 lines
  1.  
  2. gosub
  3. (speed adjust)
  4.  
  5. gosub
  6. (part one)
  7.  
  8. gosub
  9. (part two)
  10.  
  11. gosub
  12. (part three)
  13.  
  14. gosub
  15. (part four)
  16.  
  17. gosub
  18. (part five)
  19.  
  20. end
  21.  
  22.  
  23.  
  24.  
  25.  
  26. speed adjust
  27. background/gradient
  28. 255/200/200
  29. 255/240/230
  30. horz
  31.  
  32. fontsize
  33. 14
  34.  
  35. fontposition
  36. 10
  37. 10
  38.  
  39. fontcolor
  40. blue
  41.  
  42. writes
  43.  Before we start I should point out that the effects/transitions
  44. used in Angel Viewer utilize 2 different types of delays to control
  45. the transitions speed:
  46.  
  47. Timer and
  48. For/Next loops where faster rendering is needed.
  49.  
  50.  The For/Next loops unfortunately will render different
  51. speeds in different speed PCs. My PC is a 150 pentium. 
  52.  If you have a 500 or better the caricatures
  53. are liable to fly clear off the screen!
  54.  
  55. Consequently I have included a scroll bar to roughly
  56. adjust speeds as needed.
  57. endtext
  58.  
  59. specsofbutton
  60. 2
  61. none
  62. none
  63. none
  64. 255/200/200
  65. continue >
  66. yes
  67. 80
  68. 20
  69.  
  70. button
  71. (preface1)
  72. 2
  73. 450
  74. 400
  75.  
  76. stop
  77.  
  78.  
  79.  
  80.  
  81. preface1
  82. background/gradient
  83. 255/200/200
  84. 255/240/230
  85. horz
  86.  
  87. fontposition
  88. 10
  89. 10
  90.  
  91. writes
  92. Anytime you right click on the picture screen
  93. (not the actual scollbar),
  94. a scrollbar will toggle on and off.
  95. Default will be in the middle for a one value.
  96. This is the no change value.
  97. Lowering/Increasing will Slow/Speed up the transitions.
  98. Adjust this control now so that the following transition
  99. takes roughly one second between pictures. Then click
  100. continue. This can be done at anytime during presentation.
  101. Be sure
  102. to right click screen
  103. again to turn off
  104. scrollbar. 
  105. PS: Doubleclicking
  106. anytime
  107. on screen will exit 
  108. Angel Viewer.
  109. endtext
  110.  
  111. button
  112. (preface2)
  113. 2
  114. 450
  115. 400
  116.  
  117. wait
  118. 2
  119.             loop here
  120. showpicture/randomblocks1
  121. chapter 1\(1)picture1.gif
  122. 200
  123. 10
  124. 200
  125. 230
  126.  
  127. showpicture/randomblocks1
  128. chapter 1\(1)picture2.gif
  129. 200
  130. 10
  131. 200
  132. 230
  133.  
  134. goto
  135. (            loop here)
  136.  
  137.  
  138.  
  139. preface2
  140. background/gradient
  141. 255/200/200
  142. 255/240/230
  143. horz
  144.  
  145. fontposition
  146. 10
  147. 10
  148.  
  149. writes
  150. One more thing.
  151. Shift clicking the picture window
  152. will toggle a small debug window.
  153.  
  154.  This debug window shows the commands as they are
  155. executing. It is a very powerful tool in finding errors.
  156. It also has some options for setting a delay, in seconds,
  157. between commands. 
  158.   
  159.   This little window will get covered if a desktop background
  160. command is used. (Which, by the way, is the upcoming command)
  161. Simply shift click twice on the picture viewing screen
  162. (off then on) to bring it back up again.
  163. (If you so desire, of course)
  164.   Do this slowly else a double click exits Angel Viewer!
  165. endtext
  166.  
  167. wait
  168. 2
  169.  
  170. button
  171. (end of test)
  172. 2
  173. 450
  174. 400
  175.  
  176. stop
  177.  
  178. end of test
  179. return
  180.  
  181.  
  182.  
  183.  
  184.  
  185. *******************************************************
  186. Part One:                                             *
  187. Selects and plays the introductory melody.            *
  188. It also backgrounds to black and clears power button. *
  189. Leaves:                                               *
  190. mp2=Handel.mid                                        *
  191.                                                       *
  192. Part Two:                                             *
  193. Fits the main Sky Angel jpeg on hidden screen         *
  194. and stores it so as to show fitted image with random  *
  195. blocks2 transition.                                   *
  196.   Then the picture of text "Angel Viewer" is displayed*
  197. with a build right transition followed by several     *
  198. underline pictures with the build to vertical center  * 
  199. transition.                                           *
  200. Leaves:                                               *
  201. mp2=Handel.mid                                        *
  202. Stored1=screen with Sky Angel and "Angel Viewer"      *
  203. Stored2=black screen with "Angel Viewer"              *
  204. Stored3=black screen                                  *
  205.                                                       *
  206. Part Three:                                           *
  207. Dissolves the Sky Angel pix leaving the               *
  208. "Angel Viewer" txt/pix. The "Angel Viewer" is raised  *
  209. to the middle. The animation Christmas Angels is then *
  210. displayed.                                            *
  211.   The "Angel Viewer" txt/pix is the turned from white *
  212. to yellow and back a few times and some pretty starts *
  213. are shown.                                            *
  214.                                                       *
  215. Part Four:                                            *
  216. Shows the DeepSpace pix around existing pictures      *
  217. with random blocks 2 transition. It then moves the    *
  218. "Angel Viewer" txt/pix up to the top.                 *
  219.                                                       *
  220. Part Five:                                            *
  221. Spells out "A Presentation Program" with blocks.      *
  222. It does a couple transitions with it.                 *
  223. Shows a comet then ends with a button.                *
  224. *******************************************************
  225.  
  226.  
  227.  
  228.  
  229. ******************************************************
  230.  >  >  >  >  >  >  Start of Part One  <  <  <  <  <  < 
  231. ******************************************************
  232. Part one shows a little Cross then selects and plays 
  233. the introductory melody.
  234. It also sets backgrounds to black and clears power button.
  235. gigue.mid
  236. intro\Handel.mid
  237.  
  238. part one
  239. mediaplayer2
  240. getmedia
  241. intro\Handel.mid
  242.  
  243. volumemediaplayer2
  244. 2
  245.  
  246. nopowerbutton
  247.  
  248. background
  249. black
  250.  
  251. showpicture/at
  252. intro\Cross.gif
  253. 281
  254. 10
  255.  
  256. desktopbackground
  257. black
  258.  
  259. framebackground
  260. black
  261.  
  262. erasestore
  263. intro\Cross.gif
  264. stored1
  265. 0
  266. 0
  267.  
  268. mediaplayer2
  269. play
  270.  
  271. wait
  272. 4
  273.  
  274. showpicture/randomblocks2
  275. stored1
  276. 100
  277. 281
  278. 10
  279.  
  280. showpicture/laserhor
  281. intro\angel viewer for laser 2.GIF
  282. 0
  283. 100
  284. 10
  285. 10
  286. 500
  287. none
  288.  
  289. wait
  290. 2
  291.  
  292. bg
  293. black
  294.  
  295. showpicture/laserhor
  296. intro\angel viewer for laser 1.GIF
  297. 0
  298. 100
  299. 10
  300. 400
  301. 500
  302. none
  303.  
  304. wait
  305. 2
  306.  
  307. return
  308.  
  309.  
  310. ******************************************************
  311.  >  >  >  >  >  >  End of Part One  <  <  <  <  <  < 
  312. ******************************************************
  313.  
  314.  
  315.  
  316.  
  317.  
  318.  
  319.  
  320.  
  321. ******************************************************
  322.  >  >  >  >  >  >  Start of Part Two  <  <  <  <  <  < 
  323. ******************************************************
  324. Part two fits the main Sky Angel jpeg on hidden screen
  325. and stores it so as to show fitted image with random 
  326. blocks2 transition. 
  327.   Then the picture of text "Angel Viewer" is displayed
  328. with a build right transition followed by several 
  329. underline pictures with the build to vertical center 
  330. transition.
  331.  
  332.  
  333.  
  334. part two
  335. hide
  336.              --  hide, fit, store1,show, fx  --
  337. showpicture/fit
  338. intro\skyangel.jpg
  339.  
  340. store
  341. 1
  342.  
  343. background
  344. black
  345.  
  346. show
  347.  
  348. showpicture/randomblocks2
  349. stored1
  350. 2
  351. 0
  352. 0
  353. ...............  fx "Angel Viewer" transparent text .................
  354. showpicture/buildright.x
  355. intro\angel viewer1.gif
  356. 100
  357. 90
  358. 250
  359. *************** Start UnderLines fx ***************
  360. showpicture/buildtoverticalcenter
  361. intro\white line.gif
  362. 100
  363. 100
  364. 380
  365.            ...  UnderLines fx...
  366. showpicture/buildtoverticalcenter
  367. intro\pink line.gif
  368. 100
  369. 100
  370. 380
  371.            ...  UnderLines fx...
  372. showpicture/buildtoverticalcenter
  373. intro\white line.gif
  374. 100
  375. 100
  376. 380
  377.            ...  UnderLines fx...
  378. showpicture/buildtoverticalcenter
  379. intro\pink line.gif
  380. 100
  381. 100
  382. 380
  383.            ...  UnderLines fx...
  384. showpicture/buildtoverticalcenter
  385. intro\white line.gif
  386. 100
  387. 100
  388. 380
  389. *************** End of UnderLines fx ***************
  390. store
  391. 1
  392. *************** Start 'hid from view' ***************
  393. hide
  394.            Storing "Angel Viewer" txt/pix with blk bg
  395. background
  396. black
  397.  
  398. store
  399. 3
  400.  
  401. showpicture/at
  402. intro\angel viewer1.gif
  403. 90
  404. 250
  405.  
  406. store
  407. 2
  408.  
  409. showpicture
  410. stored1
  411.  
  412. show
  413. *************** End 'hid from view' ***************
  414. wait
  415. 2
  416.  
  417. return
  418.  
  419. ******************************************************
  420.  >  >  >  >  >  >  End of Part Two  <  <  <  <  <  < 
  421. ******************************************************
  422.  
  423.  
  424.  
  425.  
  426.  
  427. ******************************************************
  428.  >  >  >  >  >  >  Start of Part Three  <  <  <  <  <  
  429. ******************************************************
  430. Part three dissolves the Sky Angel pix leaving the
  431. "Angel Viewer" txt/pix. The "Angel Viewer" is raised
  432. to the middle. The animation Christmas Angels is then
  433. displayed.
  434.   The "Angel Viewer" txt/pix is the turned from white
  435. to yellow and back a few times and some pretty starts
  436. are shown.
  437.  
  438.  
  439.        **************Dissolve routine**************
  440. part three
  441. showpicture/dissolve
  442. stored2
  443. 150
  444. 0
  445. 0
  446.  
  447. wait
  448. 1
  449.       ******** "Angel Viewer" Go up to middle *************
  450. showpicture/move
  451. intro\angel viewer1.gif
  452. .05
  453. 20
  454. 90
  455. 250
  456. 90
  457. 100
  458. stored3
  459.  
  460. freestored
  461. all
  462.  
  463. wait
  464. 1
  465.       ------------ Start Animation "Angel Viewer" -------------
  466. showpicture/buildright
  467. intro\christmasangels1.GIF
  468. 100
  469. 200
  470. 300
  471.  
  472. animationplayerposition1
  473. 233
  474. 389
  475.  
  476. animationplayer1
  477. play
  478. intro\anm1.avi
  479.         ************show star 1 LEFT of Title***************
  480. showpicture/atandclear.x
  481. intro\star1.bmp
  482. .2
  483. 95
  484. 139
  485.  
  486. wait
  487. .5
  488.       ************show star 2 Right of Title***************
  489. showpicture/atandclear.x
  490. intro\star1.bmp
  491. .2
  492. 449
  493. 194
  494.  
  495. wait
  496. .5
  497.        ************show star 3 TOP of Title***************
  498. showpicture/atandclear.x
  499. intro\star1.bmp
  500. .2
  501. 365
  502. 129
  503.  
  504. wait
  505. .5
  506.       ************show star 4 Bottom of Title***************
  507. showpicture/atandclear.x
  508. intro\star1.bmp
  509. .2
  510. 178
  511. 234
  512.  
  513. wait
  514. .5
  515. *****Change "AngelViewer" from White to Yellow and back again****
  516. showpicture/buildright
  517. intro\angel viewer yellow.gif
  518. 50
  519. 90
  520. 100
  521.        ************show star 3 TOP of Title***************
  522. showpicture/atandclear.x
  523. intro\star1.bmp
  524. .2
  525. 365
  526. 129
  527.  
  528. showpicture/buildright
  529. intro\angel viewer1.gif
  530. 50
  531. 90
  532. 100
  533.       ************show star 4 Bottom of Title***************
  534. showpicture/atandclear.x
  535. intro\star1.bmp
  536. .2
  537. 178
  538. 234
  539.  
  540. showpicture/buildright
  541. intro\angel viewer yellow.gif
  542. 50
  543. 90
  544. 100
  545.         ************show star 1 LEFT of Title***************
  546. showpicture/atandclear.x
  547. intro\star1.bmp
  548. .2
  549. 95
  550. 139
  551.  
  552. showpicture/buildright
  553. intro\angel viewer1.gif
  554. 50
  555. 90
  556. 100
  557.        ************show star 3 TOP of Title***************
  558. showpicture/atandclear.x
  559. intro\star1.bmp
  560. .2
  561. 365
  562. 129
  563.  
  564. wait
  565. 2
  566.  
  567. return
  568.  
  569. ******************************************************
  570.  >  >  >  >  >  >  End of Part Three  <  <  <  <  <  < 
  571. ******************************************************
  572.  
  573.  
  574.  
  575.  
  576.  
  577. ******************************************************
  578.  >  >  >  >  >  >  Start of Part Four  <  <  <  <  <  
  579. ******************************************************
  580. Part four shows the DeepSpace pix around existing pictures 
  581. with random blocks 2 transition. It then moves the
  582. "Angel Viewer" txt/pix up to the top. 
  583.  
  584.  
  585.  
  586.            ace pix c2-e0ilP ofel View
  587.  
  588. nc*******************en hs00e***************
  589.  
  590. showpicture***** of th****owpicture*n ofel *******n ofel *******n ofel *******n ofel ******* ******show star 3 TOP of Title***************
  591. showpicture/atandclear.x
  592. intro\star1.bmp
  593. .2
  594. 365
  595. 129
  596.  
  597. wait
  598. 2
  599.  
  600. returna***spgelViet
  601. sntro\angel viewer yellrSGIF
  602. 100
  603. 200
  604. 3w
  605. rrrrrr365
  606. 129
  607.  
  608. wait
  609. 2
  610.  
  611. re *****>  
  612. showpicture/buildrig*** vieweStart terrrrr3bk
  613.  
  614. wai********
  615. showpictttte
  616. .2
  617. e*******************meds3*****n1mrrrrs th 1\ccwof s3altil.u25***ilddewer yy=i)1sshos  ace mngel -ttttmm**n ofel il.ue***************
  618. showpicture/atandclear.x
  619. intro\star1.bmp
  620. .2
  621. 365
  622. g1.bmp
  623. .2
  624. 365
  625. 129
  626.  
  627. showpicture/buildrighatandclear.x
  628. seds3*a/buil
  629. .intth random blocks
  630. .2
  631. e***de/bur.x
  632. s *******trbui3handclear.x
  633. seds3*a/buil
  634. . ** of Title***********9
  635.  
  636. waiil
  637. mage pictu*****
  638. showpViewer**9
  639.  
  640. waiil
  641. mage pictu*****
  642. showpViewer**9ight u 
  643. 129
  644.  
  645. wai  <oocks
  646. *************
  647. iewegl -er yy=i)1sshos  ace mngel -ttttmm**n ofet two)
  648.  
  649. gosub
  650. ***********icture/"Angb1e
  651.  
  652. .2
  653. ee.g