GREET MSG EN DIALOG SANS DLL

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) }