home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / CYRIXO.DXR / 00005_ReplaceCast.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  571 b   |  15 lines
  1. on ReplaceCast
  2.   global CyMasList, LineHFlag
  3.   repeat with t = 1 to count(CyMasList)
  4.     if count(getAt(CyMasList, t)) > 2 then
  5.       set the castNum of sprite getAt(getAt(CyMasList, t), 1) to the number of member getAt(getAt(CyMasList, t), 2)
  6.       set the loc of sprite getAt(getAt(CyMasList, t), 1) to point(getAt(getAt(CyMasList, t), 3), getAt(getAt(CyMasList, t), 4))
  7.       set the ink of sprite getAt(getAt(CyMasList, t), 1) to getAt(getAt(CyMasList, t), 5)
  8.     end if
  9.   end repeat
  10.   updateStage()
  11.   repeat while the mouseDown
  12.   end repeat
  13.   set LineHFlag to 0
  14. end
  15.