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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 19 Kasım 2008, 23:41   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cyclede ufak bi edit ?




arkadaşlar ben cycle bot editledim güzelde oldu activede ettim fakat ufak bir sorum var benim bir aradaşım cycle botların IP bölümünü user girişi gbi yapmş nasıl diyceksiniz hemen açıkca belirtiyim.


«» *** Giriş: mavigenc (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
-82016) Cycle giriş

«» *** Giriş: sam(ident
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) user girişi



burda fark deilmi ben bu üstteki ip görünümü nasıl user gibi gösterebilirim bi arkadaşım yapmış söylemedi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
umarım yardımcı olabilrsiniz şimdiden çok tşkler.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 19 Kasım 2008, 23:47   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cyclede ufak bi edit ?




kullandığın tcl yi buraya atarsan üzerinde editleme yapabiliriz.

 
Alıntı ile Cevapla

Alt 19 Kasım 2008, 23:51   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cyclede ufak bi edit ?




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# SERViCES CYCLE BOT CREATOR v3.0
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
##### Hoperservtlarin gizlenmesi icin hoperservt-prefix #####
set pwhoperservt "IP"
set listfile [open scripts/cycle.txt ]
set nickflist [split [subst -nocommands [read $listfile]] \n]
##### Bota baslama komutunu verecek kisinin nickini girin #####
set authorized "NeuStar"
##### Services adresini girin. #####
set servicesadr "services.mirclife.com"
 
##### Eggdrop - bot icin log tutumu #####
# Eger eggdropinizin olusturdugu botlarin giris cikislarini 
# bir kanala yazarak kaydetmesini istiyorsaniz, 0 isaretini 1 yapin.
#
set logit 1
##### Eggdropin log kanalini girin. #####
# Bu kanal botlarin giris cikislarinin yazilacagi kanaldir.
# Bu nedenle sadece adminlerin ve eggdropin girebilecegi bir kanal yazin.

set logchany "#bot"
################################################
# !!!!! KODLAMA BASLIYOR !!!!! #
# BU SATIRDAN ITIBAREN YAPACAGINIZ DEGISIKLIKLER 
# TCL SCRIPTIN BOZULMASINA YOL ACABILIR.
################################################
 
