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

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - mIRC Mouse Hover Menu (https://www.ircforumlari.net/mirc-parca-kodlar/981363-mirc-mouse-hover-menu.html)

mIRC Mouse Hover Menu

Adından da anlaşılacağı gibi "mIRC hover menu" fare üzerine gelince açılan menü.

Epeydir MSL/mIRC kod yazmamıştım paslanmışız haliyle, pasımızı atalım dedik.
HTML de sık kullladığım ve mIRC'de çok eskiden beri yapmayı düşünüp zaman
bulamadığım bir fikir, "hotlink" meselesi çok sevdiğim bir konu bu "olay"
tetikleyicisini kullanarak herhangi bir kelimenin (nick, kanal vb.) fare üzerine
gelince menü açılması ve buna göre işlem yapılmasına dayanan bir mantık.

Ben kanal için bir menü planladım ve kanalda nick'in üstüne fare gelince
açılan bir menü çıkıyor, farklı şeyler düşünenler için kod oldukca sade ve açık
olarak yazıldı, içine kolayca anlaşılması için ek açıklamalar da bıraktım.

Simgeleri her windows içide bulunan simge fontlarından seçtim, isteyen

"drawpic" ile icon, backgroun ve animasyon ekleyebilir gerisi hayal gücünüze kalmış

Standart "hotlink" olay tetikleyici yerine algılayıcı ile çalışıyor ve "picture
window" kullanılıyor dileyen "dialog" kullanarak çok farklı şeyler yapabilir.

Sanırım bu teknik ilkkez kullanılıyor yanılıyor olmayı çok isterim :) varsa örnek lütfen görsterin.

İsteyen kendisi için özelleştirebilir ki amacı bu.. Eski sürümlerle de çalışabilmesi için
yeni fonsiyonlardan kaçındım ve haliyle biraz fazla kod oludu, dilediğiniz gibi

düzenleyebilir alıntı/çalıntı yapabilir isim bile belirmeyebilirsiniz söz kızmam kimseye :cokcool:
konu hakkında yardım isteyen veya fikri olan varsa konu başlığında yazabilir.

neyse.. olay şöyle

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

