IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi  
 sohbet
Sohbet chat
Kayıt ol
Güncel Konular
🎄💥 🎆IRCRehberi.Net Yılbaşı Özel Çekilişi 2026 🎆🎄💥    IR-2025 Yılının En Çok Konuşulan Konuları     Sunucu Polemiği : Samyeli.Net & SamyeliFM    Radyo Polemiği : AskCafem.Net & AskFm     Vbulletin 3.8.x - Yazarlar Platformu ( Yeni Sistem )    Chatlak.com.tr ve diğer domain portfoyum satılıktır.        Bugün itibariyle IRC yolculuğumu noktalıyorum.    Sunucumuz Bünyesine DJ-op-Sop alımı    


mIRC Scripting Sorunları - Yardım mIRC Scripting ile ilgili sorunlariniza ait güncel yanıtlara bu başlık altından ulaşabilirsiniz.

💬 Bu Alana Reklam Ver ! 🎉 Hemen Katıl!
11Beğeni(ler)


Yeni Konu Aç
Cevap Yaz
  
 
Seçenekler Stil
Alt 17 Aralık 2020, 01:32   #1
Kyo - ait Kullanıcı Resmi (Avatar)
Standart Ç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.
👍 2
 
Alıntı Yap
Alt 18 Aralık 2020, 13:55   #2
Kyo - ait Kullanıcı Resmi (Avatar)
Standart
Güncel..

 
Alıntı Yap
Alt 18 Aralık 2020, 14:46   #3
𝐏𝐚𝐫𝐥𝐚 ✨
Reyhan - ait Kullanıcı Resmi (Avatar)
Standart
Emeğinize sağlık ;ççk

________________


barisiyormus her orman , yanginiyla. .
Biraz da kendimden
 
Alıntı Yap
Alt 18 Aralık 2020, 14:55   #4
civciv~🐥
Sim - ait Kullanıcı Resmi (Avatar)
Standart
emeginize saglik

________________

•quod relinquis, alienum est•
 
Alıntı Yap
Alt 18 Aralık 2020, 15:49   #5
Özel Üye
Set - ait Kullanıcı Resmi (Avatar)
Standart
Alıntı:
FuaT Nickli Üyeden Alıntı Mesajı göster

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

👍 1
Konu Set tarafından (18 Aralık 2020 Saat 15:52 ) değiştirilmiştir..
 
Alıntı Yap
Alt 18 Aralık 2020, 15:52   #6
Kyo - ait Kullanıcı Resmi (Avatar)
Standart Teşekürler
Alıntı:
Set Nickli Üyeden Alıntı Mesajı göster



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ı Yap
Alt 18 Aralık 2020, 15:54   #7
Özel Üye
Set - ait Kullanıcı Resmi (Avatar)
Standart
Alıntı:
FuaT Nickli Üyeden Alıntı Mesajı göster
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

👍 1
 
Alıntı Yap
Alt 18 Aralık 2020, 15:57   #8
Kyo - ait Kullanıcı Resmi (Avatar)
Standart .
Alıntı:
Set Nickli Üyeden Alıntı Mesajı göster
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.

 
Alıntı Yap
Alt 18 Aralık 2020, 16:06   #9
Özel Üye
Set - ait Kullanıcı Resmi (Avatar)
Standart
Alıntı:
FuaT Nickli Üyeden Alıntı Mesajı göster
Ü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 ?

👍 1
 
Alıntı Yap
Cevap Yaz

« Socket kodu hakkında yardım | txt den kanala okutma yarim »

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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı




Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:38.
 

İçerik sağlayıcı platformu forumlarından biri olan ircrehberi.net sitemizde T.C.K 20.ci Madde ve 5651 Sayılı Kanun'un 4.cü maddesinin (2).ci fıkrasına göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. ircrehberi.net hakkında yapılacak tüm hukuki şikayetlere ilişkin iletişim sayfasından Veya E-Mail ile irtibata geçilmesi halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 15 (On beş) gün içinde tarafımızca gerekli aksiyon alınacak ve size dönüş yapılacaktır.
Sohbet Chat Chat mobil sohbet Tiktok Video indir sohbet sohbet sitesi Sohbet Sohbet
IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi Arşiv Gizlilik Bildirimi Kullanım Koşulları İletişim
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Copyright ©2019 - 2025 | IRCRehberi.Net

IRCRehberi.Net, JRodix.Com Sunucularında Barınmaktadır.