// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database/) on 24.2.2014
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP

:Noname_2
0001: wait 0
00D6: if and
0AB0:   is_key_pressed 82
00E1:   is_button_pressed 0 button 6
004D: goto_if_false @Noname_332
0470: get_current_char_weapon $PLAYER_ACTOR store_to 9@
00D6: if
8019:   not  9@ > 38
004D: goto_if_false @Noname_332
00A0: get_char_coordinates $PLAYER_ACTOR store_to 0@ 1@ 2@
0AB1: call @Noname_339 2 9@ $PLAYER_ACTOR 9@  
0AA6: call_method 5327216 struct 11989032 num_params 6 pop 0 3@v 6@v 2@ 1@ 0@ 1.0  
0AA6: call_method 5327216 struct 11989032 num_params 6 pop 0 6@v 10@v 2@ 1@ 0@ 9@  
00D6: if
06BD:   is_line_of_sight_clear 3@ 4@ 5@ to 6@ 7@ 8@ buildings 0 cars 0 chars 1 objects 0 particles 0
004D: goto_if_false @Noname_210
0001: wait 0
0002: goto @Noname_332

// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
0662: printstring "VALDAN"
0662: printstring "Для тех,кто покупал бота шахтера на ARP и DRP - vk.com/valdan33"
gosub @NONAME_7672

:NONAME_86
wait 0
   SAMP.Available
else_jump @NONAME_86
0AB4: 0@ = var 174
  0@ == 0
else_jump @NONAME_7250
gosub @NONAME_7732
wait 1000
alloc 1@ 66
alloc 2@ 66
alloc 3@ 96
if or
8AF4:   not 1@ = read_string_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "SHPORA" key "V_Chat"
8AF0:   not 12@ = get_int_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "SHPORA" key "key"
8AF4:   not 3@ = read_string_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "INF" key "INF"
else_jump @NONAME_691
0AE5: create_directory "CLEO\SHPORA" // IF and SET
0AE5: create_directory "CLEO\SHPORA\SETTINGS" // IF and SET
12@ = 115
format 1@ "shp"
format 3@ "Инструкция и описание от автора: [VaLdaN] BLASTHACK.NET http:%c/blast.hk/threads/10586/" 47
0AF5: write_string 1@ to_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "SHPORA" key "V_Chat"
0AF1: write_int 12@ to_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "SHPORA" key "key"
0AF5: write_string 3@ to_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "INF" key "INF"
0@ = File.Open("CLEO\SHPORA\Инструкция.txt", "w")
0AD9: write_formatted_text "%s" in_file 0@ 3@  
File.Close(0@)

:NONAME_691
format 2@ "%s" 1@
0B34: samp register_client_command 2@ to_label @NONAME_7241
0B00: delete_file "CLEO\SHPORA\SETTINGS\list.ini" // IF and SET
format 2@ "CLEO\SHPORA"
format 3@ "%s\*.txt" 2@
if
0AE6: 31@ = find_first_file 3@ get_filename_to 2@ // IF and SET
else_jump @NONAME_1029
0@ = File.Open("CLEO\SHPORA\SETTINGS\SHPORA.ini", "w")

:NONAME_848
wait 0
format 1@ "CLEO\SHPORA\%s" 2@
if
0AAB:   file_exists 1@
else_jump @NONAME_988
4@ += 1
format 5@v "%d" 4@
0C16: 3@ = strtok string1 2@ string2 "."
0AD9: write_formatted_text "%s%c" in_file 0@ 3@ 10  
0AF5: write_string 3@ to_ini_file "CLEO\SHPORA\SETTINGS\list.ini" section "Shpora" key 5@v

:NONAME_988
8AE7:   not 2@ = find_next_file 31@ // IF and SET
else_jump @NONAME_848
File.Close(0@)
1@ = 0
2@ = 0
3@ = 0

:NONAME_1029
if
8AAB:   not file_exists "CLEO\SHPORA\SETTINGS\FON.jpg"
else_jump @NONAME_1232
chatmsg "{FFAB00}Добавь изоброжение с названием {77FF00}FON.jpg {FFAB00}по пути {77FF00}CLEO\SHPORA\SETTINGS" 7864064
0@ = File.Open("CLEO\SHPORA\SETTINGS\FON.jpg", "w")
0AD9: write_formatted_text "" in_file 0@  
File.Close(0@)

:NONAME_1232
0B71: render 31@ = load_texture_from_file "CLEO\SHPORA\SETTINGS\FON.jpg"

:NONAME_1267
wait 0
if or
key_down 12@
  11@ == 1
else_jump @NONAME_1267
11@ = 1
call @NONAME_6901 0 25@ 26@
SAMP.ToggleCursor(1)
alloc 13@ 66
alloc 14@ 66
format 13@ "CLEO\SHPORA\SETTINGS\SHPORA.ini"
format 14@ "{CCDE2B}Список"

:NONAME_1396
10@ = File.Open(13@, "rt")
alloc 3@ 328
0C11: memset destination 3@ value 0 size 328
15@ = 0

:NONAME_1433
if
File.ReadString(10@, 3@, 328)
else_jump @NONAME_1507
0C17: 16@ = strlen 3@
if and
   not 16@ == 0
001D:   16@ > 15@ // (int)
else_jump @NONAME_1497
0085: 15@ = 16@ // (int)

