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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Radyo Kick Botu (https://www.ircforumlari.net/tcl-scriptler/250207-radyo-kick-botu.html)

Cevap: Radyo Kick Botu

Evet kullanmıştım ben bunları @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] anlayamadım neden çalışmadığını. Aşağıda verdiğim kodu sunucu koruma botunun remote kısmına ekle işlev görecektir.

Kod:

alias .host {

  return 31.210.155.75

}

alias .port {

  return 4237

}

alias .adminpass {

  return askbirfmm

}

alias .sock {

  return shoutcast

}

on 1:SOCKOPEN:$($.sock): {

  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$.adminpass,&mode=kicksrc HTTP/1.1)

  sockwrite -n $sockname Host: $+($.host, :, $.port)

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8

  sockwrite -n $sockname Keep-Alive: 300

  sockwrite -n $sockname Connection: keep-alive

  sockwrite -n $sockname $crlf

}

alias sessiz {

  if $sock(shoutcast) {

    sockclose $ifmatch

  }

  sockopen $.sock $.host $.port

}

on 1:text:*:#dj:{

  if *!djkick* iswm $1- {

    sessiz

    msg #dj 0,1 8 Çatlama Gardaş Düşürdük işte ? 

  }

}

Cevap: Radyo Kick Botu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardeşim saol tşk ederim gösterdiğin çaba için ama sunucu o kadar geniş deği koruma botu dj odasında yok, gerek yok yani, sadece sohbet odasında :) radyoyuda kcklemeyelim. Yinede tesekkür ederim kardeşim , başka zaman tüm kanallara alırsak korumayı eklerim inşeAllah.

Cevap: Radyo Kick Botu

Sorunu devam edenler kullanabilir. Kick kısmını editledim umarım faydası dokunur.

Kod:

##Buraya Radyonun İp Adresini Yazın..

set ip "ipadresi"

##Buraya Radyonun Portunu Yazın..

set port "port"

##Buraya Radyonun Şifresini Yazın..

set pass "şifre"

##Buraya Radyonun Admin Şifresini Yazın..

set adminpass "adminşifresi"

## Buraya Komutun Geçerli Olacağı Kanalı Yazın..

set kickkanal "#Dj"
 

bind pub - !kickradyo kickradyo

proc kickradyo {nick host handle chan arg} {

global ip port pass adminpass kickkanal

if {$chan != $kickkanal} {return 0}

set sock [socket [duzelt $ip] [duzelt $port]]

puts $sock "GET /admin.cgi?mode=kicksrc HTTP/1.0"

puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"

puts $sock "Host: $ip"

puts $sock "Connection: close"

puts $sock ""

flush $sock

close $sock

putserv "PRIVMSG #Dj :4,1Radyo Yayını Düşürülmüştür. Lütfen Yayını Alınız."

}
 

proc duzelt { a } {

regsub -all {\}} $a "" a

regsub -all {\{} $a "" a

regsub -all {\;} $a "" a

regsub -all {\*} $a "" a

regsub -all " " $a "" a

return $a

}