home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.ISO01.iso / magazin / optix / disk1 / optxppac.set / PUZZL.OPT < prev    next >
Text File  |  1995-04-25  |  753b  |  45 lines
  1.  
  2. def(i)
  3. def(j)
  4. def(mausx)
  5. def(mausy)
  6.  
  7. begin
  8.  
  9.   gradation(0,255,0,0,0,1,1,1)
  10.   readpic('plakat.tga')
  11.   loadpic(1,0)
  12.  
  13.   copywin(0,0,638,478)
  14.   clearscreen(0)
  15.   setallpal
  16.  
  17.   for i:=0 to 7 do
  18.     for j:=0 to 7 do
  19.       loadwin(i*80,j*60,26,0)
  20.     next(j)
  21.   next(i)
  22.  
  23.   for i:=0 to 319 step 1 do
  24.     vrect(i,i*80/100,639-i,479-i*80/100)
  25.   next(i)
  26.   for i:=319 to 0 step -2 do
  27.     vrect(i,i*80/100,639-i,479-i*80/100)
  28.   next(i)
  29.  
  30.   sysfont(3,1)
  31.   printc(320,240,'Bitte Maustaste drücken')
  32.  
  33.   repeat
  34.     curson(mousex,mousey)
  35.     if mousek=1
  36.       mausx:=mousex/80
  37.       mausy:=mousey/60
  38.       cursoff
  39.       viewport(mausx*80,mausy*60,mausx*80+79,mausy*60+59)
  40.       restorebox(15,200)
  41.     endif
  42.   until mousek=2
  43.  
  44. end
  45.