---------------------------
-- code by tor kristensen
-- tor@araneum.dk
-- www.araneum.dk/tor
-- redistribution permitted as long as this header is not removed
---------------------------
property pMyFlash,pDir,pRotate,pSmooth
on new me
return me
end
on mouseDown me
IF pSmooth = #true THEN
repeat while the mouseDown
case (TRUE) of
(pDir=#left):
set the rotation of sprite pMyFlash to the rotation of sprite pMyFlash-pRotate
updateStage
if the rotation of sprite pMyFlash = -360 THEN set the rotation of sprite pMyFlash to 0
(pDir=#right):
set the rotation of sprite pMyFlash to the rotation of sprite pMyFlash+pRotate
updateStage
if the rotation of sprite pMyFlash = 360 THEN set the rotation of sprite pMyFlash to -360
end case
end repeat
END IF
end
on mouseUp me
case (TRUE) of
(pDir=#left):
set the rotation of sprite pMyFlash to the rotation of sprite pMyFlash-pRotate
(pDir=#right):
set the rotation of sprite pMyFlash to the rotation of sprite pMyFlash+pRotate
end case
end
------------------------------------------------------------------------------------
on getPropertyDescriptionList
set description = [:]
addProp description, #pMyFlash,[#default:"1",#format:#integer,#comment:"The Number of the Flash Sprite"]
addProp description, #pDir,[#default:#left,#format:#symbol,#comment:"Which Direction is it going?",#range: [#left,#right]]
addProp description, #pSmooth,[#default:"#FALSE",#format:#symbol,#comment:"Zoom while the mouseDown?",#range: [#TRUE,#FALSE]]
return description
end
on getBehaviorDescription
return ¬
"picks a random member from a list of member numbers"
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA