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)

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.