home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 June / Personal_Computer_World_Jun_97.iso / dxrs / gtspcw06.dxr / 00015_GTSPreviewGame,GTSLeavePreview.ls < prev    next >
Encoding:
Text File  |  1997-03-26  |  4.6 KB  |  104 lines
  1. on GTSPreviewGame
  2.   global GTSGamesMasterList, GTSButtonsSprite, GTSButtonCastNum, GTSbuttonCount, IFLgamesNameSprite, ADDADCOntTwo, IFLButtonList, ADDAdCount, ADDADvertSprite, GTSOptionList, GTSPreview, GTSGOELSEWHERE, GTSRemOne, GTSRemTwo, GTSRemThree, GTSPreviewOrderList, GTSChoosen, GTSRAting, GTSRateingList, GTSOfHowManyList
  3.   if GTSPreview = 0 then
  4.     set GTSPreview to 1
  5.     set GTSGOELSEWHERE to 1
  6.     wait(1)
  7.     set GTSRemOne to getAt(getAt(GTSOptionList, 3), 4)
  8.     set GTSRemTwo to getAt(getAt(GTSOptionList, 2), 4)
  9.     set GTSRemThree to getAt(getAt(GTSOptionList, 4), 4)
  10.     setAt(getAt(GTSOptionList, 3), 4, 5)
  11.     setAt(getAt(GTSOptionList, 2), 4, 5)
  12.     setAt(getAt(GTSOptionList, 4), 4, 5)
  13.     repeat with f = 1 to count(GTSGamesMasterList)
  14.       set TwochangeSprite to getAt(GTSGamesMasterList, f)
  15.       if count(TwochangeSprite) > 2 then
  16.         setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  17.         setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  18.         setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  19.         setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  20.       else
  21.         setAt(TwochangeSprite, 2, 0)
  22.       end if
  23.       if (getAt(TwochangeSprite, 1) <> 9) and (getAt(TwochangeSprite, 1) <> 16) then
  24.         set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  25.         set the locV of sprite getAt(TwochangeSprite, 1) to 2000
  26.       end if
  27.     end repeat
  28.     set the locH of sprite ADDADvertSprite to 2000
  29.     set GTSbuttonCount to 0
  30.     repeat with f = 1 to count(IFLButtonList)
  31.       set ThisTempList to getAt(IFLButtonList, f)
  32.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  33.     end repeat
  34.     repeat with t = 39 to 47
  35.       if t <> IFLgamesNameSprite then
  36.         set the locH of sprite t to 2000
  37.       end if
  38.     end repeat
  39.     set ADDADCOntTwo to 0
  40.     set ADDAdCount to 0
  41.     set the locH of sprite ADDADvertSprite to 2000
  42.     set the castNum of sprite 9 to 80
  43.     set Howmany to getAt(GTSOfHowManyList, GTSChoosen)
  44.     case Howmany of
  45.       1:
  46.         set the castNum of sprite 10 to the number of member "GTSOfOne"
  47.       2:
  48.         set the castNum of sprite 10 to the number of member "GTSOfTwo"
  49.       3:
  50.         set the castNum of sprite 10 to the number of member "GTSOfThree"
  51.       4:
  52.         set the castNum of sprite 10 to the number of member "GTSOfFour"
  53.       5:
  54.         set the castNum of sprite 10 to the number of member "GTSOffive"
  55.     end case
  56.     set the castNum of sprite 11 to getAt(GTSPreviewOrderList, 1)
  57.     repeat with x = 10 to 11
  58.       set the locH of sprite x to 548
  59.       set the locV of sprite x to 423
  60.       set the ink of sprite x to 0
  61.     end repeat
  62.     set the castNum of sprite 12 to getAt(getAt(GTSPreviewOrderList, 2), GTSChoosen)
  63.     set the locH of sprite 12 to 177
  64.     set the locV of sprite 12 to 241
  65.     set the ink of sprite 12 to 0
  66.     set the castNum of sprite GTSRAting to getAt(getAt(GTSRateingList, GTSChoosen), 1) + 1
  67.     set the locH of sprite GTSRAting to 52
  68.     set the locV of sprite GTSRAting to 186
  69.     set the ink of sprite GTSRAting to 36
  70.     updateStage()
  71.   end if
  72. end
  73.  
  74. on GTSLeavePreview
  75.   global GTSGamesMasterList, IFLButtonList, IFLgamesNameSprite, GTSHeadCastNum, GTSVisitCoverSprite, ADDADvertSprite, GTSPreview, GTSGOELSEWHERE, GTSRemOne, GTSRemTwo, GTSRemThree, GTSPreviewCounter, IFLUSERPRESSEDESCKEY
  76.   set GTSPreviewCounter to 0
  77.   set GTSPreview to 0
  78.   set GTSGOELSEWHERE to 0
  79.   repeat with f = 1 to count(GTSGamesMasterList)
  80.     set TwochangeSprite to getAt(GTSGamesMasterList, f)
  81.     if count(TwochangeSprite) > 2 then
  82.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  83.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  84.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  85.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  86.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  87.     else
  88.       set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  89.     end if
  90.     set the locH of sprite 24 to 2000
  91.   end repeat
  92.   repeat with f = 1 to count(IFLButtonList)
  93.     set TwochangeSprite to getAt(IFLButtonList, f)
  94.     set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  95.     set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  96.     set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  97.   end repeat
  98.   setAt(getAt(GTSOptionList, 3), 4, GTSRemOne)
  99.   setAt(getAt(GTSOptionList, 2), 4, GTSRemTwo)
  100.   setAt(getAt(GTSOptionList, 4), 4, GTSRemThree)
  101.   updateStage()
  102.   set IFLUSERPRESSEDESCKEY to 0
  103. end
  104.