yamanlar halı yıkama şemikler halı yıkama nergiz halı yıkama mavişehir halı yıkama karşıyaka halı yıkama gümüşpala halı yıkama bornova halı yıkama alaybey halı yıkama izmir halı yıkama maltepe escort kadıköy escort pendik escort ataşehir escort ümraniye escort üsküdar escort kartal escort mersin escort izmir escort başakşehir dershane
sohbet sitesi reklam sohbet sitesi reklam sohbet sitesi reklam sohbet sitesi reklam

Yan tolbar da Oper

OzZy

New Member
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
  }
}
 

Toprak

Bir umuttur yaşamak<img src="http://www.ircdforum.
Coder
Cevap: 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
  }
}
Kodları tam paylaşırmısınız.
 

Rohit

New Member
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.
 

irc forumları 1xbet giriş