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

Télécharger le projet
Commenter

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 :


;)
Télécharger le projet

Codes Sources

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.