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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Çözüldü Socket Bot Eglence eklentileri nasıl yapabılırım (https://www.ircforumlari.net/mirc-scripting-sorunlari/800158-socket-bot-eglence-eklentileri-nasil-yapabilirim.html)

Turk06 04 Ağustos 2018 14:29
Socket Bot Eglence eklentileri nasıl yapabılırım
 
Socket Bot Eglence eklentileri nasıl yapabılırım yardımcı olurmusunuz bana Socket bota soz cay kek hedıye gıbı eklentılerı nasıl yapabılırım

YouMyCure 04 Ağustos 2018 21:51
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
Turk06 Nickli Üyeden Alıntı (Mesaj 1041971596)
Socket Bot Eglence eklentileri nasıl yapabılırım yardımcı olurmusunuz bana Socket bota soz cay kek hedıye gıbı eklentılerı nasıl yapabılırım
Kod:
if $regex($remove($4,:),/([.!]s[öÖo]z)/Si)  {
        if !$5 || !$6 { swextrabot privmsg $_nick($1) Lütfen .söz ekle SÖZÜNÜZ şekline kullanın.. | return }
        if $5 == ekle {
          write soz.txt $6- $+ ÷ $+ $_nick($1))
          swextrabot privmsg $_nick($1) $_nick($1) 2sözünüz listeye eklenmiştir. 3Söz numarası:5 $lines(soz.txt)
          swextrabot privmsg $_nick($1) 2Eklediğiniz Söz: 4"1 $6- 4"
          swextrabot privmsg $_botchan  -
          swextrabot privmsg $_botchan $_nick($1) 2bir söz ekledi 3Söz numarası:5 $lines(soz.txt)
          swextrabot privmsg $_botchan 2Eklediği Söz: 4"1 $6- 4"
          swextrabot privmsg $_botchan 2Ugunsuzsa Sözü Silmek İçin: .söz sil4 $lines(soz.txt) 2yapınız...
          swextrabot privmsg $_botchan  -
        }
      }
    }
    if *!* iswm $remove($4,:) || *.* iswm $remove($4,:) {
      var %::ii = 1
      while %::ii <= $lines(globalkanal.txt) {
        if $3 == $read(globalkanal.txt,%::ii) {
          if $regex($remove($4,:),/([.!]sen)/Si) {
            if !$5 {  swextrabot privmsg $3 Lütfen .sen NİCK şeklinde kullanın. kendiniz için kullanacaksanız .ben | return }
            if $hget(sen,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]sen Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .sen $5 komutunu kullandı.
            if !$hget(sen) { hmake sen }
            hinc -mu1 sen $_nick($1)
            swextrabot privmsg $3 $+(5,$5,2) $read(senben.txt)
          }

          if $remove($4,:) == .ben || $remove($4,:) == !ben {
            if $hget(ben,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]ben Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .ben komutunu kullandı.
            if !$hget(ben) { hmake ben }
            hinc -mu1 ben $_nick($1)
            swextrabot privmsg $3 $+(5,$_nick($1),2) $read(senben.txt)
          }
          if $regex($remove($4,:),/([.!]benimtarz[iİı]m)/Si)  {
            if $hget(tarzim,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]benimtarzim Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .benimtarzim komutunu kullandı.
            if !$hget(tarzim) { hmake tarzim }
            hinc -mu1 tarzim $_nick($1)
            swextrabot privmsg $3 $_nick($1) $read(tarz.txt)
          }
          if $regex($remove($4,:),/([.!]tarz)/Si)  {
            if $5 == $_nick($1) {  swextrabot privmsg $3 Kendi tarzınızı yorumlatmak için .benimtarzim | return }
            if $hget(tarz,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]tarz Komutunu Kullanabilirsiniz. | return }
            if !$5 { swextrabot privmsg $3 Lütfen .tarz NİCK şeklinde kullanınız. kendi tarzınızı görmek için .benimtarzim | return }
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .tarz $5 komutunu kullandı.
            if !$hget(tarz) { hmake tarz }
            hinc -mu1 tarz $_nick($1)
            swextrabot privmsg $3 $5 $read(tarz.txt)
          }

          if $regex($remove($4,:),/([.!][oÖö]p)/Si)  {
            if $5 == $_nick($1) {  swextrabot privmsg $3 Kendi kendini mi öpecen kudurdunmu $_nick($1) :Dds | return }
            if $hget(opo,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]öp Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $3 $+(2,$_nick($1)) $5 1i kocaman öptü4  $gettok(%öpüş,$r(1,7),$asc(*)) 4:*
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .öp $5 $5 komutunu kullandı.
            if !$hget(opo) { hmake opo }
            hinc -mu1 opo $_nick($1)
          }
          if $regex($remove($4,:),/([.!]zar)/Si)  {
            if $hget(zar,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $3 Attığın zarı tarif et $+($_nick($1),...)
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .zar $5 komutunu kullandı.
            if !$hget(zar) { hmake zar }
            hinc -mu1 zar $_nick($1)
            var %dice $rand(1,6)
            var %dice2 $rand(1,6)
            swextrabot privmsg $3 2Senin zarların $+(%dice,-,%dice2)
            if (%dice == %dice2) {
              swextrabot privmsg $3 Kazandın! Tebrikler $+($_nick($1),!)
              swextrabot privmsg $3 4Hediyen: $+(2,$read(hediye.txt))
            }
            elseif (%dice != $dice2) {
              swextrabot privmsg $3 Üzgünüm $+($_nick($1),$chr(32)) kazanamadın. Tekrar dene!
            }
          }

          if $regex($remove($4,:),/([.!]hed[iİı]ye)/Si)  {
            if $5 == $_nick($1) {  swextrabot privmsg $3 Kendi kendine hediyemi gönderecen egolu kardes | return }
            if !$5 { swextrabot privmsg $3 Lütfen .hediye NİCK şeklinde kullanınız | return }
            if $hget(hediye,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]hediye Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(hediye.txt) 1hediye etti.
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .hediye $5 komutunu kullandı.
            if !$hget(hediye) { hmake hediye }
            hinc -mu1 hediye $_nick($1)
          }
          if $regex($remove($1,:),/([.!]f[iIı]rlat)/Si)  {
            if $5 == $_nick($1) {  swextrabot privmsg $3 Kendi kendine ne firlatmayi deniyorsun ah be kardesim | return }
            if !$5 { swextrabot privmsg $3 Lütfen .fırlat NİCK şeklinde kullanınız | return }
            if $hget(firlat,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]firlat Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $3 -
            swextrabot privmsg $3 $+(2,$_nick($1)) 1nicki2 $5 1nickine4 $gettok($read(firlat.txt),1,$asc(=)) 1fırlattı.
            swextrabot privmsg $3 1aha2 $5 1in4 $gettok(%firlatymc,$r(1,5),$asc(*)) 1:Dd
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .fırlat $5 komutunu kullandı.
            if !$hget(firlat) { hmake firlat }
            hinc -mu1 firlat $_nick($1)
          }
kendi botuna göre düzenleyip kullanabilirsin tayfur. txtleri ve identiferleri

Turk06 05 Ağustos 2018 09:23
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1041971642)
Kod:
if $regex($remove($4,:),/([.!]s[öÖo]z)/Si)  {
        if !$5 || !$6 { swextrabot privmsg $_nick($1) Lütfen .söz ekle SÖZÜNÜZ şekline kullanın.. | return }
        if $5 == ekle {
          write soz.txt $6- $+ ÷ $+ $_nick($1))
          swextrabot privmsg $_nick($1) $_nick($1) 2sözünüz listeye eklenmiştir. 3Söz numarası:5 $lines(soz.txt)
          swextrabot privmsg $_nick($1) 2Eklediğiniz Söz: 4"1 $6- 4"
          swextrabot privmsg $_botchan  -
          swextrabot privmsg $_botchan $_nick($1) 2bir söz ekledi 3Söz numarası:5 $lines(soz.txt)
          swextrabot privmsg $_botchan 2Eklediği Söz: 4"1 $6- 4"
          swextrabot privmsg $_botchan 2Ugunsuzsa Sözü Silmek İçin: .söz sil4 $lines(soz.txt) 2yapınız...
          swextrabot privmsg $_botchan  -
        }
      }
    }
    if *!* iswm $remove($4,:) || *.* iswm $remove($4,:) {
      var %::ii = 1
      while %::ii <= $lines(globalkanal.txt) {
        if $3 == $read(globalkanal.txt,%::ii) {
          if $regex($remove($4,:),/([.!]sen)/Si) {
            if !$5 {  swextrabot privmsg $3 Lütfen .sen NİCK şeklinde kullanın. kendiniz için kullanacaksanız .ben | return }
            if $hget(sen,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]sen Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .sen $5 komutunu kullandı.
            if !$hget(sen) { hmake sen }
            hinc -mu1 sen $_nick($1)
            swextrabot privmsg $3 $+(5,$5,2) $read(senben.txt)
          }

          if $remove($4,:) == .ben || $remove($4,:) == !ben {
            if $hget(ben,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]ben Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .ben komutunu kullandı.
            if !$hget(ben) { hmake ben }
            hinc -mu1 ben $_nick($1)
            swextrabot privmsg $3 $+(5,$_nick($1),2) $read(senben.txt)
          }
          if $regex($remove($4,:),/([.!]benimtarz[iİı]m)/Si)  {
            if $hget(tarzim,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]benimtarzim Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .benimtarzim komutunu kullandı.
            if !$hget(tarzim) { hmake tarzim }
            hinc -mu1 tarzim $_nick($1)
            swextrabot privmsg $3 $_nick($1) $read(tarz.txt)
          }
          if $regex($remove($4,:),/([.!]tarz)/Si)  {
            if $5 == $_nick($1) {  swextrabot privmsg $3 Kendi tarzınızı yorumlatmak için .benimtarzim | return }
            if $hget(tarz,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]tarz Komutunu Kullanabilirsiniz. | return }
            if !$5 { swextrabot privmsg $3 Lütfen .tarz NİCK şeklinde kullanınız. kendi tarzınızı görmek için .benimtarzim | return }
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .tarz $5 komutunu kullandı.
            if !$hget(tarz) { hmake tarz }
            hinc -mu1 tarz $_nick($1)
            swextrabot privmsg $3 $5 $read(tarz.txt)
          }

          if $regex($remove($4,:),/([.!][oÖö]p)/Si)  {
            if $5 == $_nick($1) {  swextrabot privmsg $3 Kendi kendini mi öpecen kudurdunmu $_nick($1) :Dds | return }
            if $hget(opo,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]öp Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $3 $+(2,$_nick($1)) $5 1i kocaman öptü4  $gettok(%öpüş,$r(1,7),$asc(*)) 4:*
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .öp $5 $5 komutunu kullandı.
            if !$hget(opo) { hmake opo }
            hinc -mu1 opo $_nick($1)
          }
          if $regex($remove($4,:),/([.!]zar)/Si)  {
            if $hget(zar,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $3 Attığın zarı tarif et $+($_nick($1),...)
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .zar $5 komutunu kullandı.
            if !$hget(zar) { hmake zar }
            hinc -mu1 zar $_nick($1)
            var %dice $rand(1,6)
            var %dice2 $rand(1,6)
            swextrabot privmsg $3 2Senin zarların $+(%dice,-,%dice2)
            if (%dice == %dice2) {
              swextrabot privmsg $3 Kazandın! Tebrikler $+($_nick($1),!)
              swextrabot privmsg $3 4Hediyen: $+(2,$read(hediye.txt))
            }
            elseif (%dice != $dice2) {
              swextrabot privmsg $3 Üzgünüm $+($_nick($1),$chr(32)) kazanamadın. Tekrar dene!
            }
          }

          if $regex($remove($4,:),/([.!]hed[iİı]ye)/Si)  {
            if $5 == $_nick($1) {  swextrabot privmsg $3 Kendi kendine hediyemi gönderecen egolu kardes | return }
            if !$5 { swextrabot privmsg $3 Lütfen .hediye NİCK şeklinde kullanınız | return }
            if $hget(hediye,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]hediye Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $3 $+(2,$_nick($1)) 2 $5 1nickine4 $read(hediye.txt) 1hediye etti.
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .hediye $5 komutunu kullandı.
            if !$hget(hediye) { hmake hediye }
            hinc -mu1 hediye $_nick($1)
          }
          if $regex($remove($1,:),/([.!]f[iIı]rlat)/Si)  {
            if $5 == $_nick($1) {  swextrabot privmsg $3 Kendi kendine ne firlatmayi deniyorsun ah be kardesim | return }
            if !$5 { swextrabot privmsg $3 Lütfen .fırlat NİCK şeklinde kullanınız | return }
            if $hget(firlat,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]firlat Komutunu Kullanabilirsiniz. | return }
            swextrabot privmsg $3 -
            swextrabot privmsg $3 $+(2,$_nick($1)) 1nicki2 $5 1nickine4 $gettok($read(firlat.txt),1,$asc(=)) 1fırlattı.
            swextrabot privmsg $3 1aha2 $5 1in4 $gettok(%firlatymc,$r(1,5),$asc(*)) 1:Dd
            swextrabot privmsg $_botchan $_nick($1) $3 kanalında .fırlat $5 komutunu kullandı.
            if !$hget(firlat) { hmake firlat }
            hinc -mu1 firlat $_nick($1)
          }
kendi botuna göre düzenleyip kullanabilirsin tayfur. txtleri ve identiferleri
BU KODU NEREYE EKLIYCEM NE YAPICAM BIRAZ DETAY VEREBILIRMISIN BILGIM YOK HIC

YouMyCure 05 Ağustos 2018 10:15
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
Turk06 Nickli Üyeden Alıntı (Mesaj 1041971717)
BU KODU NEREYE EKLIYCEM NE YAPICAM BIRAZ DETAY VEREBILIRMISIN BILGIM YOK HIC
Bot olarak paylaşıyorum tayfur sanırım işini görür bu
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Turk06 05 Ağustos 2018 14:58
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1041971723)
Bot olarak paylaşıyorum tayfur sanırım işini görür bu
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

YouMyCure paylaşımın ıcın cok teşekkür ederim saol

Turk06 06 Ağustos 2018 20:36
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1041971723)
Bot olarak paylaşıyorum tayfur sanırım işini görür bu
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
ARKADAŞLAR YouMyCure VERDIGI BOTU BEN EDITLEDIM MIRC EXE SINI CALISTIRIYORUM AMA SUNUCUYA GIRMIYOR ARANIZDA INDIRIP KURAN CALISTIRAN VARSA YARDIM EDEBILIRMI

