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/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   Opme Yardım pls (https://www.ircforumlari.net/eggdrop-neostats-bnc/48828-opme-yardim-pls.html)

ßaşkentli 30 Ocak 2008 00:02

Opme Yardım pls
 
Selam öncelikle arkadaşlar, benim isteğim
Mesela #Ops kanalında yetkisi olan kisiler !op #Sohbet yazdıklarında #Sohbet kanalına sajoinlenip Op olacak bana böyle bir kod lazım ama script için degil unreal 'e eklemem gerek arattım ama bulamadım daha önce verildiyse özür dilerim

ysfm 30 Ocak 2008 00:15

Cevap: Opme Yardım pls
 
unreal ile bunu yapacagını zannetmıyorum ama servicesler ile olabilir

services versionun nedir
ve bir tavsiye daha boyle kolay seyler icin server ve serviceslerle ugfrasmaya gerek oldugunuda dusunmuyorum

KaL-eL 30 Ocak 2008 00:24

Cevap: Opme Yardım pls
 
Bu tip şeyler için sisteme yüklenilmemeli bence de. Eggdrop botları rahatça halleder.

GemLik 30 Ocak 2008 11:54

Cevap: Opme Yardım pls
 
sana opme tcl yi verim ama konu yalnış yere açılmış bunu eggdrop botuna koyacaksın ve botun admin olacak
Kod:

################################################################################
# opal.tcl 1.0 - #
# #
# Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla #
# maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan #
# verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op #
# yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek #
# leri bir kanalda bulundurmaktir.! #
######################################################################GemLik####
 
# Botun giriste ircop olmasi icin gerekli ircop nicki
set inick "botnick"
# Buda gerekli olan sifre
set ipass "şifre"
 
 
 
 
 
 
# Ayarlar Bu kadar.! DOKUNMAYIN!!!
#gerekli bindler
bind pub - opver opver
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum :)"
}
proc opver {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "SAMODE $kanal +o :$gnick"
putserv "PRIVMSG $c :$n $kanal Kanalinda Oplandi..!"
putserv "WALLOPS :$n $kanal Kanalinda Oplandi..!"
}


cashmare 15 Mayıs 2008 01:00

Cevap: Opme Yardım pls
 
Alıntı:

GemLik Nickli Üyeden Alıntı (Mesaj 336876)
sana opme tcl yi verim ama konu yalnış yere açılmış bunu eggdrop botuna koyacaksın ve botun admin olacak
Kod:

################################################################################
# opal.tcl 1.0 - #
# #
# Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla #
# maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan #
# verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op #
# yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek #
# leri bir kanalda bulundurmaktir.! #
######################################################################GemLik####
 
# Botun giriste ircop olmasi icin gerekli ircop nicki
set inick "botnick"
# Buda gerekli olan sifre
set ipass "şifre"
 
 
 
 
 
 
# Ayarlar Bu kadar.! DOKUNMAYIN!!!
#gerekli bindler
bind pub - opver opver
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum :)"
}
proc opver {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "SAMODE $kanal +o :$gnick"
putserv "PRIVMSG $c :$n $kanal Kanalinda Oplandi..!"
putserv "WALLOPS :$n $kanal Kanalinda Oplandi..!"
}


yaw kardeş şimdi bu kodu ne yapmamız lazım.. en basından sonuna kadar.. unreal için.. mesela.. ben merlyn die yapıcam .. şimdi bunu nereye ekliycem.. hangi isimle.. ve merlyn i sunucuya sokmak için ne yapmam gerek yardım edermisiniz.

Lampard 15 Mayıs 2008 01:18

Cevap: Opme Yardım pls
 
Sunucuda ScanX tarzı bi eggdrop bot kullanıyorsan eğer en son satırına şunu ekle

PHP- Kodu:

source scripts/opme.tcl 

Yukarıdakı kodlarıda opme.tcl olarak kaydet eggdrop/scripts dizine at botu çıkartıp sok

cashmare 15 Mayıs 2008 01:23

Cevap: Opme Yardım pls
 
Alıntı:

Lampard Nickli Üyeden Alıntı (Mesaj 404734)
Sunucuda ScanX tarzı bi eggdrop bot kullanıyorsan eğer en son satırına şunu ekle

