IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi  
 sohbet
derya sohbet
Kayıt ol
Güncel Konular
irc.Soyle.NET Sunucusu Tüm Hakları İle Satın Alınmıştır..     */ ZurnaSohbet.Com.TR - Yeni Arayüzü Çalışması     TRmIRC.Net Satılıktır...     Sunucu Rehberi - Dostyeri.Org     Meepress: Full SEO Uyumlu ve Yaratıcı Haber Scripti     Wordpress Sohbet Siteleri İçin Öneriler Eklentisi ÇIKTI ve ÜCRETSİZ     10 bin Kişi Getirecek DJ Ve admin ALımları...     SuperSohbet.Net Güncel Yönetim Kadrosu     Satılık Radyo Domaini     Sohbet Chat Makaleleri Alınacaktır.    Sunucu Polemiği - AyYildizSohbet.Com & AyYildizFM    🎙️Radyo Polemiği 57- DostCanlar.Net & DostCanlar-Fm🎤📻    Ayın Editörü - Astrea    Ne Seninle Ne Sensiz - Brittle


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

11Beğeni(ler)


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

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

________________

bazen insanlar iyilesmek istemez.
cünkü ,
icindeki acı sevdiklerinin son hatirasidir..


per aspera ad astra ✨
 
Alıntı Yap
Alt 18 Aralık 2020, 14:55   #4
Sim
civciv~🐥
Sim - ait Kullanıcı Resmi (Avatar)
Standart
emeginize saglik

________________

Hope. . . ✨
 
Alıntı Yap
Alt 18 Aralık 2020, 15:49   #5
Set
Ö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.
    }
  }
}

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
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
Set
Ö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

 
Alıntı Yap
Alt 18 Aralık 2020, 15:57   #8
Kyo
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
Set
Ö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 ?

 
Alıntı Yap
Alt 18 Aralık 2020, 16:08   #10
Kyo
Kyo - ait Kullanıcı Resmi (Avatar)
Standart .
Alıntı:
Set Nickli Üyeden Alıntı Mesajı göster
Herhangi bir socket bot kullanıyor'musun ?
AyNet.org Sunucumuzda ki MerLyn botu socket. Bu kodu o botta kullanacagız.

 
Alıntı Yap
Cevap Yaz
Sayfa 1 Toplam 2 Sayfadan 1 2

« 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: 00:12.

İçerik sağlayıcı paylaşım 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.
Chat Chat Sohbet Okey Oyna sohbet mobil sohbet Uğur Ücretsiz Sohbet odalari Sohbetci
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 - 2024, vBulletin Solutions, Inc.
Copyright ©2019 - 2023 | IRCRehberi