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

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