*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*
*!*                                               *!*
*!*      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é