/* ScummVM - Graphic Adventure Engine
 *
 * ScummVM is the legal property of its developers, whose names
 * are too numerous to list here. Please refer to the COPYRIGHT
 * file distributed with this source distribution.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.

 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.

 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 */

/*
 * This code is based on the original source code of Lord Avalot d'Argent version 1.3.
 * Copyright (c) 1994-1995 Mike, Mark and Thomas Thurman.
 */

/* CELER	The unit for updating the screen pics. */

#include "avalanche/celer2.h"
#include "common/textconsole.h"
//#include "avalanche/trip6.h"
#include "avalanche/lucerna2.h"
#include "avalanche/gyro2.h"
#include "avalanche/roomnums.h"

namespace Avalanche {

	namespace Celer {

	//untyped_file f; /* Private variable- not accessible from elsewhere. */

	const int16 on_disk = -1; /* Value of memos[fv].x when it's not in memory. */

	void pics_link() {
		byte xx;

		if (Gyro::ddmnow)  return; /* No animation when the menus are up. */

		{
			Gyro::dnatype &with = Gyro::dna;
			switch (with.room) {

			case r__outsideargentpub: {
				if ((Gyro::roomtime % int32(12)) == 0)
					show_one(int32(1) + (Gyro::roomtime / int32(12)) % int32(4));
			}
			break;

			case r__brummieroad:
				if ((Gyro::roomtime % int32(2)) == 0)
					show_one(int32(1) + (Gyro::roomtime / int32(2)) % int32(4));
				break;

			case r__bridge:
				if ((Gyro::roomtime % int32(2)) == 0)
					show_one(int32(4) + (Gyro::roomtime / int32(2)) % int32(4));
				break;

			case r__yours:
				if ((! with.avvy_is_awake) && ((Gyro::roomtime % int32(4)) == 0))
					show_one(int32(1) + (Gyro::roomtime / int32(12)) % int32(2));
				break;

			case r__argentpub: {
				if (((Gyro::roomtime % int32(7)) == 1) && (Gyro::dna.malagauche != 177)) {
					/* Malagauche cycle */
					Gyro::dna.malagauche += 1;
					switch (Gyro::dna.malagauche) {
					case 1:
					case 11:
					case 21:
						show_one(12);
						break; /* Looks forwards. */
					case 8:
					case 18:
					case 28:
					case 32:
						show_one(11);
						break; /* Looks at you. */
					case 30:
						show_one(13);
						break; /* Winks. */
					case 33:
						Gyro::dna.malagauche = 0;
						break;
					}
				}

				switch (Gyro::roomtime % 200) {
				case 179:
				case 197:
					show_one(5);
					break; /* Dogfood's drinking cycle */
				case 182:
				case 194:
					show_one(6);
					break;
				case 185:
					show_one(7);
					break;
				case 199:
					Gyro::dna.dogfoodpos = 177;
					break; /* Impossible value for this. */
				}

				if ((Gyro::roomtime % 200 >= 0) && (Gyro::roomtime % 200 <= 178)) { /* Normally. */
					if (((Lucerna::bearing(2) >= 1) && (Lucerna::bearing(2) <= 90)) || ((Lucerna::bearing(2) >= 358) && (Lucerna::bearing(2) <= 360)))
						xx = 3;
					else if ((Lucerna::bearing(2) >= 293) && (Lucerna::bearing(2) <= 357))
						xx = 2;
					else if ((Lucerna::bearing(2) >= 271) && (Lucerna::bearing(2) <= 292))
						xx = 4;

					if (xx != Gyro::dna.dogfoodpos) { /* Only if it's changed.*/
						show_one(xx);
						Gyro::dna.dogfoodpos = xx;
					}
				}
				
			}
			break;

			case r__westhall:
				if ((Gyro::roomtime % int32(3)) == 0)
					switch ((Gyro::roomtime / int32(3)) % int32(6)) {
					case 4:
						show_one(1);
						break;
					case 1:
					case 3:
					case 5:
						show_one(2);
						break;
					case 0:
					case 2:
						show_one(3);
						break;
					}
				break;

			case r__lustiesroom:
				if (!(Gyro::dna.lustie_is_asleep))  {
					if ((Gyro::roomtime % int32(45)) > 42)
						xx = 4; /* du Lustie blinks */

					/* Bearing of Avvy from du Lustie. */
					else if (((Lucerna::bearing(2) >= 0) && (Lucerna::bearing(2) <= 45)) || ((Lucerna::bearing(2) >= 315) && (Lucerna::bearing(2) <= 360)))
							xx = 1; /* Middle. */
					else if ((Lucerna::bearing(2) >= 45) && (Lucerna::bearing(2) <= 180))
							xx = 2; /* Left. */
					else if ((Lucerna::bearing(2) >= 181) && (Lucerna::bearing(2) <= 314))
						xx = 3; /* Right. */

					if (xx != Gyro::dna.dogfoodpos) { /* Only if it's changed.*/
						show_one(xx);
						Gyro::dna.dogfoodpos = xx; /* We use DogfoodPos here too- why not? */
					}
				}
				break;

			case r__aylesoffice:
				if ((! Gyro::dna.ayles_is_awake) && (Gyro::roomtime % int32(14) == 0)) {
					switch ((Gyro::roomtime / int32(14)) % int32(2)) {
					case 0:
						show_one(1);
						break; /* Frame 2: EGA. */
					case 1:
						show_one(3);
						break; /* Frame 1: Natural. */
					}
				}
				break;

			case r__robins:
				if (Gyro::dna.tied_up)
					switch (Gyro::roomtime % int32(54)) {
					case 20:
						show_one(4);
						break; /* Frame 4: Avalot blinks. */
					case 23:
						show_one(2);
						break; /* Frame 1: Back to normal. */
					}
				break;

			case r__nottspub: {
				/* Bearing of Avvy from Port. */
				if (((Lucerna::bearing(5) >= 0) && (Lucerna::bearing(5) <= 45)) || ((Lucerna::bearing(5) >= 315) && (Lucerna::bearing(5) <= 360)))
					xx = 2; /* Middle. */
				else if ((Lucerna::bearing(5) >= 45) && (Lucerna::bearing(5) <= 180))
					xx = 6; /* Left. */
				else if ((Lucerna::bearing(5) >= 181) && (Lucerna::bearing(5) <= 314))
					xx = 8; /* Right. */

				if ((Gyro::roomtime % int32(60)) > 57)  xx--; /* Blinks */

				if (xx != Gyro::dna.dogfoodpos) { /* Only if it's changed.*/
					show_one(xx);
					Gyro::dna.dogfoodpos = xx; /* We use DogfoodPos here too- why not? */
				}

				switch (Gyro::roomtime % 50) {
				case 45 :
					show_one(9);
					break; /* Spurge blinks */
				case 49 :
					show_one(10);
					break;
				}
			}
			break;

			case r__ducks: {
				if ((Gyro::roomtime % 3) == 0) /* The fire flickers */
					show_one(1 + (Gyro::roomtime / 3) % 3);

				{/* Lucerna::bearing of Avvy from Duck. */
				if (((Lucerna::bearing(2) >= 0) && (Lucerna::bearing(2) <= 45)) || ((Lucerna::bearing(2) >= 315) && (Lucerna::bearing(2) <= 360)))
					xx = 4; /* Middle. */
				else if ((Lucerna::bearing(2) >= 45) && (Lucerna::bearing(2) <= 180))
					xx = 6; /* Left. */
				else if ((Lucerna::bearing(2) >= 181) && (Lucerna::bearing(2) <= 314))
					xx = 8; /* Right. */

				if ((Gyro::roomtime % int32(45)) > 42)  xx += 1; /* Duck blinks */

				if (xx != Gyro::dna.dogfoodpos) { /* Only if it's changed.*/
					show_one(xx);
					Gyro::dna.dogfoodpos = xx; /* We use DogfoodPos here too- why not? */
				}
			}
			break;

			}
		}

		if ((Gyro::dna.ringing_bells) && (Gyro::flagset('B')))
			/* They're ringing the bells. */
			switch (Gyro::roomtime % int32(4)) {
			case 1: {
				Gyro::dnatype &with = Gyro::dna;

				if (with.nextbell < 5)  with.nextbell = 12;
				with.nextbell -= 1;
				Gyro::note(Gyro::notes[with.nextbell]);
			}
			break;
			case 2:
				//nosound;
				warning("STUB: Celer::pics_link()");
				break;
			}
		}
	}

	void load_chunks(Common::String xx) {
		warning("STUB: Celer::load_chunks()");
	}

	void forget_chunks() {
		warning("STUB: Celer::forget_chunks()");
	}

	void mdrop(int16 x, int16 y, int16 xl, int16 yl, void *p) /* assembler;
	asm
	  push ds;      { Strictly speaking, we shouldn't modify DS, so we'll save it.}
	  push bp;      { Nor BP! }


	  { DI holds the offset on this page. It starts at the top left-hand corner. }
	  { (It should equal ch.y*80+ch.x. }

	  mov ax,y;
	  mov dl,80;
	  mul dl; { Line offset now calculated. }
	  mov di,ax; { Move it into DI. }
	  mov ax,x;
	  add di,ax; { Full offset now calculated. }

	  mov bx,yl; { No. of times to repeat lineloop. }
	  inc bx;        { "loop" doesn't execute the zeroth time. }
	  mov bh,bl;     { Put it into BH. }

	  { BP holds the length of the Common::String to copy. It's equal to ch.xl.}

	  mov ax,uint16(p);   { Data is held at DS:SI. }
	  mov si,ax;
	  mov ax,uint16(p+2); { This will be moved over into ds in just a tick... }

	  mov bp,xl;

	  mov ds,ax;


	  cld;          { We're allowed to hack around with the flags! }

	  mov ax,$AC00; { Top of the first EGA page. }
	  mov es,ax;    { Offset on this page is calculated below... }


	{    port[$3c4]:=2; port[$3ce]:=4; }

	  mov dx,$3c4;
	  mov al,2;
	  out dx,al;
	  mov dx,$3ce;
	  mov al,4;
	  out dx,al;

	  mov cx,4;  { This loop executes for 3, 2, 1, and 0. }
	  mov bl,0;


	 @mainloop:

		push di;
		push cx;

	{    port[$3C5]:=1 shl bit; }
		mov dx,$3C5;
		mov al,1;
		mov cl,bl; { BL = bit. }
		shl al,cl;
		out dx,al;
	{     port[$3CF]:=bit; }
		mov dx,$3CF;
		mov al,bl; { BL = bit. }
		out dx,al;

		xor ch,ch;
		mov cl,bh; { BH = ch.yl. }

	   @lineloop:

		 push cx;

		 mov cx,bp;

		 repz movsb; { Copy the data. }

		 sub di,bp;
		 add di,80;

		 pop cx;

	   loop @lineloop;

		inc bl; { One more on BL. }

		pop cx;
		pop di;

	 loop @mainloop;

	  pop bp;
	  pop ds;       { Get DS back again. }
	*/
	{
	}

	void show_one(byte which);

	void display_it(int16 x, int16 y, int16 xl, int16 yl, flavourtype flavour, void *p) {
		warning("STUB: Celer::display_it()");
	}

	void show_one(byte which) {
		warning("STUB: Celer::show_one()");
	}



	void show_one_at(byte which, int16 xxx, int16 yyy);

	static void display_it1(int16 xl, int16 yl, flavourtype flavour, void *p, int16 &xxx, int16 &yyy) {
		warning("STUB: Celer::display_it1()");
	}

	void show_one_at(byte which, int16 xxx, int16 yyy) {
		warning("STUB: Celer::show_one_at()");
	}


	} // End of namespace Celer.

} // End of namespace Avalanche.