Greet msg en dialog sans dll

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 158 fois - Téléchargée 28 fois

Contenu du snippet

un truc en dialog ui vous permet de configurer desmess de greet , sans dll donc plus simple a installer ( juste copier coller le code )
enfin vous avez compri
A+

Source / Exemple :


dialog greet {
  title "Greet Msg par Tiboug"
  size -1 -1 277 270
  option dbu
  list 1, 3 66 263 159, size
  edit "", 2, 7 31 50 10, autohs
  edit "", 3, 68 31 200 10, autohs
  text "Pseudo :", 4, 18 14 28 8
  text "Greet :", 5, 138 15 22 8
  button "Ajouter", 6, 55 48 37 12
  button "Supprimer", 7, 103 48 37 12
  button "Modifier", 8, 156 48 37 12
  text "Ton message d'entree :", 9, 105 229 58 8
  edit "", 10, 4 238 264 10, autohs
  button "Ok", 11, 5 255 263 10, ok cancel
}
alias greetmaj {
  did -r greet 1
  var %compteurs = 1
  while ( %compteurs <= $gettok(%greet.ps,0,44) ) {
    did -a greet 1 $gettok(%greet.ps,%compteurs,44) $+ <=> $+ $gettok(%greet.msg,%compteurs,44)
    inc %compteurs
  }
}
on 1:dialog:greet:init:0: { 
  if (%greetme !== $null) { did -ra greet 10 %greetme }
  greetmaj
}

on *:dialog:greet:sclick:1: {
  did -ra greet 2 $gettok(%greet.ps, $did(1).sel,44)
  did -ra greet 3 $gettok(%greet.msg, $did(1).sel,44)
}
on *:dialog:greet:sclick:6: {
  if ( $did(2) !== $null) && ($did(3) !== $null) {
    set %greet.ps $addtok(%greet.ps,$did(2),44)
    set %greet.msg  $addtok(%greet.msg,$did(3),44)
    greetmaj
  }
  if ($did(2) == $null) { echo -at 4 Vous devez remplir le champ 10 "Pseudo" 4 pour pouvoir ajouter un greet }
  if ($did(3) == $null) { echo -at 4 Vous devez remplir le champ 10 "Greet" 4 pour pouvoir ajouter un pseudo }
}
on *:dialog:greet:sclick:7: {
  if ( $did(1).sel = $null ) { halt }
  set %greet.ps $remtok(%greet.ps,$gettok(%greet.ps,$did(1).sel,44),44)
  set %greet.msg $remtok(%greet.msg,$gettok(%greet.msg,$did(1).sel,44),44)
  greetmaj
}
on *:dialog:greet:sclick:8: {
  if ( $did(1).sel = $null ) { halt }
  set %greet.ps $reptok(%greet.ps,$gettok(%greet.ps,$did(1).sel,44),$did(2),1,44)
  set %greet.msg $reptok(%greet.msg,$gettok(%greet.msg,$did(1).sel,44),$did(3),1,44)
  greetmaj
}

on *:join:*:{
  if ($nick !== $me) && ($nick isin %greet.ps) {    /msg $chan 4[Greet]1 $+  $gettok(%greet.msg,$findtok(%greet.ps,$nick,1,44),44) }

  if ($nick == $me) && (%greetme !== $null) { /msg $chan %greetme }
}

on 1:dialog:greet:sclick:11 { set %greetme $did(10) }

Conclusion :


merci a kerrigan qui me fai lire laide mirc tous les jours ^^

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
mardi 30 mars 2004
Statut
Membre
Dernière intervention
18 mai 2004

Je ne parviens pas à utiliser ce script, j'ai deja noname script en addon ça gene pas??????
De plus je c pas où il faut le mettre, j'ai essayé dans les allias mais g des erreurs :
* Invalid parameters: $did (line 6092, aliases.nns)
* Invalid parameters: $did (line 6092, aliases.nns)
* Invalid parameters: $did (line 6092, aliases.nns)
* Invalid parameters: $did (line 6092, aliases.nns)
* Invalid parameters: $did (line 6092, aliases.nns)

Merci de m'aider please.
Messages postés
68
Date d'inscription
vendredi 11 avril 2003
Statut
Membre
Dernière intervention
7 août 2004

pour une fois jvai faire comme toi et apeller ca un code et pa un add on , le niveau doit etre jugé dessus , jsui daccor que 1 ca fai un peu trop....
certe on n'aime pas tous l'utilite ou le but des codes mais il fau noter linterieur du code
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

niveau deux peu etre pas mais pas niveau un non plus, ça se tente mais les greet messages j'aime pas .... je trouve ça pas .. enfin j'aime pas quoi
Messages postés
68
Date d'inscription
vendredi 11 avril 2003
Statut
Membre
Dernière intervention
7 août 2004

des commentaires pliz
suinon jai vous pensez que c quel nivo ? 2 ?

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.