Controlar clima (weather)

23 Mai 2018, 05:12

Descrição:
Incrivelmente não há como ler o clima atual e próximo clima por CLEO, é necessário usar manipulamento de memória.
Aqui também vai uma lista do que corresponde cada valor.
Obviamente este tópico serve para qualquer programação, mas vou dar o exemplo como GTA3script:

GTA3script

Como usar:

Código: Selecionar tudo

READ_MEMORY 0xC81320 2 FALSE (curWeather) // clima atual
READ_MEMORY 0xC8131C 2 FALSE (nextWeather) // próximo clima

Enum:

Código: Selecionar tudo

CONST_INT EXTRASUNNY_LA           0
CONST_INT SUNNY_LA                1
CONST_INT EXTRASUNNY_SMOG_LA      2
CONST_INT SUNNY_SMOG_LA           3
CONST_INT CLOUDY_LA               4
CONST_INT SUNNY_SF                5
CONST_INT EXTRASUNNY_SF           6
CONST_INT CLOUDY_SF               7
CONST_INT RAINY_SF                8
CONST_INT FOGGY_SF                9
CONST_INT SUNNY_VEGAS            10
CONST_INT EXTRASUNNY_VEGAS       11
CONST_INT CLOUDY_VEGAS           12
CONST_INT EXTRASUNNY_COUNTRYSIDE 13
CONST_INT SUNNY_COUNTRYSIDE      14
CONST_INT CLOUDY_COUNTRYSIDE     15
CONST_INT RAINY_COUNTRYSIDE      16
CONST_INT EXTRASUNNY_DESERT      17
CONST_INT SUNNY_DESERT           18
CONST_INT SANDSTORM_DESERT       19
CONST_INT UNDERWATER             20
CONST_INT EXTRACOLOURS_1         21
CONST_INT EXTRACOLOURS_2         22

Exemplos:

Código: Selecionar tudo

READ_MEMORY 0xC81320 2 FALSE (curWeather)
IF curWeather = EXTRASUNNY_LA

Código: Selecionar tudo

FORCE_WEATHER_NOW RAINY_SF

08 Jun 2018, 00:02

muito bom, isso é extremamente útil (pelo menos pra mim)

08 Jun 2018, 11:14

fiz um exemplo (a propósito de aprender) de como checar o clima:

SpoilerAbrir

Código: Selecionar tudo

SCRIPT_START
{
NOP

LVAR_INT curWeather

loop:
WAIT 0

READ_MEMORY 0xC81320 2 FALSE (curWeather)

IF curWeather = 1
    PRINT_STRING_NOW "1", 200
ENDIF

IF curWeather = 2
    PRINT_STRING_NOW "2", 200
ENDIF

IF curWeather = 3
    PRINT_STRING_NOW "3", 200
ENDIF

IF curWeather = 4
    PRINT_STRING_NOW "4", 200
ENDIF

IF curWeather = 5
    PRINT_STRING_NOW "5", 200
ENDIF

IF curWeather = 6
    PRINT_STRING_NOW "6", 200
ENDIF

IF curWeather = 7
    PRINT_STRING_NOW "7", 200
ENDIF

IF curWeather = 8
    PRINT_STRING_NOW "8", 200
ENDIF

IF curWeather = 9
    PRINT_STRING_NOW "9", 200
ENDIF

IF curWeather = 10
    PRINT_STRING_NOW "10", 200
ENDIF

IF curWeather = 11
    PRINT_STRING_NOW "11", 200
ENDIF

IF curWeather = 12
    PRINT_STRING_NOW "12", 200
ENDIF

IF curWeather = 13
    PRINT_STRING_NOW "13", 200
ENDIF

IF curWeather = 14
    PRINT_STRING_NOW "14", 200
ENDIF

IF curWeather = 15
    PRINT_STRING_NOW "15", 200
ENDIF

IF curWeather = 16
    PRINT_STRING_NOW "16", 200
ENDIF

IF curWeather = 17
    PRINT_STRING_NOW "17", 200
ENDIF

IF curWeather = 18
    PRINT_STRING_NOW "18", 200
ENDIF

IF curWeather = 19
    PRINT_STRING_NOW "19" 200
ENDIF

IF curWeather = 20
    PRINT_STRING_NOW "20" 200
ENDIF

IF curWeather = 21
    PRINT_STRING_NOW "21" 200
ENDIF

IF curWeather = 22
    PRINT_STRING_NOW "22" 200
ENDIF

GOTO loop

}
SCRIPT_END

