| SCTX |
ScriptName AltarofTiberSeptim
short doonce
short DayofLastUse
ref target
Begin OnActivate
if IsActionRef player == 1
If Player.GetCrimeGold > 0 || GetPCInfamy > GetPCFame
MessageBox "Break not the peace of Tiber Septim!"
elseif FameTiberSeptim == 0
MessageBox "Make a pilgrimage to a Wayshrine of Tiber Septim, and henceforth receive a blessing at Tiber Septim's holy altars."
elseif FameTiberSeptim > 0
if GetDayofWeek == DayofLastUse
MessageBox "You've already been blessed this day."
else
MessageBox "The lawful gain the gifts of Talos!"
Cast AltarTiberSeptim Player
Set DayofLastUse to GetDayofWeek
endif
endif
else
set target to GetActionRef
Cast AltarTiberSeptim target
endif
end
begin gamemode
if doonce == 0 ;days are numbered 0-6 - prevents first visit on 0 day and being told you've used it today
set DayofLastUse to 10
set doonce to 1
endif
end |