home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / AVITEST.OPT < prev    next >
Text File  |  1995-05-08  |  6KB  |  288 lines
  1.  
  2. def(loci)
  3. def(locj)
  4. def(lock)
  5. def(locl)
  6. def(i)
  7. def(j)
  8. def(l)
  9. def(dummy)
  10.  
  11. defs(koord$)
  12. defs(dummy$)
  13.  
  14. defas(avitext$,110,100)
  15.  
  16. procedure frame(xl,yo,xr,yu,col,dick)
  17.  
  18.   rem ***  Erzeugt einen Rahmen m. den inneren Eckkoordinaten xl,yo,xr,yu
  19.   rem ***  und der Dicke 'dick'. Dabei wird bis zur halben Dicke
  20.   rem ***  des Rahmens jeder Linie fortlaufend ab der Farbe 'col' die
  21.   rem ***  jeweils folgende Farbe zugeordnet. Ab der halben Rahmendicke
  22.   rem ***  läuft die Farbzuordnung umgekehrt. Bei geeigneter Farbpalette
  23.   rem ***  kann so ein 'Rohrrahmen' erzeugt werden.
  24.   rem ***
  25.   rem ***  z.B.:  GRADATION(240,249,12,24,15,24,48,30)
  26.   rem ***         FRAME(100,100,200,200,240,20)
  27.   rem ***
  28.   rem ***  nach Rückkehr ist SETCOLOR und VIEWPORT verändert.
  29.  
  30.   locals(i,j)
  31.   viewport(xl,yo,xr,yu)
  32.   for i:=1 to dick/2 do
  33.     setcolor(col+i-1)
  34.     rectangle
  35.     incviewport
  36.   next(i)
  37.   if (dick/2)*2<>dick
  38.     incviewport
  39.   endif
  40.   for j:=1 to dick/2 do
  41.     setcolor(col+i-j)
  42.     rectangle
  43.     incviewport
  44.   next(j)
  45. return
  46.  
  47.  
  48. rem**************** procedure willi (Einzelbild) **********************
  49. rem*** "xi,yi" geben den Rasterindex des gewünschten Willi-Bildes an  *
  50. rem*** "xz,yz" geben die Ladeposition an, "v" ist ein WAIT-Faktor     *
  51. rem********************************************************************
  52. procedure willi(xi,yi,xz,yz,v)
  53.   readwin('willi.pcx')
  54.   keycol(243)
  55.   key(1)
  56.   viewport(xz,yz,xz+79,yz+96)
  57.   restorebox(0,0)
  58.   loadsprite((xi-1)*85,(yi-1)*97,xz,yz,86,94)
  59.   wait(v)
  60. return
  61.  
  62.  
  63.  
  64. rem**************** procedure willi1 (willi kommt von links) **********
  65. rem*** "x,y" bilden die Startkoordinaten, mit einer Bildfolge von "s" *
  66. rem*** und einer zeitverzögerung von "z" zwischen den Bildern.        *
  67. rem********************************************************************
  68. procedure willi1(y,s,l,z)
  69.   locals(j,k,n)
  70.   readsound('boing.wav')
  71.   readwin('willi.pcx')
  72.   scrtobuf
  73.   keycol(243)
  74.   startsound
  75.   soundloop(1)
  76.   key(1)
  77.  
  78.   k:=s
  79.   n:=k
  80.   do
  81.     for j:=0 TO 3 DO
  82.       pause(z)
  83.       viewport(0,y,xmax,y+100)
  84.       restorebox(0,0)
  85.       loadsprite(j*85,97,j*l+(n-k)*l*4,y,86,95)
  86.     next(j)
  87.   loop(k)
  88. return
  89.  
  90.  
  91. rem**************** procedure willi2 (willi kommt von rechts) **********
  92. rem*** "x,y" bilden die Startkoordinaten, mit einer Bildfolge von "s"  *
  93. rem*** und einer zeitverzögerung von "z" zwischen den Bildern.         *
  94. rem*********************************************************************
  95. procedure willi2(y,s,l,z)
  96.   locals(j,k,m,n)
  97.   readsound('boing.wav')
  98.   readwin('willi.pcx')
  99.   scrtobuf
  100.   keycol(243)
  101.   startsound
  102.   soundloop(1)
  103.   key(1)
  104.  
  105.   k:=s
  106.   n:=k
  107.   do
  108.     for j:=0 TO 3 DO
  109.       pause(z)
  110.       viewport(0,y,639,y+100)
  111.       restorebox(0,0)
  112.       loadsprite(j*85,0,540-j*l-(n-k)*l*4,y,86,96)
  113.     next(j)
  114.   loop(k)
  115. return
  116.  
  117.  
  118. rem**************** procedure willioa (willi hat keine Ahnung ???) **********
  119. procedure willioa(x,y,z,p)
  120.   locals(a)
  121.   readwin('willi.pcx')
  122.   keycol(243)
  123.   key(1)
  124.   restorebox(0,0)
  125.   if p = 1
  126.     loadsprite(0,386,x,y,86,95)
  127.   else
  128.     loadsprite(86,386,x,y,86,95)
  129.   endif
  130.   pause(z)
  131.   for a:=0 to 3 do
  132.     pause(z)
  133.     viewport(x,y,x+91,y+96)
  134.     restorebox(0,0)
  135.     loadsprite(170+(a*85),193,x,y,86,95)
  136.   next(a)
  137. return
  138.  
  139.  
  140. rem**************** procedure willil (willi zeigt nach links) **********
  141. procedure willil(x,y,z,o,p)
  142.   locals(a)
  143.   readwin('willi.pcx')
  144.   readsound('mama.snd')
  145.   keycol(243)
  146.   key(1)
  147.   restorebox(0,0)
  148.   if p = 1
  149.     loadsprite(0,386,x,y,86,95)
  150.   else
  151.     loadsprite(86,386,x,y,86,95)
  152.   endif
  153.   pause(z)
  154.   startsound
  155.   key(1)
  156.   for a:=0 to o do
  157.     viewport(x,y,x+91,y+96)
  158.     restorebox(0,0)
  159.     loadsprite(170+(a*86),289,x,y,86,95)
  160.     pause(z)
  161.   next(a)
  162.   key(0)
  163.   viewport(x,y,xmax,ymax)
  164. return
  165.  
  166.  
  167. rem**************** procedure willir (willi zeigt nach rechts) **********
  168. procedure willir(x,y,z,o,p)
  169.   locals(a)
  170.   readwin('willi.pcx')
  171.   readsound('mama.snd')
  172.   keycol(243)
  173.   key(1)
  174.   restorebox(0,0)
  175.   if p = 1
  176.     loadsprite(0,386,x,y,86,95)
  177.   else
  178.     loadsprite(86,386,x,y,86,95)
  179.   endif
  180.   pause(z)
  181.   startsound
  182.   for a:=0 to o do
  183.     viewport(x,y,x+91,y+96)
  184.     restorebox(0,0)
  185.     loadsprite(170+(a*85),385,x,y,86,96)
  186.     pause(z)
  187.   next(a)
  188.   key(0)
  189.   viewport(x,y,xmax,ymax)
  190. return
  191. rem*********************************************************************
  192.  
  193. begin
  194.  
  195.   new(avitext$)
  196.  
  197.   readtext('avi_msvc.txt',1,100)
  198.   initavi('race.avi')
  199.   setallpal
  200.   gradation(249,254,15,0,0,63,63,63)
  201.   setrgbcolor(63,50,0,254)
  202.  
  203.   clearscreen(6)
  204.   readfont(1,'zpf12x16.fnt')
  205.   font(1)
  206.   writestyle(3)
  207.   textshadow(0,0)
  208.   textcofs(1)
  209.   textlofs(-7)
  210.  
  211.   textcolor(215)
  212.   printat(10,2,'')
  213.   for i:=1 to linctr-1 do
  214.     println(avitext$[i])
  215.   next(i)
  216.   copywin(0,0,xmax,ymax)     **** 'Anti-Aliasing' ****
  217.   key(on)
  218.   keycol(201)
  219.   keycol(6)
  220.   loadwin(0,2,0,0)
  221.  
  222.   setcolor(232)
  223.   loadwin(0,1,16,0)
  224.  
  225.   viewport(1,1,xmax-1,ymax-1)
  226.   plateau(255,0)
  227.   frame(400,220,400+avix,245+aviy,249,14)
  228.   viewport(400,219,400+avix,245)
  229.   cbox(8,1,10)
  230.  
  231.   readfont(1,'tri22n.fnt')
  232.   font(1)
  233.   textcolor(254)
  234.   printc(400+avix/2,233,'*OPTIX-AVI*')
  235.  
  236.   repeat
  237.     startavi(400,247,1,1,0,1,1,0)
  238.   until keypressed<>0
  239.  
  240.   fullscreen(on)
  241.     initavi('race.avi')
  242.     setallpal
  243.     clearscreen(247)
  244.     viewport(45,15,avix+45,15+aviy)
  245.     cbox(8,154,0)
  246.     viewport(40,10,avix+40,10+aviy)
  247.     cbox(5,247,500)
  248.     plateau(255,0)
  249.     willi1(aviy-85,20,3,50)
  250.     soundloop(off)
  251.     willil(240,aviy-85,150,2,0)
  252.     pause(3000)
  253.     willi(2,5,240,aviy-85,2000)
  254.     willioa(235,aviy-85,150,0)
  255.     pause(1000)
  256.     willil(240,aviy-85,150,2,0)
  257.     pause(2000)
  258.     willi(2,5,240,aviy-85,1000)
  259.     willi(3,1,240,aviy-85,100)
  260.     willi(2,3,236,aviy-85,100)
  261.     willi(3,1,236,aviy-85,100)
  262.     readsound('klirr.snd')
  263.     startsound
  264.     willi(2,4,236,aviy-85,100)
  265.     willi(2,5,236,aviy-85,100)
  266.     copywin(0,0,320,200)
  267.     initavi('race.avi')
  268.     for i:=0 to 5 do
  269.       loadwin(2,2,0,0)
  270.       loadwin(0,0,0,0)
  271.     next(i)
  272.     setallpal
  273.     startavi(40,10,1,1,0,1,1,0)
  274.     willi(3,3,240,aviy-85,100)
  275.     repeat
  276.     until readkey=0
  277.     repeat
  278.       startavi(40,10,1,1,0,1,1,0)
  279.     until keypressed<>0
  280.     closeavi
  281.   fullscreen(off)
  282.  
  283. end
  284.  
  285.  
  286.  
  287.  
  288.