RadioSys.pwn

/******************************************************************************
 *                                                                            *
 *                              Sistem de radio                               *
 *                                                                            *
 *          - Autor: [RNG]DuReX                                               *
 *          - Linii:                                                          *
 *          - Data crearii: 18 mai 2013, 13:00                                *
 *          - Versiune: 2.0                                                   *
 *                                                                            *
 ******************************************************************************/
/*############################################################################*/
#include <a_samp>
#include <zcmd>
/*############################################################################*/
CMD:sr(playerid)                return StopRadio(playerid);
CMD:r1(playerid)                return PlayRadio(playerid, "Radio Club Mix", "r1", "http://www.radioclubmix.ro/live.m3u");
CMD:r2(playerid)                return PlayRadio(playerid, "RadioWISH", "r2", "http://www.radiowish.ro/live.m3u");
CMD:r3(playerid)                return PlayRadio(playerid, "Radio HiT FM", "r3", "http://www.radio-hit.ro/asculta.m3u");
CMD:r4(playerid)                return PlayRadio(playerid, "Pro FM", "r4", "http://stream.profm.ro:8012/profm.mp3");
CMD:r5(playerid)                return PlayRadio(playerid, "radio-tube.pl Dubstep", "r5", "http://s4.radiohost.pl:8154/listen.pls");
CMD:r6(playerid)                return PlayRadio(playerid, "Radio Mafia", "r6", "http://www.radiomafia.ro/listen.m3u");
CMD:r7(playerid)                return PlayRadio(playerid, "Radio Greu de Difuzat", "r7", "http://www.greudedifuzat.eu/greudedifuzat.m3u");
CMD:r8(playerid)                return PlayRadio(playerid, "Radio Renasterea", "r8", "http://82.79.98.41:8000/live.m3u");
CMD:r9(playerid)                return PlayRadio(playerid, "M2 Love Radio", "r9", "http://www.m2radio.fr/pls/m2love_winamp.m3u");
CMD:r10(playerid)               return PlayRadio(playerid, "Radio Star DJ Hip-Hop", "r10", "http://radiostardj.ro/lst/hip/listen.pls");
CMD:r11(playerid)               return PlayRadio(playerid, "Radio Star DJ Dance", "r11", "http://radiostardj.ro/lst/dance/listen.pls");
CMD:r12(playerid)               return PlayRadio(playerid, "Radio Star DJ Manele", "r12", "http://radiostardj.ro/lst/manele/listen.pls");
CMD:r13(playerid)               return PlayRadio(playerid, "Radio Intens", "r13", "http://www.radiointens.ro/asculta-populara.m3u");
CMD:r14(playerid)               return PlayRadio(playerid, "Radio Popular", "r14", "http://www.radiopopular.ro/RadioPopular.m3u");
CMD:r15(playerid)               return PlayRadio(playerid, "Radio Lautaru", "r15", "http://www.radiolautaru.ro/live.m3u");
CMD:r16(playerid)               return PlayRadio(playerid, "Radio GMusic Rock", "r16", "http://www.radiogmusic.com/rock.m3u");
CMD:r17(playerid)               return PlayRadio(playerid, "Radio Paradise", "r17", "http://www.radioparadise.com/musiclinks/rp_128.m3u");
CMD:r18(playerid)               return PlayRadio(playerid, "Soma FM", "r18", "http://somafm.com/tags.pls");
CMD:r19(playerid)               return PlayRadio(playerid, "Nirvana Relaxare", "r19", "http://www.radiourionline.ro/pls/nirvana.m3u");
CMD:r20(playerid)               return PlayRadio(playerid, "Teental Hindi", "r20", "http://www.radioteentaal.com/masala128.m3u");
CMD:r21(playerid)               return PlayRadio(playerid, "Pro FM Ibiza", "r21", "http://stream.profm.ro:8480/ibiza.mp3");
CMD:r22(playerid)               return PlayRadio(playerid, "Pro FM LaLa Radio", "r22", "http://stream.profm.ro:8152/profmlalaradio.mp3");
CMD:r23(playerid)               return PlayRadio(playerid, "Radio Fun Manele", "r23", "http://radio-fun.ro/asculta.m3u");
CMD:r24(playerid)               return PlayRadio(playerid, "Pro FM House", "r24", "http://stream.profm.ro:8312/house.mp3");
CMD:r25(playerid)               return PlayRadio(playerid, "Radio Mambo", "r25", "http://www.mambo.it/player/mambo.m3u");
CMD:r26(playerid)               return PlayRadio(playerid, "Party Radio Romania", "r26", "http://www.partyradio.ro/live.m3u");
CMD:r27(playerid)               return PlayRadio(playerid, "Radio Diz", "r27", "http://www.radiodiz.com/livediz.m3u");
CMD:r28(playerid)               return PlayRadio(playerid, "Radio Cuvant Bun", "r28", "http://www.radiocuvantbun.ro/live.pls");
CMD:r29(playerid)               return PlayRadio(playerid, "Radio Pro Dance", "r29", "http://radioprodance.ro/live.m3u");
CMD:r30(playerid)               return PlayRadio(playerid, "Hot 108 Jamz", "r30", "http://www.radiourionline.ro/pls/hot108.pls");
/*############################################################################*/
CMD:radio(playerid)
{
    new RString[1300];
    //--------------------------------------------------------------------------
    strcat(RString, "{FFFFFF}• {FF9900}Opreste radioul (/sr)\n");
    strcat(RString, "{FF9900}1 {FFFFFF}Radio Club Mix\n");
    strcat(RString, "{FF9900}2 {FFFFFF}RadioWISH\n");
    strcat(RString, "{FF9900}3 {FFFFFF}Radio HiT FM\n");
    strcat(RString, "{FF9900}4 {FFFFFF}Pro FM\n");
    strcat(RString, "{FF9900}5 {FFFFFF}radio-tube.pl Dubstep\n");
    strcat(RString, "{FF9900}6 {FFFFFF}Radio Mafia\n");
    strcat(RString, "{FF9900}7 {FFFFFF}Radio Greu de Difuzat\n");
    strcat(RString, "{FF9900}8 {FFFFFF}Radio Renasterea\n");
    strcat(RString, "{FF9900}9 {FFFFFF}M2 Love Radio\n");
    strcat(RString, "{FF9900}10 {FFFFFF}Radio Star DJ Hip-Hop\n");
    strcat(RString, "{FF9900}11 {FFFFFF}Radio Star DJ Dance\n");
    strcat(RString, "{FF9900}12 {FFFFFF}Radio Star DJ Manele\n");
    strcat(RString, "{FF9900}13 {FFFFFF}Radio Intens\n");
    strcat(RString, "{FF9900}14 {FFFFFF}Radio Popular\n");
    strcat(RString, "{FF9900}15 {FFFFFF}Radio Lautaru\n");
    strcat(RString, "{FF9900}16 {FFFFFF}Radio GMusic Rock\n");
    strcat(RString, "{FF9900}17 {FFFFFF}Radio Paradise\n");
    strcat(RString, "{FF9900}18 {FFFFFF}Soma FM\n");
    strcat(RString, "{FF9900}19 {FFFFFF}Nirvana Relaxare\n");
    strcat(RString, "{FF9900}20 {FFFFFF}Tental Hindi (India)\n");
    strcat(RString, "{FF9900}21 {FFFFFF}Pro FM Ibiza\n");
    strcat(RString, "{FF9900}22 {FFFFFF}Pro FM LaLa Radio\n");
    strcat(RString, "{FF9900}23 {FFFFFF}Radio Fun Manele\n");
    strcat(RString, "{FF9900}24 {FFFFFF}Pro FM House\n");
    strcat(RString, "{FF9900}25 {FFFFFF}Radio Mambo\n");
    strcat(RString, "{FF9900}26 {FFFFFF}Party Radio Romania\n");
    strcat(RString, "{FF9900}27 {FFFFFF}Radio Diz\n");
    strcat(RString, "{FF9900}28 {FFFFFF}Radio Cuvant Bun\n");
    strcat(RString, "{FF9900}29 {FFFFFF}Radio Pro Dance\n");
    strcat(RString, "{FF9900}30 {FFFFFF}Hot 108 Jamz\n");
    strcat(RString, "{FFFFFF}• {FF9900}Link propriu (/cr)");
    //--------------------------------------------------------------------------
    ShowPlayerDialog(playerid,4590,DIALOG_STYLE_LIST,"{0000FF}• {FFFF00}• {FF0000}• {FFFFFF} Meniu Radio", RString,"Asculta", "Inchide");
    return 1;
}
/*############################################################################*/
CMD:cr(playerid)
{
    new RString[200];
    //--------------------------------------------------------------------------
    strcat(RString, "{FF9900}Salut!\n");
    strcat(RString, "{FFFFFF}Introdu mai jos {FF9900}link-ul radioului {FFFFFF}pe care vrei sa-l asculti:");
    //--------------------------------------------------------------------------
    ShowPlayerDialog(playerid,4591,DIALOG_STYLE_INPUT,"{0000FF}• {FFFF00}• {FF0000}• {FFFFFF} Meniu Radio", RString,"Asculta", "Inchide");
    return 1;
}
/*############################################################################*/
stock PlayRadio(playerid, RadioName[], RadioCommand[], RadioLink[])
{
    new string1[128], string2[128], pName[MAX_PLAYER_NAME];
    GetPlayerName(playerid,pName,MAX_PLAYER_NAME);
    //--------------------------------------------------------------------------
    format(string1,sizeof string1,">{FFFFFF}> {FF9900}%s {FFFFFF}asculta {FF9900}%s (/%s)",pName, RadioName, RadioCommand);
    //--------------------------------------------------------------------------
    SendClientMessageToAll(0xFF9900AA,string1);
    format(string2,sizeof string2,"%s",RadioLink);
    PlayAudioStreamForPlayer(playerid, RadioLink);
    return 1;
}
/*############################################################################*/
stock StopRadio(playerid)
{
    //--------------------------------------------------------------------------
    SendClientMessage(playerid, 0xFF9900AA, ">{FFFFFF}> {FF9900}Ti-ai oprit radioul!");
    //--------------------------------------------------------------------------
    PlayAudioStreamForPlayer(playerid, "Radio oprit.");
    StopAudioStreamForPlayer(playerid);
    return 1;
}
/*############################################################################*/
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
    if(dialogid == 4590)
    {
        if(response)
        {
            switch(listitem)
            {
                case 0:  return cmd_sr(playerid);           case 16: return cmd_r16(playerid);
                case 1:  return cmd_r1(playerid);           case 17: return cmd_r17(playerid);
                case 2:  return cmd_r2(playerid);           case 18: return cmd_r18(playerid);
                case 3:  return cmd_r3(playerid);           case 19: return cmd_r19(playerid);
                case 4:  return cmd_r4(playerid);           case 20: return cmd_r20(playerid);
                case 5:  return cmd_r5(playerid);           case 21: return cmd_r21(playerid);
                case 6:  return cmd_r6(playerid);           case 22: return cmd_r22(playerid);
                case 7:  return cmd_r7(playerid);           case 23: return cmd_r23(playerid);
                case 8:  return cmd_r8(playerid);           case 24: return cmd_r24(playerid);
                case 9:  return cmd_r9(playerid);           case 25: return cmd_r25(playerid);
                case 10: return cmd_r10(playerid);          case 26: return cmd_r26(playerid);
                case 11: return cmd_r11(playerid);          case 27: return cmd_r27(playerid);
                case 12: return cmd_r12(playerid);          case 28: return cmd_r28(playerid);
                case 13: return cmd_r13(playerid);          case 29: return cmd_r29(playerid);
                case 14: return cmd_r14(playerid);          case 30: return cmd_r30(playerid);
                case 15: return cmd_r15(playerid);          case 31: return cmd_cr(playerid);
            }
        }
        return 1;
    }
    if(dialogid == 4591)
    {
        if(response)
        {
            new string1[128], string2[200];
            format(string1, sizeof string1, "%s", inputtext);
            //------------------------------------------------------------------
            format(string2, sizeof string2, ">{FFFFFF}> {FF9900}Ai selectat sa asculti: {FFFFFF}%s", string1);
            //------------------------------------------------------------------
            SendClientMessage(playerid, 0xFF9900AA, string2);
            PlayAudioStreamForPlayer(playerid, string1);
        }
        return 1;
    }
    return 0;
}
/*############################################################################*/
/* End of the script.                                                         */
/*############################################################################*/