GESTIONNAIRE DE CONTACT

dialog aa {
  title "Ajouter/Editer/Voir contact"
  size -1 -1 161 93
  option dbu
  box "Info", 1, 2 3 157 75
  text "Prénom", 2, 86 12 20 8
  edit "", 3, 106 11 50 10, autohs
  text "Nom", 4, 5 23 19 8
  edit "", 5, 30 22 126 10
  text "Age", 6, 100 34 25 8
  edit "", 7, 125 33 31 10
  text "Date de Naissance", 8, 5 34 47 8
  edit "", 9, 52 33 47 10
  text "Adresse", 10, 5 45 25 8
  edit "", 11, 33 44 123 10, autohs
  button "Ajouter", 12, 2 79 89 12
  text "Pseudo", 13, 5 12 25 8
  edit "", 14, 30 11 51 10
  text "Note perso", 15, 5 56 28 8
  edit "", 16, 33 55 123 10
  button "Editer", 17, 91 79 67 12, disable
  text "Mail", 18, 5 66 25 8
  edit "", 19, 33 65 123 10
}
dialog ga {
  title "Contact"
  size -1 -1 64 146
  option dbu
  box "Amis", 8, 1 3 62 87
  list 4, 3 11 57 75, size
  button "Ajouter", 1, 1 91 31 12
  button "Suprimer", 5, 32 91 31 12
  box "Envoyer un(e)", 2, 1 116 62 27
  button "msg", 3, 4 125 28 12
  button "notice", 6, 32 125 29 12
  button "Whoiser", 7, 1 103 62 12
}
menu * {
  -
  Gestoinaire de Contact:/ga 
}
alias ga dialog -m ga ga
alias jlm { 
  var %a 1
  while ($read(ami/ami.txt,%a)) {
    did -a ga 4 $read(ami/ami.txt,%a)
    inc %a
  }
}
alias vw {
  dialog -m aa aa 
  did -a aa 14 $readini(ami/ami.ini,%kml,Pseudo)
  did -a aa 3 $readini(ami/ami.ini,%kml,Prenom)
  did -a aa 5 $readini(ami/ami.ini,%kml,Nom)
  did -a aa 7 $readini(ami/ami.ini,%kml,Age)
  did -a aa 9 $readini(ami/ami.ini,%kml,date)
  did -a aa 11 $readini(ami/ami.ini,%kml,Adresse)
  did -a aa 16 $readini(ami/ami.ini,%kml,note)
  did -a aa 19 $readini(ami/ami.ini,%kml,mail)
  did -b aa 14,3,5,7,9,11,16,12,19
  did -e aa 17
}
on *:dialog:ga:*:*:{
  if $devent == init {
    jlm
  }
  if $devent == dclick { if $did == 4 { set %kml $did(4).seltext | vw | set %klm $did(4).sel } } 
  if $devent == sclick {
    if $did == 7 { dialog -m wh wh }
    if $did == 3 { msg %kml $?="quel message ?" }
    if $did == 6 { notice %kml $?="Quel message ?" }
    if $did == 1 { dialog -m aa aa }
    if $did == 4 { set %kml $did(4).seltext | set %klm $did(4).sel }
    if $did == 5 { did -d ga 4 %klm | write -d ami/ami.txt %klm | remini ami/ami.ini %kml | did -a }
  }
}
on *:dialog:aa:*:*:{
  if $devent == sclick { 
    if $did == 12 {
      if $did(12) == modifier {
        writeini -n ami/ami.ini $remove($did(14),$chr(32)) Pseudo $did(14)
        if $did(3) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Prenom $did(3) }
        if $did(5) != $null  {  writeini -n ami/ami.ini $remove($did(14),$chr(32)) Nom $did(5) }
        if $did(7) != $null  {  writeini -n ami/ami.ini $remove($did(14),$chr(32)) Age $did(7) }
        if $did(9) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Date $did(9) }
        if $did(11) != $null  {  writeini -n ami/ami.ini $remove($did(14),$chr(32)) Adresse $did(11) }
        if $did(16) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Note $did(16) }
        if $did(19) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Mail $did(19) }
        if $did(14) != %kml { remini ami/ami.ini %kml | write -d ami/ami.txt %klm | write ami/ami.txt $remove($did(14),$chr(32)) | did -d ga 4 %klm | did -a ga 4 $remove($did(14),$chr(32)) }
        dialog -x aa aa
      }
      else { 
        writeini -n ami/ami.ini $remove($did(14),$chr(32)) Pseudo $did(14)
        if $did(3) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Prenom $did(3) }
        if $did(5) != $null  {  writeini -n ami/ami.ini $remove($did(14),$chr(32)) Nom $did(5) }
        if $did(7) != $null  {  writeini -n ami/ami.ini $remove($did(14),$chr(32)) Age $did(7) }
        if $did(9) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Date $did(9) }
        if $did(11) != $null  {  writeini -n ami/ami.ini $remove($did(14),$chr(32)) Adresse $did(11) }
        if $did(16) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Note $did(16) }
        if $did(19) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Mail $did(19) }
        did -a ga 4 $remove($did(14),$chr(32))
        write ami/ami.txt $remove($did(14),$chr(32))
        dialog -x aa aa
      }
    }
    if $did == 17 {
      did -b aa 17
      did -ra aa 12 Modifier
      did -e aa 14,3,5,7,9,11,16,12,19
    }
  }
}
dialog wh {
  title "Whois"
  size -1 -1 83 106
  option dbu
  text "Nick", 1, 4 7 25 8
  edit "", 2, 29 5 50 10, read autohs
  text "Host", 3, 4 17 25 8
  edit "", 4, 29 15 50 10, read autohs
  box "Salon ou il est:", 5, 2 29 78 74
  text "Owner", 6, 5 39 18 8
  edit "", 7, 24 38 50 10, read autohs
  text "Sop", 8, 5 49 18 8
  edit "", 9, 24 48 50 10, read autohs
  text "Op", 10, 5 58 16 8
  edit "", 11, 24 58 50 10, read autohs
  text "Halfop", 12, 5 69 17 8
  edit "", 13, 24 68 50 10, read autohs
  text "Voice", 14, 5 79 19 8
  edit "", 15, 24 78 50 10, read autohs
  text "Autre", 16, 5 89 17 8
  edit "", 17, 24 88 50 10, read autohs 
}
on *:dialog:wh:init:*:{ whois %kml }
Raw 311:*:{ 
  if $dialog(wh) != $null {
    did -ra wh 2 $2 
    did -ra wh 4 $3 $+ @ $+ $4 
    haltdef
  }
}
raw 319:*:{
  if $dialog(wh) != $null {
    var %a $0,%b 3,%c,%d,%ow,%cs,%o,%h,%v,%r
    while %b <= %a {
      %c = $gettok($ [ $+ [ %b ] ],1,35)
      %d = $remove($ [ $+ [ %b ] ],%c)
      if $len(%d) == 1 { %d = $+(%d,%c) | %c = }
      if * isin %c || ~ isin %c { %ow = $whs(%ow,%d) }
      elseif ^ isin %c || & isin %c || ! isin %c { %cs = $whs(%cs,%d) }
      elseif @ isin %c { %o = $whs(%o,%d) }
      elseif % isin %c { %h = $whs(%h,%d) }
      elseif + isin %c { %v = $whs(%v,%d) }
      else { %r = $whs(%r,%d) } 
      inc %b
    }
    if %ow {     did -ra wh 7 %ow }
    if %cs {     did -ra wh 9 %cs }
    if %o {     did -ra wh 11 %o }
    if %h {     did -ra wh 13 %h }
    if %v {     did -ra wh 15 %v }
    if %r {     did -ra wh17 %r }
    haltdef
  }
}

Télécharger le zip