alias add:icon {

  ;<drawtext|switch><win-name><color|$rgb(x,x,x)|0-15><"font"><font size> <coord: x|y> <text-icon>
 

  drawtext -r $win(name) $rgb(64,64,64) Webdings 24 10 2  .

  drawtext -r $win(name) $rgb(65,105,225) verdana 10 10 28 Alıntı

  drawtext -r $win(name) $rgb(64,64,64) $qt(webdings) 32 45 -1 `

  drawtext -r $win(name) $rgb(65,105,225) verdana 10 45 28 Takip

  drawtext -r $win(name) $rgb(64,64,64) Webdings 28 80 0 ^

  drawtext -r $win(name) $rgb(65,105,225) verdana 9  80 28 Özel

  drawtext -r $win(name) $rgb(64,64,64) Webdings 28 116 0 i

  drawtext -r $win(name) $rgb(65,105,225) verdana 10 116  28 Whis

  drawtext -r $win(name) $rgb(64,64,64) Webdings 28 150 0 x

  drawtext -r $win(name) $rgb(65,105,225) verdana 10 150 28 Banla

  drawtext -r $win(name) $rgb(255,0,0) $qt(Wingdings 2) 16 205 0 T 

  clear -c $win(name)

}

menu @cc:hover:tooltipop:menu {

  sclick {  

    set %cl~ 1

    ;coordinates <button x|y> <command |%nick[%1~ = raw text-line hover]>
 

    if (($mouse.x > 207) && ($v1 < %ww~)) { win -c }

    elseif (($mouse.x > 150) && ($v1 < %ww~)) { ban $address(%nick,1) }

    elseif (($mouse.x > 110) && ($v1 < %ww~)) { whois %nick  }

    elseif (($mouse.x > 80) && ($v1 < %ww~)) { query %nick  }

    elseif (($mouse.x > 45) && ($v1 < %ww~)) { notify %nick  }

    elseif (($mouse.x > 10) && ($v1 < %ww~)) { editbox $noqt(%h:win) $qt(%1~)  }
 

  }

  leave: { 

    if (%cl~) win -c | unset %cl~ 

  }

}
 

on 1:HOTLINK:*:#:{

  set %hwin $qt($active)

  if ($1) && ($hotlink(match).type == nick) && (%apa~) {

    if ($regsubex($1,/([\<\>\[\]\{\}\(\)\{\}\\\/\\\"\*\!\@\+\%\&\.])/gui,) ison $chan) { set %nick $v1 }

    set %1~ $hotline

    set %h:win #

    var %fs~ $ceil($calc($window(#).fontsize * 0.66))

    var %x~ $calc($len($1) + $mouse.dx +  %fs~ + $win(left))

    var %y~ $calc($len($1) + $mouse.dy + %fs~ + $win(top))
 

    set %w:y $calc($window(#).dy + %fs~ )
 

    noop $win($win(name),%x~,%y~,$hotline).mkwin

    return

  }

  else { .timer_winc -m 1 50 win -c }

  haltdef

}
 
 

on 1:OPEN:*:*: win -c

on 1:HOTLINK:*:*: haltdef 

on 1:APPACTIVE: { if (!$appactive) win -c $win(name) | set %apa~ $appactive }

on 1:ACTIVE:*: {

  if ($active == $win(name)) noop $add:icon 

  if ($lactive == $win(name)) || (!$lactive) || (%hwin == $qt(lactive)) || ($active != $win(name)) win -c

}

alias -l win {

  set %wn~ @cc:hover:tooltipop:menu

  if $isid {

    if $prop == mkwin { 

      set %ww~ 220 | set %wh~ 40

      ;-oadDH +dbB

      window -aodbvDHfw0pBw0g0 +bLex $1 $2 $3 %ww~ %wh~

      clear -c %wn~

    } 

  }

  if $1 == name { return %wn~ }

  if $1 == -c { $iif($window(%wn~),window -c %wn~) }

  if $1 == top { return - 50 }

  if $1 == left { return + 10 }
 

}

Cevap: mIRC Mouse Hover Menu

Elvis binayı hala terk etmemiş :D İnat ettin yaptın yine he :D

Cevap: mIRC Mouse Hover Menu

Alıntı:

SeRDaR406 Nickli Üyeden Alıntı (Mesaj 1042690817)

Elvis binayı hala terk etmemiş :D İnat ettin yaptın yine he :D

rock rock rock ya da rock illede rock :p;olley

Cevap: mIRC Mouse Hover Menu

Hem işlevsel hem de gerekli bir kod olmuş, emeğine sağlık abicim ;s26

Cevap: mIRC Mouse Hover Menu

Bu baya baya iyiymiş. Ban seçeneği de koyulabilir sanırım oraya, büyük kolaylık. Alıntı yap olayını çok beğendim :kips: Eline sağlık abi.

Cevap: mIRC Mouse Hover Menu

Alıntı:

AnsweR Nickli Üyeden Alıntı (Mesaj 1042690822)

Bu baya baya iyiymiş. Ban seçeneği de koyulabilir sanırım oraya, büyük kolaylık. Alıntı yap olayını çok beğendim :kips: Eline sağlık abi.

ban seçeneği var hacı :)

Cevap: mIRC Mouse Hover Menu

Reis konuştur artık bu mIRC Scriptingi sende kurtul bizde kurtulalım :gulucuk:
Otonom birşeyler SİRİ gibi? :cokcool:

Cevap: mIRC Mouse Hover Menu

Alıntı:

Kursad Nickli Üyeden Alıntı (Mesaj 1042690847)

Reis konuştur artık bu mIRC Scriptingi sende kurtul bizde kurtulalım :gulucuk:
Otonom birşeyler SİRİ gibi? :cokcool:

başka işler için kullanıyoruz :)

Cevap: mIRC Mouse Hover Menu

Millet konuşur Cocorico yapar! Abi sen olmasan bu mIRC gram oynamaz

Cevap: mIRC Mouse Hover Menu

Ümit abi süper bir çalışma bayadır kafanı şişirmedim bir ara konuşalım :gulucuk:

Cevap: mIRC Mouse Hover Menu

Alıntı:

SNOOPY Nickli Üyeden Alıntı (Mesaj 1042691131)

Ümit abi süper bir çalışma bayadır kafanı şişirmedim bir ara konuşalım :gulucuk:

adresi biliyorsun :)))

Cevap: mIRC Mouse Hover Menu

Her zaman derim bu forumu sahibi olmak onur verici bir şey ama bu forumun asıl sahipleri "forum sahibi" tagını taşıyanlar değil bu foruma emek veren insanlardır ümit abi gibileri olmasa bu forumun hiç bir önemi yok eline sağlık abi..

Cevap: mIRC Mouse Hover Menu

Bu çok iyi olmuş
+ gif ile eklenen görsel
Eline emeğine sağlık :alkis:

Cevap: mIRC Mouse Hover Menu

:alkis: :hi: Ellerine Sağlık Yerinde ve Sağlam..

Cevap: mIRC Mouse Hover Menu

çok başarılı eline saglık

Cevap: mIRC Mouse Hover Menu

CoCoRiCo, eline sağlık Hocam fakat ben çalıştıramadım mIRC 6.35 kullanıyorum acaba ben mi? yanlış anladım kodu? (;

Cevap: mIRC Mouse Hover Menu

Çok güzel olmuş fikirde güzel işlevde süper eline sağlık .

Cevap: mIRC Mouse Hover Menu

Alıntı:

High Nickli Üyeden Alıntı (Mesaj 1042691494)

CoCoRiCo, eline sağlık Hocam fakat ben çalıştıramadım mIRC 6.35 kullanıyorum acaba ben mi? yanlış anladım kodu? (;

Kod:

&& ($hotlink(match).type == nick)

bu kısmı kaldirirsan çalışacaktır.

Cevap: mIRC Mouse Hover Menu

Tebrik ederim güzel calisma.
Codu aynen paylastigin gibi yükledim lakin bi sorun var.
Tooltip cabuk kayboluyor onu nasil cözebilirim?

Cevap: mIRC Mouse Hover Menu

Alıntı:

ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042708020)

Tebrik ederim güzel calisma.
Codu aynen paylastigin gibi yükledim lakin bi sorun var.
Tooltip cabuk kayboluyor onu nasil cözebilirim?

Kod:

else { .timer_winc -m 1 50 win -c }

50 rakamını stabil çalışacak şekilde artirman yeterli örn: 120
bu zaman fare metinden uzaklastiginda menünün kapanma zamanını Milisaniye cinsinden
belirler 1s=1000ms.

Cevap: mIRC Mouse Hover Menu

güzel addon ama fark ettim ki bunu kulanirsak, kanala atilan herhanki bir linke tiklanamiyor.
acaba bu "Alinti" olayini mirc'in herhanki bir sagtiklamaya ekleyebilirmiyiz? tüm addonu degil sadece "Alinti" olayini? Simdiden tsk'ler.

Cevap: mIRC Mouse Hover Menu

Alıntı:

ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042709121)

Kod:

 else { .timer_winc -m 1 50 win -c }  
 

 haltdef 
 

}

kırmızı alandaki "haltdef" yazan kısmı halt olarak değiştirirsen linkler ve diğer hotlink özellikleri çalışacaktır.

Cevap: mIRC Mouse Hover Menu

Alıntı:

CoCoRiCo Nickli Üyeden Alıntı (Mesaj 1042709592)

Kod:

 else { .timer_winc -m 1 50 win -c }  
 

 haltdef 
 

}

kırmızı alandaki "haltdef" yazan kısmı halt olarak değiştirirsen linkler ve diğer hotlink özellikleri çalışacaktır.

Cok tsk ederim. Peki whoise'yi actif kanalda göztermesi icin ne yapmaliyim?

Cevap: mIRC Mouse Hover Menu

Alıntı:

ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042709684)

Cok tsk ederim. Peki whoise'yi actif kanalda göztermesi icin ne yapmaliyim?

Whois Raw'larıyla düzenlemen gerekir.

whois komutuna bir değişken atayıp

Kod:

menu @cc:hover:tooltipop:menu {

  sclick {  

    set %cl~ 1

    ;coordinates <button x|y> <command |%nick[%1~ = raw text-line hover]>
 

    if (($mouse.x > 207) && ($v1 < %ww~)) { win -c }

    elseif (($mouse.x > 150) && ($v1 < %ww~)) { ban $address(%nick,1) }

    elseif (($mouse.x > 110) && ($v1 < %ww~)) { whois %nick | set %w:menu # %nick }

whois raw içinde bu koşula göre düzenleme yapmalısın
böylelikle menüden whois aldıgında kanalda görünecek, diğer durumlarda orijinal kodun geçerli olacaktır.

raw'lar hakkında daha fazla bilgi için: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:


 

RAW 311:*: 
 if  (%w:menu) { echo $v1 $1- }

else {

..Orijinal Raw kodunuz.. 

}

RAW 318:*: {
 if  (%w:menu) { unset %w:menu }

...

}

Cevap: mIRC Mouse Hover Menu

Alıntı:

CoCoRiCo Nickli Üyeden Alıntı (Mesaj 1042709685)

Whois Raw'larıyla düzenlemen gerekir.

whois komutuna bir değişken atayıp

Kod:

menu @cc:hover:tooltipop:menu {

  sclick {  

    set %cl~ 1

    ;coordinates <button x|y> <command |%nick[%1~ = raw text-line hover]>
 

    if (($mouse.x > 207) && ($v1 < %ww~)) { win -c }

    elseif (($mouse.x > 150) && ($v1 < %ww~)) { ban $address(%nick,1) }

    elseif (($mouse.x > 110) && ($v1 < %ww~)) { whois %nick | set %w:menu # %nick }

Kod:


 

RAW 311:*: 
 if  (%w:menu) { echo $v1 $1- }

else {

..Orijinal Raw kodunuz.. 

}

RAW 318:*: {
 if  (%w:menu) { unset %w:menu }

...

}

cok tsk ederim am ben kendimce kücülttüm senin addonu.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 15:01 -->-> Daha önceki mesaj 14:57 --

Whoise'yi ve Banla'yi sildim. tsk ederim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 15:23 -->-> Daha önceki mesaj 15:01 --

@CoCoRiCo
söyle bir mümkünati yokmu? bir mesaji cift tiklayinca editboxa senin yukardaki addonda oldugu gibi Alinti yapip Editboxa eklesin?
yada baska bir sekilde bir mesaji editboxa eklesin? :-)
ben denedim bir iki sey ama yapamadim. :-)

Cevap: mIRC Mouse Hover Menu

Selam arkadaslar..

@CoCoRiCo'un "Eklenti yap" olayini mirc.com Sitesinde buldum ve kendimce ayarladim.

Kod:

on ^1:hotlink:[*:*:{

  if ($hotlink(event) == dclick) {

    if ($regex($1-,^
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
halt

    editbox 4" $+ $hotline $+ 4"

    clipboard 4" $+ $hotline $+ 4"  

  }

}

Benim $timestamp yani yazilarin basindaki saat olayi basinda ve sonunda [ oldugu icin

oraya cift tikladigimda yazilan tüm satiri direk editboxa kopya ediyor ve ayrica clipboard'a yapistiriyor. clipboarda yansitma maksadim belki baska kanala kopya etmek istenebilinir.

belki bazilarin isine yarar ümüdiyle burda paylasmak istedim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:15 -->-> Daha önceki mesaj 17:50 --

Bu arada Arkadaslar benim aradigim bir addon var.
oda bu sekilde bir pencere gözteriyordu nickin üstüne mouse ile gidince.
o nicke whois cekip bilgilerini o pencereye yansitiyordu.
burda cok aradim o addonu ama bulamadim.
bilen varmi acaba?
tskler. :-)