acaba ondanmi resimleri vs var dll dosyayini oldugu gibi kopyaladım atim yine olmadı
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
dialog tyl {
size -1 -1 1 1
option pixels
}
on *:dialog:tyl:*:*: {
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetDialog $dname style tool
mdx SetBorderStyle $dname 1 staticedge
mdx SetBorderStyle 1
rebar HideToolbar .
rebar Dock $dialog(tyl).hwnd > left
}
if ($devent == sclick) {
}
if ($devent == dclick) {
}
}
dialog tyr {
size -1 -1 25 300
option dbu
list 2, 2 1 23 300, size
;size 760 85 190 600
;list 1, 50 2 135 500, size
;list 2, 2 2 45 500, size
;icon 3, 5 505 185 95, icon/bar.jpg
;option pixels
}
on *:dialog:tyr:*:*: {
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetBorderStyle $dname 2 staticedge
mdx SetBorderStyle 2
rebar Dock $dialog(tyr).hwnd > right
mdx SetControlMDX $dname 2 toolbar flat wrap arrows nodivider > $bars
mdx SetFont $dname 2 12 700 verdana
mdx SetDialog [ $dname ] bgcolor $rgb(237,237,237)
mdx SetDialog 2,4 bgcolor $rgb(237,237,237)
mdx SetBorderStyle
mdx SetColor 2 background [ $rgb(237,237,237) ]
}
if ($devent == sclick) {
if ($did == 1) {
}
if ($did == 2) {
if (@* iswm $active) {
if $did($dname,2).sel == 2 { window -c $active }
}
elseif ($active == Status Window) {
if $did($dname,2).sel == 2 { $iif($status == connected,oper,hops) }
if $did($dname,2).sel == 3 { $iif($status == connected,helpers,hops) }
if $did($dname,2).sel == 4 { $iif($status == connected,lusers,hops) }
if $did($dname,2).sel == 5 { $iif($status == connected,motd,hops) }
if $did($dname,2).sel == 6 { clear $active }
}
elseif (#* iswm $active && $me isop $active) {
if $did($dname,2).sel == 2 { if ($snick($active)) { whois $snick($active) } }
if $did($dname,2).sel == 3 { if ($snick($active)) { ns info $snick($active) all } }
if $did($dname,2).sel == 4 { if ($snick($active)) { query $snick($active) } }
if $did($dname,2).sel == 5 {
var %a.q! = 1
while $snick($active,%a.q!) {
if $nick($active,$snick($active,%a.q!),o) { samode $active -o $snick($active,%a.q!) }
else { mode $active +o $snick($active,%a.q!) }
inc %a.q!
}
}
if $did($dname,2).sel == 6 {
var %a.q! = 1
while $snick($active,%a.q!) {
if $nick($active,$snick($active,%a.q!),h) { samode $active -h $snick($active,%a.q!) }
else { mode $active +h $snick($active,%a.q!) }
inc %a.q!
}
}
if $did($dname,2).sel == 7 {
var %a.q! = 1
while $snick($active,%a.q!) {
if $nick($active,$snick($active,%a.q!),v) { samode $active -v $snick($active,%a.q!) }
else { mode $active +v $snick($active,%a.q!) }
inc %a.q!
}
}
if $did($dname,2).sel == 8 { if ($snick($active)) { samode $active +b $snick($active) | kick $active $snick($active) $active 14Kanal Kurallar
ına Uymadığınız Tespit Edilmiştir. %logo } }
if $did($dname,2).sel == 9 { if ($snick($active)) { kick $active $snick($active) $active 14Kurallara Uymadığınız İçin Kanaldan Uzaklaştırıldınız 12 Hızlı Kick. %logo } }
if $did($dname,2).sel == 10 { if ($snick($active)) { ping $snick($active) } }
if $did($dname,2).sel == 11 { if ($snick($active)) { silence $snick($active) | echo -a 12 $snick($active) 14 İgnore Listesine Eklendi %logo | notice $snick($active) 4Ignore edildiniz.5Sizin Yazdiklariniz Artik 14[1 $me 14] 5Bana Ulaşmayacak.! %logo } }
if $did($dname,2).sel == 12 { clear $active }
}
elseif (#* iswm $active) {
if $did($dname,2).sel == 2 { if ($snick($active)) { .whois $snick($active) } }
if $did($dname,2).sel == 3 { if ($snick($active)) { ns info $snick($active) all } }
if $did($dname,2).sel == 4 { if ($snick($active)) { query $snick($active) } }
if $did($dname,2).sel == 5 { if ($snick($active)) { ping $snick($active) } }
if $did($dname,2).sel == 6 { if ($snick($active)) { .ignore $snick($active) | echo -a 12 $snick($active) 14 İgnore Listesine Eklendi %logo | notice $snick($active) 4Ignore edildiniz.5Sizin Yazdiklariniz Artik 14[1 $me 14] 5Bana Ulaşmayacak.! %logo } }
if $did($dname,2).sel == 7 { clear $active }
if $did($dname,2).sel == 8 { goz $active }
}
else {
if $did($dname,2).sel == 2 { .whois $active }
if $did($dname,2).sel == 3 { .msg nickserv info $active all }
if $did($dname,2).sel == 4 { ignore -p $active | timer 1 2 close -m $active | notice $active 12 $snick($active) 14 İgnore Listesine Eklendi %logo | notice $snick($active) 4Ignore edildiniz.5Sizin Yazdiklariniz Artik 14[1 $me 14] 5Bana Ulaşmayacak.! %logo }
if $did($dname,2).sel == 5 { log on $active }
if $did($dname,2).sel == 6 { close -m $active }
if $did($dname,2).sel == 7 { close -m }
if $did($dname,2).sel == 8 { clear $active }
}
}
if ($devent == dclick) {
}
}
}
on *:active:*:{
if $active == Status Window { amenu Status | amenux Status }
elseif @* iswm $active { amenu web | amenux Web }
elseif #* iswm $active && $me !isop $active { amenu Kullanıcı | amenux Kanal }
elseif #* iswm $active && $me isop $active || $me ishop $active { amenu Operator | amenux Kanal }
else { amenu Ozel | amenux Ozel }
}
　
alias amenu {
if $1 == Operator {
mdx SetMircVersion $version
mdx MarkDialog $dname
did -r tyr 2
did -i tyr 2 1 bmpsize 22 22
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\whois.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\info.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\ozel.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\op.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\hop.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\vop.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\kick.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\kick.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\ping.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\engelle.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\temizle.ico
did -a tyr 2 +a 1 Whois $chr(9) $+ Seçili Nick'e Whois Çeker
did -a tyr 2 +a 2 Bilgi $chr(9) $+ Seçili Nick'e İnfo Çeker
did -a tyr 2 +a 3 Özel $chr(9) $+ Seçili Nick'i Özel görüşmeye Alır
did -a tyr 2 +a 4 Op $chr(9) $+ Seçili Nick'e Op Verir Veya Alır
did -a tyr 2 +a 5 Hop $chr(9) $+ Seçili Nick'e Halfop Verir Veya Alır
did -a tyr 2 +a 6 Vop $chr(9) $+ Seçili Nick'e Vop Verir veya Alır
did -a tyr 2 +a 7 Ban $chr(9) $+ Seçili Nick'i Kanaldan Atar
did -a tyr 2 +a 8 Kick $chr(9) $+ Seçili Nick'i Kickler
did -a tyr 2 +a 9 Ping $chr(9) $+ Seçili Nick'i Pingler
did -a tyr 2 +a 10 İgnore $chr(9) $+ Seçili Nick'i İgnore Eder
did -a tyr 2 +a 11 Clear $chr(9) $+ Aktif Pencereyi Temizler
}
elseif $1 == Kullanıcı {
mdx SetMircVersion $version
mdx MarkDialog $dname
did -r tyr 2
did -i tyr 2 1 bmpsize 22 22
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\whois.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\info.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\ozel.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\ping.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\engelle.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\temizle.ico
did -a tyr 2 +a 1 Whois $chr(9) $+ Seçili Nick'e Whois Çeker
did -a tyr 2 +a 2 Bilgi $chr(9) $+ Seçili Nick'e İnfo Çeker
did -a tyr 2 +a 3 Özel $chr(9) $+ Seçili Nick'i Özel Görüşmeye Alır
did -a tyr 2 +a 4 Ping $chr(9) $+ Seçili Nick'i Pingler
did -a tyr 2 +a 5 İgnore $chr(9) $+ Seçili Nick'i İgnore Eder
did -a tyr 2 +a 6 Clear $chr(9) $+ Aktif Pencereyi Temizler
}
elseif $1 == Status {
mdx SetMircVersion $version
mdx MarkDialog $dname
did -r tyr 2
did -i tyr 2 1 bmpsize 22 22
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\oper.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\user.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\motd.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\temizle.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\helper.ico
did -a tyr 2 +a 1 Opers $chr(9) $+ Şuan Online Olan İRcOplar
did -a tyr 2 +a 5 Helps $chr(9) $+ Şuan Online Olan Helperler
did -a tyr 2 +a 2 Users $chr(9) $+ Şuan Online Olan Userler
did -a tyr 2 +a 3 Motd $chr(9) $+ Sunucu Giriş Mesajı
did -a tyr 2 +a 4 Clear $chr(9) $+ Ekranı Temizler
}
elseif $1 == Ozel {
mdx SetMircVersion $version
mdx MarkDialog $dname
did -r tyr 2
did -i tyr 2 1 bmpsize 25 25
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\whois.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\info.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\engelle.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\loglar.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\kapat.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\kapat.ico
did -i tyr 2 1 setimage icon normal Görünüm\KöşeMenü\temizle.ico
did -a tyr 2 +a 1 Whois $chr(9) $+ $active Whois Çeker
did -a tyr 2 +a 2 Bilgi $chr(9) $+ $active Nick İnfo Çeker
did -a tyr 2 +a 3 İgnore $chr(9) $+ $active Nickinin Size Yazmasını Engeller
did -a tyr 2 +a 4 Log'la $chr(9) $+ $active İle Yazışmalırınızı Kayıt Eder
did -a tyr 2 +a 5 Kapat $chr(9) $+ $active İle Pencerenizi Kapatır
did -a tyr 2 +a 6 Tüm $chr(9) $+ Tüm Özel Pencereleri Kapatır
did -a tyr 2 +a 7 Clear $chr(9) $+ Ekranı Temizler
}
}
alias amenux {
if $1 == Status {
did -a tb 181 Network Bilgisi : $network
did -a tb 182 Sunucu Bilgisi : $server
did -a tb 183 Nick: StanteaR
did -a tb 184 İletişim : Milk.Child@Hotmail.Com
}
elseif $1 == Kanal {
did -a tb 181 Bulundugunuz Kanal : $active
if ( $nick($chan,$rand(1,$nick($chan,0,o)),o ) == 0 ) { did -a tb 182 Online Yekili : Bulunmamakta }
else { did -a tb 182 Önerilen Online Yetkili : $nick($chan,$rand(1,$nick($chan,0,o)),o) }
if ( $gettok($chan($chan).mode,0,109 ) == 1 ) { did -a tb 183 Genel Konusma (-m ) : Açık +v Gerekmez }
if ( $gettok($chan($chan).mode,0,109 ) == 2 ) { did -a tb 183 Genel Konusma (+m) : Kapalı +v Gerekir! }
if ( $gettok($chan($chan).mode,0,77 ) == 1 ) { did -a tb 184 Nick Mod: Kanal Açık Nick Kayıt Gerekmez }
if ( $gettok($chan($chan).mode,0,77 ) == 2 ) { did -a tb 184 Nick Mod: Kanal Kapalı Nick Kayıt Gerekir! }
}
elseif $1 == Ozel {
var %didatb = $read $mircdirdondurme.txt
did -a tb 181 $gettok(%didatb,1,124)
did -a tb 182 $gettok(%didatb,2,124)
did -a tb 183 $gettok(%didatb,3,124)
did -a tb 184 Baglantı Kurulan : $active
}
if $1 == Web {
did -a tb 181 Kullanmış Oldugunuz Script StanteaR Yapımı
did -a tb 182 Olup Addonlar İF`Den Alıntıdır
did -a tb 183 Güncelleştirme Tamamen
did -a tb 184 StanteaR e Aittir
}
}
02 Ağustos 2012, 05:22
Benzer Konular 
Normal
