home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / FAEWDEC.DXR / 00115_FAEDuringPreview.ls < prev    next >
Encoding:
Text File  |  1997-10-14  |  2.0 KB  |  62 lines
  1. on FAEDuringPreview
  2.   global FAEPMouseDown, FAEPreviewCounter, FAEOfHowManyList, FAEChoosen
  3.   if rollOver(31) then
  4.     set the member of sprite 31 to member "redrightbrowse"
  5.     updateStage()
  6.     repeat while rollOver(31)
  7.       if the mouseDown then
  8.         set the member of sprite 31 to member "redrightbrowsedown"
  9.         updateStage()
  10.         repeat while the mouseDown
  11.         end repeat
  12.         set FAEPreviewCounter to 1 + FAEPreviewCounter
  13.         updateStage()
  14.         if FAEPreviewCounter = getAt(FAEOfHowManyList, FAEChoosen) then
  15.           set the locH of sprite 31 to 2000
  16.           updateStage()
  17.         end if
  18.         if (FAEPreviewCounter = 2) and (getAt(FAEOfHowManyList, FAEChoosen) <> 2) then
  19.           set the loc of sprite 30 to point(510, 423)
  20.         end if
  21.         repeat with t = 11 to 12
  22.           set the castNum of sprite t to the castNum of sprite t + 1
  23.         end repeat
  24.         updateStage()
  25.       end if
  26.       set the member of sprite 31 to member "redrightbrowse"
  27.       updateStage()
  28.     end repeat
  29.     set the member of sprite 31 to member "rightbrowse"
  30.     updateStage()
  31.   end if
  32.   if rollOver(30) then
  33.     set the member of sprite 30 to member "redleftbrowse"
  34.     updateStage()
  35.     repeat while rollOver(30)
  36.       if the mouseDown then
  37.         set the member of sprite 30 to member "redleftbrowsedown"
  38.         updateStage()
  39.         repeat while the mouseDown
  40.         end repeat
  41.         set FAEPreviewCounter to FAEPreviewCounter - 1
  42.         updateStage()
  43.         if FAEPreviewCounter = 1 then
  44.           set the locH of sprite 30 to 2000
  45.           updateStage()
  46.         end if
  47.         if getAt(FAEOfHowManyList, FAEChoosen) <> FAEPreviewCounter then
  48.           set the loc of sprite 31 to point(578, 423)
  49.         end if
  50.         repeat with t = 11 to 12
  51.           set the castNum of sprite t to the castNum of sprite t - 1
  52.         end repeat
  53.         updateStage()
  54.       end if
  55.       set the member of sprite 30 to member "redleftbrowse"
  56.       updateStage()
  57.     end repeat
  58.     set the member of sprite 30 to member "leftbrowse"
  59.     updateStage()
  60.   end if
  61. end
  62.