home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1998 February / PCWFEB98.ISO / DXRS / RVXPCW02.DXR / 00007_RVXWhichInputBoxes.ls < prev    next >
Encoding:
Text File  |  1997-12-02  |  13.3 KB  |  275 lines
  1. on RVXWhichInputBoxes thisdropbox
  2.   global RVXWhichInputList, RVXDrpMenuList, RVXRememberlist, RVXRememberNamelist, RVXRememberSeltextList, RVXTwoRememberSeltextList, RVXTwoRememberNamelist, RVXTwoRememberlist, RVXOptionSprite
  3.   set alreadyHere to 0
  4.   repeat with t = 1 to count(RVXWhichInputList)
  5.     if getAt(getAt(RVXWhichInputList, t), 1) = 7 then
  6.       set alreadyHere to 1
  7.       set thisPos to t
  8.       exit repeat
  9.     end if
  10.   end repeat
  11.   case alreadyHere of
  12.     0:
  13.       set AllFilled to 1
  14.       repeat with C = 1 to 3
  15.         if (the locH of sprite getAt(getAt(RVXDrpMenuList, C), 11) <> getAt(getAt(RVXDrpMenuList, C), 13)) or (field getAt(getAt(RVXDrpMenuList, C), 12) = EMPTY) then
  16.           set AllFilled to 0
  17.           exit repeat
  18.         end if
  19.       end repeat
  20.       case AllFilled of
  21.         0:
  22.         1:
  23.           addAt(RVXWhichInputList, count(RVXWhichInputList) + 1, [7, 1])
  24.           set the member of sprite 7 to member "RVXANDORYelloW"
  25.           set the member of sprite RVXOptionSprite to member "RVXOption"
  26.           set the loc of sprite RVXOptionSprite to point(326, 174)
  27.           set the ink of sprite RVXOptionSprite to 36
  28.           updateStage()
  29.       end case
  30.     1:
  31.       set AllFilled to 1
  32.       set NotComplete to 1
  33.       repeat with C = 1 to 3
  34.         if (the locH of sprite getAt(getAt(RVXDrpMenuList, C), 11) <> getAt(getAt(RVXDrpMenuList, C), 13)) or (field getAt(getAt(RVXDrpMenuList, C), 12) = EMPTY) then
  35.           set AllFilled to 0
  36.           exit repeat
  37.         end if
  38.       end repeat
  39.       if (AllFilled = 1) and (the member of sprite 7 = member "RVXANDORYellow") then
  40.         set AllFilled to 2
  41.       end if
  42.       if (field "selectedfour" = EMPTY) and (thisdropbox = 7) then
  43.         set AllFilled to 0
  44.         set NotComplete to 0
  45.         set thisPos to thisPos + 1
  46.         set the member of sprite RVXOptionSprite to member "RVXOption"
  47.         set the loc of sprite RVXOptionSprite to point(326, 174)
  48.         set the ink of sprite RVXOptionSprite to 36
  49.         updateStage()
  50.       end if
  51.       if (field "selectedfour" <> EMPTY) and (thisdropbox = 7) then
  52.         set AllFilled to 1
  53.         set thisPos to thisPos + 1
  54.         set the locH of sprite RVXOptionSprite to 2000
  55.         updateStage()
  56.         set the textSize of member "selectedfour" to 12
  57.         set the boxType of member "selectedfour" to #adjust
  58.         set the textStyle of member "selectedfour" to "bold"
  59.         if the machineType > 200 then
  60.           set the textFont of member "selectedfour" to "Arial"
  61.         else
  62.           set the textFont of member "selectedfour" to "Geneva"
  63.         end if
  64.         updateStage()
  65.       end if
  66.       case AllFilled of
  67.         0:
  68.           if (count(RVXRememberlist) <> 0) and (the member of sprite 7 = member "RVXANDORYellow") and (field "SelectedFour" = EMPTY) then
  69.             set RVXRememberlist to list()
  70.             set RVXRememberNamelist to list()
  71.             set RVXRememberSeltextList to list()
  72.             addAt(RVXRememberlist, count(RVXRememberlist) + 1, value(string(getAt(RVXWhichInputList, thisPos))))
  73.             addAt(RVXRememberNamelist, count(RVXRememberNamelist) + 1, the memberNum of sprite 7)
  74.             setAt(getAt(RVXWhichInputList, thisPos), 2, 0)
  75.             set valuex to count(RVXWhichInputList) - thisPos
  76.             repeat with a = 1 to valuex
  77.               deleteAt(RVXWhichInputList, thisPos + 1)
  78.             end repeat
  79.             set the member of sprite 24 to member "CDDOT"
  80.             set the locH of sprite 24 to 2000
  81.             set the member of sprite 7 to member "RVXANDOR"
  82.           end if
  83.           if count(RVXRememberlist) = 0 then
  84.             set RVXRememberlist to list()
  85.             set RVXRememberNamelist to list()
  86.             set RVXRememberSeltextList to list()
  87.             repeat with z = thisPos to count(RVXWhichInputList)
  88.               put value(string(getAt(RVXWhichInputList, z)))
  89.               addAt(RVXRememberlist, count(RVXRememberlist) + 1, value(string(getAt(RVXWhichInputList, z))))
  90.               addAt(RVXRememberNamelist, count(RVXRememberNamelist) + 1, the memberNum of sprite getAt(getAt(RVXRememberlist, count(RVXRememberNamelist) + 1), 1))
  91.             end repeat
  92.             repeat with d = 24 to 31
  93.               if the locH of sprite d <> 2000 then
  94.                 addAt(RVXRememberSeltextList, count(RVXRememberSeltextList) + 1, [d, the locH of sprite d, the locV of sprite d, the memberNum of sprite d])
  95.               end if
  96.             end repeat
  97.             repeat with z = thisPos to count(RVXWhichInputList)
  98.               setAt(getAt(RVXWhichInputList, z), 2, 0)
  99.             end repeat
  100.             repeat with d = 24 to 31
  101.               set the member of sprite d to member "CDDOT"
  102.               set the locH of sprite d to 2000
  103.             end repeat
  104.             if NotComplete = 1 then
  105.               set the member of sprite 7 to member "RVXANDOR"
  106.             end if
  107.             set the member of sprite 8 to member "RVXInputOneGrey"
  108.             set the member of sprite 9 to member "RVXInputTwoGrey"
  109.             set the member of sprite 10 to member "RVXInputThreeGrey"
  110.             set the member of sprite 11 to member "RVXANDOR"
  111.             set the member of sprite 12 to member "RVXInputOneGrey"
  112.             set the member of sprite 13 to member "RVXInputTwoGrey"
  113.             set the member of sprite 14 to member "RVXInputThreeGrey"
  114.             updateStage()
  115.           end if
  116.         1:
  117.           if count(RVXRememberlist) <> 0 then
  118.             repeat with z = 1 to count(RVXRememberlist)
  119.               setAt(RVXWhichInputList, thisPos - 1 + z, value(string(getAt(RVXRememberlist, z))))
  120.               set the memberNum of sprite getAt(getAt(RVXRememberlist, z), 1) to getAt(RVXRememberNamelist, z)
  121.             end repeat
  122.             repeat with z = 1 to count(RVXRememberSeltextList)
  123.               set the loc of sprite getAt(getAt(RVXRememberSeltextList, z), 1) to point(getAt(getAt(RVXRememberSeltextList, z), 2), getAt(getAt(RVXRememberSeltextList, z), 3))
  124.               set the memberNum of sprite getAt(getAt(RVXRememberSeltextList, z), 1) to getAt(getAt(RVXRememberSeltextList, z), 4)
  125.             end repeat
  126.             updateStage()
  127.             set RVXRememberlist to list()
  128.             set RVXRememberNamelist to list()
  129.             set RVXRememberSeltextList to list()
  130.             set RVXTwoRememberlist to list()
  131.             set RVXTwoRememberNamelist to list()
  132.             set RVXTwoRememberSeltextList to list()
  133.           end if
  134.       end case
  135.   end case
  136.   if count(RVXWhichInputList) > 6 then
  137.     set TwoalreadyHere to 0
  138.     repeat with t = 1 to count(RVXWhichInputList)
  139.       if getAt(getAt(RVXWhichInputList, t), 1) = 11 then
  140.         set TwoalreadyHere to 1
  141.         set TwothisPos to t
  142.         exit repeat
  143.       end if
  144.     end repeat
  145.     case TwoalreadyHere of
  146.       0:
  147.         set TwoAllFilled to 1
  148.         repeat with C = 5 to 7
  149.           if (the locH of sprite getAt(getAt(RVXDrpMenuList, C), 11) <> getAt(getAt(RVXDrpMenuList, C), 13)) or (field getAt(getAt(RVXDrpMenuList, C), 12) = EMPTY) then
  150.             set TwoAllFilled to 0
  151.             exit repeat
  152.           end if
  153.         end repeat
  154.         case TwoAllFilled of
  155.           0:
  156.           1:
  157.             addAt(RVXWhichInputList, count(RVXWhichInputList) + 1, [11, 1])
  158.             set the member of sprite 11 to member "RVXANDORYelloW"
  159.             set the member of sprite RVXOptionSprite to member "RVXOption"
  160.             set the loc of sprite RVXOptionSprite to point(326, 250)
  161.             set the ink of sprite RVXOptionSprite to 36
  162.             updateStage()
  163.         end case
  164.       1:
  165.         set OneFilled to 1
  166.         repeat with C = 1 to 3
  167.           if (the locH of sprite getAt(getAt(RVXDrpMenuList, C), 11) <> getAt(getAt(RVXDrpMenuList, C), 13)) or (field getAt(getAt(RVXDrpMenuList, C), 12) = EMPTY) then
  168.             set OneFilled to 0
  169.             exit repeat
  170.           end if
  171.         end repeat
  172.         if OneFilled = 0 then
  173.         end if
  174.         case OneFilled of
  175.           1:
  176.             set TwoAllFilled to 1
  177.             set NotComplete to 1
  178.             repeat with C = 5 to 7
  179.               if (the locH of sprite getAt(getAt(RVXDrpMenuList, C), 11) <> getAt(getAt(RVXDrpMenuList, C), 13)) or (field getAt(getAt(RVXDrpMenuList, C), 12) = EMPTY) then
  180.                 set TwoAllFilled to 0
  181.                 exit repeat
  182.               end if
  183.             end repeat
  184.             if (TwoAllFilled = 1) and (the member of sprite 11 = member "RVXANDORYellow") then
  185.               set TwoAllFilled to 2
  186.             end if
  187.             if (field "SelectedEight" = EMPTY) and (thisdropbox = 11) then
  188.               set TwoAllFilled to 0
  189.               set NotComplete to 0
  190.               set TwothisPos to TwothisPos + 1
  191.               set the member of sprite RVXOptionSprite to member "RVXOption"
  192.               set the loc of sprite RVXOptionSprite to point(326, 250)
  193.               set the ink of sprite RVXOptionSprite to 36
  194.             end if
  195.             if (field "SelectedEight" <> EMPTY) and (thisdropbox = 11) then
  196.               set TwoAllFilled to 1
  197.               set TwothisPos to TwothisPos + 1
  198.               set the locH of sprite RVXOptionSprite to 2000
  199.               updateStage()
  200.               set the textSize of member "SelectedEight" to 12
  201.               set the boxType of member "SelectedEight" to #adjust
  202.               set the textStyle of member "SelectedEight" to "bold"
  203.               if the machineType > 200 then
  204.                 set the textFont of member "SelectedEight" to "Arial"
  205.               else
  206.                 set the textFont of member "SelectedEight" to "Geneva"
  207.               end if
  208.               updateStage()
  209.             end if
  210.             case TwoAllFilled of
  211.               0:
  212.                 if (count(RVXTwoRememberlist) <> 0) and (the member of sprite 11 = member "RVXANDORYellow") and (field "SelectedEight" = EMPTY) then
  213.                   set RVXTwoRememberlist to list()
  214.                   set RVXTwoRememberNamelist to list()
  215.                   set RVXTwoRememberSeltextList to list()
  216.                   addAt(RVXTwoRememberlist, count(RVXTwoRememberlist) + 1, value(string(getAt(RVXWhichInputList, TwothisPos))))
  217.                   addAt(RVXTwoRememberNamelist, count(RVXTwoRememberNamelist) + 1, the memberNum of sprite 11)
  218.                   setAt(getAt(RVXWhichInputList, TwothisPos), 2, 0)
  219.                   deleteAt(RVXWhichInputList, TwothisPos + 1)
  220.                   deleteAt(RVXWhichInputList, TwothisPos + 1)
  221.                   deleteAt(RVXWhichInputList, TwothisPos + 1)
  222.                   set the member of sprite 28 to member "CDDOT"
  223.                   set the locH of sprite 28 to 2000
  224.                   set the member of sprite 11 to member "RVXANDOR"
  225.                 end if
  226.                 if count(RVXTwoRememberlist) = 0 then
  227.                   set RVXTwoRememberlist to list()
  228.                   set RVXTwoRememberNamelist to list()
  229.                   set RVXTwoRememberSeltextList to list()
  230.                   updateStage()
  231.                   repeat with z = TwothisPos to count(RVXWhichInputList)
  232.                     addAt(RVXTwoRememberlist, count(RVXTwoRememberlist) + 1, value(string(getAt(RVXWhichInputList, z))))
  233.                     addAt(RVXTwoRememberNamelist, count(RVXTwoRememberNamelist) + 1, the memberNum of sprite getAt(getAt(RVXTwoRememberlist, count(RVXTwoRememberNamelist) + 1), 1))
  234.                   end repeat
  235.                   repeat with d = 28 to 31
  236.                     if the locH of sprite d <> 2000 then
  237.                       addAt(RVXTwoRememberSeltextList, count(RVXTwoRememberSeltextList) + 1, [d, the locH of sprite d, the locV of sprite d, the memberNum of sprite d])
  238.                     end if
  239.                   end repeat
  240.                   repeat with z = TwothisPos to count(RVXWhichInputList)
  241.                     setAt(getAt(RVXWhichInputList, z), 2, 0)
  242.                   end repeat
  243.                   repeat with d = 28 to 31
  244.                     set the member of sprite d to member "CDDOT"
  245.                     set the locH of sprite d to 2000
  246.                   end repeat
  247.                   if NotComplete = 1 then
  248.                     set the member of sprite 11 to member "RVXANDOR"
  249.                   end if
  250.                   set the member of sprite 12 to member "RVXInputOneGrey"
  251.                   set the member of sprite 13 to member "RVXInputTwoGrey"
  252.                   set the member of sprite 14 to member "RVXInputThreeGrey"
  253.                   updateStage()
  254.                 end if
  255.               1:
  256.                 if count(RVXTwoRememberlist) <> 0 then
  257.                   repeat with z = 1 to count(RVXTwoRememberlist)
  258.                     setAt(RVXWhichInputList, TwothisPos - 1 + z, value(string(getAt(RVXTwoRememberlist, z))))
  259.                     set the memberNum of sprite getAt(getAt(RVXTwoRememberlist, z), 1) to getAt(RVXTwoRememberNamelist, z)
  260.                   end repeat
  261.                   repeat with z = 1 to count(RVXTwoRememberSeltextList)
  262.                     set the loc of sprite getAt(getAt(RVXTwoRememberSeltextList, z), 1) to point(getAt(getAt(RVXTwoRememberSeltextList, z), 2), getAt(getAt(RVXTwoRememberSeltextList, z), 3))
  263.                     set the memberNum of sprite getAt(getAt(RVXTwoRememberSeltextList, z), 1) to getAt(getAt(RVXTwoRememberSeltextList, z), 4)
  264.                   end repeat
  265.                   updateStage()
  266.                   set RVXTwoRememberlist to list()
  267.                   set RVXTwoRememberNamelist to list()
  268.                   set RVXTwoRememberSeltextList to list()
  269.                 end if
  270.             end case
  271.         end case
  272.     end case
  273.   end if
  274. end
  275.