Search content:

 

Personal Menu
Username:
Password:
Save password

Become a member

Forgot Password?

 

Don't miss these
DirectSound Xtra
Fast Blur Algorithm
PixelToolbox Beta - Imaging Lingo Application
Image Mover
Base64 Xtra
Advanced Installer Professional
Windows Sounds Scheme Customization
ECD
Magic Button
DisplayMode Xtra
MediaMacros Xtras Mall
 

 

 

Behavior RUNNING LED's

Added on 6/9/2001

 

Compatibilities:
behavior D6_5 D7 D8 D8_5 Mac PC Shockwave

This item has not yet been rated

Author: KurtKoenig (website)

RUNNING LED's Use a repeat loop to change the color of a number of sequentional sprites,and another one to change 'em back...Everything in a single frame.

Download PC Source    Download Mac Source
---------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------
--   RUNNING LED's
--
--   Use a repeat loop to change the color of a number of sequentional sprites,
--   and another one to change 'em back...Everything in a single frame.
--
--   Kurt * Belgium     06/10/2001
--
---------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------
--This code is written for my example movie, change it to fit your needs...

on startmovie
  -- this repeat loop will stop if you hold your leftmousebutton down for a few seconds...
  repeat while not the mousedown
    -- this depends on the number of LED sprites ...
    repeat with I = 2 to 15
      -- Instead of a timer I use Lingo here to count numbers, and put them in a
      -- field off stage. This will cause a delay between each LED...
      repeat with X = 1 to 100
        put X into (member "delayfield")
      end repeat
      -- you can use the indexcolors for your LED lights
      (sprite I). color = paletteindex(75)
      updatestage
    end repeat
    -- this part does the same, but the opposite...
    repeat with I = 15 down to 2
      repeat with X = 1 to 100
        put X into (member "delayfield")
      end repeat
      (sprite I). color = paletteindex(23)
      updateStage
    end repeat
  end repeat
end

 


Upload Provided by ABCUpload ASP

Contact

MMI
22 West Court Sq
Suite 2C
Newnan, GA 30263
USA

Fax - (206) 339-5833

Send e-mail