home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / DANISPRI.OPT < prev    next >
Text File  |  1995-05-02  |  3KB  |  99 lines
  1. rem
  2. rem  Dieser Intro-Text gilt nur bei Installation von Disk 2 / 'OPTXFREE'.
  3. rem  Bei Installation der OPTIX-Vollversion von Disk 1 ignorieren Sie
  4. rem  bitte diesen Text, den Sie dann in ähnlicher Form ja schon in der
  5. rem  Datei 'ASCANBE.OPT' kennengelernt haben.
  6. rem
  7. rem
  8. rem
  9. rem     ****  *****  ****** ** **   **        ***** ****  ***** *****
  10. rem    ****** ****** ****** ** **   **        ***** ** ** ***** *****
  11. rem    **  ** **  **   **   ** *** ***        **    ** ** **    **
  12. rem    **  ** **  **   **   **  *****   ****  ****  ****  ****  ****
  13. rem    **  ** ******   **   **  *****   ****  ****  ****  ****  ****
  14. rem    **  ** *****    **   ** *** ***        **    ** ** **    ***
  15. rem    ****** **       **   ** **   **        **    ** ** ***** *****
  16. rem     ****  **       **   ** **   **        **    ** ** ***** *****
  17. rem
  18. rem     (OPTIX-'FREE' bzw. die Demo-Disk 2 der Vollversion ist FREEWARE)
  19. rem
  20. rem
  21. rem               Drücken Sie bitte <F9> und starten Sie das
  22. rem               Demo-Programm. Weitere Demos können durch
  23. rem                   <Alt-D>+<Öffnen> geladen und dann
  24. rem                 ebenfalls durch <F9> gestartet werden.
  25. rem
  26. rem                  Weitere Hilfe finden Sie per <F1> bzw.,
  27. rem                 sobald der Cursor auf einem Befehlsnamen
  28. rem                    plaziert ist - durch <Ctrl/Strg-F1>.
  29. rem
  30. rem
  31. rem                 Beachten Sie bitte auch die Informations-
  32. rem           Dateien ('xxx.INF') in Ihrem OPTXFREE-Zielverzeichnis
  33. rem                         und die Datei 'READ_ME'.
  34. rem
  35. rem ************************************************************************
  36. def(i)
  37. def(j)
  38. def(k)
  39. def(r)
  40. def(g)
  41. def(b)
  42. begin
  43.   readfont(1,'hel15x29.fnt')
  44.   font(1)
  45.   textshadow(1,1)
  46.   textcolor(142)
  47.   textbcolor(0)
  48.   writestyle(3)
  49.   clearscreen(0)
  50.   fadeout(0)
  51.   readpic('plakat.tga')
  52.   loadpic(1,0)
  53.   fadein(1)
  54.   pause(2000)
  55.   readsound('ping.snd')
  56.   startsound
  57.   for i:=0 to 255 do
  58.     getrgbcolor(i,r,g,b)
  59.     setrgbcolor((r+g+b)/3,(r+g+b)/3,(r+g+b)/3,i)
  60.     pause(10)
  61.   next(i)
  62.   getpal
  63.   pause(2000)
  64.   startsound
  65.   for i:=10 to 20 do
  66.     pause(5)
  67.     setgamma(i)
  68.     setallpal
  69.   next(i)
  70.   pause(2000)
  71.   fadeout(1)
  72.   readpic('daniclip.tga')
  73.   loadpic(1,0)
  74.   copywin(0,0,639,479)
  75.   viewport(140,240,346,395)
  76.   cbox(8,122,50)
  77.   plateau(220,20)
  78.   fadein(1)
  79.   startsound
  80.   printc(244,358,'OPTIX MediaBase')
  81.   printc(244,380,'Sprite-Modus')
  82.   readsound('mama.snd')
  83.   startsound
  84.   repeat
  85.   until readkey=0
  86.   for k:=0 to 999 do
  87.     for i:=0 to 4 do
  88.      for j:=0 to 4 do
  89.       loadsprite(j*128+1,i*96+1,180,250,126,92)
  90.       pause(50)
  91.     next(j)
  92.    next(i)
  93.    if keypressed<>0
  94.      goto('exit')
  95.    endif
  96.   next(k)
  97. :exit
  98. end
  99.