[impersonalis]

ADD_N
Удобно написать функцию добавления данного кол-ва патронов в инвентарь:
[highlight=blitzbasic]
Function ADD_item(i.inventar,S,Count)
i\s [ S ] =i\s [ S ] +Count
If i\InC [ S ] =0
x=Shot_S(S)\InCartridge
If i\s [ S ]<x x=i\s [ S ]
i\InC [ S ]=x
EndIf
End Function
[/highlight]
Аргументы - инвентарь, слот (соответсвенно - тип оружия), кол-во патронов.
Функция сама добавит патроны в инвентарь, проверит кол-во патронов в обойме и если оно равно нулю будет произведенена попытка заполнить имеющимся кол-вом обойму.
[highlight=blitzbasic]
Function create_user(x#=0,y#=10,z#=0)
...
ADD_item(user_inv,0,100)

ADD_item(user_inv,1,1000)
[/highlight]