IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol  Topluluk
7Beğeni(ler)
  • 2 Post By diEfoRyoU
  • 1 Post By diEfoRyoU
  • 4 Post By Feragat

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 19 Temmuz 2019, 21:00   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Mırc Kodu Socket Cevirme



S.a Arkadslar Çok Ugrastım ama Beceremedım Aşagıdakı Kodu Sockete Çevirmek istiyorum sürekli hata verdi Coder arkadaslarımız yardımcı olursa cok sevınırım tşkler simdiden kolay gelsın..


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias renkle { if $istok(1 2 3 ,$1,32) { msg #SohbetLi 4 $+ $1 $+ )4 $2 2---> Satır :4 $3 } | else { msg #SohbetLi $1 $+ )2 $2 ---> Satır :5 $3 } }
on *:text:*:#SohbetLi:{
  if $istok(irc.SohbetLi.Org  chanserv OperServ SohbetLi-DUYURU Eglence Nickserv SohbetLi Nomercy,$nick,32) { return }
  if !geveze* iswm $1- {  { top10 | goto t0p10 }
    elseif !$read(puan/sohbet.txt,w,$+(*,$2,*)) { msg #SohbetLi $chan $2 puan listesinde yok }
    elseif ($2 == $me) { msg #SohbetLi | goto t0p10 }
    elseif ($2 == $nick && $read(puan/sohbet.txt,w,$+(*,$2,*))) { msg #SohbetLi $chan $read(puan/sohbet.txt,$readn) puanı var | goto t0p10 }
  }
  alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan/sohbet.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg #SohbetLi 5 ***4 #SohbetLi 2Kanalı Günün Gevezeleri 5 ***
  msg #SohbetLi 3-
  msg #SohbetLi 5SohbetLi ORG 3[2NoMercy Puan Sistemi3] 
  while %top10 <= %hit { renkle %top10 $line(%cnk,%top10) | inc %top10 } 
  window -c %cnk
}
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 20 Temmuz 2019, 22:44   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mırc Kodu Socket Cevirme



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $2 = privmsg && *#sohbetli* iswm $3 {
  if $istok(irc.SohbetLi.Org  chanserv OperServ SohbetLi-DUYURU Eglence Nickserv SohbetLi Nomercy,$gettok($remove($1,:),1,33),32) { return }
  if !geveze* iswm $4- {  top10 | goto t0p10 }
    elseif !$read(puan/sohbet.txt,w,$+(*,$5,*)) { sockwrite -nt nomercy privmsg #SohbetLi $3 $5 puan listesinde yok }
  ;  elseif ($2 == $me) {  goto t0p10 }
    elseif ($5 == $gettok($remove($1,:),1,33) && $read(puan/sohbet.txt,w,$+(*,$5,*))) { sockwrite -nt nomercy privmsg #SohbetLi $3 $read(puan/sohbet.txt,$readn) puanı var | goto t0p10 }
  }

değiştirilmesi gereken yerlerleri değiştirdim sanırım bu puan sistemi !puan nick şeklinde çalışıyor. eğer öyle ise bu şekilde çalışması lazım(kodu denemedim). tek yapman gereken botun if $2 == Privmsg yazan kısmını bulup, hemen üstüne yukarıdaki yamayı yapıştırmak, aşağıdaki alias'ları da bence alias kısmına yapıştır.

Not: sock sistemde $me çalışmadığı için pasifleştirdim eğer aktif olmasını istiyorsan ; karakterini silip, $2 == $me yazan yeri de $5 == botun ismini yazmalısın.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias renkle { if $istok(1 2 3 ,$1,32) { sockwrite -nt nomercy privmsg #SohbetLi 4 $+ $1 $+ )4 $2 2---> Satır :4 $3 } | else { sockwrite -nt nomercy privmsg #SohbetLi $1 $+ )2 $2 ---> Satır :5 $3 } }
 alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan/sohbet.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  sockwrite -nt nomercy privmsg #SohbetLi 5 ***4 #SohbetLi 2Kanalı Günün Gevezeleri 5 ***
  sockwrite -nt nomercy privmsg #SohbetLi 3-
  sockwrite -nt nomercy privmsg #SohbetLi 5SohbetLi ORG 3[2NoMercy Puan Sistemi3] 
  while %top10 <= %hit { renkle %top10 $line(%cnk,%top10) | inc %top10 } 
  window -c %cnk
}


__________________
TurkSohbet.NET | #XPass
Konu diEfoRyoU tarafından (20 Temmuz 2019 Saat 22:50 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 21 Temmuz 2019, 09:47   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mırc Kodu Socket Cevirme



selam DieForYou kod bu sekılde calısıyor. kanal genelıne !geveze yazınca

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
[09:45] <RahmetLi> !geveze
[09:45] <Eglence>  *** #SohbetLi Kanalı Haftanın Gevezeleri  ***
[09:45] <Eglence> -
[09:45] <Eglence> SohbetLi ORG [NoMercy Puan Sistemi] - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
1) RahmetLi ---> Satır : 1
[09:45] <Eglence> 2) ---> Satır :
[09:45] <Eglence> 3) ---> Satır :
[09:45] <Eglence> 4) ---> Satır :
[09:45] <Eglence> 5) ---> Satır :
[09:45] <Eglence> 6) ---> Satır :
[09:45] <Eglence> 7) ---> Satır :
[09:45] <Eglence> 8) ---> Satır :
[09:45] <Eglence> 9) ---> Satır :
[09:45] <Eglence> 10) ---> Satır :

