source: GTP/trunk/App/Demos/Geom/Shark3D/clod_head_demo_win32/src/res/client/actor/extra.s3d_perch @ 2236

///////////////////////////////////////////////////////////////////////////////
//
//      ##  ######
//       ######  ###
//  ## ###############        Shark 3D Engine (www.shark3d.com)
//   ########## # # #
//    ########                Copyright (c) 1996-2006 Spinor GmbH.
//   ######### # # #          All rights reserved.
//  ##   ##########
//      ##
//
///////////////////////////////////////////////////////////////////////////////

var actor m_motionDeleg;
var actor m_universePlayer;
var int m_lightMode;
var int m_god;
var float m_firstX, m_firstY, m_firstZ;
var float m_secondX, m_secondY, m_secondZ;

func public void initActor()
    m_motionDeleg = findActor("motion_deleg");
    m_universePlayer = findActor("universeplayer");
    m_god = 0;
    m_lightMode = 1;
    m_firstX = 0.0;
    m_firstY = 0.0;
    m_firstZ = 0.0;
    m_secondX = 0.0;
    m_secondY = 0.0;
    m_secondZ = 0.0;
end

func public void finishActor()
end

func public void off()
    if m_lightMode then
        m_lightMode = 0;
        m_universePlayer ^ set_light_transl( 
                0.0, 0.0, 0.0 );
    end
end

func public void on()
    if !m_lightMode then
        m_lightMode = 1;
        m_firstX = 0.0;
        m_firstY = 0.0;
        m_firstZ = 0.0;
        m_secondX = 0.0;
        m_secondY = 0.0;
        m_secondZ = 0.0;
    end
end

func public void toggle()
    if m_god then
        if m_lightMode then
            off();
            m_motionDeleg ^ enable(); 
        else
            on();
            m_motionDeleg ^ disable();
        end
    else
        on();
    end
end

func public void god()
    if m_god then
        m_god = 0;
        on();
        m_universePlayer ^ god_off();
        m_motionDeleg ^ disable();
    else
        m_god = 1;
        off();
        m_universePlayer ^ god_on();
        m_motionDeleg ^ enable();
    end
end

func void updateLight()
    var float x = m_firstX + m_secondX;
    var float y = m_firstY + m_secondY;
    var float z = m_firstZ + m_secondZ;
    m_universePlayer ^ set_light_transl( x, y, z);    
end

func public void assign_vel_pos_x( float val )
    if m_lightMode then
        //m_firstZ = val;
        updateLight();
    end
end

func public void assign_vel_neg_x( float val )
    if m_lightMode then
        //m_firstZ = - val;
        updateLight();
    end
end

func public void assign_vel_pos_y( float val )
    if m_lightMode then
        m_firstZ = - val;
        updateLight();
    end
end

func public void assign_vel_neg_y( float val )
    if m_lightMode then
        m_firstZ = val;
        updateLight();
    end
end

func public void assign_vel_pos_z( float val )
    if m_lightMode then
        //m_firstY = val;
        updateLight();
    end
end

func public void assign_vel_neg_z( float val )
    if m_lightMode then
        //m_firstY = - val;
        updateLight();
    end
end

func public void assign_spin_pos_x( float val )
    if m_lightMode then
        m_secondY = val;
        updateLight();
    end
end

func public void assign_spin_neg_x( float val )
    if m_lightMode then
        m_secondY = - val;
        updateLight();
    end
end

func public void assign_spin_pos_y( float val )
    if m_lightMode then
        m_secondZ = val;
        updateLight();
    end
end

func public void assign_spin_neg_y( float val )
    if m_lightMode then
        m_secondZ = - val;
        updateLight();
    end
end

func public void assign_spin_pos_z( float val )
    if m_lightMode then
        m_secondX = val;
        updateLight();
    end
end

func public void assign_spin_neg_z( float val )
    if m_lightMode then
        m_secondX = - val;
        updateLight();
    end
end

func public void move_cursor_x( float val )
    if m_lightMode then
        m_firstX = m_firstX + val;
        updateLight();
    end
end

func public void move_cursor_y( float val )
    if m_lightMode then
        m_firstY = m_firstY - val;
        updateLight();
    end
end

///////////////////////////////////////////////////////////////////////////////