PHP- Kodu:

source scripts/opme.tcl 

Yukarıdakı kodlarıda opme.tcl olarak kaydet eggdrop/scripts dizine at botu çıkartıp sok

yaw kardeş ben sıfırdan ekliycem.. kodu yani bir merlyn botu sokucam
yalnız nasıl sokacam onu bilmiyom.. şimdi ben eggdrop scripts klasörüne
opme.tcl die bi şe attım..
bundan sonrasında ne yapıcam onu söylermisinzz.

ReiS 15 Mayıs 2008 02:15

Cevap: Opme Yardım pls
 
Arkadaşım botu sokucam diyorsun botu sokman için bir conf dosyası bir tcl dosyası lazım sana önce onları bulacaksın hangi botu istiyorsan sürüyle eggdrop bot mevcut forumda kendi sunucuna göre editleyeceksin, Lampard'ın verdiği kod'uda tcl'nin sonuna ekleyip botu sunucuya ./eggdrop -m confismi.conf şeklinde sokacaksın.

Lampard 15 Mayıs 2008 02:43

Cevap: Opme Yardım pls
 
o zaman 1 tane conf bulucaksın herhangi bir conf farketmez son satırına

PHP- Kodu:

source scripts/opme.tcl 

bunu ekle ./eggdrop -m botismi.conf

şeklinde botu sok tabi bota adminlikde ver

GemLik 15 Mayıs 2008 04:00

Cevap: Opme Yardım pls
 
Alıntı:

cashmare Nickli Üyeden Alıntı (Mesaj 404740)
yaw kardeş ben sıfırdan ekliycem.. kodu yani bir merlyn botu sokucam
yalnız nasıl sokacam onu bilmiyom.. şimdi ben eggdrop scripts klasörüne
opme.tcl die bi şe attım..
bundan sonrasında ne yapıcam onu söylermisinzz.

ilk olarak bi eggdrop confu yarat kendine örnekleri forumda mevcut onu eggdrop klasörüne at ondan sonra vermiş olduğum tcl yi opme.tcl bir dosya oluşturup eggdrop/scrips klasörüne at daha sonra oluşturuğunu conf a source scripts/opme.tcl eklemeyi unutma en sonra olarak ./eggdrop -m botunismi.conf yaparak sokarsın

cashmare 16 Mayıs 2008 19:25

Cevap: Opme Yardım pls
 
Alıntı:

GemLik Nickli Üyeden Alıntı (Mesaj 404792)
ilk olarak bi eggdrop confu yarat kendine örnekleri forumda mevcut onu eggdrop klasörüne at ondan sonra vermiş olduğum tcl yi opme.tcl bir dosya oluşturup eggdrop/scrips klasörüne at daha sonra oluşturuğunu conf a source scripts/opme.tcl eklemeyi unutma en sonra olarak ./eggdrop -m botunismi.conf yaparak sokarsın

arkadaşlar
şimdi ben ftp den girdim unreal3.2 ye eggdrop klasorunda..
atıyorum rastgele xx.conf un için source scripts/opme.tcl
en son satıra bu kodu ekledim.. sonra kaydettim
/eggdrop -m xx.conf yaptıgımda.
EGGDROP Unknown command
böyle bi uyarı cıkıyor yaw..
tabi bu komutu sunucuda uyguluyorum.. yoksa telnette mi uygulamam gerek ?
yaw biri allah için bana sunu detaylı bi şekilde anlatabilir mi..
arkadaşlar telnettende denedim olmadı.. girdim telnete.
sonra cd eggdrop
yaptım enterledim..
sonra /eggdrop -m xx.conf yaptım
-bash /eggdrop no such file or directory die bi hata cıktı..
yani kısacası verdiginiz source kodunu kelime.conf a ekledim
sonra opme.tcl die bir dosyayıda eggdrop/scriptsin içine attım
sonra girdim telnete
cd eggdrop
/eggdrop -m kelime.conf
yazdıgımda yukardaki gibi bi hata cıkıyor sanırım.. nerde hata yapıyorum.. ?

GemLik 16 Mayıs 2008 20:02

