a.txt

LOCAL equipedweaponammo
LOCAL equipedclipsize
LOCAL remainingammo
LOCAL equipedweaponammoammount
'not in a vehicle
IF Char("main").InVehicle = ""
    SET Field("Speed Pointer").NoDraw = 1
    SET Field("Gas Pointer").NoDraw = 1
    SET Field("Mileage").NoDraw = 1
    SET Object("Car Console").NoDraw = 1
    SET Field("Weapon Graphic").NoDraw = 0
    SET Field("Weapon Name").NoDraw = 0
    SET Field("Weapon Ammo").NoDraw = 0
    SET Field("Accessory Name").NoDraw = 0
    SET Field("Accessory Graphic").NoDraw = 0
    'has no weapon?
    IF Char("main").Equipment("Weapon") = ""
        SET Field("Ammo Graphic").NoDraw = 1
        SET Field("Weapon Ammo").NoDraw = 1
        SET Field("Weapon Ammo2").NoDraw = 1
        SET Field("Ammo Graphic2").NoDraw = 1
        SET Field("Ammo Graphic3").NoDraw = 1
        SET Object("Weapon Square").NoDraw = 1
        :g8
        'no accessory?
        IF Char("main").Equipment("Accessory") = ""
            SET Object("Accessory Circle").NoDraw = 1
            SET Field("Accessory Name").NoDraw = 1
            SET Field("Accessory Graphic").NoDraw = 1
            :g11
            'Testing Cheat ON
            IF Testing_Cheat
                SET Field("KarmaShow").NoDraw = 0
                SET Field("PointsShow").NoDraw = 0
            ELSE
                SET Field("KarmaShow").NoDraw = 1
                SET Field("PointsShow").NoDraw = 1
            ENDIF
        ELSE
            SET Object("Accessory Circle").NoDraw = 0
            SET Field("Accessory Name").NoDraw = 0
            SET Field("Accessory Graphic").NoDraw = 0
            GOTO g11
        ENDIF
    ELSE
        SET equipedweaponammo = Item(Char("main").Equipment("Weapon")).AmmoItem
        SET Object("Weapon Square").NoDraw = 0
        SET equipedweaponammoammount = Char("main").Ammo(Char("main").Equipment("Weapon"))
        'is melee weapon?
        IF equipedweaponammoammount = ""
            SET Field("Ammo Graphic").NoDraw = 1
            SET Field("Weapon Ammo").NoDraw = 1
            SET Field("Weapon Ammo2").NoDraw = 1
            SET Field("Ammo Graphic2").NoDraw = 1
            SET Field("Ammo Graphic3").NoDraw = 1
            GOTO g8
        ELSE
            SET Field("Ammo Graphic").NoDraw = 0
            SET Field("Weapon Ammo").NoDraw = 0
            SET Field("Weapon Ammo2").NoDraw = 0
            SET Field("Ammo Graphic2").NoDraw = 0
            SET Field("Ammo Graphic3").NoDraw = 0
            SET equipedclipsize = Item(Char("main").Equipment("Weapon")).ClipSize
            SET remainingammo = Char("main").ItemClip(Char("main").Equipment("Weapon"))
            SET Interface("this").Variable("LastWeaponUsed") = Char("main").Equipment("Weapon")
            '5.56?
            IF equipedweaponammo = "5.56mm"
                SET Field("Ammo Graphic3").Texture = "556"
                :g27
                'clipsize > 50
                IF Item(Char("main").Equipment("Weapon")).ClipSize > 50
                    SET Field("Ammo Graphic3").Value = Char("main").ItemClip(Char("main").Equipment("Weapon")) / 2
                    SET Field("Ammo Graphic3").MaxValue = Item(Char("main").Equipment("Weapon")).ClipSize / 2
                    :g30
                    SET Field("Ammo Graphic").Value = "Ammo:"
                    Field("Weapon Ammo").Position(184, 544, 0)
                    :g32
                    'has 0 ammo in inventory ammo
                    IF Char("main").Ammo(Char("main").Equipment("Weapon")) = 0
                        SET Field("Weapon Ammo").Color1 = -65536
                        :g34
                        'has 0 ammo in clip
                        IF Char("main").ItemClip(Char("main").Equipment("Weapon")) = 0
                            SET Field("Weapon Ammo2").Color1 = -65536
                            GOTO g8
                        ELSE
                            SET Field("Weapon Ammo2").Color1 = -1
                            GOTO g8
                        ENDIF
                    ELSE
                        SET Field("Ammo Graphic").Color1 = -1
                        SET Field("Weapon Ammo").Color1 = -1
                        GOTO g34
                    ENDIF
                ELSE
                    SET Field("Ammo Graphic3").Value = Char("main").ItemClip(Char("main").Equipment("Weapon"))
                    SET Field("Ammo Graphic3").MaxValue = Item(Char("main").Equipment("Weapon")).ClipSize
                    GOTO g30
                ENDIF
            ELSE
                '7.62?
                IF equipedweaponammo = "7.62mm"
                    SET Field("Ammo Graphic3").Texture = "762"
                    GOTO g27
                ELSE
                    '.40?
                    IF equipedweaponammo = Item(".40").Name
                        SET Field("Ammo Graphic3").Texture = "40"
                        GOTO g27
                    ELSE
                        '.45?
                        IF equipedweaponammo = Item(".45").Name
                            SET Field("Ammo Graphic3").Texture = "45"
                            GOTO g27
                        ELSE
                            '9mm?
                            IF equipedweaponammo = "9mm"
                                SET Field("Ammo Graphic3").Texture = "9mm"
                                GOTO g27
                            ELSE
                                'sg?
                                IF equipedweaponammo = "Shotgun Shell"
                                    SET Field("Ammo Graphic3").Texture = "12gauge"
                                    GOTO g27
                                ELSE
                                    'rocket?
                                    IF equipedweaponammo = "Explosive Rocket"
                                        SET Field("Ammo Graphic3").Texture = "40mmrocket"
                                        GOTO g27
                                    ELSE
                                        SET Field("Ammo Graphic3").NoDraw = 1
                                        SET Field("Weapon Ammo2").NoDraw = 1
                                        SET Field("Ammo Graphic2").NoDraw = 1
                                        SET Field("Ammo Graphic").Value = "Quantity:"
                                        Field("Weapon Ammo").Position(144, 544, 0)
                                        GOTO g32
                                    ENDIF
                                ENDIF
                            ENDIF
                        ENDIF
                    ENDIF
                ENDIF
            ENDIF
        ENDIF
    ENDIF
