home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 June / Personal_Computer_World_Jun_97.iso / dxrs / gtspcw06.dxr / 00139_GTS311Case.ls < prev    next >
Encoding:
Text File  |  1997-03-26  |  1.3 KB  |  34 lines
  1. on GTS311Case s
  2.   global GTS311List, 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(GTS311List, 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(GTS311List, s), 2)
  23.       set the castNum of sprite GTSExplainSprite to WhichTextBox
  24.       set the boxType of member WhichTextBox to #adjust
  25.       set the locH of sprite GTSExplainSprite to 224
  26.       set the locV of sprite GTSExplainSprite to 283
  27.       set the ink of sprite GTSExplainSprite to 0
  28.       setAt(getAt(GTSOptionList, 3), 4, 5)
  29.       setAt(getAt(GTSOptionList, 4), 4, 5)
  30.     end if
  31.   end if
  32.   updateStage()
  33. end
  34.