Cevap: Opme Yardım pls
 
komut yanlş ./eggdrop -m botismi.cof olacak ( . ) unutma ve bunu telnette yapacaksın

cashmare 17 Mayıs 2008 00:50

Cevap: Opme Yardım pls
 
Alıntı:

GemLik Nickli Üyeden Alıntı (Mesaj 406173)
komut yanlş ./eggdrop -m botismi.cof olacak ( . ) unutma ve bunu telnette yapacaksın

yaw kardeş verdigin komut tmm oldu ama Merlyn die bir bot girmedi sunucuya.. neden acaba bu arada sunucum unreal ondanmıdır ki ?

JoinT 17 Mayıs 2008 00:54

Cevap: Opme Yardım pls
 
birde ./eggdrop -nm botismi.conf olarak dene neden giremedigini görürsün Burayada yazarsan yardımcı olan çıkar

GemLik 17 Mayıs 2008 01:00

Cevap: Opme Yardım pls
 
Alıntı:

cashmare Nickli Üyeden Alıntı (Mesaj 406408)
yaw kardeş verdigin komut tmm oldu ama Merlyn die bir bot girmedi sunucuya.. neden acaba bu arada sunucum unreal ondanmıdır ki ?

hayır unreal le alakası yok hazırladığın conf da botun nickini belirliyorsunuz zaten ondan sonra verdiğim komutu uyguluyorsun ./eggdrop -m confadi.conf gibi

cashmare 17 Mayıs 2008 01:10

Cevap: Opme Yardım pls
 
Alıntı:

GemLik Nickli Üyeden Alıntı (Mesaj 406414)
hayır unreal le alakası yok hazırladığın conf da botun nickini belirliyorsunuz zaten ondan sonra verdiğim komutu uyguluyorsun ./eggdrop -m confadi.conf gibi

abi iyide bana sadece confa source scripts/isim.tcl ekle demişlerdi botun nickini nereye ekliycem varsa elinizde bana Merlyn adında bir conf verirmisiniz. rica etsem

GemLik 17 Mayıs 2008 01:26

Cevap: Opme Yardım pls
 
yaws paşam bir örnek conf yapmadın mı onun içinde gireceği serverı kanalı nicki belirtiyorsun ya oradan botun nickini yaz Merlyn die ondan sonra en alt tcl ekle kod olarak source scripts/isim.tcl şeklinde eğer yapamazsan pm de msn adresini ver yardımcı olayım ok

cashmare 17 Mayıs 2008 01:37

Cevap: Opme Yardım pls
 
Alıntı:

GemLik Nickli Üyeden Alıntı (Mesaj 406423)
yaws paşam bir örnek conf yapmadın mı onun içinde gireceği serverı kanalı nicki belirtiyorsun ya oradan botun nickini yaz Merlyn die ondan sonra en alt tcl ekle kod olarak source scripts/isim.tcl şeklinde eğer yapamazsan pm de msn adresini ver yardımcı olayım ok

tmm yolladım
______________________
###### Bilgi Satiri #####
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
loadmodule dns
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
checkmodule blowfish

##### Bilgi Satiri #####
##### Bot bilgileri #####
set nick "MerLyn"
set realname "2Sunucu Bots"

#Bu opsiyonel su an kapalidir. Eger botunuz herhangi bir nedenden oturu size ctcp acmiyorsa
#Bu satira botun barindirilmis oldugu host'un ip adresini yazmaniz yeterli olacaktir.

#set my-ip "1.2.3.4"

set init-server {
putserv "oper MerLyn şifre"
putserv "PRIVMSG nickserv identify şifre"
}
set servers { ip:port }
channel add #Op { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
set net-type 5
set owner TimothY

##### Dosyalar ve Dizinler #####
##### Bilgi Satiri #####
set userfile "bots.user"
set chanfile "bots.chan"
set temp-path "/tmp"
logfile msbxco * "logs/bots.log"
logfile jpk #log "logs/#log.log"
set console "mkcobxs"

##### SCRIPTLER #####
source scripts/Opme.tcl
loadhelp userinfo.help

