What PC? 1996 September/WPCSEP96.ISO/hanw08f.dxr/00021_HANICONSwitch.ls

Text File | 1996-07-09 | 4.3 KB | 135 lines

on HANICONSwitch
  global HANIconsprite, HANIconTextsprite, HANCOuntIcon
  if HANCOuntIcon = 3 then
    set HANCOuntIcon to 0
    if the castNum of sprite HANIconsprite = 63 then
      set the castNum of sprite HANIconsprite to 49
    else
      set the castNum of sprite HANIconsprite to the castNum of sprite HANIconsprite + 1
    end if
    updateStage()
  else
    set HANCOuntIcon to 1 + HANCOuntIcon
  end if
  if rollOver(HANIconsprite) and the mouseDown then
    if the machineType < 200 then
      set the castNum of sprite 36 to 64
      set the locH of sprite 36 to 361
      set the locV of sprite 36 to 235
      set HANNETUP to 0
      updateStage()
      repeat while 1
        if HANNETUP = 1 then
          if word the mouseWord of field 64 = "YES" then
            set REFThisword to the mouseWord
            set the foreColor of word REFThisword of field 64 to 0
            repeat while word the mouseWord of field 64 = "YES"
              if the mouseDown then
                set REFYesOrCancel to 1
                exit repeat
              end if
            end repeat
            set the foreColor of word REFThisword of field 64 to 255
          end if
          if word the mouseWord of field 64 = "NO" then
            set REFThisword to the mouseWord
            set the foreColor of word REFThisword of field 64 to 0
            repeat while word the mouseWord of field 64 = "NO"
              if the mouseDown then
                set REFYesOrCancel to 2
                exit repeat
                updateStage()
              end if
            end repeat
            set the foreColor of word REFThisword of field 64 to 255
          end if
          if REFYesOrCancel > 0 then
            exit repeat
          else
            if (the mouseCast <> 64) and the mouseDown then
              beep()
            end if
          end if
          next repeat
        end if
        if the mouseUp then
          set HANNETUP to 1
        end if
      end repeat
      set HANNETUP to 0
      if REFYesOrCancel = 2 then
        set the locH of sprite 36 to 2000
        updateStage()
        repeat while the mouseDown
        end repeat
      else
        set the castNum of sprite 36 to 65
        set the locH of sprite 36 to 361
        set the locV of sprite 36 to 264
        updateStage()
        repeat while the mouseDown
        end repeat
      end if
    else
      set the castNum of sprite 36 to 64
      set the locH of sprite 36 to 361
      set the locV of sprite 36 to 235
      set HANNETUP to 0
      updateStage()
      repeat while 1
        if HANNETUP = 1 then
          if word the mouseWord of field 64 = "YES" then
            set REFThisword to the mouseWord
            set the foreColor of word REFThisword of field 64 to 0
            repeat while word the mouseWord of field 64 = "YES"
              if the mouseDown then
                set REFYesOrCancel to 1
                exit repeat
              end if
            end repeat
            set the foreColor of word REFThisword of field 64 to 255
          end if
          if word the mouseWord of field 64 = "NO" then
            set REFThisword to the mouseWord
            set the foreColor of word REFThisword of field 64 to 0
            repeat while word the mouseWord of field 64 = "NO"
              if the mouseDown then
                set REFYesOrCancel to 2
                exit repeat
                updateStage()
              end if
            end repeat
            set the foreColor of word REFThisword of field 64 to 255
          end if
          if REFYesOrCancel > 0 then
            exit repeat
          else
            if (the mouseCast <> 64) and the mouseDown then
              beep()
            end if
          end if
          next repeat
        end if
        if the mouseUp then
          set HANNETUP to 1
        end if
      end repeat
      set HANNETUP to 0
      if REFYesOrCancel = 2 then
        set the locH of sprite 36 to 2000
        updateStage()
        repeat while the mouseDown
        end repeat
      else
        set the castNum of sprite 36 to 65
        set the locH of sprite 36 to 361
        set the locV of sprite 36 to 264
        updateStage()
        repeat while the mouseDown
        end repeat
        StartBrowserAcrobat("acrofile\pcwpdf\pcwhelp.pdf")
      end if
    end if
  end if
end