What PC? 1997 December/WPCDEC97.ISO/DXRS/FAEWDEC.DXR/00014_FAEGameStop.ls

Text File | 1997-10-14 | 1.4 KB | 35 lines

on FAEGameStop
  global FAEGraphicList, FAEBigImageSprite, FAEYellowArrowSprite, FAECoverChosen, FAESnapCover, FAEButtonsSprite, FAEFirstTouchList, FAEVisitCoverSprite, FAEMasterList, FAEChoosen, FAEPlaySprite, FAEInstallSprite, GTSWIN95
  set s to FAEChoosen
  set whichCover to getAt(FAEFirstTouchList, s)
  set FAEVisitCoverSprite to 0
  set ThisCover to getAt(FAEGraphicList, s)
  set the locH of sprite FAEYellowArrowSprite to 2000
  set the castNum of sprite FAEBigImageSprite to 46
  set the locH of sprite FAEBigImageSprite to 325
  set the locV of sprite FAEBigImageSprite to 272
  repeat with t = 1 to count(FAEGraphicList)
    set the ink of sprite getAt(getAt(FAEGraphicList, t), 1) to 0
  end repeat
  set the locH of sprite 8 to 96
  set FAESnapCover to 0
  set the locH of sprite getAt(getAt(FAEGraphicList, s), 1) to getAt(getAt(FAEGraphicList, s), 5)
  set the locV of sprite getAt(getAt(FAEGraphicList, s), 1) to 409 - 15
  tell window "TRYMULTI"
    set the locH of sprite getAt(getAt(FAEGraphicList, 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 FAEButtonsSprite to 2000
  set the locH of sprite FAEPlaySprite to 2000
  set the locH of sprite FAEInstallSprite to 2000
  set the locH of sprite 24 to 2000
  setAt(FAEOneOutList, s, 0)
  set the locH of sprite 38 to 53
  tell window "TRYMULTI"
    updateStage()
  end tell
  updateStage()
end