home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / KACHEL.OPT < prev    next >
Text File  |  1995-05-05  |  3KB  |  130 lines
  1.  
  2. def(i)
  3. def(j)
  4. def(m)
  5. def(t)
  6. defs(dum1$)
  7. defs(dum2$)
  8.  
  9.  
  10. begin
  11.  
  12.   readfont(1,'hel15x29.fnt')
  13.   font(1)
  14.   textcofs(2)
  15.   textshadow(1,1)
  16.   writestyle(3)
  17.  
  18.   rem Transfer-Technik: 'Im Dunkeln läßt sich gut munkeln!'
  19.   rem ------------------------------------------------------------------
  20.   rem bei HD-Animation
  21.   rem
  22.   readpic('plakat.tga')            Vollbild in Hintergrundpuffer lesen
  23.   savepal('dummy.pal')             bei HD-Animationen Palette 'buffern'
  24.  
  25.   fadeout(0)                       ...ausfaden
  26.   getpal                           Hintergrund-Palette überschreiben
  27.   loadpic(0,0)                     Bild unsichtbar laden
  28.   copywin(0,0,xmax,ymax)           WIN-Copy anlegen
  29.   clearscreen(137)                 Screen wieder klar
  30.  
  31.   rem ------------------------------------------------------------------
  32.   rem Palette restaurieren
  33.   rem bei HD-Quelle:
  34.  
  35.       readpal('dummy.pal')
  36.  
  37.   rem
  38.   rem bzw. bei CD-Quelle stattdessen
  39.   rem (da ja dann keine 'PAL'ette gebuffert werden kann):
  40.   rem
  41.   rem readpic('plakat.tga')
  42.   rem ------------------------------------------------------------------
  43.  
  44.   setallpal
  45.   textcolor(205)
  46.   printc(320,20,'unendlich variable Backgroundgestaltung...')
  47.   printc(320,40,'(Abbruch durch beliebige Taste)')
  48.   viewport(75,55,xmax-75,ymax-55)
  49.   cbox(5,151,200)
  50.   plateau(228,17)
  51.   decviewport
  52.   plateau(228,17)
  53.  
  54.   repeat
  55.  
  56.     readsound('1234.snd')
  57.     startsound
  58.     random(winx-40,m)
  59.     random(winy-30,t)
  60.     for j:=60 to ymax-61 step 30 do
  61.       for i:=80 to xmax-81 step 40 do
  62.         loadsprite(m,t,i,j,40,30)
  63.       next(i)
  64.     next(j)
  65.  
  66.     readsound('blech.snd')
  67.     startsound
  68.     random(winx-80,m)
  69.     random(winy-60,t)
  70.     for j:=ymax-120+1 to 60 step -60 do
  71.       for i:=xmax-160+1 to 80 step -80 do
  72.         loadsprite(m,t,i,j,80,60)
  73.       next(i)
  74.     next(j)
  75.  
  76.   until mousek<>keypressed
  77.  
  78.   viewport(0,0,xmax,52)
  79.   cbox(8,137,20)
  80.   scrtobuf
  81.  
  82.   readpic('cmdmini.bmp')
  83.   setallpal
  84.   viewport(319-winx/2,240-winy/2,320+winx/2+20,240+winy/2+20)
  85.   cbox(9,0,0)
  86.   viewport(319-winx/2-10,240-winy/2-10,320+winx/2+10,240+winy/2+10)
  87.   cbox(8,0,0)
  88.   setcolor(255)
  89.   setbcolor(0)
  90.   rectangle
  91.  
  92.   viewport(319,240-winy/2-8,321,240+winy/2+8)
  93.   cbox(15,215,1000)
  94.  
  95.   readsound('huii.snd')
  96.   startsound
  97.   for i:=0 to winx/2-1 step 6 do
  98.     loadsprite(0,0,319-i-1,240-winy/2,i+1,winy)
  99.     loadsprite(winx-i,0,323,240-winy/2,i+1,winy)
  100.   next(i)
  101.  
  102.   cbox(15,0,1000)
  103.   font(0)
  104.   sysfont(3,1)
  105.   setcolor(155)
  106.   printc(320,320,'COMPUTER MEDIA DESIGN')
  107.   copywin(230,310,410,330)
  108.   for i:=0 to winx do
  109.     loadsprite(i,0,190+i*100/68,310,2,winy)
  110.   next(i)
  111.  
  112.   readpic('cmdmini.bmp')
  113.   copywin(320-winx/2-11,240-winy/2-8,320+winx/2+11,240+winy/2+8)
  114.   pause(1000)
  115.   cbox(15,215,1000)
  116.  
  117.   for i:=0 to winx/2+10 step 4 do
  118.     loadsprite(0,0,319-winx/2+i,240-winy/2,winx/2-i,winy)
  119.     viewport(319-winx/2,240-winy/2-2,319-winx/2+i+1,240+winy/2+2)
  120.     restorebox(0,0)
  121.     loadsprite(winx/2+1+i,0,322,240-winy/2,winx/2-i,winy)
  122.     viewport(321+winx/2-i-1,240-winy/2-2,321+winx/2,240+winy/2+2)
  123.     restorebox(0,0)
  124.   next(i)
  125.  
  126.   pause(1000)
  127.   fadeout(1)
  128.  
  129. end
  130.