home *** CD-ROM | disk | FTP | other *** search
/ <GEEK> 2 / GEEK2.ISO / pc / geekinit.dxr / 00002_main.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  782 b   |  35 lines
  1. global thisIsA_PC, screenDump
  2.  
  3. on startMovie
  4.   cursor(4)
  5.   set thisIsA_PC to 1
  6.   set the centerStage to 0
  7.   set the fixStageSize to 0
  8.   copyScreen()
  9. end
  10.  
  11. on copyScreen
  12.   set currScreenRect to getAt(the deskTopRectList, 1)
  13.   ScreenToMember(0, 0, getAt(currScreenRect, 3), getAt(currScreenRect, 4), 4)
  14.   set screenDump to the picture of member 4
  15. end
  16.  
  17. on startMain
  18.   set currScreenRect to getAt(the deskTopRectList, 1)
  19.   set screenWidth to getAt(currScreenRect, 3)
  20.   if screenWidth < 650 then
  21.     set initMovie to "Win14.DIR"
  22.   else
  23.     if screenWidth < 810 then
  24.       set initMovie to "Win15.DIR"
  25.     else
  26.       if screenWidth < 1030 then
  27.         set initMovie to "Win17.DIR"
  28.       else
  29.         set initMovie to "Win21.DIR"
  30.       end if
  31.     end if
  32.   end if
  33.   play movie initMovie
  34. end
  35.