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