on *:START:{ 
  if (!$hget(q-ainfo-manager)) { 
    hmake q-ainfo-manager 100 
  }
  if ($exists(" $+ $scriptdirq-ainfo-manager.hsh")) { 
    hload q-ainfo-manager " $+ $scriptdirq-ainfo-manager.hsh"
    echo -s 14[13Q-Ainfo-manager V2.114] by 13Queen-Amidala loaded successfully! 
  }
}
 
 
;***********************
;MAIN DIALOG TABLE CODE
;***********************
 
dialog Bilgi menajeri {
  title "Bilgi menajeri - oLd"
  size -1 -1 209 145
  option dbu
  tab "Iletisim", 1, 4 4 201 137
  box "Rumuz", 4, 9 22 74 112, tab 1
  list 9, 16 33 59 86, tab 1 sort size
  text "Isim", 90, 87 25 31 8, tab 1
  text "Alternatif rumuz", 91, 87 47 39 7, tab 1
  edit "", 14, 87 34 113 10, tab 1 read autohs
  edit "", 16, 87 55 113 23, tab 1 read multi
  button "whois/kimlik", 50, 137 85 28 12, tab 1
  button "Mesaj gonder", 52, 166 85 32 12, tab 1
  button "Kopi", 64, 137 99 61 12, tab 1
  button "KAYDET", 13, 180 21 21 8, tab 1
  button "Sil", 8, 16 122 36 8, tab 1
  icon 7, 187 121 15 15,  " $+ $scriptdirqaicon.jpg", 0, tab 1
  icon 54, 88 82 43 34,  " $+ $scriptdirnpaicon.jpg", 0, tab 1
  ;
  tab "Telefon numarasi", 2
  box "Nick", 5, 9 22 74 112, tab 2
  list 10, 16 33 59 86, tab 2 sort size
  text "E-posta adresi", 93, 87 24 35 8, tab 2
  text "Mail adresi", 94, 88 50 41 8, tab 2
  text "Telefon", 95, 90 111 19 7, tab 2
  text "Alternatif", 96, 90 123 25 7, tab 2
  text "Ulke/Sehir", 42, 88 87 40 8, tab 2
  edit "", 20, 87 33 114 10, tab 2 read autohs
  button "E-posta gonder", 65, 164 44 37 9, tab 2
  edit "", 22, 88 60 113 22, tab 2 read multi
  edit "", 44, 128 86 73 10, tab 2 read autohs
  edit "", 24, 116 108 68 10, tab 2 read autohs
  edit "", 26, 116 120 68 10, tab 2 read autohs
  button "KAYDET", 27, 180 21 21 8, tab 2
  button "Sil", 107, 16 122 36 8, tab 2
  icon 12, 187 121 15 15,  " $+ $scriptdirqaicon.jpg", 0, tab 2
  ;
  tab "Diger bilgiler", 3
  box "Rumuz", 6, 9 22 74 112, tab 3
  list 11, 16 33 59 86, tab 3 sort size
  text "Bilgileri:", 97, 87 24 37 8, tab 3
  text "Web adresi", 15, 86 80 18 7, tab 3
  text "Dogum tarihi", 92, 86 93 23 7, tab 3
  text "Kanallar", 46, 86 105 44 8, tab 3
  edit "", 28, 87 33 114 42, tab 3 read multi
  edit "", 17, 109 78 92 10, tab 3 read autohs
  edit "", 18, 109 91 73 10, tab 3 read autohs
  edit "", 48, 86 114 97 20, tab 3 read multi
  button "KAYDET", 34, 180 21 21 8, tab 3
  button "Sil", 108, 16 122 36 8, tab 3
  icon 31, 187 121 15 15,  " $+ $scriptdirqaicon.jpg", 0, tab 3
  ;
  tab "Edit/Add", 35
  box "Edit/Add a Contact to Your Database", 36, 9 20 193 117, tab 35
  text "Nickname", 98, 12 31 24 8, tab 35
  text "Birthdate", 99, 107 42 22 8, tab 35
  text "Real Name", 100, 12 42 26 8, tab 35
  text "Email", 101, 12 64 13 8, tab 35
  text "Alt. Nicks", 102, 12 53 24 8, tab 35
  text "Web", 19, 107 54 18 7, tab 35
  text "Telefon", 103, 12 75 16 7, tab 35
  text "Telefon 2", 104, 12 86 26 7, tab 35
  text "Adres", 105, 107 65 40 7, tab 35
  text "Diger bilgiler", 106, 12 109 26 6, tab 35
  text "Sehir/Ulke", 30, 107 87 41 7, tab 35
  text "Kanallar", 38, 12 97 25 7, tab 35
  edit "", 39, 38 29 67 10, tab 35 autohs
  edit "", 43, 38 40 67 10, tab 35 autohs
  edit "", 41, 130 40 69 10, tab 35
  edit "", 47, 38 51 67 10, tab 35 autohs
  edit "", 21, 130 51 69 10, tab 35 autohs
  edit "", 45, 38 62 67 10, tab 35 autohs
  edit "", 49, 38 73 67 10, tab 35 autohs
  edit "", 53, 107 73 92 10, tab 35 autohs
  edit "", 51, 38 84 67 10, tab 35 autohs
  edit "", 40, 38 95 67 10, tab 35 autohs
  combo 29, 107 95 92 39, tab 35 size drop
  edit "", 55, 38 106 161 10, tab 35 autohs
  button "Add Pic", 57, 11 121 35 12, tab 35
  button "Degis / Ekle", 37, 165 27 34 11, tab 35
  button "Yeni", 67, 136 27 26 11, tab 35
  button "Resmi sil", 69, 48 121 35 12, tab 35
  icon 32, 184 119 15 15,  " $+ $scriptdirqaicon.jpg", 0, tab 35
  ;
  tab "oLd - Lutfen okuyunuz", 56
  box "Aciklamar", 109, 9 22 193 114, tab 56
  text "Orjinal ismi: Q-Ainfo-manager V2.0'dir, by Queen-Amidala ", 58, 14 32 164 8, tab 56
  text "Website", 59, 80 43 22 8, tab 56
  text "oLd", 60, 14 54 68 8, tab 56
  text "Yazildi: 10/20/03", 61, 14 43 44 8, tab 56
  link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 62, 105 43 77 9, tab 56
  text "Son guncelleme: 11/4/03", 63, 77 125 55 8, tab 56 center
  icon 33, 184 118 15 15,  " $+ $scriptdirqaicon.jpg", 0, tab 56
}
 
