home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / assets / intro.dir / 00123_Script_hcheckdepth < prev    next >
Text File  |  1997-08-08  |  958b  |  51 lines
  1. -- ==================================================
  2. -- hcheckdepth
  3. -- --------------------------------------------------
  4. on hcheckdepth language
  5.   
  6.   if not ( the colordepth = 8 ) then
  7.     
  8.     if the machinetype = 256 then
  9.       
  10.       alert field ( "256" && language )
  11.       
  12. --      quit
  13.       
  14.     else
  15.       
  16.       set the colordepth = 8
  17.       
  18.     end if
  19.   end if
  20.   
  21.   set requiredk =  2.5  * 1000 
  22.   put "requiredk: " , requiredk
  23.   set gotk = the freeblock / 1024
  24.   put "gotk: " , gotk
  25.   
  26. --  if gotk < requiredk  then
  27. --    alert field ( "memory" && language )
  28. --    quit
  29. --  end if
  30.   
  31.   if not ( the quicktimepresent ) then
  32.     alert field ( "quicktime" && language )
  33.     quit
  34.   end if
  35.   
  36.   
  37. end hcheckdepth
  38.  
  39.  
  40. on setpoll
  41.   
  42.   global gpoll
  43.   
  44.   if the machinetype = 256 then
  45.     set gpoll = new ( script "antipoll class" )
  46.   else
  47.     set gpoll = new ( script "poll class" )
  48.   end if
  49.   
  50. end setpoll
  51.