ELSE
    SET Object("Weapon Square").NoDraw = 1
    SET Object("Accessory Circle").NoDraw = 1
    SET Object("Flashlight Bar").NoDraw = 1
    SET Field("Flashlight").NoDraw = 1
    SET Field("Weapon Graphic").NoDraw = 1
    SET Field("Weapon Name").NoDraw = 1
    SET Field("Ammo Graphic").NoDraw = 1
    SET Field("Ammo Graphic3").NoDraw = 1
    SET Field("Weapon Ammo2").NoDraw = 1
    SET Field("Ammo Graphic2").NoDraw = 1
    SET Field("Weapon Ammo").NoDraw = 1
    SET Field("Accessory Name").NoDraw = 1
    SET Field("Accessory Graphic").NoDraw = 1
    SET Field("Speed Pointer").NoDraw = 0
    SET Field("Mileage").NoDraw = 0
    'car cheat on?
    IF Vehicle("main").MaxGas = 0
        :g59
        SET Object("Car Console").NoDraw = 0
        SET Vehicle_Mileage = Vehicle_Mileage + Math.Abs(Math.Multiply(Vehicle("main").Velocity, 10))
        GOTO g11
    ELSE
        SET Field("Gas Pointer").NoDraw = 0
        GOTO g59
    ENDIF
ENDIF