home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / showitv1-0.amos / showitv1-0.amosSourceCode
AMOS Source Code  |  1993-01-08  |  2KB  |  68 lines
  1. Screen Open 0,320,256,16,Lowres
  2. Break Off 
  3. ' *         SHOWIT V1.0        * 
  4. ' *         06-10-1991         * 
  5. Curs Off : Cls 0 : Hide On 
  6. Unpack 9 To 0
  7. Wait 200 : Cls 0
  8. Do 
  9.    SOURCE$=":Pic/"
  10.    F$=Dir First$(SOURCE$)
  11.    F$=Left$(F$,30)-" "
  12.    While F$<>""
  13.    P=Rnd(3)
  14.       If P=0 Then CURTAIN
  15.       If P=1 Then ROLLER
  16.       If P=2 Then ROLLER
  17.       If P=3 Then DDRAW
  18.    Repeat : Until Mouse Key
  19.    F$=Dir Next$ : F$=Left$(F$,30)-" "
  20.    Wend 
  21. Loop 
  22. Procedure CURTAIN
  23.    Shared SOURCE$,F$,REZ
  24.    Load Iff SOURCE$+F$,2 : Screen Hide 2
  25.    Screen Open 1,Screen Width,Screen Height,Screen Colour,Lowres
  26.    Get Palette 2 : Screen 1 : Flash Off : Curs Off 
  27.    Appear 2 To 1,1 : Screen Close 2
  28. End Proc
  29. Procedure ROLLER
  30.    Shared REZ,SOURCE$,F$
  31.    Load Iff SOURCE$+F$,2 : Screen Hide 2
  32.    Screen Open 1,Screen Width,Screen Height,Screen Colour,Lowres
  33.    Screen 1 : Get Palette 2 : Flash Off : Hide 
  34.    Screen To Front 1 : B=40
  35.    Autoback 0
  36.    E=Rnd(2)
  37.       If E=0 Then R=Rev(2)
  38.       If E=1 Then R=Vrev(2)
  39.       If E=2 Then R=Hrev(2)
  40.    If Screen Height>200 Then ZZ=232 Else ZZ=176
  41.    For A=0 To ZZ
  42.       If A/2.2=Int(A/2.2) Then Dec B
  43.       Get Bob 2,1,0,A To 320,A+1
  44.       Get Bob 2,2,0,A+15 To 320,A+B
  45.       No Mask 
  46.       Paste Bob 1,A,1
  47.       Paste Bob 1,A+2,R
  48.    Next A
  49.    Screen Copy 2 To 1
  50.    Screen Close 2 : Erase 1
  51. End Proc
  52. Procedure DDRAW
  53.    Shared SOURCE$,F$
  54.    Load Iff SOURCE$+F$,2 : Screen Hide 2
  55.    Screen Open 1,Screen Width,Screen Height,Screen Colour,Lowres
  56.    Screen 1 : Get Palette 2 : Flash Off : Curs Off : Cls 0
  57.    If Screen Height>200 Then ZZ=255 Else ZZ=199
  58.    For A=0 To ZZ
  59.       Get Bob 2,A+1,0,A To 320,A+1
  60.    Next A : No Mask : Cls 0 : 
  61.    For A=1 To ZZ
  62.       Inc B
  63.       For C=B To ZZ+1 Step 5
  64.          Paste Bob 0,C,A
  65.       Next C
  66.    Next A
  67.    Erase 1 : Screen Close 2
  68. End Proc