home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk2
/
optxfpac.set
/
DANISPRI.OPT
< prev
next >
Wrap
Text File
|
1995-05-02
|
3KB
|
99 lines
rem
rem Dieser Intro-Text gilt nur bei Installation von Disk 2 / 'OPTXFREE'.
rem Bei Installation der OPTIX-Vollversion von Disk 1 ignorieren Sie
rem bitte diesen Text, den Sie dann in ähnlicher Form ja schon in der
rem Datei 'ASCANBE.OPT' kennengelernt haben.
rem
rem
rem
rem **** ***** ****** ** ** ** ***** **** ***** *****
rem ****** ****** ****** ** ** ** ***** ** ** ***** *****
rem ** ** ** ** ** ** *** *** ** ** ** ** **
rem ** ** ** ** ** ** ***** **** **** **** **** ****
rem ** ** ****** ** ** ***** **** **** **** **** ****
rem ** ** ***** ** ** *** *** ** ** ** ** ***
rem ****** ** ** ** ** ** ** ** ** ***** *****
rem **** ** ** ** ** ** ** ** ** ***** *****
rem
rem (OPTIX-'FREE' bzw. die Demo-Disk 2 der Vollversion ist FREEWARE)
rem
rem
rem Drücken Sie bitte <F9> und starten Sie das
rem Demo-Programm. Weitere Demos können durch
rem <Alt-D>+<Öffnen> geladen und dann
rem ebenfalls durch <F9> gestartet werden.
rem
rem Weitere Hilfe finden Sie per <F1> bzw.,
rem sobald der Cursor auf einem Befehlsnamen
rem plaziert ist - durch <Ctrl/Strg-F1>.
rem
rem
rem Beachten Sie bitte auch die Informations-
rem Dateien ('xxx.INF') in Ihrem OPTXFREE-Zielverzeichnis
rem und die Datei 'READ_ME'.
rem
rem ************************************************************************
def(i)
def(j)
def(k)
def(r)
def(g)
def(b)
begin
readfont(1,'hel15x29.fnt')
font(1)
textshadow(1,1)
textcolor(142)
textbcolor(0)
writestyle(3)
clearscreen(0)
fadeout(0)
readpic('plakat.tga')
loadpic(1,0)
fadein(1)
pause(2000)
readsound('ping.snd')
startsound
for i:=0 to 255 do
getrgbcolor(i,r,g,b)
setrgbcolor((r+g+b)/3,(r+g+b)/3,(r+g+b)/3,i)
pause(10)
next(i)
getpal
pause(2000)
startsound
for i:=10 to 20 do
pause(5)
setgamma(i)
setallpal
next(i)
pause(2000)
fadeout(1)
readpic('daniclip.tga')
loadpic(1,0)
copywin(0,0,639,479)
viewport(140,240,346,395)
cbox(8,122,50)
plateau(220,20)
fadein(1)
startsound
printc(244,358,'OPTIX MediaBase')
printc(244,380,'Sprite-Modus')
readsound('mama.snd')
startsound
repeat
until readkey=0
for k:=0 to 999 do
for i:=0 to 4 do
for j:=0 to 4 do
loadsprite(j*128+1,i*96+1,180,250,126,92)
pause(50)
next(j)
next(i)
if keypressed<>0
goto('exit')
endif
next(k)
:exit
end