scn AlkatrazQuestSCRIPT

short AlkatrazQuestCOUNT
short AlkatrazQuestNO
short AlkatrazFollower
short AlkatrazFollowerTacticsCombat
short AlkatrazFollowerTacticsDistance
short AlkatrazFollowerWaiting
short AlkatrazFollowerFind
float AlkatrazFollowerWaitingLeaveDay
short RepairFlag
long AlkatrazCapsCount
long PCCapsCount

Begin GameMode

if GetStage AlkatrazMerchantQuest == 10
if (Player.GetItemCount WeapSniperRifle >= 1 && Player.GetItemCount Ammo308Caliber >= 10)
SetStage AlkatrazMerchantQuest 20
endif
endif

if AlkatrazMerchantQuest.AlkatrazFollowerWaiting == 1
if AlkatrazFollowerWaitingLeaveDay <= GameDaysPassed
setEssential Alkatraz 1
set AlkatrazFollower to 2
set AlkatrazFollowerWaiting to 0
set AlkatrazFollowerTacticsCombat to 0
set AlkatrazFollowerTacticsDistance to 1
set AlkatrazFollowerFind to 0
set AlkatrazFollowerWaitingLeaveDay to 0
ShowMessage AlkatrazGoHomeMessage
AlkatrazREF.evp
endif
endif

end

Begin MenuMode
if (MenuMode 1009 || MenuMode 1008) && RepairFlag == 1 && AlkatrazFollower == 1
Player.RemoveItem Caps001 50000000 1
AlkatrazREF.RemoveItem Caps001 50000000 1
Player.AddItem Caps001 PCCapsCount 1
AlkatrazREF.AddItem Caps001 AlkatrazCapsCount 1
set AlkatrazCapsCount to 0
set PCCapsCount to 0
set RepairFlag to 0
endif
end

Scn AlkatrazFollowSCRIPT
; текущее действие
short AlkatrazCOUNT

short BeginMedicalServices ;устанавливается в 1 в диалоге, стартует скрипт.
short DoOnce ;блокиратор скрипта
float Timer ;таймер для контроля анимации

BEGIN GameMode

;если установлена 1, проигрывается медицинская анимация в течении 8 секунд и восстановление стартовых переменных через беседу с ГГ
if ( BeginMedicalServices == 1 )
if ( DoOnce== 0 )
disablePlayerControls
SetRestrained 1
sayto player AlkatrazMedicalChatter
PlayIdle LooseDoctorHealPlayer
set Timer to 8
set DoOnce to 1
endif

set Timer to ( Timer - GetSecondsPassed )

if ( Timer <= 6 ) && ( DoOnce == 1 )
IMod FadeToBlackISFX
set DoOnce to 2
endif

if ( Timer <= 0 )
enablePlayerControls
SetRestrained 0
if DoOnce == 2
addScriptPackage DefaultNPCDialogPlayer
set DoOnce to 3
endif
endif
endif

END

BEGIN OnCombatEND

resethealth
restoreav perceptioncondition 100
restoreav endurancecondition 100
restoreav leftattackcondition 100
restoreav leftmobilitycondition 100
restoreav rightattackcondition 100
restoreav rightmobilitycondition 100

END

BEGIN OnDeath

if ( AlkatrazMerchantQuest.AlkatrazFollower == 1 )
set AlkatrazMerchantQuest.AlkatrazFollower to 0
set AlkatrazMerchantQuest.AlkatrazFollowerWaiting to 0
set AlkatrazMerchantQuest.AlkatrazFollowerTacticsCombat to 0
set AlkatrazMerchantQuest.AlkatrazFollowerTacticsDistance to 1
set AlkatrazMerchantQuest.AlkatrazFollowerFind to 0
ShowMessage AlkatrazFollowerMessageDead
endif

END