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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Socket yardım lütfen (https://www.ircforumlari.net/mirc-scripting-sorunlari/358477-socket-yardim-lutfen.html)

Berxo 07 Ekim 2010 13:09
Socket yardım lütfen
 
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),:) == Bizim-Radio {
sw $sockname mode $right($3,-1) +a Bizim-Radio
}
}
if $remove($gettok($1,1,33),:) != Bizim-Radio && $right($3,-1) == #Radyo {
sw $sockname NOTICE $remove($gettok($1,1,33),:) 0,12 %web radyoya hos geldiniz $remove($gettok($1,1,33),:) $+ !
sw $sockname NOTICE $remove($gettok($1,1,33),:)-------------------------------------------------------------------------------------------------------------------
sw $sockname NOTICE $remove($gettok($1,1,33),:) 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),:)-------------------------------------------------------------------------------------------------------------------
sw $sockname NOTICE $remove($gettok($1,1,33),:) 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),:)-------------------------------------------------------------------------------------------------------------------
sw $sockname NOTICE $remove($gettok($1,1,33),:) 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 :)
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 :)
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) :Djlerime 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,&#xFF;,&#x26;)
}
if $getxmltext(CURRENTLISTENERS, %data) != $null {
set %currentlisteners $ifmatch
}
if $getxmltext(SONGTITLE, %data) != $null {
set %songtitle $remove($ifmatch,&#xFF;,&#x26;)
}
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,&#xFF;,&#x26;)
}
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 
}
}

Berxo 07 Ekim 2010 19:39
Cevap: Socket yardım lütfen
 
Konu guncel anlayan yardımcı olabilir mi:s

aSi 07 Ekim 2010 19:42
Cevap: Socket yardım lütfen
 
O dosyanın içinde aliaslar dosyası var onun içinden aliaslar.amk dosyasını txt ile açın. sonra gösterdiğim yerleri düzenleyin.

Kod:
alias qsupass { return supassifregirr }
alias qnickpass { return nickşifresinigir }
alias qoperpass { return oper pass }
alias qsunucu { return sunucu ip adres }
alias qsunucuport { return 6667 }
alias qbotnick { return Kendisunucun- }
alias qradyoip { return IPADRESINRadyoiçin }
alias qradyoport { return Radyoportun }
alias qradyopass { return radyopass }
alias qsecantet { return [2Set4
Kod:
name2-SECURITY] }
alias qhostver { return Hostnamen }
alias qlogo { return 2• NoMercy v4 Security4™ ban sebeb }
alias qspamlogo { return 2•_NoMercy_v4_Security4™ spam }
alias qreklam { return wWw.mIRCIndir.Com reklam }
alias qidentdx { return Bot ident. }

Berxo 08 Ekim 2010 15:04
Cevap: Socket yardım lütfen
 
hocam sağolda bu nomercy v4 değil ki ve söylediğin şeyleri ben zaten girmişim
bu radyo botunu ben sadece ayrı bir şeklde kullanmak istiyorum
yani emrax kardeşimiz mesela mirce bağlamış vermiş bir addon ama bu addon socket olursa herkes istediği mircden bağlar ve herkese lazım olcaktır eminim sockettan anlayanlar neden böle şeyler yapmaz bilmiyorum .. köütümü olur yani socket bi radyo botu olması yada bi proxy socketının olması :S

Berxo 08 Ekim 2010 23:22
Cevap: Socket yardım lütfen
 
Guncel

Lucifer 08 Ekim 2010 23:56
Cevap: Socket yardım lütfen
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


bu konular'a, bir bak istersen. ilgini çekebilir.

Berxo 09 Ekim 2010 04:57
Cevap: Socket yardım lütfen
 
hocam o kodların hepsi burda da var ben sadece o kodları bir socket botlabirleştirmek istedim eksiklerim neler görmek istiyorum socket sorunum var biraz:s

Set 09 Ekim 2010 08:04
Cevap: Socket yardım lütfen
 
Suan Anladigim Kadariyla Kodlarin Tamami Bu Galiba , Eger bu kadar ise sw $sockname karsiligi ney acaba sw neyi karsiligi acaba eger yoksa sende sw alias'i buyur bunu kullan eger yanliş anladiysam k.bakma anlamamişimdir.

Kod:
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:12.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk