What PC? 1996 November/WPCNOV96.ISO/reswnov.dxr/00012_RESEWordSwitch.ls

Text File | 1996-09-17 | 7.3 KB | 206 lines

on RESEWordSwitch
  global RESESwitch, ESprite, RESButtonCount, browserID, GTSWIN95, RESHiLightList
  if RESESwitch = 0 then
    repeat with t = 1 to 20
      if the castNum of sprite ESprite = 55 then
        set the castNum of sprite ESprite to 56
      else
        set the castNum of sprite ESprite to 55
      end if
      updateStage()
    end repeat
    set RESESwitch to 1
    set the castNum of sprite ESprite to 56
    repeat with t = 1 to 5
      set the castNum of sprite ESprite to the castNum of sprite ESprite + 1
      updateStage()
    end repeat
    set the locH of sprite 7 to the locH of sprite ESprite
    set the locV of sprite 7 to the locV of sprite ESprite
    updateStage()
    set the locH of sprite 5 to the locH of sprite ESprite
    set the locV of sprite 5 to the locV of sprite ESprite
    updateStage()
    set the locH of sprite 6 to the locH of sprite ESprite
    set the locV of sprite 6 to the locV of sprite ESprite
    updateStage()
    set the locH of sprite 8 to 100
    set the locV of sprite 8 to 100
    startTimer()
    repeat while the timer < 30
    end repeat
    updateStage()
    repeat with t = 1 to count(RESHiLightList)
      set the locH of sprite getAt(getAt(RESHiLightList, t), 1) to 450
      set the locV of sprite getAt(getAt(RESHiLightList, t), 1) to 400
      updateStage()
    end repeat
  end if
  if RESESwitch = 1 then
    set RESButtonCount to 1 + RESButtonCount
    if RESButtonCount = 6 then
      set RESButtonCount to 0
      if the castNum of sprite 4 = 65 then
        set the castNum of sprite 4 to 66
        set the locH of sprite 35 to 2000
        set the castNum of sprite 41 to 32
      else
        set the castNum of sprite 41 to 86
        set the castNum of sprite 4 to 65
        set the castNum of sprite 35 to 87
        set the locH of sprite 35 to 200
      end if
      updateStage()
    end if
    repeat with t = 1 to count(RESHiLightList)
      set FlashOrNot to getAt(getAt(RESHiLightList, t), 2)
      if FlashOrNot = 3 then
        set the locH of sprite 34 to getAt(getAt(RESHiLightList, t), 3)
        set the locV of sprite 34 to getAt(getAt(RESHiLightList, t), 4)
        setAt(getAt(RESHiLightList, t), 2, FlashOrNot + 1)
        next repeat
      end if
      if FlashOrNot = 6 then
        set the locH of sprite 34 to 2000
        setAt(getAt(RESHiLightList, t), 2, 0)
        next repeat
      end if
      setAt(getAt(RESHiLightList, t), 2, FlashOrNot + 1)
    end repeat
    repeat with t = 1 to count(RESHiLightList)
      if rollOver(getAt(getAt(RESHiLightList, t), 1)) then
        set the locH of sprite 34 to getAt(getAt(RESHiLightList, t), 3)
        set the locV of sprite 34 to getAt(getAt(RESHiLightList, t), 4)
        updateStage()
        repeat while rollOver(getAt(getAt(RESHiLightList, t), 1))
          if the mouseDown then
            open(the pathName & "AOLWYSE.EXE")
          end if
        end repeat
      end if
    end repeat
    if (the mouseH < 455) and (the mouseH > 237) and (the mouseV < 376) and (the mouseV > 191) and not rollOver(48) then
      if the mouseDown then
        if the machineType < 200 then
          set the castNum of sprite 36 to 71
          set the locH of sprite 36 to 235
          set the locV of sprite 36 to 232
          set RESNETUP to 0
          updateStage()
          repeat while 1
            if RESNETUP = 1 then
              if word the mouseWord of field 71 = "YES" then
                set RESThisword to the mouseWord
                set the foreColor of word RESThisword of field 71 to 164
                repeat while word the mouseWord of field 71 = "YES"
                  if the mouseDown then
                    set RESYesOrCancel to 1
                    exit repeat
                  end if
                end repeat
                set the foreColor of word RESThisword of field 71 to 255
              end if
              if word the mouseWord of field 71 = "NO" then
                set RESThisword to the mouseWord
                set the foreColor of word RESThisword of field 71 to 164
                repeat while word the mouseWord of field 71 = "NO"
                  if the mouseDown then
                    set RESYesOrCancel to 2
                    exit repeat
                    updateStage()
                  end if
                end repeat
                set the foreColor of word RESThisword of field 71 to 255
              end if
              if RESYesOrCancel > 0 then
                exit repeat
              else
                if (the mouseCast <> 71) and the mouseDown then
                  beep()
                end if
              end if
              next repeat
            end if
            if the mouseUp then
              set RESNETUP to 1
            end if
          end repeat
          set RESNETUP to 0
          if RESYesOrCancel = 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 69
            set the locH of sprite 36 to 235
            set the locV of sprite 36 to 261
            updateStage()
            repeat while the mouseDown
            end repeat
          end if
        else
          set the castNum of sprite 36 to 71
          set the locH of sprite 36 to 235
          set the locV of sprite 36 to 232
          set RESNETUP to 0
          updateStage()
          repeat while 1
            if RESNETUP = 1 then
              if word the mouseWord of field 71 = "YES" then
                set RESThisword to the mouseWord
                set the foreColor of word RESThisword of field 71 to 164
                repeat while word the mouseWord of field 71 = "YES"
                  if the mouseDown then
                    set RESYesOrCancel to 1
                    exit repeat
                  end if
                end repeat
                set the foreColor of word RESThisword of field 71 to 255
              end if
              if word the mouseWord of field 71 = "NO" then
                set RESThisword to the mouseWord
                set the foreColor of word RESThisword of field 71 to 164
                repeat while word the mouseWord of field 71 = "NO"
                  if the mouseDown then
                    set RESYesOrCancel to 2
                    exit repeat
                    updateStage()
                  end if
                end repeat
                set the foreColor of word RESThisword of field 71 to 255
              end if
              if RESYesOrCancel > 0 then
                exit repeat
              else
                if (the mouseCast <> 71) and the mouseDown then
                  beep()
                end if
              end if
              next repeat
            end if
            if the mouseUp then
              set RESNETUP to 1
            end if
          end repeat
          set RESNETUP to 0
          if RESYesOrCancel = 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 69
            set the locH of sprite 36 to 235
            set the locV of sprite 36 to 261
            updateStage()
            repeat while the mouseDown
            end repeat
            StartBrowser("HTML/res/resource.htm")
          end if
        end if
      end if
    end if
  end if
end