CLEO Help Help

shanker · Dec 22, 2016

[shcode=cpp]{$CLEO .cs}
0000: NOP

thread "LSSI"

if not 0@ = SAMP.Base()
then 0A93: end_custom_thread
end
while not SAMP.Available()
wait 100
end
wait 100

0af8: "TXD Editor by Popica & Shanker. | Scrie /txdr." -1

0b63: "txdr"
0B34: samp register_client_command "txdr" to_label @dialog
Dialog.Create(1@, "Textdraw Editor by Popica & Shanker ")
Dialog.AddButton(1@,36,"{22FF00}Exit", 5, 420, 130, 30)
Dialog.AddStatic(1@,2,"Nume:",5,5,100,30)
Dialog.AddStatic(1@,2,"R-",65,5,30,30)
Dialog.AddEditBox(1@,200,"",90,5,55,40)
Dialog.AddStatic(1@,2,"G-",160,5,30,30)
Dialog.AddEditBox(1@,201,"",190,5,55,40)
Dialog.AddStatic(1@,2,"B-",250,5,30,30)
Dialog.AddEditBox(1@,202,"",280,5,55,40)
Dialog.AddStatic(1@,2,"Date:",5,45,100,30)
Dialog.AddStatic(1@,2,"R-",65,45,30,30)
Dialog.AddEditBox(1@,203,"",90,45,55,40)
Dialog.AddStatic(1@,2,"G-",160,45,30,30)
Dialog.AddEditBox(1@,204,"",190,45,55,40)
Dialog.AddStatic(1@,2,"B-",250,45,30,30)
Dialog.AddEditBox(1@,205,"",280,45,55,40)
Dialog.AddStatic(1@,2,"Time:",5,85,100,30)
Dialog.AddStatic(1@,2,"R-",65,85,30,30)
Dialog.AddEditBox(1@,206,"",90,85,55,40)
Dialog.AddStatic(1@,2,"G-",160,85,30,30)
Dialog.AddEditBox(1@,207,"",190,85,55,40)
Dialog.AddStatic(1@,2,"B-",250,85,30,30)
Dialog.AddEditBox(1@,208,"",280,85,55,40)
Dialog.AddStatic(1@,2,"Server:",5,125,100,30)
Dialog.AddStatic(1@,2,"R-",65,125,30,30)
Dialog.AddEditBox(1@,209,"",90,125,55,40)
Dialog.AddStatic(1@,2,"G-",160,125,30,30)
Dialog.AddEditBox(1@,210,"",190,125,55,40)
Dialog.AddStatic(1@,2,"B-",250,125,30,30)
Dialog.AddEditBox(1@,211,"",280,125,55,40)
Dialog.AddStatic(1@,2,"Fuel:",5,165,100,30)
Dialog.AddStatic(1@,2,"R-",65,165,30,30)
Dialog.AddEditBox(1@,212,"",90,165,55,40)
Dialog.AddStatic(1@,2,"G-",160,165,30,30)
Dialog.AddEditBox(1@,213,"",190,165,55,40)
Dialog.AddStatic(1@,2,"B-",250,165,30,30)
Dialog.AddEditBox(1@,214,"",280,165,55,40)
Dialog.AddStatic(1@,2,"Speed:",5,205,100,30)
Dialog.AddStatic(1@,2,"R-",65,205,30,30)
Dialog.AddEditBox(1@,215,"",90,205,55,40)
Dialog.AddStatic(1@,2,"G-",160,205,30,30)
Dialog.AddEditBox(1@,216,"",190,205,55,40)
Dialog.AddStatic(1@,2,"B-",250,205,30,30)
Dialog.AddEditBox(1@,217,"",280,205,55,40)
Dialog.AddStatic(1@,2,"KM:",5,245,100,30)
Dialog.AddStatic(1@,2,"R-",65,245,30,30)
Dialog.AddEditBox(1@,218,"",90,245,55,40)
Dialog.AddStatic(1@,2,"G-",160,245,30,30)
Dialog.AddEditBox(1@,219,"",190,245,55,40)
Dialog.AddStatic(1@,2,"B-",250,245,30,30)
Dialog.AddEditBox(1@,220,"",280,245,55,40)
Dialog.AddStatic(1@,2,"Status:",5,285,100,30)
Dialog.AddStatic(1@,2,"R-",65,285,30,30)
Dialog.AddEditBox(1@,221,"",90,285,55,40)
Dialog.AddStatic(1@,2,"G-",160,285,30,30)
Dialog.AddEditBox(1@,222,"",190,285,55,40)
Dialog.AddStatic(1@,2,"B-",250,285,30,30)
Dialog.AddEditBox(1@,223,"",280,285,55,40)
Dialog.AddButton(1@,50,"{00FFFF}Coloreaza",200,420,130, 30)
0B5A: get_screen_resolution 2@ 3@
3@ /= 2
2@ /=2
2@ -=250//160
3@ -=170
0B84: samp dialog 1@ set_pos_XY 2@ 3@ size 350 480
0B86: samp dialog 1@ set_visible false
$v = 0
$_xx = 0
$_yy = 0
$_zz = 0
$_z = 0
$_y = 0
$_y = 0
$str = 0
$astr = 0
$enspe = 0




