miRC | Türkçe mIRC indir - Resmi mIRC indirme Sitesi

Kanal Modları Popups

15 Mart 2019 • 02:14 OxiGeN Hazır Kodlar

menu channel {
  .Kanal Mod
..CTCP( +f [5c#M3]=7 ):/mode # +f [5c#M3]:7
..Flood Giriş( +f [6j#R3]=4 ):/mode # +f [6j#R3]:4
..KNOCK( +f [4k]=8 ):/mode # +f [4k]:8
..Mesaj Flood Genel( +f [10m#m5]=6 ):/mode # +f [10m#m5]:6
..Nick Değiştirme( +f [3n#N1]=10 ):/mode # +f [3n#N1]:10
..Mesaj Flood 1 kullancı( +f [5t#b]=5):/mode #kanaladı +f [5t#b]:10
..-
..$iif(B isincs $chan(#).mode,$style(1)) +B (Büyük Harf Yasağı): if (B isincs $chan(#).mode) { mode # -B } | else { mode # +B }
..$iif(n isincs $chan(#).mode,$style(1)) +n (Kanalda bulunmayan birinden gelecek mesajlarin bloklandigi kanal): if (n isincs $chan(#).mode) { mode # -n } | else { mode # +n }
..$iif(t isincs $chan(#).mode,$style(1)) +t (Sadece +hoaq kiplerini almis kullanicilarin /topic komutunu kullanabilecegi kanal): if (t isincs $chan(#).mode) { mode # -t } | else { mode # +t }
..$iif(s isincs $chan(#).mode,$style(1)) +s (Gizli bir kanal): if (s isincs $chan(#).mode) { mode # -s } | else { mode # +s }
..$iif(p isincs $chan(#).mode,$style(1)) +p (Ozel bir kanal): if (p isincs $chan(#).mode) { mode # -p } | else { mode # +p }
..$iif(i isincs $chan(#).mode,$style(1)) +i (Sadece davetle girilebilen kanal): if (i isincs $chan(#).mode) { mode # -i } | else { mode # +i }
..$iif(m isincs $chan(#).mode,$style(1)) +m (Sadece +vhoaq kiplerini almis kullanicilarin konusabilecegi kanal ): if (m isincs $chan(#).mode) { mode # -m } | else { mode # +m }
..$iif(l isincs $chan(#).mode,$style(1)) +l (Kanala girebilicek olan maximum kullanici sayisini belirler $chr(8) $chan(#).limit ): if (l isincs $chan(#).mode) { mode # -l } | else { mode # +l $$?=" Limit? " }
..$iif(k isincs $chan(#).mode,$style(1)) +k ( = Kanala giris icin gereken anahtar $chr(8) $chan(#).key ): if (k isincs $chan(#).mode) { mode # -k $chan(#).key } | else { mode # +k $$?=" Şifre? " }
..$iif(R isincs $chan(#).mode,$style(1)) +R (Sadece kayitli (+r) kullanicilarin girebilecegi kanal.): if (R isincs $chan(#).mode) { mode # -R } | else { mode # +R }
..$iif(Q isincs $chan(#).mode,$style(1)) +Q (Kick atilmayan kanal.): if (Q isincs $chan(#).mode) { mode # -Q } | else { mode # +Q }
..$iif(N isincs $chan(#).mode,$style(1)) +N (Nick degisikligi yapilamayan kanal): if (N isincs $chan(#).mode) { mode # -N } | else { mode # +N }
..$iif(M isincs $chan(#).mode,$style(1)) +M (Sadece kayitli (+r) veya voice'i olan (+v) kullanicilarin konusabilecegi kanal): if (M isincs $chan(#).mode) { mode # -M } | else { mode # +M }
..$iif(G isincs $chan(#).mode,$style(1)) +G (Yasak kelimelerin sansurlenecegi kanal): if (G isincs $chan(#).mode) { mode # -G } | else { mode # +G }
..$iif(C isincs $chan(#).mode,$style(1)) +C (CTCp metinlerini engeller): if (C isincs $chan(#).mode) { mode # -C } | else { mode # +C }
..$iif(L isincs $chan(#).mode,$style(1)) +L #kanal2 (Kanal linkleme. (kanal dolu ise, sonraki kullanici otomatik olarak  girer.)): if (L isincs $chan(#).mode) { mode # -L } | else { mode # +L $$?="Yönlendirilecek Kanal" }
..$iif(f isincs $chan(#).mode,$style(1)) +f ([*]: = Flood korumasi.): if (f isincs $chan(#).mode) { mode # -f } | else { mode # +f $$?=" satır:saniye 3:5 " }
..$iif(u isincs $chan(#).mode,$style(1)) +u (Kanal yonetici kiplerinin gizli oldugu kanal): if (u isincs $chan(#).mode) { mode # -u } | else { mode # +u }
..$iif(D isincs $chan(#).mode,$style(1)) +D (/me veya /ame mesajlarinin kanala gonderilmesini engeller): if (D isincs $chan(#).mode) { mode # -D } | else { mode # +D }
..$iif(c isincs $chan(#).mode,$style(1)) +c (Kanal icerisinde renk kullanimini engeller): if (c isincs $chan(#).mode) { mode # -c } | else { mode # +c }
..$iif(A isincs $chan(#).mode,$style(1)) +A (Sadece Sunucu/Ag yoneticilerinin girebilecegi kanal. (Yoneticiler icin.)): if (A isincs $chan(#).mode) { mode # -A } | else { mode # +A }
..$iif(z isincs $chan(#).mode,$style(1)) +z (Sadece Guvenli Baglanti (SSL) kullananlarin girebilecegi kanal): if (z isincs $chan(#).mode) { mode # -z } | else { mode # +z }
..$iif(K isincs $chan(#).mode,$style(1)) +K (KNOCK komutuna izin verilmeyen kanal): if (u isincs $chan(#).mode) { mode # -u } | else { mode # +u }
..$iif(O isincs $chan(#).mode,$style(1)) +O (Sadece IRCoplarin girebilecegi kanal (Yoneticiler icin.) ): if (K isincs $chan(#).mode) { mode # -K } | else { mode # +K }
..$iif(S isincs $chan(#).mode,$style(1)) +S (Renkli yazilarin, renkli kodlardan arindirilip kanala gonderilmesini saglar): if (S isincs $chan(#).mode) { mode # -S } | else { mode # +S }
..$iif(V isincs $chan(#).mode,$style(1)) +V (INVITE 'in kapali oldugu kanal): if (V isincs $chan(#).mode) { mode # -V } | else { mode # +V }
..$iif(T isincs $chan(#).mode,$style(1)) +T (Noticenin komutunun kullanilamayacagi kanal): if (T isincs $chan(#).mode) { mode # -T } | else { mode # +T }
..$iif(u isincs $chan(#).mode,$style(1)) +u (Kanal yonetici kiplerinin gizli oldugu kanal): if (u isincs $chan(#).mode) { mode # -u } | else { mode # +u }
.-
}

menu channel {

.Kanal Mod

..CTCP( +f [5c#M3]=7 ):/mode # +f [5c#M3]:7

..Flood Giriş( +f [6j#R3]=4 ):/mode # +f [6j#R3]:4

..KNOCK( +f [4k]=8 ):/mode # +f [4k]:8

..Mesaj Flood Genel( +f [10m#m5]=6 ):/mode # +f [10m#m5]:6

..Nick Değiştirme( +f [3n#N1]=10 ):/mode # +f [3n#N1]:10

..Mesaj Flood 1 kullancı( +f [5t#b]=5):/mode #kanaladı +f [5t#b]:10

..-

..$iif(B isincs $chan(#).mode,$style(1)) +B (Büyük Harf Yasağı): if (B isincs $chan(#).mode) { mode # -B } | else { mode # +B }

..$iif(n isincs $chan(#).mode,$style(1)) +n (Kanalda bulunmayan birinden gelecek mesajlarin bloklandigi kanal): if (n isincs $chan(#).mode) { mode # -n } | else { mode # +n }

..$iif(t isincs $chan(#).mode,$style(1)) +t (Sadece +hoaq kiplerini almis kullanicilarin /topic komutunu kullanabilecegi kanal): if (t isincs $chan(#).mode) { mode # -t } | else { mode # +t }

..$iif(s isincs $chan(#).mode,$style(1)) +s (Gizli bir kanal): if (s isincs $chan(#).mode) { mode # -s } | else { mode # +s }

..$iif(p isincs $chan(#).mode,$style(1)) +p (Ozel bir kanal): if (p isincs $chan(#).mode) { mode # -p } | else { mode # +p }

..$iif(i isincs $chan(#).mode,$style(1)) +i (Sadece davetle girilebilen kanal): if (i isincs $chan(#).mode) { mode # -i } | else { mode # +i }

..$iif(m isincs $chan(#).mode,$style(1)) +m (Sadece +vhoaq kiplerini almis kullanicilarin konusabilecegi kanal ): if (m isincs $chan(#).mode) { mode # -m } | else { mode # +m }

..$iif(l isincs $chan(#).mode,$style(1)) +l (Kanala girebilicek olan maximum kullanici sayisini belirler $chr(8) $chan(#).limit ): if (l isincs $chan(#).mode) { mode # -l } | else { mode # +l $$?=" Limit? " }

..$iif(k isincs $chan(#).mode,$style(1)) +k ( = Kanala giris icin gereken anahtar $chr(8) $chan(#).key ): if (k isincs $chan(#).mode) { mode # -k $chan(#).key } | else { mode # +k $$?=" Şifre? " }

..$iif(R isincs $chan(#).mode,$style(1)) +R (Sadece kayitli (+r) kullanicilarin girebilecegi kanal.): if (R isincs $chan(#).mode) { mode # -R } | else { mode # +R }

..$iif(Q isincs $chan(#).mode,$style(1)) +Q (Kick atilmayan kanal.): if (Q isincs $chan(#).mode) { mode # -Q } | else { mode # +Q }

..$iif(N isincs $chan(#).mode,$style(1)) +N (Nick degisikligi yapilamayan kanal): if (N isincs $chan(#).mode) { mode # -N } | else { mode # +N }

..$iif(M isincs $chan(#).mode,$style(1)) +M (Sadece kayitli (+r) veya voice'i olan (+v) kullanicilarin konusabilecegi kanal): if (M isincs $chan(#).mode) { mode # -M } | else { mode # +M }

..$iif(G isincs $chan(#).mode,$style(1)) +G (Yasak kelimelerin sansurlenecegi kanal): if (G isincs $chan(#).mode) { mode # -G } | else { mode # +G }

..$iif(C isincs $chan(#).mode,$style(1)) +C (CTCp metinlerini engeller): if (C isincs $chan(#).mode) { mode # -C } | else { mode # +C }

..$iif(L isincs $chan(#).mode,$style(1)) +L #kanal2 (Kanal linkleme. (kanal dolu ise, sonraki kullanici otomatik olarak girer.)): if (L isincs $chan(#).mode) { mode # -L } | else { mode # +L $$?="Yönlendirilecek Kanal" }

..$iif(f isincs $chan(#).mode,$style(1)) +f ([*]: = Flood korumasi.): if (f isincs $chan(#).mode) { mode # -f } | else { mode # +f $$?=" satır:saniye 3:5 " }

..$iif(u isincs $chan(#).mode,$style(1)) +u (Kanal yonetici kiplerinin gizli oldugu kanal): if (u isincs $chan(#).mode) { mode # -u } | else { mode # +u }

..$iif(D isincs $chan(#).mode,$style(1)) +D (/me veya /ame mesajlarinin kanala gonderilmesini engeller): if (D isincs $chan(#).mode) { mode # -D } | else { mode # +D }

..$iif(c isincs $chan(#).mode,$style(1)) +c (Kanal icerisinde renk kullanimini engeller): if (c isincs $chan(#).mode) { mode # -c } | else { mode # +c }

..$iif(A isincs $chan(#).mode,$style(1)) +A (Sadece Sunucu/Ag yoneticilerinin girebilecegi kanal. (Yoneticiler icin.)): if (A isincs $chan(#).mode) { mode # -A } | else { mode # +A }

..$iif(z isincs $chan(#).mode,$style(1)) +z (Sadece Guvenli Baglanti (SSL) kullananlarin girebilecegi kanal): if (z isincs $chan(#).mode) { mode # -z } | else { mode # +z }

..$iif(K isincs $chan(#).mode,$style(1)) +K (KNOCK komutuna izin verilmeyen kanal): if (u isincs $chan(#).mode) { mode # -u } | else { mode # +u }

..$iif(O isincs $chan(#).mode,$style(1)) +O (Sadece IRCoplarin girebilecegi kanal (Yoneticiler icin.) ): if (K isincs $chan(#).mode) { mode # -K } | else { mode # +K }

..$iif(S isincs $chan(#).mode,$style(1)) +S (Renkli yazilarin, renkli kodlardan arindirilip kanala gonderilmesini saglar): if (S isincs $chan(#).mode) { mode # -S } | else { mode # +S }

..$iif(V isincs $chan(#).mode,$style(1)) +V (INVITE 'in kapali oldugu kanal): if (V isincs $chan(#).mode) { mode # -V } | else { mode # +V }

..$iif(T isincs $chan(#).mode,$style(1)) +T (Noticenin komutunun kullanilamayacagi kanal): if (T isincs $chan(#).mode) { mode # -T } | else { mode # +T }

..$iif(u isincs $chan(#).mode,$style(1)) +u (Kanal yonetici kiplerinin gizli oldugu kanal): if (u isincs $chan(#).mode) { mode # -u } | else { mode # +u }

}

» Devamını Oku

Yorum yaz mod, modlar, popups

Zamanlı Badnick Kick

27 Ocak 2019 • 03:15 OxiGeN Hazır Kodlar

» Devamını Oku

Yorum yaz

Altı Çizgili Nick

21 Ocak 2019 • 21:39 OxiGeN Hazır Kodlar

» Devamını Oku

Yorum yaz

Kanal Erişim Listesi Düzenleme

15 Ocak 2019 • 02:00 OxiGeN Hazır Kodlar

Kanal Erişim Listesi Düzenleme Dialogu dialog Kanal-Access-Listesi { title “Kanal Erişim Listesi Düzenleme” size -1 -1 183 171 option dbu list 2, 4 25 75 119, sort size vsbar text “NICK”, 1, 83 24 17 10 edit “”, 4, 149 64 27 10 button “Tamam”, 5, 144 80 32 12 text “ACCESS DUZENLE”, 6, 82 65 44 8 button “SEÇİLİ […]

» Devamını Oku

Yorum yaz

mIRC Hikayesi

02 Aralık 2018 • 18:45 OxiGeN IRC, miRC

mIRC Hikayesi En popüler sosyalleşme platformlarından biri olan mIRC ilk zamanlarında aşırı bağımlı kullanıcılara sahipti ve gençler internet kafelere yüklü miktarlarda bu platformda bulunmak için ücret ödüyorlardı. 90 ların sonları 2000 li yılların başlarından günümüze kadar ulaşan mIRC ile dünyanın dört bir yanındaki gençler sohbet ediyorlardı. Sohbetleri mIRC ile gelişmiş şekilde kullanabiliyorlardı. mIRC ise 1995 yılında Microsoft Windows için oluşturulmuş […]

» Devamını Oku

Yorum yaz IRC, irc hikayesi, mirc, mirc hikayesi

mIRC Küfür Koruması (Socket Kullanarak)

19 Kasım 2018 • 00:49 OxiGeN Hazır Kodlar

Sitenize Eklediğiniz txt dosyasından okutularak küfür koruma işlevi gören ufak bir kod.

on *:load: { 
  .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Küfür Koruması $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: Küfür Koruması$chr(40) $+ v5.4 $+ $chr(41))
  echo -a _____________________________________________________________________________________
  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Add-On yükleniyor... 
  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Çalışan mIRC15 $version 0Sistem15 Windows $+ $os 
  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@outlook.com.tr 
  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Web: 15www.0,1Turkirc.com
  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  15,1 Copyright 12©15 1999-2018 
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  echo -a 4,1[15,1 NOT: 4,1] 0,1 kufur.txt Dosyası oluşturarak siteadresiniz.com adresinizin ana dizinine atınız.
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}

Menu Channel {
  -
  $iif($group(#Kufurkoruma) == on,$style(1) Kufur Koruma  [Açık],Kufur Koruma [Kapalı]) { $iif($group(#Kufurkoruma) == on, .disable  #Kufurkoruma, .enable #Kufurkoruma) }
  -
}

#Kufurkoruma off
on @*:text:*:#: bw $1-
on @*:action:*:#: bw $1-
on @*:notice:*:#: bw $1-
#Kufurkoruma end

on *:sockopen:bw*:{
  if (!$sockerr) {
    tokenize 96 $str($chr(96) sockwrite -n $sockname,2)
    $1 GET /kufur.txt HTTP/1.1
    $2 Host: $+($sock($sockname).addr,$str($crlf,2))
  }
}
alias -l bw {
  var %b = $+(bw,$site,$r(1,9999),$ticks)
  if ($sock(%b)) sockclose $v1
  sockopen %b sitenizinadi.com 80 
  set -e %1- $strip($1-) | set -e %1-- kick # $nick Küfür etmek yasaktır!
}
on *:sockread:bw*:{
  if (!$sockerr) {
    if (!$sock($sockname).mark) {
      var %b | sockread %b
      if (!%b) sockmark $sockname 1 | halt
    }
    while ($sock($sockname).rq > 0) {
      sockread -fn &bw
      if ($regex(%1-,/(^| )\Q $+ $bvar(&bw,1-).text $+ \E\b/)) {
        %1-- | unset %1* | sockclose $sockname
      }
    }
  }
}

on *:load: {

.echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Küfür Koruması $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: Küfür Koruması$chr(40) $+ v5.4 $+ $chr(41))

echo -a _____________________________________________________________________________________

echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=- 0,1 Add-On yükleniyor...

echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=- 0,1 Çalışan mIRC15 $version 0Sistem15 Windows $+ $os

echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=- 0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@outlook.com.tr

echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=- 0,1 Web: 15www.0,1Turkirc.com

echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=- 15,1 Copyright 12©15 1999-2018

echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

echo -a 4,1[15,1 NOT: 4,1] 0,1 kufur.txt Dosyası oluşturarak siteadresiniz.com adresinizin ana dizinine atınız.

echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

}

Menu Channel {

$iif($group(#Kufurkoruma) == on,$style(1) Kufur Koruma [Açık],Kufur Koruma [Kapalı]) { $iif($group(#Kufurkoruma) == on, .disable #Kufurkoruma, .enable #Kufurkoruma) }

}

#Kufurkoruma off

on @*:text:*:#: bw $1-

on @*:action:*:#: bw $1-

on @*:notice:*:#: bw $1-

#Kufurkoruma end

on *:sockopen:bw*:{

if (!$sockerr) {

tokenize 96 $str($chr(96) sockwrite -n $sockname,2)

$1 GET /kufur.txt HTTP/1.1

$2 Host: $+($sock($sockname).addr,$str($crlf,2))

}

alias -l bw {

var %b = $+(bw,$site,$r(1,9999),$ticks)

if ($sock(%b)) sockclose $v1

sockopen %b sitenizinadi.com 80

set -e %1- $strip($1-) | set -e %1-- kick # $nick Küfür etmek yasaktır!

}

on *:sockread:bw*:{

if (!$sockerr) {

if (!$sock($sockname).mark) {

var %b | sockread %b

if (!%b) sockmark $sockname 1 | halt

}

while ($sock($sockname).rq > 0) {

sockread -fn &bw

if ($regex(%1-,/(^| )\Q $+ $bvar(&bw,1-).text $+ \E\b/)) {

%1-- | unset %1* | sockclose $sockname

}

Dosyayı Buradan indirebilirsiniz. kufur.txt

» Devamını Oku

Yorum yaz

Bağlantı Menüsü

15 Kasım 2018 • 00:26 OxiGeN Hazır Kodlar

Basit bir mirc Server Bağlantı menüsü, umarım işinize yarar.

menu menubar,channel,status {
  -
  » • Bağlantı Menü • «:conn
  -
}
alias conn {
  if ($dialog(connect) == $null) { dialog -m connect connect } 
  else { .echo -a -Bağlantı İletişim Menüsü Çalışıyor.. } 
}
alias -l conn.load.net {
  if ($exists(servers) == $false) { mkdir servers | write -c servers\delete.txt DELETE }
  did -r $dname 101 | %g = 1
  while ($findfile(servers\,*.txt,%g)) {
    did -a $dname 101 $remove($nopath($findfile(servers\,*.txt,%g)),.txt)
    inc %g
  }  
  unset %g
}
alias -l conn.load.serv {
  did -r $dname 201 | %f =  servers\ $+ $did($dname,101,$did($dname,101).sel).text | %f = %f $+ .txt | %g = 2
  while ($read(%f,%g)) {
    did -a $dname 201 $gettok($read(%f,%g),1,58)
    inc %g
  }
}
alias -l conn.rand.ident {
  return $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)
}
alias -l conn.info.serv {
  %kk = $1 $+ * 
  %l = $read(servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt,w,%kk)
  did -a $dname 602 $gettok(%l,2,58)
  did -a $dname 604 $gettok(%l,4,58)
  did -a $dname 505 $mid($gettok(%l,3,58),1,4)
  did -a $dname 505 $mid($gettok(%l,3,58),6,4)
  did -a $dname 505 $mid($gettok(%l,3,58),11,4)
  did -a $dname 505 $mid($gettok(%l,3,58),16,4)
  did -a $dname 505 $mid($gettok(%l,3,58),21,4)
  did -a $dname 505 $mid($gettok(%l,3,58),26,4)
  did -a $dname 505 $mid($gettok(%l,3,58),31,4)
  did -c $dname 505 1 | unset %l %kk
}
alias -l conn.add.net { 
  set %addred $$?="Ağ Adı? Örnek: Sohbet"
  write servers\ $+ %addred $+ .txt  < $+ %addred $+ >
  conn.load.net | conn.load.serv 
}
alias -l conn.add.serv {
  if (!$did($dname,101,$did($dname,101).sel).text) { echo -at Please select the Network you would like to add the server. | halt }
  set %addserv1 $$?="Add server from: $did($dname,101,$did($dname,101).sel).text $+ . Ex: irc.undernet.org"
  set %addserv2 $$?="Server Adı? Örnek: Sohbet"
  set %addserv3 $$?="Ports?. Ex: 6667,6668"
  set %addserv4 $$?="Server ülke. Örnek: TR, Turkiye"
  write servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt  %addserv2 $+ : $+ %addserv1 $+ : $+ %addserv3 $+ : $+ %addserv4 
  unset  %addserv1 %addserv2 %addserv3 %addserv4  
  conn.load.serv
}
alias -l conn.rem.net {
  if (!$did($dname,101,$did($dname,101).sel).text) { echo -at Lütfen kaldırmak istediğiniz Ağı seçin. | halt }  
  set %n $$?!="Kaldırmak istediğine emin misin? $did($dname,101,$did($dname,101).sel).text "
  if (%n) { .remove servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt | conn.load.net | conn.load.serv  }
  unset %n 
}
alias -l conn.rem.serv {
  if (!$did($dname,201,$did($dname,201).sel).text) { echo -at Lütfen listeden kaldırmak istediğiniz sunucuyu seçin. | halt }
  set %n $$?!="Kaldırmak istediğine emin misin? $did($dname,201,$did($dname,201).sel).text "
  if (%n) {  
    %l = $read(servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt,w,$did($dname,201,$did($dname,201).sel).text $+ *)
    write -dl $+ $readn servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt
    conn.load.serv 
  }
  unset %n  %l
}
alias -l conn.save.con { 
  .server $did($dname,602).text $did($dname,505).text
  set %conn.auto.serv $did($dname,602).text $did($dname,505).text 
  set %conn.modes.me $did($dname,307)
  var %nick = $did($dname,301)
  var %anick = $did($dname,302)
  if (%nick && %nick != $me) .nick %nick
  elseif (!%nick) .nick Nick1
  if (%anick) .anick %anick
  else .anick Nick2
  set %conn.ident.sel $did($dname,303).state
  var %ident_a = $did($dname,305)
  var %ident_b = $did($dname,306)
  if (%conn.ident.sel) { .identd on $iif(%ident_a,$ifmatch,None) }
  else { .identd on $iif(%ident_b,$ifmatch,None) }
  set %conn.ident $iif(%ident_a,$ifmatch,None)
  echo -a ok
}

dialog connect {
  title "Bağlantı Menüsü"
  size -1 -1 386 126
  option dbu
  box "Ağ", 100, 2 2 101 122
  list 101, 4 10 97 100, size vsbar
  button "Ekle", 102, 26 110 17 12
  button "Sil", 103, 66 110 17 12
  box "Servers", 200, 105 2 101 122
  list 201, 107 10 97 100, size vsbar
  button "Ekle", 202, 129 110 17 12
  button "Sil", 203, 168 110 17 12
  box "", 300, 208 2 176 44
  text "Nick:", 2, 210 11 25 8, center
  edit "", 301, 236 10 48 10, autohs
  text "aNick:", 4, 210 23 25 8, center
  edit "", 302, 236 22 48 10, autohs
  radio "Ident:", 303, 290 10 38 10
  radio "Restgele", 304, 290 22 44 10
  edit "", 305, 334 10 48 10, autohs
  edit "", 306, 334 22 48 10, read autohs
  text "Bağlanınca Modlar:", 10, 275 35 58 8, center
  edit "", 307, 334 34 48 10, autohs
  box "", 400, 208 46 176 22
  button "Bağlantı Kopar", 401, 210 53 43 12
  button "Bağlan", 402, 278 53 37 12
  button "Kapat", 403, 345 53 37 12, ok cancel
  box "", 500, 208 68 61 56
  check "Açılışta Bağlan", 501, 210 73 50 10
  check "Açılışta Göster", 502, 210 90 50 10
  text "Port:", 504, 209 111 16 8
  combo 505, 228 109 40 50, size drop
  box "", 600, 271 68 113 56
  text "Server:", 601, 273 81 21 8
  edit "", 602, 295 80 87 10, read center
  text "ülke:", 603, 273 104 25 8
  edit "", 604, 300 103 82 10, read center
}

on *:dialog:connect:*:*: {
  if ($devent = init) {
    conn.load.net
    if ($server != $null) { did -a $dname 602 $server | did -a $dname 600 Connected }
    if (%conn.auto.start) { did -c $dname 501 }
    if (%conn.show.start) { did -c $dname 502 }
    if (%conn.ident.sel) { did -c $dname 303 } | else { did -c $dname 304 }
    did -a $dname 301 $me
    did -a $dname 302 $anick
    did -a $dname 305 %conn.ident
    did -a $dname 306 $conn.rand.ident
    did -a $dname 307 %conn.modes.me

  }
  if ($devent = sclick) {
    if ($did = 101) { did -r $dname 201 |  did -z $dname 101 | did -z $dname 201 | conn.load.serv $did($dname,101,$did($dname,101).sel).text }
    if ($did = 102) { conn.add.net }
    if ($did = 103) { conn.rem.net }
    if ($did = 201) { did -z $dname 101 |  did -z $dname 201 | did -r $dname 505 | did -r $dname 602 | did -r $dname 604 | conn.info.serv $did($dname,201,$did($dname,201).sel).text }  
    if ($did = 202) { conn.add.serv }
    if ($did = 203) { conn.rem.serv }
    if ($did = 304) {  did -r $dname 306 | did -a $dname 306 $conn.rand.ident }
    if ($did = 401) { disconnect }
    if ($did = 402) { conn.save.con }
    if ($did = 501) { set %conn.auto.start $did($dname,501).state }
    if ($did = 502) { set %conn.show.start $did($dname,502).state }
  }
  if ($devent = dclick) {
    if ($did = 201) { conn.save.con }
  }
}
on *:start: { 
  if (%conn.show.start) { conn }
  if (%conn.auto.start) {
    .server %conn.auto.serv
  }
}
on *:connect:{ 
  if $dialog(connect) { did -ra connect 602 $server | did -a connect 600 Bağlandı }
  .mode $me %conn.modes.me
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

menu menubar,channel,status {

» • Bağlantı Menü • «:conn

}

alias conn {

if ($dialog(connect) == $null) { dialog -m connect connect }

else { .echo -a -Bağlantı İletişim Menüsü Çalışıyor.. }

}

alias -l conn.load.net {

if ($exists(servers) == $false) { mkdir servers | write -c servers\delete.txt DELETE }

did -r $dname 101 | %g = 1

while ($findfile(servers\,*.txt,%g)) {

did -a $dname 101 $remove($nopath($findfile(servers\,*.txt,%g)),.txt)

inc %g

}

unset %g

}

alias -l conn.load.serv {

did -r $dname 201 | %f = servers\ $+ $did($dname,101,$did($dname,101).sel).text | %f = %f $+ .txt | %g = 2

while ($read(%f,%g)) {

did -a $dname 201 $gettok($read(%f,%g),1,58)

inc %g

}

alias -l conn.rand.ident {

return $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)

}

alias -l conn.info.serv {

%kk = $1 $+ *

%l = $read(servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt,w,%kk)

did -a $dname 602 $gettok(%l,2,58)

did -a $dname 604 $gettok(%l,4,58)

did -a $dname 505 $mid($gettok(%l,3,58),1,4)

did -a $dname 505 $mid($gettok(%l,3,58),6,4)

did -a $dname 505 $mid($gettok(%l,3,58),11,4)

did -a $dname 505 $mid($gettok(%l,3,58),16,4)

did -a $dname 505 $mid($gettok(%l,3,58),21,4)

did -a $dname 505 $mid($gettok(%l,3,58),26,4)

did -a $dname 505 $mid($gettok(%l,3,58),31,4)

did -c $dname 505 1 | unset %l %kk

}

alias -l conn.add.net {

set %addred $$?="Ağ Adı? Örnek: Sohbet"

write servers\ $+ %addred $+ .txt < $+ %addred $+ >

conn.load.net | conn.load.serv

}

alias -l conn.add.serv {

if (!$did($dname,101,$did($dname,101).sel).text) { echo -at Please select the Network you would like to add the server. | halt }

set %addserv1 $$?="Add server from: $did($dname,101,$did($dname,101).sel).text $+ . Ex: irc.undernet.org"

set %addserv2 $$?="Server Adı? Örnek: Sohbet"

set %addserv3 $$?="Ports?. Ex: 6667,6668"

set %addserv4 $$?="Server ülke. Örnek: TR, Turkiye"

write servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt %addserv2 $+ : $+ %addserv1 $+ : $+ %addserv3 $+ : $+ %addserv4

unset %addserv1 %addserv2 %addserv3 %addserv4

conn.load.serv

}

alias -l conn.rem.net {

if (!$did($dname,101,$did($dname,101).sel).text) { echo -at Lütfen kaldırmak istediğiniz Ağı seçin. | halt }

set %n $$?!="Kaldırmak istediğine emin misin? $did($dname,101,$did($dname,101).sel).text "

if (%n) { .remove servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt | conn.load.net | conn.load.serv }

unset %n

}

alias -l conn.rem.serv {

if (!$did($dname,201,$did($dname,201).sel).text) { echo -at Lütfen listeden kaldırmak istediğiniz sunucuyu seçin. | halt }

set %n $$?!="Kaldırmak istediğine emin misin? $did($dname,201,$did($dname,201).sel).text "

if (%n) {

%l = $read(servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt,w,$did($dname,201,$did($dname,201).sel).text $+ *)

write -dl $+ $readn servers\ $+ $did($dname,101,$did($dname,101).sel).text $+ .txt

conn.load.serv

}

unset %n %l

}

alias -l conn.save.con {

.server $did($dname,602).text $did($dname,505).text

set %conn.auto.serv $did($dname,602).text $did($dname,505).text

set %conn.modes.me $did($dname,307)

var %nick = $did($dname,301)

var %anick = $did($dname,302)

if (%nick && %nick != $me) .nick %nick

elseif (!%nick) .nick Nick1

if (%anick) .anick %anick

else .anick Nick2

set %conn.ident.sel $did($dname,303).state

var %ident_a = $did($dname,305)

var %ident_b = $did($dname,306)

if (%conn.ident.sel) { .identd on $iif(%ident_a,$ifmatch,None) }

else { .identd on $iif(%ident_b,$ifmatch,None) }

set %conn.ident $iif(%ident_a,$ifmatch,None)

echo -a ok

}

dialog connect {

title "Bağlantı Menüsü"

size -1 -1 386 126

option dbu

box "Ağ", 100, 2 2 101 122

list 101, 4 10 97 100, size vsbar

button "Ekle", 102, 26 110 17 12

button "Sil", 103, 66 110 17 12

box "Servers", 200, 105 2 101 122

list 201, 107 10 97 100, size vsbar

button "Ekle", 202, 129 110 17 12

button "Sil", 203, 168 110 17 12

box "", 300, 208 2 176 44

text "Nick:", 2, 210 11 25 8, center

edit "", 301, 236 10 48 10, autohs

text "aNick:", 4, 210 23 25 8, center

edit "", 302, 236 22 48 10, autohs

radio "Ident:", 303, 290 10 38 10

radio "Restgele", 304, 290 22 44 10

edit "", 305, 334 10 48 10, autohs

edit "", 306, 334 22 48 10, read autohs

text "Bağlanınca Modlar:", 10, 275 35 58 8, center

edit "", 307, 334 34 48 10, autohs

box "", 400, 208 46 176 22

button "Bağlantı Kopar", 401, 210 53 43 12

button "Bağlan", 402, 278 53 37 12

button "Kapat", 403, 345 53 37 12, ok cancel

box "", 500, 208 68 61 56

check "Açılışta Bağlan", 501, 210 73 50 10

check "Açılışta Göster", 502, 210 90 50 10

text "Port:", 504, 209 111 16 8

combo 505, 228 109 40 50, size drop

box "", 600, 271 68 113 56

text "Server:", 601, 273 81 21 8

edit "", 602, 295 80 87 10, read center

text "ülke:", 603, 273 104 25 8

edit "", 604, 300 103 82 10, read center

}

on *:dialog:connect:*:*: {

if ($devent = init) {

conn.load.net

if ($server != $null) { did -a $dname 602 $server | did -a $dname 600 Connected }

if (%conn.auto.start) { did -c $dname 501 }

if (%conn.show.start) { did -c $dname 502 }

if (%conn.ident.sel) { did -c $dname 303 } | else { did -c $dname 304 }

did -a $dname 301 $me

did -a $dname 302 $anick

did -a $dname 305 %conn.ident

did -a $dname 306 $conn.rand.ident

did -a $dname 307 %conn.modes.me

}

if ($devent = sclick) {

if ($did = 101) { did -r $dname 201 | did -z $dname 101 | did -z $dname 201 | conn.load.serv $did($dname,101,$did($dname,101).sel).text }

if ($did = 102) { conn.add.net }

if ($did = 103) { conn.rem.net }

if ($did = 201) { did -z $dname 101 | did -z $dname 201 | did -r $dname 505 | did -r $dname 602 | did -r $dname 604 | conn.info.serv $did($dname,201,$did($dname,201).sel).text }

if ($did = 202) { conn.add.serv }

if ($did = 203) { conn.rem.serv }

if ($did = 304) { did -r $dname 306 | did -a $dname 306 $conn.rand.ident }

if ($did = 401) { disconnect }

if ($did = 402) { conn.save.con }

if ($did = 501) { set %conn.auto.start $did($dname,501).state }

if ($did = 502) { set %conn.show.start $did($dname,502).state }

}

if ($devent = dclick) {

if ($did = 201) { conn.save.con }

}

on *:start: {

if (%conn.show.start) { conn }

if (%conn.auto.start) {

.server %conn.auto.serv

}

on *:connect:{

if $dialog(connect) { did -ra connect 602 $server | did -a connect 600 Bağlandı }

.mode $me %conn.modes.me

}

Kodların miRC sisteminize eklenmesi; ~ Eklenecek kodu kopyalıyoruz. (Kısayol Tuşu Ctrl + C) ~ Ardından mIRC’imizi açıyoruz ve herhangi bir ekranda Alt + R tuşlarına basıyoruz. mIRC Scripts Editörü açılıyor. ~ [Aliases] [Popups] [Remote] [Users] [Variables] tablarından ~ [Remote] sekmesini tıklıyoruz sonrasında Sol üst menümüzden; ~ ->Dosya (ingilizce için File) […]

» Devamını Oku

Yorum yaz Bağlantı, menüsü

« 1 2 3 4 … 84 »