Search content:

 

Personal Menu
Username:
Password:
Save password

Become a member

Forgot Password?

 

Don't miss these
3D Model
Get the computer name of user
Sound slider
DirectInteraction Xtra
Seurat-Alphamania
Navegacion y colision 3d - 3d Collision Navigation
Arca Database Xtra
Relative Links
Wait for X seconds, go to marker
Behavior Killer behavior
MediaMacros Xtras Mall
 

 

 

Behavior M-Trail v1

Added on 12/18/2000

 

Compatibilities:
behavior D7 D8 Mac PC Shockwave

This item has not yet been rated

Author: JohannesHansen

Allows text to follow the cursor...

global onSwitch
property pFirstSprite, pLastSprite, hDist, vDist, pSpeed

on exitFrame
  if onSwitch = true then
    sprite(pFirstSprite).loc = the mouseLoc + point(hDist,vDist)
  else
    sprite(pFirstSprite).loc = point(10,10)
  end if
  repeat with i = (pFirstSprite + 1) to pLastsprite
    targetLoc = sprite(i-1).loc + point(hDist,vDist)
    deltaLoc = targetLoc - sprite(i).loc
    sprite(i).loc = sprite(i).loc + (deltaLoc/pSpeed)
  end repeat
end


on getPropertyDescriptionList me
pdlist = [:]
addprop pdlist, #pFirstSprite, [#comment:"First sprite:", #format:#integer,
#default:1]
addprop pdlist, #pLastSprite, [#comment:"Last sprite:", #format:#integer,
#default:10]
addprop pdlist, #hDist, [#comment:"Horisontal distance between each sprite:",
#format:#integer, #default:0]
addprop pdlist, #vDist, [#comment:"Vertical distance between each sprite:",
#format:#integer, #default:0]
addprop pdlist, #pSpeed, [#comment:"Speed:", #format:#float, #default:1.50,
#range:[#min:1.00, #max:1.95]]
return pdlist
end getPropertyDescriptionList

 


Upload Provided by ABCUpload ASP

Contact

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

Fax - (206) 339-5833

Send e-mail