home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / STRICHMA.OPT < prev    next >
Text File  |  1995-04-29  |  2KB  |  96 lines
  1. def(i)
  2. def(j)
  3. def(k)
  4. def(l)
  5. def(m)
  6. def(n)
  7. def(o)
  8. defs(mid$)
  9. defs(dum$)
  10.  
  11. begin
  12. readfont(1,'hel15x29.fnt')
  13. font(1)
  14. dum$:='OPTIX Media Base'
  15. readpic('strichm2.tga')
  16. setallpal
  17. gradation(100,204,12,12,12,55,55,55)
  18. clearscreen(7)
  19. loadwin(6,16,0,0)
  20. viewport(0,1,639,15)
  21. cbox(0,0,0)
  22. viewport(0,103,639,119)
  23. cbox(0,0,0)
  24. for i:=0 TO 630 STEP 10 DO
  25.   viewport(i+1,4,i+7,12)
  26.   cbox(0,7,0)
  27.   viewport(i+1,107,i+7,115)
  28.   cbox(0,7,0)
  29. next(i)
  30. for i:=0 TO 77 DO
  31.   viewport(6+i*8,400,6+i*8+6,470)
  32.   cbox(0,120+i,0)
  33.   plateau(255,0)
  34. next(i)
  35. textcofs(3)
  36. writestyle(3)
  37. textshadow(2,1)
  38. mid$:='Trickfilm-Technik (SPRITE-Modus)'
  39. textw(mid$,i)
  40. texth(j)
  41. for k:=290+i/2 TO 280-i/2 STEP -4 DO
  42.   viewport(k,414,k+3,455)
  43.   cbox(0,210-k/7,0)
  44. next(k)
  45. viewport(284-i/2-5,414,290+i/2+5,420+j+5)
  46. plateau(255,0)
  47. viewport(550,360,613,466)
  48. cbox(0,160,0)
  49. plateau(255,0)
  50. viewport(559,369,604,457)
  51. plateau(0,255)
  52. setcolor(0)
  53. printat(285-i/2,420,'Trickfilm-Technik (SPRITE-Modus)')
  54. setcolor(8)
  55. line(0,381,639,255,0)
  56. scrtobuf
  57. l:=5
  58. m:=100000
  59.  
  60. do
  61.   random(20,o)
  62.   textcolor(o)
  63.   k:=8
  64.   n:=k
  65.   do
  66.     for j:=0 TO 13 DO
  67.       if j<13
  68.         viewport(7+j*48,17,5+j*48+48,102)
  69.         cbox(13,0,0)
  70.       endif
  71.       pause(40)
  72.       viewport(j*l+(n-k)*l*14,300-j-(9-k)*14,9+j*l+(n-k)*l*14,386-j-(9-k)*14)
  73.       restorebox(0,0)
  74.       viewport(j*l+(n-k)*l*14,386-j-(9-k)*14,j*l+(n-k)*l*14+43,396-j-(9-k)*14)
  75.       restorebox(0,0)
  76.       loadsprite(j*48+2,1,10+j*l+(n-k)*l*14,300-j-(9-k)*14,43,86)
  77.       loadsprite((13-j)*48+2,1,560,370,43,86)
  78.       textbcolor(255)
  79.       writestyle(2)
  80.       if j<13
  81.         viewport(7+j*48,17,5+j*48+48,102)
  82.         cbox(13,0,0)
  83.       endif
  84.     next(j)
  85.   loop(k)
  86.   timeout('trickweiter',1)
  87.   goto('trickexit')
  88. :trickweiter
  89.   viewport(10+j*l+(n-k)*l*14,300-j-(9-k)*14,10+j*l+(n-k)*l*14+43,300-j-(9-k)*14+86)
  90.   restorebox(0,0)
  91. loop(m)
  92.  
  93. :trickexit
  94. end
  95.  
  96.