while true
wait 0
if 4@ == 1
then
0B8D: samp set_cursor_mode 2
0B86: samp dialog 1@ set_visible true
if 0AB0: key_pressed 1
then
0B5E: get_cursor_pos 28@ 27@
0B85: samp dialog 1@ get_position_to 26@ 25@ size_to 0@ 0@
if and
001D: 28@ > 26@
001D: 27@ > 25@
then
26@ += 340
25@ += 20
if and
001D: 26@ > 28@
001D: 25@ > 27@
then
26@ -= 340
25@ -= 20
0062: 28@ -= 26@
0062: 27@ -= 25@
while 0AB0: key_pressed 1
wait 0
0B5E: get_cursor_pos 26@ 25@
0062: 26@ -= 28@
0062: 25@ -= 27@
0B84: samp dialog 1@ set_pos_XY 26@ 25@ size 350 480
end
end
end
end
if
Dialog.PopEvent(1@, 5@, 6@)
then
if and
6@ == 50
5@ == 257
then
alloc $r__n 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,200,$r__n)
0AD4: $moc = scan_string $r__n format "%d" $r_n
alloc $g__n 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,201,$g__n)
0AD4: $moc = scan_string $g__n format "%d" $g_n
alloc $b__n 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,202,$b__n)
0AD4: $moc = scan_string $b__n format "%d" $b_n
0B67: 0xFF $r_n $g_n $b_n IN 32@
30@ = 0.350000
31@ = 1.100000
0C52: TXD 2057 30@ 31@ IN 32@
0AF1: write_int $r_n to_ini_file "cleo\txdr.ini" section "Name" key "r"
0AF1: write_int $g_n to_ini_file "cleo\txdr.ini" section "Name" key "g"
0AF1: write_int $b_n to_ini_file "cleo\txdr.ini" section "Name" key "b"
////////////////////////////////////////////////////////////////////////////
alloc $r__d 10
Dialog.GetControlText(1@,203,$r__d)
0AD4: $moc = scan_string $r__d format "%d" $r_d
alloc $g__d 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,204,$g__d)
0AD4: $moc = scan_string $g__d format "%d" $g_d
alloc $b__d 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,205,$b__d)
0AD4: $moc = scan_string $b__n format "%d" $b_d
0B67: 0xFF $r_d $g_d $b_d IN 10@
30@ = 0.350000
31@ = 1.100000
0C52: TXD 3 30@ 31@ IN 10@
0AF1: write_int $r_d to_ini_file "cleo\txdr.ini" section "Date" key "r"
0AF1: write_int $g_d to_ini_file "cleo\txdr.ini" section "Date" key "g"
0AF1: write_int $b_d to_ini_file "cleo\txdr.ini" section "Date" key "b"
////////////////////////////////////////////////////////////////////////////
alloc $r__t 10
Dialog.GetControlText(1@,206,$r__t)
0AD4: $moc = scan_string $r__t format "%d" $r_t
alloc $g__t 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,207,$g__t)
0AD4: $moc = scan_string $g__t format "%d" $g_t
alloc $b__t 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,208,$b__t)
0AD4: $moc = scan_string $b__n format "%d" $b_t
0B67: 0xFF $r_t $g_t $b_t IN 11@
30@ = 0.570000
31@ = 2.050000
0C52: TXD 2 30@ 31@ IN 11@
0AF1: write_int $r_t to_ini_file "cleo\txdr.ini" section "Time" key "r"
0AF1: write_int $g_t to_ini_file "cleo\txdr.ini" section "Time" key "g"
0AF1: write_int $b_t to_ini_file "cleo\txdr.ini" section "Time" key "b"
////////////////////////////////////////////////////////////////////////////
alloc $r__s 10
Dialog.GetControlText(1@,209,$r__s)
0AD4: $moc = scan_string $r__s format "%d" $r_s
alloc $g__s 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,210,$g__s)
0AD4: $moc = scan_string $g__s format "%d" $g_s
alloc $b__s 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,211,$b__s)
0AD4: $moc = scan_string $b__n format "%d" $b_s
0B67: 0xFF $r_s $g_s $b_s IN 11@
30@ = 0.350000
31@ = 1.100000
0C52: TXD 0 30@ 31@ IN 11@
0AF1: write_int $r_s to_ini_file "cleo\txdr.ini" section "Server" key "r"
0AF1: write_int $g_s to_ini_file "cleo\txdr.ini" section "Server" key "g"
0AF1: write_int $b_s to_ini_file "cleo\txdr.ini" section "Server" key "b"
////////////////////////////////////////////////////////////////////////////
alloc $r__f 10
Dialog.GetControlText(1@,212,$r__f)
0AD4: $moc = scan_ftring $r__f format "%d" $r_f
alloc $g__f 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,213,$g__f)
0AD4: $moc = scan_ftring $g__f format "%d" $g_f
alloc $b__f 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,214,$b__f)
0AD4: $moc = scan_ftring $b__n format "%d" $b_f
0B67: 0xFF $r_f $g_f $b_f IN 11@
30@ = 0.350000
31@ = 1.100000
0C52: TXD 2054 30@ 31@ IN 11@
0AF1: write_int $r_f to_ini_file "cleo\txdr.ini" section "Fuel" key "r"
0AF1: write_int $g_f to_ini_file "cleo\txdr.ini" section "Fuel" key "g"
0AF1: write_int $b_f to_ini_file "cleo\txdr.ini" section "Fuel" key "b"

////////////////////////////////////////////////////////////////////////////
alloc $r__sp 10
Dialog.GetControlText(1@,215,$r__sp)
0AD4: $moc = scan_sptring $r__sp format "%d" $r_sp

alloc $g__sp 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,216,$g__sp)
0AD4: $moc = scan_sptring $g__sp format "%d" $g_sp

alloc $b__sp 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,217,$b__sp)
0AD4: $moc = scan_sptring $b__n format "%d" $b_sp

0B67: 0xFF $r_sp $g_sp $b_sp IN 11@
30@ = 0.350000
31@ = 1.100000
0C52: TXD 2055 30@ 31@ IN 11@
0AF1: write_int $r_sp to_ini_spile "cleo\txdr.ini" section "Speed" key "r"
0AF1: write_int $g_sp to_ini_spile "cleo\txdr.ini" section "Speed" key "g"
0AF1: write_int $b_sp to_ini_spile "cleo\txdr.ini" section "Speed" key "b"

alloc $r__km 10
Dialog.GetControlText(1@,218,$r__km)
0AD4: $moc = scan_kmtring $r__km format "%d" $r_km
alloc $g__km 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,219,$g__km)
0AD4: $moc = scan_kmtring $g__km format "%d" $g_km
alloc $b__km 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,220,$b__km)
0AD4: $moc = scan_kmtring $b__n format "%d" $b_km
0B67: 0xFF $r_km $g_km $b_km IN 11@
30@ = 0.350000
31@ = 1.100000
0C52: TXD 2056 30@ 31@ IN 11@
0AF1: write_int $r_km to_ini_kmile "cleo\txdr.ini" section "KM" key "r"
0AF1: write_int $g_km to_ini_kmile "cleo\txdr.ini" section "KM" key "g"
0AF1: write_int $b_km to_ini_kmile "cleo\txdr.ini" section "KM" key "b"
alloc $r__Status 10
Dialog.GetControlText(1@,221,$r__Status)
0AD4: $moc = scan_Statustring $r__Status format "%d" $r_Status
alloc $g__Status 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,222,$g__Status)
0AD4: $moc = scan_Statustring $g__Status format "%d" $g_Status
alloc $b__Status 10 //200 - r || 201 - g || 202 - b
Dialog.GetControlText(1@,223,$b__Status)
0AD4: $moc = scan_Statustring $b__Status format "%d" $b_Status
0B67: 0xFF $r_Status $g_Status $b_Status IN 11@
30@ = 0.350000
31@ = 1.100000
0C52: TXD 2059 30@ 31@ IN 11@
0AF1: write_int $r_Status to_ini_Statusile "cleo\txdr.ini" section "Status" key "r"
0AF1: write_int $g_Status to_ini_Statusile "cleo\txdr.ini" section "Status" key "g"
0AF1: write_int $b_Status to_ini_Statusile "cleo\txdr.ini" section "Status" key "b"
end
if and
6@ == 36
5@ == 257
then
0B8D: samp set_cursor_mode 0
0B86: samp dialog 1@ set_visible false
4@ = 0
end
end
end
{if 4@ == 0
then
0B8D: samp set_cursor_mode 0
0B86: samp dialog 1@ set_visible false
4@ == 0
end}
end

