set SOP = `oppwf()`

set matte = `chs("$SOP/mattedisplay")`
set passname = `chs("$SOP/passname")`
set passarg = `argc($passname)`

 if ($passarg==0) #pass check
         message You must enter a name for this pass!
 else             #pass check
         

message $matte
# if one argument is in the field, it doesnt need to loop and increment the var

# matte
if `argc($matte)` > "1" then
    for i = 0 to `evals(argc($matte)-1)`

        set objd = `arg($matte, $i)`
        set endis = opparm ${OBJECTCONTAINER}${objd} tmatte 1 matte 1;
        set nendis = $nendis $endis

        set pendis = opparm ${OBJECTCONTAINER}${objd} matte 0 tmatte 0;
        set pnendis = $pnendis $pendis
        
    end
else
    set objd = $matte
    set nendis = opparm ${OBJECTCONTAINER}${objd} tmatte 1 matte 1;
    set pnendis = opparm ${OBJECTCONTAINER}${objd} matte 0 tmatte 0;

endif

    cd $SOP/codegen
    set passname = `strreplace($passname, " ","_")`
    set qikck = `opexist($passname)`
  
      if ($qikck==1)
        message This Pass exists. Change name to continue.
      else
        opadd houdini_code $passname
        otunsync $passname
       
        opparm $SOP/codegen/$passname pre_em ("$nendis")
        opparm $SOP/codegen/$passname post_em ("$pnendis")    
        oppane -t parmeditor $SOP/codegen/$passname
      endif

 endif #pass check