Op Menu
bi dialog yapmak istedim op için , fakat op wer dediğimde ya da ban at dediğimde sadece benim nickimi görüyor, nicklistten baska bir nicki secsem bile işlemleri sadece bana yapıyor :S
$active olan yerleri # olarak değiştirdim , $nick olan kısmı $$1 olarak denedim, $active kısmını değiştirip $chan yaptımsa da olmadı :S
yardımcı olabilir misiniz :S Kod:
alias @-kontrol { dialog -m @-kontrol @-kontrol }
dialog @-kontrol {
title "@p Kontrol"
icon icons\silver.ico, 0
size -1 -1 229 380
option pixels
icon 1, 1 -1 230 160, images\pperfect.png, 0 noborder
list 2, 5 167 23 218
text "Op Ver", 3, 28 170 84 17
text "Halfop Ver", 4, 28 191 84 17
text "Voice Ver", 5, 28 212 84 17
text "Ban + Kick", 6, 28 233 84 17
text "+N", 7, 28 254 84 17
text "+R", 8, 28 275 84 17
text "+i", 9, 28 296 84 17
text "+M", 10, 28 316 84 17
text "+m", 11, 28 337 84 17
list 12, 117 166 23 218
text "Op Al", 13, 140 169 85 17
text "Halfop Al", 14, 140 190 85 17
text "Voice Al", 15, 140 211 85 17
text "Sadece Ban", 16, 140 232 85 17
text "-N", 17, 140 253 85 17
text "-R", 18, 140 274 85 17
text "-i", 19, 140 295 85 17
text "-M", 20, 140 315 85 17
text "-m", 21, 140 336 85 17
}
on *:dialog:@-kontrol:init:*:{
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetFont $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 +a 14 900 Tahoma
mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 text $rgb(210,210,210)
mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 textbg $rgb(31,31,31)
mdx SetDialog $dname bgcolor $rgb(31,31,31)
mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 background $rgb(31,31,31)
mdx SetControlMDX $dname 2,12 Toolbar arrows wrap nodivider noresize flat > $bars
mdx SetBorderStyle 2,12
;
did -i $dname 2,12 1 bmpsize 15 15
did -i $dname 2 1 setimage +nh icon big icons\silver.ico
did -i $dname 2 1 setimage +nh icon big icons\silver.ico
did -i $dname 2 1 setimage +nh icon big icons\silver.ico
did -i $dname 2 1 setimage +nh icon big icons\silver.ico
did -i $dname 2 1 setimage +nh icon big icons\silver.ico
did -i $dname 2 1 setimage +nh icon big icons\silver.ico
did -i $dname 2 1 setimage +nh icon big icons\silver.ico
did -i $dname 2 1 setimage +nh icon big icons\silver.ico
did -i $dname 2 1 setimage +nh icon big icons\silver.ico
did -i $dname 12 1 setimage +nh icon big icons\silver.ico
did -i $dname 12 1 setimage +nh icon big icons\silver.ico
did -i $dname 12 1 setimage +nh icon big icons\silver.ico
did -i $dname 12 1 setimage +nh icon big icons\silver.ico
did -i $dname 12 1 setimage +nh icon big icons\silver.ico
did -i $dname 12 1 setimage +nh icon big icons\silver.ico
did -i $dname 12 1 setimage +nh icon big icons\silver.ico
did -i $dname 12 1 setimage +nh icon big icons\silver.ico
did -i $dname 12 1 setimage +nh icon big icons\silver.ico
;
did -a $dname 2 +a 1 $chr(32) $chr(9) $+ +o
did -a $dname 2 +a 2 $chr(32) $chr(9) $+ +h
did -a $dname 2 +a 3 $chr(32) $chr(9) $+ +v
did -a $dname 2 +a 4 $chr(32) $chr(9) $+ +b nick!*@* + kick
did -a $dname 2 +a 5 $chr(32) $chr(9) $+ +N
did -a $dname 2 +a 6 $chr(32) $chr(9) $+ +R
did -a $dname 2 +a 7 $chr(32) $chr(9) $+ +i
did -a $dname 2 +a 8 $chr(32) $chr(9) $+ +M
did -a $dname 2 +a 9 $chr(32) $chr(9) $+ +m
did -a $dname 12 +a 1 $chr(32) $chr(9) $+ -o
did -a $dname 12 +a 2 $chr(32) $chr(9) $+ -h
did -a $dname 12 +a 3 $chr(32) $chr(9) $+ -v
did -a $dname 12 +a 4 $chr(32) $chr(9) $+ +b *!*@host
did -a $dname 12 +a 5 $chr(32) $chr(9) $+ -N
did -a $dname 12 +a 6 $chr(32) $chr(9) $+ -R
did -a $dname 12 +a 7 $chr(32) $chr(9) $+ -i
did -a $dname 12 +a 8 $chr(32) $chr(9) $+ -M
did -a $dname 12 +a 9 $chr(32) $chr(9) $+ -m
}
on *:dialog:@-kontrol:sclick:*:{
if $did == 2 {
if $did($dname,2).sel == 2 {
mode $active +o $nick
}
if $did($dname,2).sel == 3 {
mode $active +h $nick
}
if $did($dname,2).sel == 4 {
mode $active +v $nick
}
if $did($dname,2).sel == 5 {
kick $active $nick
mode $active +b $nick
}
if $did($dname,2).sel == 6 {
mode $active +N
}
if $did($dname,2).sel == 7 {
mode $active +R
}
if $did($dname,2).sel == 8 {
mode $active +i
}
if $did($dname,2).sel == 9 {
mode $active +M
}
if $did($dname,2).sel == 10 {
mode $active +m
}
}
if $did == 12 {
if $did($dname,12).sel == 2 {
mode $active -o $nick
}
if $did($dname,12).sel == 3 {
mode $active -h $nick
}
if $did($dname,12).sel == 4 {
mode $active -v $nick
}
if $did($dname,12).sel == 5 {
mode $active +b $nick
}
if $did($dname,12).sel == 6 {
mode $active -N
}
if $did($dname,12).sel == 7 {
mode $active -R
}
if $did($dname,12).sel == 8 {
mode $active -i
}
if $did($dname,12).sel == 9 {
mode $active -M
}
if $did($dname,12).sel == 10 {
mode $active -m
}
}
}
|