:dialog
0AF0: $n_r = get_int_from_ini_file "cleo\txdr.ini" section "Name" key "r"
0AF0: $n_g = get_int_from_ini_file "cleo\txdr.ini" section "Name" key "g"
0AF0: $n_b = get_int_from_ini_file "cleo\txdr.ini" section "Name" key "b"
alloc $n_tr 10
alloc $n_tg 10
alloc $n_tb 10
format $n_tr "%d" $n_r
format $n_tg "%d" $n_g //200 - r || 201 - g || 202 - b
format $n_tb "%d" $n_b
0B94: dialog 1@ set_control 200 text $n_tr
0B94: dialog 1@ set_control 201 text $n_tg
0B94: dialog 1@ set_control 202 text $n_tb
////////////////////////////// date //////////////////////////////////
0AF0: $d_r = get_int_from_ini_file "cleo\txdr.ini" section "Date" key "r"
0AF0: $d_g = get_int_from_ini_file "cleo\txdr.ini" section "Date" key "g"
0AF0: $d_b = get_int_from_ini_file "cleo\txdr.ini" section "Date" key "b"
alloc $d_tr 10
alloc $d_tg 10
alloc $d_tb 10
format $d_tr "%d" $d_r
format $d_tg "%d" $d_g //200 - r || 201 - g || 202 - b
format $d_tb "%d" $d_b
0B94: dialog 1@ set_control 203 text $d_tr
0B94: dialog 1@ set_control 204 text $d_tg
0B94: dialog 1@ set_control 205 text $d_tb
////////////////////////////// Time //////////////////////////////////
0AF0: $t_r = get_int_from_ini_file "cleo\txdr.ini" section "Time" key "r"
0AF0: $t_g = get_int_from_ini_file "cleo\txdr.ini" section "Time" key "g"
0AF0: $t_b = get_int_from_ini_file "cleo\txdr.ini" section "Time" key "b"
alloc $t_tr 10
alloc $t_tg 10
alloc $t_tb 10
format $t_tr "%d" $t_r
format $t_tg "%d" $t_g //200 - r || 201 - g || 202 - b
format $t_tb "%d" $t_b
0B94: dialog 1@ set_control 206 text $t_tr
0B94: dialog 1@ set_control 207 text $t_tg
0B94: dialog 1@ set_control 208 text $t_tb

