Greet msg en dialog sans dll

Commenter

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

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