NOTICE MESSENGER \!!!!!!!!!!!!!!!!!!! VOUS N'EN REVIENDREZ PAS.

alias noticemessenger {
  /dialog -md noticemessenger noticemessenger
}

dialog noticemessenger {
  title "Notice messenger"
  size 310 235 279 285
  option dbu
  menu "Fichier", 1
  item "Effacer tous les messages", 4, 1
  item "Liste de contacts", 5, 1
  item "Liste des bannis", 6, 1
  item "Rédiger messages", 15, 1
  item "Quitter", 20, 1
  menu "Options", 18
  item "Configuration", 19, 18
  box "", 10, 0 190 279 75
  list 7, 1 0 276 186, hsbar vsbar size
  text "Je désire...", 8, 3 195 28 6
  button "Effacer le message selectionné", 9, 1 204 276 9
  button "Effacer tous les messages", 11, 1 213 276 9
  button "Voir ma liste des bannis", 12, 1 222 276 9
  button "Voir ma liste de contacts", 13, 1 231 276 9
  button "Quitter Notice Messenger", 14, 1 249 276 9, cancel
  text "Créé par G-FACTION", 3, 63 267 52 6
  link "qdeme@yahoo.fr", 16, 174 267 90 13
  text ":)", 17, 139 267 9 6
  button "Rédiger messages", 21, 1 240 276 9
}

alias actualiser {
  did -a noticemessenger 7 $read(%liste,1)
  did -a noticemessenger 7 $read(%liste,2)
  did -a noticemessenger 7 $read(%liste,3)
  did -a noticemessenger 7 $read(%liste,4)
  did -a noticemessenger 7 $read(%liste,5)
  did -a noticemessenger 7 $read(%liste,6)
  did -a noticemessenger 7 $read(%liste,7)
  did -a noticemessenger 7 $read(%liste,8)
  did -a noticemessenger 7 $read(%liste,9)
  did -a noticemessenger 7 $read(%liste,10)
  did -a noticemessenger 7 $read(%liste,11)
  did -a noticemessenger 7 $read(%liste,12)
  did -a noticemessenger 7 $read(%liste,13)
  did -a noticemessenger 7 $read(%liste,14)
  did -a noticemessenger 7 $read(%liste,15)
  did -a noticemessenger 7 $read(%liste,16)
  did -a noticemessenger 7 $read(%liste,17)
  did -a noticemessenger 7 $read(%liste,18)
  did -a noticemessenger 7 $read(%liste,19)
  did -a noticemessenger 7 $read(%liste,20)
  did -a noticemessenger 7 $read(%liste,21)
  did -a noticemessenger 7 $read(%liste,22)
  did -a noticemessenger 7 $read(%liste,23)
  did -a noticemessenger 7 $read(%liste,24)
  did -a noticemessenger 7 $read(%liste,25)
  did -a noticemessenger 7 $read(%liste,26)
  did -a noticemessenger 7 $read(%liste,27)
  did -a noticemessenger 7 $read(%liste,28)
  did -a noticemessenger 7 $read(%liste,29)
  did -a noticemessenger 7 $read(%liste,30)
  did -a noticemessenger 7 $read(%liste,31)
  did -a noticemessenger 7 $read(%liste,32)
  did -a noticemessenger 7 $read(%liste,33)
  did -a noticemessenger 7 $read(%liste,34)
  did -a noticemessenger 7 $read(%liste,35)
  did -a noticemessenger 7 $read(%liste,36)
  did -a noticemessenger 7 $read(%liste,37)
  did -a noticemessenger 7 $read(%liste,38)
  did -a noticemessenger 7 $read(%liste,39)
  did -a noticemessenger 7 $read(%liste,40)
  did -a noticemessenger 7 $read(%liste,41)
  did -a noticemessenger 7 $read(%liste,42)
  did -a noticemessenger 7 $read(%liste,43)
  did -a noticemessenger 7 $read(%liste,44)
  did -a noticemessenger 7 $read(%liste,45)
  did -a noticemessenger 7 $read(%liste,46)
  did -a noticemessenger 7 $read(%liste,47)
  did -a noticemessenger 7 $read(%liste,48)
  did -a noticemessenger 7 $read(%liste,49)
  did -a noticemessenger 7 $read(%liste,50)
  did -a noticemessenger 7 $read(%liste,51)
  did -a noticemessenger 7 $read(%liste,52)
  did -a noticemessenger 7 $read(%liste,53)
  did -a noticemessenger 7 $read(%liste,54)
  did -a noticemessenger 7 $read(%liste,55)
  did -a noticemessenger 7 $read(%liste,56)
  did -a noticemessenger 7 $read(%liste,57)
  did -a noticemessenger 7 $read(%liste,58)
  did -a noticemessenger 7 $read(%liste,59)
  did -a noticemessenger 7 $read(%liste,60)
  did -a noticemessenger 7 $read(%liste,61)
  did -a noticemessenger 7 $read(%liste,62)
  did -a noticemessenger 7 $read(%liste,63)
  did -a noticemessenger 7 $read(%liste,64)
  did -a noticemessenger 7 $read(%liste,65)
  did -a noticemessenger 7 $read(%liste,66)
  did -a noticemessenger 7 $read(%liste,67)
  did -a noticemessenger 7 $read(%liste,68)
  did -a noticemessenger 7 $read(%liste,69)
  did -a noticemessenger 7 $read(%liste,70)
  did -a noticemessenger 7 $read(%liste,71)
  did -a noticemessenger 7 $read(%liste,72)
  did -a noticemessenger 7 $read(%liste,73)
  did -a noticemessenger 7 $read(%liste,74)
  did -a noticemessenger 7 $read(%liste,75)
  did -a noticemessenger 7 $read(%liste,76)
  did -a noticemessenger 7 $read(%liste,77)
  did -a noticemessenger 7 $read(%liste,78)
  did -a noticemessenger 7 $read(%liste,79)
  did -a noticemessenger 7 $read(%liste,80)
  did -a noticemessenger 7 $read(%liste,81)
  did -a noticemessenger 7 $read(%liste,82)
  did -a noticemessenger 7 $read(%liste,83)
  did -a noticemessenger 7 $read(%liste,84)
  did -a noticemessenger 7 $read(%liste,85)
  did -a noticemessenger 7 $read(%liste,86)
  did -a noticemessenger 7 $read(%liste,87)
  did -a noticemessenger 7 $read(%liste,88)
  did -a noticemessenger 7 $read(%liste,89)
  did -a noticemessenger 7 $read(%liste,90)
  did -a noticemessenger 7 $read(%liste,91)
  did -a noticemessenger 7 $read(%liste,92)
  did -a noticemessenger 7 $read(%liste,93)
  did -a noticemessenger 7 $read(%liste,94)
  did -a noticemessenger 7 $read(%liste,95)
  did -a noticemessenger 7 $read(%liste,96)
  did -a noticemessenger 7 $read(%liste,97)
  did -a noticemessenger 7 $read(%liste,98)
  did -a noticemessenger 7 $read(%liste,99)
  did -a noticemessenger 7 $read(%liste,100)
}

