home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 2862a.dms / 2862a.adf / S / Mainloop < prev    next >
Encoding:
Text File  |  1992-09-02  |  2.8 KB  |  86 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.  
  7. ;  This one will load pics from "Fit Chicks II"
  8. ;                                                 Freak/The Management
  9. Lab MAIN
  10. ;--------------- Pictures from Disk 1 -----------------
  11.     Ram:PPShow FreeBabes01:YellowBikini.IFF.pp PAL TIME 30
  12.     Ram:PPShow FreeBabes01:Madonna.IFF.pp PAL TIME 30
  13.     Ram:PPShow FreeBabes01:LaidBackBabe.IFF.pp PAL TIME 30
  14.     Ram:PPShow FreeBabes01:ByThePool.IFF.pp PAL TIME 30
  15. ;------------------------------------------------------
  16.     Assign >Nil: FreeBabes02: REMOVE
  17.     Assign >Nil: FreeBabes02: EXISTS
  18.     If WARN
  19.         Ram:PicShow Ram:D2.pic
  20.     Else
  21.         Skip FWD1
  22.     Endif
  23.     Lab FRED
  24.     Assign >Nil: FreeBabes02: EXISTS
  25.     If WARN
  26.         Skip FRED BACK
  27.     Else
  28.         Ram:NoShow >Nil: D2.pic
  29.     Endif
  30.     Lab FWD1
  31. ;--------------- Pictures from Disk 2 -----------------
  32.     Ram:PPShow FreeBabes02:BlueDress.IFF.pp PAL TIME 30
  33.     Ram:PPShow FreeBabes02:FountainBabe.IFF.pp PAL TIME 30
  34.     Ram:PPShow FreeBabes02:RockPoolBabe.IFF.pp PAL TIME 30
  35.     Ram:PPShow FreeBabes02:SweatyBabe.IFF.pp PAL TIME 30
  36.     Ram:PPShow FreeBabes02:CornerBabe.IFF.pp PAL TIME 30
  37.     Ram:PPShow FreeBabes02:BoatBudGirls.IFF.pp PAL TIME 30
  38. ;------------------------------------------------------
  39.  
  40. ;   Check for 2nd slideshow disk 1
  41.  
  42.     Assign >Nil: FitChix2_D1: REMOVE
  43.     Assign >Nil: FitChix2_D1: EXISTS
  44.     If NOT WARN
  45.         Ram:PPShow FitChix2_D1:Bangles.IFF.pp PAL TIME 30
  46.         Ram:PPShow FitChix2_D1:DesertBabe.IFF.pp PAL TIME 30
  47.         Ram:PPShow FitChix2_D1:PaulaAbdul.IFF.pp PAL TIME 30
  48.         Ram:PPShow FitChix2_D1:SheetBabe.IFF.pp PAL TIME 30
  49.         Ram:PPShow FitChix2_D1:BoatBabe.IFF.pp PAL TIME 30
  50.     Endif
  51.  
  52. ;   Check for 2nd slideshow disk 2
  53.  
  54.     Assign >Nil: FitChix2_D2: REMOVE
  55.     Assign >Nil: FitChix2_D2: EXISTS
  56.     If NOT WARN
  57.         Ram:PPShow FitChix2_D2:GlumBabe.IFF.pp PAL TIME 30
  58.         Ram:PPShow FitChix2_D2:RockyShoreBabe.IFF.pp PAL TIME 30
  59.         Ram:PPShow FitChix2_D2:BedBabe.IFF.pp PAL TIME 30
  60.         Ram:PPShow FitChix2_D2:Alison.IFF.pp PAL TIME 30
  61.         Ram:PPShow FitChix2_D2:Stockings.IFF.pp PAL TIME 30
  62.         Ram:PPShow FitChix2_D2:BabeOnRug.IFF.pp PAL TIME 30
  63.     Endif
  64.  
  65.     Assign >Nil: Df1: EXISTS
  66.     If NOT WARN
  67.         Skip FWD2
  68.     Endif
  69.     Assign >Nil: FreeBabes01: DISMOUNT
  70.     Assign >Nil: FreeBabes01: EXISTS
  71.     If WARN
  72.         Ram:PicShow Ram:D1.pic
  73.     Else
  74.         Skip FWD2
  75.     Endif
  76.     Lab LOOP
  77.     Assign >Nil: FreeBabes01: EXISTS
  78.     If WARN
  79.         Skip LOOP BACK
  80.     Else
  81.         Ram:NoShow >Nil: D1.pic
  82.     Endif
  83.     Lab FWD2
  84.  
  85. Skip MAIN BACK
  86.