Autojoin fait rapidement (nécésite mdx.dll).

Soyez le premier à donner votre avis sur cette source.

Vue 3 058 fois - Téléchargée 124 fois

Description

Un autojoin fait pour les gens qui veulent un autojoin simple.

Source / Exemple :


on *:connect:{ var %x = 1 | while ($read(chan.txt,%x)) { join $read(chan.txt,%x) | inc %x } }
dialog autoj {
  title "Autojoin"
  option dbu
  size -1 -1 81 134
  text "Autojoin",1, 28 2 21 8
  edit "#",2, 10 10 60 8,
  button "Ajouter",3, 10 19 60 9
  list 4, 3 30 76 100
  button "Supprimer",5, 3 125 60 9
  button "Ok",6, 69 125 10 9, ok
}
on *:dialog:autoj:init:*:{ 
  dll mdx.dll SetMircVersion $version
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetFont 1 12 700 tahoma
  dll mdx.dll SetBorderStyle 2,4 border
  loadbuf -o autoj 4 chan.txt 
  dll mdx.dll SetDialog $dname style staticedge title border tool sysmenu
}
on *:dialog:autoj:sclick:3:{ set %chan $did(2) | write chan.txt %chan | did -a autoj 4 %chan }
on *:dialog:autoj:sclick:5:{ write -dl $+ $did(4).sel chan.txt | did -d autoj 4 $did(4).sel }

Conclusion :


;)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
18
Date d'inscription
jeudi 27 mars 2003
Statut
Membre
Dernière intervention
7 octobre 2005

Huitre j'adore ta façon de parler mdrr :) Roxor attitude :) tu dois en avoir des amis avec autant de salons mdrrrr : Owned by me !

(Aime pas les langages : je le place au meme niveau que celui des racailles mdrrr)
Messages postés
840
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
25 février 2009
1
tu devrai mettre a jour ta source
(il a montré un screen d'une version plus avancée sur le forum)
soyez pas trop dur ;)
Messages postés
1726
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
1
un truc fait à la "va vite" on le post pas, npk.. 1/10 vu qu'il est mêmemoins bien que celui de base qui est ds mIRC..
Messages postés
290
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
29 février 2008

'c:\program' unable to open chan.txt

Owned by repertoire avec des espaces.

Unable to join channel (key required)

Owned by mode +k

J ai 15 323 salon a rejoindre, avec read ta mirc qui plante.

Owned by FileHandling.

Vu plus de fois qu une foto de la terre.

3/10 pour /loadbuff et le combo.
Messages postés
840
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
25 février 2009
1
j'adore ton dialog (je lui mettrai 8/10)
Cependant je mettrai 1/10 au reste pr les raisons ennoncées plus haut
Si tu doit ameliorer cette source, n'oublie pas de garder la simplicité de ce dialog que je trouve sympa
(un petit combo pr choisir le serveur ?)
Afficher les 16 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.