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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Şubat 2008, 13:28   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tcl istek ..........




}
if $gettok(%::text,1,32) == !dj {
sw $sockname os raw swhois %::nick : is a DorukChat Dj
sw $sockname chghost %::nick Dj.DorukChat.Net
sw $sockname privmsg #dj : %::nick Dj Olarak sisteme girisiniz onaylandi.
}
if %::chan == #globalop {
if $gettok(%::text,1,32) == !op {
set %op. [ $+ [ %::nick ] ] $iif($gettok(%::text,2,32),$ifmatch,hepsi)
sw $sockname ISON ChanServ %::nick
sw $sockname Privmsg #globalop : %::nick Globallere girisiniz onaylandi, yeni host ve yeni swhois eklendi.
sw $sockname chghost %::nick GlobalOp.DorukChat.Net
sw $sockname os raw swhois %::nick : is a GlobalOp on DorukChat.
}

Ben bu codeyle nasıl tcl ve conf ayarlayıp botu sunucuma sokup ve globalop kanalındaki yetkililer !op deyince globalop hostu alsınlar dj kanalındaki djlerde !dj deyince dj hostu alsın nasıl yaparım......

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 29 Şubat 2008, 18:47   #2
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl istek ..........




Öncelikle şu conf mantığını herkesin anlaması gerekiyor.. Her script için ayrı yazılmış bir conf yoktur ve yazılmasına gerek yoktur.. conf kelimesi configuration (ayar) kelimesinin kısaltılmasıdır. Yani botunuzun ayar dosyasıdır. Bir tane confunuz olsun ve bu conf üzerinden aynı bota source scripts/tclismi.tcl şeklinde istediğiniz kadar script ekleyebilirsiniz. Ayrıca elinizdeki confu ayrı bir bot için uyarlayabilir bu confla da başka bir botun çalışmasını sağlayabilirsiniz. Genel olarak bir confta ayarlanması gereken yeler:
- botun nicki, identi, hostu, fullname'i..
- sunucu ip adresi portu
- eğer o satırlar mevcutsa botun nick şifresi oper şifresi ve girişte uygulayacağı komutlar..
- Botun bulunacağı kanalların belirlendiği channel add ile başlayan kısımlar..
- eklenecek script(ler)in belirlendiği source bloku..

Gerisi teferruattır, istenildiğinde özelleştirmek içindir. O yüzden bi tane kafanıza göre ince ayarlarını yaptığınız confunuz olsun ve bu confta yukarıda belirttiğim değişiklikleri uygulamak suretiyle ayrı ayrı botlar için kullanın..

Bu açıklamadan sonra istediğin şeye gelince yine kafadaki bazı yanlış bilinenleri gidermek amacıyla bi açıklama daha yapmak istiyorum.

mIRC script convert to tcl gibi ya da bu mantıkta herhangi bir program yoktur.. Yani herhangi bir mIRC scripti tcl scripte çevirme diye bir şey yoktur. Bu yanlış bilgiyi kafamızdan atalım. Buradaki olay şudur: "Şöyle bir özellik var, ben bunun tcl scripting dili ile yazılmış olanı istiyorum"..
Aradaki fark şu: Kodlar tcl'ye çevrilmiyor tcl dili ile istenilen özellik baştan yazılıyor..

istenilen özellikleri kod diline dökmek için programcılığın temel unsuru olan algoritma kullanılır. Algoritma denen şeyi kafalarda daha iyi belirmesi için "yazılacakkodu kod diliyle değilde öncelikle türkçe düşünebilmektir" diyebiliriz.
Yani istenilen özellikler nedir?
Bunun için izlemem gereken yol ne olmalıdır?
Bunu en kısa yoldan nasıl çözebilirim?
Bu esna da ne tür hatalarla karşılaşabilirim?
gibi soruların cevaplarıdır..

Son olarak her zaman söylediğim gibi "sadece istemekle hiç bişey öğrenilmez" öncelikle çabalamanız lazım. Bu uğraşı sürecinde eğer karşılaştığın bir sorun olursa biz buradayız, elimizden gelen yardımları zevkle sunarız. Ama senin uğraşman şart..

istediğin özelliğe gelince şu yolu izleyebilirsin:
- Bot, sadece ona o komutu verebilecek kişilerin bulunduğu bir kanalda bulunmalı ya da bota o komutu verebilecek kişilerin nickleri veya hostları ya da onları özel kılacak herneyse tcl dosyasında belirtilmeli..