;***********************
;MEMO DIALOG TABLE CODE
;***********************
dialog q-aim-memo {
  title "Bilgi menajeri - Mesaj gonder"
  size -1 -1 166 87
  option dbu
  box "'a mesaj gonder:", 1, 3 3 159 81
  text "Mesajiniz:", 3, 9 24 55 8
  edit "", 4, 9 34 147 30, multi limit 255
  button "Send Memo", 5, 84 65 35 12
  button "Clear", 6, 121 65 35 12
  edit "", 2, 9 11 70 10, read autohs
  text "Reminder: Memos can not exceed 255 characters.", 7, 10 67 66 14, center
}
 
;************************
;WHOIS DIALOG TABLE CODE
;************************
dialog q-aim-whois {
  title "Bilgi menajeri whois/kimlik"
  size -1 -1 157 117
  option dbu
  box "Whois/kimlik bilgileri:", 1, 6 4 146 110
  edit "", 3, 12 25 135 84, read multi return autovs
  edit "", 2, 12 12 70 10, read autohs
}
 
;****************
;MAIN INIT EVENT
;****************
on *:dialog:Q-Ainfo-manager:init:*: { 
  filter -o " $+ $scriptdircountries.txt" q-ainfo-manager 29
  did -c $dname 29 1
  fillInfoNicks $dname
}
 
;*******************
;CONTACTS TAB INFO 
;*******************
;NICK DELETE BUTTON 8
on *:dialog:Q-Ainfo-manager:sclick:8: {  
  hdel q-ainfo-manager NICK. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager RN. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager AN. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager BDAY. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager EMAIL. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager MA. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager PH. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager AP. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager OI. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager PIC. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager WEB. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager REGCHAN. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager CR. $+ $did(q-ainfo-manager,9).seltext
  did -g $dname 54 " $+ $iif($hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,9).seltext) && $isfile($hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,9).seltext)),$hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,9).seltext),$scriptdirnpaicon.jpg) $+ "
  fillInfoNicks $dname
  did -r $dname 14,16,17,18,20,22,24,26,28,40,44
  did -r $dname 21,29,39,41,43,45,47,48,49,51,53,55
}
 
