Auto join

Commenter

Contenu du snippet

Comme le dit le titre c'est un auto join!

Source / Exemple : 


dialog autojoin {
  title "¤¤ Auto-Join ¤¤"
  size -1 -1 170 261
  button "Enregistrer", 1, 7 210 155 24, ok
  box "Option / Entrer un channel", 2, 2 120 166 138
  list 3, 8 17 155 100 
  edit "", 4, 8 135 154 22, autohs
  button "&Ajouter", 5, 7 160 74 24
  button "&Modifier", 6, 87 160 74 24
  button "&Supprimer", 7, 7 185 74 24
  button "&Joindre tout", 8, 87 185 74 24
  check "Activer / Désactiver", 10, 9 235 120 21
  box "Salons", 11, 2 2 166 117
}

on *:dialog:autojoin:init:*:{
  did -b autojoin 5,6,7
  if ($group(#autojoin) == ON) { did -c autojoin 10 }
  if (%autojoin.delai !== $null) { did -a autojoin 13 %autojoin.delai }
  autojoin.update
}

on *:dialog:autojoin:edit:*:{
  if ($did(4) == $null) { did -b autojoin 5,6 }
  else { did -e autojoin 5,6 }
  if ($did(3).sel == $null) { did -b autojoin 6 }
  else { did -e autojoin 6 }
  if ($left($did(4),1) !== $chr(35)) { var %autojoin.edit = $chr(35) $+ $did(4) }
  else { var %autojoin.edit = $did(4) }
  if ($findtok(%autojoin.canaux,%autojoin.edit,0,44) == 1) { did -b autojoin 5,6 }
  if ($did == 13) {
    if ($did(13) !isnum) { did -r autojoin 13 | unset %autojoin.delai }
    else { set %autojoin.delai $did(13) }
} }
on *:dialog:autojoin:sclick:*:{
  if ($did == 5) {
    if ($left($did(4),1) !== $chr(35)) { var %autojoin.ajout = $chr(35) $+ $did(4) }
    else { var %autojoin.ajout = $did(4) }
    set %autojoin.canaux $sorttok($addtok(%autojoin.canaux,%autojoin.ajout,44),44)
    autojoin.update
  }
  elseif ($did == 6) {
    if ($left($did(autojoin,4),1) !== $chr(35)) { var %autojoin.modif = $chr(35) $+ $did(4) }
    else { var %autojoin.modif = $did(4) }
    set %autojoin.canaux $sorttok($reptok(%autojoin.canaux,$gettok(%autojoin.canaux,$did(3).sel,44),%autojoin.modif,1,44),44)
    autojoin.update
  }
  elseif ($did == 7) {
    set %autojoin.canaux $remtok(%autojoin.canaux,$gettok(%autojoin.canaux,$did(3).sel,44),44)
    autojoin.update
  }
  if ($did == 3 && $did(3).sel !== $null) { did -ra autojoin 4 $did(3,$did(3).sel) }
  elseif ($did == 8) { if ($server != $null) { autojoin.join } }
  elseif ($did == 10) {
    if ($did(10).state == 0) { .disable #autojoin }
    else { .enable #autojoin }
  }
  if ($did(3).sel == $null) { did -b autojoin 5,6,7 }
  else { did -e autojoin 6,7 }
  if ($did == 3) { did -b autojoin 6 }
}
alias autojoin.update {
  did -r autojoin 3,4
  if (%autojoin.canaux !== $null) {
    did -e autojoin 8,10
    var %autojoin.loop.n = 1
    :loop
    did -a autojoin 3 $gettok(%autojoin.canaux,%autojoin.loop.n,44)
    inc %autojoin.loop.n
    if ($gettok(%autojoin.canaux,%autojoin.loop.n,44) !== $null) { goto loop }
  }
  else {
    unset %autojoin.canaux
    .disable #autojoin
    did -ub autojoin 8,10
} }
alias autojoin.join {
  var %autojoin.loop.n = 1
  while ($gettok(%autojoin.canaux,%autojoin.loop.n,44) !== $null) { 
    if (%autojoin.delai !== $null) { .timer 1 $calc(%autojoin.delai * %autojoin.loop.n) join $gettok(%autojoin.canaux,%autojoin.loop.n,44) }
    else { join $gettok(%autojoin.canaux,%autojoin.loop.n,44) }
    inc %autojoin.loop.n
} }
#autojoin on
on *:connect:autojoin.join
#autojoin end
}

Conclusion :


Allez visité le site de ma team http://dreamz-team.site.voila.fr/

A voir également

S'inscrire maintenant

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 (Damien520)