What PC? 1997 December/WPCDEC97.ISO/DXRS/GTSWDEC.DXR/00014_GTSGameStop.ls

Text File | 1997-10-15 | 1.5 KB | 35 lines

on GTSGameStop
  global GTSGraphicList, GTSBigImageSprite, GTSYellowArrowSprite, GTSCoverChosen, GTSSnapCover, GTSButtonsSprite, GTSFirstTouchList, GTSBigNoSprite, GTSVisitCoverSprite, GTSGamesMasterList, GTSChoosen, GTSPlaySprite, GTSInstallSprite, GTSExplainSprite
  set s to GTSChoosen
  set whichCover to getAt(GTSFirstTouchList, s)
  set GTSVisitCoverSprite to 0
  set the castNum of sprite getAt(whichCover, 2) to the castNum of sprite getAt(whichCover, 2) - 1
  set ThisCover to getAt(GTSGraphicList, s)
  set the locH of sprite GTSYellowArrowSprite to 2000
  set the locH of sprite GTSBigImageSprite to 2000
  repeat with t = 1 to count(GTSGraphicList)
    set the ink of sprite getAt(getAt(GTSGraphicList, t), 1) to 0
  end repeat
  set GTSSnapCover to 0
  set the locH of sprite getAt(getAt(GTSGraphicList, s), 1) to getAt(getAt(GTSGraphicList, s), 5)
  set the locV of sprite getAt(getAt(GTSGraphicList, s), 1) to 409 - 15
  tell window "TRYGAME"
    set the locH of sprite getAt(getAt(GTSGraphicList, s), 6) to 2000
  end tell
  repeat with t = 20 to 23
    set the locH of sprite t to 2000
  end repeat
  set the locH of sprite GTSButtonsSprite to 2000
  set the locH of sprite GTSPlaySprite to 2000
  set the locH of sprite GTSInstallSprite to 2000
  set the castNum of sprite GTSExplainSprite to 52
  set the locH of sprite GTSExplainSprite to 2000
  set the locH of sprite 24 to 2000
  setAt(GTSOneOutList, s, 0)
  set the locH of sprite 38 to 53
  tell window "TRYGAME"
    updateStage()
  end tell
  updateStage()
end