Проверка скриптов и плагинов на вредоносное ПО

lemonager

;)
Автор темы
Всефорумный модератор
809
1,717
Версия SA-MP
  1. Любая
nX15Ep5.png

eNo5cSj.png

Общая тема для просьб о помощи проверки скриптов, плагинов и приложений.
Теперь не нужно создавать много отдельных тем о помощи с проверкой.

Рекомендации:
  1. Ставить к себе в игру что-либо с темы крайне не рекомендуется, если файл не был проверен опытным пользователем или Вы в нём сомневаетесь.
  2. Сообщения по типу "спасибо, помог" по правилам форума считаются флудом и будут удалены. Если вам помогли, вы можете нажать кнопку Мне нравится под ответом - это даст понять, что ответ верный.
eNo5cSj.png

qJTRxhB.png
 

Alimoha

Известный
667
112
Чекните на стиллер лоадер или всякую дичь пж
 

Вложения

  • helperlovli.luac
    119.8 KB · Просмотры: 5

dart__

Потрачен
350
101
это стиллер? скрипт который позволяет открыть чат на русскую Т
это стиллер? код открыт но в клео не разбираюсь
 

Вложения

  • ilf.cs
    19 KB · Просмотры: 5
  • MEGAFPSUPBEMIHA2014.cs
    119 байт · Просмотры: 10
Последнее редактирование:

Alimoha

Известный
667
112
это стиллер? скрипт который позволяет открыть чат на русскую Т
это стиллер? код открыт но в клео не разбираюсь
на счет этих файлов не знаю но вот тебе 2 чистых скрипта которые сам юзаю, много функциональный скрипт, открыте чата на русской раскладке на T , запоминание последней выбранной строки и тд
 

Вложения

  • samp++.cs
    30.1 KB · Просмотры: 3
  • samp++.ini
    514 байт · Просмотры: 5
  • Нравится
Реакции: dart__

vsevolodezz

