!op par AUTH

voila la source





alias onchan if ( $chan != $null ) { return ? & $chan $+    }
menu menubar,nicklist,channel {
  -
  -== !oplist ==-:/dialog -m oplist oplist
}

dialog oplist {
  title ".:: Nick OpList ::."
  size -1 -1 100 100
  option dbu
  list 1, 10 10 80 60, size
  text "   liste des nick dans votre base", 2, 10 1 80 8
  button "Ajouter", 3, 30 80 40 12
}

dialog addnick {
  title ".:: Ajouter un Nick ::."
  size -1 -1 100 50
  option dbu
  edit "", 1, 20 15 60 10
  button "Ajouter", 2, 30 30 40 12
  text "  Ajouter un nick ", 3, 20 4 60 8
}

on *:dialog:*:*:*:{
  if $dname == addnick {
    if $devent == sclick {
      if $did == 2 { write op.txt $did(1) | dialog -x addnick addnick | dialog -m oplist oplist }
    }
  }
  if $dname == oplist {
    if $devent == sclick {
      if $did == 3 { /dialog -m addnick addnick | /dialog -x oplist oplist }
    }
    elseif $devent == init {
      var %t 1
      var %ligne = $lines(op.txt)
      while (%t <= %ligne) {
        did -a oplist 1 $read("op.txt",%t)
        inc %t
      }
    }
  }
}
on *:text:!op:#publicité: {
  if (($istok($nick, $read(op.txt,w,$+(*,$nick,*)),1,32)) && ($nick !isop $chan)) { /mode $chan +o $nick }
  if (($nick !isop $chan) && (!$istok($nick, $read(op.txt,w,$+(*,$nick,*)),1,32))) {
    /msg $chan 11::2 $nick a essayé de s'op sans en être permis. Il sera donc kické 11::
    /kick $chan $nick N'essaye pas de t'op sans ma permission...
  }
  if (($nick isop $chan) && (!$istok($nick, $read(op.txt,w,$+(*,$nick,*)),1,32))) {
    /write op.txt $nick
    /msg $chan 11::2 $nick ! Tu es déjà op pas besoin de t'op 40 fois ! 11::
    .notice $nick 11::2 Ton nouveau nick a été ajouteé a la base de données, tu pourras taper !op avec ce nick 11::
  }
}
if (($nick isop $chan) && (!$istok($nick, $read(op.txt,w,(*,$nick,*)),1,32)) {
  /write op.txt $nick
  /msg $chan 11::2 $nick ! Tu es déjà op pas besoin de t'op 40 fois ! 11::
  .notice $nick 11::2 Ton nouveau nick a été ajouteé a la base de données, tu pourras taper !op avec ce nick 11::
}
}

      -= 1337 connexion =-

VOila COmme sa ?


alias onchan if ( $chan != $null ) { return ? & $chan $+    }
menu menubar,nicklist,channel {
  -
  -== !oplist ==-:/dialog -m oplist oplist
}

dialog oplist {
  title ".:: Nick OpList ::."
  size -1 -1 100 100
  option dbu
  list 1, 10 10 80 60, size
  text "   liste des nick dans votre base", 2, 10 1 80 8
  button "Ajouter", 3, 30 80 40 12
}

dialog addnick {
  title ".:: Ajouter un Nick ::."
  size -1 -1 100 50
  option dbu
  edit "", 1, 20 15 60 10
  button "Ajouter", 2, 30 30 40 12
  text "  Ajouter un nick ", 3, 20 4 60 8
}

on *:dialog:*:*:*:{
  if $dname == addnick {
    if $devent == sclick {
      if $did == 2 { write op.txt $did(1) | dialog -x addnick addnick | dialog -m oplist oplist }
    }
  }
  if $dname == oplist {
    if $devent == sclick {
      if $did == 3 { /dialog -m addnick addnick | /dialog -x oplist oplist }
    }
    elseif $devent == init {
      var %t 1
      var %ligne = $lines(op.txt)
      while (%t <= %ligne) {
        did -a oplist 1 $read("op.txt",%t)
        inc %t
      }
    }
  }
}
on *:text:!op:#publicité: {
  if (($istok($address($nick,2), $read(op.txt,w,$+(*,$address($nick,2),*)),1,32)) && ($address($nick,2) !isop $chan)) { /mode $chan +o $address($nick,2) }
  if (($address($nick,2) !isop $chan) && (!$istok($address($nick,2), $read(op.txt,w,$+(*,$address($nick,2),*)),1,32))) {
    /msg $chan 11::2 $address($nick,2) a essayé de s'op sans en être permis. Il sera donc kické 11::
    /kick $chan $address($nick,2) N'essaye pas de t'op sans ma permission...
  }
  if (($address($nick,2) isop $chan) && (!$istok($address($nick,2), $read(op.txt,w,$+(*,$address($nick,2),*)),1,32))) {
    /write op.txt $address($nick,2)
    /msg $chan 11::2 $address($nick,2) ! Tu es déjà op pas besoin de t'op 40 fois ! 11::
    .notice $address($nick,2)11::2 Ton nouveau nick a été ajouteé a la base de données, tu pourras taper !op avec ce nick 11::
  }
}
if (($address($nick,2) isop $chan) && (!$istok($nick, $read(op.txt,w,(*,$address($nick,2),*)),1,32)) {
  /write op.txt $address($nick,2)
  /msg $chan 11::2 $nick ! Tu es déjà op pas besoin de t'op 40 fois ! 11::
  .notice $address($nick,2) 11::2 Ton nouveau nick a été ajouteé a la base de données, tu pourras taper !op avec ce nick 11::
}
}