| Hercules | 01 Ağustos 2005 02:45 |
Kod:
dialog NicklistEdit {
title "Nick Listesi Ayarları"
size -1 -1 366 218
option pixels
icon $scriptdiricon\ikon.ico, 0
tab "Iconlar", 1, 7 6 350 178
edit %nl.operator, 4, 61 50 251 19, tab 1 autohs
edit %nl.voice, 5, 61 85 251 19, tab 1 autohs
edit %nl.Normal, 6, 61 155 251 19, tab 1 autohs
edit %nl.halfops, 38, 61 118 251 19, tab 1 autohs
icon 7, 25 40 32 32, $shortfn($scriptdirIcon\op2.ico), 0, tab 1
icon 8, 25 75 32 32, $shortfn($scriptdirIcon\voice2.ico), 0, tab 1
icon 9, 25 142 32 32, $shortfn($scriptdirIcon\Ikon.ico), 0, tab 1
icon 37, 25 107 32 32, $shortfn($scriptdirIcon\Half2.ico), 0, tab 1
button "Seç", 12, 314 49 38 20, tab 1 flat
button "Seç", 13, 314 84 38 20, tab 1 flat
button "Seç", 14, 314 154 38 20, tab 1 flat
button "Seç", 40, 314 117 38 20, tab 1 flat
text "Operatör", 15, 62 37 52 13, tab 1
text "Voice", 16, 62 71 28 13, tab 1
text "Normal", 17, 62 142 36 13, tab 1
text "Halfops", 39, 62 105 50 13, tab 1
tab "Renk", 2
text "Operator (+o)", 18, 34 91 89 13, tab 2
text "Voice (+v)", 19, 34 119 89 13, tab 2
text "Normal", 20, 151 91 89 13, tab 2
text "Arkadaş", 21, 151 119 89 13, tab 2
text "Kendi Nickin", 22, 151 147 89 13, tab 2
text "Arka Plan", 23, 265 147 89 13, tab 2
text "Halfops (+h)", 41, 34 147 89 13, tab 2
text "Info Yazısı", 43, 265 91 89 13, tab 2
text "Info Arkaplanı", 45, 265 119 89 13, tab 2
icon 24, 12 86 16 16, $shortfn($scriptdirIcon\DoNotDel.bmp), 0, tab 2
icon 25, 12 114 16 16, $shortfn($scriptdirIcon\DoNotDel.bmp), 0, tab 2
icon 26, 129 86 16 16, $shortfn($scriptdirIcon\DoNotDel.bmp), 0, tab 2
icon 27, 129 114 16 16, $shortfn($scriptdirIcon\DoNotDel.bmp), 0, tab 2
icon 28, 129 142 16 16, $shortfn($scriptdirIcon\DoNotDel.bmp), 0, tab 2
icon 29, 243 141 16 16, $shortfn($scriptdirIcon\DoNotDel.bmp), 0, tab 2
icon 42, 12 142 16 16, $shortfn($scriptdirIcon\DoNotDel.bmp), 0, tab 2
icon 44, 243 85 16 16, $shortfn($scriptdirIcon\DoNotDel.bmp), 0, tab 2
icon 46, 243 113 16 16, $shortfn($scriptdirIcon\DoNotDel.bmp), 0, tab 2
text "Renklerin üstüne tıklayarak istediğiniz rengi değişebilirsiniz.", 30, 50 39 272 41, tab 2 center
tab "Arkadaş Listesi", 3
text "Yeni Arkadaş Yazınız:", 36, 24 37 109 19, tab 3
list 31, 191 40 140 145, tab 3 sort extsel hsbar vsbar
edit "", 32, 22 55 140 19, tab 3 autohs
button "Ekle", 33, 18 80 50 23, tab 3 flat
button "Sil", 34, 68 80 50 23, tab 3 flat
button "Temizle", 35, 118 80 50 23, tab 3 flat
button "&Kaydet", 10, 85 190 89 23, flat ok
button "&İptal", 11, 191 190 89 23, flat
}
on *:dialog:NicklistEdit:*:*:{
if ($devent == init) {
var %x 1
while (%x <= $numtok(%nl.specialnicks,44)) {
did -a NicklistEdit 31 $gettok(%nl.specialnicks,%x,44)
inc %x
}
if ($exists($shortfn(%nl.operator)) == $true) { did -g NicklistEdit 7 $shortfn(%nl.operator) }
else { set %nl.operator $scriptdirIcon\op2.ico | did -ar NicklistEdit 4 %nl.operator }
if ($exists($shortfn(%nl.voice)) == $true) { did -g NicklistEdit 8 $shortfn(%nl.voice) }
else { set %nl.voice $scriptdirIcon\voice2.ico | did -ar NicklistEdit 5 %nl.voice }
if ($exists($shortfn(%nl.Normal)) == $true) { did -g NicklistEdit 9 $shortfn(%nl.Normal) }
else { set %nl.Normal $scriptdirIcon\ikon.ico | did -ar NicklistEdit 6 %nl.Normal }
if ($exists($shortfn(%nl.halfops)) == $true) { did -g NicklistEdit 37 $shortfn(%nl.halfops) }
else { set %nl.halfops $scriptdirIcon\half2.ico | did -ar NicklistEdit 38 %nl.halfops }
drawcolorpreview %nl.optext Operator | did -g NicklistEdit 24 $shortfn($ScriptdirIcon\Operator.bmp)
drawcolorpreview %nl.voicetext Voice | did -g NicklistEdit 25 $shortfn($ScriptdirIcon\Voice.bmp)
drawcolorpreview %nl.regtext Normal | did -g NicklistEdit 26 $shortfn($ScriptdirIcon\Normal.bmp)
drawcolorpreview %nl.specialtext Friends | did -g NicklistEdit 27 $shortfn($ScriptdirIcon\Friends.bmp)
drawcolorpreview %nl.owntext Ownself | did -g NicklistEdit 28 $shortfn($ScriptdirIcon\Ownself.bmp)
drawcolorpreview %nl.bkgcolor bckgrd | did -g NicklistEdit 29 $shortfn($ScriptdirIcon\bckgrd.bmp)
drawcolorpreview %nl.tiptext infotxt | did -g NicklistEdit 44 $shortfn($ScriptdirIcon\infotxt.bmp)
drawcolorpreview %nl.tipbkg infobck | did -g NicklistEdit 46 $shortfn($ScriptdirIcon\infobck.bmp)
drawcolorpreview %nl.halftext halfops | did -g NicklistEdit 42 $shortfn($ScriptdirIcon\halfops.bmp)
}
if ($devent == sclick) {
if ($did == 12) { set %nl.temp_operator $sfile($mircdir,Operatör İconu Seç,Tamam!)
if ($len(%nl.temp_operator) > 0) { did -g NicklistEdit 7 $shortfn(%nl.temp_operator) | did -ar NicklistEdit 4 %nl.temp_operator }
}
if ($did == 13) { set %nl.temp_voice $sfile($mircdir,Voice İconu Seç,Tamam!)
if ($len(%nl.temp_voice) > 0) { did -g NicklistEdit 8 $shortfn(%nl.temp_voice) | did -ar NicklistEdit 5 %nl.temp_voice }
}
if ($did == 14) { set %nl.temp_Normal $sfile($mircdir,Normal İconu Seç,Tamam!)
if ($len(%nl.temp_Normal) > 0) { did -g NicklistEdit 9 $shortfn(%nl.temp_Normal) | did -ar NicklistEdit 6 %nl.temp_Normal }
}
if ($did == 40) { set %nl.temp_halfops $sfile($mircdir,Halfop İconu Seç,Tamam!)
if ($len(%nl.temp_halfops) > 0) { did -g NicklistEdit 37 $shortfn(%nl.temp_halfops) | did -ar NicklistEdit 38 %nl.temp_halfops }
}
if ($did == 24) {
set %nl.temp_optext $dll($colordll,Color,.))
if (%nl.temp_optext != $false) { drawcolorpreview %nl.temp_optext Operator | did -g NicklistEdit 24 $shortfn($ScriptdirIcon\Operator.bmp) }
}
if ($did == 25) {
set %nl.temp_voicetext $dll($colordll,Color,.))
if (%nl.temp_voicetext != $false) { drawcolorpreview %nl.temp_voicetext Voice | did -g NicklistEdit 25 $shortfn($ScriptdirIcon\Voice.bmp) }
}
if ($did == 26) {
set %nl.temp_regtext $dll($colordll,Color,.))
if (%nl.temp_regtext != $false) { drawcolorpreview %nl.temp_regtext Normal | did -g NicklistEdit 26 $shortfn($ScriptdirIcon\Normal.bmp) }
}
if ($did == 27) {
set %nl.temp_specialtext $dll($colordll,Color,.))
if (%nl.temp_specialtext != $false) { drawcolorpreview %nl.temp_specialtext Friends | did -g NicklistEdit 27 $shortfn($ScriptdirIcon\Friends.bmp) }
}
if ($did == 28) {
set %nl.temp_owntext $dll($colordll,Color,.))
if (%nl.temp_owntext != $false) { drawcolorpreview %nl.temp_owntext Ownself | did -g NicklistEdit 28 $shortfn($ScriptdirIcon\Ownself.bmp) }
}
if ($did == 29) {
set %nl.temp_bkgcolor $dll($colordll,Color,.))
if (%nl.temp_bkgcolor != $false) { drawcolorpreview %nl.temp_bkgcolor bckgrd | did -g NicklistEdit 29 $shortfn($ScriptdirIcon\bckgrd.bmp) }
}
if ($did == 42) {
set %nl.temp_halftext $dll($colordll,Color,.))
if (%nl.temp_halftext != $false) { drawcolorpreview %nl.temp_halftext halfops | did -g NicklistEdit 42 $shortfn($ScriptdirIcon\halfops.bmp) }
}
if ($did == 44) {
set %nl.temp_tiptext $dll($colordll,Color,.))
if (%nl.temp_tiptext != $false) { drawcolorpreview %nl.temp_tiptext infotxt | did -g NicklistEdit 44 $shortfn($ScriptdirIcon\infotxt.bmp) }
}
if ($did == 46) {
set %nl.temp_tipbkg $dll($colordll,Color,.))
if (%nl.temp_tipbkg != $false) { drawcolorpreview %nl.temp_tipbkg infobck | did -g NicklistEdit 46 $shortfn($ScriptdirIcon\infobck.bmp) }
}
if ($did == 33) {
if ($len($did(NicklistEdit,32).text) > 0) {
if ($checknicks($did(NicklistEdit,32).text) == false) {
did -a NicklistEdit 31 $did(NicklistEdit,32).text
}
did -r NicklistEdit 32
}
}
if ($did == 10) {
if ($len($did(NicklistEdit,4).text) >= 5 && $exists($shortfn($did(NicklistEdit,4).text)) == $true) { set %nl.operator $did(NicklistEdit,4).text }
if ($len($did(NicklistEdit,5).text) >= 5 && $exists($shortfn($did(NicklistEdit,5).text)) == $true) { set %nl.voice $did(NicklistEdit,5).text }
if ($len($did(NicklistEdit,6).text) >= 5 && $exists($shortfn($did(NicklistEdit,6).text)) == $true) { set %nl.Normal $did(NicklistEdit,6).text }
if ($len($did(NicklistEdit,38).text) >= 5 && $exists($shortfn($did(NicklistEdit,38).text)) == $true) { set %nl.halfops $did(NicklistEdit,38).text }
if (%nl.temp_optext != $false) && (%nl.temp_optext != $null) { set %nl.optext %nl.temp_optext }
if (%nl.temp_voicetext != $false) && (%nl.temp_voicetext != $null) { set %nl.voicetext %nl.temp_voicetext }
if (%nl.temp_regtext != $false) && (%nl.temp_regtext != $null) { set %nl.regtext %nl.temp_regtext }
if (%nl.temp_bkgcolor != $false) && (%nl.temp_bkgcolor != $null) { set %nl.bkgcolor %nl.temp_bkgcolor }
if (%nl.temp_owntext != $false) && (%nl.temp_owntext != $null) { set %nl.owntext %nl.temp_owntext }
if (%nl.temp_specialtext != $false) && (%nl.temp_specialtext != $null) { set %nl.specialtext %nl.temp_specialtext }
if (%nl.temp_halftext != $false) && (%nl.temp_halftext != $null) { set %nl.halftext %nl.temp_halftext }
if (%nl.temp_tiptext != $false) && (%nl.temp_tiptext != $null) { set %nl.tiptext %nl.temp_tiptext }
if (%nl.temp_tipbkg != $false) && (%nl.temp_tipbkg != $null) { set %nl.tipbkg %nl.temp_tipbkg }
if ($did(NicklistEdit,31,0).lines > 0) {
var %x 1
unset %nl.specialnicks
while (%x <= $did(NicklistEdit,31,0).lines) {
set %nl.specialnicks $did(NicklistEdit,31,%x).text $+ $chr(44) $+ %nl.specialnicks
inc %x
}
}
if ($did(NicklistEdit,31,0).lines <= 0) { unset %nl.specialnicks }
unset %nl.temp*
updatenickicon
}
if ($did == 34) && ($did(NicklistEdit,31,0).sel != 0) { did -d NicklistEdit 31 $did(NicklistEdit,31).sel }
if ($did == 35) { did -r NicklistEdit 31 }
if ($did == 11) { unset %nl.temp* | dialog -x NicklistEdit }
}
}
Bunu aynen remoteye yapıştır, artık öyle bir diyalog var :p |
