@name MrDj
@persist LastSaid:string Open Muse:string PL:array Cn Tar:entity

#------------------------------#
#      DGROUSE - 19/01/13      #
#------------------------------#

if( chatClk(owner()) ) { LastSaid=owner():lastSaid() }

if( first() ){

    runOnChat(1)
    runOnKeys(owner(),1)
    
    Tar = owner()
    
    PL =  array(
		"physics/concrete/boulder_impact_hard1.wav",
		"ambient/voices/squeal1.wav",
		"ambient/tones/equip5.wav",
		"ambient/misc/brass_bell_c.wav",
		"ambient/machines/forklift.wav",
		"ambient/machines/fluorescent_hum_1.wav",
		"ambient/machines/60hzhum.wav",
		"ambient/voices/f_scream1.wav",
		"ambient/forest_day.wav",
		"ambient/music/country_rock_am_radio_loop.wav",
		"vo/ravenholm/monk_death07.wav",
		"vo/npc/alyx/ohno_startle03.wav",
		"ambient/music/piano1.wav",
		"ambient/music/bongo.wav",
		"ambient/music/cubanmusic1.wav",
		"ambient/music/flamenco.wav",
		"ambient/music/latin.wav"
    )
    
    Muse = PL[1,string]
    Cn = PL:count()
}

if( chatClk(owner()) ){

if(LastSaid:left(3)=="!go" ) { 
    soundPurge()
    Tar:soundPlay(0,0,Muse)
    hideChat(1)
}
if(LastSaid:left(5)=="!stop" ) { 
    soundStop(0)
    hideChat(1)
}
if(LastSaid:left(6)=="!song " ) {
    soundPurge()
    Nm = LastSaid:replace("!song ","")
    Sn = Nm:toNumber()
    if( Sn > Cn ){
        print("There is no song "+Nm+".")
        print("Try numbers between 1-"+Cn)
    }else{
        Muse = PL[Sn,string]
        Tar:soundPlay(0,0,Muse)
    }
    hideChat(1)
}}

if( keyClk() ){
    if( owner():keyPressed("tab") ){
        local E = owner():aimEntity()
        if( E:id() > 0 ){
            Tar = E
        }else{
            Tar = owner()
        }
        print( "Target = "+Tar:toString() )
    }
}

timer("ref",1)
if(clk("ref")){
    soundPitch(0,70+Tar:vel():length()/10)   
    soundVolume(0, 1-1/(1.1+Tar:vel():length()/10) )
}