home *** CD-ROM | disk | FTP | other *** search
/ SKIP - The Laundry Guide / LEVER_CD.iso / lever / game.dir / 00008.ls < prev    next >
Encoding:
Text File  |  1997-04-08  |  859 b   |  36 lines
  1. on myNoEscape
  2.   if the keyCode = 53 then
  3.     dontPassEvent()
  4.     updateStage()
  5.     go("quitting")
  6.   end if
  7. end
  8.  
  9. on startMovie
  10.   global languagechosen, obj, running, CDROMdrive, brandnumber
  11.   set the exitLock to 1
  12.   set the keyDownScript to "myNoEscape"
  13.   sound stop 1
  14.   sound stop 2
  15.   set the name of castLib "English" to languagechosen
  16.   set the fileName of castLib languagechosen to the pathName & languagechosen & ".cst"
  17.   set the text of member "result" to "Default"
  18.   openXLib("widget")
  19.   set obj to widget(mnew)
  20.   set running to 0
  21.   set temp to string(brandnumber)
  22.   put obj(mWriteGameINI, temp)
  23.   set thebatchFileName to CDROMdrive & "\\max.pif"
  24.   set GameHandle to obj(mWinExec, 0, CDROMdrive)
  25.   go(the frame + 1)
  26. end
  27.  
  28. on stopMovie
  29.   puppetSprite(2, 0)
  30.   puppetSprite(4, 0)
  31.   puppetSprite(6, 0)
  32.   closeXLib("widget")
  33.   sound stop 1
  34.   sound stop 2
  35. end
  36.