home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.ISO01.iso / magazin / optix / disk1 / optxppac.set / PENNYFLY.OPT < prev    next >
Text File  |  1995-04-28  |  565b  |  37 lines
  1.  
  2. procedure dreh(x,y,r,v)
  3.   locals(i)
  4.   viewport(x,y,x+50,y+50)
  5.   if r=1
  6.     for i:=0 to 7 do
  7.       restorebox(0,0)
  8.       loadsprite(i*50,0,x,y,50,50)
  9.       pause(v)
  10.     next(i)
  11.   endif
  12.   if r=0
  13.     for i:=7 downto 0 do
  14.       restorebox(0,0)
  15.       loadsprite(i*50,0,x,y,50,50)
  16.       pause(v)
  17.     next(i)
  18.   endif
  19. return
  20.  
  21. begin
  22.  
  23.   clearscreen(100)
  24.   scrtobuf
  25.   readwin('pennies.tga')
  26.   setallpal
  27.  
  28.   keycol(184)
  29.   key(1)
  30.  
  31.   repeat
  32.     dreh(xmax/2-25,ymax/2-25,1,80)
  33.     dreh(xmax/2-25,ymax/2-25,0,80)
  34.   until mousek<>keypressed
  35.  
  36. end
  37.