Cevap: -KLine Menü Sorunu Acil Yardım-
Kod:
dialog Hata {
title "Hata"
size -1 -1 105 44
option dbu
icon bump\abc.ico, 0
icon 1, 3 3 15 15, bump\No.ico, 0
text "", 2, 25 4 73 28, center
button "Tamam", 3, 36 32 37 10, ok cancel
}
alias hata { if !$dialog(hata) { .dialog -m hata hata } }
on *:dialog:submenu:init:0:{
dll RebaR.dll Dock $dialog(submenu).HWND > top
}
on *:active:?:did -o submenu 1 0 $active
on *:dialog:submenu:sclick:*:{
if ($did == 16) { .subyardim | halt }
if ($server == $null) { .hata | .did -a hata 2 Hiçbir Servere Bağlı Değilsiniz!! | halt }
if ($did == 2) { if ($did(1) != $null) { .mykline | halt } | goto son }
if ($did == 3) { if ($did(1) != $null) { .myshun | halt } | goto son }
if ($did == 6) { .mykanal | halt }
if ($did == 7) { .dialog -m kanalkoruma kanalkoruma }
if ($did == 5) { if ($did(1) != $null) { .mywis | halt } | goto son }
if ($did == 8) { /dialog -m swear swear | halt }
if ($did == 10) { did -o submenu 1 0 $cb | halt }
if ($did == 9) { did -o submenu 1 0 $snick($active,1) | halt }
if ($did == 11) { if ($server != $null) { .dialog -m memom memom } | else { .hata | .did -a hata 2 Servere Bağlı Değilsiniz! } }
if ($did == 4) { if ($active ischan) && ($me isop $active) && ($snick($active) != $null) { .myban | halt }
else { .hata | .did -a hata 2 Kanalda Op Değilsiniz veya Kanaldan Nick Belirtmediniz! } }
halt
:son
.hata | .did -a hata 2 Menuye Nick Belirtmeniz Gerekiyor
}
;==============================ÇİFT TIKLAYINCA MENU
alias mpdll {
if ($isid) { return $dll(sub.dll,$1,$2-) }
else { dll mpopup.dll $1 $2- }
}
alias mpu { dll -u sub.dll }
alias mkline {
linesep -s
var %hmenu = $mpdll(MPCreateMenu,mkline)
%hmenu = $gettok(%hmenu,2,32)
echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Reklam !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 2 0 0 Kanal Reklam !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 3 0 0 Script !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 4 0 0 Bad Nick !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 5 0 0 Küfür !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 6 0 0 Oto Mesaj !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 7 0 0 Clone !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 8 0 0 Dostluk Ortamını Bozmak !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 9 0 0 Kurallara Uymamak !)
}
alias mykline {
echo 10 -s $mpdll(MPopup,mkline > $mouse.dx $mouse.dy left bottom right)
}
ON *:signal:MPOPUP.mkline: {
if ($1 == 1) { .kline $did(submenu,1) reklam | did -i submenu 1 1 $did(submenu,1) | halt }
if ($1 == 2) { .kline $did(submenu,1) kreklam | did -i submenu 1 1 $did(submenu,1) | halt }
if ($1 == 3) { .kline $did(submenu,1) script | did -i submenu 1 1 $did(submenu,1) | halt }
if ($1 == 4) { .kline $did(submenu,1) nick | did -i submenu 1 1 $did(submenu,1) | halt }
if ($1 == 5) { .kline $did(submenu,1) kufur | did -i submenu 1 1 $did(submenu,1) | halt }
if ($1 == 6) { .kline $did(submenu,1) otomsg | did -i submenu 1 1 $did(submenu,1) | halt }
if ($1 == 7) { .kline $did(submenu,1) clone | did -i submenu 1 1 $did(submenu,1) | halt }
if ($1 == 8) { .kline $did(submenu,1) dost | did -i submenu 1 1 $did(submenu,1) | halt }
if ($1 == 9) { .kline $did(submenu,1) kural | did -i submenu 1 1 $did(submenu,1) | halt }
}
;=========================SHUN MENU
alias mshun {
linesep -s
var %hmenu = $mpdll(MPCreateMenu,mshun)
%hmenu = $gettok(%hmenu,2,32)
echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Rahatsızlık !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 2 0 0 Oto Msg)
echo 10 -s $mpdll(MPAddItem,%hmenu > 3 0 0 Susunuz!)
echo 10 -s $mpdll(MPAddItem,%hmenu > 4 0 0 Offff !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 5 0 0 Küfür !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 6 0 0 Sakin !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 7 0 0 -)
echo 10 -s $mpdll(MPAddItem,%hmenu > 8 0 0 Sebep Belirtin !)
}
alias myshun {
echo 10 -s $mpdll(MPopup,mshun > $mouse.dx $mouse.dy left bottom right)
}
ON *:signal:MPOPUP.mshun: {
if ($1 == 1) { .shun $did(submenu,1) Rahatsızlık! | halt }
if ($1 == 2) { .shun $did(submenu,1) Oto Msg! | halt }
if ($1 == 3) { .shun $did(submenu,1) Susunuz! | halt }
if ($1 == 4) { .shun $did(submenu,1) Offff! | halt }
if ($1 == 5) { .shun $did(submenu,1) Küfür! | halt }
if ($1 == 6) { .shun $did(submenu,1) Sakin Ol! | halt }
if ($1 == 8) { .shun $did(submenu,1) $$?="Sebep Girin" | halt }
}
;======================whoiswhoas
alias mwis {
linesep -s
var %hmenu = $mpdll(MPCreateMenu,mwis)
%hmenu = $gettok(%hmenu,2,32)
echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Whois)
echo 10 -s $mpdll(MPAddItem,%hmenu > 2 0 0 WhoWas)
}
alias mywis {
echo 10 -s $mpdll(MPopup,mwis > $mouse.dx $mouse.dy left right)
}
ON *:signal:MPOPUP.mwis: {
if ($1 == 1) { .w $did(submenu,1) | .timer 1 1 dialog -m sohbetkline sohbetkline | halt }
if ($1 == 2) { .whowas $did(submenu,1) | .timer 1 1 dialog -m sohbetkline sohbetkline | halt }
}
;====================Kanal[Chanserv] Menu
alias mkanal {
linesep -s
var %hmenu = $mpdll(MPCreateMenu,mkanal)
%hmenu = $gettok(%hmenu,2,32)
echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Kanal Kapat)
echo 10 -s $mpdll(MPAddItem,%hmenu > 2 0 0 Ban Temizle)
echo 10 -s $mpdll(MPAddItem,%hmenu > 3 0 0 Özelleri Kapat)
echo 10 -s $mpdll(MPAddItem,%hmenu > 13 0 0 Unkline)
echo 10 -s $mpdll(MPAddItem,%hmenu > 4 0 0 Log)
var %hsmenu = $mpdll(MPAddSubMenu,%hmenu > 6 0 0 Op/Deop)
%hsmenu = $gettok(%hsmenu,2,32)
echo 10 -s $mpdll(MPAddItem,%hsmenu > 5 0 0 Op All)
echo 10 -s $mpdll(MPAddItem,%hsmenu > 6 0 0 Deop All)
var %hsmenu = $mpdll(MPAddSubMenu,%hmenu > 7 0 0 Ekran Temizle)
%hsmenu = $gettok(%hsmenu,2,32)
echo 10 -s $mpdll(MPAddItem,%hsmenu > 8 0 0 Aktif Pencere)
echo 10 -s $mpdll(MPAddItem,%hsmenu > 9 0 0 Tüm Pencereler)
var %hsmenu = $mpdll(MPAddSubMenu,%hmenu > 12 0 0 İgnore)
%hsmenu = $gettok(%hsmenu,2,32)
echo 10 -s $mpdll(MPAddItem,%hsmenu > 10 0 0 İgnore Et)
echo 10 -s $mpdll(MPAddItem,%hsmenu > 11 0 0 İgnore Kaldır)
echo 10 -s $mpdll(MPAddItem,%hsmenu > 12 0 0 İgnore List)
}
alias mykanal {
echo 10 -s $mpdll(MPopup,mkanal > $mouse.dx $mouse.dy left bottom right)
}
ON *:signal:MPOPUP.mkanal: {
if ($1 == 1) { .dialog -m kapama kapama }
if ($1 == 2) { .temizban }
if ($1 == 3) { .closemsg }
if ($1 == 4) { .logs $active }
if ($1 == 5) { .merlynop }
if ($1 == 6) { .merlyndeop }
if ($1 == 8) { .clear $active }
if ($1 == 9) { .clearall }
if ($1 == 10) { if ($window($active).type == channel) { if ($snick($active,1) == $null) { echo 4 -a %sa 4Kanaldan İgnore Edilecek Nicki Belirtin! | halt } | .ignore -pu300 $snick($active,1) | echo -a %sa 4 $snick($active,1) 2Nicki 5dk İgnore Edildi! }
if ($window($active).type == query) { .ignore -pu300 $active | echo -a %sa 4 $active 2Nicki 5dk İgnore Edildi! }
}
if ($1 == 11) { if ($window($active).type == channel) { if ($snick($active,1) == $null) { echo 4 -a %sa 4Kanaldan İgnore Edilecek Nicki Belirtin! | halt } | .ignore -r $snick($active,1) | echo -a %sa 4 $snick($active,1) 2İgnore Kaldırıldı! }
if ($window($active).type == query) { .ignore -r $active | echo -a %sa 4 $active 2İgnore Kaldırıldı! }
}
if ($1 == 12) { .ignore -l }
if ($1 == 13) { .unkline *@ $+ $$?"Açılacak İp Girin 123.123.123." $+ * }
}
;=================Ban =======
alias mban {
linesep -s
var %hmenu = $mpdll(MPCreateMenu,mban)
%hmenu = $gettok(%hmenu,2,32)
var %hsmenu = $mpdll(MPAddSubMenu,%hmenu > 10 0 0 All Ban)
%hsmenu = $gettok(%hsmenu,2,32)
echo 10 -s $mpdll(MPAddItem,%hsmenu > 11 0 0 Kural!)
echo 10 -s $mpdll(MPAddItem,%hsmenu > 12 0 0 Bad Nick!)
echo 10 -s $mpdll(MPAddItem,%hsmenu > 13 0 0 -)
echo 10 -s $mpdll(MPAddItem,%hsmenu > 14 0 0 Sebep Gir!)
echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Küfür !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 2 0 0 Kanal Seviyesine Aykırı)
echo 10 -s $mpdll(MPAddItem,%hmenu > 3 0 0 Bad Nick!)
echo 10 -s $mpdll(MPAddItem,%hmenu > 4 0 0 Tartışma Yaratmak!)
echo 10 -s $mpdll(MPAddItem,%hmenu > 5 0 0 Reklam !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 6 0 0 Tekrar !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 7 0 0 Büyük Harf !)
echo 10 -s $mpdll(MPAddItem,%hmenu > 8 0 0 -)
echo 10 -s $mpdll(MPAddItem,%hmenu > 9 0 0 Sebep Gir!)
}
alias myban {
echo 10 -s $mpdll(MPopup,mban > $mouse.dx $mouse.dy left bottom right)
}
ON *:signal:MPOPUP.mban: {
if ($1 == 11) { aban $snick($active,1) 2Lütfen Kurallara Uyunuz.Daha Fazla Bilgi almak için 4/motd 2yazınız. }
if ($1 == 12) { aban $snick($active,1) 4Uygunsuz Nick 2Kullanmak 2/4Küfürlü 2Konusmak Sebeplerinden Uzaklaştırıldınız..! }
if ($1 == 1) { ban -u $+ 900 $active $snick($active,1) 2 | /kick $active $snick($active,1) 4 $active 2Kanalından 4Küfürlü Konusmak 2 Sebebinden 4 15 Dakika 2 uzaklaştırıldınız.! }
if ($1 == 2) { ban -u $+ 900 $active $snick($active,1) 2 | /kick $active $snick($active,1) 4 $active 2Kanal 4Seviyesine 2Uymadığınızdan Dolayı 4 15 Dakika 2 Uzaklaştırıldınız..! }
if ($1 == 3) { mode $active +b $snick($active,1) | /kick $active $snick($active,1) 4 $active 2Kanalından 4Nickiniz 2Uygun Olmadığından Dolayı Uzaklaştırıldınız..! }
if ($1 == 4) { ban -u $+ 900 $active $snick($active,1) 2 | /kick $active $snick($active,1) 4 $active 2Kanalından 4Tartisma 2Yaratmak 2/4Rahatsizlik 2Vermek 2/ 4 Kanal Seviyesine Uygun Hareket Etmemek 2 Sebeplerinden 4 15 Dakika 2 Uzaklaştırıldınız.. }
if ($1 == 6) { ban -u $+ 900 $active $snick($active,1) 2 | /kick $active $snick($active,1) 4 $active 2Kanalından 4Flood 2/ 4Aynı Yazıyı Tekrarlamak2 Sebeplerinden 4 15 Dakika 2 Uzaklaştırıldınız..! }
if ($1 == 7) { ban -u $+ 900 $active $snick($active,1) 2 | /kick $active $snick($active,1) 4 $active 2Kanalından 4Büyük Harf 2Sebebinden 4 15 Dakika 2 Uzaklaştırıldınız..! }
if ($1 == 9) { ban -u $+ 900 $active $snick($active,1) 2 | /kick $active $snick($active,1) $$?="Sebep Girin" }
}
dialog submenu {
title "New Project"
size -1 -1 402 10
option dbu
combo 1, 13 0 74 50, sort size edit drop
button "K-Line", 2, 103 1 24 8
button "Shun", 3, 129 1 24 8
button "Ban", 4, 185 1 24 8
button "Ws/Was", 5, 155 1 28 8
button "Acil İşlemler", 6, 211 1 40 8
button "Koruma Menu", 7, 253 1 40 8
button "K-Line/KiLL", 8, 295 1 40 8
button "MemoServ", 11, 337 1 40 8
box "", 12, 101 -3 83 13
box "", 13, 184 -3 26 13
box "", 14, 210 -3 42 13
box "", 15, 252 -3 126 13
icon 10, 87 -1 12 12, bump\cc.ico, 0, top
icon 9, -2 -1 13 12, bump\ss.ico, 0, top
icon 16, 381 0 16 9, bump\help.ico, 0
}
;====================özel menu
alias mqozel {
linesep -s
var %hmenu = $mpdll(MPCreateMenu,mqozel)
%hmenu = $gettok(%hmenu,2,32)
echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Whois)
echo 10 -s $mpdll(MPAddItem,%hmenu > 3 0 0 Ortak Kanallar)
echo 10 -s $mpdll(MPAddItem,%hmenu > 4 0 0 Temizle)
}
alias myqozel {
echo 10 -s $mpdll(MPopup,mqozel > $mouse.dx $mouse.dy left bottom right)
}
ON *:signal:MPOPUP.mqozel: {
if ($1 == 1) { .w $active | halt }
if ($1 == 2) { .did -o submenu 1 0 $active | halt }
if ($1 == 3) { .echo -a 4 Bilgi: $+ Nick: $+ 2 $active 4 Adres: 2( $+ $iif($address($active,1),$address($active,1),4Belirlenemedi) $+ )4 Ortak Kanallar:2 $c2 $+ $combchans($active) $+ $c1 | halt }
if ($1 == 4) { .clear $active | halt }
}
;====================özel menu
alias mnick {
linesep -s
var %hmenu = $mpdll(MPCreateMenu,mnick)
%hmenu = $gettok(%hmenu,2,32)
echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Özel)
echo 10 -s $mpdll(MPAddItem,%hmenu > 2 0 0 Whois)
echo 10 -s $mpdll(MPAddItem,%hmenu > 4 0 0 Ortak Kanallar)
}
alias mynick {
echo 10 -s $mpdll(MPopup,mnick > $mouse.dx $mouse.dy left right)
}
ON *:signal:MPOPUP.mnick: {
if ($1 == 2) { .w $snick($active,1) | halt }
if ($1 == 3) { .did -o submenu 1 0 $snick($active,1) | halt }
if ($1 == 4) { .echo -a 4 Bilgi: $+ Nick: $+ 2 $snick($active,1) 4 Adres: 2( $+ $iif($address($snick($active,1),1),$address($snick($active,1),1),4Belirlenemedi) $+ )4 Ortak Kanallar:2 $c2 $+ $combchans($snick($active,1)) $+ $c1 | halt }
if ($1 == 1) { .query $snick($active,1) | halt }
}
Hocam aynen bu şekilde zaten orda gerekli editlemeleri yapmıştım ama sorunu hala bulamadım kline atılmıyor. |
