coding articles

Twitch Sockread Script für mIRC

überprüft sogar ob der Channel live ist

2520 Views



Dieses mIRC MSL Script ruft bei jeder twitch Channel URL (http://twitch.tv/lightningsoul bspw.), die in einem IRC Kanal gepostet wird die Infos ab und gibt diese im entsprechenden IRC Channel aus. Als kleines Extra prüft das Script auch noch, ob er der twitch Kanal zur Zeit überträgt und gibt dann ein LIVE im IRC aus.


;Twitch Info 1.0

;Originally by Neo Nemesis (YouTube Reader) updated by Lightningsoul.com




alias twitch {

%ttwitch1 = $remove($1,http://,www.,twitch,.tv)

sockopen twitch www.twitch.tv 80

sockopen -e twitchprofile api.twitch.tv 443

%ttwitch11 = /kraken/streams $+ %ttwitch1

}

on *:SOCKOPEN:twitch: {

sockwrite -n $sockname GET %ttwitch1 HTTP/1.1

sockwrite -n $sockname Host: www.twitch.tv

sockwrite -n $sockname Connection: Keep-Alive

sockwrite -n $sockname Content-Type: text/html

sockwrite -n $sockname $crlf

}

on *:SOCKOPEN:twitchprofile: {

sockwrite -n $sockname GET %ttwitch11 HTTP/1.1

sockwrite -n $sockname Host: api.twitch.tv

sockwrite -n $sockname Connection: close

sockwrite -n $sockname $crlf

}

on *:sockread:twitchprofile:{

if ($sockerr > 0) return

:nextread

sockread -f %temp

if ($sockbr == 0) return

if (%temp == $null) %temp = -

if (_id isin %temp) {

%twoffline = 1

}

goto nextread

}

on *:SOCKCLOSE:twitchprofile: {

if (%twoffline == 1) {

msg %ttwitch3 %ymoon 6,0 LIVE

}

}




on *:SOCKREAD:twitch: {

sockread %ttwitch2

if (%ttwitch2 == $null) && (%lgsr == $null) {

msg %ttwitch3 0,6 TWITCH15,1 Error receiving information.

set %lgsr 1

}

elseif (%ttwitch2 == $null) && (#sockread != $null) { noop }

elseif (
%endtitle2 = $pos(%ttwitch2,/>,1)

%starttitle2 = $pos(%ttwitch2,
%starttitle3 = $pos(%ttwitch2,",1)

%inbetween3 = $calc(%endtitle3 - %starttitle3)

msg %ttwitch3 %ymoon 6,0 Game: $mid(%ttwitch2,$calc(%starttitle3 + 1),$calc(%inbetween3 - 1)) 

}

on *:TEXT:*twitch.tv*:#: {

%ttwitch3 = $chan

%ttwitch4 = 1

%ymoon = 0,6 TWITCH

while ([ $chr(36) $+ [ %ttwitch4 ] ]) {

if (twitch.tv/ isin [ $chr(36) $+ [ %ttwitch4 ] ]) {

sockclose twitch

sockclose twitchprofile

%twoffline = 0

twitch [ $chr(36) $+ [ %ttwitch4 ] ]

}

inc %ttwitch4

}

}



Ja, ich bin stolz auf die dummen Variablen und die miserable Formatierung.

Dankeschön auch nochmal an Kati, #help.script (Quakenet) und Neo Nemesis für die Hilfe bei der Programmierung bzw. die Vorarbeit!


Links: related

Sunday 22nd of December 2013 at 23:03

Share




comments


No comments yet.


Name

Message

You can post URLs (will be clickable automatically) and images via the [img]http://picurl[/img] tag.

Calculate 7 minus 3 (Robot check)

Back to Top

show elements