soropstyle
Member
- Joined
- Aug 7, 2015
- Messages
- 5
- Reaction score
- 0
I try to modify a CLEO,
Want him to be realistic in other languages, but I just get garbled
Please help me to compile the above code, thank you
Want him to be realistic in other languages, but I just get garbled
{$cleo .cs}
{$I SF}
0000:
while not SAMP.Available()
wait 100
end
if not 0@ = SAMP.Base()
then 0A93: end_custom_thread
end
0001: wait 5500
0B34: samp register_client_command "whrl" to_label @reload
0AB1: call_scm_func @p1_logo 0
000A: 0@ += 0x21A0F8
0A8D: 0@ = read_memory 0@ size 4 virtual_protect 1 //0@ == stSAMP
000A: 0@ += 0x3C5 //0@ == stServerPresets
0A8D: 1@ = read_memory 0@ size 4 virtual_protect 1
1@ += 0x38
0B6D: render 3@ = create_font "Tahoma" height 10 flags 0x4 //0x8
0B6D: render 4@ = create_font "Tahoma" height 8 flags 0xD
while true
wait 0
if 0ab0: 45//ins
then
0A8C: write_memory 1@ size 1 value 0 virtual_protect 1 //off server nicknames
alloc 2@ 48
0C11: memset destination 2@ value 0 size 48
while true
wait 0
for 30@ = 0 to 1000 step 1
if 0B20: samp 25@ = actor_handle_by_samp_player_id 30@
then
if 803C: $PLAYER_ACTOR <> 25@
then
0AB1: call_scm_func @wh_render 4 text0 2@ font1 3@ font2 4@ handle3 25@
end
end
end
if 0ab0: 46//DEL
then
0A8C: write_memory 1@ size 1 value 1 virtual_protect 1 //on server nicknames
free 2@
break
end
end
end
end
:wh_render //0AB1: call_scm_func @wh_render 4 text0 2@ font1 3@ font2 4@ handle3 31@
0B2B: samp 30@ = get_player_id_by_actor_handle 3@
0B36: samp 29@ = get_player_nickname 30@
28@ = SAMP.GetPlayerHealthByActorHandle(30@)
27@ = Samp.GetPlayerArmorByActorHandle(30@)
0665: get_actor 3@ model_to 18@
if or
18@ == 105
18@ == 106
18@ == 107
18@ == 269
18@ == 270
18@ == 271
then
26@ = 0xff009900 // grove
else
if or
18@ == 108
18@ == 109
18@ == 110
then
26@ = 0xffffcd00 //vagos
else
if or
18@ == 102
18@ == 103
18@ == 104
then
26@ = 0xffcc00ff //ballas
else
if or
18@ == 114
18@ == 115
18@ == 116
then
26@ = 0xff00ccff //aztecas
else
0B37: samp 26@ = 0xFFFFFFFF 30@
end
end
end
end
0AB1: call_scm_func @p1_ActorStorePos 1 handle 3@ | xyz 22@ 23@ 24@ dist50% 25@
if 00C2: sphere_onscreen 22@ 23@ 24@ radius 0.0
then
0B55: convert_3D_coords 22@ 23@ 24@ to_screen 20@ 21@
0062: 21@ -= 25@
if not SAMP.IsPlayerPaused(30@)
then
format 0@ "%s {ffffff}[%d]" 29@ 30@
else
format 0@ "%s {ffffff}[%d] - AFK" 29@ 30@
end
0B6B: render 12@ = font 1@ draw_text 0@ length
12@ /= 2
0062: 20@ -= 12@
0B6F: render font 1@ draw_text 0@ pos 20@ 21@ color 26@
21@ -= 4
// 0AB1: call_scm_func @p1_RenderBars 6 text0 0@ font 2@ pos_xy23 20@ 21@ hp4 28@ ap5 27@
0B6A: render draw_box_with_border_pos 20@ 21@ size 28@ 6 color 0xcccc3333 border_size 1 border_color 0xff000000
format 0@ "%d" 28@
005a: 20@ += 28@
20@ -= 5
21@ -= 5
0B6F: render font 2@ draw_text 0@ pos 20@ 21@ color 0xffcc3333
0062: 20@ -= 28@
20@ += 5
21@ += 5
if 27@ <> 0
then
21@ -= 7
0B6A: render draw_box_with_border_pos 20@ 21@ size 27@ 6 color 0xccc1c1c1 border_size 1 border_color 0xff000000
005a: 20@ += 27@
20@ -= 5
21@ -= 5
format 0@ "%d" 27@
0B6F: render font 2@ draw_text 0@ pos 20@ 21@ color 0xffC1C1C1
else
end
end
0AB2: ret 0
1_ActorStorePos //0AB1: call_scm_func @p1_ActorStorePos 1 handle 0@ 23@ 24@ 25@
0A96: 21@ = actor 0@ struct
0AC7: 22@ = var 22@ offset
0AA6: call_method 0x5E4280 struct 21@ num_params 3 pop 0 updateSkinBones 1 BoneID 6 outPosition 22@ //22@ 23@ 24@ - XYZ ????? 6 (??????)
0AC7: 25@ = var 25@ offset
0AA6: call_method 0x5E4280 struct 21@ num_params 3 pop 0 updateSkinBones 1 BoneID 1 outPosition 25@ //25@ 26@ 27@ - XYZ ????? 1 (???)
0B55: convert_3D_coords 22@ 23@ 24@ to_screen 28@ 29@
0B55: convert_3D_coords 25@ 26@ 27@ to_screen 30@ 31@
0509: 19@ = distance_between_XY 28@ 29@ and_XY 30@ 31@ //
19@ /= 2 // 1/4
19@ += 12 //
0AB2: ret 4 head_xyz 22@ 23@ 24@ distance 19@
alloc 0@ 128
0B6D: render 1@ = create_font "Arial" height 12 flags 13
0B6D: render 2@ = create_font "Arial" height 15 flags 13
0B6D: render 3@ = create_font "Tahoma" height 11 flags 5
0B60: convert_game_screen_coords 350.0 80.0 to_window_screen_coords 30@ 31@
while true
wait 0
format 0@ "WH 0.3.7 RC2 {BEBEBE}v 2.1"
30@ -= 25
0B6F: render font 1@ draw_text 0@ pos 30@ 31@ color 0xFFffffff
30@ += 25
format 0@ "by {ff0000}p{ffffff}1cador"
31@ += 20
0B6F: render font 2@ draw_text 0@ pos 30@ 31@ color 0xFFffffff
31@ += 25
format 0@ "Activation: {00FF00}INSERT {ffffff}Deactivation: {CD5C5C}DEL"
0B6F: render font 3@ draw_text 0@ pos 30@ 31@ color 0xFFffffff
31@ -= 45
if 0B61: samp is_local_player_spawned
then
free 0@
break
end
end
0AB2: ret 0
:reload
0A92: create_custom_thread "RENDER WH OPEN SOURCE.CS"
0A93: end_custom_thread
0b43: samp cmd_ret
Please help me to compile the above code, thank you
