home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / EFFECTXT.OPT < prev    next >
Text File  |  1995-06-08  |  4KB  |  187 lines
  1.  
  2. def(br)
  3. def(col)
  4. def(flag)
  5. def(r)
  6. def(g)
  7. def(b)
  8. def(i)
  9. def(j)
  10. def(weiss,153)
  11. def(schwarz,0)
  12. def(tw)
  13. def(th)
  14. def(mx,10)
  15. def(my,386)
  16. def(my0,160)
  17. def(my1,240)
  18. def(my2,320)
  19. def(my3,400)
  20. def(bgcol,138)
  21. def(tcol)
  22. defs(dum$)
  23.  
  24.  
  25. begin
  26.  
  27.   tcol:=weiss
  28.   readfont(1,'tri22n.fnt')
  29.   font(1)
  30.  
  31.   readsound('loop.voc')
  32.   soundloop(on)
  33.   startsound
  34.   readpic('spo_sass.tga')
  35.   setallpal
  36.  
  37.   clearscreen(bgcol)
  38.   textbcolor(bgcol)
  39.   texttrnsp(0)
  40.  
  41.   dum$:='EFFEKT-TEXT - EINGABE'
  42.   editline(10,10,0,dum$)
  43.  
  44.   rem *** kann bei DOUBLE-BUFFER-     FADEOUT(1)
  45.   rem *** VGA's (gfls.VESA1.2) auch   CLEARSCREEN(0)
  46.   rem *** unsichtbar im Hinter-       ACTIVEPAGE(1)
  47.   rem *** grund ausgeführt werden     SETALLPAL
  48.  
  49.   clearscreen(bgcol)
  50.   texttrnsp(1)
  51.   textcofs(8)
  52.   texth(th)
  53.   textw(dum$,tw)
  54.   textcolor(tcol)
  55.   printat(mx,my0,dum$)
  56.   textcolor(weiss)
  57.   printat(mx,my1,dum$)
  58.   textcolor(schwarz)
  59.   printat(mx,my2,dum$)
  60.   font(0)
  61.   key(on)
  62.  
  63.   keycol(bgcol)
  64.   copywin(mx,my0,mx+tw,my0+th)     erste textmaske für verlauf
  65.   for i:=0 to 2 do
  66.     loadwin(mx+i,my0,0,0)          breite * 3
  67.   next(i)
  68.   copywin(mx,my0,mx+tw+2,my0+th)   zweite textmaske für verlauf
  69.   for j:=0 to 2 do
  70.     loadwin(mx,my0+j,0,0)          höhe   * 3
  71.   next(j)
  72.  
  73.   copywin(mx-2,my0+6,mx+tw+4,my0+th+12)  dritte textmaske auf stanze
  74.  
  75.   getrgbcolor(bgcol,r,g,b)         background-farbwerte holen
  76.   for i:=0 to 9 do
  77.     setrgbcolor(r,g,b,246+i)       Verlauf erstmal unsichtbar
  78.     viewport(mx,my3+i*5,xmax,my3+i*5+6)     im Hintergrund
  79.     cbox(0,246+i,0)
  80.   next(i)
  81.   keycol(tcol)
  82.   loadwin(mx,my3,0,0)              Stanze auf Verlauf legen
  83.  
  84.  
  85.   keycol(bgcol)
  86.   copywin(mx,my1,mx+tw,my1+th)     erste textmaske für weiß
  87.   for i:=0 to 6 do
  88.     loadwin(mx+i,my1,0,0)          breite * 7
  89.   next(i)
  90.   copywin(mx,my1,mx+tw+6,my1+th)   zweite textmaske für weiß
  91.   for j:=0 to 6 do
  92.     loadwin(mx,my1+j,0,0)          höhe   * 7
  93.   next(j)
  94.  
  95.  
  96.   copywin(mx,my2,mx+tw,my2+th)     erste textmaske für schwarz
  97.   for i:=0 to 4 do
  98.     loadwin(mx+i,my2,0,0)          breite * 5
  99.   next(i)
  100.   copywin(mx,my2,mx+tw+4,my2+th)   zweite textmaske für schwarz
  101.   for j:=0 to 4 do
  102.     loadwin(mx,my2+j,0,0)          höhe   * 5
  103.   next(j)
  104.  
  105.  
  106.   copywin(mx,my2,mx+tw+8,my2+th+4) textmaske für schwarzstanze
  107.   loadwin(mx+1,my1+2,0,0)          schwarz in zielweiß kopieren
  108.  
  109.   gradation(246,255,56,14,0,63,63,30)
  110.  
  111.   copywin(mx,my3,mx+tw,my3+th+6)   textmaske für buntstanze
  112.   loadwin(mx,my1+8,0,0)            bunt in ziel kopieren
  113.  
  114.   copywin(mx,my2+8,mx+tw+12,my2+th+8)
  115.   for i:=0 to 2 do
  116.     loadwin(mx+i,my2+8,0,0)        schattenbreite
  117.   next(i)
  118.   copywin(mx,my2+8,mx+tw+15,my2+th+8)
  119.   for j:=0 to 2 do
  120.     loadwin(mx,my2+8+j,0,0)        schattenhöhe
  121.   next(j)
  122.   viewport(mx,my2+5,mx+tw+16,my2+th+10)
  123.   cbox(9,bgcol,0)                  dunkel rastern
  124.  
  125.   gradation(236,245,6,6,6,56,56,56)
  126.   copywin(mx,my1+6,mx+tw+12,my1+th+12)     fertigen verlaufstext
  127.   loadwin(mx-6,my2+2,0,  0)                auf Schatten legen
  128.  
  129.   copywin(mx-6,my2-2,mx+tw+17,my2-2+th+10) komplett in WIN-Puffer kopieren
  130.  
  131.   activepage(0)
  132.   keycol(bgcol)
  133.   loadpic(1,0)
  134.  
  135.   setcolor(233)
  136.   setbcolor(0)
  137.   viewport(10,10,630,410)
  138.   cbox(9,0,0)
  139.   plateau(vcolor,bcolor)
  140.   setcolor(0)
  141.   setbcolor(233)
  142.   viewport(20,20,200,400)
  143.   cbox(9,222,0)
  144.   plateau(vcolor,bcolor)
  145.   viewport(10,420,630,470)
  146.   cbox(9,222,0)
  147.   plateau(vcolor,bcolor)
  148.   viewport(210,20,410,205)
  149.   restorebox(8,0)
  150.   viewport(420,20,620,205)
  151.   restorebox(8,0)
  152.   viewport(210,215,410,400)
  153.   restorebox(8,0)
  154.   viewport(420,215,620,400)
  155.   restorebox(8,0)
  156.   gradation(236,245,56,56,56,32,32,32)
  157.  
  158.   for i:= 0 to 60 do
  159.     viewport(20+i,430,20+i,460)
  160.     cbox(0,236+i/6,0)
  161.   next(i)
  162.  
  163.   viewport(20,430,80,460)
  164.   plateau(vcolor,bcolor)
  165.   decviewport
  166.   plateau(vcolor,bcolor)
  167.  
  168.   loadwin(320-winx/2,160,8,10)
  169.  
  170.   copywin(20,430,80,460)
  171.   sysfont(2,1)
  172.  
  173.   for i:= 1 to 8 do
  174.     loadwin(20+i*76-76,430,0,0)
  175.     str(i,1,dum$)
  176.     printat(20+i*76-26,432,dum$)
  177.   next(i)
  178.  
  179.   repeat
  180.     pause(50)
  181.     rotpal(255,236)
  182.   until mousek<>0
  183.  
  184. end
  185.  
  186.  
  187.