proc pwjoin {what what2 what3 what4 what5 what6 what7 what8 what9} {
global 
kanal logit logchany
if {$logit == 1} { 
puthelp "PRIVMSG $logchany :$what Kanala sokuluyor --> $what9
}
putquick "operserv :raw :$what join $what9 "
utimer $what2 "pwpart $what $what3 $what $what2 $what3 $what4 $what5 $what6 $what7 $what8 $what9"
}
proc pwpart {whad whad2 oldu1 oldu2 oldu3 oldu4 oldu5 oldu6 oldu7 oldu8 oldu9} {
global 
kanal logit logchany
if { $logit == } { puthelp "PRIVMSG $logchany :$whad Kanaldan cikartiliyor --> $oldu9}
putquick "operserv :raw :$whad part $oldu9 "
putquick "kill $oldu4 :this is a bot nick. u cant use it."
putquick "operserv :raw :$whad nick $oldu4"
if { $logit == } { puthelp "PRIVMSG $logchany :$whad Nick degistiriliyor --> $oldu4}
utimer $whad2 "pwjoin2 $oldu4 $whad2 $oldu1 $oldu2 $oldu3 $oldu4 $oldu5 $oldu6 $oldu7 $oldu8 $oldu9"
}
proc pwjoin2 {whas whas2 oldud1 oldud2 oldud3 oldud4 oldud5 oldud6 oldud7 oldud8 oldud9} {
global 
kanal logit logchany
if { $logit == } { puthelp "PRIVMSG $logchany :$whas Kanala tekrar sokuluyor --> $oldud9}
putquick "operserv :raw :$whas join $oldud9 "
utimer $oldud2 "pwbquit $whas $oldud1 $oldud2 $oldud3 $oldud4 $oldud5 $oldud6 $oldud7 $oldud8 $oldud9"
}
proc pwbquit {whaaq oldukha1 oldukha2 oldukha3 oldukha4 oldukha5 oldukha6 oldukha7 oldukha8 oldukha9} {
global 
quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
foreach iii $nickflist {
if {[
regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $iii tmppp botident3 before3 after3 botadi3 wait3 partwait3 joinwait3 yenisi3 quitmes3 cikmadan3 kanallar3]} {
if { 
$whaaq == $after3 } { 
if { 
$cikmadan3 != } { 
putquick "operserv :raw :$whaaq privmsg $kanallar3 :$cikmadan3"
if { $logit == } { puthelp "PRIVMSG $logchany :$whaaq Konusturuluyor." 
utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
return
}
}
}
}
if { 
$logit == } { puthelp "PRIVMSG $logchany :$whaaq Konusturulamadi - Konusma modu kapali!" 
utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
}
proc pwquit {whaq olduk1 olduk2 olduk3 olduk4 olduk5 olduk6 olduk7 olduk8 olduk9} {
global 
quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
foreach ii $nickflist {
if {[
regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $ii tmpp botident2 before2 after2 botadi2 wait2 partwait2 joinwait2 yenisi2 quitmes2 cikmadan2 kanallar2]} {
if { 
$whaq == $after2 } { 
putquick "operserv :raw :$whaq quit :$quitmes2"
if { $logit == } { puthelp "PRIVMSG $logchany :$whaq Serverdan cikartiliyor" 
utimer $olduk6 "olustur $olduk1 $olduk2 $olduk3 $olduk4 $olduk5 $olduk6 $olduk7 $olduk8 $olduk9"
return
}
}
}
if { 
$logit == } { puthelp "PRIVMSG $logchany :$whaq SERVERDAN CIKARTILAMADI !" 
}
proc olustur {olsun1 olsun2 olsun3 olsun4 olsun5 olsun6 olsun7 olsun8 olsun9} {
global 
servicesadr pwhoperservt kanal logit logchany
if { $logit == } { puthelp "PRIVMSG $logchany :$olsun1 Yeniden olusturuluyor." }
puthelp "kill $olsun1 :Lütfen kurallara uyunuz."
puthelp "operserv :raw nick $olsun1 1 1 $olsun8 2[rand 4][rand 9].[rand 9][rand 9][rand 9].[rand 9][rand 9][rand 9].$pwhoperservt-[rand 9][rand 9][rand 9][rand 9][rand 9] $servicesadr :$olsun5"
utimer $olsun7 "pwjoin $olsun1 $olsun2 $olsun3 $olsun4 $olsun5 $olsun6 $olsun7 $olsun8 $olsun9"
}
 
proc pwornek {nick hoperservt hand {text ""}} {
global 
pwhoperservt
}
proc pworn {ornekcik} {
puthelp "NOTICE PowerUseR : $ornekcik snlikti. " 
}
proc pwstart {nick hoperservt hand {text ""}} {
global 
listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
if {$nick == "$authorized"} {
puthelp "NOTICE $nick :Olusum basliyor. "
foreach i $nickflist {
if {[
regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "kill $before :old bot"
puthelp "operserv :raw nick $before 1 1 $botident 2[rand 4][rand 9].[rand 9][rand 9][rand 9].[rand 9][rand 9][rand 9].$pwhoperservt-[rand 9][rand 9][rand 9][rand 9][rand 9] $servicesadr :$botadi"
if { $logit == } { puthelp "PRIVMSG $logchany :$before olusturuluyor." }
utimer $wait "pwjoin $before $partwait $joinwait $after $botadi $yenisi $wait $botident $kanallar"
}
}
}
}
proc pwdestroy {nick hoperservt hand {text ""}} {
global 
listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
if {$nick == "$authorized"} {
puthelp "NOTICE $nick :Botlar yok ediliyor. "
if { $logit == } { puthelp "PRIVMSG $logchany :YOK ETME KOMUTU VERILDI ($authorized)." }
foreach 
i $nickflist {
if {[
regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
puthelp "kill $before :destroyed by $authorized"
puthelp "kill $after :destroyed by $authorized"
if { $logit == } { puthelp "PRIVMSG $logchany :$before - $after YOK EDiLiYOR." }
}
}
}
}
bind msg baslat pwstart
bind msg 
yoket pwdestroy
bind msg 
ornek pwornek
putlog 
"================Cycle Bot v3.0================"
putlog "= ="
putlog "= OperServ raw -auto- bot control 2.0 ="
putlog "= 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putlog 
"= ="
putlog "==============================================" 


 
Alıntı ile Cevapla

Alt 19 Kasım 2008, 23:53   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cyclede ufak bi edit ?




en üstte host gelen kısmı IP yaptım ama istedigim sonuca varamdım hocam
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set pwhoperservt "IP" 


 
Alıntı ile Cevapla

Alt 19 Kasım 2008, 23:58   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cyclede ufak bi edit ?




BuCaLI'nin bana ufak bir edit'i olmustu kendisi paylaş derse paylaşirim..

 
Alıntı ile Cevapla

Alt 20 Kasım 2008, 00:02   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cyclede ufak bi edit ?




O şekilde düzenlicektim tekrar. uğraşmayım sen veriver madem
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 20 Kasım 2008, 00:06   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cyclede ufak bi edit ?




Tşk Ederim Bucalı Hocam saol Ghostly Hocam dört gözle bekliom
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 20 Kasım 2008, 00:10   #8
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cyclede ufak bi edit ?




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

yanlız bu kodu tcl'den ayırdımki daha aydınlatıcı olsun diye..

Kullandiğiniz servicesler. ircservices ise sunucunuzda.
su pass belirleyiniz. aşşağidaki gibi.

/os set supass yenişifre

Bu kodu TCL herhangi bir bolumune koyunuz. supass girebilmesi için gerekli.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind msgm - root ghostly proc ghostly { nick uhost handle text } { putserv "PRIVMSG operserv :su şifre" }

bot sunuya bağlandıktan sonra register ve oper girdikten sonra botun ozeline root yazınız . ve basla komutunu uygulayınız

Not : Link'in kalma suresi. 2 gundur. iyi forumlar.

 
Alıntı ile Cevapla

Alt 20 Kasım 2008, 00:29   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cyclede ufak bi edit ?




ghostly abi benim bot herşeyini giriyor sunucum ircservices.
«00:13:30» -irc.mirclife.com- *** Notice -- Client connecting on port 6667: eLmas (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) [clients]
-
«00:13:43» -irc.mirclife.com- eLmas (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) [NeuStar] is now a network administrator (N)
-
«00:13:43» -irc.mirclife.com- *** Global -- from OperServ: eLmas is now an IRC operator.
-
«00:13:50» -irc.mirclife.com- *** Global -- from OperServ:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
obtained Services super-user privileges



hepsi tamam ama attıgın tcl editledim ghostly yerleri deiştirdim kitlen.org ları deiştirdim yemedi ?

 
Alıntı ile Cevapla

Alt 20 Kasım 2008, 00:32   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cyclede ufak bi edit ?




ayrıca botu sokamadım attıgın tcl ile hata verdi conf da ama kendi tclmde giriyo ?
21:12] Module loaded: channels
[21:12] Module loaded: server
[21:12] Module loaded: ctcp
[21:12] Module loaded: irc
[21:12] Module loaded: notes (with lang support)
[21:12] Module loaded: console (with lang support)
[21:12] Module loaded: blowfish
[21:12] Listening at telnet port 3334 (all).
[21:12] Module loaded: uptime
[21:12] Userinfo TCL v1.07 loaded (URL BF GF IRL EMAIL DOB PHONE ICQ).
[21:12] use '.help userinfo' for commands.
[21:12] Tcl error in file 'cycle.conf':
[21:12] couldn't open "scripts/bot.txt": no such file or directory
while executing
"open scripts/bot.txt r"
invoked from within
"set listfile [open scripts/bot.txt r]"
(file "scripts/cycle.tcl" line 2)
invoked from within
"source scripts/cycle.tcl"
(file "cycle.conf" line 77)
[21:12] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
[smirc@Linux eggdrop]$

 
Alıntı ile Cevapla

Cevapla

Etiketler
cyclede, edit, ufak


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
Nick Info'da Ufak Bir Edit.. dXt Servisler 2 04 Şubat 2010 00:12
viruschanda ufak bi edit ? S-LiveBiz Unreal IRCd 12 03 Kasım 2009 13:11
Unreal CR Edit (CR JAVA Edit) toXic Unreal IRCd 0 15 Şubat 2009 19:19
os version[ircservices'de ufak bir edit] BehroozWolf Services Hazır Kodlar 4 05 Aralık 2007 14:56