mIRC 7.49 download

(türkçe sürüm)

Sohbete Bağlan

(399 online)

Türkçe Mirc Sohbet programı 7.49 versiyonunu , sorunsuz ve tek download adresinden indirmek için TIKLAYIN

Proxy Host Koruması Dialog

Türkçe Mirc v7.49 Türkçe Sohbet Programını Hemen Bilgisayarınıza Yükleyin.

proxyhost

alias hosta { .$iif(!$dialog(hosta),dialog -m hosta hosta,dialog -c hosta hosta) }
dialog Hosta {
  title "Proxy Host Korumasi."
  size -1 -1 240 170
  option dbu
  box "", 1, 10 1 220 142
  edit "", 2, 17 32 64 10, return autohs
  list 3, 17 44 64 75, size
  button "Ekle", 4, 17 21 32 10
  button "SiL", 5, 49 21 32 10
  edit "", 6, 87 32 64 10, return autohs
  list 7, 87 44 64 75, size  
  button "Ekle", 8, 87 21 32 10
  button "SiL", 9, 119 21 32 10
  edit "", 10, 158 32 64 10, return autohs
  list 11, 158 44 64 75, size 
  button "Ekle", 12, 158 21 32 10
  button "SiL", 13, 190 21 32 10
  Radio "", 14, 17 124 7 10
  Radio "", 15, 70 124 7 10
  Radio "", 16, 123 124 7 10
  Radio "", 17, 176 124 7 10
  Text "Oper K+b", 19, 23 124 40 10, Center
  Text "Op K+b", 20, 76 124 40 10, Center
  Text "Oper Gzline", 21, 129 124 40 10, Center
  Text "Host Kapat", 22, 182 124 40 10, Center
  Button "Tamam Kapat", 23, 10 150 220 14,ok
  Text "Host Listesi" 24, 17 8 64 10, Center
  Text "Muaf Host Listesi" 25, 87 8 64 10, Center
  Text "Muaf Kanal Listesi" 26, 158 8 64 10, Center
}
on 1:dialog:Hosta:init:0: { 
  if ($isfile(scripts\host.txt) == $false) { write -c scripts\host.txt } | else { loadbuf -o $dname 3 scripts\host.txt }
  if ($isfile(scripts\muafhost.txt) == $false) { write -c scripts\muafhost.txt } | else { loadbuf -o $dname 7 scripts\muafhost.txt }
  if ($isfile(scripts\hmuafkanal.txt) == $false) { write -c scripts\hmuafkanal.txt } | else { loadbuf -o $dname 11 scripts\hmuafkanal.txt }
  if ($group(#hostadkb) == on) { did -c $dname 14 }
  if ($group(#hostopkb) == on) { did -c $dname 15 }
  if ($group(#hostgz) == on) { did -c $dname 16 }
  if ($group(#hostkapat) == on) { did -c $dname 17 }
}
#hostkapat on
#hostkapat end
on *:dialog:Hosta:sclick:*:{
  if ($did == 4) { if ($did(2) == $null) { echo -a  Lütfen Bosluk eklemeyiniz.  | return }
    elseif (#* iswm $did(2)) { echo -a  Lütfen kanal eklemeyiniz. Host listesidir. Örnek Host: *mchsi*  | return }
    else { write scripts\host.txt $did(2) | did -a $dname 3 $did(2) | did -r $dname 2 }
  }
  if ($did == 5) { if ($did(3).sel == 0) { echo -a  Silmek Için Bir Satir Seçiniz...  | return }
    else { write -dl $+ $did(3).sel scripts\host.txt | did -d $dname 3 $did(3).sel }
  }
  if ($did == 8) { if ($did(6) == $null) { echo -a  Lütfen Bosluk eklemeyiniz.  | return }
    elseif (#* iswm $did(6)) { echo -a  Lütfen kanal eklemeyiniz. Muaf Host listesidir. Örnek Host: *Oper*  | return }
    else { write scripts\muafhost.txt $did(6) | did -a $dname 7 $did(6) | did -r $dname 6 }
  }
  if ($did == 9) { if ($did(7).sel == 0) { echo -a  Silmek Için Bir Satir Seçiniz...  | return }
    else { write -dl $+ $did(7).sel scripts\muafhost.txt | did -d $dname 7 $did(7).sel }
  }
  if ($did == 12) { if ($did(10) == $null) { echo -a  Lütfen Bosluk eklemeyiniz.  | return } 
    elseif (#* !iswm $did(10)) { echo -a  Muaf Kanal Listesidir Nick eklemeyiniz. örnek Kanal: #Aytac  | return }
    else { write scripts\hmuafkanal.txt $did(10) | did -a $dname 11 $did(10) | did -r $dname 10 }
  }
  if ($did == 13) { if ($did(11).sel == 0) { echo -a  Silmek Için Bir Satir Seçiniz...  | return }
    else {  write -dl $+ $did(11).sel scripts\hmuafkanal.txt | did -d $dname 11 $did(11).sel }
  }
  if ($did(14).state == 1) { .enable #hostadkb | .disable #hostgz | .disable #hostopkb | .disable #hostkapat }
  if ($did(15).state == 1) { .enable #hostopkb  | .disable #hostgz | .disable #hostkapat | .disable #hostadkb }
  if ($did(16).state == 1) { .enable #hostgz  | .disable #hostadkb | .disable #hostopkb | .disable #hostkapat }
  if ($did(17).state == 1) { .enable #hostkapat  | .disable #hostgz | .disable #hostopkb | .disable #hostadkb }
}
#hostkapat on
#hostkapat end
#hostadkb off
on !*:join:#:{
  if (o isin $usermode)  {
    var %a 1 |  while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a  }
    if $istok(%mnall,$nick,32) { return }
    if $istok(%mkall,$chan,32) { return }
    var %c 1
    while (%c <= $lines(scripts\hmuafkanal.txt)) {
      if ($read(scripts\hmuafkanal.txt,%c) iswm $chan) { return }
      inc %c
    }
    var %c 1
    while (%c <= $lines(scripts\muafhost.txt)) {
      if ($read(scripts\muafhost.txt,%c) iswm $address($nick,2)) { return }
      inc %c
    }
    var %hd $lines(scripts\host.txt) 
    while (0 <= %hd) { 
      if ($read(scripts\host.txt,%hd) iswm $address($nick,2)) { 
        kick $chan $nick  Yasak Host!   
        mode # +b $+(*!*@,$v1)
        break
      } 
      dec %hd
    } 
  }
}
#hostadkb end
#hostopkb off
on !*:join:#:{
  if ($me isop $chan) || ($me ishelp $chan)  {
    var %a 1 |  while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a  }
    if $istok(%mnall,$nick,32) { return }
    if $istok(%mkall,$chan,32) { return }
    var %c 1
    while (%c <= $lines(scripts\hmuafkanal.txt)) {
      if ($read(scripts\hmuafkanal.txt,%c) iswm $chan) { return }
      inc %c
    }
    var %c 1
    while (%c <= $lines(scripts\muafhost.txt)) {
      if ($read(scripts\muafhost.txt,%c) iswm $address($nick,2)) { return }
      inc %c
    }
    var %hd $lines(scripts\host.txt) 
    while (0 <= %hd) { 
      if ($read(scripts\host.txt,%hd) iswm $address($nick,2)) { 
        kick $chan $nick  Yasak Host!   
        mode # +b $+(*!*@,$v1)
        break
      } 
      dec %hd
    } 
  }
}
#hostopkb end
#hostgz off
on !*:join:#:{
  if (o isin $usermode)  {
    var %a 1 |  while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a  }
    if $istok(%mnall,$nick,32) { return }
    if $istok(%mkall,$chan,32) { return }
    var %c 1
    while (%c <= $lines(scripts\hmuafkanal.txt)) {
      if ($read(scripts\hmuafkanal.txt,%c) iswm $chan) { return }
      inc %c
    }
    var %c 1
    while (%c <= $lines(scripts\muafhost.txt)) {
      if ($read(scripts\muafhost.txt,%c) iswm $address($nick,2)) { return }
      inc %c
    }
    var %hd $lines(scripts\host.txt) 
    while (0 <= %hd) { 
      if ($read(scripts\host.txt,%hd) iswm $address($nick,2)) { 
        .gzline $nick +30d  Yasak Host!   
        break
      } 
      dec %hd
    } 
  }
}
#hostgz end

Benzer yazılar

IP Takip Kodu
Badnick Koruması Op/Admin
ıp locator (ıp yer tespıt)
Regex Kontrol
DNSBL Proxy Koruma
Spam kısa alias kodları
Services bot sokma
Şişe çevirme oyunu
Socket Cycle v1-v2-v3 Hepsinin son versionu
Radyo dinleyici kayit sistemi
mIRC Join Ulke-Sehir Gösterme Codu
!zar – komutu hediye verme


IRCALEM.Net © Tüm Hakları Saklıdır.

Bu site YuzukNET iştirakıdır.