on *:text:*:#: {
  var %shop.id $base($2,10,10,1)
  if ($1 == !add) && (%shop.id isnum 1-200) && ($len($3-) isnum 1-50) && (!$readini(shop.ini,add,%shop.id)) {
    writeini shop.ini add %shop.id $3- ( $+ $nick $+ )
    msg $nick Jusu prasymas idetas!
  } 
  if ($1 == !delete) && ($nick isop $chan) && (%shop.id isnum 1-200) {
    writeini shop.ini add %shop.id 0
    msg $nick Prasymas $chr(35) $+ %shop.id sekmingai istrintas 
  }
  if ($1 == !shop) {
    var %stemp 1
    var %tline
    var %sayline
    while (%stemp <= 200) {
      %tline = $readini(shop.ini,add,%stemp)
      if (%tline) {
        if ($calc($len(%sayline)+$len(%tline)) > 400) {
          msg $chan %sayline $+ .
          %sayline = ID: $+ %stemp %tline
        }
        else %sayline = %sayline $+ $iif(%sayline,$chr(44),$null) ID: $+ %stemp %tline
      }
      inc %stemp
    }
    msg $chan %sayline $+ .
  }
}