;LISTBOX 9
on *:dialog:Q-Ainfo-manager:sclick:9: {
  did -c $dname 10,11 $did(q-ainfo-manager,9,1).sel
  updateNickInfo $dname
  fillAdd $dname
}
 
;MEMO BUTTON
on *:dialog:Q-Ainfo-manager:sclick:52:{ 
  dialog -m q-aim-memo q-aim-memo 
}
 
;************************
;MEMO INIT & CODE
;************************
on *:dialog:Q-Aim-memo:init:*: { 
  did -a $dname 2 $did(q-ainfo-manager,9).seltext
}
on *:dialog:Q-Aim-memo:sclick:5: {
  memoserv send $did(q-aim-memo,2) $did(q-aim-memo,4)
  did -r $dname 4
  .timerms_send 1 1 dialog -x q-aim-memo q-aim-memo
}
on *:dialog:Q-Aim-memo:sclick:6: {
  did -r $dname 4
}
;*****************************
 
;WHOIS BUTTON
on *:dialog:Q-Ainfo-manager:sclick:50:{ 
  dialog -m q-aim-whois q-aim-whois 
}
on *:dialog:Q-Aim-whois:init:*:{
  set %whoisnick $did(q-ainfo-manager,9).seltext
  did -a $dname 2 $did(q-ainfo-manager,9).seltext
  whois %whoisnick
  unset %whoisnick
  set %i-m.enabled $true
} 
raw 311:$($me %whoisnick *):{
  if (%i-m.enabled) {  
    did -a Q-Aim-whois 3 Nick: $2 $crlf
    did -a Q-Aim-whois 3 Address: $3 $+ @ $+ $4 $crlf
    did -a Q-Aim-whois 3 Real Name: $6- $crlf
  }
}
raw 319:$($me %whoisnick *):{
  if (%i-m.enabled) { 
    did -a Q-Aim-whois 3 Channels: $sorttok($3-,32,c) $crlf
  }
}
raw 312:$($me %whoisnick *):{
  if (%i-m.enabled) { 
    did -a Q-Aim-whois 3 Server: $3 $4- $crlf
  }
}
raw 307:$($me %whoisnick *):{
  if (%i-m.enabled) { 
    did -a Q-Aim-whois 3 Status: $2 $3- $crlf
  }
}
raw 301:$($me %whoisnick *):{
  if (%i-m.enabled) { 
    did -a Q-Aim-whois 3 Away: $3 $crlf
  }
}
raw 301:$($me %whoisnick *):{
  if (%i-m.enabled) { 
    did -a Q-Aim-whois 3 Idle: $duration($3) $crlf
  }
}
raw 318:$($me %whoisnick *):{
  if (%i-m.enabled) { 
    did -a Q-Aim-whois 3 End of Whois: $2 $crlf
    unset %i-m.enabled
  }
}
 
;*****************************
 
;COPY TO CLIPBOARD BUTTON
on *:dialog:Q-Ainfo-manager:sclick:64: {
  clipboard -na $did(q-ainfo-manager,9).seltext
  clipboard -na $hget(q-ainfo-manager,RN. $+ $did(q-ainfo-manager,9).seltext)
  clipboard -na $hget(q-ainfo-manager,BDAY. $+ $did(q-ainfo-manager,9).seltext)
  clipboard -na $hget(q-ainfo-manager,ALT. $+ $did(q-ainfo-manager,9).seltext)
  clipboard -na $hget(q-ainfo-manager,EMAIL. $+ $did(q-ainfo-manager,9).seltext)
  clipboard -na $hget(q-ainfo-manager,REGCHAN. $+ $did(q-ainfo-manager,9).seltext)
  clipboard -na $hget(q-ainfo-manager,PH. $+ $did(q-ainfo-manager,9).seltext)
  clipboard -na $hget(q-ainfo-manager,AP. $+ $did(q-ainfo-manager,9).seltext)
  clipboard -na $hget(q-ainfo-manager,WEB. $+ $did(q-ainfo-manager,9).seltext)
  clipboard -na $hget(q-ainfo-manager,MA. $+ $did(q-ainfo-manager,9).seltext)
  clipboard -na $read($scriptdircountries.txt,$iif($hget(q-ainfo-manager,CR. $+ $did(q-ainfo-manager,10).seltext),$hget(q-ainfo-manager,CR. $+ $did(q-ainfo-manager,10).seltext),1))
  clipboard -na $hget(q-ainfo-manager,OI. $+ $did(q-ainfo-manager,9).seltext)
}
 
