lookjapan.COM - IRC ve mIRC dünyasının forumu!   buy vps


  lookjapan.COM - IRC ve mIRC dünyasının forumu! IF - mIRC Scripting mIRC Scripting Sorunları


Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 20 Mart 2016, 03:34   #1
 
OzZy - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 20 Mart 2016
Mesajlar: 3
WEB Sitesi: www.trsohbet.com
IRC Sunucusu: Trsohbet
İlgi Alanı:
Alınan Beğeni: 0
Standart 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:
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: www.trsohbet.com
  }
  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
  }
}
 OzZy isimli Üye şimdilik offline konumundadır   Alıntı
Alt 20 Mart 2016, 11:54   #2
Bir umuttur yaşamak
 
Toprak - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 09 Eylül 1991
Bulunduğu yer: Konya
Mesajlar: 323
WEB Sitesi: https://www.teklan.com.tr/
IRC Sunucusu: irc.teklan.com.tr
İlgi Alanı: mIRC Scripting
Alınan Beğeni: 211
Standart Cevap: Yan tolbar da Oper

OzZy Nickli Üyeden Alıntı Mesajı göster
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:
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: www.trsohbet.com
  }
  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
  }
}

Kodları tam paylaşırmısınız.





Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.
 Toprak isimli Üye şimdilik offline konumundadır   Alıntı
Alt 20 Mart 2016, 14:20   #3
 
Rohit - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 21 Şubat 2015
Bulunduğu yer: Macedonia
Mesajlar: 10
WEB Sitesi: vampirdiyari.com
IRC Sunucusu: irc.olips.org
İlgi Alanı:
Alınan Beğeni: 10
Standart Cevap: Yan tolbar da Oper

kodlari inceledim ama kodlarin bu kisminda bunu engelleyen kodlari bulamadim, sanirim kodlarin tamami bu kadar degil, tamamini paylasirsan yardimci olabiliriz.





i wont give up..
 Rohit isimli Üye şimdilik offline konumundadır   Alıntı
Alt 06 Nisan 2016, 11:45   #4
 
OzZy - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 20 Mart 2016
Mesajlar: 3
WEB Sitesi: www.trsohbet.com
IRC Sunucusu: Trsohbet
İlgi Alanı:
Alınan Beğeni: 0
Standart Cevap: Yan tolbar da Oper

kodların tamamı bu kadar dır





Vazifeyi ihmale sürüklüyene merhamet memlekete ihanettir Gazi Mustafa Kemal Atatürk
 OzZy isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
oper, tolbar, yan


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Oper giriş bildirimleri.. Entrance Unreal - Parça Kodlar 2 12 Nisan 2016 20:36
OAScript (Oper/Admin) Code mIRC Script Tanıtımları 0 25 Ekim 2015 12:56
Oper nickinize ve nick şifrenize göre oper girmek. Entrance Unreal - Parça Kodlar 1 25 Eylül 2015 16:21
Oper whois gizleme. Entrance Unreal - Parça Kodlar 0 24 Temmuz 2015 12:16
CR Root Admin Oper Karşılama ve Oper Açtı Uyarısı Goemon ConferenceRoom 0 13 Şubat 2015 21:04

web hosting web hosting
 buy vds
 vps buy

Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.