on alphaManiac s
if s>0 then return (the type of (the member of sprite s) = #alpha)
end
on alphaManiacCheck s
if s=0 then exit
if alphaManiac(s) then
return true
else
set line1="Warning! Sprite" && s && "is not an Alphamania sprite."
set line2="The behavior you added will have no effect."
set line3="You should remove this behavior from sprite" && s & "."
beep
alertOK("Invalid Sprite", line1 & return & return & line2 & return)
return false
end if
end
on Ask m
set alertObj = new(xtra "MUI")
set paramList = [buttons:#YesNo, title:"Help me out here...", message:m, movable:1, icon:#Question]
if objectP ( alertObj ) then
set result = Alert( alertObj, paramList )
case result of
1:return #Yes
2:return #No
end case
end if
end
on AlertOKCancel t,m
set alertObj = new(xtra "MUI")
set paramList = [buttons:#OkCancel, title:t, message:m, movable:1, icon:#Warning]
if objectP ( alertObj ) then
set result = Alert( alertObj, paramList )
case result of
1:return #OK
2:return #Cancel
end case
end if
end
on AlertOK t,m
set alertObj = new(xtra "MUI")
set paramList = [buttons:#Ok, title:t, message:m, movable:1, icon:#Warning]
if objectP ( alertObj ) then
set result = Alert( alertObj, paramList )
end if
end
on setAlpha mode, src
set mem=getAt(getAt(the selection of castLib "internal",1),1)
set the drawMethod of member mem = mode
if integerP(src) then
set the sourceMember of member mem = member src
end if
end
on triggerSprite s,reverseFlag
sendSprite(s,#Trigger,reverseFlag)
end
on resetSprite s
sendSprite(s,#Reset)
end
on interpolation i
case i of
#Off:return 0
#On:return 1
#Paused:return 2
end case
end
on amTip
set x= random(10)
case x of
1:return "Set your AlphaMania castmember to #apply mode and this behavior will affect anything under your AlphaManiac!"
2:return "You can use the #reveal method to create cool transitions and x-ray vision effects!"
3:return "AlphaManiacs are the most powerful sprites on the planet!!"
4: return "Chris Perkins plays scales on AlphaManiacs and on trumpets."
5:return "Tom Summerall rotates almost anything, anywhere."
otherwise:
return "Behavior programming by Media Solutions in Denver, CO. " & return & "Contact John Mathis (jdmathis@diac.com) to make your AlphaManiacs behave."
end case
end
on EffectActive sNum, fxSym
set fxList = GetEffectList(sprite sNum)
return( GetPos(fxList, fxSym))
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA