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

>
+
Etiketlenen Kullanıcılar

3Beğeni(ler)

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 10 Şubat 2012, 06:46   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !kaydet #kanal nick ( istek )




Alıntı:
bind msg - !basvuru ozel_raw
proc ozel_raw {n u h a} {
putserv "PRIVMSG $n Merhaba $n "
putserv "PRIVMSG $n Özel kanal basvuru sihirbazına Hoş GeLdiniz"
putserv "PRIVMSG $n Sunucumuzda özel kanal açılımları , sohbet huzurunuz açısından sınırlı bırakılmıştır."
putserv "PRIVMSG $n Taşıdığı isim ; saygı ve sevgi kuralları içerisinde olan , tüm özel oda isteklerinize cevap verilecektir."
putserv "PRIVMSG $n Şimdi başvuru için ; ozelkanalbasvuru #kanal yazmanız yeterlidir."
putserv "PRIVMSG $n HayaLetSohbet KeyifLi SohbetLer DiLer .."
}
bind msg - ozelkanalbasvuru basvuru_raw
proc basvuru_raw {n u h a} {
set kanal [lindex $a 0]
putserv "PRIVMSG $n Merhaba $n ,4 $kanal odasi için basvuru işleminiz tamamlanmistir."
putserv "PRIVMSG $n Kisa bir süre içerisinde memo ile bilgilendirileceksiniz."
putserv "PRIVMSG $n HayaLetSohbet KeyifLi SohbetLer DiLer .."
putserv "memoserv send #Opers Sayın Yönetici , $n rumuzlu kullanici4 $kanal odasi için kanal basvurusu yapmistir."
putserv "PRIVMSG #Opers Sayın Yönetici , $n rumuzlu kullanici4 $kanal odasi için kanal basvurusu yapmistir."
}
set ops_chan "#Opers"
bind pub - !kaydet kaydet
proc kaydet {nick uhost handle chan text} {
global ops_chan
if {[isop $nick $chan]} {
set kanal [lindex $text 0]
set gnick [lindex $text 1]
set asifre [rand 9999999]
if {![validchan $kanal]} {
channel add $kanal { +nodesynch flood-chan 10:2 }
}
putserv "operserv mode $kanal +o FG"
putserv "chanserv register $kanal $asifre HayaLetSohbet"
putserv "chanserv set $kanal founder $gnick"
putserv "memoserv send $gnick Merhaba $gnick , $kanal odasi isteginiz uzerine $asifre sifresiyle nickinize kaydedilmistir. HayaLetSohbet Tesekkur Eder .."
putserv "PRIVMSG $ops_chan :isLem tamamlandi .  $gnick  nickinin istegi uzerine $kanal  kanali kayit islemi tamamlanmis , kanal sahibi $gnick  olarak belirlenmistir."
return 1
}
return 1
}

burada FG bot nickidir, siz değişin istediğiniz gibi.

bot özeline;
!basvuru
yazınca bilgi veriyo.
!ozelkanalbasvuru #kanal
yazınca kanal için #opers kanalına memo atar.
O kanaldaki "OPLAR" memoyu okuyunca
!kaydet #kanal nick
yapar ve bot rastgele şifre belirler tek bi şifre değil.
sonra kullanıcıya memo atar.

 
Alıntı ile Cevapla

 

Etiketler
#kanal, istek, kaydet, nick


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

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
Muaf Kanal/Nick Giriş Çıkış Bilgisi Kanal ve Özelde Komut Yardımı Goemon Conference Room (CR) 4 01 Şubat 2016 02:03
nick takip addonu ek kod istek Mack mIRC Scripting Sorunları 7 20 Ekim 2015 19:04
!clone nick kod istek Emrax mIRC Scripting Sorunları 7 27 Ağustos 2009 05:01
!kb <kanal> <nick> tcl istek uurr89 TCL Scriptler 15 15 Mayıs 2009 21:09
Kanal da Nick Değişenleri (Kötü Nick) Kanaldan Atma Besmelejack mIRC Scripting Sorunları 16 06 Temmuz 2007 12:50