en cok konuslarını verıyor mırcda sorunsuz calısıyorda ben sockete eklemek ıstıyorum tşkler kolay gelsin.

 
Alıntı ile Cevapla

Alt 21 Temmuz 2019, 12:35   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mırc Kodu Socket Cevirme



bu şekilde zaten en çok konuşanları vermez çünkü konuşulan kelime sayısını kayıt edecek bir kodlama göremiyorum ben
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

Alt 21 Temmuz 2019, 14:54   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mırc Kodu Socket Cevirme



diEfoRyoU hocam puan.txt e kayıt edıyor mırcta calısıyor sorun yok !geveze yazınca verıyor puanları ben sockete cevırmek ıstıyorum kanala suna !geveze yazdım sonucç
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

[14:53] <RahmetLi> !geveze

[14:53] <Eglence>  *** #SohbetLi Kanalı Haftanın Gevezeleri  ***

[14:53] <Eglence> -

[14:53] <Eglence> SohbetLi ORG [NoMercy Puan Sistemi] - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.SohbetLi.ORG

[14:53] <Eglence> 1) RahmetLi ---> Satır : 3

[14:53] <Eglence> 2) Aykız ---> Satır : 3

[14:53] <Eglence> 3) aLBaYRaK ---> Satır : 3

[14:53] <Eglence> 4) SeVDaLuK ---> Satır : 2

[14:53] <Eglence> 5) Maxsi ---> Satır : 1

[14:53] <Eglence> 6) Lost ---> Satır : 1

[14:53] <Eglence> 7) ---> Satır :

[14:53] <Eglence> 8) ---> Satır :

[14:53] <Eglence> 9) ---> Satır :

[14:53] <Eglence> 10) ---> Satır : 

bu sekılde verıyor ama bu mırcta yapıyor ben sadece sockete gore ayarlamak ıstıyorum kusura bakmayın boyna pğost atıyorum.


bilfiğim kadaruyla burası her kelimeyı 1 opuan olarak kaıyt edıyor.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan/sohbet.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk


