!rezil et adonu - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

AsaF · 14 Aralık 2017, 19:58

#RezilEt TCL - Written by aLoNe
#Sunucunuzda m_sendraw.c modülü yüklenmiş olmalıdır.
#Botun RAW yetkisi olması şarttır.
#Öküzler için bire bir.
#Kullanım: !rezilet Nick
#Başlayalım..!

set rdlck [rand 9999999]
set admin_chan "#Opers"
bind pub - !rezilet rezalet

proc rezalet { n u h c a } {

global botnick admin_chan rdlck

if {[onchan $n $admin_chan]==1} {
putserv "shun $a Sus!"
putserv "sendraw $c ::$a PRIVMSG $c :Merhaba
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "sendraw $c ::$a PRIVMSG $c
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
en çok öküzüm :V"
putserv "sendraw $c ::$a PRIVMSG $c :Hani nasıl desem, semer vurup deh deseniz ayıp olmaz ühühüüü
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "sendraw $c ::$a PRIVMSG $c :Rahatsız ettim sizleri de mallığımla."
putserv "sendraw $c ::$a PRIVMSG $c :Ama ne demişler zayıf öküzün kıblesi olmazmış :c"
putserv "sendraw $c ::$a PRIVMSG $c :Harbi malım ben yaa
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "sendraw $c ::$a PRIVMSG $c :Özür dilerim hepinizden. Allah belamı vereydi benim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "sendraw $c ::$a PRIVMSG $c :Vay arkadaş ne malım ben yaa..."
putserv "sendraw $c ::$a PRIVMSG $c :Affedin beni
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "sendraw $c ::$a PRIVMSG $c :Nickimi değişim de kafa bulun azcık
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "os raw svsnick $a YilinAngutu$rdlck :1"
putserv "sendraw $c ::$a PRIVMSG $c
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
uyrun hep beraber atlayın abi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putserv "privmsg $admin_chan :$a nickli zavallı başarıyla rezil edildi :Q"
}
if {[onchan $n $admin_chan]==0} {
putserv "privmsg $c :Hop dedik. Admin ol gel yavru
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
}
}
putlog "Rezilet.Tcl v1.0 - Written by aLoNe"

Kod ALone Hocamızdan alıntıdır bunu mırce gore nasıl ayarlayabılırız coderlerımız yardım ederse sevınecem mırcıme eklemek ıstıyorum

Set · 18 Aralık 2017, 09:06

Komut: !rezilet Nick #Kanal

#Kanal yazdigin yerde belirtigin mesajlari yazar, Mesaj diye yazdigim yerlerede kendin doldurursun.

#Opers yazan yerde komut calisir, kodu denemedim, hata verirse belirtirsen duzeltirim

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on $*:text:/[!.]rezilet/i:#opers: {
  if !$2 || !$3 { .msg # $nick Lutfen duzgun nick ve kanal belirtiniz. | return }
  shun $2 +0 Rezilet.
  msg # $2 rezil etme olayi tamam'dir.
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2) privmsg $3 Mesaj
}

Xenophanes · 19 Aralık 2017, 22:16

Alias olarak hazırladım, alternatif yapabilirsiniz. Kullanacağınız kanalda /saka nick komutunu uygulayarak kullanabilirsiniz.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias slimjoke { return sendraw # $+(::,%sakanick) PRIVMSG # $+(:,$1) }
alias saka { 
  if %joke == yapiliyor { echo -a Zaten bir şaka yapıyorsunuz! | return }
  if !$1 { echo -a Lütfen bir nick belirtiniz. | return }
  else {
    set -u14 %joke yapiliyor
    set %sakanick $1
    $slimjoke(Merhaba!)
    .timer 1 2 $slimjoke(Ben çok öküzüm. :<)
    .timer 1 6 $slimjoke(Hani nasıl desem semer vurup deh deseniz ayıp olmaz ühühüüü :'<)
    .timer 1 9 $slimjoke(Rahatsız ettim sizleri de mallığımla.)
    .timer 1 13 $slimjoke(Neyse ufaktan kaçayım! özür diliyorum...)
  }
}

AsaF · 03 Ocak 2018, 20:03

Kodlar Super ELerınıze Saglık Coderlerım

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Mirc yazı adonu	Dahimurat	mIRC Scripting Sorunları	7	03 Eylül 2016 16:56
Rezil adam	Neo	Haber Arşivi	0	06 Şubat 2012 10:14

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.