[mIRC] shoutcast servertje

[Martink]

hoi ik zit wat te vervelen dus probeer ik soms rare dingen zoals een shoutcast server in mirc, maar dan ga ik zitten ergen dat het niet lukt muziek uit winamp te halen die connect naar mirc

code:

on *:socklisten:shoutcast_serv: {
  /sockaccept shoutcast_serv_open
  /sockwrite -n shoutcast_serv_open ICY 200 OK
  /sockwrite -n shoutcast_serv_open icy-notice1:<BR>This stream requires <a href="http://www.winamp.com/">Winamp</a><BR>
  /sockwrite -n shoutcast_serv_open icy-notice2:SHOUTcast Distributed Network Audio Server/Linux v1.8.3<BR>
  /sockwrite -n shoutcast_serv_open icy-name:mIRC $version shoutcast
  /sockwrite -n shoutcast_serv_open icy-genre: $+ $me
  /sockwrite -n shoutcast_serv_open icy-url:http://www.guruchat.net
  /sockwrite -n shoutcast_serv_open icy-pub:1
  /sockwrite -n shoutcast_serv_open icy-metaint:8192
  /sockwrite -n shoutcast_serv_open icy-br:96
  /sockwrite -n shoutcast_serv_open
  bread %mp3.file 0 4096 &read.mp3 
  sockwrite shoutcast_serv_open &read.mp3
}

waarom werkt dit niet gewoon
winamp blijft op [buffer: 0%] staan

[Helmet]

my lijkt dat je bread moet herhalen ik zal er eens ff na kijken

code:

on *:socklisten:shoutcast_serv: {
  /sockaccept shoutcast_serv_open
  /sockwrite -n shoutcast_serv_open ICY 200 OK
  /sockwrite -n shoutcast_serv_open icy-notice1:<BR>This stream requires <a href="http://www.winamp.com/">Winamp</a><BR>
  /sockwrite -n shoutcast_serv_open icy-notice2:SHOUTcast Distributed Network Audio Server/Linux v1.8.3<BR>
  /sockwrite -n shoutcast_serv_open icy-name:mIRC $version shoutcast
  /sockwrite -n shoutcast_serv_open icy-genre: $+ $me
  /sockwrite -n shoutcast_serv_open icy-url:http://www.guruchat.net
  /sockwrite -n shoutcast_serv_open icy-pub:1
  /sockwrite -n shoutcast_serv_open icy-metaint:8192
  /sockwrite -n shoutcast_serv_open icy-br:96
  /sockwrite -n shoutcast_serv_open
  readfile 
}

alias readfile { 
  .set %filesize $file($shortfn(%file)).size
  var %filen $shortfn(%file)
  bread %filen 0 4096 &read.mp3 
  sockwrite shoutcast_serv_open &read.mp3
  var %count 4096 
  while (%count < %filesize) { 
    .inc %count 4096
    .timer [ $+ [ %count ] ] -m 200 1  bread %filen %count 4096 &read.mp3 
    sockwrite shoutcast_serv_open &read.mp3
  }
}

dit werkt al beter (speelt 3 seconden )

[Martink]

code:

on *:socklisten:shoutcast_serv: {
  /sockaccept shoutcast_serv_open
  /sockwrite -n shoutcast_serv_open ICY 200 OK
  /sockwrite -n shoutcast_serv_open icy-notice1:<BR>This stream requires <a href="http://www.winamp.com/">Winamp</a><BR>
  /sockwrite -n shoutcast_serv_open icy-notice2:SHOUTcast Distributed Network Audio Server/Linux v1.8.3<BR>
  /sockwrite -n shoutcast_serv_open icy-name:mIRC $version shoutcast
  /sockwrite -n shoutcast_serv_open icy-genre: $+ $me
  /sockwrite -n shoutcast_serv_open icy-url:http://www.guruchat.net
  /sockwrite -n shoutcast_serv_open icy-pub:1
  /sockwrite -n shoutcast_serv_open icy-metaint:8192
  /sockwrite -n shoutcast_serv_open icy-br:96
  /sockwrite -n shoutcast_serv_open
}


alias sendlied {
  if ($sock(shoutcast_serv_open) != $null) {
    if (%mp3.from > $file(%mp3.file).size) { set %mp3.to 0 }    
    bread %mp3.file %mp3.from 8000 &read.mp3 
    inc %mp3.from 8000
    sockwrite shoutcast_serv_open* &read.mp3
  }
  .timersendlied 0 1 /sendlied
}

zo stotert het echt !
:)doe ik nog iets fout?

wel toevallig dat we allebij tegelijk met een scriptje komen

[Martink]

code:

