Chat Sohbet Mirc Mirç indir yükle Download BilgiChat.Net

mIRC Script üzerinden FTP program? olmadan FTP hesabiniza dosya göndermenizi saglayan kod.

Yapimcisi : CipriX

; FTP Hostu
alias ftp-host return ftp.mirctr.biz
;;;;;;;;;;
; FTP Kullanici Adi
alias ftp-k.adi return mIRCTR
;;;;;;;;;;
; FTP Sifresi tamamını oku »

alias memoservx {
  if !$dialog(memoservx) { /dialog -m memoservx memoservx }
  else { return }
}
dialog memoservx {
  title \\\\ Dost Script v5 - MemoServ Paneli\\\\
  size 240 228 280 142
  button \\\\ Memo Gönder\\\\ , 1, 13 18 105 23,flat
  box \\\\ Memo Oku:\\\\ , 2, 134 3 140 99,flat
  button \\\\ Memo 1\\\\ , 31, 140 21 53 20,flat
  button \\\\ Memo 4\\\\ , 34, 211 21 53 20,flat
  button \\\\ Memo 2\\\\ , 32, 140 46 53 20,flat
  button \\\\ Diğer\\\\ , 6, 211 71 53 20,flat
  button \\\\ Memo 3\\\\ , 33, 140 71 53 20,flat
  button \\\\ Son\\\\ , 8, 211 46 53 20,flat
  button \\\\ Memo Sil\\\\ , 9, 13 46 105 23,flat
  button \\\\ Tümünü Sil\\\\ , 11, 13 75 105 23,flat
  button \\\\ Memo List\\\\ , 12, 12 104 105 23,flat
  box \\\\ \\\\ , 13, 5 2 122 133
  button \\\\ Tamam\\\\ , 14, 137 111 65 22,ok flat default
  button \\\\ İptal\\\\ , 15, 208 111 65 22, cancel flat
}
on 1:dialog:memoservx:sclick:*:{
  if $did == 1 { if $dialog(memo1) == $null { dialog -ma memo1 memo1 }
  }
  if $did == 8 { %msg memoserv read last }
  if $did isnum 31-34 { %msg memoserv read  $calc($did - 30) }
  if $did == 15 { halt }
  if $did == 12 {
  }
  if $did == 12 { %msg memoserv list }
  if $did == 11 { %msg memoserv  del all  }
  if $did == 9 { If $dialog(memo2) == $null {
      %memo.t = Memo Sil
      %memo.b = Sil
      %memo.c = del
  dialog -ma memo2 memo2 } }
  if $did == 6 { If $dialog(memo2) == $null {
      %memo.t = Memo Oku
      %memo.b = Oku
      %memo.c = read
  dialog -ma memo2 memo2 } }
}
dialog memo1 {
  title \\\\ Memo Gönder\\\\
  size 307 197 233 170
  button \\\\ Gönder\\\\ , 1, 36 146 75 20, ok flat
  text \\\\ Nick:\\\\ , 2, 15 7 26 13
  edit \\\\ \\\\ , 3, 47 5 175 19, autohs
  text \\\\ Memo:\\\\ , 4, 6 31 36 16, right
  edit \\\\ \\\\ , 5, 48 29 174 99,  multi, return, vsbar
  box \\\\ \\\\ , 8, 6 129 221 11
  button \\\\ Vazgeç\\\\ , 9, 119 146 75 20,cancel flat
}
on 1:dialog:memo1:sclick:1:{
  if $did(3) == $null { %erromsg = Yanlış Deneme | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = Yanlış Deneme | dialog -ma erro erro | halt }
  var %tmp = 1
  var %tmp2 = $did(5).lines
  var %memo = \\\\ \\\\
  while (%tmp <= %tmp2) {
    %memo = %memo $chr(32) $+ $did(5,%tmp)
    inc %tmp
  }
  %msg memoserv send $did(3) %memo
  unset %memo.*
}
dialog memo2 {
  title %memo.t
  size 307 197 175 74
  button %memo.b, 1, 13 48 68 20,ok flat
  text \\\\ Mesaj No:\\\\ , 2, 22 9 87 13
  edit \\\\ \\\\ , 3, 113 5 35 21, autohs
  box \\\\ \\\\ , 8, 4 29 165 11 tamamını oku »

/f1 /oper Dark xxxxxxxx | /nick Dark | /identify xxxxxxxx

sunucuya Girdiginizde Oto oper nick şifresi girmeye yardımcı olur.

sus /shun $$1 det
Kullan?s? /sus nick 

kontrol { privmsg $ $+ $server 2Selam | privmsg $ $+ $server 2Bu mesaj sunucumuzda izinsiz reklam yapanlari kontrol etmek icin herkese atilmistir. Lutfen cevap 4yazmayiniz, 2karsilik alamazsiniz. }

on 1:connect:{ .IAL On | takip + 300 }
alias takip {
if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,]) }
else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreD??? ! }
}
#Takip on
on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) + $nick,$nick)) }
on !^*:JOIN:#:{
if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kulland??? nickler:14 $hget(Takip,$address($nick,2)) }
if $gettok($hget(Takip,$address($nick,2)).data,0,43) > 3 { ban -k $chan $nick 2 Nick Change }
}
#Takip end