# EndOf
böyle bi merlyn.conf oluşturdum attım eggdropun içine.. nerede hata vr acaba
ip port kısımları ve şifreleri kendim gizledim burada.. oralar dogru yazıldı.

buda tcl
################################################## ##############################
# opal.tcl 1.0 - #
# #
# Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla #
# maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan #
# verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op #
# yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek #
# leri bir kanalda bulundurmaktir.! #
################################################## ####################GemLik####

# Botun giriste ircop olmasi icin gerekli ircop nicki
set inick "MerLyn"
# Buda gerekli olan sifre
set ipass "şifre"






# Ayarlar Bu kadar.! DOKUNMAYIN!!!
#gerekli bindler
bind pub - opver opver
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum :)"
}
proc opver {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "MODE $kanal +o :$gnick"
putserv "PRIVMSG $c :$n $kanal Kanalinda Oplandi..!"
putserv "WALLOPS :$n $kanal Kanalinda Oplandi..!"
}

¿ 16 Temmuz 2008 11:18

OPME.tcl
 
PHP- Kodu:

#~BASLA~######################################################################
#                                                                            #
#                   Coder By Namesis | 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
                      #
#                                                                            #
#######################################################################~OPME~#

# Botun girişte IRCOP olması için gerekli IRCOP nicki
set inick "MerLyn"

# Buda girişte IRCOP olması için gerekli IRCOP şifresi
set ipass "MerLyn"

# Ops Kanalı
set opschan "#Ops"

# Ayarlar Bu kadar! Diğerlerine DOKUNMAYIN; aksi taktirde kodlar çalışmayabilir!

bind evnt init-server baglan:uygula
proc baglan
:uygula {type} {
global 
inick ipass
  putserv 
"OPER $inick $ipass"
}

bind join - * join:ops
proc join
:ops {nick uhost handle channel} {
     
putquick "NOTICE $nick :\00302Merhaba\00304 $nick \00302hoşgeldiniz!"
     
putquick "NOTICE $nick :\00302Hakkımda bilgi almak için lütfen özelime \00304!bilgi \00302yazınız!"
}

