Çaylar Kahveler Socket - IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

**Kyo** · 18 Aralık 2020, 15:52

Alıntı:

Set Nickli Üyeden Alıntı

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.

**Set** · 18 Aralık 2020, 15:54

Alıntı:

FuaT Nickli Üyeden Alıntı

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

**Kyo** · 18 Aralık 2020, 15:57

Alıntı:

Set Nickli Üyeden Alıntı

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

Ü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.

**Set** · 18 Aralık 2020, 16:06

Alıntı:

FuaT Nickli Üyeden Alıntı

Ü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 ?

**Kyo** · 18 Aralık 2020, 16:08

Alıntı:

Set Nickli Üyeden Alıntı

Herhangi bir socket bot kullanıyor'musun ?

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

**Set** · 18 Aralık 2020, 16:13

Alıntı:

FuaT Nickli Üyeden Alıntı

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.

**Kyo** · 18 Aralık 2020, 16:15

Alıntı:

Set Nickli Üyeden Alıntı

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.

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.

**Kyo** · 18 Aralık 2020, 23:30

Alıntı:

Set Nickli Üyeden Alıntı

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.

Üstad Zahmet olmazsa Kodu simdi uygun şekilde verir misin

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal gösterime geğ Hybrid-Şeklinde Ağaç şeklinde gösterime geç

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)