home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / aga / aga080a.dms / in.adf / S / mainloop < prev    next >
Encoding:
Text File  |  1992-09-02  |  1.9 KB  |  60 lines
  1.  
  2. ;     Main Slideshow Controlling Loop - Doesn`t depend on Boot Disk.
  3. ;  Finally, it works on both 1 and 2 Drive systems, took loads of messing
  4. ;  around with "Assign" to do this !!! If you rip this script, mention
  5. ;  me and my group in your Credits/Greets okay ?
  6. ;  Music added (From "Heimdall") 1.1.93 (Happy New Year !!!)
  7.  
  8. ;                                                 Freak/The Management
  9. Lab MAIN
  10. ;--------------- Pictures from Disk 1 -----------------
  11.     Ram:PPShow TMSlide01D1:BAYWATCH.IFF.pp PAL TIME 40
  12.     Ram:PPShow TMSlide01D1:BLUEBIKINI.IFF.pp PAL TIME 40
  13.     Ram:PPShow TMSlide01D1:CINDY1.IFF.pp PAL TIME 40
  14.     Ram:PPShow TMSlide01D1:D-ABO.IFF.pp PAL TIME 40
  15.     Ram:PPShow TMSlide01D1:JuliaRoberts256.IFF.pp PAL TIME 40
  16. ;------------------------------------------------------
  17.     Assign >Nil: TMSlide01D2: REMOVE
  18.     Assign >Nil: TMSlide01D2: EXISTS
  19.     If WARN
  20.         Ram:PicShow Ram:D2.pic
  21.     Else
  22.         Skip FWD1
  23.     Endif
  24.     Lab FRED
  25.     Assign >Nil: TMSlide01D2: EXISTS
  26.     If WARN
  27.         Skip FRED BACK
  28.     Else
  29.         Ram:NoShow >Nil: D2.pic
  30.     Endif
  31.     Lab FWD1
  32. ;--------------- Pictures from Disk 2 -----------------
  33.     Ram:PPShow TMSlide01D2:MegRyan256.IFF.pp PAL TIME 40
  34.     Ram:PPShow TMSlide01D2:Crawford256.IFF.pp PAL TIME 40
  35.     Ram:PPShow TMSlide01D2:JAN.IFF.pp PAL TIME 40
  36.     Ram:PPShow TMSlide01D2:July89.IFF.pp PAL TIME 40
  37.     Ram:PPShow TMSlide01D2:Kinski.IFF.pp PAL TIME 40
  38.     Ram:PPShow TMSlide01D2:BUDGIRLS.IFF.pp PAL TIME 40
  39. ;------------------------------------------------------
  40.     Assign >Nil: Df1: EXISTS
  41.     If NOT WARN
  42.         Skip FWD2
  43.     Endif
  44.     Assign >Nil: TMSlide01D1: DISMOUNT
  45.     Assign >Nil: TMSlide01D1: EXISTS
  46.     If WARN
  47.         Ram:PicShow Ram:D1.pic
  48.     Else
  49.         Skip FWD2
  50.     Endif
  51.     Lab LOOP
  52.     Assign >Nil: TMSlide01D1: EXISTS
  53.     If WARN
  54.         Skip LOOP BACK
  55.     Else
  56.         Ram:NoShow >Nil: D1.pic
  57.     Endif
  58.     Lab FWD2
  59. Skip MAIN BACK
  60.