Korkut 06 Ağustos 2018 20:53
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Zipten cikardiktan sonra YouMyCure isimli klasörde Giris.txt var onu düzenle öyle sunucuya bagla

SM-N7500Q cihazımdan Tapatalk kullanılarak gönderildi

YouMyCure 06 Ağustos 2018 20:57
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Bot çalışıyor

Turk06 07 Ağustos 2018 23:49
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1041972114)
Bot çalışıyor
çalışmıyor mırc exe acıyorum oylece duruyor otomarık sunucuya gırmıyor edıtlemeyıde dogru yapdım

YouMyCure 07 Ağustos 2018 23:53
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
otomatik girmiyorsa sende sockopen komutu ile sok :D

BeReLi 08 Ağustos 2018 00:17
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
yok calışmıyor kac kere denedim olmadı neyse emegine saglık

YouMyCure 08 Ağustos 2018 00:45
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
arkadaşlar /sockopen extrabot irc.sunucu.uzanti port yapmak bukadar zormu bot sorunsuz bunu beceremeyen varsa kullanmasin ne diyeyim.

Toprak 08 Ağustos 2018 13:02
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1041972512)
arkadaşlar /sockopen extrabot irc.sunucu.uzanti port yapmak bukadar zormu bot sorunsuz bunu beceremeyen varsa kullanmasin ne diyeyim.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] suç sende aslında =) paylaştığında bilgi ver /server irc.sunucu.com olarak normal mirc'i açmıştır :) paylaşırken altına belirt, yada remoteye alias server { sockopen bot $1- } ekle ;)

