IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi - Tekil Mesaj gösterimi

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

Alıntı:

FuaT Nickli Üyeden Alıntı

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