;CONTACTS TAB SAVE BUTTON 13
on *:dialog:Q-Ainfo-manager:sclick:13: {
  hsave q-ainfo-manager " $+ $scriptdirq-ainfo-manager.hsh"
}
 
 
;**********************************
;ADDRESSES/PHONE NUMBERS TAB INFO 
;**********************************
 
;LISTBOX 10
on *:dialog:Q-Ainfo-manager:sclick:10: {
  did -c $dname 9,11 $did(q-ainfo-manager,10,1).sel  
  updateNickInfo $dname
  fillAdd $dname
}
 
;SEND EMAIL BUTTON 65
on *:dialog:Q-Ainfo-manager:sclick:65: {
  run mailto: $+ $hget(q-ainfo-manager,EMAIL. $+ $did(q-ainfo-manager,10).seltext) $+ ?Subject=Email From mIRC
}
 
;ADDRESS TAB SAVE BUTTON 27
on *:dialog:Q-Ainfo-manager:sclick:27: {
  hsave q-ainfo-manager " $+ $scriptdirq-ainfo-manager.hsh"
}
 
;ADDRESSES DELETE BUTTON 107
on *:dialog:Q-Ainfo-manager:sclick:107: {  
  hdel q-ainfo-manager NICK. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager RN. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager AN. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager BDAY. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager EMAIL. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager MA. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager PH. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager AP. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager OI. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager PIC. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager WEB. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager REGCHAN. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager CR. $+ $did(q-ainfo-manager,9).seltext
  did -g $dname 54 " $+ $iif($hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,10).seltext) && $isfile($hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,10).seltext)),$hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,10).seltext),$scriptdirnpaicon.jpg) $+ "
  fillInfoNicks $dname
  did -r $dname 14,16,17,18,20,22,24,26,28,40,44
  did -r $dname 21,29,39,41,43,45,47,48,49,51,53,55
}
 
 
;********************
;OTHER INFO TAB INFO 
;********************
;LISTBOX 11
on *:dialog:Q-Ainfo-manager:sclick:11: {
  did -c $dname 9,10 $did(q-ainfo-manager,11,1).sel
  updateNickInfo $dname
  fillAdd $dname
}
 
;OTHER INFO SAVE (button 34)
on *:dialog:Q-Ainfo-manager:sclick:34: {
  hsave q-ainfo-manager " $+ $scriptdirq-ainfo-manager.hsh"
}
 
;OTHER INFO DELETE BUTTON 108
on *:dialog:Q-Ainfo-manager:sclick:108: {  
  hdel q-ainfo-manager NICK. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager RN. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager AN. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager BDAY. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager EMAIL. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager MA. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager PH. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager AP. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager OI. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager PIC. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager WEB. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager REGCHAN. $+ $did(q-ainfo-manager,9).seltext
  hdel q-ainfo-manager CR. $+ $did(q-ainfo-manager,9).seltext
  did -g $dname 54 " $+ $iif($hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,11).seltext) && $isfile($hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,11).seltext)),$hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,11).seltext),$scriptdirnpaicon.jpg) $+ "
  fillInfoNicks $dname
  did -r $dname 14,16,17,18,20,22,24,26,28,40,44
  did -r $dname 21,29,39,41,43,45,47,48,49,51,53,55
}
 
