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