IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
alias leader.pop {

  var %A $mouse.dx $mouse.dy

  var %q popups LoadImg iki icon

  var %qp popups AddItem iki end

  popups New iki 16 16

  %q small 16x16ico\favori.ico

  %q small 16x16ico\away.ico

  %q small 16x16ico\yıldız.ico

  %q small 16x16ico\explo.ico

  %q small 16x16ico\yıldız.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %qp + 1 Korumalar $cr /korumalar

  %qp + 2 Away Sistem $cr /awaymenu

  %qp + 3 Oyunlar $cr /oyunlar

  %qp + 4 Websorf $cr /websorf

  %qp +> 5 Nick Islemleri $cr bl

  %qp +> 6 Kanal Islemleri $cr a1

  %qp + 7 Pencereleri Kapat $cr /partall | /closemsg

  %qp + 8 Radyo Istek Yap $cr /istek

  var %B popups LoadImg a1 icon

  var %N popups AddItem a1 end

  popups New a1 16 16 

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %N + 1 Kanal'a Gir $cr /kgiris

  %N + 2 Kanal Kaydet $cr /kreg

  %N + 3 Kanal Dropla $cr /kdrop

  %N + 4 Kanallardan Cık $cr /partall

  var %B popups LoadImg bl icon

  var %N popups AddItem bl end

  popups New bl 16 16 

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %N + 1 Ozel Görüş $cr /ngiris

  %N + 2 Ozelimi Kapat $cr /mode $me +D

  %N + 3 Ozeli Temizle $cr /closemsg  

  %N + 4 Not Bırak $cr /nmemo

  %N + 5 Nick Kaydet $cr /nreg

  %N + 6 Nick Dropla $cr /ndrop

  pop iki %A

}

menu status {

  $leader.pop

}

alias nlist {

  var %A $mouse.dx $mouse.dy

  var %q popups LoadImg iki icon

  var %qp popups AddItem iki end

  popups New iki 16 16

  %q small icon\10.ico

  %q small icon\10.ico

  %q small icon\10.ico

  %q small icon\10.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %qp + 1 Rumuz Bilgisi $cr whois $snicks

  %qp + 2 Ozel Sohbet Et $cr query $snicks

  %qp + 3 Rumuzu Engelle $cr /ignore $snicks

  %qp + 4 Rumuz Engelini Aç  $cr $cr /ignore -r $snicks

  %qp +> 5 Operator Islemleri $cr bl

  %qp +> 6 Kanal Yetki Islemleri $cr a1

  %qp + 7 Rumuza Dosya Gönder $cr /dcc send $snicks

  var %B popups LoadImg a1 icon

  var %N popups AddItem a1 end

  popups New a1 16 16 

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %N + 1 Operator(@)Ver $cr mode $active +o $snicks

  %N + 2 Operator(@)Al $cr mode $active -o $snicks

  %N + 3 Halfop(%)Ver $cr mode $active +h $snicks

  %N + 4 Halfop(%)Al $cr mode $active -h $snicks

  %N + 5 Voice(+)Ver $cr mode $active +v $snicks

  %N + 6 Voice(+)Al $cr mode $active -v $snicks
 

  var %B popups LoadImg bl icon

  var %N popups AddItem bl end

  popups New bl 16 16 

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %N + 1 Küfür $cr _kban $1 $2

  %N + 2 Reklam $cr _rban $1 $2

  %N + 3 Tekrar $cr _tban $1 $2  

  %N + 4 Tartısmak $cr _tarban $1 $2

  %N + 5 Rahatsızlık $cr _raban $1 $2

  %N + 6 Hızlı Ban $cr _hban $1 $2

  pop iki %A

}

menu nicklist {

  $nlist

}

alias qlist {

  var %A $mouse.dx $mouse.dy

  var %q popups LoadImg iki icon

  var %qp popups AddItem iki end

  popups New iki 16 16

  %q small icon\10.ico

  %q small icon\10.ico

  %q small icon\10.ico

  %q small icon\10.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %q small icon\6.ico

  %qp + 1 Rumuz Bilgisi $cr whois $active

  %qp + 2 Dosya(DCC) Gönder $cr dcc send $active

  %qp + 3 Rumuzu Engelle $cr ignore $active

  %qp + 4 Rumuz Engelini Aç  $cr $cr /ignore -r $active

  %qp + 5 Pencereyi Kapat $cr closemsg $active

  %qp +> 6 Rumuz Islemleri $cr bl
 

  var %B popups LoadImg bl icon

  var %N popups AddItem bl end

  popups New bl 16 16 

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %N + 1 Rumuz Info'su $cr ns info $active

  %N + 2 Rumuzu Ping'le $cr ping $active

  %N + 3 Rumuza Not Bırak $cr msend $1 

  %N + 4 Arkadas Listeme Ekle $cr notify $active

  var %B popups LoadImg al icon

  var %N popups AddItem al end

  popups New al 16 16 

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %B small icon\6.ico

  %N + 1 Rumuz Info'su $cr _kban $1 $2

  %N + 2 Rumuzu Ping'le $cr _rban $1 $2

  %N + 3 Rumuza Not Bırak $cr _tban $1 $2  

  %N + 4 Arkadas Listeme Ekle $cr _tarban $1 $2

  pop iki %A

}

menu query {

  $qlist

}

alias -l pop tokenize 32 $dll($pdll,Popup,$1-) | if ($isid) return $1- | $iif($4- != did not select a menu item,$4-)

alias -l popups return $dll($pdll,$1,$2-)

alias -l pdll { return $+(",$mircdirdll\popups.dll,") }

alias -l popup return $shortfn(dll\popups.dll)
ArkadaşLar eLimde ßöLe ßir icon'Lu popups menü'sü var .. ßunlar mirc'e yerLeştirdim her şey gayet güzel çalışıyor fakat statüs'te vs kanalda sağ tıkLayıp Menüyü açtıgım zaman ne kadar özel'im ( Query penceresi ) varsa hepsi kapanıyor yardımcı oLaßiLecek arkada$ varmı ? :(