PC go! 1996 January/Image.iso/pcgo/demo/lotus/lwp30.exe/lwp30.DXR/00061_scripts.ls

Text File | 1995-10-30 | 1.2 KB | 67 lines

global langCode, osCode, gStampCursor

on startMovie
  go(1)
  set gStampCursor to [the number of cast "stampCursor", the number of cast "stampMask"]
end

on setLangCursor c
  repeat with i = 3 to 7
    set the cursor of sprite i to c
  end repeat
end

on setAgreeCursor c
  repeat with i = 9 to 10
    set the cursor of sprite i to c
  end repeat
end

on setOSCursor c
  repeat with i = 11 to 12
    set the cursor of sprite i to c
  end repeat
end

on chooseLanguage lCode
  set langCode to lCode
  setLangCursor(0)
  go(lCode)
end

on agreeLicense
  setAgreeCursor(0)
  go("os")
end

on disagreeLicense
  quit()
end

on chooseOS os
  set osCode to os
  setOSCursor(0)
  set the cursor of sprite 14 to gStampCursor
  launchInstaller()
  go("launch")
end

on launchInstaller
  set fName to the pathName & "lwp" & osCode & langCode & "\install.exe"
  if the machineType = 256 then
    open(fName)
  end if
end

on checkRollovers firstSprite, lastSprite
  repeat with i = firstSprite to lastSprite
    if rollOver(i) and the mouseUp then
      set the castNum of sprite i to the castNum of sprite i + 20
      updateStage()
      repeat while rollOver(i) and the mouseUp
      end repeat
      exit repeat
    end if
  end repeat
end