alias bannedlist {
  //echo $dialog(noticemsgrbanned,noticemsgrbanned,-4)
}

alias contactlist {
  //echo $dialog(noticemsgrcontacts,noticemsgrcontacts,-4)
}

alias msgrconfig {
  //echo $dialog(noticemsgrconfig,noticemsgrconfig,-4)
}

alias redigmsg {
  //echo $dialog(noticemsgrredig,noticemsgrredig,-4)
}

on *:dialog:noticemessenger:init:0:{
  did -a noticemessenger 7 $read(%liste,1)
  did -a noticemessenger 7 $read(%liste,2)
  did -a noticemessenger 7 $read(%liste,3)
  did -a noticemessenger 7 $read(%liste,4)
  did -a noticemessenger 7 $read(%liste,5)
  did -a noticemessenger 7 $read(%liste,6)
  did -a noticemessenger 7 $read(%liste,7)
  did -a noticemessenger 7 $read(%liste,8)
  did -a noticemessenger 7 $read(%liste,9)
  did -a noticemessenger 7 $read(%liste,10)
  did -a noticemessenger 7 $read(%liste,11)
  did -a noticemessenger 7 $read(%liste,12)
  did -a noticemessenger 7 $read(%liste,13)
  did -a noticemessenger 7 $read(%liste,14)
  did -a noticemessenger 7 $read(%liste,15)
  did -a noticemessenger 7 $read(%liste,16)
  did -a noticemessenger 7 $read(%liste,17)
  did -a noticemessenger 7 $read(%liste,18)
  did -a noticemessenger 7 $read(%liste,19)
  did -a noticemessenger 7 $read(%liste,20)
  did -a noticemessenger 7 $read(%liste,21)
  did -a noticemessenger 7 $read(%liste,22)
  did -a noticemessenger 7 $read(%liste,23)
  did -a noticemessenger 7 $read(%liste,24)
  did -a noticemessenger 7 $read(%liste,25)
  did -a noticemessenger 7 $read(%liste,26)
  did -a noticemessenger 7 $read(%liste,27)
  did -a noticemessenger 7 $read(%liste,28)
  did -a noticemessenger 7 $read(%liste,29)
  did -a noticemessenger 7 $read(%liste,30)
  did -a noticemessenger 7 $read(%liste,31)
  did -a noticemessenger 7 $read(%liste,32)
  did -a noticemessenger 7 $read(%liste,33)
  did -a noticemessenger 7 $read(%liste,34)
  did -a noticemessenger 7 $read(%liste,35)
  did -a noticemessenger 7 $read(%liste,36)
  did -a noticemessenger 7 $read(%liste,37)
  did -a noticemessenger 7 $read(%liste,38)
  did -a noticemessenger 7 $read(%liste,39)
  did -a noticemessenger 7 $read(%liste,40)
  did -a noticemessenger 7 $read(%liste,41)
  did -a noticemessenger 7 $read(%liste,42)
  did -a noticemessenger 7 $read(%liste,43)
  did -a noticemessenger 7 $read(%liste,44)
  did -a noticemessenger 7 $read(%liste,45)
  did -a noticemessenger 7 $read(%liste,46)
  did -a noticemessenger 7 $read(%liste,47)
  did -a noticemessenger 7 $read(%liste,48)
  did -a noticemessenger 7 $read(%liste,49)
  did -a noticemessenger 7 $read(%liste,50)
  did -a noticemessenger 7 $read(%liste,51)
  did -a noticemessenger 7 $read(%liste,52)
  did -a noticemessenger 7 $read(%liste,53)
  did -a noticemessenger 7 $read(%liste,54)
  did -a noticemessenger 7 $read(%liste,55)
  did -a noticemessenger 7 $read(%liste,56)
  did -a noticemessenger 7 $read(%liste,57)
  did -a noticemessenger 7 $read(%liste,58)
  did -a noticemessenger 7 $read(%liste,59)
  did -a noticemessenger 7 $read(%liste,60)
  did -a noticemessenger 7 $read(%liste,61)
  did -a noticemessenger 7 $read(%liste,62)
  did -a noticemessenger 7 $read(%liste,63)
  did -a noticemessenger 7 $read(%liste,64)
  did -a noticemessenger 7 $read(%liste,65)
  did -a noticemessenger 7 $read(%liste,66)
  did -a noticemessenger 7 $read(%liste,67)
  did -a noticemessenger 7 $read(%liste,68)
  did -a noticemessenger 7 $read(%liste,69)
  did -a noticemessenger 7 $read(%liste,70)
  did -a noticemessenger 7 $read(%liste,71)
  did -a noticemessenger 7 $read(%liste,72)
  did -a noticemessenger 7 $read(%liste,73)
  did -a noticemessenger 7 $read(%liste,74)
  did -a noticemessenger 7 $read(%liste,75)
  did -a noticemessenger 7 $read(%liste,76)
  did -a noticemessenger 7 $read(%liste,77)
  did -a noticemessenger 7 $read(%liste,78)
  did -a noticemessenger 7 $read(%liste,79)
  did -a noticemessenger 7 $read(%liste,80)
  did -a noticemessenger 7 $read(%liste,81)
  did -a noticemessenger 7 $read(%liste,82)
  did -a noticemessenger 7 $read(%liste,83)
  did -a noticemessenger 7 $read(%liste,84)
  did -a noticemessenger 7 $read(%liste,85)
  did -a noticemessenger 7 $read(%liste,86)
  did -a noticemessenger 7 $read(%liste,87)
  did -a noticemessenger 7 $read(%liste,88)
  did -a noticemessenger 7 $read(%liste,89)
  did -a noticemessenger 7 $read(%liste,90)
  did -a noticemessenger 7 $read(%liste,91)
  did -a noticemessenger 7 $read(%liste,92)
  did -a noticemessenger 7 $read(%liste,93)
  did -a noticemessenger 7 $read(%liste,94)
  did -a noticemessenger 7 $read(%liste,95)
  did -a noticemessenger 7 $read(%liste,96)
  did -a noticemessenger 7 $read(%liste,97)
  did -a noticemessenger 7 $read(%liste,98)
  did -a noticemessenger 7 $read(%liste,99)
  did -a noticemessenger 7 $read(%liste,100)
  did -z noticemessenger 7
  /did -a noticemessenger 7 $read(%liste)
}


