home *** CD-ROM | disk | FTP | other *** search
/ Family Forum 256 / DR_BRAIN.BIN / START.DIR / 00001_Script_1 next >
Text File  |  1996-05-22  |  987b  |  31 lines
  1. on exitFrame  
  2.   -----------------------------------------------------------------------------
  3.   set rumple = the searchpath
  4.   set rump = getat(rumple , count( rumple ))
  5.   -----------------------------------------------------------------------------
  6.   
  7.   if the colorDepth <> 8 then
  8.     set ralert = "More Bugs in Boxes was designed to run in 256 colors." 
  9.     
  10.     alert ralert 
  11.     
  12.     if (the colorDepth < 8) then quit 
  13.     
  14.   end if 
  15.   
  16.   --set stoop =  fileio(mnew,"read",(rump&"ipl")) 
  17.   --if objectp(stoop) then  
  18.   --  stoop(mdispose) 
  19.   --else
  20.   --  alert "Please put the More Bugs in Boxes CD into your CD-Drive and try again."
  21.   --  quit
  22.   --end if
  23.   
  24.   -----------------------------------------------------------------------------
  25.   if the machinetype < 256 then
  26.     go movie (the Pathname&"bugs:ipl")
  27.   else
  28.     go movie (the Pathname&"bugs\ipl")    
  29.   end if
  30.   -----------------------------------------------------------------------------
  31. end