DIGIZINE 1/DIGIZINE.BIN/main/sony/discman.dir/00001_Script_1

Text File | 1995-09-24 | 2KB | 81 lines

--STARTMOVIE script

on STARTMOVIE
  global gRegCursor, gQTSoundChannel,gTimeAround

--  if not objectp(gRearWinObj) and the machineType <> 256 then
--    global gRearWinObj
--
--    openXlib "RearWindow.XObj"
--    if objectP( gRearWinObj ) then gRearWinObj( mDispose )
--    -- [ "M" indicates multiple monitors.]
--    set gRearWinObj= RearWindow( mNew, "M" )
--    set resultCode = value( gRearWinObj )
--    if resultCode < 0 then
--      alert "System Error trying to create the RearWindow" && string( resultCode )
--    end if
--
--    set resultCode = gRearWinObj( mPatToWindow,  -5 )
--    set resultCode = value( gRearWinObj )
--    if resultCode < 0 then
--      alert "System Error trying to create the RearWindow" && string( resultCode )
--    end if
--  end if


  cursor 4
  set gQTSoundChannel to 44
  set the movierate of sprite(gQTSoundChannel) = 0

  if the machineType = 256 then
    set the searchPath to [the pathName&"AUDIO",the pathName&"QTM"]
  else
    set the searchPath to [the pathName&"AUDIO",the pathName&"QTM"]
  end if

  set gTimeAround = false

  --pointer when over discman
  set Z = the number of cast "PointerCursor"
  set ZZ = the number of cast "PointerCursor" + 1
  set the cursor of sprite(7) to [Z,ZZ]

  CHECKMEM
  --  INITGLOBALS  --in the shared.DIR
  INITMOVIE
end



---------

on CHECKMEM
  if the freeBlock < (3.5 *1024) then
    alert "Not enough memory!"
    QUIT
    abort
  end if
end

--------

on SETCURSORS
  global gBusyCursor
  set the cursor of sprite 3 = gBusyCursor
end

--------

on FIRSTKARMIC
  go "firstkarmic"
  set the movietime of sprite(10) = 0
  set the movierate of sprite(10) = 1
end

--------

on SHOWKARMIC
  puppetsound 0
  go "koach"
end