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
}
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.