Konu RahmetLi tarafından (21 Temmuz 2019 Saat 14:57 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 21 Temmuz 2019, 17:03   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mırc Kodu Socket Cevirme



düzenlediğim koddaki if !geveze* iswm $4- { top10 | goto t0p10 }
kısmını if *!geveze* iswm $4- { top10 | goto t0p10 }
olarak değiştir bakalım

__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

Alt 21 Temmuz 2019, 18:27   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mırc Kodu Socket Cevirme



yaptım ama hıcbır tepkı vermedı malesef
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 
Alıntı ile Cevapla

Alt 27 Temmuz 2019, 11:09   #8
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mırc Kodu Socket Cevirme



RahmetLi Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
diEfoRyoU hocam puan.txt e kayıt edıyor mırcta calısıyor sorun yok !geveze yazınca verıyor puanları ben sockete cevırmek ıstıyorum kanala suna !geveze yazdım sonucç
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

[14:53] <RahmetLi> !geveze

[14:53] <Eglence>  *** #SohbetLi Kanalı Haftanın Gevezeleri  ***

[14:53] <Eglence> -

[14:53] <Eglence> SohbetLi ORG [NoMercy Puan Sistemi] - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.SohbetLi.ORG

[14:53] <Eglence> 1) RahmetLi ---> Satır : 3

[14:53] <Eglence> 2) Aykız ---> Satır : 3

[14:53] <Eglence> 3) aLBaYRaK ---> Satır : 3

[14:53] <Eglence> 4) SeVDaLuK ---> Satır : 2

[14:53] <Eglence> 5) Maxsi ---> Satır : 1

[14:53] <Eglence> 6) Lost ---> Satır : 1

[14:53] <Eglence> 7) ---> Satır :

[14:53] <Eglence> 8) ---> Satır :

[14:53] <Eglence> 9) ---> Satır :

[14:53] <Eglence> 10) ---> Satır : 

bu sekılde verıyor ama bu mırcta yapıyor ben sadece sockete gore ayarlamak ıstıyorum kusura bakmayın boyna pğost atıyorum.


bilfiğim kadaruyla burası her kelimeyı 1 opuan olarak kaıyt edıyor.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan/sohbet.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk

Merhabalar.

1- Paylaştığın koddaki o bölüm .txt içindeki veriyi düzenlemek için filtre edilmiştir puan eklemesi yapmaz.
2- Paylaştığın mIRC kodundaki bu satırda ayraç hatası vardır: if !geveze* iswm $1- { { top10 | goto t0p10 }
3- Mevcut kodda goto döngüsündeki t0p10 hedefi bulunmuyor.

Kodun oriinal hali buradadır.(renkle Alias'ı sonradan eklenmiş.) Link: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#Kanal:{
  if $1 == !puan {
    if ($2  == list) { top10 | goto t0p10 }
    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
    elseif ($2 == $me) { msg $chan  Beni boşver,kendi puanına bak  | goto t0p10 }
    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanı var | goto t0p10 }
  }
  if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 | halt } 
  else { 
    var %dify $readn 
    var %yeah = $calc($token($read(puan.txt,%dify),2,32) +100) 
    write $+(-l,%dify) puan.txt $nick %yeah 
    if %yeah == 1000 {  mode $chan +v $nick | msg $chan Tebrikler $nick 1.000 puanın oldu }
  }
  :t0p10
}
alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg #Kanal (Top 10) Puan listesi:
  while %top10 <= %hit { msg #Kanal $ord(%top10) $line(%cnk,%top10) | inc %top10 } 
  window -c %cnk
}

Sana socket mantığı hakkında kısa bir bilgi vereyim, biliyor olsan da.

Socket yapısı, bağlantı kurulan IP veya HOST üzerindeki Ham(raw) veriyi okur. Ham veri, Eventlar(Olaylar)-Çeşitli yapılar(HTML vb.) tarafından işlenmemiş/yorumlanmamış veridir.