bind pub - !op op
proc op 
{nick uhand host chan text} {
  global 
gnick opschan
  set gnick $nick
        
if {([onchan $nick $opschan])} {
        
set kanal [lindex $text 0]
        if {
$kanal == ""} {
        
putquick "NOTICE $nick :\00302Lütfen kanal ismi yazın. \00304Ör; \00302!op #Sohbet"
        
} else {
        
putquick "sajoin $nick $kanal"
        
putquick "mode $kanal +o $nick"
        
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda size,\00304 $kanal \00302kanalında \00304AOP(@)\00302 verdim."
         
}
        } else {
        
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !deop deop
proc deop 
{nick uhand host chan text} {
  global 
gnick opschan
  set gnick $nick
        
if {([onchan $nick $opschan])} {
        
set kanal [lindex $text 0]
        if {
$kanal == ""} {
        
putquick "NOTICE $nick :\00302Lütfen kanal ismi yazın. \00304Ör; \00302!deop #Sohbet"
        
} else {
        
putquick "sajoin $nick $kanal"
        
putquick "mode $kanal -o $nick"
        
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda sizi,\00304 $kanal \00302kanalında \00304DEOP\00302 yaptım."
         
}
        } else {
        
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !voice voice
proc voice 
{nick uhand host chan text} {
  global 
gnick opschan
  set gnick $nick
        
if {([onchan $nick $opschan])} {
        
set kanal [lindex $text 0]
        if {
$kanal == ""} {
        
putquick "NOTICE $nick :\00302Lütfen kanal ismi yazın. \00304Ör; \00302!voice #Sohbet"
        
} else {
        
putquick "sajoin $nick $kanal"
        
putquick "mode $kanal +v $nick"
        
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda size,\00304 $kanal \00302kanalında \00304VOP(+)\00302 verdim."
         
}
        } else {
        
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !devoice devoice
proc devoice 
{nick uhand host chan text} {
  global 
gnick opschan
  set gnick $nick
        
if {([onchan $nick $opschan])} {
        
set kanal [lindex $text 0]
        if {
$kanal == ""} {
        
putquick "NOTICE $nick :\00302Lütfen kanal ismi yazın. \00304Ör; \00302!devoice #Sohbet"
        
} else {
        
putquick "sajoin $nick $kanal"
        
putquick "mode $kanal -v $nick"
        
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda sizi,\00304 $kanal \00302kanalında \00304DEVOICE\00302 yaptım."
         
}
        } else {
        
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !halfop halfop
proc halfop 
{nick uhand host chan text} {
  global 
gnick opschan
  set gnick $nick
        
if {([onchan $nick $opschan])} {
        
set kanal [lindex $text 0]
        if {
$kanal == ""} {
        
putquick "NOTICE $nick :\00302Lütfen kanal ismi yazın. \00304Ör; \00302!halfop #Sohbet"
        
} else {
        
putquick "sajoin $nick $kanal"
        
putquick "mode $kanal +h $nick"
        
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda size,\00304 $kanal \00302kanalında \00304HOP(%)\00302 verdim."
         
}
        } else {
        
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !dehalfop dehalfop
proc dehalfop 
{nick uhand host chan text} {
  global 
gnick opschan
  set gnick $nick
        
if {([onchan $nick $opschan])} {
        
set kanal [lindex $text 0]
        if {
$kanal == ""} {
        
putquick "NOTICE $nick :\00302Lütfen kanal ismi yazın. \00304Ör; \00302!dehalfop #Sohbet"
        
} else {
        
putquick "sajoin $nick $kanal"
        
putquick "mode $kanal -h $nick"
        
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda sizi,\00304 $kanal \00302kanalında \00304DEHALFOP\00302 yaptım."
         
}
        } else {
        
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !kb kickban
proc kickban 
{nick uhand host chan text} {
global 
opschan
set banmask 
"[getchanhost [lindex $text 0] $chan]"
set kisi "[lindex $text 0]"
set sebep "[lrange $text 1 end]"
if {([onchan $nick $opschan])} {
if {
$sebep == ""} {
putquick "mode $chan +b $banmask"
putquick "kick $chan $kisi $nick"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $kanal \00302kanalından;\00304 $kisi \00302nickli kişi;\00304 SEBEP \00302belirtilmeden banlanıp atıldı."
} else {
putquick "mode $chan +b $banmask"
putquick "kick $chan $kisi $sebep"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $kanal \00302kanalından;\00304 $kisi \00302nickli kişi;\00304 $sebep \00302sebebinden dolayı banlanıp atıldı."
 
}
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !kick kick
proc kick 
{nick uhand host chan text} {
global 
opschan
set kisi 
"[lindex $text 0]"
set sebep "[lrange $text 1 end]"
if {([onchan $nick $opschan])} {
if {
$sebep == ""} {
putquick "kick $chan $kisi $nick"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalından;\00304 $kisi \00302nickli kişi;\00304 SEBEP \00302belirtilmeden atıldı."
} else {
putquick "kick $chan $kisi $sebep"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalından;\00304 $kisi \00302nickli kişi;\00304 $sebep \00302sebebinden dolayı atıldı."
 
}
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !ban banneds
proc banneds 
{nick uhand host chan text} {
global 
opschan
set banmask 
"[getchanhost [lindex $text 0] $chan]"
if {([onchan $nick $opschan])} {
putquick "mode $chan +b $banmask"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişi banlandı."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !o ops
proc ops 
{nick uhand host chan text} {
global 
opschan
set kisi 
"[lindex $text 0]"
if {([onchan $nick $opschan])} {
putquick "mode $chan +o $kisi"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişiye \00304AOP(@) \00302modesi verildi."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !do deops
proc deops 
{nick uhand host chan text} {
global 
opschan
set kisi 
"[lindex $text 0]"
if {([onchan $nick $opschan])} {
putquick "mode $chan -o $kisi"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişiden \00304AOP(@) \00302modesi alındı."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !h halops
proc halops 
{nick uhand host chan text} {
global 
opschan
set kisi 
"[lindex $text 0]"
if {([onchan $nick $opschan])} {
putquick "mode $chan +h $kisi"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişiye \00304HOP(%) \00302modesi verildi."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !dh dehalops
proc dehalops 
{nick uhand host chan text} {
global 
opschan
set kisi 
"[lindex $text 0]"
if {([onchan $nick $opschan])} {
putquick "mode $chan -h $kisi"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişiye \00304HOP(%) \00302modesi alındı."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !v voices
proc voices 
{nick uhand host chan text} {
global 
opschan
set kisi 
"[lindex $text 0]"
if {([onchan $nick $opschan])} {
putquick "mode $chan +v $kisi"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişiye \00304VOP(+) \00302modesi verildi."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !dv devoices
proc devoices 
{nick uhand host chan text} {
global 
opschan
set kisi 
"[lindex $text 0]"
if {([onchan $nick $opschan])} {
putquick "mode $chan -v $kisi"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında;\00304 $kisi \00302nickli kişiye \00304VOP(+) \00302modesi alındı."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind pub - !unban unban
proc unban 
{nick uhand host chan text} {
global 
opschan
foreach ban [chanbans $chan] {
append banlist "[lindex $ban 0] "
if {([onchan $nick $opschan])} {
putquick "MODE $chan -bbbbbbbbbb [lrange $banlist 0 10]"
putquick "MODE $chan -bbbbbbbbbb [lrange $banlist 11 20]"
putquick "MODE $chan -bbbbbbbbbb [lrange $banlist 21 30]"
putquick "MODE $chan -bbbbbbbbbb [lrange $banlist 31 40]"
putquick "MODE $chan -bbbbbbbbbb [lrange $banlist 41 50]"
putquick "NOTICE $nick :\00302Isteğiniz doğrultusunda;\00304 $chan \00302kanalında ki tüm \00304 BAN\00302'lar açıldı."
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
  
}
 }
}

bind pub - !temizle clear
bind pub 
- !clear clear
proc clear 
{nick uhand host chan text} {
global 
opschan
if {([onchan $nick $opschan])} {
putquick "PRIVMSG $chan : "
putquick "PRIVMSG $chan :  "
putquick "PRIVMSG $chan :   "
putquick "PRIVMSG $chan :    "
putquick "PRIVMSG $chan :     "
putquick "PRIVMSG $chan :      "
putquick "PRIVMSG $chan :       "
putquick "PRIVMSG $chan :        "
putquick "PRIVMSG $chan :         "
putquick "PRIVMSG $chan :          "
putquick "PRIVMSG $chan :           "
putquick "PRIVMSG $chan :            "
putquick "PRIVMSG $chan :             "
putquick "PRIVMSG $chan :              "
putquick "PRIVMSG $chan :               "
putquick "PRIVMSG $chan :                "
putquick "PRIVMSG $chan :                 "
putquick "PRIVMSG $chan :                  "
putquick "PRIVMSG $chan :                   "
putquick "PRIVMSG $chan :                    "
putquick "PRIVMSG $chan :                     "
putquick "PRIVMSG $chan :                      "
putquick "PRIVMSG $chan :                       "
putquick "PRIVMSG $chan :                        "
putquick "PRIVMSG $chan :                         "
putquick "PRIVMSG $chan :                          "
putquick "PRIVMSG $chan :                           "
putquick "PRIVMSG $chan :                            "
putquick "PRIVMSG $chan :                             "
putquick "PRIVMSG $chan :                              "
putquick "PRIVMSG $chan :\00302Oda Ekranı Temizlendi\00304 $nick !"
} else {
putquick "NOTICE $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

bind msgm - * bilgilendirme
proc bilgilendirme 
{nick uhost hand text} {
  global 
opschan
     
if {([onchan $nick $opschan])} {
     
set bilgilen [lindex $text 0]
     if {
$bilgilen == "!bilgi"} {
putquick "PRIVMSG $nick :\00302Merhaba\00304 $nick"
putquick "PRIVMSG $nick :\00302Üstat \00304Namesis\00302 tarafından yapıldım! \00304:PpP"
putquick "PRIVMSG $nick :\00302Yararlanabilmeniz için\00304 $opschan \00302kanalında bulunmanız şarttır!"
putquick "PRIVMSG $nick :\00302Kanal geneline, hafızamda bulunan komutları yazıp kullanabilirsiniz!"
putquick "PRIVMSG $nick : "
putquick "PRIVMSG $nick :\00304Komutlar;"
putquick "PRIVMSG $nick :\00302Herhangi bir kanalda \00304OP \00302olabilmeniz için\00304 $opschan \00302kanalına bunu yazın;"
putquick "PRIVMSG $nick :\00304!op #Kanal"
putquick "PRIVMSG $nick :\00304deop \00302olmanız için; \00304!deop #Kanal"
putquick "PRIVMSG $nick :\00302Herhangi bir kanalda \00304VOICE \00302olabilmeniz için\00304 $opschan \00302kanalına bunu yazın;"
putquick "PRIVMSG $nick :\00304!voice #Kanal"
putquick "PRIVMSG $nick :\00304devoice \00302olmanız için; \00304!devoice #Kanal"
putquick "PRIVMSG $nick :\00302Herhangi bir kanalda \00304HALFOP \00302olabilmeniz için\00304 $opschan \00302kanalına bunu yazın;"
putquick "PRIVMSG $nick :\00304!halfop #Kanal"
putquick "PRIVMSG $nick :\00304dehalfop \00302olmanız için; \00304!dehalfop #Kanal"
putquick "PRIVMSG $nick :  "
putquick "PRIVMSG $nick :\00304!ban Nick \00301- \00302Herhangi bir nicki kanaldan \00304banlarsınız."
putquick "PRIVMSG $nick :\00304!kb Nick Sebep \00301- \00302Herhangi bir nicki kanaldan \00304banlar \00302ve \00304atarsınız."
putquick "PRIVMSG $nick :\00304!kick Nick Sebeb \00301- \00302Herhangi bir nicki kanaldan \00304atarsınız."
putquick "PRIVMSG $nick :\00304!o Nick \00301- \00302Herhangi bir nicke \00304AOP(@) \00302modesi \00304verirsiniz."
putquick "PRIVMSG $nick :\00304!do Nick \00301- \00302Herhangi bir nicketen \00304AOP(@) \00302modesini \00304geri alırsınız."
putquick "PRIVMSG $nick :\00304!h Nick \00301- \00302Herhangi bir nicke \00304HOP(%) \00302modesi \00304verirsiniz."
putquick "PRIVMSG $nick :\00304!dh Nick \00301- \00302Herhangi bir nickten \00304HOP(%) \00302modesini \00304geri alırsınız."
putquick "PRIVMSG $nick :\00304!v Nick \00301- \00302Herhangi bir nicke \00304VOP(+) \00302modesi \00304verirsiniz."
putquick "PRIVMSG $nick :\00304!dv Nick \00301- \00302Herhangi bir nickten \00304VOP(+) \00302modesini \00304geri alırsınız."
putquick "PRIVMSG $nick :\00304!unban \00301- \00302Kanalda ki tüm \00304BAN\00302'ları açarsınız."
putquick "PRIVMSG $nick :\00304!temizle \00301veya \00304!clear \00301- \00302Oda ekranını temizler!"
putquick "PRIVMSG $nick :   "
putquick "PRIVMSG $nick :\00304!bilgi \00302sonu! \00304Coder By Namesis!"
} else {
putquick "PRIVMSG $nick :\00302Hakkımda bilgi almak için lütfen \00304!bilgi \00302yazınız!"
 
}
} else {
putquick "privmsg $nick :\00302Bu özelliği sadece\00304 $opschan \00302kanalında bulunan görevli \00304AOP(@)\00302'lar kullanabilir!"
 
}
}

#~OPME~#######################################################################
#                                                                            #
#                   Coder By Namesis | 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
                      #
#                                                                            #
########################################################################~SON~# 



Buyrun arkadaşlar UNREAL için OPME TCL herhanqi bir qüvenLik açıqı yoktur test edildi gayet iyi çalışıyor.
:)

KuLLanabiLeceqiniz KomutLar;

!op #KanaL - BeLirLediğiniz kanaLda AOP(@) oLursunuz.
!deop #KanaL - BeLirLediqiniz KanaLda DEOP oLursunuz.
!haLfop #KanaL - BeLirLediğiniz kanaLda HOP(%) oLursunuz.
!dehaLop #KanaL - BeLirLediğiniz kanaLda DEHALFOP oLursunuz.
!voice #KanaL - BeLirLediğiniz kanaLda VOP(+) oLursunuz.
!devoice #KanaL - BeLirLediğiniz kanaLda DEVOICE oLursunuz.!ban Nick - BeLirLediğiniz nicki KanaLdan banLarsınız.
!kb Nick Sebep - BeLirLediqiniz nicki kanaLdan banLar ve atarsınız.
!kick Nick Sebep - BeLirLediğiniz nicki kanaLdan atarsınız.
!o Nick - BeLirLediqiniz nicke AOP(@) verirsiniz.
!do Nick -
BeLirLediğiniz nickten AOP(@) modesini aLırsınız.
!h Nick - BeLirLediğiniz nicke HOP(%) verirsiniz.
!dh Nick - BeLirLediğiniz nickten HOP(%) modesini aLırsınız.
!v Nick - BeLirLediğiniz nicke VOP(+) verirsiniz.
!dv Nick - BeLirLediğiniz nickten VOP(+) modesini aLırsınız.
!unban - KanaLda ki tüm BAN'Ları açarsınız.
!temizLe ve !cLear - Oda ekranını temizLersiniz.

Ayrıca KarşıLama ve ÖzeLde !biLgi

zafer84 12 Kasım 2008 22:23

Cevap: Opme Yardım pls
 
Alıntı:

GemLik Nickli Üyeden Alıntı (Mesaj 336876)
sana opme tcl yi verim ama konu yalnış yere açılmış bunu eggdrop botuna koyacaksın ve botun admin olacak
Kod:

################################################################################
# opal.tcl 1.0 - #
# #
# Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla #
# maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan #
# verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op #
# yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek #
# leri bir kanalda bulundurmaktir.! #
######################################################################GemLik####
 
# Botun giriste ircop olmasi icin gerekli ircop nicki
set inick "botnick"
# Buda gerekli olan sifre
set ipass "şifre"
 
 
 
 
 
 
# Ayarlar Bu kadar.! DOKUNMAYIN!!!
#gerekli bindler
bind pub - opver opver
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum :)"
}
proc opver {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "SAMODE $kanal +o :$gnick"
putserv "PRIVMSG $c :$n $kanal Kanalinda Oplandi..!"
putserv "WALLOPS :$n $kanal Kanalinda Oplandi..!"
}


Gemlikli Selam arkadaşım ben bunu uyguladımda, opver #kanal nerde yazarsam yazayım Op veriyor, bunu sadece #Ops kanalında vermesi için ne yapmam gerekli, Birde Verilen Op u bazi kanallarda Chanserv Geri Alıyor, Almaması için ne yapmam gerekli..

Yardımcı Olursanız Sevinirim..

Swat 19 Aralık 2009 13:29

Cevap: Opme Yardım pls gemlik bakarmısın acil
 
Tcl error in file 'opme.conf':
[12:26] couldn't read file "scripts/Opme.tcl": no such file or directory
while executing
"source scripts/Opme.tcl"
(file "opme.conf" line 43)
[12:26] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

hata bu tüm denileni yaptım :S genede olmadı

toXic 19 Aralık 2009 13:43

Cevap: Opme Yardım pls
 
Dosyanın isimleri karsilikli anlamda aynı olmak zorunda. Eğer Sen tcl den Opme.tcl olarak tanımlıyor ftpden ise opme.tcl olarak bırakıyorsan .conf bulunamadi seklinde uyarir, Dosya isimlerinin büyük-kücüklü yazımına dikkat etmelisin her ikiside ayni olmali.

AutomatiC 04 Ekim 2020 15:11

Cevap: Opme Yardım pls
 
Merhaba
konu cok eski ancak yınede destegınızı rıca ederım
kod calısıyor ancak bunu Sajoin yaptıramadım bır turlu

Myops kanalında olan herkesın rahatca kullanabılmesı ıcın Admin,oper,hop,voice ve user modalarında olan tumu kısıler ıcın kanal genelıne opver #x yaptıgında o kanala sajoin yapıp o kişiyi kanalda +o cıkarmasını ıstıyorum nasıl yapabılırım yardımcı olabılırmısınız


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net