Seykron

alias iniexist {
  var %i = 1
  var %cnt = $readini($1, $2, 0)
  var %item = $null

  if ( %cnt == $null ) return 0

  while (%i <= %cnt) {
    %item = $readini($1,$2,%i)

    if ( %item == $3 ) {
      /set %se_inipos %i
      /return 1
    }

    inc %i
  }

  /set %se_inipos 0
  return 0

}