// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
thread "kidok"
0662: printstring "Author: MISTER_GONWIK"
0662: printstring "Specially for BlastHack.Net"
wait 0
if
0@ = SAMP.Base()
jf @Label000057
0A93: end_custom_thread
:Label000057
not SAMP.Available
jf @Label00006B
wait 100
goto @Label000057
:Label00006B
0A93: end_custom_thread
alloc 1@ 461
0C11: memset destination 1@ value 0 size 461
0B34: samp register_client_command "weather" to_label @Label0000CA
0B34: samp register_client_command "settime" to_label @Label0003E5
:Label00009F
wait 0
if
7@ == 1
jf @Label0000C3
0A8C: write_memory 11993427 size 1 value 5@ virtual_protect 1
:Label0000C3
goto @Label00009F
:Label0000CA
call @Label00044E 1 1@
SAMP.ShowDialog(200, "Weather", 1@, "Select", "Cancel", DIALOG_STYLE_LIST)
:Label0000FA
wait 0
if
SAMP.DialogRespond(200, 2@, 3@, 0)
jf @Label0003DC
if
2@ == 1
jf @Label0003C3
if
3@ == 0
jf @Label000145
set_weather 0
goto @Label0003BC
:Label000145
if
3@ == 1
jf @Label000162
set_weather 8
goto @Label0003BC
:Label000162
if
3@ == 2
jf @Label00017F
set_weather 9
goto @Label0003BC
:Label00017F
if
3@ == 3
jf @Label00019C
set_weather 10
goto @Label0003BC
:Label00019C
if
3@ == 4
jf @Label0001B9
set_weather 11
goto @Label0003BC
:Label0001B9
if
3@ == 5
jf @Label0001D6
set_weather 12
goto @Label0003BC
:Label0001D6
if
3@ == 6
jf @Label0001F3
set_weather 16
goto @Label0003BC
:Label0001F3
if
3@ == 7
jf @Label000210
set_weather 17
goto @Label0003BC
:Label000210
if
3@ == 8
jf @Label00022D
set_weather 19
goto @Label0003BC
:Label00022D
if
3@ == 9
jf @Label00024A
set_weather 20
goto @Label0003BC
:Label00024A
if
3@ == 10
jf @Label000267
set_weather 21
goto @Label0003BC
:Label000267
if
3@ == 11
jf @Label000284
set_weather 22
goto @Label0003BC
:Label000284
if
3@ == 12
jf @Label0002A1
set_weather 23
goto @Label0003BC
:Label0002A1
if
3@ == 13
jf @Label0002BE
set_weather 27
goto @Label0003BC
:Label0002BE
if
3@ == 14
jf @Label0002DB
set_weather 30
goto @Label0003BC
:Label0002DB
if
3@ == 15
jf @Label0002F8
set_weather 33
goto @Label0003BC
:Label0002F8
if
3@ == 16
jf @Label000315
set_weather 34
goto @Label0003BC
:Label000315
if
3@ == 17
jf @Label000332
set_weather 35
goto @Label0003BC
:Label000332
if
3@ == 18
jf @Label00034F
set_weather 36
goto @Label0003BC
:Label00034F
if
3@ == 19
jf @Label00036C
set_weather 40
goto @Label0003BC
:Label00036C
if
3@ == 20
jf @Label000389
set_weather 43
goto @Label0003BC
:Label000389
if
3@ == 21
jf @Label0003A6
set_weather 44
goto @Label0003BC
:Label0003A6
if
3@ == 22
jf @Label0003BC
set_weather 45
:Label0003BC
goto @Label0003DC
:Label0003C3
if
2@ == 2
jf @Label0003DC
goto @Label0003E3
:Label0003DC
goto @Label0000FA
:Label0003E3
SAMP.CmdRet
:Label0003E5
SAMP.IsCommandTyped(4@)
0AD4: 6@ = scan_string 4@ format "%d" 5@
if
6@ == 1
jf @Label000433
if and
5@ >= 0
not 5@ > 23
jf @Label00042C
7@ = 1
:Label00042C
goto @Label00044C
:Label000433
if
6@ == -1
jf @Label00044C
7@ = 0
:Label00044C
SAMP.CmdRet
:Label00044E
0AC6: 1@ = label @Label000468 offset
0C10: memcpy destination 0@ source 1@ size 461
ret 0
// 0A = \n = перенос строки
:Label000468
hex
"Blue sky" 0A
"Stormy" 0A
"Cloudy and foggy" 0A
"Clear blue sky" 0A
"Scorching hot (heat waves)" 0A
"Very dull, colorless, hazy" 0A
"Dull, cloudy, rainy" 0A
"Scorching hot" 0A
"Sandstorm" 0A
"Greenish fog" 0A
"Very dark, gradiented skyline, purple" 0A
"Very dark, gradiented skyline, green" 0A
"Variations of pale orange" 0A
"Variations of fresh blue" 0A
"Variations of dark, cloudy, teal" 0A
"Dark, cloudy, brown" 0A
"Blue, purple, regular" 0A
"Dull brown" 0A
"Extremely bright" 0A
"Blue, purple, cloudy" 0A
"Dark toxic clouds" 0A
"Black, white sky" 0A
"Black, purple sky" 0A
end