procedure cDamageDisplay
    var NoRed : array 0 .. 10 of int
    NoRed (0) := Pic.FileNew ("Picture/RedDamage/NoRed0.0.bmp") % Damage 0
    NoRed (1) := Pic.FileNew ("Picture/RedDamage/NoRed0.1.bmp") % Damage 1
    NoRed (2) := Pic.FileNew ("Picture/RedDamage/NoRed0.2.bmp") % Damage 2
    NoRed (3) := Pic.FileNew ("Picture/RedDamage/NoRed0.3.bmp") % Damage 3
    NoRed (4) := Pic.FileNew ("Picture/RedDamage/NoRed0.4.bmp") % Damage 4
    NoRed (5) := Pic.FileNew ("Picture/RedDamage/NoRed0.5.bmp") % Damage 5
    NoRed (6) := Pic.FileNew ("Picture/RedDamage/NoRed0.6.bmp") % Damage 6
    NoRed (7) := Pic.FileNew ("Picture/RedDamage/NoRed0.7.bmp") % Damage 7
    NoRed (8) := Pic.FileNew ("Picture/RedDamage/NoRed0.8.bmp") % Damage 8
    NoRed (9) := Pic.FileNew ("Picture/RedDamage/NoRed0.9.bmp") % Damage 9
    NoRed (10) := Pic.FileNew ("Picture/RedDamage/NoRed0.Miss.bmp") % Miss

    Pic.SetTransparentColour (NoRed (0), 3)
    Pic.SetTransparentColour (NoRed (1), 3)
    Pic.SetTransparentColour (NoRed (2), 3)
    Pic.SetTransparentColour (NoRed (3), 3)
    Pic.SetTransparentColour (NoRed (4), 3)
    Pic.SetTransparentColour (NoRed (5), 3)
    Pic.SetTransparentColour (NoRed (6), 3)
    Pic.SetTransparentColour (NoRed (7), 3)
    Pic.SetTransparentColour (NoRed (8), 3)
    Pic.SetTransparentColour (NoRed (9), 3)
    Pic.SetTransparentColour (NoRed (10), 3)
    Damagex := 250
    Damagey := 240
    if cAccuracy > mAccuracy_1 then
        RedDamage := intstr (cDamage)
        for i : 1 .. length (RedDamage)
            for j : 0 .. 9
                if RedDamage (i) = intstr (j) then
                    Pic.Draw (NoRed (j), Damagex, Damagey, picMerge)
                    if j = 0 or j = 7 or j = 9 or j = 4 then
                        Damagex += 25
                    elsif j = 6 or j = 5 or j = 8 then
                        Damagex += 22
                    elsif j = 1 then
                        Damagex += 16
                    elsif j = 2 then
                        Damagex += 23
                    elsif j = 3 then
                        Damagex += 21
                    end if
                end if
            end for
        end for
    else
        Pic.Draw (NoRed (10), Damagex - 25, Damagey, picMerge)
    end if
    Pic.Free (NoRed (0))
    Pic.Free (NoRed (1))
    Pic.Free (NoRed (2))
    Pic.Free (NoRed (3))
    Pic.Free (NoRed (4))
    Pic.Free (NoRed (5))
    Pic.Free (NoRed (6))
    Pic.Free (NoRed (7))
    Pic.Free (NoRed (8))
    Pic.Free (NoRed (9))
    Pic.Free (NoRed (10))
    View.Update
    delay (250)
end cDamageDisplay