Re: Spacer
[blitz]
;Попытка включения щита по нажатию клавиши.
;Щит включится только если он еще не включен или не перезаряжается
;Щит считается включенным пока ShieldTime>0
;Щит считается перезаряжающимся пока ShieldTime<0
IF KeyHit(Key_ActivateShield)=True THEN
IF ShieldTime=0 THEN ShieldTime=ShieldActiveTime
ENDIF
;Счётчик разряда/перезарядки щита обновляется 10 раз в секунду
IF TimerDelay<Millisecs() THEN
TimerDelay=Millisecs()+100
;Щит разряжается
IF ShieldTime>1 THEN ShieldTime=ShieldTime-1
;Щит разряжен и уходит на перезарядку
IF ShieldTime=1 THEN ShieldTime=-ShieldDelayTime
;Щит заряжается
IF ShieldTime<0 THEN ShieldTime=ShieldTime+1
ENDIF
[/blitz]
P.S. Писал в браузере. Возможны опечатки.
|