Basic PuppetSprite Handlers

Date:    Thu, 16 Feb 1995 14:33:32 -0800
From:    Miles Lightwood <miles@RHYTHM.COM>
Subject: Re: PuppetSprites and typing headaches

Here's a basic puppeting script that I use all the time. It can easily be modified to do all sorts of other things.

--**************************************************************
--*               Lingo code by Miles Lightwood                *
--*               (c) Rhythm & Hues, Inc. 1993                 *
--*                   All Rights Reserved                      *
--**************************************************************
--
-- This hand toggles the puppet state of a range of contiguous
-- sprite channels. The variables are self-explanatory.
-- Example: puppetTF(1,          5,        TRUE)
-- Syntax:  puppetTF ^startChan, ^endChan, ^pupState

on puppetTF startChan, endChan, pupState
 
  repeat with channel = startChan to endChan
    puppetSprite channel, pupState
  end repeat
  
  --  * Start Debug
  --    put "** Start puppetTF Debug **" & RETURN
  --    repeat with i = startChan to endChan
  --      put "Channel" && i & RETURN & "--" && " State  " =AC
  --    && pupState & RETURN
  --    end repeat
  --    put "** End puppetTF Debug **" & RETURN
  --  * End Debug
end