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/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   !eglence TCL (https://www.ircforumlari.net/tcl-scriptler/880621-eglence-tcl.html)

AutomatiC 06 Eylül 2020 23:18
!eglence TCL
 
Merhaba kolay gelsın
baktım ama bulamadım bu mirc botlarda var ama ben tcl olarak aramaktayım yardımcı olacak yada yol gosterebılecek coderlerden destek rıca ederım

!eglence eklentılerı var mırc kodları olarak ama ben bunu tcl olarak ıstıyorum

!terlik
!sev
!döv

gibi kanal genelıne yazdıklarında Xxxx nıck sızı sevdi "seni seviyorum" gibi yapmak ıstıyorum nasıl yapabılırım bır yol gosterebılırmısınız

Heartbroken 07 Eylül 2020 00:39
Cevap: !eglence TCL
 
Kod:
bind pubm - "*" Eglence_Pubm

proc Eglence_Pubm {nick uhost hand chan text} {
    set Komut [lindex [split $text] 0]
    set Hedef [lindex [split $text] 1]
    # Kullanım : !Komut Hedefteki Kişinin Rumuzu...
    if {[string is space -strict $Hedef]} {
        putserv "NOTICE $nick :Kullanımı: $::lastbind <Hedefteki Rumuz>"
        return 0
    }
    switch -nocase -- $Komut {
        !sev { puthelp "PRIVMSG $chan :$Hedef Xxxx $nick sizi sevdi \"seni seviyorum\"" }
        !terlik { puthelp "PRIVMSG $chan :Terlik Mesajı...." }
        !döv { puthelp "PRIVMSG $chan :Döv Mesajı...." }
        default { }
    }
    return 0
}

AutomatiC 08 Eylül 2020 11:37
Cevap: !eglence TCL
 
Heartbroken oncelıkle destegın ıcın tsk ederım..

1-Bunu txt dosyalardan okutma gıbı bır sansımız olurmu
2-Ayrıca belırledıgım nıckler dısında kullanımını yasaklamak ıstersem ne yapmam gerekıyor yardımcı olabılırmısın
3- Mesela !terlik Heartbroken yazdıgımızda txt ıcındekı dosyadan herhangi bir sözü kanala " Automatic - Heatborken terlikle dövüyor .....(txt sözü eklesin).....

Heartbroken 08 Eylül 2020 13:58
Cevap: !eglence TCL
 
Kod:
bind pubm - "*" Eglence_Pubm

proc Eglence_Pubm {nick uhost hand chan text} {
  if {![matchattr [nick2hand $nick] f|f $chan]} { return 0 }
    set Komut [lindex [split $text] 0]
    set Hedef [lindex [split $text] 1]
    # Kullanım : !Komut Hedefteki Kişinin Rumuzu...
    if {[string is space -strict $Hedef]} {
        putserv "NOTICE $nick :Kullanımı: $::lastbind <Hedefteki Rumuz>"
        return 0
    }
    set Posta [OkuLa [string range [string map {ö o ı i ü u ç c} [string tolower $Komut]] 1 end].txt]
    set Posta [string map {%nick% $nick %Hedef% $Hedef %chan% $chan} $Posta]
    switch -nocase -- $Komut {
        !sev { puthelp "PRIVMSG $chan :$Posta" }
        !terlik { puthelp "PRIVMSG $chan :$Posta" }
        !döv { puthelp "PRIVMSG $chan :$Posta" }
        default { }
    }
    return 0
}

proc OkuLa Dosya {
    if {![file readable $Dosya] || ![file exists $Dosya]} {
        catch { close [open $Dosya w+] }
    }
    set Oku [open $Dosya]
    set Satir [split [read $Oku] \n]
    close $Oku
    return [lindex $Satir [expr {int(rand()*[llength $Satir])}]]
}
.txt Dosyaları Hazırlayın,
Bot Ana Dizininde Küçük Harflerle ,
ö,ü,ı Gibi Türkçe Karakterler Kullanılmadan,
dov.txt,eglence.txt Gibi...


Siz Hazırlamasanız Dahi Script Yüklenip,
!Komut'lardan Biri Kullanılırsa,
Boş Olarak Oluşturacaktır!


Dosyalara AltAlta Satır Satır Ekleyin.
Hedefteki Kişi İçin %Hedef%
Komutu Kullanan Kişi İçin %nick%
Komutun Kullanıldığı Kanal Adı Geçecekse %chan%
Şeklinde .txt Satırlarına Eklenilmelidir!


Misal,Kanala Yansıyacak;

Automatic - Heatborken terlikle dövüyor
.txt Dosyasında;
%nick% - %Hedef% terlikle dövüyor

Şeklinde Görülmelidir!


.txt Dosyasında Eklenecek " [ { } ] Gibi
Tcl Programlamada Anlam İçeren Karakterler:
\" \[ \{ \} \] Gibi Eklenmelidir!


Komutu Kullanacakları Seçmek İçin:
İzin Vereceğiniz Kişiyi,
Botunuza Bağlanıp, Kullanıcı Olarak

Ekleyip +f (Friend - Arkadaş)

Eggdrop Kullanıcı Flağı Verin!


Daha Evvel Pekçok Konuda Burada,
Ayrıntıyla Bunu Nasıl Yapılacağını Yazdım.
Doğrusu Tekrar Tekrar

Aynı Şeyleri Açıklamaktanda Bıktım!
Burada Resmi Sitesinde :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Flaglar Anlamları Ve Nasıl Flag Atanacağı

Yazılı!
Bota Bağlandığınızda : .help +user

Nasıl Kullanıcı Ekleyip-Çıkaracağınızı Gösterecektir..
.help <Komut>

Bota Bağlıyken,Botun Kendi Help(Yardım)
Konularından Detaylı Bilgi Almanızı Sağlayacaktır.


Hala Yapamadım Vs... Deniyorsa,
Eski Cevap Yazdığım Konulara Bakmanızı

Tavsiye Ederim!
Çünkü Pekçok Kez Bunların İnciğini-Cıncığını
Yazdım Açıkladım Geçmiş Konu Postlarında,


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

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