Commande ircop/admin

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 171 fois - Téléchargée 28 fois

Contenu du snippet

bon deja je presise!!se code n'est pas du tou de moi mais dun amie mais il aime pas poster(jai euh son accord avant :p)
ex:kill,gline,etc...
toute personne pouvant me dire les ereur je lai modife pour mieu :)
merci davance
(/kiricop pour louvrir(direct ds vo remote))

Source / Exemple :


alias kiricop dialog -odm kiricop kiricop | .enable #kiricop

on *:snotice:*Client connecting on port*:{
  if ($dialog(kiricop) == $null) { .disable #kiricop }
else { did -i kiricop 1 1 $9 $+ $chr(33) $+ $mid($10,2,$calc($len($10) -2)) }  } 

on *:snotice:*Client connecting at*:{
  if ($dialog(kiricop) == $null) { .disable #kiricop }
else { did -i kiricop 1 1 $8 $+ $chr(33) $+ $right($left($9,-1),-1) }  } 

on *:SNOTICE:*client exiting*:{
  if ($dialog(kiricop) == $null) { .disable #kiricop }
  else { %kiri.kiricop = 1 | while ($did(kiricop,1,%kiri.kiricop) != $nul) { if (* $+ $chr(33) $+ $left($right($7,-1),-1) iswm $did(kiricop,1,%kiri.kiricop)) { did -d kiricop 1 %kiri.kiricop | goto fin } | inc %kiri.kiricop } | :fin }
} 

off *:SNOTICE:*client exiting at*:{
  if ($dialog(kiricop) == $null) { .disable #kiricop }
  else { %kiri.kiricob = 1 | while ($did(kiricop,1,%kiri.kiricob) != $nul) { if (* $+ $chr(33) $+ $gettok($8,1,33) iswm $did(kiricop,1,%kiri.kiricob)) { did -d kiricop 1 %kiri.kiricob | goto fin } | inc %kiri.kiricob| :fin }
  } 
}

on *:snotice:*has changed his/her nickname to*:{
  if ($dialog(kiricop) == $null) { .disable #kiricop }
  elseif ($didwm(kiricop,1,$4 $+ !*) != 0) { did -o kiricop 1 $didwm(kiricop,1,$4 $+ !*) $11 $+ ! $+ $gettok($did(kiricop,1,$didwm(kiricop,1,$4 $+ !*)),2,33) }
}

off *:snotice:*has changed his/her nickname to*:{
  if ($dialog(kiricop) == $null) { .disable #kiricop }
else { did -i kiricop 1 1 $11 $+ $chr(33) $+ $right($left($6,-1),-1) }  }

dialog kiricop {
  title "IRCOP"
  size -1 -1 302 205
  option dbu
  box "Host Clients", 30, 4 4 255 138
  button "Quit", 02, 274 192 28 12, ok
  button "Clear", 03, 263 21 37 12
  button "Copy", 04, 263 33 37 12
  button "Kill", 06, 27 143 25 12
  button "is", 05, 286 45 14 12
  button "who", 15, 263 45 23 12
  button "&Akill", 10, 2 155 25 12
  button "Akill", 07, 52 143 25 12
  button "Query", 09, 263 57 37 12
  button "&Mkill", 08, 2 143 25 12
  button "Svskill", 13, 27 155 25 12
  button "Svsnick", 11, 263 105 37 12
  button "Chg Ident", 16, 263 81 37 12
  button "Chg Name", 18, 263 69 37 12
  button "Chg Host", 17, 263 93 37 12
  list 01, 7 12 249 126, sort size extsel hsbar vsbar
  button "Shun", 19, 77 143 25 12
  button "Gline", 20, 127 143 25 12
  button "Delete", 21, 263 9 37 12
  button "Rakill", 22, 52 155 25 12
  button "Unshun", 28, 77 155 25 12
  button "Ungline", 24, 127 155 25 12
  button "Unkline", 25, 152 155 25 12
  button "Unzline", 26, 102 155 25 12
  button "Kline", 27, 152 143 25 12
  button "zline", 29, 102 143 25 12
  button "Services", 31, 263 117 37 12
  button "Add Host", 32, 263 129 37 12
  box "Clônes", 33, 2 169 30 35
  button "Kill", 34, 8 177 19 12
  button "Akill", 35, 8 189 19 12
  box "Proxys", 36, 32 169 30 35
  button "Kill", 37, 37 177 19 12
  button "Akill", 38, 37 189 19 12
  button "Wallops", 40, 64 177 26 12
  box "Messages", 41, 62 169 80 35
  button "Globops", 42, 90 177 25 12
  button "TeChat", 43, 115 177 25 12
  button "Locops", 44, 64 189 26 12
  button "AdChat", 45, 90 189 25 12
  button "NaChat", 46, 115 189 25 12
}

on *:dialog:kiricop:sclick:2:{ .disable #kiricop }
on *:dialog:kiricop:sclick:3:{ did -r kiricop 1 }
on *:dialog:kiricop:sclick:4:{ clipboard $did(01,$did(01).sel) }
on *:dialog:kiricop:sclick:5:{ whois $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) }
on *:dialog:kiricop:sclick:15:{ who $mid($did(01,$did(01).sel),$calc($pos($did(01,$did(01).sel),$chr(64),1) + 1),$calc($len($did(01,$did(01).sel)) - $pos($did(01,$did(01).sel),$chr(64),1))) }
on *:dialog:kiricop:sclick:6:{ kill $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) :)  }
on *:dialog:kiricop:sclick:7:{ akill $chr(42) $+ $mid($did(01,$did(01).sel),$pos($did(01,$did(01).sel),$chr(64),1),$calc($len($did(01,$did(01).sel)) - $pos($did(01,$did(01).sel),$chr(64),1) + 1)) You are banned from this network  1440 }
on *:dialog:kiricop:sclick:8:{ mkill $chr(42) $+ $mid($did(01,$did(01).sel),$pos($did(01,$did(01).sel),$chr(64),1),$calc($len($did(01,$did(01).sel)) - $pos($did(01,$did(01).sel),$chr(64),1) + 1)) $$?="Raison Du Mkill ?" } 
on *:dialog:kiricop:sclick:9:{ query $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1))  }
on *:dialog:kiricop:sclick:10:{ akill $chr(42) $+ $mid($did(01,$did(01).sel),$pos($did(01,$did(01).sel),$chr(64),1),$calc($len($did(01,$did(01).sel)) - $pos($did(01,$did(01).sel),$chr(64),1) + 1)) $$?="Raison Du Akill ?" 1440  }
on *:dialog:kiricop:sclick:13:{ msg operserv raw svskill $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) : $$?="ex : Ping timeout "  }
on *:dialog:kiricop:sclick:14:{ msg operserv raw : svsnick  $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) $$?="Nouveau Pseudo" 1  }
on *:dialog:kiricop:sclick:16:{ chgident $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) $$?="Username a attribuer"  }
on *:dialog:kiricop:sclick:17:{ chghost $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) $$?="Mask-host a attribuer"  }
on *:dialog:kiricop:sclick:18:{ chgname $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) : $+ $$?="Realname a attribuer"  }
on *:dialog:kiricop:sclick:19:{ shun $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) 1440 :Shun  }
on *:dialog:kiricop:sclick:20:{ gline $chr(42) $+ $mid($did(01,$did(01).sel),$pos($did(01,$did(01).sel),$chr(64),1),$calc($len($did(01,$did(01).sel)) - $pos($did(01,$did(01).sel),$chr(64),1) + 1)) 0 :you are Banned of Atlantys.homeip.net ( abus@atlantys.homeip.net ) }
on *:dialog:kiricop:sclick:21:{ did -d kiricop 1 $did(1).sel }
on *:dialog:kiricop:sclick:22:{ rakill $$?="Mask à rakill " }
on *:dialog:kiricop:sclick:28:{ shun - $+ $$?="Mask à UnShun " }
on *:dialog:kiricop:sclick:24:{ gline - $+ $$?="Mask à UnGline " }
on *:dialog:kiricop:sclick:25:{ unkline $$?="Mask à UnKline " }
on *:dialog:kiricop:sclick:26:{ unzline $$?="IP à UnZline" }
on *:dialog:kiricop:sclick:27:{ kline $chr(42) $+ $mid($did(01,$did(01).sel),$pos($did(01,$did(01).sel),$chr(64),1),$calc($len($did(01,$did(01).sel)) - $pos($did(01,$did(01).sel),$chr(64),1) + 1)) you are Banned of Atlantys.homeip.net ( abus@atlantys.homeip.net )  }
on *:dialog:kiricop:sclick:29:{ zlinealias }
on *:dialog:kiricop:sclick:31:{ servicekiri }
on *:dialog:kiricop:sclick:32:{ did -i kiricop 1 1 $$?="Host a ajouté" }
on *:dialog:kiricop:sclick:34:{ kill $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) The clônes are not authorized  ( abus@atlantys.homeip.net ) }
on *:dialog:kiricop:sclick:35:{ akill $chr(42) $+ $mid($did(01,$did(01).sel),$pos($did(01,$did(01).sel),$chr(64),1),$calc($len($did(01,$did(01).sel)) - $pos($did(01,$did(01).sel),$chr(64),1) + 1)) The clônes are not authorized  ( abus@atlantys.homeip.net ) }
on *:dialog:kiricop:sclick:37:{ kill $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) The proxys are not authorized ( abus@atlantys.homeip.net )  }          
on *:dialog:kiricop:sclick:38:{ akill $chr(42) $+ $mid($did(01,$did(01).sel),$pos($did(01,$did(01).sel),$chr(64),1),$calc($len($did(01,$did(01).sel)) - $pos($did(01,$did(01).sel),$chr(64),1) + 1)) The proxys are not authorized ( abus@atlantys.homeip.net )  }
on *:dialog:kiricop:sclick:42:{ globops $$?="Message à envoyer à tous les IRCOps :" }
on *:dialog:kiricop:sclick:43:{ techat $$?="Message à envoyer à tous les TechAdmins :" }
on *:dialog:kiricop:sclick:44:{ locops $$?="Message à envoyer à tous les IRCOps locaux :" }
on *:dialog:kiricop:sclick:45:{ adchat $$?="Message à envoyer à tous les Admins :" }
on *:dialog:kiricop:sclick:46:{ nachat $$?="Message à envoyer à tous les Net/TechAdmins :" }
on *:dialog:kiricop:sclick:40:{ wallops $$?="Message à envoyer à tous les users (umode +w) :" }

