home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / ARTSFINJ.DXR / 00019_ARTLiterature.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  4.7 KB  |  106 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 A to the pathName & "LitHome.html"
  90.         set b to the pathName & "NetScape 1.12"
  91.         open(A, b)
  92.       else
  93.         set the castNum of sprite 36 to 52
  94.         set the locH of sprite 36 to 225
  95.         set the locV of sprite 36 to 210
  96.         updateStage()
  97.         StartBrowser("HTML/WORDS/Lithome.htm")
  98.       end if
  99.     end if
  100.     if not rollOver(25) then
  101.       set ARTLitNet to 4
  102.       set the castNum of sprite 25 to the castNum of sprite 25 - 1
  103.     end if
  104.   end if
  105. end
  106.