home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / INTRODUC.OPT < prev    next >
Text File  |  1995-06-08  |  3KB  |  198 lines
  1.  
  2. def(i)
  3. def(j)
  4. def(k)
  5. def(l)
  6. def(x)
  7. def(y)
  8. def(xm)
  9. def(ym)
  10. defs(dum1$)
  11. defs(dum2$)
  12.  
  13. procedure namtxt(col)
  14.   wait(100)
  15.   setrgbcolor(0,0,0,col)
  16.   textcolor(col)
  17. return
  18.  
  19. procedure colblend(col)
  20.   locals(i)
  21.   for i:=0 to 50 do
  22.     setrgbcolor(i,0,i,col)
  23.     wait(20)
  24.   next(I)
  25. return
  26.  
  27. begin
  28.  
  29.   readfont(1,'tri22n.fnt')
  30.   font(1)
  31.   textcolor(155)
  32.   readpic('cmdmini.bmp')
  33.   setallpal
  34.  
  35.  
  36.   readsound('loop.voc')
  37.   soundloop(on)
  38.   startsound
  39.   setrgbcolor(0,0,63,180)
  40.   setcolor(180)
  41.   printc(320,105,'Computer Media Design')
  42.  
  43.   keycol(0)
  44.   key(on)
  45.   loadwin(260,0,20,0)
  46.   key(off)
  47.  
  48.   copywin(240,0,400,90)
  49.  
  50.   for i:=0 to 240 do
  51.     line(320-i,125,320+i,125,0)
  52.     pause(3)
  53.   next(I)
  54.  
  55.   namtxt(255)
  56.   printc(320,170,'Dipl.-Ing. Peter Klages')
  57.   colblend(255)
  58.  
  59.   namtxt(254)
  60.   printc(320,210,'Uwe Litzkendorf')
  61.   colblend(254)
  62.  
  63.   namtxt(253)
  64.   printc(320,250,'Stefan Rennspiess')
  65.   colblend(253)
  66.  
  67.   namtxt(252)
  68.   printc(320,290,'Dipl.-Des. Claus Arve')
  69.   colblend(252)
  70.  
  71.   namtxt(251)
  72.   printc(320,330,'Dipl.-Ing. Thomas Mönnich')
  73.   colblend(251)
  74.  
  75.   for i:=0 to 240 do
  76.     line(320-i,385,320+i,385,0)
  77.     pause(3)
  78.   next(I)
  79.  
  80.   wait(400)
  81.  
  82.   for i:=0 to 260 do
  83.     setcolor(180)
  84.     line(79,385-i,561,385-i,0)
  85.     setcolor(0)
  86.     line(79,386-i,561,386-i,0)
  87.     pause(8)
  88.   next(I)
  89.  
  90.   setcolor(0)
  91.   line(561,125,79,125,100)
  92.  
  93.   for i:=63 downto 0 do
  94.     setrgbcolor(i,i,i,155)
  95.     pause(10)
  96.   next(I)
  97.   setrgbcolor(0,0,46,155)
  98.  
  99.   setrgbcolor(0,0,0,248)
  100.   textcolor(248)
  101.   printc(320,135,'Special Thanks')
  102.  
  103.   for i:=0 to 63 do
  104.     setrgbcolor(0,0,i,248)
  105.     wait(8)
  106.   next(I)
  107.  
  108.   setrgbcolor(0,0,63,247)
  109.   setcolor(247)
  110.  
  111.   for i:=0 to 247 do
  112.     line(320-i,150,320+i,150,0)
  113.     pause(8)
  114.   next(I)
  115.  
  116.   wait(200)
  117.   namtxt(254)
  118.   printc(320,180,'Peter Fiedler (Ref.jur.)')
  119.   colblend(254)
  120.  
  121.   wait(200)
  122.   namtxt(253)
  123.   printc(320,230,'Peter Litzkendorf')
  124.   colblend(253)
  125.  
  126.   wait(200)
  127.   namtxt(252)
  128.   printc(320,280,'Ulrike Rennspiess')
  129.   colblend(252)
  130.  
  131.   wait(200)
  132.   namtxt(251)
  133.   printc(321,330,'Dipl.Inf. Michael Dieckmann')
  134.   colblend(251)
  135.  
  136.   wait(200)
  137.   namtxt(250)
  138.   printc(320,380,'Kordian Kulik')
  139.   colblend(250)
  140.  
  141.   wait(200)
  142.   namtxt(249)
  143.   printc(320,430,'Herbert Wolfslast')
  144.   colblend(249)
  145.  
  146.   for i:=0 to 247 do
  147.     line(320-i,458,320+i,458,0)
  148.     pause(8)
  149.   next(I)
  150.  
  151.   for i:=0 to 63 do
  152.     setrgbcolor(0,0,63-i,248)
  153.     wait(8)
  154.   next(i)
  155.   wait(700)
  156.  
  157.   for i:=0 to 308 do
  158.     setcolor(180)
  159.     line(72,458-i,568,458-i,0)
  160.     setcolor(0)
  161.     line(72,459-i,568,459-i,0)
  162.     pause(8)
  163.   next(I)
  164.  
  165.   setcolor(0)
  166.   line(568,150,72,150,100)
  167.  
  168.   copywin(240,0,400,90)
  169.  
  170.   clearscreen(0)
  171.   scrtobuf
  172.   viewport(0,0,639,479)
  173.   key(off)
  174.  
  175.   movebitmap(230,4,0,220,30,0,1)
  176.   movebitmap(0,220,120,350,20,0,1)
  177.   movebitmap(120,350,440,70,70,0,1)
  178.   movebitmap(440,70,350,0,20,0,1)
  179.   movebitmap(350,0,225,190,50,0,1)
  180.  
  181.   pause(1000)
  182.  
  183.   xm:=225
  184.   ym:=190
  185.   repeat
  186.   until readkey=0
  187.   repeat
  188.     random(xmax-winx,x)
  189.     random(ymax-winy,y)
  190.     random(30,i)
  191.     movebitmap(xm,ym,x,y,20+i,0,1)
  192.     xm:=x
  193.     ym:=y
  194.   until mousek<>keypressed
  195.  
  196.  
  197. end
  198.