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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 18 Ağustos 2007, 00:36   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Basit Birkaç "!" Uygulamaları




Tarafımca Can sıkıntısından yazılmış basitce bir komut uygulamadır, Online opers/admin olmadığında opsların başının çaresine bakması için gerekli diye düşündüm ;oki

Uygulama Biçimi:
  • !Komutlar (Komut listesini açar)
  • !shun nick (Shun Atar)
  • !unshun nick (shun açar)
  • !kill nick (sunucudan atar)
  • !kline nick (kline atar)
  • !unkline ip (kLineyi açar)
  • !sqline nick (nick yasaklar)
  • !unsqline nick (Nickin yasağını kaldırı)
  • !reklam nick (Reklam Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)
  • !Lamer nick (Saldırı Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)
  • !Kufur nick (Küfür Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
############################################### # Powered By CanCeL # # EKOLPC.ORG - SITEAL.NET INTERNET HIZMETLERI # # MSN/MAIL:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
# ############################################### #gerekli bindler bind pub - !komutlar komut bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass } proc komut {n u h c a} { global gnick set gnick $n set kanal [lindex $a 0] putserv "PRIVMSG $gnick :İsteğiniz üzerine komutlar listeleniyor, lütfen bekleyiniz..." putserv "PRIVMSG $gnick :!shun nick (Shun Atar)" putserv "PRIVMSG $gnick :!unshun nick (shun açar)" putserv "PRIVMSG $gnick :!kill nick (sunucudan atar)" putserv "PRIVMSG $gnick :!kline nick (kline atar)" putserv "PRIVMSG $gnick :!unkline ip (kLineyi açar)" putserv "PRIVMSG $gnick :!sqline nick (nick yasaklar)" putserv "PRIVMSG $gnick :!unsqline nick (Nickin yasağını kaldırı)" putserv "PRIVMSG $gnick :!reklam nick (Reklam Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)" putserv "PRIVMSG $gnick :!Lamer nick (Saldırı Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)" putserv "PRIVMSG $gnick :!Kufur nick (Küfür Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)" putserv "PRIVMSG $gnick :Komut listesi sonu..." } #gerekli bindler bind pub - !shun shun bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass } proc shun {n u h c a} { global gnick set gnick $n set kanal [lindex $a 0] putserv "shun $kanal Lutfen Kurallara Uyunuz!" putserv "WALLOPS : $kanal, $gnick tarafınca SHUN emri verildi. " } #gerekli bindler bind pub - !kill ciksin bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass } proc ciksin {n u h c a} { global gnick set gnick $n set kanal [lindex $a 0] putserv "kill $kanal Lutfen Kurallara Uyunuz!" putserv "WALLOPS : $kanal, $gnick tarafınca KILL emri verildi. " } #gerekli bindler bind pub - !kline kline bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass } proc kline {n u h c a} { global gnick set gnick $n set kanal [lindex $a 0] putserv "kline $kanal Lutfen Kurallara Uyunuz!" putserv "WALLOPS : $kanal, $gnick tarafınca KLINE emri verildi!" } #gerekli bindler bind pub - !unshun unshun bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass } proc kline {n u h c a} { global gnick set gnick $n set kanal [lindex $a 0] putserv "unshun $kanal" putserv "WALLOPS : $kanal, $gnick tarafınca SHUN Kaldırma emri verildi!" } #gerekli bindler bind pub - !unkline unk bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass } proc unk {n u h c a} { global gnick set gnick $n set kanal [lindex $a 0] putserv "unkline $kanal" putserv "WALLOPS : $kanal, $gnick tarafınca KLINE Kaldırma emri verildi!" } #gerekli bindler bind pub - !Sqline sqline bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass } proc sqline {n u h c a} { global gnick set gnick $n set kanal [lindex $a 0] putserv "os sqline add $kanal $gnick Tarafınca Yasaklanmıstır!" putserv "WALLOPS : $kanal, $gnick tarafınca Nicki Yasaklanma Emrini Verdi!" } #gerekli bindler bind pub - !unSqline unsqline bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass } proc unsqline {n u h c a} { global gnick set gnick $n set kanal [lindex $a 0] putserv "os sqline del $kanal $gnick" putserv "WALLOPS : $kanal, $gnick tarafınca Nick Yasağı Kaldırma Emrini Verdi!" } #gerekli bindler bind pub - !reklam reklam bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass } proc reklam {n u h c a} { global gnick set gnick $n set kanal [lindex $a 0] putserv "kline $kanal Reklam Yasaktır!" putserv "WALLOPS : $kanal, $gnick tarafınca KLINE Emrini Verdi!" } #gerekli bindler bind pub - !kufur kufur bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass } proc kufur {n u h c a} { global gnick set gnick $n set kanal [lindex $a 0] putserv "kline $kanal Küfür Yasaktır!" putserv "WALLOPS : $kanal, $gnick tarafınca KLINE Emrini Verdi!" } #gerekli bindler bind pub - !lamer lamer bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass } proc lamer {n u h c a} { global gnick set gnick $n set kanal [lindex $a 0] putserv "kline $kanal Saldırı Yasaktır!" putserv "WALLOPS : $kanal, $gnick tarafınca KLINE Emrini Verdi!" }

NOT: TCL'yi denemeden verdim bir hata olursa yazarsınız düzeltirim.


Konu AsisT tarafından (18 Ağustos 2007 Saat 12:01 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 18 Ağustos 2007, 01:19   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Basit Birkaç "!" Uygulamaları




Sunun bide !ekle/sil/kufur ve bad nickler icin olani varmi elinizde?

 
Alıntı ile Cevapla

Alt 18 Ağustos 2007, 01:33   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Basit Birkaç "!" Uygulamaları




iyi güzel fakat

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass putserv "OPER $inick $ipass" }

bölümünü yaklaşık 10 sefer yazmışsın tcl içerisinde
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bota daha baştan cinnet geçirteceksin biri yeterli
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


ikincisi inick ve ipass için değişkenler göremedim tcl nin herhangibiyerine

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set inick "botunnicki" set ipass "operpası"

şeklinde de eklersen sorunsuz çalışır.

 
Alıntı ile Cevapla

Alt 27 Eylül 2007, 01:50   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Basit Birkaç "!" Uygulamaları




ya bu botu normal userler bile kullanıp adam atıyo
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 27 Eylül 2007, 04:21   #5
BLaCK_and_WHiTe
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Basit Birkaç "!" Uygulamaları




BuCaLI Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iyi güzel fakat

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass putserv "OPER $inick $ipass" }

bölümünü yaklaşık 10 sefer yazmışsın tcl içerisinde
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bota daha baştan cinnet geçirteceksin biri yeterli
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


ikincisi inick ve ipass için değişkenler göremedim tcl nin herhangibiyerine

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set inick "botunnicki" set ipass "operpası"

şeklinde de eklersen sorunsuz çalışır.

katılıyorum bot server a bile zar zar bağlanıyor senin verdiğin şekilde

 
Alıntı ile Cevapla

Cevapla

Etiketler
basit, birkac, quotquot, uygulamalari


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
Basit bir "yeni sekme sayfası" isteyenlere! Deep Bilgisayar Donanımı 0 24 Ekim 2014 00:56
"PKK Birkaç Mehmet'i Şehit Etti Diye." Düş Haber Arşivi 4 14 Ağustos 2012 16:34
Nokia Mağaza'nın "top" uygulamaları! Deep Cep Telefonlar 0 28 Aralık 2011 15:49