Активный
200
38
Чекните на стиллер лоадер или всякую дичь пж
чистый
это стиллер? скрипт который позволяет открыть чат на русскую Т
это стиллер? код открыт но в клео не разбираюсь
чисто все
В клео не понимаю вообще нихера :(
вроде чистый
чистый
 

Вложения

  • helperlovli-decompiled.lua
    141.1 KB · Просмотры: 8

_razor

t.me/sssecretway | ТГК: t.me/razor_code
Всефорумный модератор
1,936
3,166
Нету

CLEO:
{$CLEO}   
thread "arzr"
:1                                                                         
wait 500
0AFA:  is_samp_available
jf @1
wait 15000                                                                                                                                                           
chatmsg "Arizona  {61ffe7}render {42e8f4}by {FFC300}LoganHacker {00ff00}Loaded" 0xFF61BC
log "{FF61BC}Arizona {61ffe7}render {42e8f4}by {FFC300}LoganHacker {00ff00}Loaded"
/*                                                                                                                                                                                                     
version - 7.5
autor - @loganhackerdff
*/                                                                     
                                                                                
0B34: samp register_client_command "arzr" to_label @arz 
0B6D: render 0@ = create_font "Arial" height 14 flags  0x4     // 1-6

0B5A: get_screen_resolution 2@ 3@

0016: 2@ /= 2
2@ -= 270
0016: 3@ /= 2
3@ -= 130               
alloc 1@ 32
alloc 8@ 256
var
$IStatePosAS array 3 of Integer
$IStat array 14 of Integer
$IStatSize array 2 of Integer   
$Color array 6 of Integer
end 
15@ = 0
gosub @createdialog

2@ = 0
3@ = 0
if 0AAB:   file_exists "CLEO\rend.ini"
gf @create
gosub @set 
alloc 3@ 64
2@ = 0
while true
wait 0
/*
8C89:  key_just_pressed 98//0736:   is_keyboard_key_just_pressed 50
gf @reload
 */
if and
2@ == 0
0B81: dialog 4@ pop_event_to 0 control_id_to 5@
then
  if 5@ == 1
  then
    if 0B92:  dialog 4@ checkbox 1 is_checked
    then
    0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Deer"
    else
    0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Deer"
    end
  else
   if 5@ == 2
   then
     if 0B92:  dialog 4@ checkbox 2 is_checked
     then
     0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Materials"
     else
     0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Materials"
     end
    else
       if 5@ == 3
       then
          if 0B92:  dialog 4@ checkbox 3 is_checked
          then
          0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Drugs"
          else
          0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Drugs"
          end
        else
            if 5@ == 4
            then
                if 0B92:  dialog 4@ checkbox 4 is_checked
                then
                0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Guns" 
                else
                0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Guns"
                end
            else
                 if 5@ == 5
                 then
                     if 0B92:  dialog 4@ checkbox 5 is_checked
                      then
                      0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Presents"
                      else
                      0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Presents"
                      end
                 else
                    if 5@ == 6
                    then
                        if 0B92:  dialog 4@ checkbox 6 is_checked
                       then
                        0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Clothes"
                        else
                        0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Clothes"
                        end
                      else
                    if 5@ == 7
                    then
                       if 0B92:  dialog 4@ checkbox 7 is_checked
                       then                               // 4@ = 31@
                        0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "ores"   
                       else
                        0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "ores" 
                       end
                       else
                         if 5@ == 8
                         then   
                             if  0B92:  dialog 4@ checkbox 8 is_checked
                             then
                             0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "drawline"                     
                             else
                             0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "drawline"
                             end
                        else
                           if 5@ == 14
                           then
                              if 0B92:  dialog 4@ checkbox 14 is_checked 
                              then
                               0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Stone"
                              else
                              0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Stone"
                              end
                            else
                            if 5@ == 15
                            then
                               if 0B92:  dialog 4@ checkbox 15 is_checked
                               then
                               0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Graffiti"   
                               else
                               0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Graffiti" 
                               end 
                            else
                                if 5@ == 16
                                then
                                 if 0B92:  dialog 4@ checkbox 16 is_checked
                                 then
                                 0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Klad"   
                                 else

                                 0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Klad" 
                                 end
                                else                   
                                 if or
                                5@ == 10
                                5@ == 11
                                5@ == 12
                                5@ == 17
                                then
                                 0B97: dialog 4@ slider 10 get_value_to $Color[0]
                                 0B97: dialog 4@ slider 11 get_value_to $Color[1]
                                 0B97: dialog 4@ slider 12 get_value_to $Color[2]
                                 0B97: dialog 4@ slider 17 get_value_to $Color[3]
                                 0AF1: write_int $Color[0] to_ini_file "cleo\rend.ini" section "Settings" key "R"
                                 0AF1: write_int $Color[1] to_ini_file "cleo\rend.ini" section "Settings" key "G"
                                 0AF1: write_int $Color[2] to_ini_file "cleo\rend.ini" section "Settings" key "B"
                                 0AF1: write_int $Color[3] to_ini_file "cleo\rend.ini" section "Settings" key "A"
                                 0B67: render a $Color[3] r $Color[0] g $Color[1] b $Color[2] to_argb $Color[4]
                                        else
                                           if 5@ == 13
                                           then
                                        0B5D: samp toggle_cursor 0                               
                                        0B86: dialog 4@ set_visible 0 
                                        else
                                            if 5@ == 18
                                            then
                                                if 0B92:  dialog 4@ checkbox 18 is_checked
                                                 then
                                                0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Stat"   
                                                else
                                                0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Stat" 
                                                end
                                                else
                                                    if 5@ == 19
                                                    then
                                                        if 0B92:  dialog 4@ checkbox 19 is_checked
                                                        then
                                                        0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Zeros"   
                                                        else
                                                        0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Zeros"
                                                        end 
                                                    else
                                                            if 5@ == 20
                                                            then
                                                                2@ = 1
                                                                end     
                                                             end                                   
                                                        end                                                 
                                                    end
                                                end       
                                            end
                                        end
                                    end
                                end
                            end
                        end
                    end           
                end
            end
        end
    end
end
///////////////
gosub @freeArray

if or
0B92:  dialog 4@ checkbox 1 is_checked
0B92:  dialog 4@ checkbox 2 is_checked
0B92:  dialog 4@ checkbox 4 is_checked
0B92:  dialog 4@ checkbox 6 is_checked
0B92:  dialog 4@ checkbox 16 is_checked
then

for 31@ = 0 to 1000
  if 0B50: samp 30@ = object_handle_by_id 31@
    then
                0984: 19@ = object 30@ model
                gosub @checkobj//call @checkobhmodel 2 19@ 28@ retto 20@ 
                if 20@ == 1
                then
                01BB: store_object 30@ position_to 29@ 28@ 27@
                Actor.StorePos($PLAYER_ACTOR, 26@, 25@, 24@)
                 050A: 18@ = distance_between_XYZ 26@ 25@ 24@ and_XYZ  29@ 28@ 27@
                if 00C2:   sphere_onscreen 29@ 28@ 27@  radius 0.0
                then
                    0B55: convert_3D_coords 29@ 28@ 27@ to_screen 29@ 28@                   
                    0B55: convert_3D_coords 26@ 25@ 24@ to_screen 26@ 25@
                    if 0B92:  dialog 4@ checkbox 8 is_checked
                    then                       
                    0B68: render draw_line_point1 29@ 28@ point2 26@ 25@  width 1 color $Color[4]
                    0B70: render draw_polygon_pos 29@ 28@ size 3 3 corners 7 rotation 0 color $Color[4] 
                    end 
                    29@ += 5                 
                    28@ -= 7   
                    gosub @fomatstrO           
                    0B6F: render font 0@ draw_text 1@ pos 29@ 28@ color $Color[4]//0xcac1f4c
              end
     end
   end                                 
end
//////////////////for
if or
0B92:  dialog 4@ checkbox 3 is_checked
0B92:  dialog 4@ checkbox 5 is_checked
then
0BB9: samp 30@ = get_pickup_pool_ptr
    FOR 31@ = 0 TO {MAX_PICKUPS}4096
        IF 0B51: samp 25@ = pickup_handle_by_id 31@
        THEN     
        0A90: 25@ = 31@ * 20
        000A: 25@ += 61444
        000A: 25@ += 30@ // stPickup
        0A8D: 19@ = read_memory 25@ size 4 virtual_protect TRUE // iModelID
            gosub @checkpick
            IF 20@ == 1
            THEN   
            0C0C: 29@ = struct 25@ offset 8 size 4 // X
            0C0C: 28@ = struct 25@ offset 12 size 4 // Y
            0C0C: 27@ = struct 25@ offset 16 size 4 // Z 
            Actor.StorePos($PLAYER_ACTOR, 26@, 25@, 24@)
            050A: 18@ = distance_between_XYZ 29@ 28@ 27@ and_XYZ 26@ 25@ 24@ 
                IF 00C2:   sphere_onscreen 29@ 28@ 27@ radius 0.0
                THEN           
                0B55: convert_3D_coords 26@ 25@ 24@ to_screen 26@ 25@  // player     
                0B55: convert_3D_coords 29@ 28@ 27@ to_screen 29@ 28@ // present
                    if 0B92:  dialog 4@ checkbox 8 is_checked
                    then                       
                    0B68: render draw_line_point1 26@ 25@ point2 29@ 28@ width 1 color $Color[4]
                    0B70: render draw_polygon_pos 29@ 28@ size 3 3 corners 7 rotation 0 color $Color[4] 
                    end   
                    29@ += 5                 
                    28@ -= 7   
                    gosub @formatstrP 
                    0B6F: render font 0@ draw_text 1@ pos 29@ 28@ color $Color[4] 
                END   
            END
       END
END   //////
end
/////////////
if or
0B92:  dialog 4@ checkbox 3 is_checked
0B92:  dialog 4@ checkbox 7 is_checked
0B92:  dialog 4@ checkbox 15 is_checked
then
for 31@ = 0 to 2048 //1200
 if  0B46:     samp 3d_text 31@ defined
 then
 0C46: samp get_3d_text_info_by_id 31@ string_ptr 8@ color 0 position 28@ 29@ 30@ view_distance 0 show_behind_walls 0 attached_to_player 0 attached_to_vehicle 0
 00A0: store_actor $PLAYER_ACTOR position_to 25@ 26@ 27@
 if 00C2:   sphere_onscreen 28@ 29@ 30@ radius 0.0
 then
 050A: 18@ = distance_between_XYZ 25@ 26@ 27@ and_XYZ 28@ 29@ 30@
 gosub @checktext
 if 20@ == 1
 then
  0B55: convert_3D_coords 25@ 26@ 27@ to_screen 25@ 26@ // actor
  30@ -= 1.27
  0B55: convert_3D_coords 28@ 29@ 30@ to_screen 28@ 29@ // object
  if 0B92:  dialog 4@ checkbox 8 is_checked
  then
  0B68: render draw_line_point1 25@ 26@ point2 28@ 29@ width 1 color $Color[4]
  0B70: render draw_polygon_pos 28@ 29@ size 3 3 corners 7 rotation 0 color $Color[4]   
  end
  28@ += 5                 
  29@ -= 7
  0B6F: render font 0@ draw_text 1@ pos 28@ 29@ color $Color[4]   
  else
    if 20@ == 2
    then
    0B55: convert_3D_coords 25@ 26@ 27@ to_screen 25@ 26@ // actor
    30@ -= 1.27
    0B55: convert_3D_coords 28@ 29@ 30@ to_screen 28@ 29@ // object
    if 0B92:  dialog 4@ checkbox 8 is_checked
    then
    0B68: render draw_line_point1 25@ 26@ point2 28@ 29@ width 1 color $Color[5]
    0B70: render draw_polygon_pos 28@ 29@ size 3 3 corners 7 rotation 0 color $Color[5]   
    end
    28@ += 5                 
    29@ -= 7
    0B6F: render font 0@ draw_text 1@ pos 28@ 29@ color $Color[5]   
    end
   end
  end
 end
end
end
/////////
if  0B92:  dialog 4@ checkbox 18 is_checked
then
if 2@ == 1
then
    0B5E: get_cursor_pos $IStatePosAS[0] $IStatePosAS[1]
    $IStatePosAS[2] = $IStatePosAS[1]
    if 0C89:  key_just_pressed 13
    then
    2@ = 0
    0AF1: write_int $IStatePosAS[0] to_ini_file "cleo\rend.ini" section "Settings" key "PosX"
    0AF1: write_int $IStatePosAS[1] to_ini_file "cleo\rend.ini" section "Settings" key "PosY"
    $IStatePosAS[2] = $IStatePosAS[1]
    end
end

gosub @getYsize
if 0B92:  dialog 4@ checkbox 5 is_checked
then
0B69: render draw_box_pos $IStatePosAS[0] $IStatePosAS[1] size 210 $IStatSize[1]  color 0xFF121212
else
0B69: render draw_box_pos $IStatePosAS[0] $IStatePosAS[1] size 135 $IStatSize[1]  color 0xFF121212
end
if 0B92:  dialog 4@ checkbox 19 is_checked
then
$IStatePosAS[2] = $IStatePosAS[1]
$IStatePosAS[0] += 3
gosub @render
$IStatePosAS[0] -= 3
else
$IStatePosAS[2] = $IStatePosAS[1]
$IStatePosAS[0] += 3
gosub @render0
$IStatePosAS[0] -= 3
end
end
end
///////////
end //

:render0
if and
$IStat[0] > 0
0B92:  dialog 4@ checkbox 1 is_checked
then
format 3@ = "Оленей %d" $IStat[0]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if and
$IStat[1] > 0
0B92:  dialog 4@ checkbox 2 is_checked
then
format 3@ = "Матов %d" $IStat[1]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if 0B92:  dialog 4@ checkbox 3 is_checked
then
if $IStat[10] > 0
then
format 3@ = "Закладок %d" $IStat[10]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
if $IStat[11] > 0
then
format 3@ = "Семян %d" $IStat[11]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
end
//
if 0B92:  dialog 4@ checkbox 4 is_checked
then
if $IStat[5] > 0
then
format 3@ = "Диглов %d" $IStat[5]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
if $IStat[6] > 0
then
format 3@ = "M4 %d" $IStat[6]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
if $IStat[7] > 0
then
format 3@ = "Дробовиков %d" $IStat[7]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
if $IStat[8] > 0
then
format 3@ = "Винтовок %d" $IStat[8]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
if $IStat[9] > 0
then
format 3@ = "Снайперок %d" $IStat[9]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
end
//
if and
$IStat[4] > 0
0B92:  dialog 4@ checkbox 5 is_checked
then
format 3@ = "Подарков/Лампочек %d" $IStat[4]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if and
$IStat[2]  > 0
0B92:  dialog 4@ checkbox 6 is_checked
then
format 3@ = "Одежды %d" $IStat[2]                   
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
return

:render
if 0B92:  dialog 4@ checkbox 1 is_checked
then
format 3@ = "Оленей %d" $IStat[0]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if 0B92:  dialog 4@ checkbox 2 is_checked
then
format 3@ = "Матов %d" $IStat[1]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if 0B92:  dialog 4@ checkbox 3 is_checked
then
format 3@ = "Закладок %d" $IStat[10]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
format 3@ = "Семян %d" $IStat[11]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if 0B92:  dialog 4@ checkbox 4 is_checked
then
format 3@ = "Диглов %d" $IStat[5]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
format 3@ = "M4 %d" $IStat[6]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
format 3@ = "Дробовиков %d" $IStat[7]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
format 3@ = "Винтовок %d" $IStat[8]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
format 3@ = "Снайперок %d" $IStat[9]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if 0B92:  dialog 4@ checkbox 5 is_checked
then
format 3@ = "Подарков/Лампочек %d" $IStat[4]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if 0B92:  dialog 4@ checkbox 6 is_checked
then
format 3@ = "Одежды %d" $IStat[2]                   
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
return

 
:formatstrP
if or
    19@ == 19054
    19@ == 19055
    19@ == 19056
    19@ == 19057
    19@ == 19058
then
format 1@ "Подарок {ffffff}[%.f]" 18@ 
return
end     
if 19@ == 2176
then
format 1@ "Лампочка {ffffff}[%.f]" 18@ 
return
end
if 19@ == 859
then
format 1@ "Семена {ffffff}[%.f]" 18@ 
return
end
format 1@ "Ошибка {ffffff}[%.f]" 18@ 
return
    

:checkpick
if 0B92:  dialog 4@ checkbox 5 is_checked
then
   if or
    19@ == 19054
    19@ == 19055
    19@ == 19056
    19@ == 19057
    19@ == 19058
    19@ == 2176// лампочка
    then
    $IStat[4] ++
    20@ = 1
    return
   end
end
if 0B92:  dialog 4@ checkbox 3 is_checked
then
   if 19@ == 859 // семена
   then
    $IStat[11] ++
   20@ = 1
   return
   end
end
20@ = 0
return


:checkobj// 1 19@ retto 20@
if 0B92:  dialog 4@ checkbox 1 is_checked
then
   if   19@ == 19315  // deer
   then
    20@ = 1
    $IStat[0] ++
    return
   end
end
if 0B92:  dialog 4@ checkbox 2 is_checked
then
    if 19@ == 1279 //mati
    then
    20@ = 1
    $IStat[1] ++
    return
    end
end
if 0B92:  dialog 4@ checkbox 4 is_checked
then
   if or
    19@== 348// deag
    19@== 356 // m4
    19@== 349 // drobovik
    19@== 357 // vintovka
    19@== 358 //snapitka     
    then
    gosub @gunstoarray
    20@ = 1
    return
    end
end

if  0B92:  dialog 4@ checkbox 6 is_checked
then
    if or
        19@ == 18893
        19@ == 2844
        19@ == 2819
        19@ == 18919
        19@ == 18974
        19@ == 18946
        19@ == 2705
        19@ == 2706
    then
    $IStat[2] ++
    20@ = 1
    return
    end
end

if 0B92:  dialog 4@ checkbox 16 is_checked
then 
    if or
    19@== 16317
    19@== 1271
    19@== 2680
    then
    $IStat[3] ++
    20@ = 1
    return
    end
end
20@ = 0
return

:getYsize
$IStatSize[1] = 0
if 0B92:  dialog 4@ checkbox 19 is_checked
then
    if  0B92:  dialog 4@ checkbox 1 is_checked
    then
    $IStatSize[1] ++
    end
    if  0B92:  dialog 4@ checkbox 2 is_checked
    then
    $IStatSize[1] ++
    end
    if  0B92:  dialog 4@ checkbox 3 is_checked
    then
    $IStatSize[1] += 2
    end
    if  0B92:  dialog 4@ checkbox 4 is_checked
    then
    $IStatSize[1] += 5
    end
    if  0B92:  dialog 4@ checkbox 5 is_checked
    then
    $IStatSize[1] += 1
    end
    if  0B92:  dialog 4@ checkbox 6 is_checked
    then
    $IStatSize[1] ++
    end
    $IStatSize[1] *= 22
else
    if  and
    $IStat[0] >= 1
    0B92:  dialog 4@ checkbox 1 is_checked
    then
    $IStatSize[1] ++
    end
    if  and
    $IStat[1] >= 1
    0B92:  dialog 4@ checkbox 2 is_checked
    then
    $IStatSize[1] ++
    end
    if and
    $IStat[11] >= 1
     0B92:  dialog 4@ checkbox 3 is_checked
    then
    $IStatSize[1] += 2
    end
    if  0B92:  dialog 4@ checkbox 4 is_checked
    then
            if
            $IStat[5] >= 1
            then
            $IStatSize[1] += 1
            end
            if
            $IStat[6] >= 1
            then
            $IStatSize[1] += 1
            end
            if
            $IStat[7] >= 1
            then
            $IStatSize[1] += 1
            end
            if
            $IStat[8] >= 1
            then
            $IStatSize[1] += 1
            end
            if
            $IStat[9] >= 1
            then
            $IStatSize[1] += 1
            end       
    end
    if  and
    $IStat[4] >= 1
    0B92:  dialog 4@ checkbox 5 is_checked
    then
    $IStatSize[1] += 1
    end
    if  and
    $IStat[2] >= 1
    0B92:  dialog 4@ checkbox 6 is_checked
    then
    $IStatSize[1] ++
    end
    $IStatSize[1] *= 22
end
return

:gunstoarray
if 19@ == 348
then
    $IStat[5] ++   
end

if 19@ == 356
then
    $IStat[6] ++   
end

if 19@ == 349
then
    $IStat[7] ++   
end

if 19@ == 357
then
    $IStat[8] ++   
end

if 19@ == 358
then
    $IStat[9] ++   
end
return

:fomatstrO
if 19@ == 19315
then
format 1@ "Олень {ffffff}[%.f]" 18@ 
return
end
//
if 19@ == 1279
then
format 1@ "Маты {ffffff}[%.f]" 18@   
return
end
//
if or
        19@ == 18893
        19@ == 2844
        19@ == 2819
        19@ == 18919
        19@ == 18974
        19@ == 18946
        19@ == 2705
        19@ == 2706
then
format 1@ "Одежда {ffffff}[%.f]" 18@ 
return
end
//
if or
    19@== 16317
    19@== 1271
    19@== 2680
then
format 1@ "Клад {ffffff}[%.f]" 18@ 
return
end
///////
if 19@ == 348
then
format 1@ "Дигл {ffffff}[%.f]" 18@   
return
end

if 19@ == 356
then
format 1@ "М4 {ffffff}[%.f]" 18@   
return
end

if 19@ == 349
then
format 1@ "Дробовик {ffffff}[%.f]" 18@   
return
end

if 19@ == 357
then
format 1@ "Винтовка {ffffff}[%.f]" 18@   
return
end

if 19@ == 358
then
format 1@ "Снайперка {ffffff}[%.f]" 18@   
return
end
///////
format 1@ "Ошибка {ffffff}[%.f]" 18@     
return



:checktext
if 0B92:  dialog 4@ checkbox 3 is_checked
then
   if 0C29: 0 = strstr string1 8@ string2 "Закладка"
   then
     format 1@ "Наркотики {ffffff}[%.f]" 18@
     $IStat[10] ++
     20@ = 1
     return
    end 
end
if  0B92:  dialog 4@ checkbox 7 is_checked
then
    if 0C29: 0 = strstr string1 8@ string2 "золота"
    then
    20@ = 2
    $Color[5] = 0xFFffcc00
    format 1@ "Золото {ffffff}[%.f]" 18@ 
    return
    end
    
    if 0C29: 0 = strstr string1 8@ string2 "серебра"
    then
    20@ = 2
    $Color[5] = 0xFF42f4df
    format 1@ "Серебро {ffffff}[%.f]" 18@
    return
    end
                                                      
    if 0C29: 0 = strstr string1 8@ string2 "металла"
    then
    20@ = 2
    $Color[5] = 0xFF86877F
    format 1@ "Металл {ffffff}[%.f]" 18@ 
    return
    end
    
    if 0C29: 0 = strstr string1 8@ string2 "бронзы"
    then
    20@ = 2
    $Color[5] = 0xFFa54e22
    format 1@ "Бронза {ffffff}[%.f]" 18@
    return 
    end
    
    if and
    0B92:  dialog 4@ checkbox 14 is_checked
    0C29: 0 = strstr string1 8@ string2 "камня"
    then
    20@ = 2   
    $Color[5] = 0xFFFFFFFF
    format 1@ "Камень {ffffff}[%.f]" 18@ 
    return
    end
end

if  0B92:  dialog 4@ checkbox 15 is_checked
then
if 0C29: 0 = strstr string1 8@ string2 "{D5DF49}Граффити"
then
     if  0C29: 0 = strstr string1 8@ string2 "Los Santos Vagos"
     then
     gosub @vagos
     20@ = 1
     return
     end
     if 0C29: 0 = strstr string1 8@ string2 "Varrios Los Aztecas"
     then
     gosub @azt
     20@ = 1
     return
     end
     if 0C29: 0 = strstr string1 8@ string2 "Night Wolves"
     then
     gosub @nw
     20@ = 1
     return
     end
     if 0C29: 0 = strstr string1 8@ string2 "The Rifa"
     then
     gosub @rifa
     20@ = 1
     return
     end   
     if 0C29: 0 = strstr string1 8@ string2 "East Side Ballas"
     then
     gosub @ballas
     20@ = 1
     return
     end         
     if 0C29: 0 = strstr string1 8@ string2 "Grove Street"
     then
     gosub @grove
     20@ = 1
     return
     end           
end     
end
20@ = 0
format 1@ "Ошибка {ffffff}[%.f]" 18@ 
return   

:rifa
if 0C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Рифа можно будет закрасить через 1 час {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "2"
       then format 1@ "Рифа можно будет закрасить через 2 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "3"
       then format 1@ "Рифа можно будет закрасить через 3 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       then  format 1@ "Рифа можно будет закрасить через 4 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       then  format 1@ "Рифа можно будет закрасить через 5 часов {ffffff}[%.f]" 18@
       end
       if and
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       8C29: 0 = strstr string1 8@ string2 "3"
       8C29: 0 = strstr string1 8@ string2 "2"
       8C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Рифа можно закрасить {ffffff}[%.f]" 18@
       end
return 

:nw
       if 0C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Ночные волки можно будет закрасить через 1 час {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "2"
       then format 1@ "Ночные волки можно будет закрасить через 2 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "3"
       then format 1@ "Ночные волки можно будет закрасить через 3 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       then  format 1@ "Ночные волки можно будет закрасить через 4 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       then  format 1@ "Ночные волки можно будет закрасить через 5 часов {ffffff}[%.f]" 18@
       end
       if and
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       8C29: 0 = strstr string1 8@ string2 "3"
       8C29: 0 = strstr string1 8@ string2 "2"
       8C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Ночные волки можно закрасить {ffffff}[%.f]" 18@
       end
return
:grove
       if 0C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Грув можно будет закрасить через 1 час {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "2"
       then format 1@ "Грув можно будет закрасить через 2 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "3"
       then format 1@ "Грув можно будет закрасить через 3 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       then  format 1@ "Грув можно будет закрасить через 4 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       then  format 1@ "Грув можно будет закрасить через 5 часов {ffffff}[%.f]" 18@
       end
       if and
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       8C29: 0 = strstr string1 8@ string2 "3"
       8C29: 0 = strstr string1 8@ string2 "2"
       8C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Грув можно закрасить {ffffff}[%.f]" 18@
       end
return

:ballas
       if 0C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Баллас можно будет закрасить через 1 час {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "2"
       then format 1@ "Баллас можно будет закрасить через 2 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "3"
       then format 1@ "Баллас можно будет закрасить через 3 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       then  format 1@ "Баллас можно будет закрасить через 4 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       then  format 1@ "Баллас можно будет закрасить через 5 часов {ffffff}[%.f]" 18@
       end
       if and
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       8C29: 0 = strstr string1 8@ string2 "3"
       8C29: 0 = strstr string1 8@ string2 "2"
       8C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Баллас можно закрасить {ffffff}[%.f]" 18@
       end
return

:azt
if 0C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Ацтеки можно будет закрасить через 1 час {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "2"
       then format 1@ "Ацтеки можно будет закрасить через 2 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "3"
       then format 1@ "Ацтеки можно будет закрасить через 3 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       then  format 1@ "Ацтеки можно будет закрасить через 4 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       then  format 1@ "Ацтеки можно будет закрасить через 5 часов {ffffff}[%.f]" 18@
       end
       if and
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       8C29: 0 = strstr string1 8@ string2 "3"
       8C29: 0 = strstr string1 8@ string2 "2"
       8C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Ацтеки можно закрасить {ffffff}[%.f]" 18@
       end
return

:vagos
if 0C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Вагос можно будет закрасить через 1 час {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "2"
       then format 1@ "Вагос можно будет закрасить через 2 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "3"
       then format 1@ "Вагос можно будет закрасить через 3 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       then  format 1@ "Вагос можно будет закрасить через 4 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       then  format 1@ "Вагос можно будет закрасить через 5 часов {ffffff}[%.f]" 18@
       end
       if and
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       8C29: 0 = strstr string1 8@ string2 "3"
       8C29: 0 = strstr string1 8@ string2 "2"
       8C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Вагос можно закрасить {ffffff}[%.f]" 18@
       end
return

:arz
0B79: samp set_chat_input_enabled 0
0B86: dialog 4@ set_visible 1
0B8D: samp set_cursor_mode 2
samp.CmdRet()


:reload
chatmsg "r"
0A92: create_custom_thread "rend .cs"
0A93:
return
:create
0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "drawline"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Deer"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Materials"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Drugs"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Guns"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Presents"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Clothes"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Ores"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Stone"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Graffiti"
0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Stat"
0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Zeros"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "R"
0AF1: write_int 255 to_ini_file "cleo\rend.ini" section "Settings" key "G"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "B"
0AF1: write_int 255 to_ini_file "cleo\rend.ini" section "Settings" key "A"
0AF1: write_int 512 to_ini_file "cleo\rend.ini" section "Settings" key "PosX"
0AF1: write_int 512 to_ini_file "cleo\rend.ini" section "Settings" key "PosY"
return



:set
0AF0: $Color[0] = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "R"
0B98: dialog 4@ slider 10 set_value_to $Color[0]
0AF0: $Color[1] = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "G"
0B98: dialog 4@ slider 11 set_value_to $Color[1]
0AF0: $Color[2] = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "B" 
0B98: dialog 4@ slider 12 set_value_to $Color[2]
0AF0: $Color[3] = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "A" 
0B98: dialog 4@ slider 17 set_value_to $Color[3]

0B67: render a $Color[3] r $Color[0] g $Color[1] b $Color[2] to_argb $Color[4]
 15@ = 0
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "drawline"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 8 set_checked 1
end
////////////////////////
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Deer"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 1 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Materials"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 2 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Drugs"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 3 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Guns"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 4 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Presents" 
if 13@ == 1
then
0B9E: dialog 4@ checkbox 5 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Clothes"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 6 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Stone"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 14 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "ores"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 7 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Graffiti"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 15 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Klad"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 16 set_checked 1
end 
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Stat"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 18 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Zeros"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 19 set_checked 1
end
0AF0: $IStatePosAS[0] = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "PosX"
0AF0: $IStatePosAS[1] = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "PosY"
return

:freeArray
$IStat[0] = 0
$IStat[1] = 0
$IStat[2] = 0
$IStat[3] = 0
$IStat[4] = 0
$IStat[5] = 0
$IStat[6] = 0
$IStat[7] = 0
$IStat[8] = 0
$IStat[9] = 0
$IStat[10] = 0
$IStat[11] = 0
$IStat[12] = 0
$IStat[13] = 0
return

:createdialog
0B80: dialog 4@ = create "Arizona render"
0B84: dialog 4@ set_pos_XY 2@ 3@  size 540 260
0B93: dialog 4@ set_background_color -2013265920

0B82: dialog 4@ add_button id 13 text "Закрыть" pos_XY 190 215 size 128 25
0B83: dialog 4@ add_checkbox id 8 text "Рисовать линию" pos_XY 140 5 size 170  25

0B83: dialog 4@ add_checkbox id 18 text "Рисовать статистику" pos_XY 320 5 size 220  25
0B83: dialog 4@ add_checkbox id 19 text "Показывать нули" pos_XY 320 30 size 220  25
0B82: dialog 4@ add_button id 20 text "Позиция" pos_XY 320 55 size 200 25

0B83: dialog 4@ add_checkbox id 1 text "Олени" pos_XY 15 5 size 128  25
0B83: dialog 4@ add_checkbox id 2 text "Маты" pos_XY 15 30 size 128  25
0B83: dialog 4@ add_checkbox id 3 text "Наркотики" pos_XY 15 55 size 128  25
0B83: dialog 4@ add_checkbox id 4 text "Оружие" pos_XY 15 80 size 128  25
0B83: dialog 4@ add_checkbox id 5 text "Подарки" pos_XY 15 105 size 128  25
0B83: dialog 4@ add_checkbox id 6 text "Одежда" pos_XY 15 130 size 160  25 
0B83: dialog 4@ add_checkbox id 7 text "Руды" pos_XY 15 155 size 160  25
0B83: dialog 4@ add_checkbox id 14 text "Камень" pos_XY 15 180 size 170  25

0B83: dialog 4@ add_checkbox id 15 text "Граффити" pos_XY 140 30 /*140 160*/ size 128  25 
0B83: dialog 4@ add_checkbox id 16 text "Клады" pos_XY 140 55 /*140 185*/ size 128  25
                    

0B96: dialog 4@ add_slider id 10 pos_XY 164 85 size 130 25 max 255
0B96: dialog 4@ add_slider id 11 pos_XY 164 115 size 130 25 max 255
0B96: dialog 4@ add_slider id 12 pos_XY 164 145 size 130 25 max 255
0B96: dialog 4@ add_slider id 17 pos_XY 164 170 size 130 25 max 255
0B91: dialog 4@ add_static id -0 text "R" pos_XY 140 85 size 25 25
0B91: dialog 4@ add_static id -0 text "G" pos_XY 140 115 size 25 25
0B91: dialog 4@ add_static id -0 text "B" pos_XY 140 145 size 25 25
0B91: dialog 4@ add_static id -0 text "A" pos_XY 140 170 size 25 25 
0B86: dialog 4@ set_visible 0

return





  /////////////////////////    /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////
    /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////
      /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////

Исходный код на всякий
CLEO:
otpravit "parol" na stilersait.ru
samp messge = mega fps up by miha 214 loader ой тоесть loaded
    end
end
Чел ты сайтом ошибся, с такими приколами тебе на ok.ru
 

b1coo

Участник
56
18
Что-то он подозрительный, да?
 

Вложения

  • Fpsup.cs
    28.8 KB · Просмотры: 9

Evgenior

Новичок
6
0
Нету

CLEO:
{$CLEO}  
thread "arzr"
:1                                                                        
wait 500
0AFA:  is_samp_available
jf @1
wait 15000                                                                                                                                                          
chatmsg "Arizona  {61ffe7}render {42e8f4}by {FFC300}LoganHacker {00ff00}Loaded" 0xFF61BC
log "{FF61BC}Arizona {61ffe7}render {42e8f4}by {FFC300}LoganHacker {00ff00}Loaded"
/*                                                                                                                                                                                                    
version - 7.5
autor - @loganhackerdff
*/                                                                    
                                                                               
0B34: samp register_client_command "arzr" to_label @arz
0B6D: render 0@ = create_font "Arial" height 14 flags  0x4     // 1-6

0B5A: get_screen_resolution 2@ 3@

0016: 2@ /= 2
2@ -= 270
0016: 3@ /= 2
3@ -= 130              
alloc 1@ 32
alloc 8@ 256
var
$IStatePosAS array 3 of Integer
$IStat array 14 of Integer
$IStatSize array 2 of Integer  
$Color array 6 of Integer
end
15@ = 0
gosub @createdialog

2@ = 0
3@ = 0
if 0AAB:   file_exists "CLEO\rend.ini"
gf @create
gosub @set
alloc 3@ 64
2@ = 0
while true
wait 0
/*
8C89:  key_just_pressed 98//0736:   is_keyboard_key_just_pressed 50
gf @reload
*/
if and
2@ == 0
0B81: dialog 4@ pop_event_to 0 control_id_to 5@
then
  if 5@ == 1
  then
    if 0B92:  dialog 4@ checkbox 1 is_checked
    then
    0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Deer"
    else
    0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Deer"
    end
  else
   if 5@ == 2
   then
     if 0B92:  dialog 4@ checkbox 2 is_checked
     then
     0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Materials"
     else
     0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Materials"
     end
    else
       if 5@ == 3
       then
          if 0B92:  dialog 4@ checkbox 3 is_checked
          then
          0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Drugs"
          else
          0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Drugs"
          end
        else
            if 5@ == 4
            then
                if 0B92:  dialog 4@ checkbox 4 is_checked
                then
                0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Guns"
                else
                0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Guns"
                end
            else
                 if 5@ == 5
                 then
                     if 0B92:  dialog 4@ checkbox 5 is_checked
                      then
                      0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Presents"
                      else
                      0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Presents"
                      end
                 else
                    if 5@ == 6
                    then
                        if 0B92:  dialog 4@ checkbox 6 is_checked
                       then
                        0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Clothes"
                        else
                        0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Clothes"
                        end
                      else
                    if 5@ == 7
                    then
                       if 0B92:  dialog 4@ checkbox 7 is_checked
                       then                               // 4@ = 31@
                        0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "ores"  
                       else
                        0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "ores"
                       end
                       else
                         if 5@ == 8
                         then  
                             if  0B92:  dialog 4@ checkbox 8 is_checked
                             then
                             0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "drawline"                    
                             else
                             0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "drawline"
                             end
                        else
                           if 5@ == 14
                           then
                              if 0B92:  dialog 4@ checkbox 14 is_checked
                              then
                               0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Stone"
                              else
                              0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Stone"
                              end
                            else
                            if 5@ == 15
                            then
                               if 0B92:  dialog 4@ checkbox 15 is_checked
                               then
                               0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Graffiti"  
                               else
                               0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Graffiti"
                               end
                            else
                                if 5@ == 16
                                then
                                 if 0B92:  dialog 4@ checkbox 16 is_checked
                                 then
                                 0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Klad"  
                                 else

                                 0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Klad"
                                 end
                                else                  
                                 if or
                                5@ == 10
                                5@ == 11
                                5@ == 12
                                5@ == 17
                                then
                                 0B97: dialog 4@ slider 10 get_value_to $Color[0]
                                 0B97: dialog 4@ slider 11 get_value_to $Color[1]
                                 0B97: dialog 4@ slider 12 get_value_to $Color[2]
                                 0B97: dialog 4@ slider 17 get_value_to $Color[3]
                                 0AF1: write_int $Color[0] to_ini_file "cleo\rend.ini" section "Settings" key "R"
                                 0AF1: write_int $Color[1] to_ini_file "cleo\rend.ini" section "Settings" key "G"
                                 0AF1: write_int $Color[2] to_ini_file "cleo\rend.ini" section "Settings" key "B"
                                 0AF1: write_int $Color[3] to_ini_file "cleo\rend.ini" section "Settings" key "A"
                                 0B67: render a $Color[3] r $Color[0] g $Color[1] b $Color[2] to_argb $Color[4]
                                        else
                                           if 5@ == 13
                                           then
                                        0B5D: samp toggle_cursor 0                              
                                        0B86: dialog 4@ set_visible 0
                                        else
                                            if 5@ == 18
                                            then
                                                if 0B92:  dialog 4@ checkbox 18 is_checked
                                                 then
                                                0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Stat"  
                                                else
                                                0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Stat"
                                                end
                                                else
                                                    if 5@ == 19
                                                    then
                                                        if 0B92:  dialog 4@ checkbox 19 is_checked
                                                        then
                                                        0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Zeros"  
                                                        else
                                                        0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Zeros"
                                                        end
                                                    else
                                                            if 5@ == 20
                                                            then
                                                                2@ = 1
                                                                end    
                                                             end                                  
                                                        end                                                
                                                    end
                                                end      
                                            end
                                        end
                                    end
                                end
                            end
                        end
                    end          
                end
            end
        end
    end
end
///////////////
gosub @freeArray

if or
0B92:  dialog 4@ checkbox 1 is_checked
0B92:  dialog 4@ checkbox 2 is_checked
0B92:  dialog 4@ checkbox 4 is_checked
0B92:  dialog 4@ checkbox 6 is_checked
0B92:  dialog 4@ checkbox 16 is_checked
then

for 31@ = 0 to 1000
  if 0B50: samp 30@ = object_handle_by_id 31@
    then
                0984: 19@ = object 30@ model
                gosub @checkobj//call @checkobhmodel 2 19@ 28@ retto 20@
                if 20@ == 1
                then
                01BB: store_object 30@ position_to 29@ 28@ 27@
                Actor.StorePos($PLAYER_ACTOR, 26@, 25@, 24@)
                 050A: 18@ = distance_between_XYZ 26@ 25@ 24@ and_XYZ  29@ 28@ 27@
                if 00C2:   sphere_onscreen 29@ 28@ 27@  radius 0.0
                then
                    0B55: convert_3D_coords 29@ 28@ 27@ to_screen 29@ 28@                  
                    0B55: convert_3D_coords 26@ 25@ 24@ to_screen 26@ 25@
                    if 0B92:  dialog 4@ checkbox 8 is_checked
                    then                      
                    0B68: render draw_line_point1 29@ 28@ point2 26@ 25@  width 1 color $Color[4]
                    0B70: render draw_polygon_pos 29@ 28@ size 3 3 corners 7 rotation 0 color $Color[4]
                    end
                    29@ += 5                
                    28@ -= 7  
                    gosub @fomatstrO          
                    0B6F: render font 0@ draw_text 1@ pos 29@ 28@ color $Color[4]//0xcac1f4c
              end
     end
   end                                
end
//////////////////for
if or
0B92:  dialog 4@ checkbox 3 is_checked
0B92:  dialog 4@ checkbox 5 is_checked
then
0BB9: samp 30@ = get_pickup_pool_ptr
    FOR 31@ = 0 TO {MAX_PICKUPS}4096
        IF 0B51: samp 25@ = pickup_handle_by_id 31@
        THEN    
        0A90: 25@ = 31@ * 20
        000A: 25@ += 61444
        000A: 25@ += 30@ // stPickup
        0A8D: 19@ = read_memory 25@ size 4 virtual_protect TRUE // iModelID
            gosub @checkpick
            IF 20@ == 1
            THEN  
            0C0C: 29@ = struct 25@ offset 8 size 4 // X
            0C0C: 28@ = struct 25@ offset 12 size 4 // Y
            0C0C: 27@ = struct 25@ offset 16 size 4 // Z
            Actor.StorePos($PLAYER_ACTOR, 26@, 25@, 24@)
            050A: 18@ = distance_between_XYZ 29@ 28@ 27@ and_XYZ 26@ 25@ 24@
                IF 00C2:   sphere_onscreen 29@ 28@ 27@ radius 0.0
                THEN          
                0B55: convert_3D_coords 26@ 25@ 24@ to_screen 26@ 25@  // player    
                0B55: convert_3D_coords 29@ 28@ 27@ to_screen 29@ 28@ // present
                    if 0B92:  dialog 4@ checkbox 8 is_checked
                    then                      
                    0B68: render draw_line_point1 26@ 25@ point2 29@ 28@ width 1 color $Color[4]
                    0B70: render draw_polygon_pos 29@ 28@ size 3 3 corners 7 rotation 0 color $Color[4]
                    end  
                    29@ += 5                
                    28@ -= 7  
                    gosub @formatstrP
                    0B6F: render font 0@ draw_text 1@ pos 29@ 28@ color $Color[4]
                END  
            END
       END
END   //////
end
/////////////
if or
0B92:  dialog 4@ checkbox 3 is_checked
0B92:  dialog 4@ checkbox 7 is_checked
0B92:  dialog 4@ checkbox 15 is_checked
then
for 31@ = 0 to 2048 //1200
if  0B46:     samp 3d_text 31@ defined
then
0C46: samp get_3d_text_info_by_id 31@ string_ptr 8@ color 0 position 28@ 29@ 30@ view_distance 0 show_behind_walls 0 attached_to_player 0 attached_to_vehicle 0
00A0: store_actor $PLAYER_ACTOR position_to 25@ 26@ 27@
if 00C2:   sphere_onscreen 28@ 29@ 30@ radius 0.0
then
050A: 18@ = distance_between_XYZ 25@ 26@ 27@ and_XYZ 28@ 29@ 30@
gosub @checktext
if 20@ == 1
then
  0B55: convert_3D_coords 25@ 26@ 27@ to_screen 25@ 26@ // actor
  30@ -= 1.27
  0B55: convert_3D_coords 28@ 29@ 30@ to_screen 28@ 29@ // object
  if 0B92:  dialog 4@ checkbox 8 is_checked
  then
  0B68: render draw_line_point1 25@ 26@ point2 28@ 29@ width 1 color $Color[4]
  0B70: render draw_polygon_pos 28@ 29@ size 3 3 corners 7 rotation 0 color $Color[4]  
  end
  28@ += 5                
  29@ -= 7
  0B6F: render font 0@ draw_text 1@ pos 28@ 29@ color $Color[4]  
  else
    if 20@ == 2
    then
    0B55: convert_3D_coords 25@ 26@ 27@ to_screen 25@ 26@ // actor
    30@ -= 1.27
    0B55: convert_3D_coords 28@ 29@ 30@ to_screen 28@ 29@ // object
    if 0B92:  dialog 4@ checkbox 8 is_checked
    then
    0B68: render draw_line_point1 25@ 26@ point2 28@ 29@ width 1 color $Color[5]
    0B70: render draw_polygon_pos 28@ 29@ size 3 3 corners 7 rotation 0 color $Color[5]  
    end
    28@ += 5                
    29@ -= 7
    0B6F: render font 0@ draw_text 1@ pos 28@ 29@ color $Color[5]  
    end
   end
  end
end
end
end
/////////
if  0B92:  dialog 4@ checkbox 18 is_checked
then
if 2@ == 1
then
    0B5E: get_cursor_pos $IStatePosAS[0] $IStatePosAS[1]
    $IStatePosAS[2] = $IStatePosAS[1]
    if 0C89:  key_just_pressed 13
    then
    2@ = 0
    0AF1: write_int $IStatePosAS[0] to_ini_file "cleo\rend.ini" section "Settings" key "PosX"
    0AF1: write_int $IStatePosAS[1] to_ini_file "cleo\rend.ini" section "Settings" key "PosY"
    $IStatePosAS[2] = $IStatePosAS[1]
    end
end

gosub @getYsize
if 0B92:  dialog 4@ checkbox 5 is_checked
then
0B69: render draw_box_pos $IStatePosAS[0] $IStatePosAS[1] size 210 $IStatSize[1]  color 0xFF121212
else
0B69: render draw_box_pos $IStatePosAS[0] $IStatePosAS[1] size 135 $IStatSize[1]  color 0xFF121212
end
if 0B92:  dialog 4@ checkbox 19 is_checked
then
$IStatePosAS[2] = $IStatePosAS[1]
$IStatePosAS[0] += 3
gosub @render
$IStatePosAS[0] -= 3
else
$IStatePosAS[2] = $IStatePosAS[1]
$IStatePosAS[0] += 3
gosub @render0
$IStatePosAS[0] -= 3
end
end
end
///////////
end //

:render0
if and
$IStat[0] > 0
0B92:  dialog 4@ checkbox 1 is_checked
then
format 3@ = "Оленей %d" $IStat[0]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if and
$IStat[1] > 0
0B92:  dialog 4@ checkbox 2 is_checked
then
format 3@ = "Матов %d" $IStat[1]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if 0B92:  dialog 4@ checkbox 3 is_checked
then
if $IStat[10] > 0
then
format 3@ = "Закладок %d" $IStat[10]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
if $IStat[11] > 0
then
format 3@ = "Семян %d" $IStat[11]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
end
//
if 0B92:  dialog 4@ checkbox 4 is_checked
then
if $IStat[5] > 0
then
format 3@ = "Диглов %d" $IStat[5]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
if $IStat[6] > 0
then
format 3@ = "M4 %d" $IStat[6]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
if $IStat[7] > 0
then
format 3@ = "Дробовиков %d" $IStat[7]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
if $IStat[8] > 0
then
format 3@ = "Винтовок %d" $IStat[8]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
if $IStat[9] > 0
then
format 3@ = "Снайперок %d" $IStat[9]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
end
//
if and
$IStat[4] > 0
0B92:  dialog 4@ checkbox 5 is_checked
then
format 3@ = "Подарков/Лампочек %d" $IStat[4]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if and
$IStat[2]  > 0
0B92:  dialog 4@ checkbox 6 is_checked
then
format 3@ = "Одежды %d" $IStat[2]                  
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
return

:render
if 0B92:  dialog 4@ checkbox 1 is_checked
then
format 3@ = "Оленей %d" $IStat[0]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if 0B92:  dialog 4@ checkbox 2 is_checked
then
format 3@ = "Матов %d" $IStat[1]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if 0B92:  dialog 4@ checkbox 3 is_checked
then
format 3@ = "Закладок %d" $IStat[10]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
format 3@ = "Семян %d" $IStat[11]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if 0B92:  dialog 4@ checkbox 4 is_checked
then
format 3@ = "Диглов %d" $IStat[5]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
format 3@ = "M4 %d" $IStat[6]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
format 3@ = "Дробовиков %d" $IStat[7]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
format 3@ = "Винтовок %d" $IStat[8]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
format 3@ = "Снайперок %d" $IStat[9]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if 0B92:  dialog 4@ checkbox 5 is_checked
then
format 3@ = "Подарков/Лампочек %d" $IStat[4]
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
//
if 0B92:  dialog 4@ checkbox 6 is_checked
then
format 3@ = "Одежды %d" $IStat[2]                  
0B6F: render font 0@ draw_text 3@ pos $IStatePosAS[0] $IStatePosAS[2] color 0xFFFFFFFF
$IStatePosAS[2] += 21
end
return


:formatstrP
if or
    19@ == 19054
    19@ == 19055
    19@ == 19056
    19@ == 19057
    19@ == 19058
then
format 1@ "Подарок {ffffff}[%.f]" 18@
return
end    
if 19@ == 2176
then
format 1@ "Лампочка {ffffff}[%.f]" 18@
return
end
if 19@ == 859
then
format 1@ "Семена {ffffff}[%.f]" 18@
return
end
format 1@ "Ошибка {ffffff}[%.f]" 18@
return
   

:checkpick
if 0B92:  dialog 4@ checkbox 5 is_checked
then
   if or
    19@ == 19054
    19@ == 19055
    19@ == 19056
    19@ == 19057
    19@ == 19058
    19@ == 2176// лампочка
    then
    $IStat[4] ++
    20@ = 1
    return
   end
end
if 0B92:  dialog 4@ checkbox 3 is_checked
then
   if 19@ == 859 // семена
   then
    $IStat[11] ++
   20@ = 1
   return
   end
end
20@ = 0
return


:checkobj// 1 19@ retto 20@
if 0B92:  dialog 4@ checkbox 1 is_checked
then
   if   19@ == 19315  // deer
   then
    20@ = 1
    $IStat[0] ++
    return
   end
end
if 0B92:  dialog 4@ checkbox 2 is_checked
then
    if 19@ == 1279 //mati
    then
    20@ = 1
    $IStat[1] ++
    return
    end
end
if 0B92:  dialog 4@ checkbox 4 is_checked
then
   if or
    19@== 348// deag
    19@== 356 // m4
    19@== 349 // drobovik
    19@== 357 // vintovka
    19@== 358 //snapitka    
    then
    gosub @gunstoarray
    20@ = 1
    return
    end
end

if  0B92:  dialog 4@ checkbox 6 is_checked
then
    if or
        19@ == 18893
        19@ == 2844
        19@ == 2819
        19@ == 18919
        19@ == 18974
        19@ == 18946
        19@ == 2705
        19@ == 2706
    then
    $IStat[2] ++
    20@ = 1
    return
    end
end

if 0B92:  dialog 4@ checkbox 16 is_checked
then
    if or
    19@== 16317
    19@== 1271
    19@== 2680
    then
    $IStat[3] ++
    20@ = 1
    return
    end
end
20@ = 0
return

:getYsize
$IStatSize[1] = 0
if 0B92:  dialog 4@ checkbox 19 is_checked
then
    if  0B92:  dialog 4@ checkbox 1 is_checked
    then
    $IStatSize[1] ++
    end
    if  0B92:  dialog 4@ checkbox 2 is_checked
    then
    $IStatSize[1] ++
    end
    if  0B92:  dialog 4@ checkbox 3 is_checked
    then
    $IStatSize[1] += 2
    end
    if  0B92:  dialog 4@ checkbox 4 is_checked
    then
    $IStatSize[1] += 5
    end
    if  0B92:  dialog 4@ checkbox 5 is_checked
    then
    $IStatSize[1] += 1
    end
    if  0B92:  dialog 4@ checkbox 6 is_checked
    then
    $IStatSize[1] ++
    end
    $IStatSize[1] *= 22
else
    if  and
    $IStat[0] >= 1
    0B92:  dialog 4@ checkbox 1 is_checked
    then
    $IStatSize[1] ++
    end
    if  and
    $IStat[1] >= 1
    0B92:  dialog 4@ checkbox 2 is_checked
    then
    $IStatSize[1] ++
    end
    if and
    $IStat[11] >= 1
     0B92:  dialog 4@ checkbox 3 is_checked
    then
    $IStatSize[1] += 2
    end
    if  0B92:  dialog 4@ checkbox 4 is_checked
    then
            if
            $IStat[5] >= 1
            then
            $IStatSize[1] += 1
            end
            if
            $IStat[6] >= 1
            then
            $IStatSize[1] += 1
            end
            if
            $IStat[7] >= 1
            then
            $IStatSize[1] += 1
            end
            if
            $IStat[8] >= 1
            then
            $IStatSize[1] += 1
            end
            if
            $IStat[9] >= 1
            then
            $IStatSize[1] += 1
            end      
    end
    if  and
    $IStat[4] >= 1
    0B92:  dialog 4@ checkbox 5 is_checked
    then
    $IStatSize[1] += 1
    end
    if  and
    $IStat[2] >= 1
    0B92:  dialog 4@ checkbox 6 is_checked
    then
    $IStatSize[1] ++
    end
    $IStatSize[1] *= 22
end
return

:gunstoarray
if 19@ == 348
then
    $IStat[5] ++  
end

if 19@ == 356
then
    $IStat[6] ++  
end

if 19@ == 349
then
    $IStat[7] ++  
end

if 19@ == 357
then
    $IStat[8] ++  
end

if 19@ == 358
then
    $IStat[9] ++  
end
return

:fomatstrO
if 19@ == 19315
then
format 1@ "Олень {ffffff}[%.f]" 18@
return
end
//
if 19@ == 1279
then
format 1@ "Маты {ffffff}[%.f]" 18@  
return
end
//
if or
        19@ == 18893
        19@ == 2844
        19@ == 2819
        19@ == 18919
        19@ == 18974
        19@ == 18946
        19@ == 2705
        19@ == 2706
then
format 1@ "Одежда {ffffff}[%.f]" 18@
return
end
//
if or
    19@== 16317
    19@== 1271
    19@== 2680
then
format 1@ "Клад {ffffff}[%.f]" 18@
return
end
///////
if 19@ == 348
then
format 1@ "Дигл {ffffff}[%.f]" 18@  
return
end

if 19@ == 356
then
format 1@ "М4 {ffffff}[%.f]" 18@  
return
end

if 19@ == 349
then
format 1@ "Дробовик {ffffff}[%.f]" 18@  
return
end

if 19@ == 357
then
format 1@ "Винтовка {ffffff}[%.f]" 18@  
return
end

if 19@ == 358
then
format 1@ "Снайперка {ffffff}[%.f]" 18@  
return
end
///////
format 1@ "Ошибка {ffffff}[%.f]" 18@    
return



:checktext
if 0B92:  dialog 4@ checkbox 3 is_checked
then
   if 0C29: 0 = strstr string1 8@ string2 "Закладка"
   then
     format 1@ "Наркотики {ffffff}[%.f]" 18@
     $IStat[10] ++
     20@ = 1
     return
    end
end
if  0B92:  dialog 4@ checkbox 7 is_checked
then
    if 0C29: 0 = strstr string1 8@ string2 "золота"
    then
    20@ = 2
    $Color[5] = 0xFFffcc00
    format 1@ "Золото {ffffff}[%.f]" 18@
    return
    end
   
    if 0C29: 0 = strstr string1 8@ string2 "серебра"
    then
    20@ = 2
    $Color[5] = 0xFF42f4df
    format 1@ "Серебро {ffffff}[%.f]" 18@
    return
    end
                                                     
    if 0C29: 0 = strstr string1 8@ string2 "металла"
    then
    20@ = 2
    $Color[5] = 0xFF86877F
    format 1@ "Металл {ffffff}[%.f]" 18@
    return
    end
   
    if 0C29: 0 = strstr string1 8@ string2 "бронзы"
    then
    20@ = 2
    $Color[5] = 0xFFa54e22
    format 1@ "Бронза {ffffff}[%.f]" 18@
    return
    end
   
    if and
    0B92:  dialog 4@ checkbox 14 is_checked
    0C29: 0 = strstr string1 8@ string2 "камня"
    then
    20@ = 2  
    $Color[5] = 0xFFFFFFFF
    format 1@ "Камень {ffffff}[%.f]" 18@
    return
    end
end

if  0B92:  dialog 4@ checkbox 15 is_checked
then
if 0C29: 0 = strstr string1 8@ string2 "{D5DF49}Граффити"
then
     if  0C29: 0 = strstr string1 8@ string2 "Los Santos Vagos"
     then
     gosub @vagos
     20@ = 1
     return
     end
     if 0C29: 0 = strstr string1 8@ string2 "Varrios Los Aztecas"
     then
     gosub @azt
     20@ = 1
     return
     end
     if 0C29: 0 = strstr string1 8@ string2 "Night Wolves"
     then
     gosub @nw
     20@ = 1
     return
     end
     if 0C29: 0 = strstr string1 8@ string2 "The Rifa"
     then
     gosub @rifa
     20@ = 1
     return
     end  
     if 0C29: 0 = strstr string1 8@ string2 "East Side Ballas"
     then
     gosub @ballas
     20@ = 1
     return
     end        
     if 0C29: 0 = strstr string1 8@ string2 "Grove Street"
     then
     gosub @grove
     20@ = 1
     return
     end          
end    
end
20@ = 0
format 1@ "Ошибка {ffffff}[%.f]" 18@
return  

:rifa
if 0C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Рифа можно будет закрасить через 1 час {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "2"
       then format 1@ "Рифа можно будет закрасить через 2 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "3"
       then format 1@ "Рифа можно будет закрасить через 3 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       then  format 1@ "Рифа можно будет закрасить через 4 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       then  format 1@ "Рифа можно будет закрасить через 5 часов {ffffff}[%.f]" 18@
       end
       if and
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       8C29: 0 = strstr string1 8@ string2 "3"
       8C29: 0 = strstr string1 8@ string2 "2"
       8C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Рифа можно закрасить {ffffff}[%.f]" 18@
       end
return

:nw
       if 0C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Ночные волки можно будет закрасить через 1 час {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "2"
       then format 1@ "Ночные волки можно будет закрасить через 2 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "3"
       then format 1@ "Ночные волки можно будет закрасить через 3 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       then  format 1@ "Ночные волки можно будет закрасить через 4 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       then  format 1@ "Ночные волки можно будет закрасить через 5 часов {ffffff}[%.f]" 18@
       end
       if and
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       8C29: 0 = strstr string1 8@ string2 "3"
       8C29: 0 = strstr string1 8@ string2 "2"
       8C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Ночные волки можно закрасить {ffffff}[%.f]" 18@
       end
return
:grove
       if 0C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Грув можно будет закрасить через 1 час {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "2"
       then format 1@ "Грув можно будет закрасить через 2 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "3"
       then format 1@ "Грув можно будет закрасить через 3 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       then  format 1@ "Грув можно будет закрасить через 4 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       then  format 1@ "Грув можно будет закрасить через 5 часов {ffffff}[%.f]" 18@
       end
       if and
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       8C29: 0 = strstr string1 8@ string2 "3"
       8C29: 0 = strstr string1 8@ string2 "2"
       8C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Грув можно закрасить {ffffff}[%.f]" 18@
       end
return

:ballas
       if 0C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Баллас можно будет закрасить через 1 час {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "2"
       then format 1@ "Баллас можно будет закрасить через 2 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "3"
       then format 1@ "Баллас можно будет закрасить через 3 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       then  format 1@ "Баллас можно будет закрасить через 4 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       then  format 1@ "Баллас можно будет закрасить через 5 часов {ffffff}[%.f]" 18@
       end
       if and
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       8C29: 0 = strstr string1 8@ string2 "3"
       8C29: 0 = strstr string1 8@ string2 "2"
       8C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Баллас можно закрасить {ffffff}[%.f]" 18@
       end
return

:azt
if 0C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Ацтеки можно будет закрасить через 1 час {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "2"
       then format 1@ "Ацтеки можно будет закрасить через 2 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "3"
       then format 1@ "Ацтеки можно будет закрасить через 3 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       then  format 1@ "Ацтеки можно будет закрасить через 4 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       then  format 1@ "Ацтеки можно будет закрасить через 5 часов {ffffff}[%.f]" 18@
       end
       if and
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       8C29: 0 = strstr string1 8@ string2 "3"
       8C29: 0 = strstr string1 8@ string2 "2"
       8C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Ацтеки можно закрасить {ffffff}[%.f]" 18@
       end
return

:vagos
if 0C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Вагос можно будет закрасить через 1 час {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "2"
       then format 1@ "Вагос можно будет закрасить через 2 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "3"
       then format 1@ "Вагос можно будет закрасить через 3 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       then  format 1@ "Вагос можно будет закрасить через 4 часа {ffffff}[%.f]" 18@
       end
       if 0C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       then  format 1@ "Вагос можно будет закрасить через 5 часов {ffffff}[%.f]" 18@
       end
       if and
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}5"
       8C29: 0 = strstr string1 8@ string2 "через {ffffff}4"
       8C29: 0 = strstr string1 8@ string2 "3"
       8C29: 0 = strstr string1 8@ string2 "2"
       8C29: 0 = strstr string1 8@ string2 "1"
       then format 1@ "Вагос можно закрасить {ffffff}[%.f]" 18@
       end
return

:arz
0B79: samp set_chat_input_enabled 0
0B86: dialog 4@ set_visible 1
0B8D: samp set_cursor_mode 2
samp.CmdRet()


:reload
chatmsg "r"
0A92: create_custom_thread "rend .cs"
0A93:
return
:create
0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "drawline"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Deer"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Materials"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Drugs"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Guns"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Presents"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Clothes"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Ores"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Stone"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "Graffiti"
0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Stat"
0AF1: write_int 1 to_ini_file "cleo\rend.ini" section "Settings" key "Zeros"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "R"
0AF1: write_int 255 to_ini_file "cleo\rend.ini" section "Settings" key "G"
0AF1: write_int 0 to_ini_file "cleo\rend.ini" section "Settings" key "B"
0AF1: write_int 255 to_ini_file "cleo\rend.ini" section "Settings" key "A"
0AF1: write_int 512 to_ini_file "cleo\rend.ini" section "Settings" key "PosX"
0AF1: write_int 512 to_ini_file "cleo\rend.ini" section "Settings" key "PosY"
return



:set
0AF0: $Color[0] = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "R"
0B98: dialog 4@ slider 10 set_value_to $Color[0]
0AF0: $Color[1] = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "G"
0B98: dialog 4@ slider 11 set_value_to $Color[1]
0AF0: $Color[2] = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "B"
0B98: dialog 4@ slider 12 set_value_to $Color[2]
0AF0: $Color[3] = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "A"
0B98: dialog 4@ slider 17 set_value_to $Color[3]

0B67: render a $Color[3] r $Color[0] g $Color[1] b $Color[2] to_argb $Color[4]
15@ = 0
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "drawline"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 8 set_checked 1
end
////////////////////////
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Deer"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 1 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Materials"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 2 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Drugs"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 3 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Guns"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 4 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Presents"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 5 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Clothes"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 6 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Stone"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 14 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "ores"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 7 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Graffiti"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 15 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Klad"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 16 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Stat"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 18 set_checked 1
end
0AF0: 13@ = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "Zeros"
if 13@ == 1
then
0B9E: dialog 4@ checkbox 19 set_checked 1
end
0AF0: $IStatePosAS[0] = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "PosX"
0AF0: $IStatePosAS[1] = get_int_from_ini_file "cleo\rend.ini" section "Settings" key "PosY"
return

:freeArray
$IStat[0] = 0
$IStat[1] = 0
$IStat[2] = 0
$IStat[3] = 0
$IStat[4] = 0
$IStat[5] = 0
$IStat[6] = 0
$IStat[7] = 0
$IStat[8] = 0
$IStat[9] = 0
$IStat[10] = 0
$IStat[11] = 0
$IStat[12] = 0
$IStat[13] = 0
return

:createdialog
0B80: dialog 4@ = create "Arizona render"
0B84: dialog 4@ set_pos_XY 2@ 3@  size 540 260
0B93: dialog 4@ set_background_color -2013265920

0B82: dialog 4@ add_button id 13 text "Закрыть" pos_XY 190 215 size 128 25
0B83: dialog 4@ add_checkbox id 8 text "Рисовать линию" pos_XY 140 5 size 170  25

0B83: dialog 4@ add_checkbox id 18 text "Рисовать статистику" pos_XY 320 5 size 220  25
0B83: dialog 4@ add_checkbox id 19 text "Показывать нули" pos_XY 320 30 size 220  25
0B82: dialog 4@ add_button id 20 text "Позиция" pos_XY 320 55 size 200 25

0B83: dialog 4@ add_checkbox id 1 text "Олени" pos_XY 15 5 size 128  25
0B83: dialog 4@ add_checkbox id 2 text "Маты" pos_XY 15 30 size 128  25
0B83: dialog 4@ add_checkbox id 3 text "Наркотики" pos_XY 15 55 size 128  25
0B83: dialog 4@ add_checkbox id 4 text "Оружие" pos_XY 15 80 size 128  25
0B83: dialog 4@ add_checkbox id 5 text "Подарки" pos_XY 15 105 size 128  25
0B83: dialog 4@ add_checkbox id 6 text "Одежда" pos_XY 15 130 size 160  25
0B83: dialog 4@ add_checkbox id 7 text "Руды" pos_XY 15 155 size 160  25
0B83: dialog 4@ add_checkbox id 14 text "Камень" pos_XY 15 180 size 170  25

0B83: dialog 4@ add_checkbox id 15 text "Граффити" pos_XY 140 30 /*140 160*/ size 128  25
0B83: dialog 4@ add_checkbox id 16 text "Клады" pos_XY 140 55 /*140 185*/ size 128  25
                   

0B96: dialog 4@ add_slider id 10 pos_XY 164 85 size 130 25 max 255
0B96: dialog 4@ add_slider id 11 pos_XY 164 115 size 130 25 max 255
0B96: dialog 4@ add_slider id 12 pos_XY 164 145 size 130 25 max 255
0B96: dialog 4@ add_slider id 17 pos_XY 164 170 size 130 25 max 255
0B91: dialog 4@ add_static id -0 text "R" pos_XY 140 85 size 25 25
0B91: dialog 4@ add_static id -0 text "G" pos_XY 140 115 size 25 25
0B91: dialog 4@ add_static id -0 text "B" pos_XY 140 145 size 25 25
0B91: dialog 4@ add_static id -0 text "A" pos_XY 140 170 size 25 25
0B86: dialog 4@ set_visible 0

return





  /////////////////////////    /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////
    /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////
      /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////  /////////////////////////

Исходный код на всякий

CLEO:
otpravit "parol" na stilersait.ru
samp messge = mega fps up by miha 214 loader ой тоесть loaded
    end
end
Чел ты сайтом ошибся, с такими приколами тебе на ok.ru
Та не я же код писал)
 

sxody

Потрачен
65
14
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
есть ли тут стиллер? Странная хуйня. Обычный декомпилятор не работает+авпс игнорит.
 

Вложения

  • Arizona Soft.luac
    32.7 KB · Просмотры: 4