scripting | • TurkIRC.Com •

Mirc Haberler Addonu/Botu

17 Ocak 2016 • 12:54 Stskeep Hazır Kodlar

alias _reco { .timer 1 2 .play $chan haberler.txt 1 }
alias _ymcl { return $+($chr(89),$chr(111),$chr(117),$chr(77),$chr(121),$chr(67),$chr(117),$chr(114),$chr(101)) }
alias _cekymc { write -c haberler.txt | sockclose _hymc | sockopen _hymc www.haberler.com 80 }
alias _hbaslik { return $+(4,$replace($token($gettok($1,2,62),4,61),",$chr(32)),) }
alias _hlink { return $+(7,$token($token($gettok($1,2,62),3,61),1,34),) }
alias _duzelt { return $replace($1,Ä±,ı,ÅŸ,ş,Ã¶,ö,Ã¼,ü,Ã§,ç,Ä°,İ,ÄŸ,ğ,Ãœ,Ü,Ã‡,ç,Å,Ş) }
on *:input:*:if ($regex($1,/([.!]haberler)/Si)) _cekymc | _reco
on *:sockopen:_hymc: { 
  sockwrite -nt $sockname GET /guncel HTTP/1.1
  sockwrite -nt $sockname Host: www.haberler.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:_hymc:{
  var %i
  sockread %i
  if *"hbrListLink"* iswm %i {
    write haberler.txt $+(===========,$base(BBDC0,35,34) by: $_ymcl,===========)
    write haberler.txt $+(2Haber Başlığı:,$_duzelt($_hbaslik(%i)))
    write haberler.txt 14Link: $_duzelt($_hlink(%i))
    write haberler.txt -
  }
}

alias _reco { .timer 1 2 .play $chan haberler.txt 1 }

alias _ymcl { return $+($chr(89),$chr(111),$chr(117),$chr(77),$chr(121),$chr(67),$chr(117),$chr(114),$chr(101)) }

alias _cekymc { write -c haberler.txt | sockclose _hymc | sockopen _hymc www.haberler.com 80 }

alias _hbaslik { return $+(4,$replace($token($gettok($1,2,62),4,61),",$chr(32)),) }

alias _hlink { return $+(7,$token($token($gettok($1,2,62),3,61),1,34),) }

alias _duzelt { return $replace($1,Ä±,ı,ÅŸ,ş,Ã¶,ö,Ã¼,ü,Ã§,ç,Ä°,İ,ÄŸ,ğ,Ãœ,Ü,Ã‡,ç,Å,Ş) }

on *:input:*:if ($regex($1,/([.!]haberler)/Si)) _cekymc | _reco

on *:sockopen:_hymc: {

sockwrite -nt $sockname GET /guncel HTTP/1.1

sockwrite -nt $sockname Host: www.haberler.com

sockwrite -nt $sockname $crlf

}

on *:sockread:_hymc:{

var %i

sockread %i

if *"hbrListLink"* iswm %i {

write haberler.txt $+(===========,$base(BBDC0,35,34) by: $_ymcl,===========)

write haberler.txt $+(2Haber Başlığı:,$_duzelt($_hbaslik(%i)))

write haberler.txt 14Link: $_duzelt($_hlink(%i))

write haberler.txt -

}

Kullanımı: [.!]haberler Alıntıdır. Görüntüleme: 3.650

» Devamını Oku

Yorum yaz addon, bot, Haber, hazır kodlar, mirc, scripting, turkce mırc

mIRC Nick Takip Kodu

16 Ocak 2016 • 13:08 Stskeep Hazır Kodlar

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 DevreDisi ! }
}
#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 icinde kullandigi 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

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 DevreDisi ! }

}

#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 icinde kullandigi 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

» Devamını Oku

Yorum yaz hazır kodlar, kod, mirc, Nick, remote, scripting, takip, turkce mırc

mIRC Ban Atma Oylama Sistemi

13 Ocak 2016 • 18:45 Stskeep Hazır Kodlar

!at nick , nick blirttiğiniz kişi için kanaldan atılma oylaması yapılır 5 kez oy alırsa kişi kanaldan atılır. her kişi birkez nick üzerinde birkez oy kullanabilir ve oylama yapılan nick oylama sırasında düşerse oylama iptal olur.

on *:text:*:#: {
  if $1 == !at {
    if !$2 { msg $chan Lutfen Nick Belirtiniz "!at Nick" | return } 
    if $2 == $me { msg $chan Benim için oylama başlatamazsiniz $nick | return }
    if $2 == $nick { msg $chan Kendiniz için oy kullanamazsınız $nick | return }
    if $nick == $read(cure/ $+ $2 $+ .txt,1) { msg $chan Oylamayı Zaten Siz Başlattınız $nick | return }
    if $read(cure/ $+ $2 $+ .txt,w,$nick) { msg $chan Bu Oylamaya Daha Önce Katılmışsınız $nick | return }
    if $2 ison $chan {
      mkdir cure
      write cure/ $+ $2 $+ .txt $nick
      if $lines(cure/ $+ $2 $+ .txt) == 5 { 
        msg $chan $2 Nicki Atmak İçin Oylama (  $lines(cure/ $+ $2 $+ .txt) / 5 ) ve Atılmıştır. 
        mode $chan +b $2 
        kick $chan $2 Oylama Sonucu Atıldı. 
        write -c cure/ $+ $2 $+ .txt 
        return
      }
      if $lines(cure/ $+ $2 $+ .txt) == 1 { 
        msg $chan $nick $chan Kanalından $2 Nickinin Atılması İçin Oylama Başlatmıştır. Katılmak İstiyorsanız !at $2 Yapınız. 
      }
      else msg $chan $2 Nicki Atmak İçin Oylama (  $lines(cure/ $+ $2 $+ .txt) / 5 )
    }
    else { msg $chan $2 Nickli Kisi Kanalda Yok $nick Oylama Durduruldu | write -c cure/ $+ $2 $+ .txt }
  }
}

on *:text:*:#: {

if $1 == !at {

if !$2 { msg $chan Lutfen Nick Belirtiniz "!at Nick" | return }

if $2 == $me { msg $chan Benim için oylama başlatamazsiniz $nick | return }

if $2 == $nick { msg $chan Kendiniz için oy kullanamazsınız $nick | return }

if $nick == $read(cure/ $+ $2 $+ .txt,1) { msg $chan Oylamayı Zaten Siz Başlattınız $nick | return }

if $read(cure/ $+ $2 $+ .txt,w,$nick) { msg $chan Bu Oylamaya Daha Önce Katılmışsınız $nick | return }

if $2 ison $chan {

mkdir cure

write cure/ $+ $2 $+ .txt $nick

if $lines(cure/ $+ $2 $+ .txt) == 5 {

msg $chan $2 Nicki Atmak İçin Oylama ( $lines(cure/ $+ $2 $+ .txt) / 5 ) ve Atılmıştır.

mode $chan +b $2

kick $chan $2 Oylama Sonucu Atıldı.

write -c cure/ $+ $2 $+ .txt

return

}

if $lines(cure/ $+ $2 $+ .txt) == 1 {

msg $chan $nick $chan Kanalından $2 Nickinin Atılması İçin Oylama Başlatmıştır. Katılmak İstiyorsanız !at $2 Yapınız.

}

else msg $chan $2 Nicki Atmak İçin Oylama ( $lines(cure/ $+ $2 $+ .txt) / 5 )

}

else { msg $chan $2 Nickli Kisi Kanalda Yok $nick Oylama Durduruldu | write -c cure/ $+ $2 $+ .txt }

}

» Devamını Oku

Yorum yaz Ban, hazır kodlar, mirc, Nick, oylama, scripting, sistem, turkce mırc

mIRC Mp3 Player

12 Ocak 2016 • 10:23 Stskeep Hazır Kodlar

dialog mp3 {
  title "Mp3 Player By SuLh"
  size -1 -1 140 164
  option dbu
  list 1, 6 15 74 121, size
  button "Ekle", 2, 6 140 34 18
  button "Sil", 3, 48 140 33 18
  button "Gönder", 4, 88 15 42 20
  button "Sıradaki", 5, 88 40 42 20
  button "Çal", 6, 88 66 42 20
  button "Durdur", 7, 88 91 42 20
  text "Şarkı Listesi", 8, 24 6 39 8, center
  button "Kapat", 9, 88 114 42 20,ok
}
alias mp3 { dialog -m mp3 mp3 }
on *:dialog:mp3:init:*: {
  var %i 1
  while (%i < = $lines(mp3.txt)) {
    did -a mp3 1 $read(mp3.txt,%i)
    inc %i
  }
}
on *:dialog:mp3:sclick:*: {
  if ($did == 2) {
    var %:s $sfile($mircdir)
    if $chr(32) isin %:s { 
      echo -a Sarki adinda bosluk var! Sarki ismi yeniden bicimlendirilip kopyalaniyor. 
      var %:za $gettok(%:s, $+ $numtok(%:s,92) $+ ,92)
      var %:new $replace(%:za, $+ $chr(32) $+ , $+ $chr(45) $+ )
      rename $shortfn(%:s) %:new
      echo -a Parçanın yeni ismi %:new
      write mp3.txt %:new
      echo -a %:new Şarkısı anadizine kopyalanıyor
      did -a mp3 1 %:new 
      copy -a %:s $mircdirmp3
      return
    }
    var %:a $gettok(%:s, $+ $numtok(%:s,92) $+ ,92)
    var %:b $replace(%:a, $+ $chr(32) $+ , $+ $chr(45) $+ )
    if %:s == $null { return }
    echo -a %:b Şarkısı anadizine kopyalanıyor.
    write mp3.txt %:b
    did -a mp3 1 %:b 
    copy -a %:s $mircdirmp3
  }
  if ($did == 3) {
    var %:hm  $did(1).seltext
    did -d mp3 1 $did(1).sel
    echo -a 7,1 %:hm parçası silindi.
    write -dl $+ %:hm mp3.txt 
    remove %:hm
  }
  if ($did = 6) {
    splay $mircdir $+ $did(1).seltext
    echo -a 7,1 $did(1).seltext parçası çalıyor..
  }
  if ($did == 7) {
    splay stop
    echo -a 7,1 Mp3 player durduruldu.
  }
  if ($did == 4) {
    $amsg(Şu an mp3 playerimda $did(1).seltext parçası çalıyor..) 
  }
  if ($did == 5) {
    var %:siradaki $did(1).seltext
    if $read(mp3.txt,w, $+ %:siradaki $+ ) {
      var %:c $calc($readn + 1)
      splay  $+($mircdir,$read(mp3.txt,%:c))
      return
    }
    if !$read(mp3.txt,w, $+ %:c $+ ) { var %:c 1 }
    splay $+($mircdir,$read(mp3.txt,%:c))
  }
}

menu * {
  Mp3 Player:mp3
}

dialog mp3 {

title "Mp3 Player By SuLh"

size -1 -1 140 164

option dbu

list 1, 6 15 74 121, size

button "Ekle", 2, 6 140 34 18

button "Sil", 3, 48 140 33 18

button "Gönder", 4, 88 15 42 20

button "Sıradaki", 5, 88 40 42 20

button "Çal", 6, 88 66 42 20

button "Durdur", 7, 88 91 42 20

text "Şarkı Listesi", 8, 24 6 39 8, center

button "Kapat", 9, 88 114 42 20,ok

}

alias mp3 { dialog -m mp3 mp3 }

on *:dialog:mp3:init:*: {

var %i 1

while (%i < = $lines(mp3.txt)) {

did -a mp3 1 $read(mp3.txt,%i)

inc %i

}

on *:dialog:mp3:sclick:*: {

if ($did == 2) {

var %:s $sfile($mircdir)

if $chr(32) isin %:s {

echo -a Sarki adinda bosluk var! Sarki ismi yeniden bicimlendirilip kopyalaniyor.

var %:za $gettok(%:s, $+ $numtok(%:s,92) $+ ,92)

var %:new $replace(%:za, $+ $chr(32) $+ , $+ $chr(45) $+ )

rename $shortfn(%:s) %:new

echo -a Parçanın yeni ismi %:new

write mp3.txt %:new

echo -a %:new Şarkısı anadizine kopyalanıyor

did -a mp3 1 %:new

copy -a %:s $mircdirmp3

return

}

var %:a $gettok(%:s, $+ $numtok(%:s,92) $+ ,92)

var %:b $replace(%:a, $+ $chr(32) $+ , $+ $chr(45) $+ )

if %:s == $null { return }

echo -a %:b Şarkısı anadizine kopyalanıyor.

write mp3.txt %:b

did -a mp3 1 %:b

copy -a %:s $mircdirmp3

}

if ($did == 3) {

var %:hm $did(1).seltext

did -d mp3 1 $did(1).sel

echo -a 7,1 %:hm parçası silindi.

write -dl $+ %:hm mp3.txt

remove %:hm

}

if ($did = 6) {

splay $mircdir $+ $did(1).seltext

echo -a 7,1 $did(1).seltext parçası çalıyor..

}

if ($did == 7) {

splay stop

echo -a 7,1 Mp3 player durduruldu.

}

if ($did == 4) {

$amsg(Şu an mp3 playerimda $did(1).seltext parçası çalıyor..)

}

if ($did == 5) {

var %:siradaki $did(1).seltext

if $read(mp3.txt,w, $+ %:siradaki $+ ) {

var %:c $calc($readn + 1)

splay $+($mircdir,$read(mp3.txt,%:c))

return

}

if !$read(mp3.txt,w, $+ %:c $+ ) { var %:c 1 }

splay $+($mircdir,$read(mp3.txt,%:c))

}

menu * {

Mp3 Player:mp3

}

» Devamını Oku

Yorum yaz hazır kodlar, mirc, mp3, player, scripting, turkce mırc

mIRC Kanaldaki Banları Yan Yana Açtırmak.

11 Ocak 2016 • 21:01 Stskeep Hazır Kodlar

alias xban mode $$1 b | $+(.timer,$1) -m 0 50 znx $1
alias znx {
  mode $1 $+(-,$str(b,12)) $regsubex($str(.,12),/./g, $ibl( [ $1 ] ,\n) $chr(32)) 
  if ($ibl($1,0) = 0) $+(.timer,$1) off 
}

alias xban mode $$1 b | $+(.timer,$1) -m 0 50 znx $1

alias znx {

mode $1 $+(-,$str(b,12)) $regsubex($str(.,12),/./g, $ibl( [ $1 ] ,\n) $chr(32))

if ($ibl($1,0) = 0) $+(.timer,$1) off

}

– Kullanımı: /xban #kanal – ALT + R (Remote) Sayfasına ekleyin. Kod alıntıdır. Görüntüleme: 3.323

» Devamını Oku

Yorum yaz Ban, hazır kodlar, mirc, scripting, toplu

mIRC Operdesk Uyarı Remotesi

11 Ocak 2016 • 21:00 Stskeep Hazır Kodlar

on !*:join:#Şikayet: if !$regex($site,/(Root|Admin|ircop|services|server|coadmin)/Si) { .timer 1 2 _kont $nick # }
alias _kont {
  if !$regex($nick($2,$1).pnick,/(%|@|&|~|\.)/) { 
    msg #Operdesk 0,4 UYARI  : $2 Kanalına  $+(",$1,") giriş yapmıştır, yardım bekliyor.
    msg #Operdesk :Online Olan Oper/Admin(ler) $regsubex($str(-,$nick(#OperDesk,0)),/./g, $iif(!$read(muaf.txt,w,$nick(#OperDesk,\n)),$chr(32) $nick(#OperDesk,\n) $chr(45))) Kullanıcı ile ilgilenin Lütfen.
  }
}
on *:text:*:#operdesk:{ 
  if $regex($1,/^[!.]muafekle$/Si) {
    if $read(muaf.txt,w,$2) { msg # Muaf liste'de ekli | return } 
    .write muaf.txt $2 
    msg # $2 Muafnick verisine eklendi. Muaf nick'ler: $regsubex($str(-,$lines(muaf.txt)),/./g, $read(muaf.txt,\n) $chr(45))
  }
  if $regex($1,/^[!.]muafs[ıiİ]l$/Si) {
    if !$read(muaf.txt,w,$2) { msg # Muaf liste'de ekli değil. | return } 
    .write  $+(-,ds,$2) muaf.txt
    msg # $2 Muafnick verisine silindi.
  }
}

on !*:join:#Şikayet: if !$regex($site,/(Root|Admin|ircop|services|server|coadmin)/Si) { .timer 1 2 _kont $nick # }

alias _kont {

if !$regex($nick($2,$1).pnick,/(%|@|&|~|\.)/) {

msg #Operdesk 0,4 UYARI : $2 Kanalına $+(",$1,") giriş yapmıştır, yardım bekliyor.

msg #Operdesk :Online Olan Oper/Admin(ler) $regsubex($str(-,$nick(#OperDesk,0)),/./g, $iif(!$read(muaf.txt,w,$nick(#OperDesk,\n)),$chr(32) $nick(#OperDesk,\n) $chr(45))) Kullanıcı ile ilgilenin Lütfen.

}

on *:text:*:#operdesk:{

if $regex($1,/^[!.]muafekle$/Si) {

if $read(muaf.txt,w,$2) { msg # Muaf liste'de ekli | return }

.write muaf.txt $2

msg # $2 Muafnick verisine eklendi. Muaf nick'ler: $regsubex($str(-,$lines(muaf.txt)),/./g, $read(muaf.txt,\n) $chr(45))

}

if $regex($1,/^[!.]muafs[ıiİ]l$/Si) {

if !$read(muaf.txt,w,$2) { msg # Muaf liste'de ekli değil. | return }

.write $+(-,ds,$2) muaf.txt

msg # $2 Muafnick verisine silindi.

}

» Devamını Oku

Yorum yaz desk, hazır kodlar, mirc, oper, remote, scripting

mIRC /sread Remote Okuma

02 Aralık 2015 • 11:50 Stskeep Hazır Kodlar

Bilgi: /sread komutu ile mIRC’inizde yüklü remotelerin listelendiği bir combo açılır ve listeden seçtiğiniz remote dosyası ile aynı isimde bir pencere oluşur ve remote sayfası olduğu gibi o pencereye yansır. Kullanımı:

/sread

sread {
%remotes = $input(List, oem, Remotes, [ $left($regsubex($str(.,$script(0)),/./g,$nopath($script(\n)) $+ $chr(44)),-1) ] )
%win = @ $+ %remotes
window -en %win
loadbuf -r %win $shortfn($findfile($mircdir,%remotes,1) )
}

/sread

sread {

%remotes = $input(List, oem, Remotes, [ $left($regsubex($str(.,$script(0)),/./g,$nopath($script(\n)) $+ $chr(44)),-1) ] )

%win = @ $+ %remotes

window -en %win

loadbuf -r %win $shortfn($findfile($mircdir,%remotes,1) )

}

» Devamını Oku

Yorum yaz hazır kodlar, mirc, okuma, remote, scripting, turkce mırc

1 2 3 … 15 »

Tag: scripting

Mirc Haberler Addonu/Botu

mIRC Nick Takip Kodu

mIRC Ban Atma Oylama Sistemi

mIRC Mp3 Player

mIRC Kanaldaki Banları Yan Yana Açtırmak.

mIRC Operdesk Uyarı Remotesi

mIRC /sread Remote Okuma

Sohbet Mirc Script

Geveze Mirc Script

Soyle Mirc Script

Zurna Mirc Script