on *:dialog:noticemessenger:menu:4: {
  /remove %liste
  /did -a noticemessenger 7 $read(%liste)
  /did -r noticemessenger 7
  /actualiser
}

on *:dialog:noticemessenger:menu:5: { /contactlist }

on *:dialog:noticemessenger:menu:6: { /bannedlist }

on *:dialog:noticemessenger:menu:15: { /redigmsg }

on *:dialog:noticemessenger:menu:19: { /msgrconfig }

on *:dialog:noticemessenger:sclick:9: {
  write $+(-dl,$did(noticemessenger,7).sel) %liste
  did -di noticemessenger 7 $did(noticemessenger,7).sel
}

on *:dialog:noticemessenger:sclick:11: {
  /remove %liste
  /did -a noticemessenger 7 $read(%liste)
  /did -r noticemessenger 7
  /actualiser
}

on *:dialog:noticemessenger:sclick:12: { /bannedlist }

on *:dialog:noticemessenger:sclick:13: { /contactlist }

on *:dialog:noticemessenger:sclick:21: { /redigmsg }

dialog noticemsgrbanned {
  title "Notice Messenger : Liste des bannis"
  size 177 106 292 80
  option dbu
  text "Liste des bannis (personnes que ne pourront pas vous envoyer de messages)", 1, 4 3 186 7
  edit "", 2, 4 13 283 40, multi read return vsbar
  button "OK", 3, 121 58 37 11, cancel
  button "Ajouter", 4, 33 58 49 11
  button "Supprimer", 5, 196 58 49 11
  text "Par G-FACTION", 6, 27 72 42 6
  text ":)", 7, 130 72 16 6
  link "qdeme@yahoo.fr", 8, 186 72 96 13
}

