[Exhumation]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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ı ?
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.