What PC? 1999 January/WPCJAN99.ISO/DXRS/Files/VNUmenu.dxr/00189_previewScript.ls

Text File | 1998-10-22 | 569 b | 26 lines

property spriteNum, animCounter, myIndex

on new me
  return me
end

on init me, myPreviewNum
  set spriteNum to myPreviewNum
  set myIndex to the memberNum of sprite spriteNum
  set animCounter to 0
end

on activate me, activated
  if activated then
    if animCounter < 9 then
      set animCounter to animCounter + 1
      set the memberNum of sprite spriteNum to myIndex + animCounter
    end if
  else
    if animCounter > 0 then
      set animCounter to animCounter - 1
      set the memberNum of sprite spriteNum to myIndex + animCounter
    end if
  end if
end