home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / BUTTONS.OPT < prev    next >
Text File  |  1995-05-05  |  970b  |  55 lines
  1.  
  2. def(i)
  3. def(j)
  4.  
  5. procedure pbutton(xl,yo,xr,yu,c1,c2)
  6.  
  7.   rem *** zeichnet 'durchsichtigen' Button.
  8.   rem *** 'xl,yo,xr,yu'  = äußere Button-Koordinaten
  9.   rem *** 'c1,c2'        = Farbe für 'Licht' und 'Schatten'
  10.  
  11.   locals(i,j)
  12.   viewport(xl,yo,xr,yu)
  13.   plateau(c1,c2)
  14.   for I:=0 to 3 do
  15.     decviewport
  16.     plateau(c1,c1)
  17.   next(i)
  18.   for I:=0 to 10 do
  19.     plateau(c1,c2)
  20.     for j:=0 to 2 do
  21.       decviewport
  22.     next(j)
  23.   next(i)
  24.   for I:=0 to 2 do
  25.     decviewport
  26.     plateau(c1,c2)
  27.   next(i)
  28.  
  29. return
  30.  
  31.  
  32. begin
  33.  
  34.   readpic('bgrounds.bmp')
  35.   setallpal
  36.   loadwin(0,43,0,0)
  37.  
  38.   for i:= 0 to 19 do
  39.     pause(300)
  40.     if i/2*2=i
  41.       pbutton(220,96,418,254,38,202)
  42.       for j:= 0 to 7 do
  43.         pbutton(6+j*80,444,6+j*80+68,475,202,33)
  44.       next(j)
  45.     else
  46.       pbutton(220,96,418,254,202,38)
  47.       for j:= 0 to 7 do
  48.         pbutton(6+j*80,444,6+j*80+68,475,33,202)
  49.       next(j)
  50.     endif
  51.   next(i)
  52.   pause(0)
  53.  
  54. end
  55.