Örneğin bir web sitesine bağlantı kurduğunda tarayıcın kaynak kodlarını alır ve bunları HTML vb olaylarla yorumlayıp sana görsel, kullanılabilir veri sunar. Web sitesindeki ham(raw) veriyi görmek için Sağ Tık "Sayfa Kaynağını Görüntüle" yapabilirsin.
Socket yapısında IRC bağlantısı ve tüm bağlantılar aynı mantıkla işler. Socket, eventlar tarafından işlenmemiş veriyi görür ve yazacağın koşullar, kurallar ile bunu sana işler/yorumlar.

Socket'in tepkilerini görmek için basit bir Remote ile Ham (raw) mesajları elde edebilirsin.

Örnek:(#xms kanalını kendine göre ayarla)
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#xms:msg # $rawmsg


Çıktı örneği:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Etki:
[10:44] <Feragat> !puan raptor

Tepki (Ham-Raw veri):
[12:31:58] <raptor> :Feragat!~
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 PRIVMSG #xms :!puan raptor

Ham verideki sıralandırma (Boşluklar baz alınır.):
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
$1 = :Feragat!~
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

$2 = PRIVMSG
$3 = #xms 
$4 = :!puan
$5 = raptor

Koşulları buna göre oluşturacaksın.
Örnek:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ($2 == PRIVMSG) { kodlar }
if ($5 == raptor) { kodlar }
if ($3 == #xms) { kodlar }

gibi..

Faydalı olabilecek kaynaklar:
1- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
2- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
3- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
4- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
5- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
The Ghost of Christmas Past...

i'm here sometimes
Konu Feragat tarafından (27 Temmuz 2019 Saat 12:35 ) değiştirilmiştir. Sebep: Küçük bir düzenleme.
 
Alıntı ile Cevapla

Alt 28 Temmuz 2019, 08:26   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mırc Kodu Socket Cevirme



Feragat tşkler ilgınız için verdıgınız lınklrere baktım ama sockete cevıremedım nomercye eklıcemde

 
Alıntı ile Cevapla

Alt 12 Ağustos 2019, 10:56   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
mIRC kodu Socket Çevirme



Arkadaslar s.a Hayırlı bayramlar tüm IF Aliesine asagıdakı puan kodumu socket botunda calıstırmak ıstıyorum yardımıcı olurmusunuz şimdiden tşkler..

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#Kanal:{
  if $1 == !puan {
    if ($2  == list) { top10 | goto t0p10 }
    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
    elseif ($2 == $me) { msg $chan  Beni boşver,kendi puanına bak  | goto t0p10 }
    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanı var | goto t0p10 }
  }
  if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 | halt } 
  else { 
    var %dify $readn 
    var %yeah = $calc($token($read(puan.txt,%dify),2,32) +100) 
    write $+(-l,%dify) puan.txt $nick %yeah 
    if %yeah == 1000 {  mode $chan +v $nick | msg $chan Tebrikler $nick 1.000 puanın oldu }
  }
  :t0p10
}
alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg #Kanal (Top 10) Puan listesi:
  while %top10 <= %hit { msg #Kanal $ord(%top10) $line(%cnk,%top10) | inc %top10 } 
  window -c %cnk
}
 
Alıntı ile Cevapla

Cevapla

Etiketler
mırc bot, nomercy, nomercy kod ekleme, socket bot, sohbetli.org

« önceki Konu | sonraki Konu »

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 Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
!bomba Socket çevirme. ExcLuSive mIRC Scripting Sorunları 8 22 Mart 2018 20:14
Güncel bu kodu socket bota nasıl cashmare mIRC Scripting Sorunları 1 30 Aralık 2016 17:20
socket kodu ile wordpress royalpoint mIRC Scripting Sorunları 0 10 Şubat 2012 18:55
Cr De Mırc Bota Giris Kodu Koyabilırmıyız DaDaS mIRC Scripting Sorunları 4 08 Eylül 2010 16:54
Socket Bot Kodu KızıL-EjdeR mIRC Scripting Sorunları 0 13 Eylül 2009 03:16




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet tel sohbet instagram takipçi sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org