on *:dialog:noticemsgrbanned:init:0:{
  /did -a noticemsgrbanned 2 %bannis
}


on *:dialog:noticemsgrbanned:sclick:4: {
  set %bannis $addtok(%bannis,$$?="Qui rajouter ?",32)
  /did -r noticemsgrbanned 2
  /did -a noticemsgrbanned 2 %bannis
}

on *:dialog:noticemsgrbanned:sclick:5: {
  set %bantemp $$?="Qui supprimer ?"
  if ($istok(%bannis,%bantemp,32)) {
    set %bannis $deltok(%bannis,$findtok(%bannis,%bantemp,1,32),32)
    /did -r noticemsgrbanned 2
    /did -a noticemsgrbanned 2 %bannis
  }
  else $input(%bantemp n'est pas dans la liste des bannis,308,Warning)
  halt
}

dialog noticemsgrconfig {
  title "Notice Messenger : Configuration"
  size 438 317 194 78
  option dbu
  text "Définissez le fichier de stockage des messages", 1, 7 4 115 6
  text "Définissez votre son de Bip", 2, 9 39 69 6
  edit "", 3, 9 19 178 10, multi return
  edit "", 4, 9 54 178 10, multi return
  button "...", 5, 132 4 13 11
  button "...", 6, 132 39 13 11
  button "OK", 7, 78 66 37 11, ok
}

on *:dialog:noticemsgrconfig:init:0:{
  if (%liste == $null) {
    set %first on
    /did -a noticemsgrconfig 3 Définir...
    /did -a noticemsgrconfig 4 Définir...
  }
  else /did -a noticemsgrconfig 3 %liste
  /did -a noticemsgrconfig 4 %son
}

on *:dialog:noticemsgrconfig:sclick:5: {
  /did -r noticemsgrconfig 3
  set %liste $sfile(dir,Choisissez votre fichier de stockage des messages,OK)
  /did -a noticemsgrconfig 3 %liste
}

on *:dialog:noticemsgrconfig:sclick:6: {
  /did -r noticemsgrconfig 4
  set %son $sfile(dir,Choisissez votre fichier sonore de Bip,OK)
  /did -a noticemsgrconfig 4 %son
}

dialog noticemsgrcontacts {
  title "Notice Messenger : Liste de contacts"
  size 177 106 281 176
  option dbu
  list 1, 115 3 165 150, vsbar size
  box "Connecté ?", 2, 1 0 112 43
  button "Vérifier", 3, 9 10 99 11
  box "Je désire...", 4, 1 41 112 57
  button "Biper cette personne", 5, 9 49 99 11
  button "Inviter cette personne", 6, 9 67 99 11
  button "Bloquer cette personne", 7, 9 84 99 11
  box "", 8, 1 97 112 55
  button "Ajouter un contact", 9, 9 112 99 11
  button "Supprimer un contact", 10, 9 132 99 12
  text "Statut :", 11, 9 28 19 6
  text "", 12, 31 28 75 6
  button "Fermer", 13, 120 156 37 11, cancel
  text "Par G-FACTION", 14, 24 168 42 6
  text ":)", 15, 132 169 13 6
  link "qdeme@yahoo.fr", 16, 199 168 90 13
}

alias actualisercontacts {
  did -a noticemsgrcontacts 1 $read(contacts.txt,1)
  did -a noticemsgrcontacts 1 $read(contacts.txt,2)
  did -a noticemsgrcontacts 1 $read(contacts.txt,3)
  did -a noticemsgrcontacts 1 $read(contacts.txt,4)
  did -a noticemsgrcontacts 1 $read(contacts.txt,5)
  did -a noticemsgrcontacts 1 $read(contacts.txt,6)
  did -a noticemsgrcontacts 1 $read(contacts.txt,7)
  did -a noticemsgrcontacts 1 $read(contacts.txt,8)
  did -a noticemsgrcontacts 1 $read(contacts.txt,9)
  did -a noticemsgrcontacts 1 $read(contacts.txt,10)
  did -a noticemsgrcontacts 1 $read(contacts.txt,11)
  did -a noticemsgrcontacts 1 $read(contacts.txt,12)
  did -a noticemsgrcontacts 1 $read(contacts.txt,13)
  did -a noticemsgrcontacts 1 $read(contacts.txt,14)
  did -a noticemsgrcontacts 1 $read(contacts.txt,15)
  did -a noticemsgrcontacts 1 $read(contacts.txt,16)
  did -a noticemsgrcontacts 1 $read(contacts.txt,17)
  did -a noticemsgrcontacts 1 $read(contacts.txt,18)
  did -a noticemsgrcontacts 1 $read(contacts.txt,19)
  did -a noticemsgrcontacts 1 $read(contacts.txt,20)
  did -a noticemsgrcontacts 1 $read(contacts.txt,21)
  did -a noticemsgrcontacts 1 $read(contacts.txt,22)
  did -a noticemsgrcontacts 1 $read(contacts.txt,23)
  did -a noticemsgrcontacts 1 $read(contacts.txt,24)
  did -a noticemsgrcontacts 1 $read(contacts.txt,25)
  did -a noticemsgrcontacts 1 $read(contacts.txt,26)
  did -a noticemsgrcontacts 1 $read(contacts.txt,27)
  did -a noticemsgrcontacts 1 $read(contacts.txt,28)
  did -a noticemsgrcontacts 1 $read(contacts.txt,29)
  did -a noticemsgrcontacts 1 $read(contacts.txt,30)
  did -a noticemsgrcontacts 1 $read(contacts.txt,31)
  did -a noticemsgrcontacts 1 $read(contacts.txt,32)
  did -a noticemsgrcontacts 1 $read(contacts.txt,33)
  did -a noticemsgrcontacts 1 $read(contacts.txt,34)
  did -a noticemsgrcontacts 1 $read(contacts.txt,35)
  did -a noticemsgrcontacts 1 $read(contacts.txt,36)
  did -a noticemsgrcontacts 1 $read(contacts.txt,37)
  did -a noticemsgrcontacts 1 $read(contacts.txt,38)
  did -a noticemsgrcontacts 1 $read(contacts.txt,39)
  did -a noticemsgrcontacts 1 $read(contacts.txt,40)
  did -a noticemsgrcontacts 1 $read(contacts.txt,41)
  did -a noticemsgrcontacts 1 $read(contacts.txt,42)
  did -a noticemsgrcontacts 1 $read(contacts.txt,43)
  did -a noticemsgrcontacts 1 $read(contacts.txt,44)
  did -a noticemsgrcontacts 1 $read(contacts.txt,45)
  did -a noticemsgrcontacts 1 $read(contacts.txt,46)
  did -a noticemsgrcontacts 1 $read(contacts.txt,47)
  did -a noticemsgrcontacts 1 $read(contacts.txt,48)
  did -a noticemsgrcontacts 1 $read(contacts.txt,49)
  did -a noticemsgrcontacts 1 $read(contacts.txt,50)
  did -a noticemsgrcontacts 1 $read(contacts.txt,51)
  did -a noticemsgrcontacts 1 $read(contacts.txt,52)
  did -a noticemsgrcontacts 1 $read(contacts.txt,53)
  did -a noticemsgrcontacts 1 $read(contacts.txt,54)
  did -a noticemsgrcontacts 1 $read(contacts.txt,55)
  did -a noticemsgrcontacts 1 $read(contacts.txt,56)
  did -a noticemsgrcontacts 1 $read(contacts.txt,57)
  did -a noticemsgrcontacts 1 $read(contacts.txt,58)
  did -a noticemsgrcontacts 1 $read(contacts.txt,59)
  did -a noticemsgrcontacts 1 $read(contacts.txt,60)
  did -a noticemsgrcontacts 1 $read(contacts.txt,61)
  did -a noticemsgrcontacts 1 $read(contacts.txt,62)
  did -a noticemsgrcontacts 1 $read(contacts.txt,63)
  did -a noticemsgrcontacts 1 $read(contacts.txt,64)
  did -a noticemsgrcontacts 1 $read(contacts.txt,65)
  did -a noticemsgrcontacts 1 $read(contacts.txt,66)
  did -a noticemsgrcontacts 1 $read(contacts.txt,67)
  did -a noticemsgrcontacts 1 $read(contacts.txt,68)
  did -a noticemsgrcontacts 1 $read(contacts.txt,69)
  did -a noticemsgrcontacts 1 $read(contacts.txt,70)
  did -a noticemsgrcontacts 1 $read(contacts.txt,71)
  did -a noticemsgrcontacts 1 $read(contacts.txt,72)
  did -a noticemsgrcontacts 1 $read(contacts.txt,73)
  did -a noticemsgrcontacts 1 $read(contacts.txt,74)
  did -a noticemsgrcontacts 1 $read(contacts.txt,75)
  did -a noticemsgrcontacts 1 $read(contacts.txt,76)
  did -a noticemsgrcontacts 1 $read(contacts.txt,77)
  did -a noticemsgrcontacts 1 $read(contacts.txt,78)
  did -a noticemsgrcontacts 1 $read(contacts.txt,79)
  did -a noticemsgrcontacts 1 $read(contacts.txt,80)
  did -a noticemsgrcontacts 1 $read(contacts.txt,81)
  did -a noticemsgrcontacts 1 $read(contacts.txt,82)
  did -a noticemsgrcontacts 1 $read(contacts.txt,83)
  did -a noticemsgrcontacts 1 $read(contacts.txt,84)
  did -a noticemsgrcontacts 1 $read(contacts.txt,85)
  did -a noticemsgrcontacts 1 $read(contacts.txt,86)
  did -a noticemsgrcontacts 1 $read(contacts.txt,87)
  did -a noticemsgrcontacts 1 $read(contacts.txt,88)
  did -a noticemsgrcontacts 1 $read(contacts.txt,89)
  did -a noticemsgrcontacts 1 $read(contacts.txt,90)
  did -a noticemsgrcontacts 1 $read(contacts.txt,91)
  did -a noticemsgrcontacts 1 $read(contacts.txt,92)
  did -a noticemsgrcontacts 1 $read(contacts.txt,93)
  did -a noticemsgrcontacts 1 $read(contacts.txt,94)
  did -a noticemsgrcontacts 1 $read(contacts.txt,95)
  did -a noticemsgrcontacts 1 $read(contacts.txt,96)
  did -a noticemsgrcontacts 1 $read(contacts.txt,97)
  did -a noticemsgrcontacts 1 $read(contacts.txt,98)
  did -a noticemsgrcontacts 1 $read(contacts.txt,99)
  did -a noticemsgrcontacts 1 $read(contacts.txt,100)
  did -a noticemsgrcontacts 12 Je ne fais rien actuellement
}

on *:dialog:noticemsgrcontacts:init:0:{
  did -z noticemsgrcontacts 1
  /actualisercontacts
}


on *:dialog:noticemsgrcontacts:sclick:3: {
  set %user $read(contacts.txt,$did(noticemsgrcontacts,1).sel)
  /isconnected
}

on *:dialog:noticemsgrcontacts:sclick:5: {
  /ctcp $read(contacts.txt,$did(noticemsgrcontacts,1).sel) [bip]
  //echo $input($read(contacts.txt,$did(noticemsgrcontacts,1).sel) a été bipé si il est online et possède Notice Messenger,308,Warning)
}

on *:dialog:noticemsgrcontacts:sclick:6: {
  set %user $read(contacts.txt,$did(noticemsgrcontacts,1).sel)
  /invite %user $$?="Sur quel canal ? (ne pas oublier le #)"
  //echo $input(%user a été invité si il est online et possède Notice Messenger,308,Warning)
}

on *:dialog:noticemsgrcontacts:sclick:7: {
  set %bannis $addtok(%bannis,$read(contacts.txt,$did(noticemsgrcontacts,1).sel),32)
  set %user $read(contacts.txt,$did(noticemsgrcontacts,1).sel
  //echo $input(%user est désormais banni il ne pourra plus voir si vous êtes online et ne pourra plus vous envoyer de messages ni vous biper,308,Warning)
}

on *:dialog:noticemsgrcontacts:sclick:9: {
  /write contacts.txt $$?="Qui ajouter ?"
  /did -r noticemsgrcontacts 1
  /actualisercontacts
}

on *:dialog:noticemsgrcontacts:sclick:10: {
  write $+(-dl,$did(noticemsgrcontacts,1).sel) contacts.txt
  did -di noticemsgrcontacts 1 $did(noticemsgrcontacts,1).sel
}

dialog noticemsgrredig {
  title "Notice Messenger : Rédiger un message"
  size 445 218 225 84
  option dbu
  edit "", 1, 4 16 216 12, limit 1000 multi return autohs
  edit "", 2, 48 36 16 10, multi read return
  text "Lettres inscrites :", 3, 4 40 40 6
  text "/1000", 4, 68 40 16 6
  text "Lettres restantes avant impossiblilité d'écrire :", 5, 92 40 108 6
  edit "", 6, 204 36 16 10, multi read return
  text "Message", 7, 4 4 24 6
  combo 8, 36 56 100 44, drop edit size
  text "Envoyer à", 9, 4 60 28 6
  button "Envoyer", 10, 156 56 48 11
  button "&Hide", 11, 0 0 0 0, hide Ok
}

alias actucontactsredig {
  did -a noticemsgrredig 8 $read(contacts.txt,1)
  did -a noticemsgrredig 8 $read(contacts.txt,2)
  did -a noticemsgrredig 8 $read(contacts.txt,3)
  did -a noticemsgrredig 8 $read(contacts.txt,4)
  did -a noticemsgrredig 8 $read(contacts.txt,5)
  did -a noticemsgrredig 8 $read(contacts.txt,6)
  did -a noticemsgrredig 8 $read(contacts.txt,7)
  did -a noticemsgrredig 8 $read(contacts.txt,8)
  did -a noticemsgrredig 8 $read(contacts.txt,9)
  did -a noticemsgrredig 8 $read(contacts.txt,10)
  did -a noticemsgrredig 8 $read(contacts.txt,11)
  did -a noticemsgrredig 8 $read(contacts.txt,12)
  did -a noticemsgrredig 8 $read(contacts.txt,13)
  did -a noticemsgrredig 8 $read(contacts.txt,14)
  did -a noticemsgrredig 8 $read(contacts.txt,15)
  did -a noticemsgrredig 8 $read(contacts.txt,16)
  did -a noticemsgrredig 8 $read(contacts.txt,17)
  did -a noticemsgrredig 8 $read(contacts.txt,18)
  did -a noticemsgrredig 8 $read(contacts.txt,19)
  did -a noticemsgrredig 8 $read(contacts.txt,20)
  did -a noticemsgrredig 8 $read(contacts.txt,21)
  did -a noticemsgrredig 8 $read(contacts.txt,22)
  did -a noticemsgrredig 8 $read(contacts.txt,23)
  did -a noticemsgrredig 8 $read(contacts.txt,24)
  did -a noticemsgrredig 8 $read(contacts.txt,25)
  did -a noticemsgrredig 8 $read(contacts.txt,26)
  did -a noticemsgrredig 8 $read(contacts.txt,27)
  did -a noticemsgrredig 8 $read(contacts.txt,28)
  did -a noticemsgrredig 8 $read(contacts.txt,29)
  did -a noticemsgrredig 8 $read(contacts.txt,30)
  did -a noticemsgrredig 8 $read(contacts.txt,31)
  did -a noticemsgrredig 8 $read(contacts.txt,32)
  did -a noticemsgrredig 8 $read(contacts.txt,33)
  did -a noticemsgrredig 8 $read(contacts.txt,34)
  did -a noticemsgrredig 8 $read(contacts.txt,35)
  did -a noticemsgrredig 8 $read(contacts.txt,36)
  did -a noticemsgrredig 8 $read(contacts.txt,37)
  did -a noticemsgrredig 8 $read(contacts.txt,38)
  did -a noticemsgrredig 8 $read(contacts.txt,39)
  did -a noticemsgrredig 8 $read(contacts.txt,40)
  did -a noticemsgrredig 8 $read(contacts.txt,41)
  did -a noticemsgrredig 8 $read(contacts.txt,42)
  did -a noticemsgrredig 8 $read(contacts.txt,43)
  did -a noticemsgrredig 8 $read(contacts.txt,44)
  did -a noticemsgrredig 8 $read(contacts.txt,45)
  did -a noticemsgrredig 8 $read(contacts.txt,46)
  did -a noticemsgrredig 8 $read(contacts.txt,47)
  did -a noticemsgrredig 8 $read(contacts.txt,48)
  did -a noticemsgrredig 8 $read(contacts.txt,49)
  did -a noticemsgrredig 8 $read(contacts.txt,50)
  did -a noticemsgrredig 8 $read(contacts.txt,51)
  did -a noticemsgrredig 8 $read(contacts.txt,52)
  did -a noticemsgrredig 8 $read(contacts.txt,53)
  did -a noticemsgrredig 8 $read(contacts.txt,54)
  did -a noticemsgrredig 8 $read(contacts.txt,55)
  did -a noticemsgrredig 8 $read(contacts.txt,56)
  did -a noticemsgrredig 8 $read(contacts.txt,57)
  did -a noticemsgrredig 8 $read(contacts.txt,58)
  did -a noticemsgrredig 8 $read(contacts.txt,59)
  did -a noticemsgrredig 8 $read(contacts.txt,60)
  did -a noticemsgrredig 8 $read(contacts.txt,61)
  did -a noticemsgrredig 8 $read(contacts.txt,62)
  did -a noticemsgrredig 8 $read(contacts.txt,63)
  did -a noticemsgrredig 8 $read(contacts.txt,64)
  did -a noticemsgrredig 8 $read(contacts.txt,65)
  did -a noticemsgrredig 8 $read(contacts.txt,66)
  did -a noticemsgrredig 8 $read(contacts.txt,67)
  did -a noticemsgrredig 8 $read(contacts.txt,68)
  did -a noticemsgrredig 8 $read(contacts.txt,69)
  did -a noticemsgrredig 8 $read(contacts.txt,70)
  did -a noticemsgrredig 8 $read(contacts.txt,71)
  did -a noticemsgrredig 8 $read(contacts.txt,72)
  did -a noticemsgrredig 8 $read(contacts.txt,73)
  did -a noticemsgrredig 8 $read(contacts.txt,74)
  did -a noticemsgrredig 8 $read(contacts.txt,75)
  did -a noticemsgrredig 8 $read(contacts.txt,76)
  did -a noticemsgrredig 8 $read(contacts.txt,77)
  did -a noticemsgrredig 8 $read(contacts.txt,78)
  did -a noticemsgrredig 8 $read(contacts.txt,79)
  did -a noticemsgrredig 8 $read(contacts.txt,80)
  did -a noticemsgrredig 8 $read(contacts.txt,81)
  did -a noticemsgrredig 8 $read(contacts.txt,82)
  did -a noticemsgrredig 8 $read(contacts.txt,83)
  did -a noticemsgrredig 8 $read(contacts.txt,84)
  did -a noticemsgrredig 8 $read(contacts.txt,85)
  did -a noticemsgrredig 8 $read(contacts.txt,86)
  did -a noticemsgrredig 8 $read(contacts.txt,87)
  did -a noticemsgrredig 8 $read(contacts.txt,88)
  did -a noticemsgrredig 8 $read(contacts.txt,89)
  did -a noticemsgrredig 8 $read(contacts.txt,90)
  did -a noticemsgrredig 8 $read(contacts.txt,91)
  did -a noticemsgrredig 8 $read(contacts.txt,92)
  did -a noticemsgrredig 8 $read(contacts.txt,93)
  did -a noticemsgrredig 8 $read(contacts.txt,94)
  did -a noticemsgrredig 8 $read(contacts.txt,95)
  did -a noticemsgrredig 8 $read(contacts.txt,96)
  did -a noticemsgrredig 8 $read(contacts.txt,97)
  did -a noticemsgrredig 8 $read(contacts.txt,98)
  did -a noticemsgrredig 8 $read(contacts.txt,99)
  did -a noticemsgrredig 8 $read(contacts.txt,100)
}

on *:dialog:noticemsgrredig:init:0:{
  did -z noticemsgrredig 8
  did -c noticemsgrredig 8 1
  /actucontactsredig
}


on *:dialog:noticemsgrredig:edit:1: {
  /did -r noticemsgrredig 2
  /did -a noticemsgrredig 2 $len($did(noticemsgrredig,1))
  /did -r noticemsgrredig 6
  /did -a noticemsgrredig 6 $calc(400 - $did(noticemsgrredig,2))
}

on *:dialog:noticemsgrredig:sclick:10: {
  set %usersend $did(noticemsgrredig,8)
  /notice %usersend [noticemessenger] $did(noticemsgrredig,1)
  $input(Un message vient d'être envoyé à %usersend $+ . Cependant si %usersend n'était pas connecté au moment ou vous avez envoyé ce message il ne le recevra pas.,308,Warning)
}

ctcp ^*:*[isconnected]*:*: {
  if ($istok(%bannis,$nick,32)) {
    halt
  }
  else /ctcp $nick [connected]
}

ctcp ^*:*[connected]*:*: {
  set %connectedtemp on
}

alias isconnected {
  /ctcp %user [isconnected]
  /did -a noticemsgrcontacts 12 Je suis en train de vérifier...
  /timer1 1 5 /isco2
}

alias isco2 {
  if (%connectedtemp == on) {
    //echo $input(%user est connecté !,308,Warning)
    set %connectedtemp off
    /did -a noticemsgrcontacts 12 Je ne fais rien actuellement
    halt
  }
  else //echo $input(%user n'est pas connecté ou n'a pas de Notice Messenger !,308,Warning)
  /did -a noticemsgrcontacts 12 Je ne fais rien actuellement
  halt
}

ctcp ^*:*[bip]*:*: {
  if ($istok(%bannis,$nick,32)) {
    halt
  }
  else  //echo 4,8 $+ $nick vous bippe !
  /splay %son
}

on 1:notice:[noticemessenger]*:*:{
  if ($istok(%bannis,$nick,32)) {
    /halt
  }
  else set %lastnotice $1-
  /write %liste Message de $nick : $1-
}