R4zoX
Messages postés
81
Date d'inscription
mercredi 23 février 2005
Statut
Membre
Dernière intervention
1 mai 2007
22 juin 2005 à 15:15
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::
}
}