YouMyCure 08 Ağustos 2018 19:05
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041972558)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] suç sende aslında =) paylaştığında bilgi ver /server irc.sunucu.com olarak normal mirc'i açmıştır :) paylaşırken altına belirt, yada remoteye alias server { sockopen bot $1- } ekle ;)
HAKLISIN

Zanay 20 Kasım 2018 13:25
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
YouMyCure Merhaba ;

Bot için teşekkürler ilk önce. Benim şöyle bir sorum olacak. Botun özelliklerini görmek için botun özeline !komutlar bilgisini atarak bot cevap veriyor. Bunu kanala gelenlere kısa bilgi olarak nasıl yapabiliriz. Örnek bot #x kanalına gelenlere Hoş Geldiniz Eğlence dizinini görmek için !komutlar vs gibi mesaj atmasını istiyorum. Yardımların için şimdiden teşekkürler.

Alper 20 Kasım 2018 17:31
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Kod:
if $2 == JOIN {
    if $_nick($1) == $_extranick { swextrabot mode $remove($3,:) +h $_extranick }
    if $right($3,-1) == #sohbet { swextrabot privmsg $_nick($1) :Bilmem ne kanalına hoşgeldiniz... $_nick($1) vs..vs..vs..vs.. }
  }

Kırmızı renk hangi kanal istiyorsan o şekilde değişirsin.
Mavi renk belirttiğin kanala girecek nickin özeline yazılacak mesaj.