:NONAME_1497
0C11: memset destination 3@ value 0 size 328

:NONAME_1507
   File.EOF(10@)
else_jump @NONAME_1433
free 3@
File.Close(10@)
0AB4: 5@ = var 380
0AB4: 6@ = var 381
if and
  5@ == 0
  6@ == 0
else_jump @NONAME_1599
SAMP.GetScreenResolution(5@, 6@)
5@ /= 2
6@ /= 2
jump @NONAME_1645

:NONAME_1599
0AB4: 3@ = var 382
0AB4: 10@ = var 383
3@ /= 2
10@ /= 2
005A: 5@ += 3@ // (int)
005A: 6@ += 10@ // (int)

:NONAME_1645
if
  15@ > 40
else_jump @NONAME_1939
if
  15@ > 70
else_jump @NONAME_1727
if and
  15@ > 70
   not 15@ >= 100
else_jump @NONAME_1720
15@ -= 5
jump @NONAME_1727

:NONAME_1720
15@ -= 9

:NONAME_1727
SAMP.GetScreenResolution(1@, 0)
15@ *= 10
if
001D:   15@ > 1@ // (int)
else_jump @NONAME_1776
1@ -= 200
0085: 15@ = 1@ // (int)

:NONAME_1776
0085: 20@ = 15@ // (int)
0085: 16@ = 15@ // (int)
16@ /= 2
0085: 17@ = 16@ // (int)
0085: 18@ = 16@ // (int)
17@ += 7
18@ += 60
if
  18@ > 475
else_jump @NONAME_1886
18@ = 475
0085: 17@ = 18@ // (int)
0085: 16@ = 18@ // (int)
17@ -= 53
16@ -= 60

:NONAME_1886
0085: 21@ = 18@ // (int)
20@ /= 2
0085: 19@ = 20@ // (int)
21@ /= 2
0062: 5@ -= 20@ // (int)
0062: 6@ -= 21@ // (int)
jump @NONAME_2025

:NONAME_1939
15@ = 400
16@ = 215
17@ = 222
18@ = 275
0085: 20@ = 15@ // (int)
0085: 21@ = 18@ // (int)
20@ /= 2
0085: 19@ = 20@ // (int)
21@ /= 2
0062: 5@ -= 20@ // (int)
0062: 6@ -= 21@ // (int)

:NONAME_2025
0AB3: var 380 = 5@
0AB3: var 381 = 6@
Dialog.Create(0@, 14@)
Dialog.SetRECT(0@, 5@, 6@, 15@, 18@)
call @NONAME_5149 0 29@ 28@ 27@
Dialog.SetBackgroundColor(0@, 27@)
Dialog.AddListBox(0@, 1, 0, 0, 15@, 16@)
if
  11@ == 1
else_jump @NONAME_2143
19@ -= 170
jump @NONAME_2174

:NONAME_2143
19@ -= 110
Dialog.AddButton(0@, 2, "назад", 19@, 17@, 100, 30)

:NONAME_2174
19@ += 120
Dialog.AddButton(0@, 3, "закрыть", 19@, 17@, 100, 30)
17@ += 5
Dialog.AddButton(0@, 4, "{844040}v", 10, 17@, 20, 20)
Dialog.AddButton(0@, 17, "{30771F}k", 40, 17@, 20, 20)
17@ += 45
Dialog.AddCheckBox(0@, 5, "{CCDE2B}Строка ввода", 5, 17@, 150, 20)
Dialog.AddStatic(0@, 10, "{CCDE2B}Фото:", 180, 17@, 50, 20)
Dialog.AddSlider(0@, 6, 230, 17@, 150, 20, 255)
17@ += 45
Dialog.AddStatic(0@, 13, "{89FF00}Фон", 10, 17@, 50, 20)
Dialog.AddStatic(0@, 14, "{89FF00}Цвет", 355, 17@, 50, 20)
17@ -= 15
Dialog.AddSlider(0@, 11, 55, 17@, 140, 20, 255)
Dialog.AddSlider(0@, 12, 205, 17@, 140, 20, 255)
17@ += 30
Dialog.AddSlider(0@, 15, 55, 17@, 140, 20, 255)
Dialog.AddSlider(0@, 16, 205, 17@, 140, 20, 255)
17@ -= 100
Dialog.AddEditBox(0@, 7, "", 0, -60, 15@, 40)
Dialog.AddButton(0@, 19, "0", -32, -60, 30, 40)
15@ += 2
Dialog.AddButton(0@, 18, "", 15@, -60, 30, 40)
15@ -= 67
Dialog.AddStatic(0@, 8, "{844040}VALDAN", 15@, 17@, 60, 20)
15@ -= 85
17@ -= 40
Dialog.AddStatic(0@, 9, "{3E3B8D}BLASTHACK.NET", 15@, 17@, 150, 20)
15@ += 150
0AB4: 30@ = var 384
if
  30@ == 1
else_jump @NONAME_2770
Dialog.SetCheckBoxChecked(0@, 5, 1)
Dialog.SetControlVisible(0@, 7, 1)
Dialog.SetControlVisible(0@, 18, 1)
Dialog.SetControlVisible(0@, 19, 1)
jump @NONAME_2806

:NONAME_2770
Dialog.SetCheckBoxChecked(0@, 5, 0)
Dialog.SetControlVisible(0@, 7, 0)
Dialog.SetControlVisible(0@, 18, 0)
Dialog.SetControlVisible(0@, 19, 0)

:NONAME_2806
Dialog.SetCheckBoxColor(0@, 1, 28@)
Dialog.SetControlVisible(0@, 5, 0)
Dialog.SetControlVisible(0@, 6, 0)
Dialog.SetControlVisible(0@, 10, 0)
Dialog.SetControlVisible(0@, 11, 0)
Dialog.SetControlVisible(0@, 12, 0)
Dialog.SetControlVisible(0@, 13, 0)
Dialog.SetControlVisible(0@, 14, 0)
Dialog.SetControlVisible(0@, 15, 0)
Dialog.SetControlVisible(0@, 16, 0)
10@ = File.Open(13@, "rt")
alloc 3@ 328
0C11: memset destination 3@ value 0 size 328

:NONAME_2927
if
File.ReadString(10@, 3@, 328)
else_jump @NONAME_2974
Dialog.ListBoxInsertElement(0@, 1, 3@, 4@, -1)
0C11: memset destination 3@ value 0 size 328

:NONAME_2974
   File.EOF(10@)
else_jump @NONAME_2927
free 3@
File.Close(10@)
alloc 4@ 328

:NONAME_3004
wait 0
   Dialog.PopEvent(0@, 1@, 2@)
if
  2@ == 1
else_jump @NONAME_3396
if
  1@ == 1793
else_jump @NONAME_3243
Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 0)
Dialog.ListBoxGetTextAndData(0@, 2@, 3@, 4@, 5@)
if
   not 11@ == 1
else_jump @NONAME_3121
say "%s" 4@
jump @NONAME_3243

:NONAME_3121
3@ += 1
format 6@v "%d" 3@
0AF4: 14@ = read_string_from_ini_file "CLEO\SHPORA\SETTINGS\list.ini" section "Shpora" key 6@v
format 13@ "CLEO\SHPORA\%s.txt" 14@
11@ = 0
Dialog.SetVisible(0@, 0)
Dialog.Free(0@)
jump @NONAME_1396

:NONAME_3243
if
  1@ == 1794
else_jump @NONAME_3396
Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 0)
Dialog.ListBoxGetTextAndData(0@, 2@, 3@, 4@, 5@)
if
   not 11@ == 1
else_jump @NONAME_3396
if
Dialog.IsControlVisible(0@, 7)
else_jump @NONAME_3355
Dialog.SetControlVisible(0@, 7, 1)
Dialog.SetControlVisible(0@, 18, 1)
Dialog.SetControlVisible(0@, 19, 1)

:NONAME_3355
Dialog.SetControlText(0@, 7, 4@)
0C17: 5@ = strlen 4@
format 14@ "%d" 5@
Dialog.SetControlText(0@, 19, 14@)

:NONAME_3396
if and
  2@ == 2
   SAMP.IsCursorActive
else_jump @NONAME_3460
if
  11@ == 0
else_jump @NONAME_3460
11@ = 1
Dialog.SetVisible(0@, 0)
Dialog.Free(0@)
jump @NONAME_1267

:NONAME_3460
if and
  2@ == 3
   SAMP.IsCursorActive
else_jump @NONAME_3525
11@ = 0
SAMP.ToggleCursor(0)
Dialog.SetVisible(0@, 0)
Dialog.Free(0@)
free 4@
free 13@
free 14@
jump @NONAME_1267

:NONAME_3525
if and
  2@ == 4
   SAMP.IsCursorActive
else_jump @NONAME_3945
if
Dialog.IsControlVisible(0@, 5)
else_jump @NONAME_3651
Dialog.SetControlVisible(0@, 5, 0)
Dialog.SetControlVisible(0@, 6, 0)
Dialog.SetControlVisible(0@, 10, 0)
Dialog.SetControlVisible(0@, 11, 0)
Dialog.SetControlVisible(0@, 12, 0)
Dialog.SetControlVisible(0@, 13, 0)
Dialog.SetControlVisible(0@, 14, 0)
Dialog.SetControlVisible(0@, 15, 0)
Dialog.SetControlVisible(0@, 16, 0)
jump @NONAME_3945

:NONAME_3651
Dialog.SetControlVisible(0@, 5, 1)
Dialog.SetControlVisible(0@, 6, 1)
0AF0: 3@ = get_int_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "fon"
Dialog.SliderSetValue(0@, 6, 3@)
Dialog.SetControlVisible(0@, 10, 1)
Dialog.SetControlVisible(0@, 11, 1)
0AF0: 3@ = get_int_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color1"
Dialog.SliderSetValue(0@, 11, 3@)
Dialog.SetControlVisible(0@, 12, 1)
Dialog.SliderSetValue(0@, 12, 30)
Dialog.SetControlVisible(0@, 13, 1)
Dialog.SetControlVisible(0@, 14, 1)
Dialog.SetControlVisible(0@, 15, 1)
0AF0: 3@ = get_int_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color2"
Dialog.SliderSetValue(0@, 15, 3@)
Dialog.SetControlVisible(0@, 16, 1)
Dialog.SliderSetValue(0@, 16, 15)

:NONAME_3945
if
  2@ == 5
else_jump @NONAME_4057
if
   Dialog.CheckBoxIsChecked(0@, 2@)
else_jump @NONAME_4023
0AB3: var 384 = 1
Dialog.SetControlVisible(0@, 7, 1)
Dialog.SetControlVisible(0@, 18, 1)
Dialog.SetControlVisible(0@, 19, 1)
jump @NONAME_4057

:NONAME_4023
0AB3: var 384 = 0
Dialog.SetControlVisible(0@, 7, 0)
Dialog.SetControlVisible(0@, 18, 0)
Dialog.SetControlVisible(0@, 19, 0)

:NONAME_4057
if
  1@ == 1281
else_jump @NONAME_4403
if
  2@ == 6
else_jump @NONAME_4175
Dialog.SliderGetValue(0@, 2@, 3@)
0AF1: write_int 3@ to_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "fon"
0B67: render a 3@ r 255 g 255 b 255 to_argb 29@

:NONAME_4175
if
  2@ == 11
else_jump @NONAME_4233
Dialog.SliderGetValue(0@, 2@, 3@)
call @NONAME_6503 2 3@ 2@ 28@
Dialog.SetCheckBoxColor(0@, 1, 28@)

:NONAME_4233
if
  2@ == 12
else_jump @NONAME_4291
Dialog.SliderGetValue(0@, 2@, 3@)
call @NONAME_5698 2 2@ 3@ 28@
Dialog.SetCheckBoxColor(0@, 1, 28@)

:NONAME_4291
if
  2@ == 15
else_jump @NONAME_4347
Dialog.SliderGetValue(0@, 2@, 3@)
call @NONAME_6503 2 3@ 2@ 27@
Dialog.SetBackgroundColor(0@, 27@)

:NONAME_4347
if
  2@ == 16
else_jump @NONAME_4403
Dialog.SliderGetValue(0@, 2@, 3@)
call @NONAME_5698 2 2@ 3@ 27@
Dialog.SetBackgroundColor(0@, 27@)

:NONAME_4403
if
  2@ == 17
else_jump @NONAME_4442
call @NONAME_7077 3 0 0 0@
SAMP.ToggleCursor(0)

:NONAME_4442
if
  2@ == 18
else_jump @NONAME_4496
0AA7: call_function 26@ num_params 2 pop 0 8 1 23@  
call @NONAME_7077 3 5@ 6@ 0@

:NONAME_4496
if
Dialog.IsControlVisible(0@, 18)
else_jump @NONAME_4521
gosub @NONAME_6988

:NONAME_4521
if
  2@ == 19
else_jump @NONAME_4586
Dialog.SetControlText(0@, 7, "")
format 14@ "0"
Dialog.SetControlText(0@, 19, 14@)
call @NONAME_7077 3 5@ 6@ 0@

:NONAME_4586
if
  2@ == 7
else_jump @NONAME_4785
if
  1@ == 1537
else_jump @NONAME_4714
say "%s" 4@
Dialog.SetControlText(0@, 7, "")
format 14@ "0"
Dialog.SetControlText(0@, 19, 14@)
0AB4: 30@ = var 384
if
  30@ == 0
else_jump @NONAME_4714
Dialog.SetControlVisible(0@, 7, 0)
Dialog.SetControlVisible(0@, 18, 0)
Dialog.SetControlVisible(0@, 19, 0)

:NONAME_4714
if
  1@ == 1538
else_jump @NONAME_4785
0C11: memset destination 4@ value 0 size 128
Dialog.GetControlText(0@, 2@, 4@)
0C17: 5@ = strlen 4@
format 14@ "%d" 5@
Dialog.SetControlText(0@, 19, 14@)

:NONAME_4785
0AB4: 5@ = var 380
0AB4: 6@ = var 381
0AB3: var 382 = 15@
0AB3: var 383 = 18@
Render.DrawTexture(31@, 5@, 6@, 15@, 18@, 0.0, 29@)
call @NONAME_4889 3 0@ 31@ 29@
if and
key_down 4
   not SAMP.IsCursorActive
else_jump @NONAME_4882
SAMP.ToggleCursor(1)

:NONAME_4882
jump @NONAME_3004

:NONAME_4889
if and
key_down 1
   SAMP.IsCursorActive
else_jump @NONAME_5144
0B5E: get_cursor_pos 28@ 27@
Dialog.GetRECT(0@, 3@, 4@, 20@, 19@)
20@ -= 30
if and
001D:   28@ > 3@ // (int)
001D:   27@ > 4@ // (int)
else_jump @NONAME_5144
005A: 3@ += 20@ // (int)
005A: 4@ += 19@ // (int)
if and
001D:   3@ > 28@ // (int)
001D:   4@ > 27@ // (int)
else_jump @NONAME_5144
0062: 3@ -= 20@ // (int)
0062: 4@ -= 19@ // (int)
0062: 28@ -= 3@ // (int)
0062: 27@ -= 4@ // (int)
20@ += 30

:NONAME_5047
wait 0
0B5E: get_cursor_pos 3@ 4@
0062: 3@ -= 28@ // (int)
0062: 4@ -= 27@ // (int)
Dialog.SetRECT(0@, 3@, 4@, 20@, 19@)
Render.DrawTexture(1@, 3@, 4@, 20@, 19@, 0.0, 2@)
0AB3: var 380 = 3@
0AB3: var 381 = 4@
   not key_down 1
else_jump @NONAME_5047

:NONAME_5144
ret 0

:NONAME_5149
alloc 7@ 20
if
8AF0:   not 0@ = get_int_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "fon"
else_jump @NONAME_5281
0@ = 180
0AF1: write_int 0@ to_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "fon"

:NONAME_5281
0B67: render a 0@ r 255 g 255 b 255 to_argb 1@
if
8AF4:   not 7@ = read_string_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color1"
else_jump @NONAME_5439
format 7@ "80 255 0 0"
0AF5: write_string 7@ to_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color1"

:NONAME_5439
0AD4: 31@ = scan_string 7@ format "%d %d %d %d" 2@ 3@ 4@ 5@  
0B67: render a 2@ r 3@ g 4@ b 5@ to_argb 8@
if
8AF4:   not 7@ = read_string_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color2"
else_jump @NONAME_5628
format 7@ "0 0 0 0"
0AF5: write_string 7@ to_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color2"

:NONAME_5628
0AD4: 31@ = scan_string 7@ format "%d %d %d %d" 2@ 3@ 4@ 5@  
0B67: render a 2@ r 3@ g 4@ b 5@ to_argb 9@
free 7@
ret 3 1@ 8@ 9@

:NONAME_5698
alloc 31@ 20
if
  0@ == 12
else_jump @NONAME_5779
0AF4: 31@ = read_string_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color1"

:NONAME_5779
if
  0@ == 16
else_jump @NONAME_5853
0AF4: 31@ = read_string_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color2"

:NONAME_5853
0AD4: 3@ = scan_string 31@ format "%d %d %d %d" 14@ 15@ 16@ 17@  
if and
  15@ == 255
  16@ == 0
  17@ >= 1
else_jump @NONAME_5966
17@ -= 15
if
   not 17@ >= 10
else_jump @NONAME_5959
15@ = 0
17@ = 0

:NONAME_5959
gosub @NONAME_6305

:NONAME_5966
if and
   not 15@ > 254
  16@ == 0
  17@ == 255
else_jump @NONAME_6014
15@ += 15
gosub @NONAME_6305

:NONAME_6014
if and
  15@ == 0
  16@ >= 1
  17@ == 255
else_jump @NONAME_6061
16@ -= 15
gosub @NONAME_6305

:NONAME_6061
if and
  15@ == 0
  16@ == 255
   not 17@ > 254
else_jump @NONAME_6109
17@ += 15
gosub @NONAME_6305

:NONAME_6109
if and
  15@ >= 1
  16@ == 255
  17@ == 0
else_jump @NONAME_6156
15@ -= 15
gosub @NONAME_6305

:NONAME_6156
if and
  15@ == 255
   not 16@ > 254
  17@ == 0
else_jump @NONAME_6204
16@ += 15
gosub @NONAME_6305

:NONAME_6204
if and
   not 15@ > 254
  16@ == 0
  17@ == 0
else_jump @NONAME_6251
15@ += 15
gosub @NONAME_6305

:NONAME_6251
if
  1@ == 0
else_jump @NONAME_6297
15@ = 0
16@ = 0
17@ = 0
gosub @NONAME_6305

:NONAME_6297
ret 1 30@

:NONAME_6305
format 31@ "%d %d %d %d" 14@ 15@ 16@ 17@
if
  0@ == 12
else_jump @NONAME_6410
0AF5: write_string 31@ to_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color1"

:NONAME_6410
if
  0@ == 16
else_jump @NONAME_6484
0AF5: write_string 31@ to_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color2"

:NONAME_6484
0B67: render a 14@ r 15@ g 16@ b 17@ to_argb 30@
return

:NONAME_6503
alloc 31@ 20
if
  1@ == 11
else_jump @NONAME_6584
0AF4: 31@ = read_string_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color1"

:NONAME_6584
if
  1@ == 15
else_jump @NONAME_6658
0AF4: 31@ = read_string_from_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color2"

:NONAME_6658
0AD4: 30@ = scan_string 31@ format "%d %d %d %d" 2@ 3@ 4@ 5@  
format 31@ "%d %d %d %d" 0@ 3@ 4@ 5@
0B67: render a 0@ r 3@ g 4@ b 5@ to_argb 7@
if
  1@ == 11
else_jump @NONAME_6814
0AF5: write_string 31@ to_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color1"

:NONAME_6814
if
  1@ == 15
else_jump @NONAME_6888
0AF5: write_string 31@ to_ini_file "CLEO\SHPORA\SETTINGS\SETTINGS.ini" section "COLORS" key "color2"

:NONAME_6888
free 31@
ret 1 7@

:NONAME_6901
0AA2: 0@ = load_library "User32.dll" // IF and SET
0AA4: 1@ = get_proc_address "GetKeyboardLayout" library 0@ // IF and SET
0AA4: 2@ = get_proc_address "ActivateKeyboardLayout" library 0@ // IF and SET
ret 2 1@ 2@

:NONAME_6988
0AA7: call_function 25@ num_params 1 pop 0 0 24@  
if
  24@ == 68748313
else_jump @NONAME_7034
format 14@ "Ru"

:NONAME_7034
if
  24@ == 67699721
else_jump @NONAME_7065
format 14@ "En"

:NONAME_7065
Dialog.SetControlText(0@, 18, 14@)
return

:NONAME_7077
Dialog.GetControlPos(2@, 18, 7@, 8@)
005A: 0@ += 7@ // (int)
0@ -= 20
1@ -= 25
0AA2: 6@ = load_library "User32.DLL" // IF and SET
0AA4: 3@ = get_proc_address "SetCursorPos" library 6@ // IF and SET
0AA4: 4@ = get_proc_address "mouse_event" library 6@ // IF and SET
0AA7: call_function 3@ num_params 2 pop 0 1@ 0@ 5@  
0AA5: call 4@ num_params 5 pop 0 0 0 0 0 2  
0AA5: call 4@ num_params 5 pop 0 0 0 0 0 4  
0AA3: free_library 6@
ret 0

:NONAME_7241
11@ = 1
SAMP.CmdRet

:NONAME_7250
0AB3: var 174 = 0
if
   not SAMP.IsLocalPlayerSpawned
else_jump @NONAME_7670
0@ = Render.CreateFont("Arial", 12, 14)
SAMP.GetScreenResolution(11@, 12@)
11@ = 0
11@ += 40
12@ -= 120
0087: 5@ = 11@ // (float)

:NONAME_7323
32@ = 0

:NONAME_7330
wait 0
0087: 1@ = 11@ // (float)
0087: 2@ = 12@ // (float)
0087: 3@ = 1@ // (float)
3@ += 300
0087: 4@ = 2@ // (float)
4@ += 35
Render.DrawText(0@, "S H P O R A", 1@, 2@, -6632961)
2@ += 35
Render.DrawLine(1@, 2@, 3@, 4@, 12, -16777216)
3@ -= 4
if
803B:   not  5@ == 3@ // (int)
else_jump @NONAME_7492
Render.DrawLine(1@, 2@, 5@, 4@, 8, -1761505)
jump @NONAME_7513

:NONAME_7492
Render.DrawLine(1@, 2@, 5@, 4@, 8, -16459260)

:NONAME_7513
2@ += 14
Render.DrawText(0@, "VALDAN", 1@, 2@, -16776961)
1@ += 140
Render.DrawText(0@, "BLAST{0077FF}HACK.NET", 1@, 2@, -6632961)
  32@ >= 10
else_jump @NONAME_7330
if
803B:   not  5@ == 3@ // (int)
else_jump @NONAME_7631
5@ += 1

:NONAME_7631
if
key_down 119
else_jump @NONAME_7651
wait 2000

:NONAME_7651
   SAMP.IsLocalPlayerSpawned
else_jump @NONAME_7323
wait 1000
Render.ReleaseFont(0@)

:NONAME_7670
0A93: end_custom_thread

:NONAME_7672
if
  $707 == 16
else_jump @NONAME_7730
printf "~y~NO SAMPFUNCS 5.3.1 ~r~error" 10000
0A93: end_custom_thread

:NONAME_7730
return

:NONAME_7732
if
8AAB:   not file_exists "CLEO\SHPORA.cs"
else_jump @NONAME_7977
SAMP.Disconnect(0)
chatmsg "{FF1100} Внимание !!!" 64154
chatmsg "{FFC900} Скрипт {00FF00} SHPORA.cs {FFC900} был переименован!" 64154
chatmsg "{FF1100} Он не будет работать, пока не вернете прежнее имя." 64154
chatmsg "{FF4235} Запуск не возможен !" 64154
0A93: end_custom_thread

:NONAME_7977
if
8AAB:   not file_exists "CLEO\Admin_Checker.cs"
else_jump @NONAME_8034
0AB3: var 174 = 1
run "SHPORA.cs"

:NONAME_8034
return

{$CLEO}
{$NOSOURCE}
{$INCLUDE SF}
03A4: name_thread 'kek'
0000:
wait 2000

repeat
wait 300
until 0AFA:  is_samp_available

while true
0AC8: 0@ = allocate_memory_size 200
0C11: memset destination 0@ value 0x0 size 200
0B75: samp get_chat_string 99 text_to 0@ prefix_to 0 color_to 0 prefix_color_to 0  
0AC9: free_allocated_memory 0@
end

// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
thread "hnnssytm"
0662: printstring "time"

:HNNSSYTM_20
wait 0
if
8AE4:   not directory_exists "Cleo\INI"
else_jump @HNNSSYTM_59
0AE5: create_directory "Cleo\INI" // IF and SET

:HNNSSYTM_59
if
0AAB:   file_exists "CLEO\INI\timedata.ini"
else_jump @HNNSSYTM_442
0AF2: 12@ = get_float_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "PosX"
0AF2: 13@ = get_float_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "PosY"
0AF0: 14@ = get_int_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ColR"
0AF0: 15@ = get_int_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ColG"
0AF0: 16@ = get_int_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ColB"
0AF2: 17@ = get_float_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ScaleX"
0AF2: 18@ = get_float_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ScaleY"
0AF0: 19@ = get_int_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "Font"
jump @HNNSSYTM_789

:HNNSSYTM_442
0AF3: write_float 60.0 to_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "PosX"
0AF3: write_float 145.0 to_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "PosY"
0AF3: write_float 0.3 to_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ScaleX"
0AF3: write_float 0.7 to_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ScaleY"
0AF1: write_int 187 to_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ColR"
0AF1: write_int 187 to_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ColG"
0AF1: write_int 187 to_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ColB"
0AF1: write_int 1 to_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "Font"

:HNNSSYTM_789
wait 0
0AF2: 12@ = get_float_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "PosX"
0AF2: 13@ = get_float_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "PosY"
0AF0: 14@ = get_int_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ColR"
0AF0: 15@ = get_int_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ColG"
0AF0: 16@ = get_int_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ColB"
0AF2: 17@ = get_float_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ScaleX"
0AF2: 18@ = get_float_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "ScaleY"
0AF0: 19@ = get_int_from_ini_file "CLEO\INI\timedata.ini" section "hnnssy" key "Font"
03F0: enable_text_draw 1
0AC8: 1@ = allocate_memory_size 256
0AB1: call_scm_func @HNNSSYTM_1357 0 3@ 4@ 5@ 6@ 7@ 8@ 9@ 10@  
0AD3: 1@ = format "[%d.%d.%d %.2d:%.2d:%.2d]" 6@ 4@ 3@ 7@ 8@ 9@  
0AA8: call_function_method 6946896 struct 12694336 num_params 1 pop 0 'CRED009' 2@  
0AA5: call 7439872 num_params 2 pop 2 2@ 1@  
033F: set_text_draw_letter_size 17@ 18@
0340: set_text_draw_RGBA 14@ 15@ 16@ 255
0349: set_text_draw_font 19@
060D: draw_text_shadow 1 rgba 0 0 0 255
0342: set_text_draw_centered 1
033E: set_draw_text_position 12@ 13@ GXT 'CRED009'  // Alexander Roger
0AC9: free_allocated_memory 1@
jump @HNNSSYTM_789
jump @HNNSSYTM_20

:HNNSSYTM_1357
0AA2: 0@ = load_library "kernel32.dll" // IF and SET
0AA4: 1@ = get_proc_address "GetLocalTime" library 0@ // IF and SET
0AC8: 2@ = allocate_memory_size 32
0AA5: call 1@ num_params 1 pop 0 2@  
0A8D: 3@ = read_memory 2@ size 2 virtual_protect 0
2@ += 2
0A8D: 4@ = read_memory 2@ size 2 virtual_protect 0
2@ += 2
0A8D: 5@ = read_memory 2@ size 2 virtual_protect 0
2@ += 2
0A8D: 6@ = read_memory 2@ size 2 virtual_protect 0
2@ += 2
0A8D: 7@ = read_memory 2@ size 2 virtual_protect 0
2@ += 2
0A8D: 8@ = read_memory 2@ size 2 virtual_protect 0
2@ += 2
0A8D: 9@ = read_memory 2@ size 2 virtual_protect 0
2@ += 2
0A8D: 10@ = read_memory 2@ size 2 virtual_protect 0
2@ -= 30
0AB2: ret 8 3@ 4@ 5@ 6@ 7@ 8@ 9@ 10@

// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
0662: printstring "WWW.YOUTUBE.COM/NICKBACK"
0662: printstring "COMPILED BY NICKBACK"
31@ = 0

:NONAME_61
wait 0
if
0ADC:   test_cheat "BIBIKA"
else_jump @NONAME_198
if
  31@ == 0
else_jump @NONAME_152
0AD1: show_formatted_text_highpriority "Bibika PIDOR ~G~ENABLED" time 1500  
31@ = 1
wait 200
jump @NONAME_198

:NONAME_152
0AD1: show_formatted_text_highpriority "Bibika PIDOR ~R~DISABLED" time 1500  
31@ = 0
wait 200

:NONAME_198
jump @NONAME_205

:NONAME_205
wait 0
if and
  31@ == 1
0AD2: 2@ = player $PLAYER_CHAR targeted_actor //IF and SET
else_jump @NONAME_61

:NONAME_235
wait 0
if and
056D:   actor 2@ defined
0AB0:   key_pressed 1
else_jump @NONAME_205
if and
   not Actor.Dead(2@)
02CB:   actor 2@ bounding_sphere_visible
else_jump @NONAME_205
0A96: 6@ = actor 2@ struct
6@ += 68
0A8D: 3@ = read_memory 6@ size 4 virtual_protect 0
6@ += 4
0A8D: 4@ = read_memory 6@ size 4 virtual_protect 0
6@ += 4
0A8D: 5@ = read_memory 6@ size 4 virtual_protect 0
Actor.StorePos(2@, 6@, 7@, 8@)
10@ = 35
0093: 10@ = integer 10@ to_float
12@ = 17.0
12@ /= 360.0
006B: 3@ *= 12@ // (float)
006B: 4@ *= 12@ // (float)
006B: 5@ *= 12@ // (float)
006B: 3@ *= 10@ // (float)
006B: 4@ *= 10@ // (float)
006B: 5@ *= 10@ // (float)
005B: 6@ += 3@ // (float)
005B: 7@ += 4@ // (float)
005B: 8@ += 5@ // (float)
Actor.StorePos($PLAYER_ACTOR, 3@, 4@, 5@)
if
06BD:   no_obstacles_between 3@ 4@ 5@ and 6@ 7@ 8@ solid 1 car 1 actor 0 object 1 particle 0
else_jump @NONAME_543
0AB1: call_scm_func @NONAME_550 4 2@ 6@ 7@ 8@  

:NONAME_543
jump @NONAME_235

:NONAME_550
0087: 4@ = 1@ // (float)
0087: 5@ = 2@ // (float)
0087: 6@ = 3@ // (float)
068D: get_camera_position_to 1@ 2@ 3@
04C4: store_coords_to 7@ 8@ 9@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
0063: 1@ -= 4@ // (float)
0063: 2@ -= 5@ // (float)
0096: make 1@ absolute_float
0096: make 2@ absolute_float
0087: 10@ = 1@ // (float)
0087: 11@ = 2@ // (float)
006B: 10@ *= 10@ // (float)
006B: 11@ *= 11@ // (float)
005B: 10@ += 11@ // (float)
01FB: 10@ = square_root 10@
0087: 11@ = 1@ // (float)
0087: 12@ = 10@ // (float)
0073: 11@ /= 12@ // (float)
0AA5: call 4327328 num_params 1 pop 1 11@  
0AE9: pop_float 12@
0AA5: call 4775488 num_params 1 pop 1 11@  
0AE9: pop_float 13@
if
0AB1: call_scm_func @NONAME_1284 0 16@  
else_jump @NONAME_845
if
0AB1: call_scm_func @NONAME_850 7 4@ 5@ 7@ 8@ 12@ 13@ 16@ 15@  
else_jump @NONAME_845
15@ += 0.0389
0A8C: write_memory 11989592 size 4 value 15@ virtual_protect 0

:NONAME_845
0AB2: ret 0

:NONAME_850
if
  6@ == 5
else_jump @NONAME_915
7@ = 0.01
8@ = 0.01
9@ = 1.5607
10@ = 1.5807
jump @NONAME_1020

:NONAME_915
if
  6@ == 6
else_jump @NONAME_980
7@ = 0.018
8@ = 0.02
9@ = 1.5507
10@ = 1.5907
jump @NONAME_1020

:NONAME_980
7@ = 0.0
8@ = 0.0
9@ = 1.5707
10@ = 1.5707

:NONAME_1020
if and
0025:   2@ > 0@ // (float)
0025:   3@ > 1@ // (float)
else_jump @NONAME_1063
0063: 5@ -= 8@ // (float)
0087: 15@ = 5@ // (float)

:NONAME_1063
if and
0025:   2@ > 0@ // (float)
8035:   not  3@ >= 1@ // (float)
else_jump @NONAME_1116
5@ *= -1.0
0063: 5@ -= 7@ // (float)
0087: 15@ = 5@ // (float)

:NONAME_1116
if and
8035:   not  2@ >= 0@ // (float)
0025:   3@ > 1@ // (float)
else_jump @NONAME_1159
005B: 4@ += 9@ // (float)
0087: 15@ = 4@ // (float)

:NONAME_1159
if and
8035:   not  2@ >= 0@ // (float)
8035:   not  3@ >= 1@ // (float)
else_jump @NONAME_1212
4@ *= -1.0
0063: 4@ -= 10@ // (float)
0087: 15@ = 4@ // (float)

:NONAME_1212
0A8D: 11@ = read_memory 11989592 size 4 virtual_protect 0
0063: 11@ -= 15@ // (float)
if and
   not 11@ >= 0.18
  11@ > -0.18
else_jump @NONAME_1274
0485:   return_true
jump @NONAME_1276

:NONAME_1274
059A:   return_false

:NONAME_1276
0AB2: ret 1 15@

:NONAME_1284
0A96: 0@ = actor $PLAYER_ACTOR struct
0@ += 1816
0A8D: 1@ = read_memory 0@ size 1 virtual_protect 0
if or
  1@ == 2
  1@ == 3
  1@ == 4
  1@ == 5
  1@ == 6
  1@ == 7
else_jump @NONAME_1374
0485:   return_true
jump @NONAME_1376

:NONAME_1374
059A:   return_false

:NONAME_1376
0AB2: ret 1 1@

// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO}
0000: NOP

:SPRINGFIELD_39
wait 0
0AB0:   key_pressed 49  
else_jump @SPRINGFIELD_39
0AB1: call_scm_func @SPRINGFIELD_255 0

:SPRINGFIELD_134
wait 0
8AB0:   not key_pressed 49  
else_jump @SPRINGFIELD_134
0AB1: call_scm_func @SPRINGFIELD_415 0
jump @SPRINGFIELD_39

:SPRINGFIELD_255
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 6 value -1869574000 virtual_protect 1
0A8E: 2@ = 30@ + 458004 // int
0A8C: write_memory 2@ size 6 value -1869574000 virtual_protect 1
0A8E: 3@ = 30@ + 458280 // int
0A8C: write_memory 3@ size 2 value 37008 virtual_protect 1
0A8E: 4@ = 30@ + 462648 // int
0A8C: write_memory 4@ size 2 value 37008 virtual_protect 1
0A8E: 5@ = 30@ + 462372 // int
0A8C: write_memory 5@ size 6 value -1869574000 virtual_protect 1
0AA3: free_library 30@
0AB2: ret 0

:SPRINGFIELD_415
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1
0A8E: 2@ = 1@ + 4 // int
0A8C: write_memory 2@ size 2 value 0 virtual_protect 1
0A8E: 3@ = 30@ + 458004 // int
0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1
0A8E: 4@ = 3@ + 4 // int
0A8C: write_memory 4@ size 2 value 0 virtual_protect 1
0A8E: 5@ = 30@ + 458280 // int
0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1
0A8E: 6@ = 30@ + 462648 // int
0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1
0A8E: 7@ = 30@ + 462372 // int
0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1
0A8E: 8@ = 7@ + 4 // int
0A8C: write_memory 8@ size 2 value 0 virtual_protect 1
0AA3: free_library 30@
0AB2: ret 0