IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

- mIRC Scripting Sorunları - Yardım (https://www.ircrehberi.net/mirc-scripting-sorunlari-yardim/)

- - Çaylar Kahveler Socket (https://www.ircrehberi.net/mirc-scripting-sorunlari-yardim/49473-caylar-kahveler-socket.html)

Çaylar Kahveler Socket

Kod:

on *:text:*:#: {

  if $regex($1,/^[!.]([cçÇ]aylar|kah[fv]eler)$/Si) {

    msg # $+(4,$replace($regml(1),c,Ç,ç,Ç,k,K)) hazırlanıyor...

    $+(.timer,$regml(1)) 1 3 caykahve $regml(1) $chan $nick

  }

}

alias caykahve {

  var %k $1, %c $2, %n $3, %r 2 3 4 5 6 10 12 13, %rnk $gettok(%r,$rand(1,8),32), %renkver $+(,$chr(3),%rnk), %cay 4,0)4_4,0(>0,0_ , %kahve 5,0|5,0_5|>

  if $regex(%k,/[cçÇ]aylar/Si) {

    msg %c $+(4,%n) 1Tüm kanala 4Çay 1ısmarladı. Buyurun $+ $regsubex($str(-,$nick(%c,0)),/./g,$+(%renkver,$iif($nick(%c,\n) != %n,$+($chr(32),$nick(%c,\n))))) 4çaylarınız...

    msg %c $+($str($+(%cay,$chr(32)),$calc($nick(%c,0) - 1)))

    msg %c 4Afiyet olsun.

  }

  elseif $regex(%k,/kah[fv]eler/Si) {

    msg %c $+(4,%n) 1Tüm kanala 5Kahve 1ısmarladı. Buyurun $+ $regsubex($str(-,$nick(%c,0)),/./g,$+(%renkver,$iif($nick(%c,\n) != %n,$+($chr(32),$nick(%c,\n))))) 4kahveleriniz...

    msg %c $+($str($+(%kahve,$chr(32)),$calc($nick(%c,0) - 1)))

    msg %c 4Afiyet Bal Şeker olsun.

  }

}

Merhaba iyi IR'ler. Bu Kod Emrehan Üstada ait. ve Alper Üstad Tarafından son şekli verilmiş bir mirc kodu. Ben bunu socket botumda kullanmak istiyorum. Nasıl yapabilirim.

Emeğinize sağlık ;ççk

emeginize saglik

Alıntı:

FuaT Nickli Üyeden Alıntı (Mesaj 273733)

Kod:

on *:text:*:#: {

  if $regex($1,/^[!.]([cçÇ]aylar|kah[fv]eler)$/Si) {

    msg # $+(4,$replace($regml(1),c,Ç,ç,Ç,k,K)) hazırlanıyor...

    $+(.timer,$regml(1)) 1 3 caykahve $regml(1) $chan $nick

  }

}

alias caykahve {

  var %k $1, %c $2, %n $3, %r 2 3 4 5 6 10 12 13, %rnk $gettok(%r,$rand(1,8),32), %renkver $+(,$chr(3),%rnk), %cay 4,0)4_4,0(>0,0_ , %kahve 5,0|5,0_5|>

  if $regex(%k,/[cçÇ]aylar/Si) {

    msg %c $+(4,%n) 1Tüm kanala 4Çay 1ısmarladı. Buyurun $+ $regsubex($str(-,$nick(%c,0)),/./g,$+(%renkver,$iif($nick(%c,\n) != %n,$+($chr(32),$nick(%c,\n))))) 4çaylarınız...

    msg %c $+($str($+(%cay,$chr(32)),$calc($nick(%c,0) - 1)))

    msg %c 4Afiyet olsun.

  }

  elseif $regex(%k,/kah[fv]eler/Si) {

    msg %c $+(4,%n) 1Tüm kanala 5Kahve 1ısmarladı. Buyurun $+ $regsubex($str(-,$nick(%c,0)),/./g,$+(%renkver,$iif($nick(%c,\n) != %n,$+($chr(32),$nick(%c,\n))))) 4kahveleriniz...

    msg %c $+($str($+(%kahve,$chr(32)),$calc($nick(%c,0) - 1)))

    msg %c 4Afiyet Bal Şeker olsun.

  }

}

Merhaba iyi IF'ler. Bu Kod Emrehan Üstada ait. ve Alper Üstad Tarafından son şekli verilmiş bir mirc kodu. Ben bunu socket botumda kullanmak istiyorum. Nasıl yapabilirim.

Socket bot'un bulundugu kısımda

Kod:

on *:sockread:sockname: {

var %x | %sockread %x

üsteki gibi olan kısmı bul bot'unda, ve altaki gibi alias'i ekle

Kod:

on *:sockread:sockname: {

var %x | %sockread %x
 caykahve %x

yada

Kod:

on *:sockread:sockname: {

var %x | %sockread %x 

tokenize 32 %x
 caykahve $1-

}

Denemedim ama alttaki cod calısmıcaktır sonucta socket'te $nick gibi terimler çalışmıyacagından, sadece senin codu nası ekleyebileceginin yolunu göstermek, ama halen cözemezsen, belirtirsen ona göre codlamanı düzenlerim

Kod:

alias caykahve {

  if $regex($2,/privmsg/i) {

    var %nick $right($token($1,1,33),-1), %ident $token($token($1,1,64),2,33), %host $token($1,2,64), %chan $

    tokenize 32 $right($4-,-1)

    ;;;Altaki büyük harflerle SOCKNAME yerine bot'un socket ismi yazılacak

    

    var %komut sockwrite -nt SOCKNAME

    var %k $1, %c $2, %n $3, %r 2 3 4 5 6 10 12 13, %rnk $gettok(%r,$rand(1,8),32), %renkver $+(,$chr(3),%rnk), %cay 4,0)4_4,0(>0,0_ , %kahve 5,0|5,0_5|>

    if $regex(%k,/[cçÇ]aylar/Si) {

      %komut privmsg %chan $+(4,%n) 1Tüm kanala 4Çay 1ısmarladı. Buyurun $+ $regsubex($str(-,%nick(%c,0)),/./g,$+(%renkver,$iif(%nick(%c,\n) != %n,$+($chr(32),%nick(%c,\n))))) 4çaylarınız...

      %komut privmsg %chan %c $+($str($+(%cay,$chr(32)),$calc(%nick(%c,0) - 1)))

      %komut privmsg %chan %c 4Afiyet olsun.

    }

    if $regex(%k,/kah[fv]eler/Si) {

      %komut privmsg %chan $+(4,%n) 1Tüm kanala 5Kahve 1ısmarladı. Buyurun $+ $regsubex($str(-,%nick(%c,0)),/./g,$+(%renkver,$iif(%nick(%c,\n) != %n,$+($chr(32),%nick(%c,\n))))) 4kahveleriniz...

      %komut privmsg %chan $+($str($+(%kahve,$chr(32)),$calc(%nick(%c,0) - 1)))

      %komut privmsg %chan 4Afiyet Bal Şeker olsun.

    }

  }

}

Alıntı:

Set Nickli Üyeden Alıntı (Mesaj 275295)

Socket bot'un bulundugu kısımda

Kod:

on *:sockread:sockname: {

var %x | %sockread %x

üsteki gibi olan kısmı bul bot'unda, ve altaki gibi alias'i ekle

Kod:

on *:sockread:sockname: {

var %x | %sockread %x
 caykahve %x

yada

Kod:

on *:sockread:sockname: {

var %x | %sockread %x 

tokenize 32 %x
 caykahve $1-

}

Denemedim ama calışacaktir herhalde, sorun olursa belirtirsin

Kod:

alias caykahve {

  if $regex($2,/privmsg/i) {

    var %nick $right($token($1,1,33),-1), %ident $token($token($1,1,64),2,33), %host $token($1,2,64), %chan $

    tokenize 32 $right($4-,-1)

    ;;;Altaki büyük harflerle SOCKNAME yerine bot'un socket ismi yazılacak

    

    var %komut sockwrite -nt SOCKNAME

    var %k $1, %c $2, %n $3, %r 2 3 4 5 6 10 12 13, %rnk $gettok(%r,$rand(1,8),32), %renkver $+(,$chr(3),%rnk), %cay 4,0)4_4,0(>0,0_ , %kahve 5,0|5,0_5|>

    if $regex(%k,/[cçÇ]aylar/Si) {

      %komut privmsg %chan $+(4,%n) 1Tüm kanala 4Çay 1ısmarladı. Buyurun $+ $regsubex($str(-,%nick(%c,0)),/./g,$+(%renkver,$iif(%nick(%c,\n) != %n,$+($chr(32),%nick(%c,\n))))) 4çaylarınız...

      %komut privmsg %chan %c $+($str($+(%cay,$chr(32)),$calc(%nick(%c,0) - 1)))

      %komut privmsg %chan %c 4Afiyet olsun.

    }

    if $regex(%k,/kah[fv]eler/Si) {

      %komut privmsg %chan $+(4,%n) 1Tüm kanala 5Kahve 1ısmarladı. Buyurun $+ $regsubex($str(-,%nick(%c,0)),/./g,$+(%renkver,$iif(%nick(%c,\n) != %n,$+($chr(32),%nick(%c,\n))))) 4kahveleriniz...

      %komut privmsg %chan $+($str($+(%kahve,$chr(32)),$calc(%nick(%c,0) - 1)))

      %komut privmsg %chan 4Afiyet Bal Şeker olsun.

    }

  }

}

Emeğine Sağlık Üstadım. Sağolasın.

Alıntı:

FuaT Nickli Üyeden Alıntı (Mesaj 275297)

Emeğine Sağlık Üstadım. Sağolasın.

Code calısmıcaktir, sadece sana yolu göstermek ve asıl amacım az deneme yanılma yapman, devam'ında halledemezsen belirtirsin, ona göre düzenlemene yardımcı olurum, yada olurlar herneyse sadece konu altında belirtmen kafi işte

Alıntı:

Set Nickli Üyeden Alıntı (Mesaj 275303)

Üstad mırc kodlarından ufakta olsa anlıyor ve ufak seylerı kodlayıp duzeltebılıyorum. socket konusunda bilgim sıfır denecek kadar az. yine de Teşekür ederim.

Alıntı:

FuaT Nickli Üyeden Alıntı (Mesaj 275304)

Üstad mırc kodlarından ufakta olsa anlıyor ve ufak seylerı kodlayıp duzeltebılıyorum. socket konusunda bilgim sıfır denecek kadar az. yine de Teşekür ederim.

Herhangi bir socket bot kullanıyor'musun ?

Alıntı:

Set Nickli Üyeden Alıntı (Mesaj 275316)

Herhangi bir socket bot kullanıyor'musun ?

AyNet.org Sunucumuzda ki MerLyn botu socket. Bu kodu o botta kullanacagız.

Alıntı:

FuaT Nickli Üyeden Alıntı (Mesaj 275320)

AyNet.org Sunucumuzda ki MerLyn botu socket. Bu kodu o botta kullanacagız.

O bot'ta

Kod:

alias veri {

  tokenize 32 $1-

  if $regex($2,/privmsg/i) {

    var %nick $right($token($1,1,33),-1), %ident $token($token($1,1,64),2,33), %host $token($1,2,64), %chan $3

    tokenize 32 $right($4-,-1)

    echo -s Nick: %nick Kanal: %chan Mesaj: %mesaj

  }

}
 
 

on *:sockread:sockname: {

  var %x | %sockread %x 

  tokenize 32 %x

  veri $1-

}

Üsteki gibi bir eklendi deneyip verilerin nasıl geldigini görebilirsin, socket mantıgı ham veridir, sadece gelen verileri sekillendirmek kalıyor, sekillendirmektende kastım oradanda gelen verilere kosullar (if else gibi) yazılacak, bak bakalim devam'ını az kurcala yapamazsan 1 saat sonra gene dönüs yap, kodu istedigin sekil düzenlip paylasırım sana.

Teşekürler ÜStadım

Alıntı:

Set Nickli Üyeden Alıntı (Mesaj 275325)

O bot'ta

Kod:

alias veri {

  tokenize 32 $1-

  if $regex($2,/privmsg/i) {

    var %nick $right($token($1,1,33),-1), %ident $token($token($1,1,64),2,33), %host $token($1,2,64), %chan $3

    tokenize 32 $right($4-,-1)

    echo -s Nick: %nick Kanal: %chan Mesaj: %mesaj

  }

}
 
 

on *:sockread:sockname: {

  var %x | %sockread %x 

  tokenize 32 %x

  veri $1-

}

Sunucu Sahibi Geldiğinde beraber deneyerek size dönüş yapacağım. Socket Öğrenmeme vesile olursunuz insallah. Bilgi ve alakanız için minnetarım. Saygılar, Teşekürler. Üstadım.

Alıntı:

Set Nickli Üyeden Alıntı (Mesaj 275325)

O bot'ta

Kod:

alias veri {

  tokenize 32 $1-

  if $regex($2,/privmsg/i) {

    var %nick $right($token($1,1,33),-1), %ident $token($token($1,1,64),2,33), %host $token($1,2,64), %chan $3

    tokenize 32 $right($4-,-1)

    echo -s Nick: %nick Kanal: %chan Mesaj: %mesaj

  }

}
 
 

on *:sockread:sockname: {

  var %x | %sockread %x 

  tokenize 32 %x

  veri $1-

}

Üstad Zahmet olmazsa Kodu simdi uygun şekilde verir misin

Alıntı:

FuaT Nickli Üyeden Alıntı (Mesaj 275761)

Üstad Zahmet olmazsa Kodu simdi uygun şekilde verir misin

Socket'in veri akışına caykahve $1- gibi ekleme yaparsın, deneme yapmadım ama çalışcaktır, genede sorun olursa belirtirsin konu altında

Kod:

alias caykahve {

  if $regex($2,/privmsg/i) {

    var %nick $right($token($1,1,33),-1), %chan $3

    tokenize 32 $right($4-,-1)

    ;;;Altaki büyük harflerle SOCKNAME yerine bot'un socket ismi yazılacak
 

    ;var %komut sockwrite -nt SOCKNAME

    if $regex($1,/^[!.]([cçÇ]aylar|kah[fv]eler)$/Si) {

      %komut privmsg %chan $+(4,$replace($regml(1),c,Ç,ç,Ç,k,K)) hazırlanıyor...

      hadd -m ikram komut $regml(1)

      hadd -m ikram chan %chan

      hadd -m ikram nick %nick

      %komut names %chan

    }

  }

  if $regex($2,353) {

    if $hget(ikram,komut) {

      var %x 1

      while $token($right($6-,-1),%x,32) { 

        var  %r 2 3 4 5 6 10 12 13, %rnk $gettok(%r,$rand(1,8),32), %renkver $+(,$chr(3),%rnk)

        var %nick %renkver $remove($token($v1,1,33),.,~,@,&,%,+)

        set %nickler %nickler %nick

        inc %x

      }

    }

  }

  if $regex($2,366) {

    var %cay 4,0)4_4,0(>0,0_ , %kahve 5,0|5,0_5|>, %komut sockwrite -nt SOCKNAME

    if $regex($hget(ikram,komut),/[cçÇ]aylar/Si) {

      %komut privmsg $hget(ikram,chan) $+(4,$hget(ikram,nick)) 1Tüm kanala 4Çay 1ısmarladı. Buyurun  %nickler 4çaylarınız...

      %komut privmsg $hget(ikram,chan) $+($str($+(%cay,$chr(32)),$calc($token(%nickler,0,32) - 1)))

      %komut privmsg $hget(ikram,chan) 4Afiyet olsun.

      .hfree -sw ikram

      unset %nickler

    }

    if $regex($hget(ikram,komut),/kah[fv]eler/Si) {

      %komut privmsg $hget(ikram,chan) $+(4,$hget(ikram,nick)) 1Tüm kanala 5Kahve 1ısmarladı. Buyurun %nickler 4kahveleriniz...

      %komut privmsg $hget(ikram,chan) $+($str($+(%kahve,$chr(32)),$calc($token(%nickler,0,32) - 1)))

      %komut privmsg $hget(ikram,chan) 4Afiyet Bal Şeker olsun.

      .hfree -sw ikram

      unset %nickler
 

    }

  }

}

Teşekürler ÜStadım

Alıntı:

Set Nickli Üyeden Alıntı (Mesaj 275857)

Socket'in veri akışına caykahve $1- gibi ekleme yaparsın, deneme yapmadım ama çalışcaktır, genede sorun olursa belirtirsin konu altında

Kod:

alias caykahve {

  if $regex($2,/privmsg/i) {

    var %nick $right($token($1,1,33),-1), %chan $3

    tokenize 32 $right($4-,-1)

    ;;;Altaki büyük harflerle SOCKNAME yerine bot'un socket ismi yazılacak
 

    ;var %komut sockwrite -nt SOCKNAME

    if $regex($1,/^[!.]([cçÇ]aylar|kah[fv]eler)$/Si) {

      %komut privmsg %chan $+(4,$replace($regml(1),c,Ç,ç,Ç,k,K)) hazırlanıyor...

      hadd -m ikram komut $regml(1)

      hadd -m ikram chan %chan

      hadd -m ikram nick %nick

      %komut names %chan

    }

  }

  if $regex($2,353) {

    if $hget(ikram,komut) {

      var %x 1

      while $token($right($6-,-1),%x,32) { 

        var  %r 2 3 4 5 6 10 12 13, %rnk $gettok(%r,$rand(1,8),32), %renkver $+(,$chr(3),%rnk)

        var %nick %renkver $remove($token($v1,1,33),.,~,@,&,%,+)

        set %nickler %nickler %nick

        inc %x

      }

    }

  }

  if $regex($2,366) {

    var %cay 4,0)4_4,0(>0,0_ , %kahve 5,0|5,0_5|>, %komut sockwrite -nt SOCKNAME

    if $regex($hget(ikram,komut),/[cçÇ]aylar/Si) {

      %komut privmsg $hget(ikram,chan) $+(4,$hget(ikram,nick)) 1Tüm kanala 4Çay 1ısmarladı. Buyurun  %nickler 4çaylarınız...

      %komut privmsg $hget(ikram,chan) $+($str($+(%cay,$chr(32)),$calc($token(%nickler,0,32) - 1)))

      %komut privmsg $hget(ikram,chan) 4Afiyet olsun.

      .hfree -sw ikram

      unset %nickler

    }

    if $regex($hget(ikram,komut),/kah[fv]eler/Si) {

      %komut privmsg $hget(ikram,chan) $+(4,$hget(ikram,nick)) 1Tüm kanala 5Kahve 1ısmarladı. Buyurun $+ %nickler 4kahveleriniz...

      %komut privmsg $hget(ikram,chan) $+($str($+(%kahve,$chr(32)),$calc($token(%nickler,0,32) - 1)))

      %komut privmsg $hget(ikram,chan) 4Afiyet Bal Şeker olsun.

      .hfree -sw ikram

      unset %nickler
 

    }

  }

}

Emeğine Sağlık Üstadım. Hayırlı Geceler Diliyorum. Teşekürler.