Bottaki Join kısmın bu şekilde değişirsen çalışır diye tahmin ediyorum.

Zanay 29 Kasım 2018 13:40
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
pCkOpAt Nickli Üyeden Alıntı (Mesaj 1042001955)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Kod:
if $2 == JOIN {
    if $_nick($1) == $_extranick { swextrabot mode $remove($3,:) +h $_extranick }
    if $right($3,-1) == #sohbet { swextrabot privmsg $_nick($1) :Bilmem ne kanalına hoşgeldiniz... $_nick($1) vs..vs..vs..vs.. }
  }

Kırmızı renk hangi kanal istiyorsan o şekilde değişirsin.
Mavi renk belirttiğin kanala girecek nickin özeline yazılacak mesaj.



Bottaki Join kısmın bu şekilde değişirsen çalışır diye tahmin ediyorum.

pCkOpAt Bilgi için teşekkür ederim ama bahsi geçen kod ile olmadı.

Alper 29 Kasım 2018 13:54
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
Zanay Nickli Üyeden Alıntı (Mesaj 1042004511)
pCkOpAt Bilgi için teşekkür ederim ama bahsi geçen kod ile olmadı.
Denemeden kod paylaşımı yapmıyorum. Yanlış yapmış olabilirsin. Eve geçince yardımcı olabilirim.

