MAN Special/MAN.iso/MAN/SHARED.DIR/01004_scriptPrincipal.ls

Text File | 1997-05-09 | 825 b | 50 lines

global gCurs, gMainCurs, gSep, gIsPC, gClick, opcion, ESPECIAL_TODAS, MEDIDA_TODAS

on startMovie
  clearGlobals()
  set ESPECIAL_TODAS to 0
  set MEDIDA_TODAS to 0
  if the machineType = 256 then
    set gIsPC to 1
    set gSep to "\"
  else
    set gIsPC to 0
    set gSep to ":"
  end if
  set gCurs to [the number of cast "curs_main", the number of cast "curs_mainMask"]
  set gMainCurs to -1
  preLoadCast(the number of cast "click")
  set gClick to the number of cast "click"
  preLoadCast(the number of cast "opcion")
  set opcion to the number of cast "opcion"
end

on clears
  clearGlobals()
end

on Salida
  quit()
  abort()
end

on cursorhand
  cursor(gCurs)
end

on cursormain
  cursor(gMainCurs)
end

on cursorBusy
  cursor(4)
end

on doClick
  puppetSound(1, gClick)
end

on opcion
  puppetSound(1, opcion)
end