Kelvin_One
Member
Code:
{$CLEO}
wait 0
0662: NOP "#########################"
0662: NOP "___Made by Opcode.eXe___"
0662: NOP "Www.Youtube.Com/OpcodeXe"
0662: NOP "#########################"
0AA8: call_function_method 0x6A0050 0xC1B340 num_params 1 pop 0 'CRED445' 0@ //// Get gxt text address by gxt name
0AA5: call 0x718600 2 pop 2 0@ "Health: ~1~%"
1@ = 0
while true
wait 0
if 0ADC: test_cheat "CARDL"
then
if 1@ == 0
then
0ACD: show_text_highpriority "Car-HP On." time 1337
018C: play_sound 1083 at 0.0 0.0 0.0
1@ = 1
else
0ACD: show_text_highpriority "Car-HP Off." time 1337
018C: play_sound 1084 at 0.0 0.0 0.0
1@ = 0
end
end
if 1@ == 1
then
00A0: store_actor $PLAYER_ACTOR position_to 22@ 23@ 24@
if 0AE2: 31@ = random_vehicle_near_point 22@ 23@ 24@ in_radius 19.99 find_next false pass_wrecked 0 // Thx MISTER_GONWIK <3
then
gosub @draw_text
while 0AE2: 31@ = random_vehicle_near_point 22@ 23@ 24@ in_radius 19.99 find_next true pass_wrecked 0
gosub @draw_text
end
end
end
end
:draw_text
// Car - 31@
if 80DB: not actor $PLAYER_ACTOR in_car 31@
then
00AA: store_car 31@ position_to 2@ 3@ 4@
0AB1: call_scm_func @getScreenXYFrom3DCoords 3 3D_coords_X 2@ Y 3@ Z 4@ store_screen_X_to 6@ Y_to 7@
if and
00C2: sphere_onscreen 2@ 3@ 4@ radius 0.0
6@ >= 0.0
6@ <= 640.0
7@ >= 0.0
7@ <= 448.0
then
0227: 5@ = car 31@ health
5@ /= 10
03F0: enable_text_draw 1
0342: set_text_draw_centered 1
03E0: draw_text_behind_textures 0
033F: set_text_draw_letter_size width 0.17 height 0.77
081C: draw_text_outline 1 RGBA 0 0 0 255
0340: set_text_draw_RGBA 0 255 0 255
045A: draw_text_1number 6@ 7@ GXT 'CRED445' number 5@ //
end
end
return
:getScreenXYFrom3DCoords
0AC7: 14@ = var 0@ offset
0AC7: 15@ = var 3@ offset
0AC7: 16@ = var 6@ offset
0AC7: 17@ = var 9@ offset
0AA5: call 0x70CE30 num_params 6 pop 6 {18@ 18@} 0 0 17@ 16@ 15@ 14@
0007: 12@ = 640.0
0007: 13@ = 448.0
0A8D: 14@ = read_memory 0xC17044 size 4 virtual_protect 0
0A8D: 15@ = read_memory 0xC17048 size 4 virtual_protect 0
0093: 14@ = integer 14@ to_float
0093: 15@ = integer 15@ to_float
0073: 12@ /= 14@
0073: 13@ /= 15@
006B: 3@ *= 12@
006B: 4@ *= 13@
0AB2: ret 2 3@ 4@
@SobFoX @ajom @Opcode.eXe @Parazitas please. help me. tks you