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/)

- - sajoin tcl (https://www.ircforumlari.net/tcl-scriptler/38476-sajoin-tcl.html)

GemLik

24 Eylül 2007 17:44

sajoin tcl

elinde sajoin tcl si olan var mı belirlediğim nickleri sunucuda belirlediğim kanallardan belirlediğim kanallara çekmesini istiyorum bir kaç tcl buldum ama çalışmıo çalışır vaziyette olan var mı elinizde

GemLik

24 Eylül 2007 23:25

Cevap: sajoin tcl

bu bölüme bakan yok galiba :) yada dediğimden kimse bişey anlamadı

GemLik

26 Eylül 2007 16:22

Cevap: sajoin tcl

yaws bi cvp yok mu alow tcl ci bi adam yokmu şurada

txf	26 Eylül 2007 18:12

Üşengeç Olmamak Lazım

En Üstte; Sabit Olarak Var Zaten TCL Arşivi Diye. Bakmayı Denesen Bulurdun Ama Hazır Daha Tatlı Oluyor Sanırım... Buyur

Kod:

bind raw - NOTICE baglanti 

proc baglanti {from keyword text} { 

if {[string match -nocase "*client connecting*" $text]} { 

set nick [lindex [split $text] 9]

utimer 1[list putserv "raw close" ]

utimer 1[list putserv "fjoin $nick #sohbet" ]

utimer 1[list putserv "fjoin $nick #oyun" ]

utimer 1[list putserv "fjoin $nick #radyo" ]

} 

}

Fjoin Yazan Yerleri Sajoin Yapman Yeterli Olacaktır Sanırım...

GemLik

26 Eylül 2007 22:50

Cevap: Üşengeç Olmamak Lazım

Alıntı:

txf Nickli Üyeden Alıntı (Mesaj 266332)

En Üstte; Sabit Olarak Var Zaten TCL Arşivi Diye. Bakmayı Denesen Bulurdun Ama Hazır Daha Tatlı Oluyor Sanırım... Buyur

Kod:

bind raw - NOTICE baglanti 

proc baglanti {from keyword text} { 

if {[string match -nocase "*client connecting*" $text]} { 

set nick [lindex [split $text] 9]

utimer 1[list putserv "raw close" ]

utimer 1[list putserv "fjoin $nick #sohbet" ]

utimer 1[list putserv "fjoin $nick #oyun" ]

utimer 1[list putserv "fjoin $nick #radyo" ]

} 

}

Fjoin Yazan Yerleri Sajoin Yapman Yeterli Olacaktır Sanırım...

bu benim aradığım sajoin tcl deil sen benim istediğimi anlamamışın bu servera gelenleri direk sohbet oyun radyo sajoinlior ben böyle bişey istemiyorum...

benim belirlediğim kanallarda benim belirlediğim nickleri benim belirlediğim kanallara sajoinlicek senin verdiğinle ne alaka ?

BLaCK_and_WHiTe

27 Eylül 2007 00:49

Cevap: sajoin tcl

Kod:

 bind raw * notice ssnotice

proc ssnotice {from keyword arg} {

 global kanallar

 if { [string match -nocase "*Client connecting on port*" $arg] } {

  set deger [rand 4]

  switch -- $deger {

   1 {

       putserv "sajoin [lindex $arg 9] [lindex $kanallar 1]"

   }

   2 {

       putserv "sajoin [lindex $arg 9] [lindex $kanallar 2]"

   }

   3 {

       putserv "sajoin [lindex $arg 9] [lindex $kanallar 3]"

   }

  }

 }

}

4 diye devam et örnek vermek gerekirse

Kod:

4 {

        putserv "sajoin [lindex $arg 9] [lindex $kanallar 4]"

bunu nasıl nereye hangi dosya içine ekliyoruz ?

Bu kodları dosyadı.tcl şeklinde bir dosyaya kaydet. (uzantısı tcl olmalı.)
Sonra eggdrop/scripts klasörüne koy.
Bundan sonrası sadece bu kod için bir conf ayarlayabilirsin veya sunucundaki mevcut botların herhangi birisinin confuna ilave edebilirsin (botun admin olması şart)
Her iki durumda da confun en altına
source scripts/dosyadı.tcl
satırını eklemen lazım.

Ben bunu bir yerden almıştım burasi da olabilir.

Cr ise sajoinleri fjoin yap

GemLik

27 Eylül 2007 20:36

Cevap: sajoin tcl

yaa benim anlatmak istediğim anlaşılmamış örnek vereyim sana istersen diyelim zurna ve sohbet kanallarına giren ali veli deli nicklerini istanbul bursaya soksun yani herkesi değil arkadaşım anlatabildiğim mi benim belirlediğim kanallarda benim belirlediğim nickleri benim belirlediğim kanallara sajoinlicek

txf	28 Eylül 2007 12:53

Cevap: sajoin tcl

Alıntı:

gemlikliali Nickli Üyeden Alıntı (Mesaj 265610)

Birileri Sana Yardımcı Olmaya Çalışıyor...
Ama Sen Her Defasında Yok Ne Alaka, Yok Bu Değil Yok Şu Değil vs vs Şeklinde Cevaplar Veriyorsun.
Öncelikle Daha Ilımlı Olmayı Dene.
Sonrasında İnsanlardan Cevap Bekle.
Kolay Gelsin...

GemLik

28 Eylül 2007 14:32

Cevap: sajoin tcl

Alıntı:

txf Nickli Üyeden Alıntı (Mesaj 267132)

kusura bakmada ilk sen bana bi cvp atmıştın yok araştırmıyorsun vs.. die o sebeple sana böyle verdim maksadım ukalalık deil ok. ;oki

Besmelejack

29 Eylül 2007 22:38

Cevap: sajoin tcl

Yokmu yardım edicek bir arkadaş.

BuCaLI

29 Eylül 2007 23:21

Cevap: sajoin tcl

PHP- Kodu:

   bind raw - NOTICE baglanti 
 
proc baglanti {from keyword text} { 
   if {[string match -nocase "*client connecting*" $text]} { 
   set nick [lindex [split $text] 9]
      if { $nick == "birnick" } { 
      putserv "sajoin $nick #kanaladi"
      } elseif { $nick == "baskabirnick" } {
      putserv "sajoin $nick #kanaladi"
      } elseif { $nick == "birbaskanick" } {
      putserv "sajoin $nick #kanaladi"
      }
   } 
}

GemLik

01 Ekim 2007 14:44

Cevap: sajoin tcl

bucalı attığın tüm mesajları takip ediyorum çok iyi tcl yazıyorsun :) başarılarının dewamını dilerim

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