{$CLEO}
0000:
0390: load_txd_dictionary 'damage'
038F: load_texture "damage1" as 6 // Load dictionary with 0390 first
038F: load_texture "damage2" as 7 // Load dictionary with 0390 first
while true
    wait 0
                if 
                031D:   actor $PLAYER_ACTOR hit_by_weapon 57
                then
                0467: set_actor $PLAYER_ACTOR clear_last_weapon_damage
                    0@ = 0
                    while 0@ < 255
                    wait 0
                    03F0: enable_text_draw 1
                    038D: draw_texture 7 position 320.0 224.0 size 640.0 448.0 RGBA 255 255 255 0@
                    if
                    8184:    player $PLAYER_ACTOR health < 10
                    then
                    038D: draw_texture 6 position 320.0 224.0 size 640.0 448.0 RGBA 255 255 255 0@
                    end
                    0@ += 50
                    if
                    0@ > 255
                    then
                    0@ = 255
                    end
                    end
                    
                    while 0@ > 0
                    wait 0
                    03F0: enable_text_draw 1
                    038D: draw_texture 7 position 320.0 224.0 size 640.0 448.0 RGBA 255 255 255 0@
                    if
                    8184:    player $PLAYER_ACTOR health < 10
                    then
                    038D: draw_texture 6 position 320.0 224.0 size 640.0 448.0 RGBA 255 255 255 0@
                    end
                    0@ -= 1
                    
                            if 
                            031D:   actor $PLAYER_ACTOR hit_by_weapon 57
                            then
                            0467: set_actor $PLAYER_ACTOR clear_last_weapon_damage
                            0@ = 255
                            end
                    
                    end
                end
end