alias servicekiri { 
  %chan.service = $$?="chan (#)"
  msg operserv raw :Nickserv join %chan.service
  msg operserv raw :Chanserv join %chan.service
  msg operserv raw :Botserv join %chan.service
  msg operserv raw :Memoserv join %chan.service
  .timer 1 2 mode %chan.service +hhhhhhhh Nickserv Chanserv Botserv Memoserv Operserv CSeRvIcE JaymanQuizz Uworld
}

alias zlinealias {
  dns -c $chr(42) $+ $mid($did(01,$did(01).sel),$pos($did(01,$did(01).sel),$chr(64),1),$calc($len($did(01,$did(01).sel)) - $pos($did(01,$did(01).sel),$chr(64),1) + 1)) 
  zline %Ip.resolue :you are Banned of Atlantys.homeip.net ( abus@atlantys.homeip.net)
  haltdef
}

ON *:DNS:{
  %Ip.resolue = $iaddress
  haltdef
}

A voir également

Ajouter un commentaire Commentaires
Messages postés
4
Date d'inscription
samedi 27 octobre 2012
Statut
Membre
Dernière intervention
28 novembre 2012

le menu marche mais aucune host a l'interieur c vide comment sa se fait ?
Messages postés
2
Date d'inscription
mardi 4 avril 2006
Statut
Membre
Dernière intervention
4 avril 2006