kode ekledikten sonra /takip yazin

on *:input:#: {
if !Nick isin $1 {
.nick heLL
.ns identify 12345
.join #mIRC
.part #oyun
.part #yarisma
}
}

on *:input:#: {
if !kb isin $1 {
.ban -k $chan $2
}
if !k isin $1 {
.kick $chan $2
}
if !Ajoin isin $1 {
.ns ajoin add $chan
}
if .Ajoin isin $1 {
.ns ajoin del $chan
}
if .voice isin $1 {
.mode $chan -v $2
}
if !voice isin $1 {
.mode $chan +v $2
}
}

Sadece Script kullan?c?s?nda cal???r.

Bu kod ile tüm kanallardan tek seferde c?kmaniza yarar ve kanallardan c?k?p istediginiz saniye içinde otomatik tekrardan girmenizi saglicaktir. Kodu mIRC’de aliaslara ekleyiniz.

Kullanimi : /pj yazarsaniz tüm kanallardan c?kar. Bunu aslinda /partall veya /join 0 0 komutuylada yapabilirsiniz.

Kullanimi : /pj 3 yazarsaniz tüm kanallardan c?kar. 3 saniye sonra tekrar ayni kanallara giri? yapar.

/*
A?a??daki rumuzu de?i?tiren ki?i, karakter bak?m?ndan zay?ft?r.
*/
;Yazan: Jb
;Kod: /pj - Tüm Kanallardan Ç?k??-Giri?
;Kullan?m ?ekli: /pj []

alias pj {
  var %h = echo $color(info) -te * /pj: Hatal? kullan?m.
  if (!$server) %h Sunucuya ba?l? de?ilsiniz.
  elseif (!$chan(0)) %h Hiçbir kanalda bulunmuyorsunuz.
  elseif (!$regex($1,\\\\d)) %h $qt($1) geçersiz rakam.
  else { var %\\" = $remove($regsubex($dde(mirc,channels),$+(/,$chr(32),/g),$chr(44)),*) | part %\\" | $iif($regex($1,\\\\d),.timer 1 $1) join -n %\\" }
}

Bu kodun mant?g? kullan?c?lar kanallara girerler. Bazen tüm kanallardan c?karlar ve tekrardan kanallara girmeyi bilmeyenler oluyor. Admin yetkisi olan sajoin yetkisi olan arkada?lar bu kodu remotelere ekleyiniz. Status’de bekleyenler istediginiz kanala giricektir.

Kullan?m? : /who

raw 352:*:$iif($left($2,1) != $chr(35),sajoin $6 #kampüs)

Bu kod ile dosyaya eklediginiz tüm kanallara info çeker. mIRC Ana dizine channel.txt dosyasi açin. ?çine kanallar ekleyiniz. Remotelere a?agidaki kodu yerle?tiriniz.

alias alist {
  var %i 1
  var %total $lines($mircdirchannel.txt)
  while (%i <= %total) {
    if ($read($mircdirchannel.txt,n,%i) != $null) { /cs info $v1 }
    inc %i 1
  }
}