rendered paste body*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*
*!* *!*
*!* C o n s o l e B i O - I r c o p *!*
*!* *!*
*!* Crée par Syltheb *!*
*!* *!*
*!* Et modifiée par BiOhAzArD *!*
*!* *!*
*!* Edition 2007 *!*
*!* *!*
*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*
on *:load:{
echo -a 4Good game l'ami
echo -a 11Tu viens de charger l'add on BiO Ircop 4modifié 8par 8alonzo94
echo -a 12Amuse toi bien ^^
}
menu channel {
.-
B i O - I r c o p: dialog -mied bioIrcop bioIrcop
}
alias bioIrcop dialog -mied bioIrcop bioIrcop
on *:snotice:*removed*G*Line*:{
if ($window(@UnGline)) {
aline -ph 4 @UnGline $asctime(HH:nn:ss) $1 ungline $4 $12 $13 $14
}
elseif (!$window(@UnGline)) {
window -mk0ne @UnGline
aline -ph 4 @UnGline $asctime(HH:nn:ss) $1 ungline $4 $12 $13 $14
}
}
on *:snotice:*Client connecting on port*:{
write biosg.txt $9 $+ $chr(33) $+ $mid($10,2,$calc($len($10) -2))
if ($dialog(bioIrcop) == $null) { halt }
else {
loadbuf -ro bioIrcop 1 biosg.txt
; write Arch_connect.txt $asctime(dd/mm/yyyy) $+ ! $asctime(HH:nn:ss) $+ ! $+ $server $+ : $+ $9 $+ $chr(33) $+ $mid($10,2,$calc($len($10) -2))
}
}
on *:snotice:*Client connecting at*:{
write biosg.txt $8 $+ $chr(33) $+ $right($left($9,-1),-1)
if ($dialog(bioIrcop) == $null) { halt }
else {
loadbuf -ro bioIrcop 1 biosg.txt
write Arch_connect.txt $asctime(dd/mm/yyyy) $+ ! $asctime(HH:nn:ss) $+ ! $+ $7 $+ $8 $+ $chr(33) $+ $right($left($9,-1),-1)
}
}
on *:SNOTICE:*client exiting at*:{
write -ds $8 biosg.txt
if ($dialog(bioIrcop) == $null) { halt }
else {
loadbuf -ro bioIrcop 1 biosg.txt
}
}
on *:SNOTICE:*client*exiting*:{
write -ds $6 $+ ! $+ $mid($7,2,$calc($len($7) -2)) biosg.txt
if ($dialog(bioIrcop) == $null) { halt }
else {
loadbuf -ro bioIrcop 1 biosg.txt
}
}
on *:snotice:*has*changed*his/her nickname*to*:{
write -ds $4 $+ $chr(33) $+ $mid($5,2,$calc($len($5) -2)) biosg.txt
write biosg.txt $11 $+ $chr(33) $+ $mid($5,2,$calc($len($5) -2))
if ($dialog(bioIrcop) == $null) { halt }
else {
loadbuf -ro bioIrcop 1 biosg.txt
}
}
on ^*:notice:*:*:{
if (%biobotlist == on) {
if ($nick == botserv) {
if (( Liste des !isin $1- ) && ( bots disponibles. !isin $1- )) {
write botlist.txt $1
loadbuf -ro bioircop 201 botlist.txt
halt
}
if ( bots disponibles. isin $1-) { set %biobotlist off }
}
}
if (%biohostlist == on) {
if ($nick == hostserv) {
if ( Affiche tout les enregistrement !isin $1- ) {
write hostlist.txt $remove($mid($2, 1, -1),,Pseudo:) __VHost : $remove($3,vhost:,)
loadbuf -ro bioircop 203 hostlist.txt
halt
}
else set %biohostlist off
did -b bioircop 219 ($remove($6,) VHost enregistrées
}
}
}
dialog bioIrcop {
title "C o n s o l e B i O I R C o p"
size -1 -1 309 229
option dbu
tab "M o d é r a t i o n S e r v e u r", 100, 1 -2 307 229
box "H o s t C l i e n t s", 30, 4 14 260 160, tab 100
button "Clear", 3, 268 14 37 12, tab 100
button "Copy", 4, 268 28 37 12, tab 100
button "Kill Pseudo", 6, 4 200 34 12, tab 100
button "whois", 5, 268 56 37 12, tab 100
button "&Akill", 10, 174 176 30 12, tab 100
button "Query", 9, 268 70 37 12, tab 100
button "Svsnick", 11, 268 126 37 12, tab 100
button "Chg Ident", 16, 268 98 37 12, tab 100
button "Chg Name", 18, 268 84 37 12, tab 100
button "Chg Host", 17, 268 112 37 12, tab 100
list 1, 7 22 254 148, tab 100 sort size extsel hsbar vsbar
button "Shun", 19, 4 176 25 12, tab 100
button "Gline Raison", 20, 151 200 34 12, tab 100
button "Unshun", 28, 30 176 25 12, tab 100
button "Ungline", 24, 151 213 34 12, tab 100
button "Unkline", 25, 87 176 25 12, tab 100
button "Unzline", 26, 144 176 25 12, tab 100
button "Kline", 27, 61 176 25 12, tab 100
button "zline", 29, 118 176 25 12, tab 100
button "Notice", 31, 268 140 37 12, tab 100
button "Wallops", 40, 193 200 34 12, tab 100
box "M e s s a g e s", 41, 191 192 74 35, tab 100
button "Globops", 42, 228 200 34 12, tab 100
button "Locops", 44, 193 213 34 12, tab 100
box "K i l l", 8, 2 192 74 35, tab 100
button "Global", 12, 228 213 34 12, tab 100
button "Kill Bot", 13, 39 200 34 12, tab 100
button "Kill Speed", 14, 4 213 34 12, tab 100
button "Kill raison", 15, 39 213 34 12, tab 100
box "G : l i n e", 7, 79 192 109 35, tab 100
button "Gline Pseudo", 21, 81 200 34 12, tab 100
button "Gline Bot", 22, 116 200 34 12, tab 100
button "Gline Speed", 23, 81 213 34 12, tab 100
button "Gline Spam", 32, 116 213 34 12, tab 100
button "Sajoin", 33, 268 154 37 12, tab 100
button "Sapart", 34, 268 168 37 12, tab 100
button "Samode Nick", 35, 268 182 37 12, tab 100
button "Flood Join", 36, 212 176 37 12, tab 100
button "Samode Chan", 37, 268 196 37 12, tab 100
button "Effacer", 54, 268 42 37 12, tab 100
tab "U n : G l i n e", 101
box "G : L i n e - é m i s", 38, 4 14 296 192, tab 101
button "UnGline", 111, 136 213 128 12, tab 101
list 112, 7 22 290 180, tab 101 size extsel hsbar vsbar
button "Refresh", 113, 3 213 128 12, tab 101 flat
tab "B o t S e r v - H o s t S e r v", 102
box "G e s t i o n - D e s - B o t S e r v", 200, 3 23 122 204, tab 102
list 201, 5 47 64 178, tab 102
box "G e s t i o n - H o s t s e r v", 202, 129 23 177 204, tab 102
list 203, 131 47 172 151, tab 102
text "Liste des BotServ :", 204, 5 35 64 8, tab 102 center
text "Liste des VHost :", 205, 131 35 114 8, tab 102 center
button "Botlist/Refresh", 206, 73 47 47 12, tab 102
button "Assign-Bot/Chan", 207, 73 62 47 12, tab 102
button "Info-BotServ", 208, 73 77 47 12, tab 102
button "UnAssign-Bot", 209, 73 92 47 12, tab 102
button "Ajout-BotServ", 210, 73 107 47 12, tab 102
button "Modification-Bot", 211, 73 122 47 12, tab 102
button "Suppression-Bot", 212, 73 137 47 12, tab 102
button "Refresh", 213, 131 200 28 25, tab 102
button "Set-VHost", 215, 162 200 47 12, tab 102
button "SetAll-VHost", 216, 162 213 47 12, tab 102
button "Del-VHost", 217, 212 200 47 12, tab 102
button "DelAll-VHost", 218, 212 213 47 12, tab 102
button "&Q u i t", 2, 268 212 37 12, ok
menu "Configuration", 39
menu "Kill", 43, 39
item "Kill Pseudo", 45, 43
item "Kill Bot", 46, 43
item "Kill Speed", 47, 43
menu "Gline", 48, 39
item "Gline Pseudo", 49, 48
item "Gline Bot", 50, 48
item "Gline Speed", 51, 48
item "Gline Spam", 52, 48
item "Voir", 53, 39
item "Gline Double Click", 55, 39
}
on *:dialog:bioIrcop:init:*: {
loadbuf -o bioIrcop 1 biosg.txt
loadbuf -o bioircop 112 ssg.txt
dbcoff
}
on *:dialog:bioIrcop:menu:45: { set %KPseudo $$?="Raison du Kill Pseudo : ? " | echo -a 4Nouvelle Raison du 7Kill Pseudo : 8 %Kpseudo }
on *:dialog:bioIrcop:menu:46: { set %Kbot $$?="Raison du Kill Bot : ? " | echo -a 4Nouvelle Raison du 7Kill Bot : 8 %KBot }
on *:dialog:bioIrcop:menu:47: { set %KSpeed $$?="Raison du Kill Speed : ? " | echo -a 4Nouvelle Raison du 7Kill Speed : 8 %KSpeed }
on *:dialog:bioIrcop:menu:49: { set %Gpseudo $$?="Raison du Gline Pseudo : ? " | echo -a 4Nouvelle Raison du 7Gline Pseudo : 8 %GPseudo }
on *:dialog:bioIrcop:menu:50: { set %GBot $$?="Raison du Gline Bot : ? " | echo -a 4Nouvelle Raison du 7Gline Bot : 8 %GBot }
on *:dialog:bioIrcop:menu:51: { set %GSpeed $$?="Raison du Gline Speed : ? " | echo -a 4Nouvelle Raison du 7Gline Speed : 8 %GSpeed }
on *:dialog:bioIrcop:menu:52: { set %GSpam $$?="Raison du Gline Spam : ? " | echo -a 4Nouvelle Raison du 7Gline Spam : 8 %GSpam }
on *:dialog:bioIrcop:menu:53: {
echo -a 4Raison du 7Kill Pseudo : 8 %Kpseudo
echo -a 4Raison du 7Kill Bot : 8 %KBot
echo -a 4Raison du 7Kill Speed : 8 %KSpeed
echo -a 4Raison du 7Gline Pseudo : 8 %Gpseudo
echo -a 4Raison du 7Gline Bot : 8 %Gbot
echo -a 4Raison du 7Gline Speed : 8 %GSpeed
echo -a 4Raison du 7Gline Spam : 8 %GSpam
}
on *:dialog:bioIrcop:menu:55:{
if (%bioDbClick == on) {
dbcoff
}
else if (%bioDbClick == off) {
dbcon
}
}
on *:dialog:bioIrcop:dclick:1:{
if (%bioDbClick == on) {
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)) 1d %GSpeed © $me ™
}
}
on *:dialog:bioIrcop:sclick:2:{ }
on *:dialog:bioIrcop:sclick:3:{ did -r bioIrcop 1 | write -c biosg.txt }
on *:dialog:bioIrcop:sclick:4:{ clipboard $did(01,$did(01).sel) }
on *:dialog:bioIrcop:sclick:5:{ whois $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) }
on *:dialog:bioIrcop:sclick:6:{ kill $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) %KPseudo © $me ™ }
on *:dialog:bioIrcop: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:bioIrcop:sclick:9:{ query $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) }
on *:dialog:bioIrcop: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:bioIrcop:sclick:11:{ os set superadmin on | os svsnick $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) $$?=="Nouveau Pseudo :" | os set superadmin off }
on *:dialog:bioIrcop:sclick:12:{ Global $$?="Message à envoyer à tous les Users : " }
on *:dialog:bioIrcop:sclick:13:{ kill $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) %KBot © $me ™ }
on *:dialog:bioIrcop:sclick:14:{ kill $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) %KSpeed © $me ™ }
on *:dialog:bioIrcop:sclick:15:{ kill $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) $$?="Raison : ?" © $me ™ }
on *:dialog:bioIrcop: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:bioIrcop: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:bioIrcop: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:bioIrcop: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:bioIrcop: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)) 1d $$?="Raison du G:Line: ?" © $me ™ }
on *:dialog:bioIrcop:sclick:21:{ 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)) 1d %GPseudo © $me ™ }
on *:dialog:bioIrcop:sclick:22:{ 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)) 1d %GBot © $me ™ }
on *:dialog:bioIrcop:sclick:23:{ 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)) 1d %GSpeed © $me ™ }
on *:dialog:bioIrcop:sclick:24:{ gline - $+ $$?="Mask à UnGline " }
on *:dialog:bioIrcop:sclick:25:{ unkline $$?="Mask à UnKline " }
on *:dialog:bioIrcop:sclick:26:{ unzline $$?="IP à UnZline" }
on *:dialog:bioIrcop: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)) $$?="Raison du Kline: ?" }
on *:dialog:bioIrcop:sclick:28:{ shun - $+ $$?="Mask à UnShun " }
on *:dialog:bioIrcop:sclick:29:{ zlinealias }
on *:dialog:bioIrcop:sclick:31:{ Notice $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) $$?="Message :" }
on *:dialog:bioIrcop:sclick:32:{ 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)) 1d %GSpam }
on *:dialog:bioIrcop:sclick:33:{ sajoin $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) $$?="Chan :" }
on *:dialog:bioIrcop:sclick:34:{ sapart $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) $$?="Chan :" }
on *:dialog:bioIrcop:sclick:35:{ samode $$?="Quel chan:" $$?="Quel mode :" $mid($did(01,$did(01).sel),1,$calc($pos($did(01,$did(01).sel),$chr(33),1) - 1)) }
on *:dialog:bioIrcop:sclick:36:{ samode $$?="Quel chan:" +f [1j#R1]:3 }
on *:dialog:bioIrcop:sclick:37:{ samode $$?="Quel chan:" $$?="Quel mode :" }
on *:dialog:bioIrcop: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)) Proxy insécurisé }
on *:dialog:bioIrcop:sclick:40:{ wallops $$?="Message à envoyer à tous les users (umode +w) :" }
on *:dialog:bioIrcop:sclick:42:{ globops $$?="Message à envoyer à tous les IRCOps :" }
on *:dialog:bioIrcop:sclick:44:{ locops $$?="Message à envoyer à tous les IRCOps locaux :" }
on *:dialog:bioIrcop:sclick:54: { write -ds $did(01).seltext biosg.txt | loadbuf -ro bioIrcop 1 biosg.txt }
on *:dialog:bioircop:sclick:206:{ write -c botlist.txt | set %biobotlist on | bs botlist }
on *:dialog:bioircop:sclick:213:{ write -c hostlist.txt | set %biohostlist on | hs list }
on *:dialog:bioircop:sclick:207:{ bs assign $$?="Quel chan (avec #) ?" $did(201).seltext }
on *:dialog:bioircop:sclick:209:{ bs unassign $$?="Quel chan (avec #) ?" }
on *:dialog:bioircop:sclick:208:{ bs info $did(201).seltext }
on *:dialog:bioircop:sclick:210:{ bs bot add $$?="Pseudo du BotServ :" Services Services.fanny39.org Services }
on *:dialog:bioircop:sclick:211:{ bs bot change $did(201).seltext $$?="Nouveau pseudo du BotServ :" Services Services.fanny39.org Services }
on *:dialog:bioircop:sclick:212:{ bs bot del $did(201).seltext }
on *:dialog:bioircop:sclick:213:{ write -c hostlist.txt | set %biohostlist on | hs list }
on *:dialog:bioircop:sclick:215:{ hs set $$?="A Quel Pseudo attribuer la vHost ?" $$=?"Quelle vHost ?" }
on *:dialog:bioircop:sclick:216:{ hs setall $$?="A Quel Group de Pseudo attribuer la vHost ?" $$=?"Quelle vHost ?" }
on *:dialog:bioircop:sclick:217:{ hs del $mid($did(203,$did(203).sel),1,$calc($pos($did(203,$did(203).sel),$chr(32),1) - 1)) }
on *:dialog:bioircop:sclick:218:{ hs delall $mid($did(203,$did(203).sel),1,$calc($pos($did(203,$did(203).sel),$chr(32),1) - 1)) }
on *:dialog:bioircop:sclick:111:{
gline - $+ $gettok($did(112).seltext,1,32)
msg #services 4[8Info4] 14 $me remove G:line $did(112).seltext
write -c ssg.txt
stats G
loadbuf -ro bioircop 112 ssg.txt
halt
}
on *:dialog:bioircop:sclick:113:{
write -c ssg.txt
stats G
loadbuf -ro bioircop 112 ssg.txt
halt
}
raw 223:*:{
write ssg.txt $3 $6 $7-
loadbuf -ro bioircop 112 ssg.txt
}
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 fanny39.org
haltdef
}
ON *:DNS:{
%Ip.resolue = $iaddress
; msg talis addblack %ip.resolue
}
alias dbcon {
set %bioDbClick on
echo -a 4Gline Speed Double-Click Activé
}
alias dbcoff {
set %bioDbClick off
echo -a 4Gline Speed Double-Click Désactivé