scripting | TürkIRC.Com

Mirc Haberler Addonu/Botu

17 Ocak 2016 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.

» Devamını Oku

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

mIRC Nick Takip Kodu

16 Ocak 2016 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 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 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 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.

» Devamını Oku

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

1 2 3 … 21 »