begin process at 2012 02 08 18:07:57
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > C'EST UN AUTO-JOINT... AUSSI...

C'EST UN AUTO-JOINT... AUSSI...


 Information sur la source

 Description

Il présente l'avantage d'utiliser le chan-folder de mirc, (ajout/suppression.) et de ne pas être limité, il a aussi de rapides options de Founder (encore sous ChanServ)

Source

  • ;======Procédures internes
  • alias setautogoreg {
  • set %numchan 0
  • unset %autogoreg
  • :loop
  • set %donnée $readini mirc.ini chanfolder n [ $+ [ %numchan ] ]
  • inc %numchan 1
  • if (%donnée == $null ) goto finsetautogoreg
  • set %autogoreg $insertreg(%autogoreg, %donnée)
  • goto loop
  • :finsetautogoreg
  • unset %donnée %numchan
  • }
  • alias ajouterchan {
  • set %numreg 1
  • :loop
  • set %donnée $gettok(%autogoreg,%numreg,44)
  • if (%donnée == $nul) goto finajouter
  • set %numécrire %numreg - 1
  • writeini mirc.ini chanfolder n $+ %numécrire %donnée
  • inc %numreg
  • goto loop
  • :finajouter
  • unset %donnée %numreg %numécrire
  • }
  • alias suprimerchan {
  • set %numreg 1
  • :loop
  • set %donnée $gettok(%autogoreg,%numreg,44)
  • if (%donnée == $nul) goto finajouter
  • set %numécrire %numreg - 1
  • writeini mirc.ini chanfolder n $+ %numécrire %donnée
  • inc %numreg
  • goto loop
  • :finajouter
  • set %numécrire %numreg - 1
  • remini mirc.ini chanfolder n $+ %numécrire
  • unset %donnée %numreg %numécrire
  • }
  • alias lesrejoindre {
  • set %autoacte.count.n 0
  • set %tps 10
  • :loopact
  • inc %autoacte.count.n
  • set %goin $gettok(%autoactereg,%autoacte.count.n,44)
  • if (%goin == $null) goto fini
  • .timer 1 %tps /join %goin
  • inc %tps 5
  • goto loopact
  • :fini
  • unset %autoacte.count.n %tps %goin
  • }
  • alias setautogo_2 {
  • did -r autogo 2
  • set %autogo.count.n 0
  • :loop
  • inc %autogo.count.n
  • set %donnée $gettok(%autogoreg,%autogo.count.n,44)
  • if (%donnée == $nul) goto finsetautogo_2
  • did -a autogo 2 %donnée
  • goto loop
  • :finsetautogo_2
  • unset %autogo.count.n
  • unset %donnée
  • }
  • alias setautogo_3 {
  • did -r autogo 3
  • set %autoacte.count.n 0
  • :loopact
  • inc %autoacte.count.n
  • set %donnée $gettok(%autoactereg,%autoacte.count.n,44)
  • if (%donnée == $null) /goto finsetautogo_3
  • did -a autogo 3 %donnée
  • goto loopact
  • :finsetautogo_3
  • unset %autoacte.count.n
  • unset %donnée
  • }
  • ;========== Dialog ============
  • alias autogo dialog -m autogo autogo
  • dialog autogo {
  • size -1 -1 410 300
  • title "Auto rejoindre les salons "
  • tab "Joindre",20, 170 50 230 185
  • tab "Founder",30
  • button "Fermer", 1, 330 245 70 20, ok
  • button "Joindre", 13, 330 20 70 20
  • check "Rejoindre automatiquement", 11, 175 75 200 20,tab 20
  • button "Les joindres", 14, 325 198 70 20,tab 20
  • list 3,175 95 140 140,tab 20
  • check "Activer l'auto-Join", 6, 10 245 130 20,tab 20
  • check "Afficher à la connection", 12, 140 245 130 20, tab 20
  • box "Liste des Chanels", 10, 10 5 395 230
  • button "Ajouter", 7, 15 20 70 20
  • button "Enlever", 8, 90 20 70 20
  • list 2, 15 45 150 200
  • edit "", 4, 170 20 150 20, autohs
  • check "Activer l'auto-identification- founder", 56, 10 245 200 20,tab 30
  • button "s'identifier", 512, 180 130 60 20, tab 30
  • button "Changer", 513, 245 130 60 20, tab 30
  • button "Enregistrer", 514, 310 130 60 20, tab 30
  • button "DROPPER", 515, 315 170 60 20, tab 30
  • box "",516, 175 150 210 50, tab 30
  • text "Attention , commande pour désenregistrer le salon",517, 180 165 130 40, tab 30
  • edit "Mot de passe", 54, 210 80 175 20, autohs, tab 30
  • text "Passe:" 55,175 80 35 20,tab 30
  • check "Activer l'indentification", 511, 175 100 200 20,tab 30
  • }
  • on *:dialog:autogo:init:*:{
  • /setautogoreg
  • /setautogo_2
  • /setautogo_3
  • did -b autogo 11,7,8
  • if (%autojoindre == ON) { did -c autogo 6 }
  • if (%afficherautojoin == ON) { did -c autogo 12 }
  • if (%autoidfounder == ON) { did -c autogo 56 }
  • }
  • on *:dialog:autogo:sclick:2:{
  • did -e autogo 11,8
  • did -u autogo 11,511
  • if (%autojoindre [ $+ [ $did(2,$did(2).sel).text ] ] == On ) { did -c autogo 11 }
  • did -r autogo 4
  • did -a autogo 4 $did(2,$did(2).sel).text
  • if (%autoidfounder [ $+ [ $did(2,$did(2).sel).text ] ] == On ) { did -c autogo 511 }
  • did -ra autogo 54 %founderid [ $+ [ $did(4) ] ]
  • }
  • on *:dialog:autogo:sclick:3:{
  • did -e autogo 11,8
  • did -r autogo 4
  • did -a autogo 4 $did(3,$did(3).sel).text
  • did -u autogo 11
  • if (%autojoindre [ $+ [ $did(3,$did(3).sel).text ] ] == On ) { did -c autogo 11 }
  • /setautogo_2
  • }
  • on *:dialog:autogo:edit:4:{
  • if ($did(4) == $null) {
  • did -br autogo 11
  • did -b autogo 7,8
  • }
  • if ($did(4) != $null) {
  • set %modif $did(4) $+ ,
  • if (%modif isin %autogoreg) {
  • did -e autogo 11
  • did -b autogo 7
  • did -e autogo 8
  • if (%autojoindre [ $+ [ $did(4) ] ] == On ) { did -c autogo 11 }
  • }
  • else {
  • did -br autogo 11
  • did -b autogo 8
  • did -e autogo 7
  • }
  • unset %modif
  • }
  • }
  • on *:dialog:autogo:sclick:7:{
  • if ($did(4) != $null) {
  • set %whoadd $did(4) $+ ,
  • if (%whoadd !isin %autogoreg) {
  • set %autogoreg $insertreg(%autogoreg, $did(4).text )
  • /setautogo_2
  • /setautogo_3
  • /ajouterchan
  • did -r autogo 4
  • did -u autogo 11
  • }
  • unset %whoadd
  • }
  • }
  • on *:dialog:autogo:sclick:8:{
  • if ($did(4) != $null) {
  • set %whoremove $did(4) $+ ,
  • if (%whoremove isin %autoactereg) {
  • set %autoactereg $remove(%autoactereg,%whoremove)
  • unset %autojoindre $+ $did(4)
  • /setautogo_3
  • did -u autogo 11
  • }
  • if (%whoremove isin %autogoreg) {
  • set %autogoreg $remove(%autogoreg,%whoremove)
  • /setautogo_2
  • /suprimerchan
  • did -r autogo 4
  • did -b autogo 11,7,8
  • }
  • unset %whoremove
  • }
  • }
  • on *:dialog:autogo:sclick:6: {
  • if ($did(6).state == 0) { .disable #autojoindre | set %autojoindre Off | echo 1 -s *** autojoindre maintenant Inactif }
  • if ($did(6).state == 1) { .enable #autojoindre | set %autojoindre On | echo 1 -s *** autojoindre maintenant Actif }
  • }
  • on *:dialog:autogo:sclick:11: {
  • if ($did(4) != $null) {
  • if ($did(11).state == 0) {
  • unset %autojoindre $+ $did(4)
  • set %autoacte-remove $did(4) $+ ,
  • set %autoactereg $remove(%autoactereg,%autoacte-remove)
  • /setautogo_3
  • unset %autoacte-remove
  • }
  • }
  • if ($did(11).state == 1) {
  • set %autojoindre $+ $did(4) On
  • set %whatthat $did(4) $+ ,
  • if (%whatthat !isin %autoactereg) {
  • set %autoactereg $insertreg(%autoactereg, $did(4) )
  • /setautogo_3
  • unset %whatthat
  • }
  • }
  • }
  • on *:dialog:autogo:sclick:12: {
  • if ($did(12).state == 0) { .disable #autoaffiche | set %afficherautojoin Off | echo 1 -s *** autoafficher maintenant Inactif }
  • if ($did(12).state == 1) { .enable #autoaffiche | set %afficherautojoin On | echo 1 -s *** autoafficher maintenant Actif }
  • }
  • on *:dialog:autogo:sclick:13: {
  • if ($did(4) != $null) { /join $did(4) }
  • }
  • on *:dialog:autogo:sclick:14: {
  • /lesrejoindre
  • dialog -x autogo
  • }
  • on *:dialog:autogo:sclick:511: {
  • if ($did(511).state == 0) { set %autoidfounder $+ $did(4) Off }
  • if ($did(511).state == 1) { set %autoidfounder $+ $did(4) On }
  • }
  • on *:dialog:autogo:sclick:512: {
  • if ($did(4) != $null) {
  • if (%founderid [ $+ [ $did(4) ] ] != $null) {
  • /msg ChanServ identify $did(4) %founderid [ $+ [ $did(4) ] ]
  • }
  • }
  • }
  • on *:dialog:autogo:sclick:513: {
  • if ($did(4) != $null) {
  • if (%founderid [ $+ [ $did(4) ] ] != $null) {
  • /msg ChanServ set $did(4) password %founderid [ $+ [ $did(4) ] ]
  • }
  • }
  • }
  • on *:dialog:autogo:sclick:514: {
  • if ($did(4) != $null) {
  • if (%founderid [ $+ [ $did(4) ] ] != $null) {
  • /msg ChanServ register $did(4) %founderid [ $+ [ $did(4) ] ]
  • }
  • }
  • }
  • on *:dialog:autogo:sclick:515: {
  • if ($did(4) != $null) {
  • if (%founderid [ $+ [ $did(4) ] ] != $null) {
  • /msg ChanServ drop $did(4) %founderid [ $+ [ $did(4) ] ]
  • }
  • }
  • }
  • on *:dialog:autogo:edit:54:{
  • set %founderid [ $+ [ $did(4) ] ] $did(54)
  • }
  • on *:dialog:autogo:sclick:56: {
  • if ($did(56).state == 0) { .disable #autoidfounder | set %autoidfounder Off | echo 1 -s *** autoidfounder maintenant Inactif }
  • if ($did(56).state == 1) { .enable #autoidfounder | set %autoidfounder On | echo 1 -s *** autoidfounder maintenant Actif }
  • }
  • ;====================================== Groupes
  • #autoaffiche off
  • on *:CONNECT: /autogo
  • #autoaffiche end
  • #autojoindre on
  • on *:CONNECT: /lesrejoindre
  • #autojoindre end
  • ; ====================================== Menus
  • menu channel,status,menubar {
  • -
  • Joindre ou ajout
  • . Joindre un ou des chans:/autogo
  • .Identifier Founder:/autogo
  • .$iif($chan,Ajouter $chan dans la liste) :/autoajout $$chan
  • .$iif($chan,Ajouter et mettre en autojoint $chan): /autoajout $$chan | /joindreauto $$chan
  • .$iif($chan, Suprimer $chan de la liste):/autodelete $$chan | /part $$chan
  • }
  • alias autoidfounder.id {
  • if (%autoidfounder [ $+ [ $chan ] ] == On) { /msg ChanServ identify $chan %founderid [ $+ [ $chan ] ] }
  • }
  • alias autoajout {
  • if ($1 != $null) {
  • set %whoadd $1 $+ ,
  • if (%whoadd !isin %autogoreg) {
  • set %autogoreg $insertreg(%autogoreg, $1 )
  • /ajouterchan
  • }
  • unset %whoadd
  • }
  • }
  • alias joindreauto {
  • set %autojoindre $+ $1 On
  • set %whatthat $1 $+ ,
  • if (%whatthat !isin %autoactereg) {
  • set %autoactereg $insertreg(%autoactereg, $1 )
  • unset %whatthat
  • }
  • }
  • alias autodelete {
  • if ($1 != $null) {
  • set %whoremove $1 $+ ,
  • if (%whoremove isin %autoactereg) {
  • set %autoactereg $remove(%autoactereg,%whoremove)
  • unset %autojoindre $+ $1
  • }
  • if (%whoremove isin %autogoreg) {
  • set %autogoreg $remove(%autogoreg,%whoremove)
  • /suprimerchan
  • }
  • unset %whoremove
  • }
  • }
  • #autoidfounder off
  • on *:JOIN:#:{ if ($nick == $me) { .autoidfounder.id } }
  • #autoidfounder end
;======Procédures internes
alias setautogoreg {
  set %numchan 0
  unset %autogoreg
  :loop
  set %donnée $readini mirc.ini chanfolder n [ $+ [ %numchan ] ]
  inc %numchan 1
  if (%donnée == $null ) goto finsetautogoreg
  set %autogoreg $insertreg(%autogoreg, %donnée)
  goto loop 
  :finsetautogoreg
  unset %donnée %numchan
} 

alias ajouterchan {
  set %numreg 1
  :loop
  set %donnée $gettok(%autogoreg,%numreg,44)
  if (%donnée == $nul) goto finajouter
  set %numécrire %numreg - 1
  writeini mirc.ini chanfolder n $+ %numécrire %donnée
  inc %numreg
  goto loop 
  :finajouter
  unset %donnée %numreg %numécrire
}

alias suprimerchan {
  set %numreg 1
  :loop
  set %donnée $gettok(%autogoreg,%numreg,44)
  if (%donnée == $nul) goto finajouter
  set %numécrire %numreg - 1
  writeini mirc.ini chanfolder n $+ %numécrire %donnée
  inc %numreg
  goto loop 
  :finajouter
  set %numécrire %numreg - 1
  remini mirc.ini chanfolder n $+ %numécrire
  unset %donnée %numreg %numécrire
}

alias lesrejoindre {
  set %autoacte.count.n 0
  set %tps 10
  :loopact
  inc %autoacte.count.n
  set %goin $gettok(%autoactereg,%autoacte.count.n,44)
  if (%goin == $null) goto fini
  .timer 1 %tps /join %goin
  inc %tps 5
  goto loopact 
  :fini
  unset %autoacte.count.n %tps %goin
}

alias setautogo_2 {
  did -r autogo 2
  set %autogo.count.n 0
  :loop
  inc %autogo.count.n
  set %donnée $gettok(%autogoreg,%autogo.count.n,44)
  if (%donnée == $nul) goto finsetautogo_2
  did -a autogo 2 %donnée
  goto loop 
  :finsetautogo_2
  unset %autogo.count.n
  unset %donnée
} 


alias setautogo_3 {
  did -r autogo 3
  set %autoacte.count.n 0
  :loopact
  inc %autoacte.count.n
  set %donnée $gettok(%autoactereg,%autoacte.count.n,44)
  if (%donnée == $null) /goto finsetautogo_3
  did -a autogo 3 %donnée
  goto loopact 
  :finsetautogo_3
  unset %autoacte.count.n 
  unset %donnée
}
;========== Dialog ============
alias autogo dialog -m autogo autogo
dialog autogo {
  size -1 -1 410 300
  title "Auto rejoindre les salons "

  tab "Joindre",20, 170 50 230 185
  tab "Founder",30

  button "Fermer", 1, 330 245 70 20, ok
  button "Joindre", 13, 330 20 70 20

  check "Rejoindre automatiquement", 11, 175 75 200 20,tab 20
  button "Les joindres", 14, 325 198 70 20,tab 20
  list 3,175 95 140 140,tab 20
  check "Activer l'auto-Join", 6, 10 245 130 20,tab 20
  check "Afficher à la connection", 12, 140 245 130 20, tab 20

  box "Liste des Chanels", 10, 10 5 395 230
  button "Ajouter", 7, 15 20 70 20
  button "Enlever", 8, 90 20 70 20
  list 2, 15 45 150 200
  edit "", 4,  170 20 150 20, autohs

  check "Activer l'auto-identification- founder", 56, 10 245 200 20,tab 30
  button "s'identifier", 512, 180 130 60 20, tab 30
  button "Changer", 513, 245 130 60 20, tab 30
  button "Enregistrer", 514, 310 130 60 20, tab 30
  button "DROPPER", 515, 315 170 60 20, tab 30
  box "",516, 175 150 210 50, tab 30
  text "Attention , commande pour désenregistrer le salon",517, 180 165 130 40, tab 30

  edit "Mot de passe", 54, 210 80 175 20, autohs, tab 30
  text "Passe:" 55,175 80 35 20,tab 30
  check "Activer l'indentification", 511, 175 100 200 20,tab 30

}

on *:dialog:autogo:init:*:{
  /setautogoreg
  /setautogo_2
  /setautogo_3
  did -b autogo 11,7,8
  if (%autojoindre == ON) { did -c autogo 6 }
  if (%afficherautojoin == ON) { did -c autogo 12 }
  if (%autoidfounder == ON) { did -c autogo 56 }

}

on *:dialog:autogo:sclick:2:{
  did -e autogo 11,8
  did -u autogo 11,511
  if (%autojoindre [ $+ [ $did(2,$did(2).sel).text ] ] == On ) { did -c autogo 11 }
  did -r autogo 4
  did -a autogo 4 $did(2,$did(2).sel).text
  if (%autoidfounder  [ $+ [ $did(2,$did(2).sel).text ] ] == On ) { did -c autogo 511 }
  did -ra autogo 54 %founderid [ $+ [ $did(4) ] ]


}

on *:dialog:autogo:sclick:3:{
  did -e autogo 11,8
  did -r autogo 4
  did -a autogo 4 $did(3,$did(3).sel).text
  did -u autogo 11
  if (%autojoindre [ $+ [ $did(3,$did(3).sel).text ] ] == On ) { did -c autogo 11 }
  /setautogo_2
}

on *:dialog:autogo:edit:4:{
  if ($did(4) == $null) { 
    did -br autogo 11
    did -b autogo 7,8
  }
  if ($did(4) != $null) {
    set %modif $did(4) $+ ,
    if (%modif isin %autogoreg) {
      did -e autogo 11
      did -b autogo 7
      did -e autogo 8
      if (%autojoindre [ $+ [ $did(4) ] ] == On ) { did -c autogo 11 }
    }
    else {
      did -br autogo 11
      did -b autogo 8
      did -e autogo 7
    }
    unset %modif
  }
}

on *:dialog:autogo:sclick:7:{
  if ($did(4) != $null) {
    set %whoadd $did(4) $+ ,
    if (%whoadd !isin %autogoreg) {
      set %autogoreg $insertreg(%autogoreg, $did(4).text )
      /setautogo_2
      /setautogo_3
      /ajouterchan
      did -r autogo 4
      did -u autogo 11
    }
    unset %whoadd
  }
}

on *:dialog:autogo:sclick:8:{

  if ($did(4) != $null) {
    set  %whoremove $did(4) $+ ,


    if (%whoremove isin %autoactereg) { 
      set %autoactereg $remove(%autoactereg,%whoremove)
      unset %autojoindre $+ $did(4)
      /setautogo_3
      did -u autogo 11
    }
    if (%whoremove isin %autogoreg) {    
      set %autogoreg $remove(%autogoreg,%whoremove)
      /setautogo_2
      /suprimerchan
      did -r autogo 4
      did -b autogo 11,7,8
    }
    unset %whoremove
  }
}

on *:dialog:autogo:sclick:6: {
  if ($did(6).state == 0) { .disable #autojoindre | set %autojoindre Off | echo 1 -s  *** autojoindre maintenant Inactif }
  if ($did(6).state == 1) { .enable #autojoindre | set %autojoindre On | echo 1 -s  *** autojoindre maintenant Actif }
}

on *:dialog:autogo:sclick:11: {
  if ($did(4) != $null) {
    if ($did(11).state == 0) { 
      unset %autojoindre $+ $did(4) 
      set %autoacte-remove $did(4) $+ ,
      set %autoactereg $remove(%autoactereg,%autoacte-remove)
      /setautogo_3
      unset %autoacte-remove
    } 

  }
  if ($did(11).state == 1) { 
    set %autojoindre $+ $did(4) On  
    set %whatthat $did(4) $+ ,
    if (%whatthat !isin %autoactereg) {
      set %autoactereg $insertreg(%autoactereg, $did(4) )
      /setautogo_3
      unset %whatthat
    }
  }
}

on *:dialog:autogo:sclick:12: {
  if ($did(12).state == 0) { .disable #autoaffiche | set %afficherautojoin Off | echo 1 -s  *** autoafficher maintenant Inactif }
  if ($did(12).state == 1) { .enable #autoaffiche | set %afficherautojoin On | echo 1 -s  *** autoafficher maintenant Actif }
}
on *:dialog:autogo:sclick:13: {
  if ($did(4) != $null) { /join $did(4)  }

}
on *:dialog:autogo:sclick:14: {
  /lesrejoindre
  dialog -x autogo
}

on *:dialog:autogo:sclick:511: {
  if ($did(511).state == 0) { set %autoidfounder $+ $did(4)  Off  }
  if ($did(511).state == 1) { set %autoidfounder $+ $did(4) On  }
}

on *:dialog:autogo:sclick:512: {
  if ($did(4) != $null) {  
    if (%founderid [ $+ [ $did(4) ] ] != $null) { 
      /msg ChanServ identify $did(4) %founderid [ $+ [ $did(4) ] ] 
    }
  }
} 

on *:dialog:autogo:sclick:513: {
  if ($did(4) != $null) {  
    if (%founderid [ $+ [ $did(4) ] ] != $null) { 
      /msg ChanServ set $did(4) password %founderid [ $+ [ $did(4) ] ] 
    }
  }
} 
on *:dialog:autogo:sclick:514: {
  if ($did(4) != $null) {  
    if (%founderid [ $+ [ $did(4) ] ] != $null) { 
      /msg ChanServ register $did(4) %founderid [ $+ [ $did(4) ] ] 
    }
  }
} 

on *:dialog:autogo:sclick:515: {
  if ($did(4) != $null) {  
    if (%founderid [ $+ [ $did(4) ] ] != $null) { 
      /msg ChanServ drop $did(4) %founderid [ $+ [ $did(4) ] ] 
    }
  }
} 

on *:dialog:autogo:edit:54:{
  set %founderid [ $+ [ $did(4) ] ]  $did(54)
}


on *:dialog:autogo:sclick:56: {
  if ($did(56).state == 0) { .disable #autoidfounder | set %autoidfounder Off | echo 1 -s  *** autoidfounder maintenant Inactif }
  if ($did(56).state == 1) { .enable #autoidfounder | set %autoidfounder On | echo 1 -s  *** autoidfounder maintenant Actif }
}
;======================================  Groupes
#autoaffiche off
on *:CONNECT: /autogo 
#autoaffiche end

#autojoindre on
on *:CONNECT: /lesrejoindre
#autojoindre end
; ====================================== Menus
menu channel,status,menubar {
  -
  Joindre ou ajout
  . Joindre un ou des chans:/autogo
  .Identifier  Founder:/autogo
  .$iif($chan,Ajouter $chan dans la liste) :/autoajout $$chan
  .$iif($chan,Ajouter et mettre en autojoint $chan): /autoajout $$chan | /joindreauto $$chan
  .$iif($chan, Suprimer $chan de la liste):/autodelete $$chan | /part $$chan
}

alias autoidfounder.id {
  if (%autoidfounder [ $+ [ $chan ] ] == On) {  /msg ChanServ identify $chan %founderid [ $+ [ $chan ] ]   }
}

alias autoajout {
  if ($1 != $null) {
    set %whoadd $1 $+ ,
    if (%whoadd !isin %autogoreg) {
      set %autogoreg $insertreg(%autogoreg, $1 )
      /ajouterchan
    }
    unset %whoadd
  }
}

alias joindreauto {

  set %autojoindre $+ $1 On  
  set %whatthat $1 $+ ,
  if (%whatthat !isin %autoactereg) {
    set %autoactereg $insertreg(%autoactereg, $1 )
    unset %whatthat
  }
}

alias autodelete {
  if ($1 != $null) {
    set  %whoremove $1 $+ ,


    if (%whoremove isin %autoactereg) { 
      set %autoactereg $remove(%autoactereg,%whoremove)
      unset %autojoindre $+ $1
    }
    if (%whoremove isin %autogoreg) {    
      set %autogoreg $remove(%autogoreg,%whoremove)
      /suprimerchan
    }
    unset %whoremove
  }
}

#autoidfounder off
on *:JOIN:#:{ if ($nick == $me) { .autoidfounder.id } }
#autoidfounder end

 Conclusion

C'est le tout premier addon que j'ai écrit pour mon script, ce qui explique qu'il est un petit peu fouillis, mais il fonctionne bien, et je n'ai pas eu jusqu'ici besoin de le modifier
Il peut ajouter ou supprimer les chans dans le folder de mIRC avec le click droit dans le chan.
Que dire de plus, on a le choix de faire afficher le dialogue à la connection pour modifier les chan à rejoindre, ou rejoindre directement les chans.. les chans à rejoindre en auto sont dans une liste à part.
:)
Et Quidni !


 Sources du même auteur

UN PETIT DIALOGUE POUR OPER/DEOPER... D'UN SIMPLE CLICK SUR ...
COLLER LE "PRESS-PAPIER" DANS UN QUERY OU #CHAN
AJOUT DE COULEURS OU SMILEYS DANS L'ÉDIT-BOX PAR SIMPLE CLIC...

 Sources de la même categorie

PACMAN MULTI-JOUEUR EN LIGNE par wims
PROXY&SOCKS SCANNER+LEECHER par independentt
GESTIONNAIRE DE HIGHLIGHT AVANCÉ AVEC IGNORE SALON OU PSEUDO par doob666
AUTOJOIN HTABLE MULTISERVER par doob666
TCL - AJOUT SUPPRESSION DE LOGS par Atok

Commentaires et avis

Commentaire de abdoulax le 27/09/2003 20:18:36

héhé ca ma l'air poa mal , ya pl1 d'option ! lol . dommage kil manque tjs le choix du server ( à moins que g mal lu ta source ) !!

++

Commentaire de Alerion le 27/09/2003 21:29:28

Haaaaaaaaaaaaaa, mais oui...
Je ne suis pas sur plusieurs serveurs, généralement je ne suis que sur un seul avec mes 2 bots
Donc en fait je n'ai pas fait de sélection en fonction du serveur.
Mais c une idée, et voilà donc ma prochaine modif
:)
Et Quidni!

Commentaire de Alerion le 28/09/2003 10:52:46

bon en fait ça m'a l'air beaucoup plus compliqué que le premier regard, car, lorsque que je me connecte, je ne suis pas forcément toujours sur le même serveur... donc il faut faire une gestion chan multiserveurs mais avec une corrélation en fonction de l'établissement de la connection ( /server ...... ) et non pas au serveur final connecté... à moins qu'il n'y ait la possibilité de récupérer la connection initiale à la place de $server....
enfin là si on me suit, lol
:)
Et Quidni!

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,170 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales