AllBulletsRifle=100
AllBulletsPistol=100
PistolClipBullets=5
RifleClipBullets=30
If MouseDown(1)
If Weapon="Rifle"
RifleClipBullets=RifleClipBullets-1
Elseif Weapon="Pistol"
PistolClipBullets=PistolClipBullets-1
...
Reloding=0
PistolMaxClipBullets=5
RifleMaxClipBullets=30
If KeyHit(57)
If Weapon="Pistol" And Relaoding=0 And PistolClipBullets<PistolMaxClipBullets
PistolClipBullets=PistolClipBullets+Abs(PistolMaxC lipBullets-PistolClipBullets)
ElseIf Weapon="Rifle" And Reloading=0 And RifleClipBullets<RifleMaxClipBullets
RifleClipBullets=RifleClipBullets+Abs(RifleMaxClip Bullets-RifleClipBullets)
EndIf
и т.д.
кстати если что-то неработает - это с таким говнокодом неудивительно,
так-что удаляй свою фигню и сделай заного. (сам!)