home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / geswaug.dxr / 00024_GESBuyingNoteTips.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  847 b   |  23 lines
  1. on GESBuyingNoteTips
  2.   global GESNoteBuyingList
  3.   if rollOver(37) then
  4.     repeat with t = 1 to count(GESNoteBuyingList)
  5.       if the castNum of sprite 37 = getAt(getAt(GESNoteBuyingList, t), 1) then
  6.         set the castNum of sprite 48 to getAt(getAt(GESNoteBuyingList, t), 2)
  7.         set the locH of sprite 48 to getAt(getAt(GESNoteBuyingList, t), 3)
  8.         set the locV of sprite 48 to getAt(getAt(GESNoteBuyingList, t), 4)
  9.         set the ink of sprite 48 to getAt(getAt(GESNoteBuyingList, t), 5)
  10.         exit repeat
  11.       end if
  12.     end repeat
  13.     set the castNum of sprite 37 to the castNum of sprite 37 + 1
  14.     updateStage()
  15.     repeat while rollOver(37)
  16.     end repeat
  17.     set the locH of sprite 48 to 2000
  18.     set the ink of sprite 48 to 39
  19.     set the castNum of sprite 37 to the castNum of sprite 37 - 1
  20.     updateStage()
  21.   end if
  22. end
  23.