home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / refpcw08.dxr / 00019_REFClearSectionSprites.ls < prev    next >
Encoding:
Text File  |  1997-05-16  |  897 b   |  32 lines
  1. on REFClearSectionSprites
  2.   global REFMasterList, REFLastActive
  3.   if REFLastActive = 1 then
  4.     set the editableText of sprite 35 to 0
  5.   end if
  6.   if REFLastActive = 3 then
  7.     DBClose()
  8.     DBCloseSession()
  9.     set the editableText of sprite 25 to 0
  10.     set the castNum of sprite 39 to 27
  11.     repeat with g = 26 to 37
  12.       set the castNum of sprite g to 11
  13.       set the locV of sprite g to 2000
  14.       set the locH of sprite g to 2000
  15.       set the ink of sprite g to 0
  16.     end repeat
  17.     repeat with g = 10 to 15
  18.       set the castNum of sprite g to 11
  19.       set the locV of sprite g to 2000
  20.       set the locH of sprite g to 2000
  21.       set the ink of sprite g to 0
  22.     end repeat
  23.   end if
  24.   repeat with g = 30 to 37
  25.     set the castNum of sprite g to 11
  26.     set the locV of sprite g to 2000
  27.     set the locH of sprite g to 2000
  28.     set the ink of sprite g to 0
  29.   end repeat
  30.   updateStage()
  31. end
  32.