- Komut özelden mi verilecek yoksa kanaldan mı? (bu sorunun cevabına göre bir event'le başlarsın.)

- Belirlenen komuttan (!op ve ya !dj) sonraki kelimeyi komutun uygulanacağı nick olarak belirtmek gerekiyor bota..

- Eğer ikinci kelime yoksa veya kelime sayısı 2'den fazlaysa ona göre uyarlamalar ya da uyarı mesajları göndertmesini sağlamalısın..

- Bundan sonrası işin fantezi kısmı.. yani bota uygulayacağı komutları vermek (chghost nick yenihost v.b)

işte bu, senin istediğin özelliğin kısa bir algoritması.. Uğraşmaya başla biz buradayız
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Umarım herkes bunları dikkatlice okur ve herkesin kafasındaki bazı soru işaretleri ve varsa yanlış bilgiler giderilmiş olur..

 
Alıntı ile Cevapla

Alt 29 Şubat 2008, 19:10   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl istek ..........




ben eggdrop bot olarak isstemistim conf ayarlarım ama tcl tam olarak ayarlaak istıyırum bu verdim codeler ek birseyler eklenir diye yyardım istedim

 
Alıntı ile Cevapla

Alt 29 Şubat 2008, 19:19   #4
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl istek ..........




Sen yazdıklarımı hiç okumamışsın galiba? Ben başka bir bottan mı bahsetmişim? Yazılanı tekrar tekrar defalarca baştan sona okumanı tavsiye ediyorum.

 
Alıntı ile Cevapla

Alt 29 Şubat 2008, 19:30   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl istek ..........




bind msgm - root doruk
proc doruk { nick uhost handle text } {
putserv "PRIVMSG operserv :su şifre" }

bind pub - !op op
proc op {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putserv "PRIVMSG operserv :chghost $nick Globalop.Domain.Com"
putserv "PRIVMSG operserv :chgident $nick Globalop"
putserv "PRIVMSG operserv :chgname $nick is a Globalop on DorukChat"
putserv "NOTICE $nick Dj Olarak sisteme girisiniz onaylandi, yeni host ve yeni swhois eklendi."
putserv "NOTICE $nick Lutfen kanalindaki kullancilarla iyi gecinin ve saygili olun."
}
bind pub - !dj dj
proc dj {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putserv "PRIVMSG operserv :chghost $nick Dj.Domain.Com"
putserv "PRIVMSG operserv :chgident $nick Dj"
putserv "PRIVMSG operserv :chgname $nick is a DorukChat DJ"
putserv "NOTICE $nick Globallere girisiniz onaylandi, yeni host ve yeni swhois eklendi."
}

Su sekil bir tcl ayarladım sizce dogrumu..


Konu DorukChat tarafından (29 Şubat 2008 Saat 19:37 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 29 Şubat 2008, 19:33   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl istek ..........




yaa arkadasım kusura bakma kafam allak bullak yazını okudum ama nasıl okumuşum iste acıklaman için tesekurler..

 
Alıntı ile Cevapla

Alt 29 Şubat 2008, 19:41   #7
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl istek ..........




DorukChat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bind msgm - root doruk
proc doruk { nick uhost handle text } {
putserv "PRIVMSG operserv :su şifre" }

bind pub - !op op
proc op {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putserv "PRIVMSG operserv :chghost $nick Globalop.Domain.Com"
putserv "PRIVMSG operserv :chgident $nick Globalop"
putserv "PRIVMSG operserv :chgname $nick is a Globalop on DorukChat"
putserv "NOTICE $nick Dj Olarak sisteme girisiniz onaylandi, yeni host ve yeni swhois eklendi."
putserv "NOTICE $nick Lutfen kanalindaki kullancilarla iyi gecinin ve saygili olun."
}
bind pub - !dj dj
proc dj {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putserv "PRIVMSG operserv :chghost $nick Dj.Domain.Com"
putserv "PRIVMSG operserv :chgident $nick Dj"
putserv "PRIVMSG operserv :chgname $nick is a DorukChat DJ"
putserv "NOTICE $nick Globallere girisiniz onaylandi, yeni host ve yeni swhois eklendi."
}

Su sekil bir tcl ayarladım sizce dogrumu..

Eğer istediğin şey botun bulunduğu kanaldaki bir opun !op ya da !dj yazınca botun o komutu yazan kişinin hostunu v.s değiştirmesini amaçlıyorsan genel mantık doğru ama düzeltmen gereken yerler var

putserv "PRIVMSG operserv :chghost $nick ...

gibi yerleri

putserv "chghost $nick ...

Şeklinde değişmelisin.. bu diğer komutlar için de geçeleri.. (Tabi servislerinin operserv'ında eklenmiş chghost chgident v.s komutlarının olmadığını farzediyorum).

 
Alıntı ile Cevapla

Alt 29 Şubat 2008, 19:45   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl istek ..........




birde mesela servisler ircservices degilde anope bunu anopeye gore nasıl ayarlarız hani su pass varya oyuzden sorrdum

 
Alıntı ile Cevapla

Alt 03 Nisan 2008, 16:46   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl istek ..........




Aslında Nebiliymben Açıklamasını yapmış.

"PRIVMSG Operserv :chghost........"

Yerine

"CHGHOST $nick ........."

Yaparsan olur.

 
Alıntı ile Cevapla

Cevapla

Etiketler
istek, tcl


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

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
TCL istek EHost-Gökhan Eggdrop, NeoStats, BNC 3 21 Nisan 2011 01:41
tcl istek RahmetLi Eggdrop, NeoStats, BNC 3 05 Ocak 2011 23:34
istek Ebul_Alemeyn mIRC Scripting Hazır Kodlar 1 31 Ekim 2009 03:14
!radyo , !istek istek parçasi Yunus mIRC Scripting Sorunları 2 21 Temmuz 2008 21:11
tcl istek hipokrat TCL Scriptler 0 17 Ocak 2008 09:08