Someone

menu * { 
  Abiotic Soul 
  .Action
  ..huggle: /huggle
  .Control
  ..halfop: /firstwhileloop 
  ..dehalfop: /firstwhileloop2 
} 
alias firstwhileloop { 
  var %i = 1 
  while (%i <= $snick(#,0)) { 
    /mode $active +h $snick($active,%i) 
    inc %i 
  } 
}  
alias firstwhileloop2 { 
  var %i = 1 
  while (%i <= $snick(#,0)) { 
    /mode $active -h $snick($active,%i) 
    inc %i 
  } 
}  
alias huggle { 
  var %i = 1 
  while (%i <= $snick(#,0)) { 
    /me huggles $snick($active,%i ) 
    inc %i 
  }
}
}