What PC? 1997 December/WPCDEC97.ISO/DXRS/INXWDEC.DXR/00019_CDXPressStartSearch.ls

Text File | 1997-10-13 | 5.1 KB | 103 lines

on CDXPressStartSearch
  global CDXProceed, CDXMasSearchList, IFLButtonList, IFLHeadInkList, PRODMasSearchList, CDXWhichIndex, WhichInxTopMenuList, CDXTopMenuList, PRODTopMenuList, CDXWhichTypesList, CDXtypenamesList, PRODtypenamesList, WhichINXtypenamesList, WhichINXfieldnamesList, CDXfieldnamesList, PRODfieldnamesList, WhichINXfieldlengthlist, CDXfieldlengthlist, PRODfieldlengthlist, WhichINXResFieldsList, CDXResFieldsList, PRODResFieldsList, ADMasSearchList
  repeat with t = 4 to 6
    if rollOver(t) then
      set the castNum of sprite t to the castNum of sprite t + 1
      updateStage()
      repeat while rollOver(t)
        if the mouseDown then
          set CDXProceed to 1
          exit repeat
        end if
      end repeat
      if CDXProceed = 1 then
        set CDXProceed to 0
        case t of
          4:
            repeat with f = 1 to count(CDXMasSearchList)
              set TwochangeSprite to getAt(CDXMasSearchList, f)
              if count(TwochangeSprite) > 2 then
                set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
                set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
                set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
                set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
                set the visible of sprite getAt(TwochangeSprite, 1) to 1
                next repeat
              end if
              set the locH of sprite getAt(TwochangeSprite, 1) to 2000
            end repeat
          5:
            repeat with f = 1 to count(PRODMasSearchList)
              set TwochangeSprite to getAt(PRODMasSearchList, f)
              if count(TwochangeSprite) > 2 then
                set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
                set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
                set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
                set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
                set the visible of sprite getAt(TwochangeSprite, 1) to 1
                next repeat
              end if
              set the locH of sprite getAt(TwochangeSprite, 1) to 2000
            end repeat
          6:
            repeat with f = 1 to count(ADMasSearchList)
              set TwochangeSprite to getAt(ADMasSearchList, f)
              if count(TwochangeSprite) > 2 then
                set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
                set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
                set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
                set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
                set the visible of sprite getAt(TwochangeSprite, 1) to 1
                next repeat
              end if
              set the locH of sprite getAt(TwochangeSprite, 1) to 2000
            end repeat
        end case
        repeat with f = 1 to count(IFLButtonList)
          set ThisTempList to getAt(IFLButtonList, f)
          setAt(getAt(IFLButtonList, f), 2, the castNum of sprite getAt(ThisTempList, 1))
          setAt(getAt(IFLButtonList, f), 3, the locH of sprite getAt(ThisTempList, 1))
          setAt(getAt(IFLButtonList, f), 4, the locV of sprite getAt(ThisTempList, 1))
        end repeat
        repeat with f = 1 to count(IFLHeadInkList)
          set InkTempList to getAt(IFLHeadInkList, f)
          setAt(InkTempList, 2, the ink of sprite getAt(ThisTempList, 1))
        end repeat
        repeat with f = 39 to 47
          set the locH of sprite f to 2000
        end repeat
        updateStage()
        case t of
          4:
            dbopensession()
            set CDXWhichIndex to 1
            set WhichInxTopMenuList to value(string(CDXTopMenuList))
            set WhichINXtypenamesList to value(string(CDXtypenamesList))
            set WhichINXfieldnamesList to value(string(CDXfieldnamesList))
            set WhichINXfieldlengthlist to value(string(CDXfieldlengthlist))
            set WhichINXResFieldsList to value(string(CDXResFieldsList))
            set CDXWhichTypesList to list()
            go("CDXStartFrame")
          5:
            dbopensession()
            set CDXWhichIndex to 2
            set WhichInxTopMenuList to value(string(PRODTopMenuList))
            set WhichINXtypenamesList to value(string(PRODtypenamesList))
            set WhichINXfieldnamesList to value(string(PRODfieldnamesList))
            set WhichINXfieldlengthlist to value(string(PRODfieldlengthlist))
            set WhichINXResFieldsList to value(string(PRODResFieldsList))
            set CDXWhichTypesList to list()
            go("PRODStartFrame")
          6:
            set CDXWhichIndex to 3
            go("ADStartFrame")
        end case
        exit repeat
        next repeat
      end if
      set the castNum of sprite t to the castNum of sprite t - 1
      updateStage()
    end if
  end repeat
end