on *:socklisten:shoutcast_serv: {
  /sockaccept shoutcast_serv_open
  /sockwrite -n shoutcast_serv_open ICY 200 OK
  /sockwrite -n shoutcast_serv_open icy-notice1:<BR>This stream requires <a href="http://www.winamp.com/">Winamp</a><BR>
  /sockwrite -n shoutcast_serv_open icy-notice2:SHOUTcast Distributed Network Audio Server/Linux v1.8.3<BR>
  /sockwrite -n shoutcast_serv_open icy-name:mIRC $version shoutcast
  /sockwrite -n shoutcast_serv_open icy-genre: $+ $me
  /sockwrite -n shoutcast_serv_open icy-url:http://www.guruchat.net
  /sockwrite -n shoutcast_serv_open icy-pub:1
  /sockwrite -n shoutcast_serv_open icy-metaint:8192
  /sockwrite -n shoutcast_serv_open icy-br:96
  /sockwrite -n shoutcast_serv_open
}
alias sendlied {
  if ($sock(shoutcast_serv_open) != $null) {
    if (%mp3.from > $file(%mp3.file).size) { set %mp3.from 0 }    
    bread %mp3.file %mp3.from 300 &read.mp3 
    inc %mp3.from 300
    sockwrite shoutcast_serv_open* &read.mp3
  }
  .timersendlied -m 200 1 /sendlied
}

deze werkt al wat beter blijft langer lopen
stotert alleen harstike en geeft naar enkele sec foutmeldingen
[/quote]
* /sockwrite: 'shoutcast_serv_open*' queue would exceed 16384 bytes (line 41, shoutcast.mrc)[/quote]

[Helmet]

mjah ik denk dat je in je server een "buffer" moet inbouwen bijvoorbeeld met een timerbla -m 1 200 bwrite blabla

suc6 en laat me weten als het je gelukt is (btw als je er op msn over wil lullen [e-mail])

[Grum]

vraag de bitrate op van de mp3 en stuur dat maximaal elke seconde weg. (Wel een kleine voorsprong nemen in et begin)

[Helmet]

Grum ik denk dat het probleem met de mirc socket te maken heeft omdat deze teveel data in zijn queue krijgt dit zou wel een limitatie van mirc kunnen zijn

[Grum]

Je kan meen ik checken hoeveel data ie in z'n socket heeft en em gewoon steeds aanvullen.

[Helmet]

$sock(name,N)
This returns information about a socket connection that you created using the socket commands.

Properties: name, ip, port, status, sent, rcvd, sq, rq, ls, lr, mark, type, saddr, sport, to, wserr, wsmsg, bindip, bindport

.name is the name you give to a connection to identify it

.sent and .rcvd return the number of bytes sent and rcvd over that connection so far
.sq and .rq return the number of bytes queued in the send and receive buffers respectively
.ls and .lr return the number of seconds since the connection last sent and last received info
.mark is a user storage area max. 512 bytes (see /sockmark)
.type returns the socket type, TCP or UDP
.saddr and .sport return the source address and port of the last received UDP packet
.to returns the number of seconds the socket has been open
.wserr returns the last winsock error number that occurred on a socket
.wsmsg returns the last winsock error message match the error number

.sq dus en die idd aanvullen tot max dat moet werken

[Grum]

ik heb nu een werkende shoutcast in mirc

zallem misschien morge ff opschonen en posten ..

hij is nu ook nog wat gelimiteerd maar hij stuurt wel netjes precies genoeg bits weg

[Helmet]

kun je de source eens ergens posten ofzo lijkt me vrij interessant

[Grum]

mja ik zal even zorgen dat je een kleine playlist kan maken (niet al te advanced) en dattie die dan achter elkaar stuurt.

hij kan nu nog maar 1 mp3 sturen en die looptie niet eens

[Martink]

Nou ik ben benieuwt

[Grum]

ik maak eventjes een kleine 'interface' ervoor dat je nummers kan adden in de playlist (nog geen dubbele .. geen zin in ) en dat ie door die nummers looped

misschien dattie zelfs meta-data opstuurt bij nummerchange en HEEL misschien multi-client support

[Helmet]

Multi Client is niet zo'n heel groot probleem aangezien je sockwrite naar shoutcast_Serv_open* kunt doen

[Grum]

jah maar ik moet de connecties wel bijhouden en kunnen listen enzo

[edit2]
vergeet vooral niet dat je per buffer moet kijken hoever ie leeg is - das nog et rotste

[wip-snip]

code:

> help
Known commands:
add list clear help del
 
use 'help command' to get more info on that command
> help add
Returns: add 'file' to the current playlist (must be a mp3)
Usage  : add [file]
> clear
Playlist cleared.
> add D:\Desktop\rips\Blank And Jones - Live On Ssl 30 07 2001.mp3
Added to playlist: D:\Desktop\rips\Blank And Jones - Live On Ssl 30 07 2001.mp3 Bitrate: 128 kbit/s Length: 01:38:57
> add D:\Desktop\rips\Judge Jules - live at creamfields 2001 08-25.mp3
Added to playlist: D:\Desktop\rips\Judge Jules - live at creamfields 2001 08-25.mp3 Bitrate: 128 kbit/s Length: 02:00:08
> list
1 01:38:57 D:\Desktop\rips\Blank And Jones - Live On Ssl 30 07 2001.mp3
2 02:00:08 D:\Desktop\rips\Judge Jules - live at creamfields 2001 08-25.mp3
Total items: 2 ( 03:38:05 )

