What PC? 1996 August/WPCAUG96.ISO/reswaug.dxr/00012_RESEWordSwitch.ls

Text File | 1996-06-14 | 7.7 KB | 214 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
      wait(0.05)
      updateStage()
    end repeat
    wait(0.5)
    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()
    wait(0.5)
    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()
    wait(0.5)
    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 100
      set the locV of sprite getAt(getAt(RESHiLightList, t), 1) to 100
      startTimer()
      repeat while the timer < 30
      end repeat
      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 = 16 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, 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
          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
      repeat while (the mouseH < 455) and (the mouseH > 237) and (the mouseV < 376) and (the mouseV > 191)
        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
        updateStage()
        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
            next repeat
          end if
          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
            next repeat
          end if
          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/reshome.htm")
        end if
      end repeat
    end if
  end if
end