home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / artwaug.dxr / 00019_ARTLiterature.ls < prev    next >
Encoding:
Text File  |  1996-06-17  |  8.3 KB  |  213 lines
  1. on ARTLiterature
  2.   global ARTLiteratureList, ARTAreSomewhereLit, ARTLitNet
  3.   repeat with g = 1 to count(ARTLiteratureList)
  4.     if rollOver(getAt(getAt(ARTLiteratureList, g), 1)) then
  5.       if the mouseDown and (getAt(getAt(ARTLiteratureList, g), 3) = 0) then
  6.         set ARTLItFirstTime to 0
  7.         setAt(getAt(ARTLiteratureList, g), 3, 1)
  8.         if g = 1 then
  9.           if (ARTLitNet <> 1) and (ARTLitNet <> 4) then
  10.             set ARTLitNet to 1
  11.             set LitTempList to getAt(ARTLiteratureList, g)
  12.             repeat with x = 4 to count(LitTempList)
  13.               set TwoLitTempList to getAt(LitTempList, x)
  14.               set the castNum of sprite getAt(TwoLitTempList, 1) to getAt(TwoLitTempList, 2)
  15.               set the locH of sprite getAt(TwoLitTempList, 1) to getAt(TwoLitTempList, 3)
  16.               set the locV of sprite getAt(TwoLitTempList, 1) to getAt(TwoLitTempList, 4)
  17.               set the ink of sprite getAt(TwoLitTempList, 1) to getAt(TwoLitTempList, 5)
  18.             end repeat
  19.             updateStage()
  20.           end if
  21.         else
  22.           if g = 2 then
  23.             if ARTLitNet <> 2 then
  24.               set ARTLitNet to 2
  25.               set LitTempList to getAt(ARTLiteratureList, g)
  26.               repeat with x = 4 to count(LitTempList)
  27.                 set TwoLitTempList to getAt(LitTempList, x)
  28.                 set the castNum of sprite getAt(TwoLitTempList, 1) to getAt(TwoLitTempList, 2)
  29.                 set the locH of sprite getAt(TwoLitTempList, 1) to getAt(TwoLitTempList, 3)
  30.                 set the locV of sprite getAt(TwoLitTempList, 1) to getAt(TwoLitTempList, 4)
  31.                 set the ink of sprite getAt(TwoLitTempList, 1) to getAt(TwoLitTempList, 5)
  32.               end repeat
  33.               updateStage()
  34.             end if
  35.           else
  36.             if g = 3 then
  37.               if ARTLitNet <> 3 then
  38.                 set ARTLitNet to 3
  39.                 set LitTempList to getAt(ARTLiteratureList, g)
  40.                 repeat with x = 4 to count(LitTempList)
  41.                   set TwoLitTempList to getAt(LitTempList, x)
  42.                   set the castNum of sprite getAt(TwoLitTempList, 1) to getAt(TwoLitTempList, 2)
  43.                   set the locH of sprite getAt(TwoLitTempList, 1) to getAt(TwoLitTempList, 3)
  44.                   set the locV of sprite getAt(TwoLitTempList, 1) to getAt(TwoLitTempList, 4)
  45.                   set the ink of sprite getAt(TwoLitTempList, 1) to getAt(TwoLitTempList, 5)
  46.                 end repeat
  47.                 updateStage()
  48.               end if
  49.             end if
  50.           end if
  51.         end if
  52.         repeat with f = 1 to count(ARTLiteratureList)
  53.           if (getAt(getAt(ARTLiteratureList, f), 3) = 1) and (f <> g) then
  54.             set LastPlace to f
  55.             set ARTAreSomewhereLit to 1
  56.             setAt(getAt(ARTLiteratureList, f), 3, 0)
  57.           end if
  58.         end repeat
  59.       end if
  60.       if getAt(getAt(ARTLiteratureList, g), 2) = 0 then
  61.         set the castNum of sprite getAt(getAt(ARTLiteratureList, g), 1) to the castNum of sprite getAt(getAt(ARTLiteratureList, g), 1) + 1
  62.         setAt(getAt(ARTLiteratureList, g), 2, 1)
  63.         repeat with f = 1 to count(ARTLiteratureList)
  64.           if (getAt(getAt(ARTLiteratureList, f), 2) = 1) and (f <> g) and (getAt(getAt(ARTLiteratureList, f), 3) = 0) then
  65.             set the castNum of sprite getAt(getAt(ARTLiteratureList, f), 1) to the castNum of sprite getAt(getAt(ARTLiteratureList, f), 1) - 1
  66.             setAt(getAt(ARTLiteratureList, f), 2, 0)
  67.           end if
  68.         end repeat
  69.       end if
  70.     end if
  71.   end repeat
  72.   repeat with g = 1 to count(ARTLiteratureList)
  73.     if not rollOver(getAt(getAt(ARTLiteratureList, g), 1)) then
  74.       if (getAt(getAt(ARTLiteratureList, g), 2) = 1) and (getAt(getAt(ARTLiteratureList, g), 3) = 0) then
  75.         set the castNum of sprite getAt(getAt(ARTLiteratureList, g), 1) to the castNum of sprite getAt(getAt(ARTLiteratureList, g), 1) - 1
  76.         setAt(getAt(ARTLiteratureList, g), 2, 0)
  77.       end if
  78.     end if
  79.   end repeat
  80.   if (ARTLitNet = 1) or (ARTLitNet = 4) then
  81.     if rollOver(25) then
  82.       set ARTLitNet to 5
  83.       set the castNum of sprite 25 to the castNum of sprite 25 + 1
  84.     end if
  85.   end if
  86.   if ARTLitNet = 5 then
  87.     if rollOver(25) and the mouseDown then
  88.       if the machineType < 200 then
  89.         set the castNum of sprite 36 to 48
  90.         set the locH of sprite 36 to 225
  91.         set the locV of sprite 36 to 181
  92.         set ARTNETUP to 0
  93.         updateStage()
  94.         repeat while 1
  95.           if ARTNETUP = 1 then
  96.             if word the mouseWord of field 48 = "YES" then
  97.               set ARTThisword to the mouseWord
  98.               set the foreColor of word ARTThisword of field 48 to 0
  99.               repeat while word the mouseWord of field 48 = "YES"
  100.                 if the mouseDown then
  101.                   set ARTYesOrCancel to 1
  102.                   exit repeat
  103.                 end if
  104.               end repeat
  105.               set the foreColor of word ARTThisword of field 48 to 255
  106.             end if
  107.             if word the mouseWord of field 48 = "NO" then
  108.               set ARTThisword to the mouseWord
  109.               set the foreColor of word ARTThisword of field 48 to 0
  110.               repeat while word the mouseWord of field 48 = "NO"
  111.                 if the mouseDown then
  112.                   set ARTYesOrCancel to 2
  113.                   exit repeat
  114.                   updateStage()
  115.                 end if
  116.               end repeat
  117.               set the foreColor of word ARTThisword of field 48 to 255
  118.             end if
  119.             if ARTYesOrCancel > 0 then
  120.               exit repeat
  121.             else
  122.               if (the mouseCast <> 48) and the mouseDown then
  123.                 beep()
  124.               end if
  125.             end if
  126.             next repeat
  127.           end if
  128.           if the mouseUp then
  129.             set ARTNETUP to 1
  130.           end if
  131.         end repeat
  132.         set ARTNETUP to 0
  133.         if ARTYesOrCancel = 2 then
  134.           set the locH of sprite 36 to 2000
  135.           updateStage()
  136.           repeat while the mouseDown
  137.           end repeat
  138.         else
  139.           set the castNum of sprite 36 to 52
  140.           set the locH of sprite 36 to 225
  141.           set the locV of sprite 36 to 210
  142.           updateStage()
  143.           repeat while the mouseDown
  144.           end repeat
  145.         end if
  146.       else
  147.         set the castNum of sprite 36 to 48
  148.         set the locH of sprite 36 to 225
  149.         set the locV of sprite 36 to 181
  150.         set ARTNETUP to 0
  151.         updateStage()
  152.         repeat while 1
  153.           if ARTNETUP = 1 then
  154.             if word the mouseWord of field 48 = "YES" then
  155.               set ARTThisword to the mouseWord
  156.               set the foreColor of word ARTThisword of field 48 to 0
  157.               repeat while word the mouseWord of field 48 = "YES"
  158.                 if the mouseDown then
  159.                   set ARTYesOrCancel to 1
  160.                   exit repeat
  161.                 end if
  162.               end repeat
  163.               set the foreColor of word ARTThisword of field 48 to 255
  164.             end if
  165.             if word the mouseWord of field 48 = "NO" then
  166.               set ARTThisword to the mouseWord
  167.               set the foreColor of word ARTThisword of field 48 to 0
  168.               repeat while word the mouseWord of field 48 = "NO"
  169.                 if the mouseDown then
  170.                   set ARTYesOrCancel to 2
  171.                   exit repeat
  172.                   updateStage()
  173.                 end if
  174.               end repeat
  175.               set the foreColor of word ARTThisword of field 48 to 255
  176.             end if
  177.             if ARTYesOrCancel > 0 then
  178.               exit repeat
  179.             else
  180.               if (the mouseCast <> 48) and the mouseDown then
  181.                 beep()
  182.               end if
  183.             end if
  184.             next repeat
  185.           end if
  186.           if the mouseUp then
  187.             set ARTNETUP to 1
  188.           end if
  189.         end repeat
  190.         set ARTNETUP to 0
  191.         if ARTYesOrCancel = 2 then
  192.           set the locH of sprite 36 to 2000
  193.           updateStage()
  194.           repeat while the mouseDown
  195.           end repeat
  196.         else
  197.           set the castNum of sprite 36 to 52
  198.           set the locH of sprite 36 to 225
  199.           set the locV of sprite 36 to 210
  200.           updateStage()
  201.           repeat while the mouseDown
  202.           end repeat
  203.           StartBrowser("HTML/WORDS/Lithome.htm")
  204.         end if
  205.       end if
  206.     end if
  207.     if not rollOver(25) then
  208.       set ARTLitNet to 4
  209.       set the castNum of sprite 25 to the castNum of sprite 25 - 1
  210.     end if
  211.   end if
  212. end
  213.