Zanay 07 Aralık 2018 12:25
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
pCkOpAt Nickli Üyeden Alıntı (Mesaj 1042004514)
Denemeden kod paylaşımı yapmıyorum. Yanlış yapmış olabilirsin. Eve geçince yardımcı olabilirim.
pCkOpAt Merhaba ;
Kodu evirip çevirdim kurcala kurcala sonunda yaptım :) Emeklerin için yeniden teşekkürler.

İlgili kod buymuş :))

Kod:
if $2 == JOIN && $_nick($1) == $_extranick {
    swextrabot mode $remove($3,:) +h $_extranick
  }
  if $right($3,-1) == #Sohbet {
      swextrabot privmsg $right($3,-1) :1*** Sohbet Sunucusuna Hoşgeldiniz.
      swextrabot privmsg $right($3,-1) :1Sohbeti Daha Eğlenceli Bir Hale Getirmek İçin Özelime veya Kanal Geneline 4!eglence 1yazınız.
      swextrabot privmsg $right($3,-1) :1Birbirinden farklı eğlenceler sizleri bekliyor.
      return
    }

Alper 07 Aralık 2018 13:02
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
Zanay Nickli Üyeden Alıntı (Mesaj 1042007513)
pCkOpAt Merhaba ;
Kodu evirip çevirdim kurcala kurcala sonunda yaptım :) Emeklerin için yeniden teşekkürler.

