home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GTSWDEC.DXR / 00138_GTS95Case.ls < prev    next >
Encoding:
Text File  |  1997-10-15  |  1.3 KB  |  33 lines
  1. on GTS95Case s
  2.   global GTS95List, GTSButtonsSprite, GTSInstallSprite, GTSOptionList, GTSPlaySprite, GTSExplainSprite
  3.   set the locH of sprite GTSButtonsSprite to 428
  4.   set the locV of sprite GTSButtonsSprite to 289
  5.   set the locH of sprite 20 to 428
  6.   set the locV of sprite 20 to 289
  7.   set WhichScenario to getAt(getAt(GTS95List, s), 1)
  8.   if (WhichScenario = 1) or (WhichScenario = 2) then
  9.     set the locH of sprite GTSInstallSprite to 428
  10.     set the locV of sprite GTSInstallSprite to 289
  11.     set the locH of sprite 22 to 428
  12.     set the locV of sprite 22 to 289
  13.     setAt(getAt(GTSOptionList, 3), 4, 2)
  14.     setAt(getAt(GTSOptionList, 4), 4, 5)
  15.   else
  16.     setAt(getAt(GTSOptionList, 3), 4, 5)
  17.     if WhichScenario = 4 then
  18.       set the locH of sprite GTSPlaySprite to 428
  19.       set the locV of sprite GTSPlaySprite to 289
  20.       setAt(getAt(GTSOptionList, 4), 4, 0)
  21.     else
  22.       set WhichTextBox to getAt(getAt(GTS95List, s), 2)
  23.       set the castNum of sprite GTSExplainSprite to WhichTextBox
  24.       set the locH of sprite GTSExplainSprite to 224
  25.       set the locV of sprite GTSExplainSprite to 283
  26.       set the ink of sprite GTSExplainSprite to 0
  27.       setAt(getAt(GTSOptionList, 3), 4, 5)
  28.       setAt(getAt(GTSOptionList, 4), 4, 5)
  29.     end if
  30.   end if
  31.   updateStage()
  32. end
  33.