What PC? 1996 July/WPCJUL96.ISO/file.exe/GESFINJ.DXR/00014_GESPCINFO.ls

Text File | 1996-05-15 | 5.3 KB | 117 lines

on GESPCINFO GESNum
  global GESPCTextList, GESMouseWordList, GESDesOnStage, GESLastText, GESTempWhichPic, GESPCTextListOne, GESWhichXplor, GESReturnIcon, GESBrown, GESGreen, GESThisDEScription
  repeat with d = 1 to count(GESPCTextListOne)
    set TempWhichNum to getAt(getAt(GESPCTextListOne, d), 1)
    set TempList to getAt(GESPCTextListOne, d)
    if (TempWhichNum = GESNum) and the mouseUp then
      set GESThisDEScription to TempWhichNum
      repeat while the mouseCast = TempWhichNum
        repeat with z = 2 to count(TempList)
          if (GESLastText = 0) or (GESLastText <> TempWhichNum) then
            set GESLastText to TempWhichNum
          end if
          if (getAt(getAt(TempList, z), 2) = 1) and (word the mouseWord of field GESNum <> getAt(getAt(TempList, z), 1)) then
            setAt(getAt(TempList, z), 2, 0)
            cursor(-1)
          end if
          set GESCurrentWord to word the mouseWord of field GESNum
          if GESCurrentWord = getAt(getAt(TempList, z), 1) then
            if getAt(getAt(TempList, z), 3) = 0 then
              setAt(getAt(TempList, z), 2, 1)
              cursor([48, 49])
              updateStage()
            end if
            if the mouseDown and (getAt(getAt(TempList, z), 3) = 0) then
              setAt(getAt(TempList, z), 3, 1)
              set the foreColor of word the mouseWord of field GESNum to GESGreen
              set TempWord to the mouseWord
              cursor(-1)
              repeat with s = 4 to count(getAt(TempList, z))
                set TemPListThree to getAt(TempList, z)
                if count(getAt(TemPListThree, s)) > 1 then
                  set the castNum of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 2)
                  set the locH of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 3)
                  set the locV of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 4)
                  set the ink of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 5)
                  next repeat
                end if
                set the locH of sprite getAt(getAt(TemPListThree, s), 1) to 2000
              end repeat
              updateStage()
              addAt(GESMouseWordList, count(GESMouseWordList) + 1, TempWord)
              set GESDesOnStage to 1
              if count(GESMouseWordList) > 1 then
                set the foreColor of word getAt(GESMouseWordList, 1) of field GESLastText to GESBrown
                updateStage()
                setAt(GESMouseWordList, 1, getAt(GESMouseWordList, 2))
                deleteAt(GESMouseWordList, 2)
                repeat with f = 2 to count(TempList)
                  if (getAt(getAt(TempList, f), 3) = 1) and (z <> f) then
                    setAt(getAt(TempList, f), 3, 0)
                  end if
                end repeat
              end if
            end if
          end if
        end repeat
      end repeat
    end if
    if getAt(TempList, 1) = GESThisDEScription then
      repeat with z = 2 to count(TempList)
        repeat with x = 5 to count(getAt(TempList, z))
          if count(getAt(getAt(TempList, z), x)) = 1 then
            set TempWhichPic to 0
            exit repeat
            next repeat
          end if
          if count(getAt(getAt(TempList, z), x)) = 6 then
            set GESTempWhichPic to getAt(getAt(TempList, z), x)
          end if
        end repeat
        if (the mouseCast = getAt(getAt(getAt(TempList, z), 4), 2)) and the mouseUp then
          repeat while the mouseCast = getAt(getAt(getAt(TempList, z), 4), 2)
            cursor([48, 49])
            if the mouseDown then
              set GESDesOnStage to 2
              set the locH of sprite getAt(getAt(getAt(TempList, z), 4), 1) to 2000
              repeat with x = 5 to count(getAt(TempList, z))
                if count(getAt(getAt(TempList, z), x)) > 1 then
                  set the locH of sprite getAt(getAt(getAt(TempList, z), x), 1) to 2000
                end if
              end repeat
              set the foreColor of word getAt(GESMouseWordList, 1) of field GESLastText to GESBrown
              repeat with f = 2 to count(TempList)
                if getAt(getAt(TempList, f), 3) = 1 then
                  setAt(getAt(TempList, f), 3, 0)
                end if
              end repeat
              updateStage()
              set GESMouseWordList to list()
            end if
          end repeat
          cursor(-1)
        end if
        if GESTempWhichPic <> 0 then
          if the mouseCast = getAt(GESTempWhichPic, 2) then
            set the castNum of sprite getAt(GESTempWhichPic, 1) to the castNum of sprite getAt(GESTempWhichPic, 1) + 1
            cursor([48, 49])
            updateStage()
            repeat while rollOver(22)
              if the mouseDown then
                set the castNum of sprite 36 to 257
                set the locH of sprite 36 to 517
                set the locV of sprite 36 to 392
                updateStage()
              end if
            end repeat
            set the locH of sprite 36 to 2000
            set the castNum of sprite getAt(GESTempWhichPic, 1) to the castNum of sprite getAt(GESTempWhichPic, 1) - 1
            cursor(-1)
            updateStage()
          end if
        end if
      end repeat
    end if
  end repeat
end