on *:TEXT:shoplist*:?:{
  var %x 1
  while ($read(shops.txt,s,$2,%x)) {
    /msg $nick sl $read(shops.txt,s,$2,%x)
    var %x $calc($readn + 1)
  }
}



the sl is just my code word to add to players list in dialog >.<