-------------------------------------------------------------------------------- -- Function......... : createBlackScreen -- Author........... : -- Description...... : -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- function FPSMainHUD.createBlackScreen ( hUser ) -------------------------------------------------------------------------------- local c = hud.newComponent ( hUser, hud.kComponentTypeContainer ) if ( c ~= nil ) then hud.setComponentZOrder ( c, 255 ) hud.setComponentPosition ( c, 50, 50 ) hud.setComponentSize ( c, 100, 100 ) hud.setComponentBackgroundColor ( c, 0, 0, 0, 255 ) hud.setComponentBorderColor ( c, 0, 0, 0, 255 ) end local as = hud.newAction ( hUser, "MainHUD.BlackScreenShow" ) if ( as ~= nil ) then hud.beginActionCommand ( as, hud.kCommandTypeSetVisible ) hud.pushActionCommandArgument ( as, c ) hud.pushActionCommandArgument ( as, true ) hud.endActionCommand ( as ) hud.beginActionCommand ( as, hud.kCommandTypeInterpolateOpacity ) hud.pushActionCommandArgument ( as, c ) hud.pushActionCommandArgument ( as, 255 ) hud.pushActionCommandArgument ( as, hud.kInterpolatorTypeLinear ) hud.pushActionCommandArgument ( as, 1000 ) hud.endActionCommand ( as ) end local ah = hud.newAction ( hUser, "MainHUD.BlackScreenHide" ) if ( ah ~= nil ) then hud.beginActionCommand ( ah, hud.kCommandTypeInterpolateOpacity ) hud.pushActionCommandArgument ( ah, c ) hud.pushActionCommandArgument ( ah, 0 ) hud.pushActionCommandArgument ( ah, hud.kInterpolatorTypeLinear ) hud.pushActionCommandArgument ( ah, 1000 ) hud.endActionCommand ( ah ) hud.beginActionCommand ( ah, hud.kCommandTypeSetVisible ) hud.pushActionCommandArgument ( ah, c ) hud.pushActionCommandArgument ( ah, false ) hud.endActionCommand ( ah ) end -------------------------------------------------------------------------------- end --------------------------------------------------------------------------------