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

Merhaba,
Bir arkadaşın isteği üzerine yazmıştım baya oldu yeni paylaşmak aklıma geldi =)
Sunucusunda cycle bot kullanan arkadaşların işine yarıyabilir.
Yapamayan olursa PM atsın yardımcı olabilirim.

Kod:

on *:sockopen:radyoc*:{

  if ($sockerr > 0) { sockclose $sockname | returnex } 

  sw $sockname CONNECT RadyoIP:RadyoPORT $+(HTTP/1.1,$CRLF,$CRLF)

}

on *:sockread:radyoc*:{

  var %;rdin | sockread %;rdin | tokenize 32 %;rdin

  if ($gettok(%;rdin,1-2,32) == HTTP/1.0 200) || ($gettok(%;rdin,1-2,32) == HTTP/1.1 200) {

    sockwrite -nt $sockname GET /;*.nsv HTTP/1.1

    sockwrite -nt $sockname Host: $sock($sockname).addr

    sockwrite -nt $sockname Connection: keep-alive

    sockwrite -nt $sockname Accept-Encoding: identity;q=1, *;q=0

    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36

    sockwrite -nt $sockname Accept: */*

    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4

    sockwrite -nt $sockname Range: bytes=0- 

    sockwrite -nt $sockname $crlf

  }  

}

Cyclenize eklemek için;

Örn;

Kod:

var %:rnd $+($md5($ticks),$r(10,999))

  .sockopen $+(radyoc,%:rnd) IP PORT