home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / GROFINJ.DXR / 00034_groentsection.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  615 b   |  21 lines
  1. on GROENTSECTION
  2.   global groanimatelist, groanimloop, gropointer, grooldpointer
  3.   if grooldpointer <> EMPTY then
  4.     setAt(getAt(groanimatelist, grooldpointer), 4, 1)
  5.   end if
  6.   setAt(getAt(groanimatelist, gropointer), 4, 0)
  7.   repeat with i = 1 to count(groanimatelist)
  8.     if getAt(getAt(groanimatelist, i), 4) = 1 then
  9.       set the castNum of sprite getAt(getAt(groanimatelist, i), 1) to 19
  10.     end if
  11.   end repeat
  12.   set grooldpointer to gropointer
  13.   updateStage()
  14.   repeat with i = 10 to 37
  15.     if (i <> 34) and (i <> 34) then
  16.       set the castNum of sprite i to 0
  17.     end if
  18.   end repeat
  19.   updateStage()
  20. end
  21.