Begin Week_sct ; опять же, кладем на сундук

short StartDay
short Weeks
short Once

if ( Weeks )
	additem Misc_1 1
	additem Misc_2 1
	set Weeks to Weeks - 1
	return
endif

if ( GEPCCEll CELLID )
	if ( StartDay == 0 )
		set StartDay to DaysPassed
	elseif ( Once == 0 )
		set Weeks to ( ( DaysPassed - StartDay ) / 7 )
		set Once to 1
		set StartDay to 0
	endif
else
	if ( Once == 1 )
		set Once to 0
	endif
endif

END