isinla.tcl lazım arkadaşlar yardım ederseniz sevinirim.. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Askyagmuru · 01 Haziran 2009, 18:41

Slm arkadaşlar hepinize iyi günler. Eskiden Kullandığım bir sistem vardı .isinla nick sistemi şöyle ki servera bağlandığı zaman sadece help odasına giriyo ve odada .isinla nick yazdığında global odalara giriyo yani ...

.isinla abc

abc isinlama islemi Basladı.Lütfen Bekleyin

abc Odalara Aktarılıyorsunuz . Hos Sohbetler Dilerim

abc isinlama islemi tamamlanmıştır.

şeklinde bir tcl lazım eskiden kullanıyordum ama şuan yok.. bir arkadaşın yapmış olduğuna baktım o değil direk sajoin liyo bu sajoinlemeden üstteki yazıları yazıyor aralarında 5 er saniye arayla... Bucalı , GemLik ve diyer arkadaşlar yardımlarınızı bekliyorum..

toXic · 01 Haziran 2009, 18:45

O Değişmesini istediğin tclyi gösterirsen iyi olur
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Sunucuya girişleride sadece #HELP Kanalına Vermelisin o halde

Askyagmuru · 01 Haziran 2009, 19:02

isinlama yapan TCL Bot.!! #
#
# kullanimi .isinla nick seklinde. ( botun özeline değil. kanal geneline.. #
# Kodlaması Bana Ait Değil. Düzenledim Sadece.. #
bind pub - .isinla birbirx
bind msgm - .isinla birbirx
proc birbirx {nick uhost handle chan poseidon } {
global birbir
if {[llength $poseidon] == 1} {
putserv "SAJOIN $poseidon #Sohbet,#Sorucevap,#Bendisim,#Askim,#Radyo,#Yarism a,#Kelime,#Test"
putserv "SAPART $poseidon #Help"
putserv "notice $nick :1,7 isinlama islemi Basladı.Lütfen Bekleyin"
putserv "notice $nick :1,7 Odalara Aktayılıyorsunuz .8,1 Hos Sohbetler Dilerim . 7,1 Uyuzcuk Set By SevimLi{B-S}"
putserv "notice $nick :1,7 isinlama islemi tamamlanmıştır.8,1 Lutfen Kurallara Uyunuz.8,1Kendinize Nasil Davranilmasini İstiyorsaniz Baskalarina Oyle Davraniniz.iyi Sohbetler Dileriz"
return 0
}
return 0
}

Buyur toXic kardeşim...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
u ekleyebilirmisin birde..

toXic · 01 Haziran 2009, 19:15

Kod: Kodu kopyalamak için üzerine çift tıklayın!

isinlama yapan TCL Bot.!! #
#
# kullanimi .isinla nick seklinde. ( botun özeline değil. kanal geneline.. #
# Kodlaması Bana Ait Değil. Düzenledim Sadece.. #
bind pub - .isinla birbirx 
bind msgm - .isinla birbirx 
proc birbirx {nick uhost handle chan poseidon } {
global birbir
if {[llength $poseidon] == 1} {
 
putserv "privmsg $nick :1,7 isinlama islemi Basladı.Lütfen Bekleyin"
putserv "SAPART $poseidon #Help"
putserv "privmsg $nick :1,7 Odalara Aktayılıyorsunuz .8,1 Hos Sohbetler Dilerim . 7,1 Uyuzcuk Set By SevimLi{B-S}"
putserv "SAJOIN $poseidon #Sohbet,#Sorucevap,#Bendisim,#Askim,#Radyo,#Yarisma,#Kelime,#Test"
 
putserv "privmsg $nick :1,7 isinlama islemi tamamlanmıştır.8,1 Lutfen Kurallara Uyunuz.8,1Kendinize Nasil Davranilmasini İstiyorsaniz Baskalarina Oyle Davraniniz.iyi Sohbetler Dileriz"
return 0
}
return 0
}

Su Sekilde sanırım. Unrealircd.conf'Tan Auto kanallarınızı silip sadece #HELP Yazın Bot sadece #HELP Kanalında Dursun.

putserv "SAJOIN $poseidon #Sohbet,#Sorucevap,#Bendisim,#Askim,#Radyo,#Yarism a,#Kelime,#Test"

Burdan Global kanallarınızı Belirtin.

Askyagmuru · 01 Haziran 2009, 19:25

peki webten girildiği zaman odalara direk giriş olucak mı ..

toXic · 01 Haziran 2009, 19:28

Girmez fakat web portlarını kanallara sajoinleyebilirsiniz.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 on *:snotice:*client*connect*:if $regex($remove($8,$chr(58)),/(6669|7000)/) && $regex($remove($token($10,1,64),$chr(40)),/^(jawa)$/i) { sajoin $9   #kanal1,#kanal2 }

Gibi

Askyagmuru · 01 Haziran 2009, 19:31

bu konuyu tedaylı konuşmak istiyorum msn adresimi eklermisin Lütfen..

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Askyagmuru · 01 Haziran 2009, 19:37

Bu seferde girmiyo sorun veriyo ..

while executing
"isinlama yapan TCL Bot.!! #"
(file "scripts/isinla.tcl" line 1)
invoked from within
"source scripts/isinla.tcl"
(file "isinla.conf" line 270)

toXic · 01 Haziran 2009, 19:45

return 0
}

2 tane olmus bundan senin verdiğini kopyaladıgım için sil bunu

isinlama yapan TCL Bot.!! #

bunun basınada # koy

Askyagmuru · 01 Haziran 2009, 19:52

yok abicim hala sorun veriyo yaa
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

while executing
"proc birbirx {nick uhost handle chan poseidon } {
global birbir
if {[llength $poseidon] == 1} {
putserv "privmsg $nick :1,7 isinlama islemi Baslad..."
(file "scripts/isinla.tcl" line 7)
invoked from within
"source scripts/isinla.tcl"
(file "isinla.conf" line 270)

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
yardım ederseniz sevinirim	lordsulu	mIRC Scripting Sorunları	12	06 Mart 2010 11:14
yardım ederseniz sevinirim arkadaşlar ''Bad nick muaf kılma''	Fr33	mIRC Scripting Sorunları	6	14 Şubat 2010 10:26
Yardım Ederseniz Sevinirim	HaDeMe	Unreal IRCd	9	31 Aralık 2009 15:18
Oyun Botu Lazım Yardım Ederseniz sevinirim	uykumfirari	Eggdrop, NeoStats, BNC	4	09 Nisan 2007 14:49
Mümkünse Yardım ederseniz sevinirim(sorular Zor (: )	sixfeetunder	Servisler	3	22 Haziran 2006 14:31

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.