Auto join

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 108 fois - Téléchargée 32 fois

Contenu du snippet

Uploader juste cette remote dans votre script :)

Source / Exemple :


;################################################
;#                                                                                                                   #
;#                                        Auto Join By Atlantis                                           #
;#                                                                                                                   #
;################################################

alias autojoin { /dialog -m autojoin autojoin }

dialog autojoin {
  title "Auto Join (Atlantis)"
  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 }
}

;################################################
;#                                                                                                                   #
;#                                        Auto Join By Atlantis                                           #
;#                                                                                                                   #
;################################################

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 off
on *:connect:autojoin.join
#autojoin end
}

Conclusion :


Il n'y a pas de beuge (Enfin je pence) @+, et laissé des commentairs pour me dire se que vous en pencé !

A voir également

Ajouter un commentaire Commentaires
tipexx94
Messages postés
60
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
20 juin 2007

25 août 2005 à 17:28
ce qui fait que le code est long c'est le Par Atlantis tout le long du code
MaX_62
Messages postés
879
Date d'inscription
vendredi 22 octobre 2004
Statut
Membre
Dernière intervention
29 juin 2007

20 nov. 2004 à 12:21
si tu vas sur plusieurs serveurs tu fais comment ? o_O
j0j059
Messages postés
2
Date d'inscription
lundi 15 novembre 2004
Statut
Membre
Dernière intervention
15 novembre 2004

15 nov. 2004 à 00:47
oupss j'ai oublié de dir que si ces pour des serveur, bas désolé mais ,je n'en voie pas tros son utilité puisque pour moi ,par exemple, cela ne cert a rien je ne me connect pas encore a 50 serveurs
j0j059
Messages postés
2
Date d'inscription
lundi 15 novembre 2004
Statut
Membre
Dernière intervention
15 novembre 2004

15 nov. 2004 à 00:41
Je suis nouveau et je decouvre le script.
Je vien de voir celui si,je ne vois pas tros son interait si ces pour s'autojoin a des chan puisque irc le gere lui meme
Il sufi d'entrais les chan et de coché une case ce qui simplifie enplement ce codage qui est,vu les pro,faux
cs_Asthar
Messages postés
208
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
6 septembre 2005

3 nov. 2004 à 11:29
Jeu trouv ke sa fé mal a la tete kana lé gen ékrive kom sa !

Ici tu as le temps d'écrire, profites en :)
Pour ta source : cf SornDrixer
Afficher les 9 commentaires

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.