////////////////////////////// Server //////////////////////////////////
0AF0: $s_r = get_int_from_ini_file "cleo\txdr.ini" section "Server" key "r"
0AF0: $s_g = get_int_from_ini_file "cleo\txdr.ini" section "Server" key "g"
0AF0: $s_b = get_int_from_ini_file "cleo\txdr.ini" section "Server" key "b"
alloc $s_tr 10
alloc $s_tg 10
alloc $s_tb 10
format $s_tr "%d" $s_r
format $s_tg "%d" $s_g //200 - r || 201 - g || 202 - b
format $s_tb "%d" $s_b
0B94: dialog 1@ set_control 209 text $s_tr
0B94: dialog 1@ set_control 210 text $s_tg
0B94: dialog 1@ set_control 211 text $s_tb

////////////////////////////// Fuel //////////////////////////////////
0AF0: $f_r = get_int_from_ini_file "cleo\txdr.ini" section "Fuel" key "r"
0AF0: $f_g = get_int_from_ini_file "cleo\txdr.ini" section "Fuel" key "g"
0AF0: $f_b = get_int_from_ini_file "cleo\txdr.ini" section "Fuel" key "b"
alloc $f_tr 10
alloc $f_tg 10
alloc $f_tb 10
format $f_tr "%d" $f_r
format $f_tg "%d" $f_g //200 - r || 201 - g || 202 - b
format $f_tb "%d" $f_b
0B94: dialog 1@ set_control 212 text $f_tr
0B94: dialog 1@ set_control 213 text $f_tg
0B94: dialog 1@ set_control 214 text $f_tb

////////////////////////////// Speed //////////////////////////////////
0AF0: $sp_r = get_int_from_ini_file "cleo\txdr.ini" section "Speed" key "r"
0AF0: $sp_g = get_int_from_ini_file "cleo\txdr.ini" section "Speed" key "g"
0AF0: $sp_b = get_int_from_ini_file "cleo\txdr.ini" section "Speed" key "b"
alloc $sp_tr 10
alloc $sp_tg 10
alloc $sp_tb 10
format $sp_tr "%d" $sp_r
format $sp_tg "%d" $sp_g //200 - r || 201 - g || 202 - b
format $sp_tb "%d" $sp_b
0B94: dialog 1@ set_control 215 text $sp_tr
0B94: dialog 1@ set_control 216 text $sp_tg
0B94: dialog 1@ set_control 217 text $sp_tb

////////////////////////////// KM //////////////////////////////////
0AF0: 18@ = get_int_from_ini_file "cleo\txdr.ini" section "KM" key "r"
0AF0: 19@ = get_int_from_ini_file "cleo\txdr.ini" section "KM" key "g"
0AF0: 20@ = get_int_from_ini_file "cleo\txdr.ini" section "KM" key "b"
alloc 21@ 10
alloc 22@ 10
alloc 23@ 10
format 21@ "%d" 18@
format 22@ "%d" 19@ //200 - r || 201 - g || 202 - b
format 23@ "%d" 20@
0B94: dialog 1@ set_control 218 text 21@
0B94: dialog 1@ set_control 219 text 22@
0B94: dialog 1@ set_control 220 text 23@

