IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

Berxo · 07 Ekim 2010, 13:09

Nomercy socket botunu çektim ama sorun nerde anlayamadım bir türlü bağlanmıyor.
şimdiden yardım edebilen edemeyen fikir beyan eden herkese tşkler

Alıntı:

on *:sockopen:network:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | sockopen network %server | return }
sw $sockname NICK bizim $+ $r(0,99)
sw $sockname bizim Noident * * : %logo
sw $sockname oper %botopernick %botopernicksifre
sw $sockname join 0,
set %bswat %botnick $+ -Radio
sw $sockname NICK %botnick $+ -Radio
sw $sockname set %bswat %botnick $+ -Radio
sw $sockname identify %nickpass
sw $sockname join %operkanali
sw $sockname sethost NvLty.Radio
sw $sockname chghost %botnick Nohost
sw $sockname mode %operchan +o %botnick $+ -Radio
sw$sockname os raw svsmode Bizim-Radio +HB
sw $sockname swhois %botnick Bizim.Radyo.Channel
timer 0 10 sw $sockname ping %botnick $+ -Radio
sockmark $sockname %botnick $+ -Radio
}
on *:SOCKREAD:network: {
var %urs
sockread %urs
tokenize 32 %urs
if $numeric == *.* {
echo $1-
}
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper %botopernick %botopernicksifre
}
if $2 == 381 {
sw $sockname join 0,
sw $sockname os svskill Bizim-Radio cycling
.timer 1 2 sw $sockname NICK Bizim-Radio
}
alias sw $sockname { if $sock(network) { sockwrite -n network $1- } }
alias swalias {
;eğer bot socketı açıksa
if $sock(network) {
var %: = echo $color(info) -st > Socket bot:
if :VERSION iswm $4- { sw $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION %logo $+ $chr(1) }
if :FINGER iswm $4- { sw $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER %logo $+ $chr(1) }
if $1 == PING { sw $sockname PiNG $2- }
if $2 == 474 { %: $4 kanalında banlı. }
if $2 == 366 { %: $4 kanalına girdi. }
if $2 == KICK && $4 == $sock(network).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | sw $sockname JOIN $3 }
if $2 == PRIVMSG {
var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
if $istok(aLLStaR roni guven,%n,32) {
if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | sw $sockname PART %< | sw $sockname JOIN %< }
if .join #* iswm %m { sw $sockname JOIN $gettok(%m,2-,32) }
}
}
}
}
if $2 == NICK {
if $right($3,-1) == Bizim-Radio {
sw $sockname ns identify %botnicksifre
sw $sockname join #Radyo,#Dj,#opers
.timer 1 3 sw $sockname chghost Bizim-Radio Radio.Autho.System.
.timer 0 220 sw $sockname LIST
}
if $botfnick($1) == Bizim-Radio {
sw Bizim-Radio os svskill Bizim-Radio cycling
.timer 1 3 sw $sockname NICK Bizim-Radio
}
}
if $2 == JOIN {
if $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== Bizim-Radio {
sw $sockname mode $right($3,-1) +a Bizim-Radio
}
}
if $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
!= Bizim-Radio && $right($3,-1) == #Radyo {
sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
0,12 %web radyoya hos geldiniz $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
$+ !
sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
-------------------------------------------------------------------------------------------------------------------
sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
0,6 Isteklerinizi, Radyo kanalina 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Shakira- afrika - Tum %web ailesine gelsin.
sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
-------------------------------------------------------------------------------------------------------------------
sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
0,6DJ`lerimizden 0,4 $fants(%genre) su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ )
sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
-------------------------------------------------------------------------------------------------------------------
sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
10Radyomuzu dinlemek icin tiklayin: 12 && 12http://IRC.mIRCDark.Com:2222/listen.pls
}
if %::chan == #dj && $gettok(%::text,1,32) == !mesajekle {
if !$gettok(%::text,2-,32) {
sw $sockname PRIVMSG #dj :Olm kit misin niye mesaj yazmiyosun %::nick
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

return
}
write radyoslogan.txt $gettok(%::text,2-,32) ( $+ %::nick $+ )
sw Bizim-Radio PRIVMSG #dj :Slogan eklendi ( $+ %::nick imzali) - Radyo ile alakali seyler yazin lutfen.
}
if %::chan == #dj && $gettok(%::text,1,32) == !bulunamadi {
if !$gettok(%::text,2-,32) {
sw $sockname PRIVMSG #dj :kullanmak icin !bulunamadi <nick>
return
}
sw Bizim-Radio PRIVMSG #Radyo : $gettok(%::text,2,32) , isteginiz bulunamadi. Lütfen başka bir istek isteyiniz.
sw Bizim-Radio PRIVMSG #dj :istegi bulunamayan user $gettok(%::text,2,32) .
}
if %::chan == #dj {
if $gettok(%::text,1,32) == !dj {
sw Bizim-Radio os raw swhois %::nick : is a %web Dj
sw Bizim-Radio privmsg #dj : $+ %::nick Dj Olarak sisteme girisiniz onaylandi.
}
}
if %::chan == #dj && $gettok(%::text,1,32) == !istekcevap {
if !$gettok(%::text,2-,32) {
sw Bizim-Radio PRIVMSG #dj :Olm kit misin niye mesaj eklemiyorsun %::nick
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

return
}
sw Bizim-Radio PRIVMSG #dj 4:Cevap Metni (DJ- $+ %::nick imzali) - $gettok(%::text,2,32) $+ `e $+ :12 Iletilmiştir.
sw Bizim-Radio PRIVMSG $gettok(%::text,2,32) :Istege cevap (DJ- $+ %::nick imzali) - $gettok(%::text,3-,32)
sw Bizim-Radio PRIVMSG $gettok(%::text,2,32)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
jlerime cevap vermeniz icin gereken komut !istekcevap mesajınız
sw Bizim-Radio PRIVMSG $gettok(%::text,2,32) :Örnektir, !istekcevap teşekkür ederim iyi yayınlar vs vs.
}
if %::chan == #Radyo && *?stek iswm $gettok(%::text,1,32) {
if !$gettok(%::text,2,32) {
sw Bizim-Radio PRIVMSG %::chan Bos istek gondermeyiniz . " $+ %::nick $+ " " [23:14] <Bizim> !istek (istedigin sarki yaparak isticeksin istegini) "
return
}
if !%istek. [ $+ [ %::nick ] ] {
inc -u180 %istek. [ $+ [ %::nick ] ] 1
unset %istek. $+ q0kh4n
sw Bizim-Radio PRIVMSG #dj :-------------------------------------------------------------------------------------------------------------------
sw Bizim-Radio PRIVMSG #dj :-------------------------------------------------------------------------------------------------------------------
sw Bizim-Radio PRIVMSG %::chan :4Isteginiz DJ'lerimize iletilmistir2 %::nick 5( $+ $gettok(%::text,2-,32) $+ )
sw Bizim-Radio PRIVMSG #dj :-------------------------------------------------------------------------------------------------------------------
sw Bizim-Radio PRIVMSG #dj :Isteyen: %::nick Istek: $gettok(%::text,2-,32)
sw Bizim-Radio PRIVMSG #dj :-------------------------------------------------------------------------------------------------------------------
sw Bizim-Radio PRIVMSG #dj :Istek Cevap Komutu: 4!istekcevap %::nick mesaj
sw Bizim-Radio PRIVMSG #dj :-------------------------------------------------------------------------------------------------------------------
sw Bizim-Radio PRIVMSG #dj :-------------------------------------------------------------------------------------------------------------------
}
else {
_kick %::chan %::nick Ard arda istek istemeyiniz. Bir kisi, uc dakikada bir istek isteyebilir.
}
}
if %::chan == #Radyo && $gettok(%::text,1,32) == !link {
if !%link {
set -u10 %link 1
sw Bizim-Radio PRIVMSG %::chan :0,4 ** 0,6 Radyomuzu Winamp'ten dinlemek icin tiklayin 0,4 >> 12[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] & [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
else {
inc -u1 %linkkontrol 1
if %linkkontrol > 5 {
_kick %::chan %::nick !link flood yapmayiniz!
}
}
}
if %::chan == #Radyo && $gettok(%::text,1,32) == !dj {
if !%djs {
set -u10 %djs 1
sw Bizim-Radio PRIVMSG %::chan :0,4 $fants(%genre) su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ )
}
else {
inc -u1 %linkkontrols 1
if %linkkontrols > 5 {
_kick %::chan %::nick !dj flood yapmayiniz!
}
}
}
if %::chan == #Radyo && $gettok(%::text,1,32) == !istekbilgi {
sw Bizim-Radio PRIVMSG %::chan :Isteklerinizi Radyo kanalina !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek Gece Yolculari - Unut beni - Tum mIRCTR ailesine gelsin.
}
if %::chan == #Radyo && $gettok(%::text,1,32) == !durum {
if !%durum {
set -u10 %durum 1
unset %lastsong
shout
}
else {
inc -u1 %durumkontrol 1
if %durumkontrol > 5 {
_kick %::chan %::nick !durum flood yapmayiniz!
}
}
}
; RadyoBot
alias shoutcast.channel {
return %radiokanali
}
alias shoutcast.host {
return %radioip
}
alias shoutcast.port {
return %radioport
}
alias shoutcast.adminpass {
return %shutcastsifresi
}
alias shoutcast.socket {
return shoutcast
}
alias getxmltext {
var %tag.open = $+(<, $1, >)
var %tag.close = $+(</, $1, >)
if $pos($2-,%tag.open) {
var %start = $ifmatch + $len(%tag.open)
var %length = $calc($pos($2-, %tag.close) - %start)
return $mid($2-, %start, %length)
}
return $null
}
on 1:SOCKOPEN:$($shoutcast.socket): {
sockwrite -n $sockname GET $+(/admin.cgi?pass=,$shoutcast.adminpass,&mode=viewxml HTTP/1.1)
sockwrite -n $sockname Host: $+($shoutcast.host, :, $shoutcast.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 *.*, */*
sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
sockwrite -n $sockname Accept-Encoding: gzip,deflate
sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
sockwrite -n $sockname Keep-Alive: 300
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:$($shoutcast.socket): {
var %data
sockread -f %data
while $sockbr > 0 && $sockerr == 0 {
if $getxmltext(SERVERTITLE, %data) != $null {
set %servertitle $remove($ifmatch,ÿ,&#x26
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
if $getxmltext(CURRENTLISTENERS, %data) != $null {
set %currentlisteners $ifmatch
}
if $getxmltext(SONGTITLE, %data) != $null {
set %songtitle $remove($ifmatch,ÿ,&#x26
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
if $getxmltext(BITRATE, %data) != $null {
set %bitrate $ifmatch
}
if $getxmltext(PEAKLISTENERS, %data) != $null {
set %peaklisteners $ifmatch
}
if $getxmltext(SERVERGENRE, %data) != $null {
set %genre $remove($ifmatch,ÿ,&#x26
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
sockread -f %data
}
}
}
on 1:SOCKCLOSE:$($shoutcast.socket): {
if %songtitle != %lastsong {
set %lastsong %songtitle
;.timer 1 7 sw mIRCDark-RADYO PRIVMSG $shoutcast.channel : $djnick(%genre)
;.timer 1 20 sw mIRCDark-RADYO PRIVMSG $shoutcast.channel : $djnick(%genre)
sw Bizim-Radio PRIVMSG $shoutcast.channel :----------------------------------------------------------------------------------------------------------------------------------------------------------------------
var %msg = 0,4 $fants(%genre) su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda $+ %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ )
sw Bizim-Radio PRIVMSG $shoutcast.channel :----------------------------------------------------------------------------------------------------------------------------------------------------------------------
sw Bizim-Radio topic $shoutcast.channel : 0,4 ** 0,2 Yayinda su an » 0,4 $fants(%genre) 0,2 « bulunmakta 0,4 ** 0,2 Yayin turu: 0,14 %servertitle 0,2 0,4 ** 0,2 Calan parca: 0,14 %songtitle 0,2 0,4 **
sw Bizim-Radio privmsg $shoutcast.channel : 7 •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••
sw Bizim-Radio privmsg $shoutcast.channel : 0,4 < {*_^} >0,0 0,2 DJ`lerimizden 0,4 $fants(%genre) 0,2 su anda online
sw Bizim-Radio privmsg $shoutcast.channel : 12 •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••
sw Bizim-Radio privmsg $shoutcast.channel : 0,4< {*_^} > 0,0 0,2 Calan parca : 0,4 %songtitle
sw Bizim-Radio privmsg $shoutcast.channel : 10 •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••
sw Bizim-Radio privmsg $shoutcast.channel : 0,4 < {*_^} > 0,0 0,2 Dinlenme Oranı : 0,14 %currentlisteners $+ kisi dinliyor 0,4 (rekor: %peaklisteners $+ )
sw Bizim-Radio privmsg $shoutcast.channel : 10 •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••
sw Bizim-Radio privmsg $shoutcast.channel : 0,4 < {*_^} > 0,0 9,1 Radyomuzu winamp'dan dinlemek icin tiklayin 0,4 >> 12[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sw Bizim-Radio privmsg $shoutcast.channel : 5 •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••
sw Bizim-Radio privmsg $shoutcast.channel : 0,4 < {*_^} > 0,0 9,1 Radyomuzu web'den dinlemek icin tiklayin 0,4 >> 12[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sw Bizim-Radio privmsg $shoutcast.channel : 10 •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••
sw Bizim-Radio privmsg $chr(36) $+ *.,%web :0,4 < ** > 0,0 0,2 DJ`lerimizden 0,4 $fants(%genre) 0,2 su anda online 0,4 ** 0,20,2 Calan parca:0,4 %songtitle
sw Bizim-Radio PRIVMSG $shoutcast.channel :----------------------------------------------------------------------------------------------------------------------------------------------------------------------
sw Bizim-Radio privmsg $chr(36) $+ *.%web :0,4 < {*_^} > 0,0 9,1 Radyomuzu winamp'dan dinlemek icin tiklayin 0,4 >> 12http://212.175.158.58:2222/listen.pls
sw Bizim-Radio PRIVMSG $shoutcast.channel :----------------------------------------------------------------------------------------------------------------------------------------------------------------------
}
}
alias shout {
if $sock(shoutcast) {
sockclose $ifmatch
}
sockopen $shoutcast.socket $shoutcast.host $shoutcast.port
}
alias fants {
return $replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,†,y,¥,c,¢,o ,Ó,n,ñ)
}
alias tc {
if . isin $calc($1- / 2) {
return tek
}
else {
return cift
}
}
alias djnick {
var %n 1 , %ret
while %n <= $len($1-) {
if $tc(%n) == tek {
%ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
}
else {
%ret = $+(%ret,8 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
}
inc %n
}
return 2 *~~ 0,4 D 0,2 J %ret 11,1 $replace($read(radyoslogan.txt,$r(1,$lines(radyosl ogan.txt))),^genre,%genre) > : $randombilgi ~~*
}
alias randombilgi {
if $r(1,2) == 1 {
return 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4 yaziniz.
}
else {
return 4Dinlemek icin > 12http://212.175.158.58:2222/listen.pls
}
}