GQ - Louise, World Cup, …remy Clarkson, Armageddon/GQCD.iso/files/menu.dxr/00004_explosionScript.ls

Text File | 1998-05-21 | 568 b | 26 lines

property ancestor, myName, myNumFrames, myCounter, myMovie

on new me, type, numFrames, whichMovie
  set ancestor to new(script "spriteGenerator")
  set myCounter to 0
  set myName to the memberNum of member type
  set myNumFrames to numFrames - 1
  set myMovie to whichMovie
  append(the actorList, me)
  return me
end

on stepFrame me
  animate(me)
end

on animate me
  set myCounter to myCounter + 1
  if myCounter > myNumFrames then
    destroy(me)
    goMovie(myMovie)
  else
    set the memberNum of sprite the spriteNum of me to myName + myCounter
  end if
end