Code:
; made for #Radio.Sk4rl3t
; Radio-Script V1.00
; coded by Iw@n
on *:text:!setdj *:#Radio.Sk4rl3t: {
if ($nick isop $chan) {
notice $nick 11,1~+~4,1 DJ 11,1:4,1 $2 11,1 ~+~
set %radiodj $2
}
}
on *:text:!wünsche *:#Radio.Sk4rl3t: {
if ($nick isop $chan) {
notice $nick 11,1~+~4,1 Wünsche 11,1:4,1 $2 11,1 ~+~
set %radiowünsche $2
}
}
on *:text:!sendung *:#Radio.Sk4rl3t: {
if ($nick isop $chan) {
set %radiosendung $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30 $31 $32 $33 $34 $35 $36 $37 $38 $39 $40 $41 $42 $43 $44 $45 $46 $47 $48 $49 $50
notice $nick 11,1~+~4,1 Sendung 11,1:4,1 %radiosendung 11,1 ~+~
}
}
on *:text:!setstream *:#Radio.Sk4rl3t: {
if ($nick isop $chan) {
set %radistream $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30 $31 $32 $33 $34 $35 $36 $37 $38 $39 $40 $41 $42 $43 $44 $45 $46 $47 $48 $49 $50
notice $nick 11,1~+~4,1 Stream 11,1:4,1 %radistream 11,1 ~+~
}
}
on *:text:!setnews *:#Radio.Sk4rl3t: {
if ($nick isop $chan) {
set %radinews $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30 $31 $32 $33 $34 $35 $36 $37 $38 $39 $40 $41 $42 $43 $44 $45 $46 $47 $48 $49 $50
notice $nick 11,1~+~4,1 News 11,1:4,1 %radinews 11,1 ~+~
}
}
on *:text:!sethp *:#Radio.Sk4rl3t: {
if ($nick isop $chan) {
set %radihp $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30 $31 $32 $33 $34 $35 $36 $37 $38 $39 $40 $41 $42 $43 $44 $45 $46 $47 $48 $49 $50
notice $nick 11,1~+~4,1 Homepage 11,1:4,1 %radihp 11,1 ~+~
}
}
on *:text:!online:#Radio.Sk4rl3t: {
if ($nick isop $chan) {
set %radio 1
/mode $chan -c
msg Q settopic #Radio.Sk4rl3t 0,1 Welcome4,1²0,1 #Radio.Sk4rl3t 4||0,1 >> G1rlz-Radio made 4 U << 4||0,1 %radihp 4||0,1 %radistream 4 || 0,1Radio9 online 4||0,1 DJ ist9 %radiodj 1,1|
notice $chan 4,1#Radio.Sk4rl3t11,1 ~+~ 9,1Radio 11,1is now9,1 Online ( %radiosendung ) 11,1@9,1 %radistream 11,1 ~+~ 9,1DJ 11,1ist9,1 %radiodj 11,1~+~ 9,1Wünsche 11,1sind9,1 %radiowünsche 11,1~+~ 4,1#Radio.Sk4rl3t
MSG Q WELCOME #Radio.Sk4rl3t 11,1 ~+~ 9,1Radio 11,1is 9,1Online ( %radiosendung ) 11,1 ~+~ 9,1DJ 11,1ist9,1 %radiodj 11,1~+~ 9,1Wünsche 11,1sind9,1 %radiowünsche 11,1~+~9,1 sponsored by #GameServerProfis 11,1~+~
.timer 1 5 /mode $chan +cC
}
}
on *:text:!offline:#Radio.Sk4rl3t: {
if ($nick isop $chan) {
/mode $chan -c
msg Q settopic #Radio.Sk4rl3t 0,1 Welcome4,1²0,1 #Radio.Sk4rl3t 4||0,1 >> G1rlz-Radio made 4 U << 4||0,1 %radihp 4||0,1 %radistream 4 || 0,1Radio9 offline 4||0,1 %radinews 1,1|
notice $chan 4,1#Radio.Sk4rl3t11,1 ~+~ 9,1 Radio 11,1is now9,1 Offline 11,1~+~ 4,1#Radio.Sk4rl3t
MSG Q WELCOME #Radio.Sk4rl3t 11,1 ~+~ 9,1Radio 11,1is 9,1Offline 11,1~+~9,1 unterlasst bitte Werbung für HPs oder andere Chans (auch der Versuch wird gebannt 11,1~+~9,1 sponsored by #GameServerProfis 11,1~+~
.timer 1 5 /mode $chan +cC
unset %radio*
set %radio 2
}
}
on *:text:!settopic:#Radio.Sk4rl3t: {
if ($nick isop $chan) {
if (%radio == 1) {
/mode $chan -c
msg Q settopic #Radio.Sk4rl3t 0,1 Welcome4,1²0,1 #Radio.Sk4rl3t 4||0,1 >> G1rlz-Radio made 4 U << 4||0,1 %radihp 4||0,1 %radistream 4 || 0,1Radio9 online 4||0,1 DJ ist9 %radiodj 1,1|
.timer 1 5 /mode $chan +cC
}
else {
/mode $chan -c
msg Q settopic #Radio.Sk4rl3t 0,1 Welcome4,1²0,1 #Radio.Sk4rl3t 4||0,1 >> G1rlz-Radio made 4 U << 4||0,1 %radihp 4||0,1 %radistream 4 || 0,1Radio9 offline 4||0,1 %radinews 1,1|
.timer 1 5 /mode $chan +cC
}
}
}
on *:text:!stream:#Radio.Sk4rl3t: {
if (%radio == 1) {
/sockopen stream BNC1.gameserverprofis.de 8000
.timer 1 1 /sockclose stream BNC1.gameserverprofis.de 8000
.timer 1 3 /notice $nick 4,1#Radio.Sk4rl3t11,1 ~+~ 9,1Radio 11,1is 9,1 Online ( %radiosendung ) 11,1@9,1 %radistream 11,1 ~+~ 9,1DJ 11,1ist9,1 %radiodj 11,1~+~ 9,1Wünsche 11,1sind9,1 %radiowünsche 11,1~+~ 4,1#Radio.Sk4rl3t
.timer 1 5 /notice $nick 4,1#Radio.Sk4rl3t11,1 ~+~ 9,1MP³ 11,1 %radiosong ( %radiokbps kbps )11,1 ~+~9,1 Listener 11,1 %radiolistener von %radioslot ( Rekord: %radiopeak ) 11,1~+~ 4,1#Radio.Sk4rl3t
}
else {
notice $nick 4,1#Radio.Sk4rl3t11,1 ~+~ 9,1Radio 11,1is 9,1 Offline 11,1@9,1 %radistream 11,1 ~+~ 4,1#Radio.Sk4rl3t
}
}
on *:text:!wunsch *:#Radio.Sk4rl3t: {
if (%radiowünsche == on) {
set %radiowunsch $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30 $31 $32 $33 $34 $35 $36 $37 $38 $39 $40 $41 $42 $43 $44 $45 $46 $47 $48 $49 $50
msg %radiodj 4,1#Radio.Sk4rl3t11,1 ~+~ 9,1 $nick 11,1wünscht sich 9,1 %radiowunsch
notice $nick 4,1#Radio.Sk4rl3t11,1 ~+~ 9,1 $nick 11,1Dein Wunsch 9,1 %radiowunsch 11,1 wurde weitergeleitet
}
else {
notice $nick 4,1#Radio.Sk4rl3t11,1 ~+~ 9,1Wünsche 11,1werden momentan nicht 9,1angenommen 11,1@9,1 %radistream 11,1 ~+~ 4,1#Radio.Sk4rl3t
}
}
on *:text:!gruss *:#Radio.Sk4rl3t: {
if (%radio == 1) {
set %radiogruss $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30 $31 $32 $33 $34 $35 $36 $37 $38 $39 $40 $41 $42 $43 $44 $45 $46 $47 $48 $49 $50
msg %radiodj 4,1#Radio.Sk4rl3t11,1 ~+~ 9,1 $nick 11,1grüsst 9,1 %radiogruss
notice $nick 4,1#Radio.Sk4rl3t11,1 ~+~ 9,1 $nick 11,1Dein Gruss wurde weitergeleitet
}
else {
notice $nick 4,1#Radio.Sk4rl3t11,1 ~+~ 9,1Radio 11,1is 9,1Offline 11,1@9,1 %radistream 11,1 ~+~ 4,1#Radio.Sk4rl3t
}
}
on *:text:!help:#Radio.Sk4rl3t: {
if ($nick isop $chan) {
msg $nick 11,1~+~4,1 Befehle11,1 für den 4,1Radiobot11,1 ~+~
.timer 1 2 /msg $nick 1,0 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
.timer 1 3 /msg $nick 1,0 1.) !setdj NICK <--- DJ setzen (bitte immer neu setzen bei Nickwechsel)
.timer 1 4 /msg $nick 1,0 2.) !sendung NAME <--- Name der Sendung, die Du machst
.timer 1 5 /msg $nick 1,0 3.) !wünsche on / off <--- Wünsche ein oder ausschalten
.timer 1 6 /msg $nick 1,0 4.) !online <--- Notice an den Chan, das das Radio on is & Topic change
.timer 1 7 /msg $nick 1,0 5.) !offline <--- Notice an den Chan, das das Radio off is & Topic change
.timer 1 8 /msg $nick 1,0 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
.timer 1 9 /msg $nick 1,0 1.) !setnews TEXT <--- News fürs Topic setzen
.timer 1 10 /msg $nick 1,0 2.) !sethp URL <--- Url zur HP setzen
.timer 1 11 /msg $nick 1,0 3.) !setstream LINK <--- Link zum Stream setzen
.timer 1 12 /msg $nick 1,0 4.) !settopic <--- Topic wird gesetzt
else {
notice $nick 11,1~+~4,1 Befehle11,1 für den 4,1Radiobot11,1 ~+~
.timer 1 2 /notice $nick 1,0 1.) !stream <--- zeigt die Daten des Streams und den Status an
.timer 1 3 /notice $nick 1,0 2.) !wunsch NAME <--- sendet Deinen Wunsch an den aktuellen DJ
.timer 1 4 /notice $nick 1,0 3.) !gruss NACHRICHT <--- der DJ wird für Dich ein paar Grüsse ausrichten
} } }
on *:sockopen:stream:{
if (!$sockerr) {
sockwrite -n $sockname GET /7 HTTP/1.1
sockwrite -n $sockname Host: $sock(radio).ip
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Win98; de-DE; rv:0.9.4.1) Gecko/20020508 Netscape6/6.2.3
sockwrite -n $sockname
}
}
on *:sockread:stream:{
sockread 4096 &g
if (!$sockbr) { return }
bwrite radio.txt 0 -1 &g
unset %radiolistener
unset %radiopeak
unset %radioslot
unset %radiokbps
unset %radiosong
unset %radiolisten
unset %radiolist
set %radiolisten $read(radio.txt,4)
set %radiolist $gettok(%radiolisten,5,62)
if (</body isin %radiolist) {
set %radiolist $remove(%radiolist,</body)
}
set %radiolistener $gettok(%radiolist,1,44)
set %radiopeak $gettok(%radiolist,3,44)
set %radioslot $gettok(%radiolist,4,44)
set %radiokbps $gettok(%radiolist,6,44)
set %radiosong $gettok(%radiolist,7,44)
if (%radiosong == $null) { set %radiosong Disabled }
}
on *:sockclose:stream:{
echo Listener: %radiolistener
echo Slot: %radioslot
echo Peak: %radiopeak
echo Kbps: %radiokbps
echo Song: %radiosong
}
:
