Çevrimdışı

menu status {
rclick:do-popup channel +cC $mouse.dx $mouse.dy
}
on *:START:{
init-channel-menu
}
alias windowmenu {
menu status
}
;This takes the menu item info (if the user selects an item) and makes mIRC execute it
alias -l do-popup {
var %click = $menu(Popup,$1-)
if ( %click != $null ) $gettok(%click,3-,32)
return
}
alias init-channel-menu {
menu New channel 16 16
icon channel 1.ico
icon channel 2.ico
icon channel 15.ico
icon channel 8.ico
icon channel 14.ico
icon channel 11.ico
icon channel 13.ico
icon channel 3.ico
icon channel 4.ico
icon channel 6.ico
item channel +dD 0 0 &Menu
item channel
item channel 1 2 &Servera bağlan $cr
item channel 3 3 &Server bilgileri $cr
item channel 4 4 &Bağlantı menüsü
item channel 5 5 &Radyo dinle
item channel 6 6 &Kanallar
item channel 7 7 &Servisler
item channel 8 8 &Menuzine
item channel
item channel 9 9 &Yardım
item channel 10 10 &Bağlantıyı kes
}

; Adds an icon to a menu's image list
alias -l icon menu LoadImg $1 icon small $scriptdir $+ $2-

; Adds an item to a menu
alias -l item menu AddItem $1 end $2-

alias prem echo -s Popup removal: $menu(Remove)
alias -l menu {
var %result
if ( $2 == $null ) set %result $dll($udll,$1,.)
else set %result $dll($udll,$1,$2-)
if ( $gettok(%result,1,32) == OK ) return $gettok(%result,2-,32)
}
alias -l udll return $scriptdir $+ popups.dll

-------------
Bu menuyu nasıl Status te mouse'u sağ tuşa tıklayınca açtırabilirim, düzeltmem gereken yerler neresi...
Birde bu popups a SUBMENU yapamıyorum.
Kanal
.subkanal
.subkanal2
Şeklinde nasıl yapabilirim, küçük bir örnek verirseniz çok sevinirim,
teşekkürler...

 

popups.ini dosyasında ki [cpopup] (ya da bpopup , qpopup, farketmez)başlığının altına ;

[cpopup]
n0=$do-popup

yaz

Ama muhtemelen çalışmaz. Çalıştırmak için alias -l deki -l leri kaldırmalısın.

 

Çevrimdışı

Bu başlık cok kez acıldı ama kimse bişi anlamamıs sanırım..

__________________
2b|!2b=? ~ mircscripting.net

 

Çok güzel bir anlatımın var cocorico. Buradaki çoğu kişi forumda araştırma yapmadan direk başlık açıyor. Bunu söylemekten dilimde tüğ bitti
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Moderatörlerin müdehale etmesi gerek hepsini bir baslıkda toplarsanız bende bir atachment ekler arkadaslara yazdımcı olurum.

__________________
2b|!2b=? ~ mircscripting.net