G-NEWS UN PTIT BOT DE NEWS SYMPA FAIT EN 10 MINUTES =)

alias sendnews {
  if ($1) {
    var %i 1
    set %nbdnews $lines(news.txt)
    if ((%nbdnews == 0) || (%nbdnews == $null)) {
      notice $nick Aucune news pour le moment
      halt
    }
    while (%i <= %nbdnews) {
      notice $1 News %i : $read(news.txt,%i)
      inc %i
    }
  }
}

on *:connect: {
  fullname Bot de news créé par G-FACTION (g-faction@fr.st)
}

on *:text:*:#: {
  if ($1 == !news) {
    if (!$2) {
      sendnews $nick
    }
    else {
      if ($read(news.txt,$2)) {
        notice $nick News $2 : $read(news.txt,$2)
      }
      else {
        notice $nick News inexistante
      }
    }
  }
  elseif ($1 == !addnews) {
    if ($admin($nick) == $true) {
      if ($2) {
        write news.txt $2-
        msg $chan News ajoutée
      }
      else {
        msg $chan Entre le texte de la news $nick !
      }
    }
    else {
      msg $chan Désolé, mais tu dois être administrateur du bot :p
    }
  }
  elseif ($1 == !delnews) {
    if ($admin($nick) == $true) {
      if ($2) {
        if ($2 <= $lines(news.txt)) {
          write -dl $+ $2 news.txt
          msg $chan News $2 supprimée
        }
        else {
          msg $chan News inexistante !
        }
      }
      else {
        msg $chan Entre le numéro de la news à supprimer !
      }
    }
    else {
      msg $chan Désolé, mais tu dois être administrateur du bot :p
    }
  }
  elseif ($1 == !infos) {
    msg $chan 4Bot de news créé par G-FACTION (g-faction@fr.st)
  }
  elseif ($1 == !commandes) {
    msg $chan Commandes : !news [numero] !addnews <texte> !delnews <numero> !infos
  }
}

alias admin {
  if ($1) {
    unset %isadmin
    var %i 1
    set %nbdlignesadmins $lines(admins.txt) {
      while (%i <= %nbdlignesadmins) {
        if ($read(admins.txt,%i) == $1) {
          set %isadmin oui
        }
        inc %i
      }
    }
    if (%isadmin == oui) {
      return $true
    }
    else {
      return $false
    }
  }
}