;**********************
;ADD INFORMATION TAB 4
;**********************
;ADD BUTTON
on *:dialog:Q-Ainfo-manager:sclick:37: {
  if ($did(q-ainfo-manager,39)) {
    ;NICK(39)
    hadd q-ainfo-manager NICK. $+ $did(q-ainfo-manager,39)
    ;BIRTHDATE(41)
    hadd q-ainfo-manager BDAY. $+ $did(q-ainfo-manager,39) $did(q-ainfo-manager,41)
    ;REAL NAME(43)
    hadd q-ainfo-manager RN. $+ $did(q-ainfo-manager,39) $did(q-ainfo-manager,43)
    ;EMAIL(45)
    hadd q-ainfo-manager EMAIL. $+ $did(q-ainfo-manager,39) $did(q-ainfo-manager,45) 
    ;ALTNICKS(47)
    hadd q-ainfo-manager AN. $+ $did(q-ainfo-manager,39) $did(q-ainfo-manager,47)
    ;WEBSITE(21)
    hadd q-ainfo-manager WEB. $+ $did(q-ainfo-manager,39) $did(q-ainfo-manager,21)
    ;PHONE(49)
    hadd q-ainfo-manager PH. $+ $did(q-ainfo-manager,39) $did(q-ainfo-manager,49)
    ;ALTP(51)
    hadd q-ainfo-manager AP. $+ $did(q-ainfo-manager,39) $did(q-ainfo-manager,51)
    ;MAILINGADDRESS(53)
    hadd q-ainfo-manager MA. $+ $did(q-ainfo-manager,39) $did(q-ainfo-manager,53)
    ;OTHERINFO(55)
    hadd q-ainfo-manager OI. $+ $did(q-ainfo-manager,39) $did(q-ainfo-manager,55)
    ;REGCHAN(40)
    hadd q-ainfo-manager REGCHAN. $+ $did(q-ainfo-manager,39) $did(q-ainfo-manager,40)
    ;COUNTRY/REGION (29)
    hadd q-ainfo-manager CR. $+ $did(q-ainfo-manager,39) $did(q-ainfo-manager,29).sel
    did -r $dname 14,16,17,18,20,22,24,26,28,40,44
    did -r $dname 21,39,41,43,45,47,48,49,51,53,55
    did -c $dname 29 1
    did -g $dname 54 " $+ $scriptdirnpaicon.jpg"
    fillInfoNicks $dname
  }
  else { echo -s 14[13Q-Ainfo-manager V1.114] 13ERROR: You must specify a nickname to associate this information with in order to add/edit new information. }
}
 
;NEW USER BUTTON (LIKE CLEAR)
on *:dialog:Q-Ainfo-manager:sclick:67: {
  did -r $dname 21,39,40,41,43,45,47,48,49,51,53,55
  did -c $dname 29 1
}
 
;***************************************
;ADD PICTURE/DEL PICTURE (button 57,69)
;***************************************
;ADD PIC
on *:dialog:Q-Ainfo-manager:sclick:57: {
  if ($did(q-ainfo-manager,39)) && ($sfile($scriptdir, bu kullanici icin bir resim secin.)) {
    hadd q-ainfo-manager PIC. $+ $did(q-ainfo-manager,39) $ifmatch
    if (!$hget(q-ainfo-manager,NICK. $+ $did(q-ainfo-manager,39))) { 
      hadd q-ainfo-manager NICK. $+ $did(q-ainfo-manager,39) 
      fillInfoNicks $dname
    }
  }
  did -g $dname 54 " $+ $iif($hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,11).seltext) && $isfile($hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,11).seltext)),$hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,11).seltext),$scriptdirnpaicon.jpg) $+ "
}
;DEL PIC
on *:dialog:Q-Ainfo-manager:sclick:69: {
  hdel q-ainfo-manager PIC. $+ $did(q-ainfo-manager,11).seltext
  did -g $dname 54 " $+ $scriptdirnpaicon.jpg"
}
 
 
;********
;ALIASES
;********
alias -l fillInfoNicks {
  did -r $$1 9,10,11
  var %i = 1  
  while ($hfind(q-ainfo-manager,nick.*,%i,w)) { 
    did -a $$1 9,10,11 $gettok($ifmatch,2,46)
    inc %i 
  }
}
 
