Re: Создаём свой FPS (first person shooter)
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]
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|