Organic Chemistry (8th Edition)/Image.iso/pc/data1.cab/Program_Files/PC_IR_Tutor/Open/00002.ls

Text File | 2003-05-14 | 1.5 KB | 79 lines

on InitKeys
  global leftArrow, rightArrow, retnKey, useKeys, noKeysFlag
  if the machineType < 256 then
    set leftArrow to 123
    set rightArrow to 124
    set retnKey to 36
  else
    set leftArrow to 37
    set rightArrow to 39
    set retnKey to 10
  end if
  when keyDown then checkKey
  set noKeysFlag to 1
end

on checkKey
  global leftArrow, rightArrow, retnKey, useKeys, noKeysFlag
  if (useKeys = 1) or (noKeysFlag = 0) then
    exit
    dontPassEvent()
  end if
  if useKeys = 2 then
    if the keyCode = retnKey then
      when keyDown then nothing
      quit()
    else
      exit
      dontPassEvent()
    end if
  end if
  if (the keyCode = leftArrow) and (useKeys <> 3) then
    go(marker(-1))
  else
    if (the keyCode = rightArrow) and (useKeys <> 4) then
      go(marker(1))
    end if
  end if
  dontPassEvent()
end

on checkButton
  global useKeys, framePos, noKeysFlag
  set posH to the mouseH
  set posV to the mouseV
  if (posV > 465) or (posV < 440) or (posH > 605) or (posH < 262) then
    exit
  end if
  if (posH > 579) and (useKeys <> 4) then
    go(marker(1))
  end if
  if (posH > 534) and (posH < 560) and (useKeys <> 3) then
    go(marker(-1))
  end if
  if (posH > 459) and (posH < 500) then
    quit()
  end if
  if (posH > 384) and (posH < 425) then
    set framePos to the frame
    set noKeysFlag to 0
    go("Help")
    exit
  end if
  if posH < 350 then
    go("Main")
    exit
  end if
end

on goBack
  global framePos, noKeysFlag
  set noKeysFlag to 1
  go(framePos)
end

on setUseKeys theCode
  global useKeys
  set useKeys to theCode
end