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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - !rezil et adonu (https://www.ircforumlari.net/mirc-scripting-sorunlari/779088-rezil-et-adonu.html)

#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 :("
putserv "sendraw $c ::$a PRIVMSG $c :Ben çok öküzüm :V"
putserv "sendraw $c ::$a PRIVMSG $c :Hani nasıl desem, semer vurup deh deseniz ayıp olmaz ühühüüü :("
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 :("
putserv "sendraw $c ::$a PRIVMSG $c :Özür dilerim hepinizden. Allah belamı vereydi benim :("
putserv "sendraw $c ::$a PRIVMSG $c :Vay arkadaş ne malım ben yaa..."
putserv "sendraw $c ::$a PRIVMSG $c :Affedin beni :("
putserv "sendraw $c ::$a PRIVMSG $c :Nickimi değişim de kafa bulun azcık :("
putserv "os raw svsnick $a YilinAngutu$rdlck :1"
putserv "sendraw $c ::$a PRIVMSG $c :Buyrun hep beraber atlayın abi :("
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 :)"
}
}
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

Cevap: !rezil et adonu

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:

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

}

Cevap: !rezil et adonu

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

Kod:

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...)

  }

}

Cevap: !rezil et adonu

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