İlgili kod buymuş :))

Kod:
if $2 == JOIN && $_nick($1) == $_extranick {
    swextrabot mode $remove($3,:) +h $_extranick
  }
  if $right($3,-1) == #Sohbet {
      swextrabot privmsg $right($3,-1) :1*** Sohbet Sunucusuna Hoşgeldiniz.
      swextrabot privmsg $right($3,-1) :1Sohbeti Daha Eğlenceli Bir Hale Getirmek İçin Özelime veya Kanal Geneline 4!eglence 1yazınız.
      swextrabot privmsg $right($3,-1) :1Birbirinden farklı eğlenceler sizleri bekliyor.
      return
    }
return koymana gerek yok. Tam olarak bahsettiğim yer orasıydı. :)

IoRi YaGaMi 22 Eylül 2019 17:10
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1041972503)
otomatik girmiyorsa sende sockopen komutu ile sok :D
Merhaba, aşağıda ki kod hediye.txt den okumuyor. sorunu ne olabilir.
Kod:
elseif $regex($remove($4,:),/([.!]zar)/Si)  {
    if $hget(zar,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
    swbot privmsg $3 :Sallıyoruz zarları.. haydi yavrum kemik! $+($_nick($1),...)
    swbot privmsg $_botchan $_nick($1) $3 kanalında .zar $5 komutunu kullandı.
    if !$hget(zar) { hmake zar }
    hinc -mu1 zar $_nick($1)
    var %dice $rand(1,6)
    var %dice2 $rand(1,6)
    swbot privmsg $3 2Zarlar durdu! $+(%dice,-,%dice2), $+ $read(zar.txt,w)
    if (%dice == %dice2) {
      swbot privmsg $3 Kazandın! Tebrikler $+($_nick($1),!)
      swbot privmsg $3 Hediyen: $+$read(hediye.txt)
    }
    elseif (%dice != $dice2) {
      swbot privmsg $3 Üzgünüm $+($_nick($1),$chr(32)) kazanamadın. Tekrar dene!
    }
  }

Alper 22 Eylül 2019 17:16
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
BLackDewiL Nickli Üyeden Alıntı (Mesaj 1042159172)
Merhaba, aşağıda ki kod hediye.txt den okumuyor. sorunu ne olabilir.
Kod:
elseif $regex($remove($4,:),/([.!]zar)/Si)  {
    if $hget(zar,$_nick($1)) { swbot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
    swbot privmsg $3 :Sallıyoruz zarları.. haydi yavrum kemik! $+($_nick($1),...)
    swbot privmsg $_botchan $_nick($1) $3 kanalında .zar $5 komutunu kullandı.
    if !$hget(zar) { hmake zar }
    hinc -mu1 zar $_nick($1)
    var %dice $rand(1,6)
    var %dice2 $rand(1,6)
    swbot privmsg $3 2Zarlar durdu! $+(%dice,-,%dice2), $+ $read(zar.txt,w)
    if (%dice == %dice2) {
      swbot privmsg $3 Kazandın! Tebrikler $+($_nick($1),!)
      swbot privmsg $3 Hediyen: $+$read(hediye.txt)
    }
    elseif (%dice != $dice2) {
      swbot privmsg $3 Üzgünüm $+($_nick($1),$chr(32)) kazanamadın. Tekrar dene!
    }
  }
Kod:
swbot privmsg $3 Hediyen: $+$read(hediye.txt)
Kısmı

Kod:
swbot privmsg $3 Hediyen: $read(hediye.txt)
Değişip dener misin

IoRi YaGaMi 22 Eylül 2019 17:28
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
Alper Nickli Üyeden Alıntı (Mesaj 1042159174)
Kod:
swbot privmsg $3 Hediyen: $+$read(hediye.txt)
Kısmı

Kod:
swbot privmsg $3 Hediyen: $read(hediye.txt)
Değişip dener misin
[17:28] <Eglence> Sallıyoruz zarları.. haydi yavrum kemik! FuaT...
[17:28] <Eglence> 2Zarlar durdu! 2-2
[17:28] <Eglence> Kazandın! Tebrikler FuaT!
[17:28] <Eglence> Hediyen:
>>>> bu şekilde boş cıkıyor. dediğiniz gibi yaptım.

Emrehan 22 Eylül 2019 17:38
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
hediye.txt'nin bulunduğu dizini kontrol edin.

IoRi YaGaMi 22 Eylül 2019 17:42
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
Emrehan Nickli Üyeden Alıntı (Mesaj 1042159193)
hediye.txt'nin bulunduğu dizini kontrol edin.
Merhaba, hediye.txt mirc ana dizininde.

Alper 22 Eylül 2019 18:11
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
BLackDewiL Nickli Üyeden Alıntı (Mesaj 1042159185)
[17:28] <Eglence> Sallıyoruz zarları.. haydi yavrum kemik! FuaT...
[17:28] <Eglence> 2Zarlar durdu! 2-2
[17:28] <Eglence> Kazandın! Tebrikler FuaT!
[17:28] <Eglence> Hediyen:
>>>> bu şekilde boş cıkıyor. dediğiniz gibi yaptım.

Dosya adı ne olarak gözüküyor sende mesela mirc klasörü açtığında hediye.txt diye mi gözüküyor yoksa sadece hediye olarak mı eğer uzantılar kapalı olduğu halde hediye.txt olarak gözüküyorsa .txt kısmını silip o şekilde dene.

IoRi YaGaMi 22 Eylül 2019 18:26
Cevap: Socket Bot Eglence eklentileri nasıl yapabılırım
 
Alıntı:
Alper Nickli Üyeden Alıntı (Mesaj 1042159207)
Dosya adı ne olarak gözüküyor sende mesela mirc klasörü açtığında hediye.txt diye mi gözüküyor yoksa sadece hediye olarak mı eğer uzantılar kapalı olduğu halde hediye.txt olarak gözüküyorsa .txt kısmını silip o şekilde dene.
uzantıları daha once açtım. ama yinede kontrol ettim simdi. Bilinen dosya türleri için uzantıları gizle seçeneğinde tik işaretlenmemiş. Yani bir sorun olmaması lazım. hediye.txt olarak duruyor ana klasor de.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:26 -->-> Daha önceki mesaj 18:15 --

[18:24] <10FuaT> .zar
[18:24] <Eglence> Sallıyoruz zarları.. haydi yavrum kemik! FuaT...
[18:24] <Eglence> 2Zarlar durdu! 4-4
[18:24] <Eglence> Kazandın! Tebrikler FuaT: )
[18:24] <Eglence> Hediyen: Kalp

Sayın pC`kOpAt Üstadın Yardımı, bizzat gelip ilgilenmesi sonucu kod düzelmiş ve çözülmüştür. Tüm yardımı dokunanlara da ayrıca Teşekür ederim.


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk