From d7c52e3abe4c0bad23c11f5da38aa35a934eb96c Mon Sep 17 00:00:00 2001
From: sparky4 <sparky4@cock.li>
Date: Mon, 24 Nov 2014 00:08:23 -0600
Subject: [PATCH] 	modified:   scroll.c 	modified:   scroll.exe

---
 scroll.c   | 1028 ++++++++++++++++++++++++++--------------------------
 scroll.exe |  Bin 20224 -> 20288 bytes
 2 files changed, 514 insertions(+), 514 deletions(-)

diff --git a/scroll.c b/scroll.c
index b6f6ae68..fdfd4e9f 100644
--- a/scroll.c
+++ b/scroll.c
@@ -1,514 +1,514 @@
-#include "modex16.h"
-#include <stdio.h>
-#include <stdlib.h>
-#include "dos_kb.h"
-
-//word far *clock= (word far*) 0x046C; /* 18.2hz clock */
-
-typedef struct {
-	bitmap_t *data;
-	word tileHeight;
-	word tileWidth;
-	unsigned int rows;
-	unsigned int cols;
-	//unsigned int tilex,tiley; // tile position on the map
-} tiles_t;
-
-
-typedef struct {
-	byte	*data;
-	tiles_t *tiles;
-	int width;
-	int height;
-} map_t;
-
-
-typedef struct {
-	map_t *map;
-	page_t *page;
-	int tx; //appears to be the top left tile position on the viewable screen map
-	int ty; //appears to be the top left tile position on the viewable screen map
-	word dxThresh; //????
-	word dyThresh; //????
-} map_view_t;
-
-struct {
-	int x; //player exact position on the viewable map
-	int y; //player exact position on the viewable map
-	int tx; //player tile position on the viewable map
-	int ty; //player tile position on the viewable map
-	int hp; //hitpoints of the player
-} player;
-
-
-map_t allocMap(int w, int h);
-void initMap(map_t *map);
-void mapScrollRight(map_view_t *mv, byte offset);
-void mapScrollLeft(map_view_t *mv, byte offest);
-void mapScrollUp(map_view_t *mv, byte offset);
-void mapScrollDown(map_view_t *mv, byte offset);
-void mapGoTo(map_view_t *mv, int tx, int ty);
-void mapDrawTile(tiles_t *t, word i, page_t *page, word x, word y);
-void mapDrawRow(map_view_t *mv, int tx, int ty, word y);
-void mapDrawCol(map_view_t *mv, int tx, int ty, word x);
-void animatePlayer(map_view_t *src, map_view_t *dest, short d1, short d2, int x, int y, int ls, bitmap_t *bmp);
-
-#define TILEWH 16
-#define QUADWH (TILEWH/4)
-#define SPEED 2
-
-//place holder definitions
-#define MAPX 40
-#define MAPY 30
-#define SWAP(a, b) tmp=a; a=b; b=tmp;
-void main() {
-	bitmap_t ptmp; // player sprite
-	int q=0;
-	page_t screen, screen2;
-	map_t map;
-	map_view_t mv, mv2;
-	map_view_t *bg, *spri, *tmp;
-	byte *ptr;
-
-	setkb(1);
-	/* create the map */
-	map = allocMap(MAPX,MAPY); //20x15 is the resolution of the screen you can make maps smaller than 20x15 but the null space needs to be bgn properly
-	initMap(&map);
-	mv.map = &map;
-	mv2.map = &map;
-
-	/* draw the tiles */
-	ptr = map.data;
-	ptmp = bitmapLoadPcx("ptmp.pcx"); // load sprite
-	modexEnter();
-	modexPalUpdate(ptmp.palette);
-	screen = modexDefaultPage();
-	screen.width += (TILEWH*2);
-	screen.height += (TILEWH*2);
-	mv.page = &screen;
-	screen2 = modexNextPage(mv.page);
-	mv2.page = &screen2;
-
-	/* set up paging */
-	bg = &mv;
-	spri = &mv2;
-
-//TODO: LOAD map data and position the map in the middle of the screen if smaller then screen
-	mapGoTo(bg, 0, 0);
-	mapGoTo(spri, 0, 0);
-
-	//TODO: put player in starting position of spot
-	//default player position on the viewable map
-	player.tx = bg->tx + 10;
-	player.ty = bg->ty + 8;
-	player.x = player.tx*TILEWH;
-	player.y = player.ty*TILEWH;
-	modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 64, 24, 32, &ptmp);
-	modexCopyPageRegion(bg->page, spri->page, player.x-4, player.y-TILEWH-2, player.x-4, player.y-TILEWH-2, 24, 36);
-	modexShowPage(bg->page);
-	while(!keyp(1))
-	{
-	//top left corner & bottem right corner of map veiw be set as map edge trigger since maps are actually square
-	//to stop scrolling and have the player position data move to the edge of the screen with respect to the direction
-	//when player.tx or player.ty == 0 or player.tx == 20 or player.ty == 15 then stop because that is edge of map and you do not want to walk of the map
-	
-	//TODO: render the player properly with animation and sprite sheet
-	//TODO: fexible speeds
-	if(keyp(77) && !keyp(75))
-	{
-		if(bg->tx >= 0 && bg->tx+20 < MAPX && player.tx == bg->tx + 10)
-		{
-			for(q=0; q<(TILEWH/SPEED); q++)
-			{
-				animatePlayer(bg, spri, 1, 1, player.x, player.y, q, &ptmp);
-				mapScrollRight(bg, SPEED);
-				mapScrollRight(spri, SPEED);
-				modexShowPage(spri->page);
-			}
-			player.tx++;
-		}
-		else if(player.tx < MAPX)
-		{
-			for(q=0; q<(TILEWH/SPEED); q++)
-			{
-				player.x+=SPEED;
-				animatePlayer(bg, spri, 1, 0, player.x, player.y, q, &ptmp);
-				modexShowPage(spri->page);
-			}
-			player.tx++;
-		}
-		else
-		{
-			modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH-2, player.x-4, player.y-TILEWH-2, 24, 36);
-			modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 32, 24, 32, &ptmp);
-			modexShowPage(spri->page);
-		}
-	}
-
-	if(keyp(75) && !keyp(77))
-	{
-		if(bg->tx > 0 && bg->tx+20 <= MAPX && player.tx == bg->tx + 10)
-		{
-			for(q=0; q<(TILEWH/SPEED); q++)
-			{
-				
-				animatePlayer(bg, spri, 3, 1, player.x, player.y, q, &ptmp);
-				mapScrollLeft(bg, SPEED);
-				mapScrollLeft(spri, SPEED);
-				modexShowPage(spri->page);
-			}
-			player.tx--;
-		}
-		else if(player.tx > 1)
-		{
-			for(q=0; q<(TILEWH/SPEED); q++)
-			{
-				player.x-=SPEED;
-				animatePlayer(bg, spri, 3, 0, player.x, player.y, q, &ptmp);
-				modexShowPage(spri->page);
-			}
-			player.tx--;
-		}
-		else
-		{
-			modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH-2, player.x-4, player.y-TILEWH-2, 24, 36);
-			modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 96, 24, 32, &ptmp);
-			modexShowPage(spri->page);
-		}
-	}
-
-	if(keyp(80) && !keyp(72))
-	{
-		if(bg->ty >= 0 && bg->ty+15 < MAPY && player.ty == bg->ty + 8)
-		{
-			for(q=0; q<(TILEWH/SPEED); q++)
-			{
-				animatePlayer(bg, spri, 2, 1, player.x, player.y, q, &ptmp);
-				mapScrollDown(bg, SPEED);
-				mapScrollDown(spri, SPEED);
-				modexShowPage(spri->page);
-			}
-			player.ty++;
-		}
-		else if(player.ty < MAPY)
-		{
-			for(q=0; q<(TILEWH/SPEED); q++)
-			{
-				player.y+=SPEED;
-				animatePlayer(bg, spri, 2, 0, player.x, player.y, q, &ptmp);
-				modexShowPage(spri->page);
-			}
-			player.ty++;
-		}
-		else
-		{
-			modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH-2, player.x-4, player.y-TILEWH-2, 24, 36);
-			modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 64, 24, 32, &ptmp);
-			modexShowPage(spri->page);
-		}
-	}
-
-	if(keyp(72) && !keyp(80))
-	{
-		if(bg->ty > 0 && bg->ty+15 <= MAPY && player.ty == bg->ty + 8)
-		{
-			for(q=0; q<(TILEWH/SPEED); q++)
-			{
-				animatePlayer(bg, spri, 0, 1, player.x, player.y, q, &ptmp);
-				mapScrollUp(bg, SPEED);
-				mapScrollUp(spri, SPEED);
-				modexShowPage(spri->page);
-			}
-			player.ty--;
-		}
-		else if(player.ty > 1)
-		{
-			for(q=0; q<(TILEWH/SPEED); q++)
-			{
-				player.y-=SPEED;
-				animatePlayer(bg, spri, 0, 0, player.x, player.y, q, &ptmp);
-				modexShowPage(spri->page);
-			}
-			player.ty--;
-		}
-		else
-		{
-			modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH-2, player.x-4, player.y-TILEWH-2, 24, 36);
-			modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 0, 24, 32, &ptmp);
-			modexShowPage(spri->page);
-		}
-	}
-	
-	}
-
-	modexLeave();
-	setkb(0);
-	printf("Project 16 scroll.exe\n");
-	printf("tx: %d\n", bg->tx);
-	printf("ty: %d\n", bg->ty);
-	printf("player.x: %d\n", player.x);
-	printf("player.y: %d\n", player.y);
-	printf("player.tx: %d\n", player.tx);
-	printf("player.ty: %d\n", player.ty);
-}
-
-
-map_t
-allocMap(int w, int h) {
-	map_t result;
-
-	result.width =w;
-	result.height=h;
-	result.data = malloc(sizeof(byte) * w * h);
-
-	return result;
-}
-
-
-void
-initMap(map_t *map) {
-	/* just a place holder to fill out an alternating pattern */
-	int x, y;
-	int i;
-	int tile = 1;
-	map->tiles = malloc(sizeof(tiles_t));
-
-	/* create the tile set */
-	map->tiles->data = malloc(sizeof(bitmap_t));
-	map->tiles->data->width = (TILEWH*2);
-	map->tiles->data->height= TILEWH;
-	map->tiles->data->data = malloc((TILEWH*2)*TILEWH);
-	map->tiles->tileHeight = TILEWH;
-	map->tiles->tileWidth =TILEWH;
-	map->tiles->rows = 1;
-	map->tiles->cols = 2;
-
-	i=0;
-	for(y=0; y<TILEWH; y++) {
-	for(x=0; x<(TILEWH*2); x++) {
-		if(x<TILEWH)
-		  map->tiles->data->data[i] = 0x24;
-		else
-		  map->tiles->data->data[i] = 0x34;
-		i++;
-	}
-	}
-
-	i=0;
-	for(y=0; y<map->height; y++) {
-		for(x=0; x<map->width; x++) {
-			map->data[i] = tile;
-			tile = tile ? 0 : 1;
-			i++;
-		}
-		tile = tile ? 0 : 1;
-	}
-}
-
-
-void
-mapScrollRight(map_view_t *mv, byte offset) {
-	word x, y;  /* coordinate for bging */
-
-	/* increment the pixel position and update the page */
-	mv->page->dx += offset;
-
-	/* check to see if this changes the tile */
-	if(mv->page->dx >= mv->dxThresh ) {
-	/* go forward one tile */
-	mv->tx++;
-	/* Snap the origin forward */
-	mv->page->data += 4;
-	mv->page->dx = mv->map->tiles->tileWidth;
-
-
-	/* bg the next column */
-	x= SCREEN_WIDTH + mv->map->tiles->tileWidth;
-		mapDrawCol(mv, mv->tx + 20 , mv->ty-1, x);
-	}
-}
-
-
-void
-mapScrollLeft(map_view_t *mv, byte offset) {
-	word x, y;  /* coordinate for bging */
-
-	/* increment the pixel position and update the page */
-	mv->page->dx -= offset;
-
-	/* check to see if this changes the tile */
-	if(mv->page->dx == 0) {
-	/* go backward one tile */
-	mv->tx--;
-		
-	/* Snap the origin backward */
-	mv->page->data -= 4;
-	mv->page->dx = mv->map->tiles->tileWidth;
-
-	/* bg the next column */
-		mapDrawCol(mv, mv->tx-1, mv->ty-1, 0);
-	}
-}
-
-
-void
-mapScrollUp(map_view_t *mv, byte offset) {
-	word x, y;  /* coordinate for bging */
-
-	/* increment the pixel position and update the page */
-	mv->page->dy -= offset;
-
-	/* check to see if this changes the tile */
-	if(mv->page->dy == 0 ) {
-	/* go down one tile */
-	mv->ty--;
-	/* Snap the origin downward */
-	mv->page->data -= mv->page->width*4;
-	mv->page->dy = mv->map->tiles->tileHeight;
-
-
-	/* bg the next row */
-	y= 0;
-		mapDrawRow(mv, mv->tx-1 , mv->ty-1, y);
-	}
-}
-
-
-void
-mapScrollDown(map_view_t *mv, byte offset) {
-	word x, y;  /* coordinate for bging */
-
-	/* increment the pixel position and update the page */
-	mv->page->dy += offset;
-
-	/* check to see if this changes the tile */
-	if(mv->page->dy >= mv->dyThresh ) {
-	/* go down one tile */
-	mv->ty++;
-	/* Snap the origin downward */
-	mv->page->data += mv->page->width*4;
-	mv->page->dy = mv->map->tiles->tileHeight;
-
-
-	/* bg the next row */
-	y= SCREEN_HEIGHT + mv->map->tiles->tileHeight;
-		mapDrawRow(mv, mv->tx-1 , mv->ty+15, y);
-	}
-
-}
-
-
-void
-mapGoTo(map_view_t *mv, int tx, int ty) {
-	int px, py;
-	unsigned int i;
-
-	/* set up the coordinates */
-	mv->tx = tx;
-	mv->ty = ty;
-	mv->page->dx = mv->map->tiles->tileWidth;
-	mv->page->dy = mv->map->tiles->tileHeight;
-
-	/* set up the thresholds */
-	mv->dxThresh = mv->map->tiles->tileWidth * 2;
-	mv->dyThresh = mv->map->tiles->tileHeight * 2;
-
-	/* bg the tiles */
-	modexClearRegion(mv->page, 0, 0, mv->page->width, mv->page->height, 0);
-	py=0;
-	i=mv->ty * mv->map->width + mv->tx;
-	for(ty=mv->ty-1; py < SCREEN_HEIGHT+mv->dyThresh && ty < mv->map->height; ty++, py+=mv->map->tiles->tileHeight) {
-		mapDrawRow(mv, tx-1, ty, py);
-	i+=mv->map->width - tx;
-	}
-}
-
-
-void
-mapDrawTile(tiles_t *t, word i, page_t *page, word x, word y) {
-	word rx;
-	word ry;
-	rx = (i % t->cols) * t->tileWidth;
-	ry = (i / t->cols) * t->tileHeight;
-	modexDrawBmpRegion(page, x, y, rx, ry, t->tileWidth, t->tileHeight, t->data);
-}
-
-
-void 
-mapDrawRow(map_view_t *mv, int tx, int ty, word y) {
-	word x;
-	int i;
-
-	/* the position within the map array */
-	i=ty * mv->map->width + tx;
-	for(x=0; x<SCREEN_WIDTH+mv->dxThresh && tx < mv->map->width; x+=mv->map->tiles->tileWidth, tx++) {
-	if(i>=0) {
-		/* we are in the map, so copy! */
-		mapDrawTile(mv->map->tiles, mv->map->data[i], mv->page, x, y);
-	}
-	i++; /* next! */
-	}
-}
-
-
-void 
-mapDrawCol(map_view_t *mv, int tx, int ty, word x) {
-	int y;
-	int i;
-
-	/* location in the map array */
-	i=ty * mv->map->width + tx;
-
-	/* We'll copy all of the columns in the screen, 
-	   i + 1 row above and one below */
-	for(y=0; y<SCREEN_HEIGHT+mv->dyThresh && ty < mv->map->height; y+=mv->map->tiles->tileHeight, ty++) {
-	if(i>=0) {
-		/* we are in the map, so copy away! */
-		mapDrawTile(mv->map->tiles, mv->map->data[i], mv->page, x, y);
-	}
-	i += mv->map->width;
-	}
-}
-
-void
-animatePlayer(map_view_t *src, map_view_t *dest, short d1, short d2, int x, int y, int ls, bitmap_t *bmp)
-{
-	short dire=32*d1;
-	short qq;
-	short lo = ((TILEWH / SPEED) / 3);
-	short loo = (ls + lo);
-
-	if(d2==0) qq = 0;
-	else qq = ((ls+1)*SPEED);
-	switch (d1)
-	{
-		case 0:
-			//up
-			x=x-4;
-			y=y-qq-TILEWH;
-		break;
-		case 1:
-			// right
-			x=x+qq-4;
-			y=y-TILEWH;
-		break;
-		case 2:
-			//down
-			x=x-4;
-			y=y+qq-TILEWH;
-		break;
-		case 3:
-			//left
-			x=x-qq-4;
-			y=y-TILEWH;
-		break;
-	}		//TODO: make flexible animation thingy
-			if(ls<1) { modexCopyPageRegion(dest->page, src->page, x, y-2, x, y-2, 24, 36);// modexWaitBorder();
-			modexDrawSpriteRegion(dest->page, x, y, 24, dire, 24, 32, bmp); }else
-			if(4>ls && ls>=1) { modexCopyPageRegion(dest->page, src->page, x, y-2, x, y-2, 24, 36);// modexWaitBorder();
-			modexDrawSpriteRegion(dest->page, x, y, 48, dire, 24, 32, bmp); }else
-			if(7>ls && ls>=4) { modexCopyPageRegion(dest->page, src->page, x, y-2, x, y-2, 24, 36);// modexWaitBorder();
-			modexDrawSpriteRegion(dest->page, x, y, 0, dire, 24, 32, bmp); }else
-			if(8>=ls && ls>=7) { modexCopyPageRegion(dest->page, src->page, x, y-2, x, y-2, 24, 36);// modexWaitBorder();
-			modexDrawSpriteRegion(dest->page, x, y, 24, dire, 24, 32, bmp); }else ls-=ls;
-}
+#include "modex16.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include "dos_kb.h"
+
+//word far *clock= (word far*) 0x046C; /* 18.2hz clock */
+
+typedef struct {
+	bitmap_t *data;
+	word tileHeight;
+	word tileWidth;
+	unsigned int rows;
+	unsigned int cols;
+	//unsigned int tilex,tiley; // tile position on the map
+} tiles_t;
+
+
+typedef struct {
+	byte	*data;
+	tiles_t *tiles;
+	int width;
+	int height;
+} map_t;
+
+
+typedef struct {
+	map_t *map;
+	page_t *page;
+	int tx; //appears to be the top left tile position on the viewable screen map
+	int ty; //appears to be the top left tile position on the viewable screen map
+	word dxThresh; //????
+	word dyThresh; //????
+} map_view_t;
+
+struct {
+	int x; //player exact position on the viewable map
+	int y; //player exact position on the viewable map
+	int tx; //player tile position on the viewable map
+	int ty; //player tile position on the viewable map
+	int hp; //hitpoints of the player
+} player;
+
+
+map_t allocMap(int w, int h);
+void initMap(map_t *map);
+void mapScrollRight(map_view_t *mv, byte offset);
+void mapScrollLeft(map_view_t *mv, byte offest);
+void mapScrollUp(map_view_t *mv, byte offset);
+void mapScrollDown(map_view_t *mv, byte offset);
+void mapGoTo(map_view_t *mv, int tx, int ty);
+void mapDrawTile(tiles_t *t, word i, page_t *page, word x, word y);
+void mapDrawRow(map_view_t *mv, int tx, int ty, word y);
+void mapDrawCol(map_view_t *mv, int tx, int ty, word x);
+void animatePlayer(map_view_t *src, map_view_t *dest, short d1, short d2, int x, int y, int ls, bitmap_t *bmp);
+
+#define TILEWH 16
+#define QUADWH (TILEWH/4)
+#define SPEED 4
+
+//place holder definitions
+#define MAPX 40
+#define MAPY 30
+#define SWAP(a, b) tmp=a; a=b; b=tmp;
+void main() {
+	bitmap_t ptmp; // player sprite
+	int q=0;
+	page_t screen, screen2;
+	map_t map;
+	map_view_t mv, mv2;
+	map_view_t *bg, *spri, *tmp;
+	byte *ptr;
+
+	setkb(1);
+	/* create the map */
+	map = allocMap(MAPX,MAPY); //20x15 is the resolution of the screen you can make maps smaller than 20x15 but the null space needs to be bgn properly
+	initMap(&map);
+	mv.map = &map;
+	mv2.map = &map;
+
+	/* draw the tiles */
+	ptr = map.data;
+	ptmp = bitmapLoadPcx("ptmp.pcx"); // load sprite
+	modexEnter();
+	modexPalUpdate(ptmp.palette);
+	screen = modexDefaultPage();
+	screen.width += (TILEWH*2);
+	screen.height += (TILEWH*2);
+	mv.page = &screen;
+	screen2 = modexNextPage(mv.page);
+	mv2.page = &screen2;
+
+	/* set up paging */
+	bg = &mv;
+	spri = &mv2;
+
+//TODO: LOAD map data and position the map in the middle of the screen if smaller then screen
+	mapGoTo(bg, 0, 0);
+	mapGoTo(spri, 0, 0);
+
+	//TODO: put player in starting position of spot
+	//default player position on the viewable map
+	player.tx = bg->tx + 10;
+	player.ty = bg->ty + 8;
+	player.x = player.tx*TILEWH;
+	player.y = player.ty*TILEWH;
+	modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 64, 24, 32, &ptmp);
+	modexCopyPageRegion(bg->page, spri->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);
+	modexShowPage(bg->page);
+	while(!keyp(1))
+	{
+	//top left corner & bottem right corner of map veiw be set as map edge trigger since maps are actually square
+	//to stop scrolling and have the player position data move to the edge of the screen with respect to the direction
+	//when player.tx or player.ty == 0 or player.tx == 20 or player.ty == 15 then stop because that is edge of map and you do not want to walk of the map
+	
+	//TODO: render the player properly with animation and sprite sheet
+	//TODO: fexible speeds
+	if(keyp(77) && !keyp(75))
+	{
+		if(bg->tx >= 0 && bg->tx+20 < MAPX && player.tx == bg->tx + 10)
+		{
+			for(q=0; q<(TILEWH/SPEED); q++)
+			{
+				animatePlayer(bg, spri, 1, 1, player.x, player.y, q, &ptmp);
+				mapScrollRight(bg, SPEED);
+				mapScrollRight(spri, SPEED);
+				modexShowPage(spri->page);
+			}
+			player.tx++;
+		}
+		else if(player.tx < MAPX)
+		{
+			for(q=0; q<(TILEWH/SPEED); q++)
+			{
+				player.x+=SPEED;
+				animatePlayer(bg, spri, 1, 0, player.x, player.y, q, &ptmp);
+				modexShowPage(spri->page);
+			}
+			player.tx++;
+		}
+		else
+		{
+			modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);
+			modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 32, 24, 32, &ptmp);
+			modexShowPage(spri->page);
+		}
+	}
+
+	if(keyp(75) && !keyp(77))
+	{
+		if(bg->tx > 0 && bg->tx+20 <= MAPX && player.tx == bg->tx + 10)
+		{
+			for(q=0; q<(TILEWH/SPEED); q++)
+			{
+				
+				animatePlayer(bg, spri, 3, 1, player.x, player.y, q, &ptmp);
+				mapScrollLeft(bg, SPEED);
+				mapScrollLeft(spri, SPEED);
+				modexShowPage(spri->page);
+			}
+			player.tx--;
+		}
+		else if(player.tx > 1)
+		{
+			for(q=0; q<(TILEWH/SPEED); q++)
+			{
+				player.x-=SPEED;
+				animatePlayer(bg, spri, 3, 0, player.x, player.y, q, &ptmp);
+				modexShowPage(spri->page);
+			}
+			player.tx--;
+		}
+		else
+		{
+			modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);
+			modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 96, 24, 32, &ptmp);
+			modexShowPage(spri->page);
+		}
+	}
+
+	if(keyp(80) && !keyp(72))
+	{
+		if(bg->ty >= 0 && bg->ty+15 < MAPY && player.ty == bg->ty + 8)
+		{
+			for(q=0; q<(TILEWH/SPEED); q++)
+			{
+				animatePlayer(bg, spri, 2, 1, player.x, player.y, q, &ptmp);
+				mapScrollDown(bg, SPEED);
+				mapScrollDown(spri, SPEED);
+				modexShowPage(spri->page);
+			}
+			player.ty++;
+		}
+		else if(player.ty < MAPY)
+		{
+			for(q=0; q<(TILEWH/SPEED); q++)
+			{
+				player.y+=SPEED;
+				animatePlayer(bg, spri, 2, 0, player.x, player.y, q, &ptmp);
+				modexShowPage(spri->page);
+			}
+			player.ty++;
+		}
+		else
+		{
+			modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);
+			modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 64, 24, 32, &ptmp);
+			modexShowPage(spri->page);
+		}
+	}
+
+	if(keyp(72) && !keyp(80))
+	{
+		if(bg->ty > 0 && bg->ty+15 <= MAPY && player.ty == bg->ty + 8)
+		{
+			for(q=0; q<(TILEWH/SPEED); q++)
+			{
+				animatePlayer(bg, spri, 0, 1, player.x, player.y, q, &ptmp);
+				mapScrollUp(bg, SPEED);
+				mapScrollUp(spri, SPEED);
+				modexShowPage(spri->page);
+			}
+			player.ty--;
+		}
+		else if(player.ty > 1)
+		{
+			for(q=0; q<(TILEWH/SPEED); q++)
+			{
+				player.y-=SPEED;
+				animatePlayer(bg, spri, 0, 0, player.x, player.y, q, &ptmp);
+				modexShowPage(spri->page);
+			}
+			player.ty--;
+		}
+		else
+		{
+			modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);
+			modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 0, 24, 32, &ptmp);
+			modexShowPage(spri->page);
+		}
+	}
+	
+	}
+
+	modexLeave();
+	setkb(0);
+	printf("Project 16 scroll.exe\n");
+	printf("tx: %d\n", bg->tx);
+	printf("ty: %d\n", bg->ty);
+	printf("player.x: %d\n", player.x);
+	printf("player.y: %d\n", player.y);
+	printf("player.tx: %d\n", player.tx);
+	printf("player.ty: %d\n", player.ty);
+}
+
+
+map_t
+allocMap(int w, int h) {
+	map_t result;
+
+	result.width =w;
+	result.height=h;
+	result.data = malloc(sizeof(byte) * w * h);
+
+	return result;
+}
+
+
+void
+initMap(map_t *map) {
+	/* just a place holder to fill out an alternating pattern */
+	int x, y;
+	int i;
+	int tile = 1;
+	map->tiles = malloc(sizeof(tiles_t));
+
+	/* create the tile set */
+	map->tiles->data = malloc(sizeof(bitmap_t));
+	map->tiles->data->width = (TILEWH*2);
+	map->tiles->data->height= TILEWH;
+	map->tiles->data->data = malloc((TILEWH*2)*TILEWH);
+	map->tiles->tileHeight = TILEWH;
+	map->tiles->tileWidth =TILEWH;
+	map->tiles->rows = 1;
+	map->tiles->cols = 2;
+
+	i=0;
+	for(y=0; y<TILEWH; y++) {
+	for(x=0; x<(TILEWH*2); x++) {
+		if(x<TILEWH)
+		  map->tiles->data->data[i] = 0x24;
+		else
+		  map->tiles->data->data[i] = 0x34;
+		i++;
+	}
+	}
+
+	i=0;
+	for(y=0; y<map->height; y++) {
+		for(x=0; x<map->width; x++) {
+			map->data[i] = tile;
+			tile = tile ? 0 : 1;
+			i++;
+		}
+		tile = tile ? 0 : 1;
+	}
+}
+
+
+void
+mapScrollRight(map_view_t *mv, byte offset) {
+	word x, y;  /* coordinate for bging */
+
+	/* increment the pixel position and update the page */
+	mv->page->dx += offset;
+
+	/* check to see if this changes the tile */
+	if(mv->page->dx >= mv->dxThresh ) {
+	/* go forward one tile */
+	mv->tx++;
+	/* Snap the origin forward */
+	mv->page->data += 4;
+	mv->page->dx = mv->map->tiles->tileWidth;
+
+
+	/* bg the next column */
+	x= SCREEN_WIDTH + mv->map->tiles->tileWidth;
+		mapDrawCol(mv, mv->tx + 20 , mv->ty-1, x);
+	}
+}
+
+
+void
+mapScrollLeft(map_view_t *mv, byte offset) {
+	word x, y;  /* coordinate for bging */
+
+	/* increment the pixel position and update the page */
+	mv->page->dx -= offset;
+
+	/* check to see if this changes the tile */
+	if(mv->page->dx == 0) {
+	/* go backward one tile */
+	mv->tx--;
+		
+	/* Snap the origin backward */
+	mv->page->data -= 4;
+	mv->page->dx = mv->map->tiles->tileWidth;
+
+	/* bg the next column */
+		mapDrawCol(mv, mv->tx-1, mv->ty-1, 0);
+	}
+}
+
+
+void
+mapScrollUp(map_view_t *mv, byte offset) {
+	word x, y;  /* coordinate for bging */
+
+	/* increment the pixel position and update the page */
+	mv->page->dy -= offset;
+
+	/* check to see if this changes the tile */
+	if(mv->page->dy == 0 ) {
+	/* go down one tile */
+	mv->ty--;
+	/* Snap the origin downward */
+	mv->page->data -= mv->page->width*4;
+	mv->page->dy = mv->map->tiles->tileHeight;
+
+
+	/* bg the next row */
+	y= 0;
+		mapDrawRow(mv, mv->tx-1 , mv->ty-1, y);
+	}
+}
+
+
+void
+mapScrollDown(map_view_t *mv, byte offset) {
+	word x, y;  /* coordinate for bging */
+
+	/* increment the pixel position and update the page */
+	mv->page->dy += offset;
+
+	/* check to see if this changes the tile */
+	if(mv->page->dy >= mv->dyThresh ) {
+	/* go down one tile */
+	mv->ty++;
+	/* Snap the origin downward */
+	mv->page->data += mv->page->width*4;
+	mv->page->dy = mv->map->tiles->tileHeight;
+
+
+	/* bg the next row */
+	y= SCREEN_HEIGHT + mv->map->tiles->tileHeight;
+		mapDrawRow(mv, mv->tx-1 , mv->ty+15, y);
+	}
+
+}
+
+
+void
+mapGoTo(map_view_t *mv, int tx, int ty) {
+	int px, py;
+	unsigned int i;
+
+	/* set up the coordinates */
+	mv->tx = tx;
+	mv->ty = ty;
+	mv->page->dx = mv->map->tiles->tileWidth;
+	mv->page->dy = mv->map->tiles->tileHeight;
+
+	/* set up the thresholds */
+	mv->dxThresh = mv->map->tiles->tileWidth * 2;
+	mv->dyThresh = mv->map->tiles->tileHeight * 2;
+
+	/* bg the tiles */
+	modexClearRegion(mv->page, 0, 0, mv->page->width, mv->page->height, 0);
+	py=0;
+	i=mv->ty * mv->map->width + mv->tx;
+	for(ty=mv->ty-1; py < SCREEN_HEIGHT+mv->dyThresh && ty < mv->map->height; ty++, py+=mv->map->tiles->tileHeight) {
+		mapDrawRow(mv, tx-1, ty, py);
+	i+=mv->map->width - tx;
+	}
+}
+
+
+void
+mapDrawTile(tiles_t *t, word i, page_t *page, word x, word y) {
+	word rx;
+	word ry;
+	rx = (i % t->cols) * t->tileWidth;
+	ry = (i / t->cols) * t->tileHeight;
+	modexDrawBmpRegion(page, x, y, rx, ry, t->tileWidth, t->tileHeight, t->data);
+}
+
+
+void 
+mapDrawRow(map_view_t *mv, int tx, int ty, word y) {
+	word x;
+	int i;
+
+	/* the position within the map array */
+	i=ty * mv->map->width + tx;
+	for(x=0; x<SCREEN_WIDTH+mv->dxThresh && tx < mv->map->width; x+=mv->map->tiles->tileWidth, tx++) {
+	if(i>=0) {
+		/* we are in the map, so copy! */
+		mapDrawTile(mv->map->tiles, mv->map->data[i], mv->page, x, y);
+	}
+	i++; /* next! */
+	}
+}
+
+
+void 
+mapDrawCol(map_view_t *mv, int tx, int ty, word x) {
+	int y;
+	int i;
+
+	/* location in the map array */
+	i=ty * mv->map->width + tx;
+
+	/* We'll copy all of the columns in the screen, 
+	   i + 1 row above and one below */
+	for(y=0; y<SCREEN_HEIGHT+mv->dyThresh && ty < mv->map->height; y+=mv->map->tiles->tileHeight, ty++) {
+	if(i>=0) {
+		/* we are in the map, so copy away! */
+		mapDrawTile(mv->map->tiles, mv->map->data[i], mv->page, x, y);
+	}
+	i += mv->map->width;
+	}
+}
+
+void
+animatePlayer(map_view_t *src, map_view_t *dest, short d1, short d2, int x, int y, int ls, bitmap_t *bmp)
+{
+	short dire=32*d1;
+	short qq;
+	short lo = ((TILEWH / SPEED) / 3);
+	short loo = (ls + lo);
+
+	if(d2==0) qq = 0;
+	else qq = ((ls+1)*SPEED);
+	switch (d1)
+	{
+		case 0:
+			//up
+			x=x-4;
+			y=y-qq-TILEWH;
+		break;
+		case 1:
+			// right
+			x=x+qq-4;
+			y=y-TILEWH;
+		break;
+		case 2:
+			//down
+			x=x-4;
+			y=y+qq-TILEWH;
+		break;
+		case 3:
+			//left
+			x=x-qq-4;
+			y=y-TILEWH;
+		break;
+	}		//TODO: make flexible animation thingy
+			if(2>ls && ls>=0) { modexCopyPageRegion(dest->page, src->page, x-2, y-4, x-2, y-4, 28, 40);
+			modexDrawSpriteRegion(dest->page, x, y, 48, dire, 24, 32, bmp); modexWaitBorder();  }else
+			if(4>ls && ls>=2) { modexCopyPageRegion(dest->page, src->page, x-2, y-4, x-2, y-4, 28, 40);
+			modexDrawSpriteRegion(dest->page, x, y, 24, dire, 24, 32, bmp); modexWaitBorder();  }else
+			if(6>ls && ls>4) { modexCopyPageRegion(dest->page, src->page, x-2, y-4, x-2, y-4, 28, 40);
+			modexDrawSpriteRegion(dest->page, x, y, 0, dire, 24, 32, bmp); modexWaitBorder();  }else
+			if(8>ls && ls>6) { modexCopyPageRegion(dest->page, src->page, x-2, y-4, x-2, y-4, 28, 40);
+			modexDrawSpriteRegion(dest->page, x, y, 24, dire, 24, 32, bmp); modexWaitBorder();  }else ls-=ls;
+}
diff --git a/scroll.exe b/scroll.exe
index a2cf0bd85ec6f998b82ffe5e18c99b16e25714c5..f8d42a1af7fd6d1f72f646aae9e5f26596f41afb 100644
GIT binary patch
delta 3673
zcmaJ^3sh9c8J@ZK?hE$C@^%$a0b{htsv$}M!N(F6%mTWs7*S6XPutk^)bKbtm514S
z-0=d5oztc@nlvG{8k?8fG?%q8%dYX62jGihwFxF>)+NMO0FmzP%r2%$PLkbo=gxoU
zpa1{nf8N{tJoG*f3redB;XObN1keX$d6|Mv!B7$aX&~}j69>Qp@c^J?0OBVAAkyms
zy<~dLHt#G*Fr7`TC@Z&Du0o$V2Np^Ykli~sPR+O#PjaF~>n*Y)wzcjs8H{eV9!Azr
zoz|miPV4cs*1D4<RlD=GO;+9@r2(6i1Z<+dhj#{yWnxMf?+gkRqP<tNeoFccY`h%J
zL>I(u^VaZz&v~g75DOz7m6iiCEe@}T3nmCaw1$XM;Sm73MnZzPm?OWAE_TWS?trPY
z1UaXRx12Zx0lL8$ftoSogc-J+4f?->14BNR;|+Ksmyz^u9b>&1#gxs9rD``a09mnk
zHCOnvh}uVlh}wt4YU`tz+AYUr{TV*69XJcl@UU@~MQ*hY+A8H7deE#c{w^SX9FS7Q
zwB$v${s1729w+b_N&Q;JdRZgcs8LK|Ko0^k*Muwh!f`u*aX=$HV{Ooc?eHpZo<r64
z@Z+}N##L*TjA>z*>4$7#&|#yHVJ6XxHK3NL!o@M$ytRDb_87x)e+;$>cfD|si<sjT
zj&W~Qhqdn)%(K6t-Etw~h!_RqDGu{&ITt+geU6CJ;%G&B(_j>34QR&5LY2i!ju@mF
zz($f|okuvaIwaQ%(n3mWC@skKN@*D-#!QT$o|nogH5j3KcxgSQK8{dlc<FIU^+c$1
zywpIcBaA`=Yu8m*tzP4|Nk%{#Oe-7}kw90Yo5(tb?4jX)a>#_NBQ3pcUNqcVH?o)h
zP%qoac4+~5(Budw2s+vUffNOZXhMrQNe#$TcubK3e~Qh@XJI{dD=WFw7_3z-gctBb
zsxpZ1i>gY_V#K4WYWOl<tzH5}{DOLcahfuW%g52YF#(c?2h|PmFy5r8YZ}yir5V%k
zQ8sBJAh~+ScwQ=P<z-@>T5OCGt=cygsPA+?#qMmp1!@ILPf&w=-TmGDPM_es!`G*G
zU(S;M`jW;uC`>;ejD_duB&ekWJRej{XO#0xV?GBOmT&WJDVFY`C?*11Yw1{7Yt!P8
zO{^XfD>-Bz6RU^9lTqXsDP<ic&nx9R{ax?Mbs@%4%yndgz#zyMKtl<Y`W=ZsF0k}F
z0-MGqCV{{nkgo&{%c$7KCEvpM;}XXd-v`lhBDf-74H_z_%*GWzByLpv#rToO*pWv?
z>lk_Ud*yW`0dxo5AWsYAqB`PCH8o=bAV}+|C=b_C{ZZ>p;IiImt-jG}zro_K$VgeM
z*7&7NKsMmE=)BSdqX$6g2v2lI&t)L_c%r9Ic=qIu!4m_dGdvkHc$$E8mM1q2mJ9Pw
zJz+$by03`kgsq)3ED8>II0M^o5+`c2bo-+v9t2`#DGrc5xLmsgR^mTu9WaEiYfGBm
z*6)M0Lu}`t^ynnJ@6>x@!)kt~-(e4B4>3jC^->>CMEyQ>&5&mfki0yp(TkOWv!Czo
zXVgYLJxJiqkWCT*SsUfBqoZi0fF4#>)09yHvMh=k!R7aGfB~DQclBm}ihR<0I-bnb
zQv=v&43SKHLPxlK4L)T^;U;Nt&>&&aPyjRVNkb}B;Hw6ijm8m9tHckP;_>Ym9VA#~
zN{4<t(=-{rh*y{<K_}j1THiE9!IBhpT6&~oJTYqM{RB@;8gvStcBvL_9R>WBF9J(%
zGju~jxdeE!NP&E``WdAbS}hV3v;;}AOo$qFRYem2LxIY)qfT^A6j<9LqiS+kMuKNQ
zK*!1MXym8cW6Gqz0b3I}C(v>ug=Df%EzTV(RvK%gP%pWtbqUtsH9EVZs}7eTJs|aA
zxs}L|&U-!pWMwou$^=zNT@*;$T{-L3==veRduX>CAt!aTA-3z*1wE|p<OuYv9eq6Q
zgq}jcP%qjQ3Oqi-*392n^UA@?Hde8eOk+7c3Mm5AGRJvxO+}0Mhw#!4A?z7yt4mlH
zH?gTxwP@=dYO6p%H6n3<yv4IncuTcUO~Z!H4$xW6kl$8TUa@kOy)s2<v!Tz%B)8Dk
zODi&IQK3$010cUuX`gcW!=fp*N!5J0DO*N;Y-ycJx<=3W3{MR{)Y)7U?K(wQUGG+@
zf?5~e7Z($6Q8^r{)OFQs*Q}{p?fA&Xjx`y77&i&d#RG9UKabM4>p7HQ<PIeQsSvbz
zGn=P9y<1MvbBC74bpRk~0Qr|LQuS$k?%^C2E`J!oj_p;dsO^19*Sqxcqu%if{~O9t
zX0N0{d>(ZkY6jHiQlE;vipBV;<{FLyrPkja&AeNrT=%sfX#mHYl?4X6XvbIMr^A^z
zF5$kWy^t9@(q^=F<o8U1q(M!)O~lD*&_@0N$AiVCXtm#BWo9rWT8D-=jv#BuBGYwb
zy+zp*q(aK=qTC!~dOeEydZog0fl+N5m#?|s+dS&6HMlyPKUu&YKB>XS6N=zc9F>@w
z{T^_XMQ|jr4DCkMAqHlbY8;GRVqi{#aWH%F>csgmZvYyY)~lj*VEB{ajUn=9+@6><
zVXKBUNU@Q$)?H;Ca<6D5tnRJ$<AKCfPM3srNu4kUf0Sf~i8z?_GIZl-l9$3?;=be}
zI-fY9wuuHwUz-nQWpSt=lk51E=G`uS`t3Ks%~zZS*&L`%lIEM+v$+=iY_5GSz2$K2
z^XM&?vwR`VGq>l_c>&E)Kq`$yHrPB&-dJk^0BybwBak4x`MRSf8~LS@<d&2F{8Ce4
zEBDaFKF`)<3Fd!*jpo#-4MxY`OFo!vliYZ|c`1AXJIxi)g3p`h!L8Uh@olKW$0ydq
z&vD_TgHtx^^ETH$X7LXBxf-5k!;rtQrn32c&eBsZ*Qsrlv~$O$6v8yTDkYz8#3?i3
z4D3y*hhO4(sheRpK9HK3^sxc?@@2W!<lMr6#@Y1sr<ztknr?yAN$@9Fm9`f8@S|ye
z(5)~y8$+OmzSOEoBUVq&G1VE+vEZ%><R|qq^3fu)4BIBZ4EN)&CNEFAqOo|JA5x|T
zuhL@lq%Po)X}}yHyRl=6gA?@l;FK9K1z(zS4}1-)rjE{-tz{^3n@f~ww3S<WhU-Sc
zjmyt!xLQ3fY=8=T&OI~z0hpJobB@Zj8EjV?jk^dlxj&kg!t>jDY6rHRXdo=ro>c}v
z4%(fg@QGFQ@fQsKy|_K&es~OD$aoY!hl?`J@CCd!)0#U~bIcl|-zSSzLXEEZ5!EOq
zA!sg9!HyM~=rp>9MhT}wzOW&}4CoqN6-Y0>m^qcFUo`IjX71r(3x4k25@Fg|qQ}8|
zSHQ1u?u>Qt_wHRYtUR>hPqH41zfM?Dtx5LqAn27Q01sbCF5(Td8sIwje`e+K(dnO2
za}}}oy9qdb&OCS)uboo>Uv%%DbDy&5FS+v<wB%LhwdBoT@a_Nl0!F{|_4D-nZ?7}z
zo&27H&G~otZ~g|yk^KMfk33J$AAiF$*=X^(bgVdmeyU+x?n>D0-kWPyaEXO(-vYuz
zj1MeY4X3yji`PT=zI)@6K?nnQRdH&<!87z@DC`~DU{Dw7=n7sZd)zyU+jyvVCoi{f
o{B84XcWLR<FuiI?)e>sOv@3~hyg8eV8O3aTXAT|Xh8F?wKWP0PxBvhE

delta 3368
zcmaJ^4OEm>8ou}YX6Bn=ei;}T282O=%<u=Ks0<Jh21}FyazHJ#PTBrcXHN=t3WRp@
zEY}fTy<6?tsSeeuwWVv*$&aZm1jE0r5Gh&QB~#h%G^CatK%|*{?+j+`ad$Z1{qB43
z`@YY6-@p6O`4Vn<2^TJ1iSSKGjTC4Qg+dM`Ows#RgzPBtv&X{Qf>1>QLZ{)Wv?0_E
z&qwf#+qM_RnO}&nuB>v^EGNV6kzyGmcK`OZX&D_Bb~Vc5_?}h7v^9LdyxKO$2gGsS
z?dY+)9Y^eK4aeAd?e@KoIF1<PbmWw+$muckiEh8S(v#dPx&w-8k88l=IL~$)`M5{R
zRg1BkI@gQ-uS9t%VxuuYJR~ncY$S%R!3%5x@;HJ_rSu7iTw+0mr$k_R+A?=YO*?SP
zTp^U#E9M-14<qs&XGChwa5aiEG=3K7{x3Ty7Gs1X2AU*fSljiS^_3_N_JbK<*Kz|c
zo9POn=ob;#2Ne<6d&98#5v@l;hJMliJLE3x7xBiqIiWVk1!qkt4-Pt~SG;DBIAxGZ
z;wbq48uW>t#)%o$-8#;?M<YAIDG`GfBX%X4R*OYben3+Ojf<SMSQGZcTVi4^!1jq#
zz5q{!eW6ovCMnGHzkJcJqb5a0;#*qIx>qd&peA}#XT9jZGRf_jG*PGGS`^+EBJOxY
z;M@*%82xoc;=G@r=bVm!M=LpxF3i*TdEn5E0`U(m)hg4Qy-~pG*Gw`=%IRdpC}$xj
z`@-x#BzWqAp$!VT80b%dR)jXF<hz0B3KI}{xeBOvB2=F!uK{XTgz6XN$AJ1{g!){R
zn}FKPDKc{3>bjLHR&_gN6Jm?Z%WA75iLNG>iDQzuf@5dd(`Mor-!ibZlZ>@BjQ<&a
zWPl5DDIH=4b8WalNKXewaui~fW>O-^YQz@PNo6vgNfTAi;{xhc)d<5Ts*{RwJFSo^
zaRqIcYJ@Q(osjDAFX;+(DXye1s~4C?lwrHN1gIM`VgkLOZo<#dM>Gx1e$6G#m?o%k
z$~MH1p?0b+70#+kPlMXCG0Nl8?N^e4lV^w{=y8lfDodpI#2KZ4+*id7=_k(33GIGG
z<G!Gnc{mV*dtegK!GI43lruTyzG!MI4Z0_AQ-LoXRr#!_%IWgdO?YY`0^`k|3V|$}
zBnQc5k7JUpQ-vA~vOQAXp@txEc*=whEAsas_k^OU81yvWNYBsJ%(}6fY~*hSHB!@^
zpsO*DXH7HjBW+8AmDf!IKysOVt-O&XIY$Ev+!N~Ng`lM||61DJNdAo*%EL*>Rq`F%
z5=oRUwFF0vLu@l`*Cy(VO%SG)tGeY(#2%nWwfRfqO+JL>Ln1SneCLqdB{Czdh<s(z
z=!-^jzsP<t`kImanaI93=A6Fc_&O6AI`MB$72|uSjEe#zKEcQZj?*gL9Q_+wSw#Mr
zkQ|HHOSDZ_ifidfT`dmLS^Dy3*{}!Kk8;VK26BwQcNlyzVHj%I><VU&a-dd&JSeg)
zhCS-_qrO}ucZ#gu;Hgo#&x$9`a_V6N9K^pr=#&+R)kW31NDsM3LGD%6L58akTM|`U
zUDetR1<wt;!_YdAeV%m5AL&Il+W-!5LJF`MRAFGakbYxG!O2u_91}9t^nxK-P^qcG
zDAOU61FL98^f=bjWOEw!(_(WvK13fjrwXqqX^PoGUp7mS=DW>nn$wiLrpUpZKKZc7
zqBZb7DzX?2IgU@ZO2to4AhGcq|6NzObz_Pu8Hub!NxGm}ndB`{-0@227;-4Y{A$v>
zGE%3XDnO?TQulL@g5NUis+xTeA`0K@h#X-rYDqVUM_0;kLYlEt3g`}UFvMP0du|ym
zQ<>_c$N(GCwJIEeOECLNUl;Bg2E?8S>#ZT(<dpAY#FlGG4_8zz_ktnYuIag7O}>2(
zi9WcT#@TT_++VNhR|kB&P28q{vvv%MaB=yH5Vv~K&Y=IXalV)IlfBMR;GB~;7>OfR
z!BN;k1fDq}vTr5mwV&Xj&5Cejz*k?;#j#1h>XH^ceHDD=_e<llfY`etPlb1-J!(iB
zn7s+J^`qU+%Bt#nmb+?_RZb@vo|N|~whll8Wo;5UDBq9RCQ0|(*6y%spdOW4&NXL;
z$ROWZBgvQGoZIOqv6+^6Qf;l2vbyfRRjXF6sQuK*PcWToEYt9<bcQ7lYiXUuW--Nf
zAS7!L8`MWyFJv9$wj~ue(tVaVyqES^((>yC2qC!XMJ*3Qv1;{?4xb_LKt}qs0IBK<
zLT0`fn(P42Eii&e4b6y~iD%P_xLarM!rWI8W}S<4`=(*GQ4PI45+gfyvIBT3)`ael
zi@WmxCXVl6H%=~sO#+(&?{$BT;*nXd%sI`eZJO4umb0BL6P@+O)`KlyF5rt#QX#$=
z-%U&7Q?h$dZDj;Cj+fI3QWxaVFGy3+E}293qbcZJ^bhfOMDItCMUJmMj*+o1$JPc}
zI~|IjgMUl))&z`brZq)48Bfcs2XQvlBqZW!nvw7t-barm+=X*#tZgC8UAB4{|87ea
zLN<EQX0-%uujUI|424h*a5b6O6{FL)k0vErqs<9hj=g_TQ|+wsA+&YSS4K+{)1y|I
zYTqgUIMpfdqw5my!jICwC064s8l7}Iev00mbO2*2Oxu9Jq)$$J8$Uv4C);rzU6x#g
zZFF050qlO9JPT*giR2AX;*Y01j*rvfl+3(ABk3v#h3d`jMgeV{2e*73bPhIP4D9tJ
zwMvIe1dIay(Gp3q-UNl<iS?AIp{Fdg--q9)FWaBfFE+Y22GM%>rc<*gXmM(u`8P&#
zIIy#tbh8a1(gj6XLN}+rhF_&~r!TRd(d2ZtRH*EMuc5ft>HW1K2<czgb9Be_S|O;X
zBh$06m0Hto!h7h#v<W<m=BFna1of2E2uMBaU7LO<&c8+Po(R=vaO3Te0^zH<o8@Ss
zhn(8fS3k1pXcObvyj>MI6L7(ew{AHsf5Yuer~k^h4IiYI%!lx^^r_55{3rT+rUOr-
zLz%Xe*i3SgTp|-}Qb)SNhtsz_C{2({E#;De_0jklY2Kn4J4L*Mp1!$U@$hFXmS$xw
z!&m8(S*!62-oY$~h|6i}++SP97;if36MP~Hbi${BPb^~RX#3nI{E#;#d%mc>c^Hnr
zkbkb&>4Ukq<J0uT+(NwD`_J54Rn2SXUnwllkIyg9zf$<~KYN&d;K%jzKhCc6H5KeA
zoL6v7eqO=#oo5QJ%SYDF=TFtG*-1{3p~Gcy2od`G`S;-M-r@O)O5xN3uTaE9@Ka#X
z3Vf5dv}6s&ecoNA7cjm^pDjy?ll$S@J{$ySz@(Rb*c<qkz3M$ywpGNj-W5x71o6Yf
l54~+mx8ZbKsjU?Ly|KR;&qwb(J`Owh*pv%n?14oH{RhwNqR0RM

-- 
2.39.5