Someone

on *:text:*:#: {
  var %shop.id $base($2,10,10,1)
  if ($1 == !add) && ($len($2-) isnum 1-50) {
    var %atemp 1
    while (%atemp <= 200) {
      if (!$readini(shop.ini,add,%atemp)) {
        writeini shop.ini add %atemp $2- ( $+ $nick $+ )
        .msg $nick Jusu prasymas idetas! ID: $+ %atemp
        halt
      }
      inc %atemp
    }
  } 
  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 $iif(%sayline,%sayline,Saraso pabaiga) $+ .
  }
}