if ($devent == sclick) {
if ( $did == 3 ) && ( $did($dname,2) != $null ) {
%nick = $addtok(%nick,$gettok($did($dname,2),1,44),44)
auser -a nick $address($gettok($did($dname,2),1,44),2)
did -a $dname 1 $gettok($did($dname,2),1,44)
;set $+(%,nick,.,$gettok($did($dname,2),1,44)) $address($gettok($did($dname,2),1,44),2)
did -ra $dname 2
}
if ( $did == 4 ) {
if ( $did($dname,1).sel != $null ) {
%nick = $deltok(%nick,$did($dname,1).sel,44)
;if ($($+(%,nick,.,$did($dname,1).sel),2)) { ruser nick $($+(%,nick,.,$did($dname,1).sel),2) }
did -d $dname 1 $did($dname,1).sel
}
}
}