////////////////////////////// Status //////////////////////////////////
0AF0: $Status_r = get_int_from_ini_file "cleo\txdr.ini" section "Status" key "r"
0AF0: $Status_g = get_int_from_ini_file "cleo\txdr.ini" section "Status" key "g"
0AF0: $Status_b = get_int_from_ini_file "cleo\txdr.ini" section "Status" key "b"
alloc $Status_tr 10
alloc $Status_tg 10
alloc $Status_tb 10
format $Status_tr "%d" $Status_r
format $Status_tg "%d" $Status_g //200 - r || 201 - g || 202 - b
format $Status_tb "%d" $Status_b
0B94: dialog 1@ set_control 221 text $Status_tr
0B94: dialog 1@ set_control 222 text $Status_tg
0B94: dialog 1@ set_control 223 text $Status_tb
4@ = 1
SAMP.CmdRet()
[/shcode]

You have video with it here: https://www.youtube.com/watch?v=AOcyHdkJlKQ

When I insert a value in the three box (Format RGB, 3 = B) the others boxes (B) will get the same value like that, without the last, "Status:" and ofc, when I apply the colours all of the textdraws will get R, G and the same B Value. There has no logic, I give up, i hope you can find the bug...

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

another problem,
[shcode=cpp]{$CLEO .cs}

0b34: "Textdraw" @Textdraw
//-------------MAIN---------------
0000: NOP

:Noname_2
0001: wait 0 ms

:Noname_6
0256: player $PLAYER_CHAR defined
004D: jump_if_false @Noname_492
0001: wait 0 ms
IF
30@ == 1
004D: jump_if_false @Noname_460
0@ = 214 // DATA
1@ = 254
2@ = 7
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.500000
0C52: TXD 3 4@ 5@ IN 3@
0@ = 215 // CEAS
1@ = 23
2@ = 100
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.570000
5@ = 2.050000
0C52: TXD 2 4@ 5@ IN 3@
0@ = 212 // Server Nickname
1@ = 69
2@ = 26
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.100000
0C52: TXD 0 4@ 5@ IN 3@
0@ = 246 // Fuel
1@ = 18
2@ = 25
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.100000
0C52: TXD 2054 4@ 5@ IN 3@
0@ = 18 // Speed
1@ = 48
2@ = 246
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.100000
0C52: TXD 2055 4@ 5@ IN 3@
0@ = 102 // Odometer
1@ = 15
2@ = 70
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.100000
0C52: TXD 2056 4@ 5@ IN 3@
0@ = 51 // Status
1@ = 112
2@ = 61
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.100000
0C52: TXD 2059 4@ 5@ IN 3@
0@ = 215 // Nume
1@ = 23
2@ = 100
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.100000
0C52: TXD 2057 4@ 5@ IN 3@
///////////////////////////
wait 1000
0@ = 29 // DATA
1@ = 98
2@ = 41
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.500000
0C52: TXD 3 4@ 5@ IN 3@
0@ = 26 // CEAS
1@ = 90
2@ = 174
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.570000
5@ = 2.050000
0C52: TXD 2 4@ 5@ IN 3@
0@ = 63 // Server Nickname
1@ = 195
2@ = 89
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.100000
0C52: TXD 0 4@ 5@ IN 3@
0@ = 238 // Fuel
1@ = 16
2@ = 68
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.100000
0C52: TXD 2054 4@ 5@ IN 3@
0@ = 18 // Speed
1@ = 48
2@ = 246
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.100000
0C52: TXD 2055 4@ 5@ IN 3@
0@ = 102 // Odometer
1@ = 15
2@ = 70
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.100000
0C52: TXD 2056 4@ 5@ IN 3@
0@ = 51 // Status
1@ = 112
2@ = 61
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.100000
0C52: TXD 2059 4@ 5@ IN 3@
0@ = 215 // Nume
1@ = 23
2@ = 100
0B67: 0xFF 0@ 1@ 2@ IN 3@
4@ = 0.350000
5@ = 1.100000
0C52: TXD 2057 4@ 5@ IN 3@

:Noname_460
00D6: if and
0ADC: test_cheat "BLOWUP42"
8B21: not samp is_chat_opened
004D: jump_if_false @Noname_485

