SSGamers - 13 Anos online por você.

#SSGamers - A Comunidade que mais crescer no brasil!

Participe do fórum, é rápido e fácil

SSGamers - 13 Anos online por você.

#SSGamers - A Comunidade que mais crescer no brasil!

SSGamers - 13 Anos online por você.

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Chegou o novo tema 6.5.5 - SSGamers - Servidores online de qualidade - Aproveite e entre para nossa comunidade, inscreva-se já! - Ouça nossa web radio - Veja nossas novidades - Participe dos nossos setores de jogos online - Parcerias aberta fale já com um administrador.

4 participantes

    Sistema de Mudança Climática

    BяiиquєDσ รcяiρт
    BяiиquєDσ รcяiρт
    --> Postador Iniciante
    --> Postador Iniciante


    Celular : 2194244332
    Mensagens : 37
    Moedas : 4152
    Data de inscrição : 13/10/2013
    Idade : 28
    Localização : 127.0.0.1

    Sistema de Mudança Climática Empty Sistema de Mudança Climática

    Mensagem por BяiиquєDσ รcяiρт Seg 14 Out 2013 - 1:00

    Bom, o próprio codigo ja se explica... mas basicamente é um sistema de mudança climatica aleatória que exibe as mensagens de mudança do clima. Bem útil para servers RPG.
    Código:
    /* Sistema de Mudança Climática by BrinqueDo */

    #include <a_samp>
    #include <zcmd>

    #define CORCLIMA  0xFFFFAFAA // Cor das mensagens de previsão
    #define CLIMA1 "[Previsão do Tempo] Dia Limpo, Mínima de {0342F8}22°C{FFFFAF}, Máxima de {F80303}26°C{FFFFAF}." // Mensagem de previsão
    #define CLIMA2 "[Previsão do Tempo] Clima Seco, Mínima de {0342F8}24°C{FFFFAF}, Máxima de {F80303}28°C{FFFFAF}."
    #define CLIMA3 "[Previsão do Tempo] Ventos Fortes, Mínima de {0342F8}19°C{FFFFAF}, Máxima de {F80303}22°C{FFFFAF}."
    #define CLIMA4 "[Previsão do Tempo] Tempo Nublado com Ventos fortes, Mínima de {0342F8}15°C{FFFFAF}, Máxima de {F80303}18°C{FFFFAF}."
    #define CLIMA5 "[Previsão do Tempo] Tempo Chuvoso com Ventos fortes, Mínima de {0342F8}12°C{FFFFAF}, Máxima de {F80303}15°C{FFFFAF}."
    #define CLIMA6 "[Previsão do Tempo] Neblina forte, Mínima de {0342F8}2°C{FFFFAF}, Máxima de {F80303}5°C{FFFFAF}."
    #define CLIMA7 "[Previsão do Tempo] Céu Limpo, Mínima de {0342F8}22°C{FFFFAF}, Máxima de {F80303}26°C{FFFFAF}."
    #define CLIMA8 "[Previsão do Tempo] Nublado com Ventos fracos, Mínima de {0342F8}15°C{FFFFAF}, Máxima de {F80303}18°C{FFFFAF}."
    #define CLIMA9 "[Previsão do Tempo] Céu amarelado, Mínima de {0342F8}19°C{FFFFAF}, Máxima de {F80303}21°C{FFFFAF}."
    #define CLIMA10 "[Previsão do Tempo] Tempo Nublado, Mínima de {0342F8}12°C{FFFFAF}, Máxima de {F80303}15°C{FFFFAF}."
    #define CLIMA11 "[Previsão do Tempo] Chuva Forte, Cuidado com a pista escorregadia, Mínima de {0342F8}4°C{FFFFAF}, Máxima de {F80303}7°C{FFFFAF}."
    #define CLIMA12 "[Previsão do Tempo] Céu Alaranjado, Mínima de {0342F8}11°C{FFFFAF}, Máxima de {F80303}14°C{FFFFAF}."
    #define CLIMA13 "[Previsão do Tempo] Neblina Densa com Vento forte, Mínima de {0342F8}-2°C{FFFFAF}, Máxima de {F80303}1°C{FFFFAF}."

    new TimerPrevisao; // Variável do Timer

    main(){}

    forward Previsao();
    public Previsao()
    {
        new clima = random(12); // Escolhe um clima aleatório 1 à 12
        if(clima == 0) { SetWeather(0);SendClientMessageToAll (CORCLIMA, CLIMA1);}
        if(clima == 1) { SetWeather(1);SendClientMessageToAll (CORCLIMA, CLIMA2);}
        if(clima == 2) { SetWeather(3);SendClientMessageToAll (CORCLIMA, CLIMA3);}
        if(clima == 3) { SetWeather(7);SendClientMessageToAll (CORCLIMA, CLIMA4);}
        if(clima == 4) { SetWeather(8);SendClientMessageToAll (CORCLIMA, CLIMA5);}
        if(clima == 5) { SetWeather(9);SendClientMessageToAll (CORCLIMA, CLIMA6);}
        if(clima == 6) { SetWeather(11);SendClientMessageToAll (CORCLIMA, CLIMA7);}
        if(clima == 7) { SetWeather(12);SendClientMessageToAll (CORCLIMA, CLIMA8);}
        if(clima == 8) { SetWeather(13);SendClientMessageToAll (CORCLIMA, CLIMA9);}
        if(clima == 9) { SetWeather(15);SendClientMessageToAll (CORCLIMA, CLIMA10);}
        if(clima == 10) { SetWeather(16);SendClientMessageToAll (CORCLIMA, CLIMA11);}
        if(clima == 11) { SetWeather(17);SendClientMessageToAll (CORCLIMA, CLIMA12);}
        if(clima == 12) { SetWeather(19);SendClientMessageToAll (CORCLIMA, CLIMA13);}
    }

    CMD:ativarprevisao(playerid) // Ativa a previsao por comando
    {
       SendClientMessage(playerid, -1, "Você ativou a mudança climatica.");
       TimerPrevisao = SetTimer("Previsao", 10000, true);
       return 1;
    }

    CMD:desativarprevisao(playerid) // Desativa a previsão
    {
       SendClientMessage(playerid, -1, "Você desativou a mudança climatica.");
       KillTimer(TimerPrevisao);
       return 1;
    }
    credits for me
    Weslley_Script
    Weslley_Script
    SS - Fundador
    SS - Fundador


    Steam Steam : WeslleySSGames
    Zello : WeslleySSGames
    Mensagens : 11643
    Moedas : 1032950
    Data de inscrição : 06/10/2011
    Idade : 29
    Localização : Brasil

    Sistema de Mudança Climática Empty Re: Sistema de Mudança Climática

    Mensagem por Weslley_Script Seg 14 Out 2013 - 9:30

    interessante.
    BяiиquєDσ รcяiρт
    BяiиquєDσ รcяiρт
    --> Postador Iniciante
    --> Postador Iniciante


    Celular : 2194244332
    Mensagens : 37
    Moedas : 4152
    Data de inscrição : 13/10/2013
    Idade : 28
    Localização : 127.0.0.1

    Sistema de Mudança Climática Empty Re: Sistema de Mudança Climática

    Mensagem por BяiиquєDσ รcяiρт Seg 14 Out 2013 - 10:24

    só acrescentando uma coisa que esqueci de explicar

    Código:
    CMD:ativarprevisao(playerid) // Ativa a previsao por comando
    {
      SendClientMessage(playerid, -1, "Você ativou a mudança climatica.");
      TimerPrevisao = SetTimer("Previsao", 10000, true);
      return 1;
    }
    Aqui você seta o tempo em que vão ocorrer essas mudanças climaticas:

    Código:
    SetTimer("Previsao", 10000, true);
    Eu deixei 10 000 = 10 segundos pois se fosse no meu server nao iria querer o tempo toda hora mudando, entao eu ativaria e depois desativaria, quando eu quisesse que o tempo mudasse de novo eu ativaria e assim por diante, sintam-se a vontade



    Servidor de Hard Deathmatch
    IP: px01.carbonhost.com.br:7781
    Venha treinar seu x1 - Sistemas únicos - Vagas abertas



    MINHAS CRIAÇÕES
    ipsLuan
    ipsLuan
    --> Postador Fanático
    --> Postador Fanático


    Steam Steam : luan_argolo
    Mensagens : 484
    Moedas : 5242
    Data de inscrição : 16/02/2013
    Idade : 26
    Localização : Ilhéus

    Sistema de Mudança Climática Empty Re: Sistema de Mudança Climática

    Mensagem por ipsLuan Seg 14 Out 2013 - 11:04

    E cadê a public Previsao?!



    Sistema de Mudança Climática GitHub-Mark-32pxSistema de Mudança Climática Facebook-iconSistema de Mudança Climática 3076266Sistema de Mudança Climática InstagramSistema de Mudança Climática Skype
    BяiиquєDσ รcяiρт
    BяiиquєDσ รcяiρт
    --> Postador Iniciante
    --> Postador Iniciante


    Celular : 2194244332
    Mensagens : 37
    Moedas : 4152
    Data de inscrição : 13/10/2013
    Idade : 28
    Localização : 127.0.0.1

    Sistema de Mudança Climática Empty Re: Sistema de Mudança Climática

    Mensagem por BяiиquєDσ รcяiρт Seg 14 Out 2013 - 23:13

    xCR7 escreveu:E cadê a public Previsao?!
     olha la direitinho rs
    Código:
    forward Previsao();[color=#888888][/color]
    public Previsao()[color=#888888][/color]
    {[color=#888888][/color]
         new clima = random(12); // Escolhe um clima aleatório 1 à 12[color=#888888][/color]
         if(clima == 0) { SetWeather(0);SendClientMessageToAll (CORCLIMA, CLIMA1);}[color=#888888][/color]
         if(clima == 1) { SetWeather(1);SendClientMessageToAll (CORCLIMA, CLIMA2);}[color=#888888][/color]
         if(clima == 2) { SetWeather(3);SendClientMessageToAll (CORCLIMA, CLIMA3);}[color=#888888][/color]
         if(clima == 3) { SetWeather(7);SendClientMessageToAll (CORCLIMA, CLIMA4);}[color=#888888][/color]
         if(clima == 4) { SetWeather(8);SendClientMessageToAll (CORCLIMA, CLIMA5);}[color=#888888][/color]
         if(clima == 5) { SetWeather(9);SendClientMessageToAll (CORCLIMA, CLIMA6);}[color=#888888][/color]
         if(clima == 6) { SetWeather(11);SendClientMessageToAll (CORCLIMA, CLIMA7);}[color=#888888][/color]
         if(clima == 7) { SetWeather(12);SendClientMessageToAll (CORCLIMA, CLIMA8);}[color=#888888][/color]
         if(clima == 8) { SetWeather(13);SendClientMessageToAll (CORCLIMA, CLIMA9);}[color=#888888][/color]
         if(clima == 9) { SetWeather(15);SendClientMessageToAll (CORCLIMA, CLIMA10);}[color=#888888][/color]
         if(clima == 10) { SetWeather(16);SendClientMessageToAll (CORCLIMA, CLIMA11);}[color=#888888][/color]
         if(clima == 11) { SetWeather(17);SendClientMessageToAll (CORCLIMA, CLIMA12);}[color=#888888][/color]
         if(clima == 12) { SetWeather(19);SendClientMessageToAll (CORCLIMA, CLIMA13);}[color=#888888][/color]
    }



    Servidor de Hard Deathmatch
    IP: px01.carbonhost.com.br:7781
    Venha treinar seu x1 - Sistemas únicos - Vagas abertas



    MINHAS CRIAÇÕES
    Stremmer_Scripter#0961
    Stremmer_Scripter#0961
    --> Postador Fanático
    --> Postador Fanático


    Celular : 17981120325
    Mensagens : 681
    Moedas : 3207
    Data de inscrição : 19/10/2019
    Idade : 29

    Sistema de Mudança Climática Empty Re: Sistema de Mudança Climática

    Mensagem por Stremmer_Scripter#0961 Dom 2 Jan 2022 - 20:55

    boa manoo

    Conteúdo patrocinado


    Sistema de Mudança Climática Empty Re: Sistema de Mudança Climática

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Seg 25 Nov 2024 - 18:37