home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / GESFINJ.DXR / 00017_GESBuyingTips.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  780 b   |  22 lines
  1. on GESBuyingTips
  2.   global GESBuyingList
  3.   if rollOver(37) then
  4.     repeat with t = 1 to count(GESBuyingList)
  5.       if the castNum of sprite 37 = getAt(getAt(GESBuyingList, t), 1) then
  6.         set the castNum of sprite 23 to getAt(getAt(GESBuyingList, t), 2)
  7.         set the locH of sprite 23 to getAt(getAt(GESBuyingList, t), 3)
  8.         set the locV of sprite 23 to getAt(getAt(GESBuyingList, t), 4)
  9.         set the ink of sprite 23 to getAt(getAt(GESBuyingList, 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 23 to 2000
  18.     set the castNum of sprite 37 to the castNum of sprite 37 - 1
  19.     updateStage()
  20.   end if
  21. end
  22.