home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / wipe_one.amos / wipe_one.amosSourceCode
AMOS Source Code  |  2014-06-18  |  614b  |  33 lines
  1. '************************************* 
  2. '     Cool wipe screen to screen 
  3. '     -------------------------- 
  4. '
  5. '         By Malcolm Lavery
  6. '************************************* 
  7. '
  8. Screen Open 0,320,256,16,Lowres
  9. Flash Off 
  10. Load Iff "iff/sine",0
  11. Screen Open 1,320,256,16,Lowres
  12. Palette $0,$FFF
  13. Flash Off 
  14. Cls 0
  15. Do 
  16.    
  17.    WIPE[0,1]
  18.    
  19.    
  20. Loop 
  21. Procedure WIPE[SOURCE,DEST]
  22. TIMES=0
  23.    Dim DIS(31,25)
  24.    Repeat 
  25.       X=Rnd(31)
  26.       Y=Rnd(25)
  27.       If DIS(X,Y)=0
  28.          DIS(X,Y)=1
  29.          Screen Copy SOURCE,X*10,Y*10,X*10+10,Y*10+10 To DEST,X*10,Y*10
  30.          Inc TIMES
  31.       End If 
  32.    Until TIMES=832
  33. End Proc