08 Jun 2018, 11:40

↑ Não precisa colocar WAIT 0 em tudo...
Dá pra melhorar isso aí.

08 Jun 2018, 11:54

Israel escreveu: ↑↑ Não precisa colocar WAIT 0 em tudo...
Dá pra melhorar isso aí.

agora que notei, antes eu tinha testado com while no lugar dos ifs e acabei esquecendo de tirar o WAIT.

08 Jun 2018, 13:09

O código nem faz sentido, já que poderia ser feito com PRINT_FORMATTED_NOW.

08 Jun 2018, 13:34

Junior_Djjr escreveu: ↑O código nem faz sentido, já que poderia ser feito com PRINT_FORMATTED_NOW.

ah sim, eu fiz desse jeito também, a intenção desse monte de IF é já colocar as tarefas ai dentro, o PRINT_STRING_NOW só foi um jeito de testar se estava funcionando a checagem.

08 Jun 2018, 18:12

nadalao escreveu: ↑ fiz um exemplo (a propósito de aprender) de como checar o clima:

SpoilerAbrir

Código: Selecionar tudo

SCRIPT_START
{
NOP

LVAR_INT curWeather

loop:
WAIT 0

READ_MEMORY 0xC81320 2 FALSE (curWeather)

IF curWeather = 1
    PRINT_STRING_NOW "1", 200
ENDIF

IF curWeather = 2
    PRINT_STRING_NOW "2", 200
ENDIF

IF curWeather = 3
    PRINT_STRING_NOW "3", 200
ENDIF

IF curWeather = 4
    PRINT_STRING_NOW "4", 200
ENDIF

IF curWeather = 5
    PRINT_STRING_NOW "5", 200
ENDIF

IF curWeather = 6
    PRINT_STRING_NOW "6", 200
ENDIF

IF curWeather = 7
    PRINT_STRING_NOW "7", 200
ENDIF

IF curWeather = 8
    PRINT_STRING_NOW "8", 200
ENDIF

IF curWeather = 9
    PRINT_STRING_NOW "9", 200
ENDIF

IF curWeather = 10
    PRINT_STRING_NOW "10", 200
ENDIF

IF curWeather = 11
    PRINT_STRING_NOW "11", 200
ENDIF

IF curWeather = 12
    PRINT_STRING_NOW "12", 200
ENDIF

IF curWeather = 13
    PRINT_STRING_NOW "13", 200
ENDIF

IF curWeather = 14
    PRINT_STRING_NOW "14", 200
ENDIF

IF curWeather = 15
    PRINT_STRING_NOW "15", 200
ENDIF

IF curWeather = 16
    PRINT_STRING_NOW "16", 200
ENDIF

IF curWeather = 17
    PRINT_STRING_NOW "17", 200
ENDIF

IF curWeather = 18
    PRINT_STRING_NOW "18", 200
ENDIF

IF curWeather = 19
    PRINT_STRING_NOW "19" 200
ENDIF

IF curWeather = 20
    PRINT_STRING_NOW "20" 200
ENDIF

IF curWeather = 21
    PRINT_STRING_NOW "21" 200
ENDIF

IF curWeather = 22
    PRINT_STRING_NOW "22" 200
ENDIF

GOTO loop

}
SCRIPT_END

Acho melhor usar switch.

SpoilerAbrir

Código: Selecionar tudo

SWITCH curWeather
    CASE 1
        PRINT_STRING_NOW "1" 200
        BREAK
    CASE 2
        PRINT_STRING_NOW "2" 200
        BREAK
    CASE 3
        PRINT_STRING_NOW "3" 200
        BREAK
//etc...
ENDSWITCH