eh faut metre tout la psk jmis retrouve pu ^^
Messages postés
969
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
1 juillet 2012
1
Déjà, vérifie d'être sur un serveur où les services sont de types ANOPE (via: /raw -q version <nom du serveur des services>).

on *:dialog:kiricop:sclick:8:{ mkill $chr(42) $+ $mid($did(01,$did(01).sel),$pos($did(01,$did(01).sel),$chr(64),1),$calc($len($did(01,$did(01).sel)) - $pos($did(01,$did(01).sel),$chr(64),1) + 1)) $$?="Raison Du Mkill ?" }

l'alias MKILL c'est à nous de l'a faire ?

Que tu veuilles utiliser "$mid($did(01,$did(01).sel),$pos($did(01,$did(01).sel),$chr(64),1),$calc($len($did(01,$did(01).sel)) - $pos($did(01,$did(01).sel),$chr(64),1) + 1))" pour donner le pseudo, fais une alias pour que se soit plus jolis et ça t'évite de repeter 300 fois la même chose...

J'suis pas sur, mais dans ton alias "zlinealias", tu appelles $did sans spécifier de dialog, tu es sûr que ça fonctionne ?

.timer 1 2 mode %chan.service +hhhhhhhh Nickserv Chanserv Botserv Memoserv Operserv CSeRvIcE JaymanQuizz Uworld

Avant tu fais join NickServ, ChanServ, BotServ, MemoServ, OperServ (tu oublies HelpServ) et tu halfops CSeRvIcE jaymanQuizz Uworld ...

pour ton kill clone... pk ne pas utiliser /os killclones <nick> ?

mets à jour et on verra :)

Ps: pense à verifier si on est IRCOP minimum via $usermode ...
Messages postés
1726
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
1
bon bah déjà tu pourras dire à ton pote que: "off *:snotice:*"
ça existe pas. TOUS les events commencent par 'ON'

"# on *:snotice:*Client connecting on port*:{
# if ($dialog(kiricop) == $null) { .disable #kiricop }
# else { did -i kiricop 1 1 $9 $+ $chr(33) $+ $mid($10,2,$calc($len($10) -2)) } }
#
# on *:snotice:*Client connecting at*:{
# if ($dialog(kiricop) == $null) { .disable #kiricop }
# else { did -i kiricop 1 1 $8 $+ $chr(33) $+ $right($left($9,-1),-1) } }"
tu peux regrouper tout ça en un seul "on snotice" avec ou sans $iif mais au moins regrouper les events..

au lieu de faire plein de boutons, un combo avec un bouton appliquer suffirait amplement...

"$mid($did(01,$did(01).sel),$pos($did(01,$did(01).sel),$chr(64),1),$calc($len($did(01,$did(01).sel)) - $pos($did(01,$did(01).sel),$chr(64),1) + 1))"
à mon avis y doit yavoir bcp plus court pour retourner le pseudo sélectionné dans la liste mdr...

ya le nom d'un serveur IRC, ça serait bien de mettre ce nom ds une variable ou bien en utilisant un autre moyen de stockage mais que ce soit configurable au moins...

à mon avis un menu en popup serait plus utile qu'un dialog de ce genre pour la modération IRC.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ramsaice)