:Noname_485
0002: jump @Noname_6

:Noname_492
0002: jump @Noname_2

:Noname_499
0001: wait 0 ms
0002: jump @Noname_499

:Textdraw
SAMP.IsCommandTyped(19@)
IF 0ad4: 20@ 19@ "%d" 30@
SAMP.CmdRet[/shcode]

there i wanted to do a rainbow, but after "wait" script wont change the color, i really don't know why.

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

another question is, how can i change in real time skins effects?
I know how to do a text behind skin but, i wanna do smt like: "Shanker" wait 500 "E" wait 500" Smeker" in real time, is there an opcode?

springfield · Dec 26, 2016

I think it's a game text(https://wiki.sa-mp.com/wiki/GameTextStyle), ~~can you test if 0x859520(float) and 0x859524(float) are responsible for the XY scale?~~

Nevermind, those seem to be the screen XY multipliers. I don't know where those are being drawn.

shanker · Dec 26, 2016

[shcode=cpp]IF AND
6@ == 177
5@ == 257
THEN
alloc $N_R 40
alloc $N_G 40
alloc $N_B 40
alloc $N_SIZE_X 40
alloc $N_SIZE_Y 40
alloc $N_POS_X 40
alloc $N_POS_Y 40
alloc $N_STYLE 40
Dialog.GetControlText(1@,200,$N_R)
Dialog.GetControlText(1@,201,$N_G)
Dialog.GetControlText(1@,202,$N_B)
Dialog.GetControlText(1@,232,$N_POS_X)
Dialog.GetControlText(1@,240,$N_POS_Y)
Dialog.GetControlText(1@,224,$N_SIZE_X)
Dialog.GetControlText(1@,248,$N_SIZE_Y)
Dialog.GetControlText(1@,256,$N_STYLE)
0AD4: $moc = scan $N_R format "%d" $N_R_2
0AD4: $moc = scan $N_G format "%d" $N_G_2
0AD4: $moc = scan $N_B format "%d" $N_B_2
0AD4: $moc = scan $N_SIZE_X format "%0.2f" $N_SIZE_X_2
0AD4: $moc = scan $N_SIZE_Y format "%0.2f" $N_SIZE_Y_2
0AD4: $moc = scan $N_POS_X format "%0.2f" $N_POS_X_2
0AD4: $moc = scan $N_POS_Y format "%0.2f" $N_POS_Y_2
0AD4: $moc = scan $N_STYLE format "%0.2f" $N_STYLE_2
0AF1: write_int $N_R_2 to_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "r"
0AF1: write_int $N_G_2 to_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "g"
0AF1: write_int $N_B_2 to_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "b"
0AF3: write_float $N_SIZE_X_2 to_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "SizeX"
0AF3: write_float $N_SIZE_Y_2 to_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "SizeY"
0AF3: write_float $N_POS_X_2 to_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "PosX"
0AF3: write_float $N_POS_X_2 to_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "PosY"
0AF1: write_int $N_STYLE_2 to_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "Style"
END [/shcode]
This script write current settings from dialog in .ini.

[shcode=cpp] IF AND
6@ == 173
5@ == 257
THEN
0AF0: $N_R = get_int_from_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "r"
0AF0: $N_G = get_int_from_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "g"
0AF0: $N_B = get_int_from_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "b"
alloc $N_R_2 40
alloc $N_G_2 40
alloc $N_B_2 40
format $N_R_2 "%d" $N_R
format $N_G_2 "%d" $N_G
format $N_B_2 "%d" $N_B
0B94: dialog 1@ set_control 200 text $N_R_2
0B94: dialog 1@ set_control 201 text $N_G_2
0B94: dialog 1@ set_control 202 text $N_B_2
0AF2: $N_POS_X = get_float_from_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "PosX"
0AF2: $N_POS_Y = get_float_from_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "PosY"
alloc $N_POS_X_2 40
alloc $N_POS_Y_2 40
format $N_POS_X_2 "%0.2f" $N_POS_X
format $N_POS_Y_2 "%0.2f" $N_POS_Y
0B94: dialog 1@ set_control 232 text $N_POS_X_2
0B94: dialog 1@ set_control 240 text $N_POS_Y_2
0AF2: $N_SIZE_X = get_float_from_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "SizeX"
0AF2: $N_SIZE_Y = get_float_from_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "SizeY"
alloc $N_SIZE_X_2 40
alloc $N_SIZE_Y_2 40
format $N_SIZE_X_2 "%0.2f" $N_SIZE_X
format $N_SIZE_Y_2 "%0.2f" $N_SIZE_Y
0B94: dialog 1@ set_control 224 text $N_SIZE_X_2
0B94: dialog 1@ set_control 248 text $N_SIZE_Y_2
0AF0: $N_STYLE = get_int_from_ini_file "cleo\INTERFACE_EDITOR\Personalizate\Personalizat_1.ini" section "Name" key "Style"
alloc $N_STYLE_2 40
format $N_STYLE_2 "%d" $N_STYLE
0B94: dialog 1@ set_control 256 text $N_STYLE_2
END [/shcode]

This script get all settings from personalized 1 section name

The problem IS,

[shcode=cpp][Name]
SizeX=4.85834e-036
SizeY=4.85836e-036
r=22
g=223
b=52
PosX=4.85831e-036
PosY=4.85831e-036
Style=80652048[/shcode]

first script set wrong values in .ini, idk why :|

EDIT

SOLVED
[shcode=cpp]0AD4: $moc = scan $N_SIZE_X format "%0.2f" $N_SIZE_X_2
0AD4: $moc = scan $N_SIZE_Y format "%0.2f" $N_SIZE_Y_2
0AD4: $moc = scan $N_POS_X format "%0.2f" $N_POS_X_2
0AD4: $moc = scan $N_POS_Y format "%0.2f" $N_POS_Y_2 but here when is only floats values, why i cant put only two decimals? or i have to use this shet when i use "Dialog.SetControlText" ?
0AD4: $moc = scan $N_STYLE format "%0.2f" $N_STYLE_2 // This shet was the problem i k bcs it is integer not float[/shcode]

supahdupahnubah · Dec 26, 2016

springfield said:
I think it's a game text(https://wiki.sa-mp.com/wiki/GameTextStyle), ~~can you test if 0x859520(float) and 0x859524(float) are responsible for the XY scale?~~

Nevermind, those seem to be the screen XY multipliers. I don't know where those are being drawn.

Thanks for giving a try to help me, I appreciate it

shanker · Dec 26, 2016

supahdupahnubah said:
springfield said:

I think it's a game text(https://wiki.sa-mp.com/wiki/GameTextStyle), ~~can you test if 0x859520(float) and 0x859524(float) are responsible for the XY scale?~~

Nevermind, those seem to be the screen XY multipliers. I don't know where those are being drawn.

Click to expand...

Thanks for giving a try to help me, I appreciate it

do you know what is maximum script size? 69k i think?

springfield · Dec 26, 2016

Script size as in lines of codes or hard disk size?
I tested once with a script that had 100k lines of code and 1.5mb size, worked fine.
But always try to optimize it, smaller == faster.

shanker · Dec 26, 2016

springfield said:
Script size as in lines of codes or hard disk size?
I tested once with a script that had 100k lines of code and 1.5mb size, worked fine.
But always try to optimize it, smaller == faster.

WTF? 100k lines? and just 1.5mb? my script have 5k linse and have 417 kb

) http://pastebin.com/CPSzghig

springfield · Dec 26, 2016

Add
[shcode=cpp]
{$CLEO}
{$NOSOURCE}
[/shcode]

should reduce the size, nonetheless that's a huge script for something so basic.

CLEO Help Help

shanker

Well-known member

springfield

God

shanker

Well-known member

supahdupahnubah

Expert

shanker

Well-known member

springfield

God

shanker

Well-known member

springfield

God