[impersonalis]

БагФиксN+1
Благодаря GoodWin исправлена работа функци при пустом инвентаре.
Заодно пофикшена обработка нулевого смещения по инвентарю.
[highlight=blitzbasic]
Function change_item(i.inventar,move%)
If move%=0 Return
Local size_inv=10
p=i\current
iter=0
While True
p=p+move
iter=iter+1
If p<0 p=size_inv-1
If p>size_inv-1 p=0
If iter>size_inv Return False
If i\s[p]<>0 Exit
Wend
Local bool=False
If i\current<>p bool=True
i\current=p
Return bool
End Function
[/highlight]