home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk1
/
optxppac.set
/
EFFECTXT.OPT
< prev
next >
Wrap
Text File
|
1995-06-08
|
4KB
|
187 lines
def(br)
def(col)
def(flag)
def(r)
def(g)
def(b)
def(i)
def(j)
def(weiss,153)
def(schwarz,0)
def(tw)
def(th)
def(mx,10)
def(my,386)
def(my0,160)
def(my1,240)
def(my2,320)
def(my3,400)
def(bgcol,138)
def(tcol)
defs(dum$)
begin
tcol:=weiss
readfont(1,'tri22n.fnt')
font(1)
readsound('loop.voc')
soundloop(on)
startsound
readpic('spo_sass.tga')
setallpal
clearscreen(bgcol)
textbcolor(bgcol)
texttrnsp(0)
dum$:='EFFEKT-TEXT - EINGABE'
editline(10,10,0,dum$)
rem *** kann bei DOUBLE-BUFFER- FADEOUT(1)
rem *** VGA's (gfls.VESA1.2) auch CLEARSCREEN(0)
rem *** unsichtbar im Hinter- ACTIVEPAGE(1)
rem *** grund ausgeführt werden SETALLPAL
clearscreen(bgcol)
texttrnsp(1)
textcofs(8)
texth(th)
textw(dum$,tw)
textcolor(tcol)
printat(mx,my0,dum$)
textcolor(weiss)
printat(mx,my1,dum$)
textcolor(schwarz)
printat(mx,my2,dum$)
font(0)
key(on)
keycol(bgcol)
copywin(mx,my0,mx+tw,my0+th) erste textmaske für verlauf
for i:=0 to 2 do
loadwin(mx+i,my0,0,0) breite * 3
next(i)
copywin(mx,my0,mx+tw+2,my0+th) zweite textmaske für verlauf
for j:=0 to 2 do
loadwin(mx,my0+j,0,0) höhe * 3
next(j)
copywin(mx-2,my0+6,mx+tw+4,my0+th+12) dritte textmaske auf stanze
getrgbcolor(bgcol,r,g,b) background-farbwerte holen
for i:=0 to 9 do
setrgbcolor(r,g,b,246+i) Verlauf erstmal unsichtbar
viewport(mx,my3+i*5,xmax,my3+i*5+6) im Hintergrund
cbox(0,246+i,0)
next(i)
keycol(tcol)
loadwin(mx,my3,0,0) Stanze auf Verlauf legen
keycol(bgcol)
copywin(mx,my1,mx+tw,my1+th) erste textmaske für weiß
for i:=0 to 6 do
loadwin(mx+i,my1,0,0) breite * 7
next(i)
copywin(mx,my1,mx+tw+6,my1+th) zweite textmaske für weiß
for j:=0 to 6 do
loadwin(mx,my1+j,0,0) höhe * 7
next(j)
copywin(mx,my2,mx+tw,my2+th) erste textmaske für schwarz
for i:=0 to 4 do
loadwin(mx+i,my2,0,0) breite * 5
next(i)
copywin(mx,my2,mx+tw+4,my2+th) zweite textmaske für schwarz
for j:=0 to 4 do
loadwin(mx,my2+j,0,0) höhe * 5
next(j)
copywin(mx,my2,mx+tw+8,my2+th+4) textmaske für schwarzstanze
loadwin(mx+1,my1+2,0,0) schwarz in zielweiß kopieren
gradation(246,255,56,14,0,63,63,30)
copywin(mx,my3,mx+tw,my3+th+6) textmaske für buntstanze
loadwin(mx,my1+8,0,0) bunt in ziel kopieren
copywin(mx,my2+8,mx+tw+12,my2+th+8)
for i:=0 to 2 do
loadwin(mx+i,my2+8,0,0) schattenbreite
next(i)
copywin(mx,my2+8,mx+tw+15,my2+th+8)
for j:=0 to 2 do
loadwin(mx,my2+8+j,0,0) schattenhöhe
next(j)
viewport(mx,my2+5,mx+tw+16,my2+th+10)
cbox(9,bgcol,0) dunkel rastern
gradation(236,245,6,6,6,56,56,56)
copywin(mx,my1+6,mx+tw+12,my1+th+12) fertigen verlaufstext
loadwin(mx-6,my2+2,0, 0) auf Schatten legen
copywin(mx-6,my2-2,mx+tw+17,my2-2+th+10) komplett in WIN-Puffer kopieren
activepage(0)
keycol(bgcol)
loadpic(1,0)
setcolor(233)
setbcolor(0)
viewport(10,10,630,410)
cbox(9,0,0)
plateau(vcolor,bcolor)
setcolor(0)
setbcolor(233)
viewport(20,20,200,400)
cbox(9,222,0)
plateau(vcolor,bcolor)
viewport(10,420,630,470)
cbox(9,222,0)
plateau(vcolor,bcolor)
viewport(210,20,410,205)
restorebox(8,0)
viewport(420,20,620,205)
restorebox(8,0)
viewport(210,215,410,400)
restorebox(8,0)
viewport(420,215,620,400)
restorebox(8,0)
gradation(236,245,56,56,56,32,32,32)
for i:= 0 to 60 do
viewport(20+i,430,20+i,460)
cbox(0,236+i/6,0)
next(i)
viewport(20,430,80,460)
plateau(vcolor,bcolor)
decviewport
plateau(vcolor,bcolor)
loadwin(320-winx/2,160,8,10)
copywin(20,430,80,460)
sysfont(2,1)
for i:= 1 to 8 do
loadwin(20+i*76-76,430,0,0)
str(i,1,dum$)
printat(20+i*76-26,432,dum$)
next(i)
repeat
pause(50)
rotpal(255,236)
until mousek<>0
end