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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Yan tolbar da Oper (https://www.ircforumlari.net/mirc-scripting-sorunlari/743646-yan-tolbar-da-oper.html)

ZenqerDenq 19 Mart 2016 17:23
Yan tolbar da Oper
 
Selamın aLeyküm aşağıda vermiş olduğum kodlardaki gibi Yan tolbar kodlarım var anca burda kanaldan atma vs gibi ikonlar sadece kanalda @ iken görünüyor lakin ben admin olduğum icin kanalda operatör modunda olmasamda o iconların kullana bilmek istiyorum yardımlarınız icin tşkler

Kod:
dialog tyl {
  size -1 -1 1 1
  option pixels
}
on *:dialog:tyl:*:*: {
  if ($devent == init) {
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    mdx SetDialog $dname style tool
    mdx SetBorderStyle $dname 1 staticedge
    mdx SetBorderStyle 1
    rebar HideToolbar .
    rebar Dock $dialog(tyl).hwnd > left
  }
  if ($devent == sclick) {
  }
  if ($devent == dclick) {
  }
}

dialog tyr {
  size -1 -1 25 300
  option dbu
  list 2, 2 1 23 300, size
  ;size 760 85 190 600
  ;list 1, 50 2 135 500, size
  ;list 2, 2 2 45 500, size
  ;icon 3, 5 505 185 95, scripting\ico\menu\tbar.jpg
  ;option pixels
}

on *:dialog:tyr:*:*: {
  if ($devent == init) {
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    mdx SetBorderStyle $dname 2 staticedge
    mdx SetBorderStyle 2
    rebar Dock $dialog(tyr).hwnd > right
    mdx SetControlMDX $dname 2 toolbar flat wrap arrows nodivider > $bars
    mdx SetFont $dname 2 12 700 verdana
    mdx SetColor 2,74,75,177,178,179,180,60,61,65 text [ $rgb(0,0,0) ]
    mdx SetFont $dname 2,74,75,177,178,179,180,40,41,45,60,61,65 13 700 Tahoma
    mdx SetFont $dname 2,74,75,177,178,179,180,40,41,45,60,61,65 13 1200 Tahoma
    mdx SetFont $dname 5,6,7 13 1200 Tahoma
    mdx SetFont $dname 15,16,17 12 1200 Tahoma
    mdx SetDialog [ $dname ] bgcolor $rgb(237,237,237)
    mdx SetDialog 2,4 bgcolor $rgb(237,237,237)
    mdx SetBorderStyle
    mdx SetColor 2 background [ $rgb(237,237,237) ]
    did -i $dname 2 1 setscheme $rgb(237,237,237) $rgb(237,237,237)
  }
  if ($devent == sclick) {
    if ($did == 1) {
    }
    if ($did == 2) {
      if (@* iswm $active) {
        if $did($dname,2).sel == 2 { window -c $active }
      }
      elseif ($active == Status Window) {
        if $did($dname,2).sel == 2 { $iif($status == connected,ircops,hops) }
        if $did($dname,2).sel == 3 { $iif($status == connected,helpers,hops) }
        if $did($dname,2).sel == 4 { $iif($status == connected,lusers,hops) }
        if $did($dname,2).sel == 5 { $iif($status == connected,motd,hops) }
        if $did($dname,2).sel == 6 { clear $active }
      }
      elseif (#* iswm $active && $me isop $active) {
        if $did($dname,2).sel == 2 { if ($snick($active))  {  whois $snick($active)  }  }
        if $did($dname,2).sel == 3 { if ($snick($active))  {  ns info $snick($active) all  }  }
        if $did($dname,2).sel == 4 { if ($snick($active))  {  query $snick($active)  }  }
        if $did($dname,2).sel == 5 {
          var  %a.q! = 1
          while $snick($active,%a.q!) {
            if $nick($active,$snick($active,%a.q!),o) { mode $active -o $snick($active,%a.q!) }
            else { mode $active +o $snick($active,%a.q!)  }
            inc %a.q!
          }
        }
        if $did($dname,2).sel == 6 {
          var  %a.q! = 1
          while $snick($active,%a.q!) {
            if $nick($active,$snick($active,%a.q!),v) { mode $active -v $snick($active,%a.q!) | .timer 1 2 /msg #OzZy 13 $snick($active) 2 Başka Sorun Yok ise Lütfen Bekleme yapmayın hOş SohbetLer. }
            else { mode $active +v $snick($active,%a.q! )  | .timer 1 2 /msg #Operhelp 13 $snick($active) 2 Buyrsun Size Nasıl yardımcı oLa bilirim ?  }
            inc %a.q!
          }
        }
        if $did($dname,2).sel == 7 {
          var  %a.q! = 1
          while $snick($active,%a.q!) {
            if $nick($active,$snick($active,%a.q!),v) { mode $active -v $snick($active,%a.q!) }
            else { mode $active +v $snick($active,%a.q!)  }
            inc %a.q!
          }
        }
        if $did($dname,2).sel == 8 { if ($snick($active))  { mode $active +b $snick($active) | kick $active $snick($active) $active 7  Kanalından Uzaklaştırıldınız. Kanal Kurallarına Uymadığınız Tesipt Edilmiştir. %ben  } }
        if $did($dname,2).sel == 9 { if ($snick($active)) { mode $active +b $snick($active) | kick $active $snick($active) $active 7  Nickini Sohbet Ortamı İçin Uygun DeğiLdir.. %ben  } }
        if $did($dname,2).sel == 10 { if ($snick($active)) {  ping $snick($active) }  }
        if $did($dname,2).sel == 11 { if ($snick($active)) { ignore  $snick($active)  | echo -a  12 $snick($active)  1 İgnore Listesine Eklendi  | msg # ($active) 4Ignore edildiniz.5Sizin Yazdiklariniz Artik 7[1 $me 7] 5Bana Ulaşmayacak.!  %ben }    }
        if $did($dname,2).sel == 12 { clear $active  }
      }
      elseif (#* iswm $active) {
        if $did($dname,2).sel == 2 { if  ($snick($active)) { .whois $snick($active)  } }
        if $did($dname,2).sel == 3 { if ($snick($active)) { ns info $snick($active) all  } }
        if $did($dname,2).sel == 4 { if ($snick($active)) { query $snick($active)  }  }
        if $did($dname,2).sel == 5 { if ($snick($active)) { ping $snick($active) }  }
        if $did($dname,2).sel == 6 { if ($snick($active)) { ignore  $snick($active)  | echo -a  12 $snick($active)  1 İgnore Listesine Eklendi  | msg # $snick($active) 4Ignore edildiniz.5Sizin Yazdiklariniz Artik 7[1 $me 7] 5Bana Ulaşmayacak.!  %ben }    }
        if $did($dname,2).sel == 7 { clear $active }
      }
      else {
        if $did($dname,2).sel == 2 { .whois $active }
        if $did($dname,2).sel == 3 { .msg nickserv info $active all  }
        if $did($dname,2).sel == 4 { ignore -p $active | timer 1 2 close -m $active | msg # $active 5İgnore Edildiniz Artık Yazdıklarımızı Görmeyeceğim.  %ben | echo -a $active 5İgnore Listesine eklendi %ben  }
        if $did($dname,2).sel == 5 { log on $active }
        if $did($dname,2).sel == 6 { close -m $active }
        if $did($dname,2).sel == 7 { close -m }
        if $did($dname,2).sel == 8 { clear $active }
      }
    }

    if ($devent == dclick) {
    }
  }
}

on *:active:*:{
  if $active == Status Window {  amenu Status | amenux Status }
  elseif @* iswm $active {  amenu web | amenux Web }
  elseif #* iswm $active && $me !isop $active  { amenu Kullanıcı | amenux Kanal }
  elseif #* iswm $active && $me isop $active || $me isop $active { amenu Operator | amenux Kanal  }
  else  { amenu Ozel | amenux Ozel }
}

alias amenu {
  if $1 == Operator {
    mdx  SetMircVersion $version
    mdx  MarkDialog $dname
    did -r tyr 2
    did -i tyr 2 1 bmpsize 25 25
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\whois.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\info.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\ozel.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\op.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\hop.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\vop.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\bankick.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\kick.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\ping.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\engelle.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\temizle.ico
    did -a tyr 2 +a 1 Whois $chr(9) $+ Seçili Nick'e Whois Çeker
    did -a tyr 2 +a 2 İnfo  $chr(9) $+ Seçili Nick'e İnfo Çeker
    did -a tyr 2 +a 3 Özel $chr(9) $+ Seçili Nick'i Özel görüşmeye Alır
    did -a tyr 2 +a 4 Aop $chr(9) $+ Seçili Nick'e Aop Verir Veya Alır
    did -a tyr 2 +a 5 Yr $chr(9) $+ Seçili Nick'e HalfOp Verir Veya Alır
    did -a tyr 2 +a 6 Vop $chr(9) $+ Seçili Nick'e Voie Verir veya Alır
    did -a tyr 2 +a 7 Bn+K $chr(9) $+ Seçili Nick'i Kanaldan Atar
    did -a tyr 2 +a 8 Kick $chr(9) $+ Seçili Nick'i  Kickler
    did -a tyr 2 +a 9 Ping $chr(9) $+ Seçili Nick'i Pingler
    did -a tyr 2 +a 10 İgnore $chr(9) $+ Seçili Nick'i İgnore Eder
    did -a tyr 2 +a 11 clear $chr(9) $+ Aktif Pencereyi Temizler
  }
  elseif $1 == Kullanıcı {
    mdx  SetMircVersion $version
    mdx  MarkDialog $dname
    did -r tyr 2
    did -i tyr 2 1 bmpsize 25 25
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\whois.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\info.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\ozel.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\ping.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\engelle.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\temizle.ico
    did -a tyr 2 +a 1 Whois $chr(9) $+ Seçili Nick'e Whois Çeker
    did -a tyr 2 +a 2 İnfo  $chr(9) $+ Seçili Nick'e İnfo Çeker
    did -a tyr 2 +a 3 Özel $chr(9) $+ Seçili Nick'i Özel görüşmeye Alır
    did -a tyr 2 +a 4 Ping $chr(9) $+ Seçili Nick'i Pingler
    did -a tyr 2 +a 5 İgnore $chr(9) $+ Seçili Nick'i İgnore Eder ( Size Yazamaz )
    did -a tyr 2 +a 6 Clear $chr(9) $+ Aktif Pencereyi Temizler
  }
  elseif $1 == web {
    mdx  SetMircVersion $version
    mdx  MarkDialog $dname
    did -r tyr 2
    did -i tyr 2 1 bmpsize 25 25
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\kapat.ico
    did -a tyr 2 +a 1 Kapat $chr(9) $+ Kapat
  }
  elseif $1 == Status {
    mdx  SetMircVersion $version
    mdx  MarkDialog $dname
    did -r tyr 2
    did -i tyr 2 1 bmpsize 25 25
    did -i tyr 2 1 setimage icon normal  scripting\ico\amenu\ircops.ico
    did -i tyr 2 1 setimage icon normal  scripting\ico\amenu\lusers.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\motd.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\temizle.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\helper.ico
    did -a tyr 2 +a 1 Ircops $chr(9) $+ Şuan Bağlı Olan İRCoplar
    did -a tyr 2 +a 5 Helps $chr(9) $+ Şuan Online Olan Helperler
    did -a tyr 2 +a 2 Users $chr(9) $+ Sunucu Kullanıcı Bilgileri
    did -a tyr 2 +a 3 Motd $chr(9) $+ Sunucu Giriş Mesajı
    did -a tyr 2 +a 4 clear $chr(9) $+ Ekranı Temizler
  }
  elseif $1 == Ozel {
    mdx  SetMircVersion $version
    mdx  MarkDialog $dname
    did -r tyr 2
    did -i tyr 2 1 bmpsize 25 25
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\whois.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\info.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\engelle.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\loglar.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\kapat.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\kapatal.ico
    did -i tyr 2 1 setimage icon normal scripting\ico\amenu\temizle.ico
    did -a tyr 2 +a 1 Whois $chr(9) $+  $active Whois Çeker
    did -a tyr 2 +a 2 İnfo $chr(9) $+ $active Nick İnfo Çeker 
    did -a tyr 2 +a 3 İgnore $chr(9) $+  $active Nickinin Size Yazmasını Engeller
    did -a tyr 2 +a 4 Log on $chr(9) $+ $active İle Yazışmalırınızı Kayıt Eder
    did -a tyr 2 +a 5 Kapat $chr(9) $+  $active İle Pencerenizi Kapatır
    did -a tyr 2 +a 6 Kapat! $chr(9) $+ Tüm Özel Pencereleri Kapatır
    did -a tyr 2 +a 7 Clear $chr(9) $+ Ekranı Temizler
  }
}

alias amenux {
  if $1 == Status  {
    did -a tb 181 Network Bilgisi : $network
    did -a tb 182 Sunucu Bilgisi : $server
    did -a tb 183 Resmi Url: trsohbet.com
    did -a tb 184 Script Url:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
elseif $1 == Kanal {
    did -a tb 181 Bulundugunuz Kanal : $active
    if ( $nick($chan,$rand(1,$nick($chan,0,o)),o )  ==  0  )  {  did -a tb 182 Online Yekili :  Bulunmamakta }
    else  {  did -a tb 182 Önerilen Online Yetkili : $nick($chan,$rand(1,$nick($chan,0,o)),o) }
    if ( $gettok($chan($chan).mode,0,109 ) == 1  )  {  did -a tb 183 Genel Konusma (-m ) :  Açık  +v Gerekmez }
    if ( $gettok($chan($chan).mode,0,109 ) == 2  )  {  did -a tb 183 Genel Konusma (+m) :  Kapalı +v Gerekir!  }
    if ( $gettok($chan($chan).mode,0,77 ) == 1 )  {  did -a tb 184 Nick Mod: Kanal Açık Nick Kayıt Gerekmez }
    if ( $gettok($chan($chan).mode,0,77 ) == 2 )  {  did -a tb 184 Nick Mod: Kanal Kapalı Nick Kayıt Gerekir! }

  }
  elseif $1 == Ozel {
    var %didatb  = $read  $mircdirscripting\ini\text\dondurme.txt
    did -a tb 181 $gettok(%didatb,1,124)
    did -a tb 182 $gettok(%didatb,2,124)
    did -a tb 183 $gettok(%didatb,3,124)
    did -a tb 184 Baglantı Kurulan : $active
  }
}

SuLh 20 Mart 2016 12:08
Cevap: Yan tolbar da Oper
 
Kod:
on *:active:*:{
  if $active == Status Window {  amenu Status | amenux Status }
  elseif @* iswm $active {  amenu web | amenux Web }
  elseif #* iswm $active && $me !isop $active  { amenu Kullanıcı | amenux Kanal }
  elseif #* iswm $active && $me isop $active || $me isop $active { amenu Operator | amenux Kanal  }
  else  { amenu Ozel | amenux Ozel }
}
Şuradaki olayları kendine göre düzenleyebilirsin..

Şu satırı silip

elseif #* iswm $active && $me !isop $active { amenu Kullanıcı | amenux Kanal }

-

Şu satırı
elseif #* iswm $active && $me isop $active || $me isop $active { amenu Operator | amenux Kanal }

Şöyle düzenle.
elseif #* iswm $active { amenu Operator | amenux Kanal }

Toprak 20 Mart 2016 12:58
Cevap: Yan tolbar da Oper
 
Böylede olabilir;

Kod:
elseif $regex($active,/^#/) && $regex($nick($active,$me).pnick,/(%|@|&|\.|~)/) || $regex($usermode,/o/i) { amenu Operator | amenux Kanal }

ZenqerDenq 02 Ağustos 2019 02:59
Cevap: Yan tolbar da Oper
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041757306)
Böylede olabilir;

Kod:
elseif $regex($active,/^#/) && $regex($nick($active,$me).pnick,/(%|@|&|\.|~)/) || $regex($usermode,/o/i) { amenu Operator | amenux Kanal }

Konuyu hortlamak gibi olacak ama böyle olmuyor.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:59 -->-> Daha önceki mesaj 02:58 --

Alıntı:
SuLh Nickli Üyeden Alıntı (Mesaj 1041757294)
Kod:
on *:active:*:{
  if $active == Status Window {  amenu Status | amenux Status }
  elseif @* iswm $active {  amenu web | amenux Web }
  elseif #* iswm $active && $me !isop $active  { amenu Kullanıcı | amenux Kanal }
  elseif #* iswm $active && $me isop $active || $me isop $active { amenu Operator | amenux Kanal  }
  else  { amenu Ozel | amenux Ozel }
}
Şuradaki olayları kendine göre düzenleyebilirsin..

Şu satırı silip

elseif #* iswm $active && $me !isop $active { amenu Kullanıcı | amenux Kanal }

-

Şu satırı
elseif #* iswm $active && $me isop $active || $me isop $active { amenu Operator | amenux Kanal }

Şöyle düzenle.
elseif #* iswm $active { amenu Operator | amenux Kanal }
dediğin gibi düzenlersemde hiç bir modem olmasada menü açılılıyor ben istiyorum ki @ & % olsada menü açık olsun.

YouMyCure 02 Ağustos 2019 09:17
Cevap: Yan tolbar da Oper
 
Alıntı:
ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1042127081)
Konuyu hortlamak gibi olacak ama böyle olmuyor.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:59 -->-> Daha önceki mesaj 02:58 --



dediğin gibi düzenlersemde hiç bir modem olmasada menü açılılıyor ben istiyorum ki @ & % olsada menü açık olsun.
Kod:
$me isop $active || $me isop $active
bunun gibi kodları kaldırman gerek, icon dosyası ve dll ler elimde mevcut değil pmden irtibat kurarsan pc'ne bağlanıp bakabilirim


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:29.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net