[edit]

code:

> add blaat
No such file 'blaat'
> add mirc.ini
Couldn't determain bitrate - perhaps mirc.ini is no mp3 ?

[Helmet]

Connecties listen

code:

alias listcons {
var %i 0
.inc %i
while ($sock(%i)) { .inc %i | echo -a Connection: $sock(%i) ipaddresss: $sock(%I).ip }
}
}

edit:

Oops een } vergeten

[Grum]

dat is niet netjes

dan pak je ook de sockets van andere scripts mee

[Helmet]

ik weet
maar geef je socket naam
shoutcast.[ $+ [ %eennummertje ] ]

en je kunt ze eruit filteren

[Martink]

Waneer is dat shoutcast scrippie te downloaden??

[Martink]

Waneer is dat scripie nouw eens klaar lukt mij niet om hem niet stoterend te sturen

[Verwijderd]

krijg je nie om da jij het ben Martin ?

[Grum]

gatver nou moet ik et nog gaan afmaken ook

[Martink]

Op maandag 01 april 2002 21:40 schreef Grum het volgende:
gatver nou moet ik et nog gaan afmaken ook

Ja hup! doorwerken jij!

[Grum]

jaja ben al bezig .. ff een maxclients erin aant maken .. daarna de daadwerkelijke streaming

[Helmet]

* Helmet vind dit op een scriptrequest lijken
maar is toch wel een beetje geinteresseert

[Grum]

hmmz .. waar ben ik aan begonnen

de server snapt nu dat alsie vol zit dattie de goede error string moet brullen

nu nog alleen eventjes een mini-check maken voor de requested file... en dan nog de streaming

man waar ben ik aan begonnen

tis van 35 regels naar 300 gegroeid

[Helmet]

mirc coden == verslavend

code:

if ($koffie == op) { getnewkoffie }

[Grum]

nee mirc-coden is hoogstens irritant

en dan ook ECHT ECHT ECHT irritant

en daarbij .. * Grum doet niet aan koffie

[Helmet]

och neej valt wel mee toch






paar screenshotjes

code:

$replace(koffie,bier)

[Martink]

Op maandag 01 april 2002 22:54 schreef Helmet het volgende:
* Helmet vind dit op een scriptrequest lijken
maar is toch wel een beetje geinteresseert

ik was zelf toch al begonnen
lukt alleen niet erg
ik krijg stoteren niet weg

Op maandag 01 april 2002 23:17 schreef Helmet het volgende:
och neej valt wel mee toch

[afbeelding]
[afbeelding]
[afbeelding]
[afbeelding]

paar screenshotjes

code:

$replace(koffie,bier)

heb je die mirc zelf gemaakt ?
wel erg mooi

[Helmet]

da's inderdaad het script dat ik aan het ontwikkelen ben het maakt gebruik van mdx.dll (de listview enzow)

voor meer info kijk je eens op http://www.mircscripts.org

[jep]

IRC scripting is wel gaar aan alle kanten, onnuttig en bovendien erg afgezaagd, maar ik moet zeggen dat je er wel iets moois van hebt gemaakt

[Grum]

sorrz .. doe ook geen bier

me 'wip-file' staat op http://erik.powerdns.com/mirc

zonder help etc dus alleen als je wil zien wat ik nu al heb

way van finished btw

[edit]
erm ok ik zie nu dat er ranzige fouten in die file zitten

zal zo ff een paar dingen fixen dat je em tenminste kan aanzetten

[edit2]
Als je em perse nu al wilt hebben moet je me maar ff komen lastig vallen op irc (Grum op irc.tweakers.net/#tweakers.net)

[Martink]

code:

$replace(bier,cola)

Maar je past hem niet meer hier?
anders moet ik weer /server -m irc.tweakers.net doen
en zo een gedoe

[Grum]

nu even niet

en nee .. sorry .. ook geen cola

[Martink]

Op dinsdag 02 april 2002 14:55 schreef Grum het volgende:
nu even niet

en nee .. sorry .. ook geen cola

waneer dan wel?
wil hem wel eens zien namelijk

code:

$replace(cola,melk)

[Verwijderd]

ist nie simpeler om die Shoutcast Gnu te downloaden en te installen ?

[Helmet]

dan is de fun er vanaf het is veel leuker als je ut zelf bouwt!

[Martink]

Op dinsdag 02 april 2002 16:17 schreef Helmet het volgende:
dan is de fun er vanaf het is veel leuker als je ut zelf bouwt!

Maar niet leuk als het niet lukt
ik krijg stoteren helemaal niet weg,

[Martink]

Ik heb even zitten kloten met dat scriptje wat niet goed werkt
krijg hem niet aan de praat
nouja hij connect winamp maar hoor niks
en heb toch een paar mp3's geadd

[Martink]

Ja ik wil dat scrippie!