il look at it more later...;xIs this some sort of a TV episode called "Napa Takes it Up a Notch?" lol
Might as well say, "To Be Continued..." :P

You can shorten it further as such:

on *:dialog:wlist:sclick:6-10:{
  var %a = 6,8-10 , %b = 6,7,9,10 , %c = 6-8,10
  did -u wlist $replacex($did,6,7-10,7,%a,8,%b,9,%c,10,6-9)
}