alias -l updateNickInfo {
  ;REAL NAME (editbox 14) 
  did -ar $1 14 $hget(q-ainfo-manager,RN. $+ $did(q-ainfo-manager,9).seltext)
  ;ALTERNATE NICK(editbox 16)
  did -ar $1 16 $hget(q-ainfo-manager,AN. $+ $did(q-ainfo-manager,9).seltext)
  ;PICTURE ICON
  did -g $1 54 " $+ $iif($hget(q-ainfo-manager,PIC. $+ $did(q-ainfo-manager,9).seltext) && $isfile($hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,9).seltext)),$hget(q-ainfo-manager, PIC. $+ $did(q-ainfo-manager,9).seltext),$scriptdirnpaicon.jpg) $+ "
  ;EMAIL (editbox 20)  
  did -ar $1 20 $hget(q-ainfo-manager,EMAIL. $+ $did(q-ainfo-manager,10).seltext)
  ;MAILING ADDRESS (editbox 22)
  did -ar $1 22 $hget(q-ainfo-manager,MA. $+ $did(q-ainfo-manager,10).seltext)
  ;PHONE (editbox 24)
  did -ar $1 24 $hget(q-ainfo-manager,PH. $+ $did(q-ainfo-manager,10).seltext)
  ;ALTERNATE (editbox 26)
  did -ar $1 26 $hget(q-ainfo-manager,AP. $+ $did(q-ainfo-manager,10).seltext)
  ;OTHER INFO (editbox 28)  
  did -ar $1 28 $hget(q-ainfo-manager,OI. $+ $did(q-ainfo-manager,11).seltext)
  ;WEBSITE (editbox 17)
  did -ar $1 17 $hget(q-ainfo-manager,WEB. $+ $did(q-ainfo-manager,11).seltext)
  ;BDAY(editbox 18)
  did -ar $1 18 $hget(q-ainfo-manager,BDAY. $+ $did(q-ainfo-manager,11).seltext)
  ;REGCHAN(editbox 48)
  did -ar $1 48 $hget(q-ainfo-manager,REGCHAN. $+ $did(q-ainfo-manager,11).seltext)
  ;COUNTRY/REGION(editbox 44)
  did -ar $1 44 $read($scriptdircountries.txt,$iif($hget(q-ainfo-manager,CR. $+ $did(q-ainfo-manager,10).seltext),$hget(q-ainfo-manager,CR. $+ $did(q-ainfo-manager,10).seltext),1))
}
 
alias -l fillAdd {
  ;NICKNAME (addeditbox 39)
  did -ar $1 39 $did(q-ainfo-manager,9).seltext
  ;BDAY(addeditbox 41)
  did -ar $1 41 $hget(q-ainfo-manager, BDAY. $+ $did(q-ainfo-manager,9).seltext)
  ;REAL NAME (addeditbox 43) 
  did -ar $1 43 $hget(q-ainfo-manager, RN. $+ $did(q-ainfo-manager,9).seltext)
  ;EMAIL (addeditbox 45)  
  did -ar $1 45 $hget(q-ainfo-manager, EMAIL. $+ $did(q-ainfo-manager,9).seltext)
  ;ALTERNATE NICK(addeditbox 47)
  did -ar $1 47 $hget(q-ainfo-manager, AN. $+ $did(q-ainfo-manager,9).seltext)
  ;WEBSITE (addeditbox 21)
  did -ar $1 21 $hget(q-ainfo-manager, WEB. $+ $did(q-ainfo-manager,9).seltext)
  ;MAILING ADDRESS (addeditbox 53)
  did -ar $1 53 $hget(q-ainfo-manager,MA. $+ $did(q-ainfo-manager,9).seltext)
  ;PHONE (addeditbox 49)
  did -ar $1 49 $hget(q-ainfo-manager,PH. $+ $did(q-ainfo-manager,9).seltext)
  ;ALTERNATE (addeditbox 51)
  did -ar $1 51 $hget(q-ainfo-manager,AP. $+ $did(q-ainfo-manager,9).seltext)
  ;OTHER INFO (addeditbox 55)  
  did -ar $1 55 $hget(q-ainfo-manager, OI. $+ $did(q-ainfo-manager,9).seltext)
  ;REGCHAN (addeditbox 40)
  did -ar $1 40 $hget(q-ainfo-manager, REGCHAN. $+ $did(q-ainfo-manager,9).seltext) 
  ;COUNTRY/REGION (addeditbox 29)
  did -c $1 29 $iif($hget(q-ainfo-manager, CR. $+ $did(q-ainfo-manager,9).seltext),$hget(q-ainfo-manager, CR. $+ $did(q-ainfo-manager,9).seltext),1)
}
 
;****************
;MENU LIST POPUP
;****************
menu status,nicklist,channel {
  $iif(!$dialog(Q-Ainfo-manager),Q-Ainfo-manager) : dialog -md Q-Ainfo-manager Q-Ainfo-manager
}
 
on *:EXIT:{ 
  hsave q-ainfo-manager " $+ $scriptdirq-ainfo-manager.hsh" 
  hsave q-ainfo-manager " $+ $scriptdirq-ainfo-manager.backup"
}