IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Oncelikle herkeze iyi aksamlar,
Evvel zaman icinde elimde olan bir kod vardi, panel uzerinden memo, e-posta gonderilebiliyodu.. arsiv'im genis oldugundan karsima bu kod cikti, zaten bu irc denen seyle artik ugrasmadigim icin aksam aksam sizle bu kodu paylasiyim.

2004 yilinda bu kodu yabanci coder Queen-Amidala yazmistir, yani sonra gelip kodu sen yazmadin sen etmedin neden soylemiyorsun gibi sacma/sapan sorulara cevap vermeye gerek yok..

bu kodun amaci nedir? oncelerden kullanirdim fakat elimde o kadar cok farkli kod var ki.. hangisinin ne ise yaradigini artik hatirlamiyorum.. bende hatirladigim kadariyla anlatayim sizlere; bu kod mIRC uzerinden arkadasinizin bilgilerinizi giriyor ve kaydedebiliyorsunuz, ozelliklede kucuk bir panel acilaraktan panel ustu memo gonderebiliyorsunuz nicke. E-posta'da oluyordu hatirladigim kadariyla zamanim yok acip bakmaya ama kod calisiyor..

/load -rs Q-Ainfo-manager V2.1.mrc
/load -rs qaipon.jpg
/load -rs npaicon.jpg
/load -rs countries.txt

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Ekran goruntusu:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Yukaridada gordugunuz gibi..

bu addonun kod icerigini ben zamaninda panel sekmelerini v.b Turkceye cevirmistim. Kisacasi Turkce versiyonu kullanmak isteyenler assagidaki kodu kullanabilirler:
Kod:
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"

}
kodun aciklamasini daha iyi yapabilen varsa buyur yapsin, emin olun ki yapardim ama bu islerden bir nebze bile heves almadigim icin artik ugrasmiyorum.

bol sans.