package 
{
	import flash.display.MovieClip;
	import flash.display.Graphics;
	import flash.events.MouseEvent;
	import flash.events.TextEvent;
	import flash.net.URLLoader;
	import flash.net.URLRequest;
	import flash.events.Event;
	import flash.text.StyleSheet;
	import fereas;
	import Fdb;
	import Contur;
	import Campie;
	import flash.text.TextField;
	import flash.text.TextFormat;
	import nor;
	import Oaia;
	import orange;
	import rosu;
	import Soare;
	import violet;
	import yellow;
	import albastru;
	import backgr;
	import Autor;
	import penita;
	
	
	/**
	 * ...
	 * @author Radu
	 */
	public class Exercitiu4 
	{
		public var trece:Number = 0;
		private var rut:MovieClip = new MovieClip();
		private var Scena:MovieClip = new MovieClip();
		private var nr_hint:Number;
		private var st:StyleSheet = new StyleSheet();
		private var pune_fdb:Fdb = new Fdb();
		private var lfdb:URLLoader = new URLLoader;
		//private var Norisor:nor = new nor();
		private var Sorisor:Soare = new Soare();
		private var Back:backgr = new backgr();
		private var este_fdb:Number = 0;
		private var Frosie:rosu = new rosu();
		private var Fgalbena:yellow = new yellow();
		private var Falbastra:albastru = new albastru();
		private var Forange:orange = new orange();
		private var Fmov:violet = new violet();
		private var Enunt:TextField = new TextField;
		private var NrVar:Number;
		private var l:URLLoader=new URLLoader();
		private var cr, penult, ult:Number;
		private var posibilitati:Array=new Array();
		private var variante:Array=new Array();
		private var Xp:Array=new Array();
		private var Yp:Array=new Array();
		private var cvnt:Array=new Array();
		private var answr: Array = new Array();
		private var s: Array=new Array();
		private var sol:Array=new Array();
		private var fstr:TextFormat=new TextFormat();
		private var fevid:TextFormat=new TextFormat();
		private var ftip:TextFormat=new TextFormat();
		private var i, j, cnt:Number;
		private var X, Y, Xprim:Number=0;
		private var sa_facut_evaluare:Number=0;
		private var de_cat:Number=1;
		private var txt:TextField;
		private var nr_cv, nr_inpt:Number;
		private var autor:Array=new Array();
		private var penc:Array=new Array();
		private var gunoi:Array=new Array();
		private var Sl:Array=new Array();
		private var nrv:Array=new Array();
		private var tabel:Array=new Array();
		private var Timpuri:Array=new Array();
		private var curent:MovieClip;
		private var M:Array = new Array();
		private var pen:penita=new penita();
		private var fpen:Autor=new Autor();
		private var o:Object = new Object();
		private var len:URLLoader = new URLLoader;
		
		public function Exercitiu4 (mc:MovieClip, mc1:MovieClip, nrh:Number)
		{
			rut = mc; nr_hint = nrh;
			Scena = mc1;
			pun_css();
			pun_fdb();
			grafica();
			o[fpen]=new Object();

			fpen.aut_bara_sus.addEventListener (MouseEvent.MOUSE_DOWN, pornejte_pen);
			fpen.aut_bara_sus.addEventListener (MouseEvent.MOUSE_UP, oprejte_pen);

			fpen.aut_bara_sus.Inchide.addEventListener (MouseEvent.CLICK, scoate_pen);
			fpen.aut_bara_sus.Inchide.buttonMode = true;
			
			
			fstr.font="Verdana";
			fstr.size=13;
			fstr.color=0x000099;

			fevid.font="Verdana";
			fevid.size=12;
			fevid.color=0x990000;
			fevid.bold=true;
			ftip.align="center";



			ftip.font="Verdana";
			ftip.size=10;
			ftip.bold=true;
			ftip.color=0x990000;
		}
		
		private function grafica ():void
		{
			Back.x = 0; Back.y = 0; Back.height = 499;  rut.addChild (Back);
			//Norisor.x = 436.9; Norisor.y = 63.0; Norisor.width = 185.3; Norisor.height = 65.8; rut.addChild (Norisor);
			Sorisor.x = 578.0; Sorisor.y = 2.8; Sorisor.width = 118.1; Sorisor.height = 124.6; rut.addChild (Sorisor);
			var campie:Campie = new Campie(); campie.y = 437.6; campie.x = 0.0; rut.addChild (campie);
			var oaie:Oaia = new Oaia(); oaie.x = 7; oaie.y = 457.3; oaie.width = 103.8; oaie.height = 135.8; rut.addChild (oaie);
			var cont:Contur = new Contur(); cont.x = 1.5; cont.y = 436.7; rut.addChild (cont);
			Frosie.x = 146; Frosie.y = 443; Frosie.width = 19; Frosie.height = 24;
			Fmov.x = 289; Fmov.y = 463; Fmov.width = 19; Fmov.height = 24;
			Forange.x = 398; Forange.y = 457; Forange.width = 19; Forange.height = 24;
			Falbastra.x = 507; Falbastra.y = 448; Falbastra.width = 19; Falbastra.height = 24;
			Fgalbena.x = 609; Fgalbena.y = 462; Fgalbena.width = 19; Fgalbena.height = 24;
			Enunt.x = 146; Enunt.y = 504.6; Enunt.width = 516; Enunt.height = 59.1; rut.addChild (Enunt);
			Enunt.wordWrap=true;
			Enunt.styleSheet=st;
			Enunt.addEventListener (TextEvent.LINK, ataseaza);
			len.load (new URLRequest("exercitiu/enunt/e4.txt"));
			len.addEventListener(Event.COMPLETE, incarc_enunt);
			
		}
		
		private function incarc_enunt (e:Event):void
		{
			Enunt.htmlText = e.currentTarget.data;
		}
		
		private function ataseaza(e:TextEvent):void
		{
			var xe:fereas=new fereas();
			xe.bara_sus.Gresit.addEventListener (MouseEvent.CLICK, scoate);
			rut.addChild (xe);
			var lx:URLLoader=new URLLoader();
			xe.texte.styleSheet=st;
			xe.texte.autoSize="left";
			xe.bara_sus.Titlu_obiective.text=fa_litera_mare(e.text);
			lx.load (new URLRequest("explicatii/"+e.text+".html"));
			lx.addEventListener(Event.COMPLETE, incarcx);
			function incarcx(e:Event):void
			{
				xe.texte.text=e.currentTarget.data;
				xe.Tablou.height=xe.texte.height+30;
				xe.x=85;
				xe.y=150;
			}
			function scoate (e:MouseEvent):void
			{
				rut.removeChild (xe);
			}
		}
		
		private function fa_litera_mare(cuvant:String):String
		{
			var primal:String=cuvant.substr(0, 1);
			var rest_cuv:String=cuvant.substr(1);
			return (primal.toUpperCase()+rest_cuv);
		}
		
		public function start_game (vr:Number):void
		{
			NrVar = vr;
			Frosie.addEventListener(MouseEvent.CLICK, go_hint); Frosie.buttonMode=true;
			Falbastra.addEventListener(MouseEvent.CLICK, go_hint); Falbastra.buttonMode=true;
			Forange.addEventListener(MouseEvent.CLICK, go_hint); Forange.buttonMode=true;
			Fmov.addEventListener(MouseEvent.CLICK, go_hint); Fmov.buttonMode=true;
			Fgalbena.addEventListener(MouseEvent.CLICK, go_hint); Fgalbena.buttonMode = true;
			
			Sorisor.buttonMode = true;
			Sorisor.addEventListener (MouseEvent.CLICK, go_evaluare);
			//Norisor.addEventListener (MouseEvent.CLICK, go_reluare); Norisor.buttonMode = true;
			
			if (nr_hint>0&&nr_hint>=1) rut.addChild (Frosie);
			if (nr_hint>0&&nr_hint>=2) rut.addChild (Falbastra);
			if (nr_hint>0&&nr_hint>=3) rut.addChild (Forange);
			if (nr_hint>0&&nr_hint>=4) rut.addChild (Fmov);
			if (nr_hint > 0 && nr_hint >= 5) rut.addChild (Fgalbena);
			
			for (i=0; i<=10; i++) M[i]=new Array();

			Timpuri[0]="Acţiuni trecute";
			Timpuri[1]="Acţiuni prezente";
			Timpuri[2]="Acţiuni viitoare";
			
			l.load (new URLRequest ("exercitiu/texte/t4.txt"));
			l.addEventListener(Event.COMPLETE, incarc_ex);
			de_cat=1;
			function incarc_ex (e:Event):void
			{
				l.removeEventListener (Event.COMPLETE, incarc_ex);
				if (de_cat==1)
				{
					posibilitati=e.currentTarget.data.split("VaRiAnTa");
					for (i=0; i<=10; i++) for (j=0; j<=10; j++) M[i][j]=-1;
					cr = NrVar;
					gunoi = posibilitati[cr].split ("TAB");
					trace (gunoi[1]);
					tabel=gunoi[1].split (",");
					variante=gunoi[0].split ("VAR");
					Tabelu (tabel.length);
					X=40;
					Y = 228; nr_cv = 0; nr_inpt = 0;
					for (cnt=0; cnt<variante.length; cnt++)
					{
						gunoi=variante[cnt].split ("AUT");
						autor[cnt]=gunoi[1];
						variante[cnt]=gunoi[0];
						cvnt=variante[cnt].split("|");
						pen=new penita();	
						pen.x=X-20;
						pen.y=Y;
						pen.name="pencil"+cnt+"";
						penc[cnt]=Y-2;
						pen.addEventListener(MouseEvent.CLICK, atas);
						rut.addChild(pen);
						Xprim=0;
						for (i=0; i<cvnt.length; i++)
						{
							txt=new TextField();
							txt.text=cvnt[i];
							txt.setTextFormat (fstr);
							txt.selectable=false;
							txt.autoSize="left";
							txt.name="cuv"+nr_cv; nr_cv++;
							place_word (txt);
						}
						X=40;
						Y+=25;
					}		
				}
			}
			function place_word(TF:TextField):void
			{
				var lg:Number=TF.width;
				var txt:TextField;
				var npt:Number=0;
				var ref:MovieClip;
				if (TF.text.substr (0, 3)=="IPT")
				{
					npt=1;
					TF.text=TF.text.substr (3);
					sol[nr_inpt]=Number (TF.text.substr (0, 1));
					TF.text=TF.text.substr (1);
					TF.setTextFormat (fstr);
				}
				if (X+lg>695||TF.text=="NL")
				{
					if (TF.text!="NL")
						X=40;
					else
						X=40+Xprim;
					Y=Y+17;
				}
				if (TF.text!="NL" && !npt)
					{TF.x=X; TF.y=Y; rut.addChild (TF);
					X+=lg+1;
					}
				if (npt)
				{
					ref=new MovieClip;
					txt=new TextField();
					ref.addEventListener(MouseEvent.MOUSE_DOWN, start_drag);
					ref.addEventListener(MouseEvent.MOUSE_UP, stop_drag);
					txt.type="dynamic";
					txt.text=TF.text;
					txt.autoSize="left";
					txt.selectable=false;
					ref.name="Input"+nr_inpt;
					txt.setTextFormat (fevid);
					ref.x=Xp[nr_inpt]=X;
					ref.y=Yp[nr_inpt]=Y;
					nr_inpt++;
					lg=40;
					X+=txt.width+1;
					ref.addChild (txt);
					rut.addChild (ref);
				}
			}
			function Tabelu(col:Number):void
			{
				var Wdcol:Number;
				var txt:TextField;
				var Xcol = 10;
				var alc:MovieClip = new MovieClip();
				col=tabel.length;
				Wdcol=550/col;
				trace (Wdcol);
				//prima linie
				alc.graphics.lineStyle (1, 0x000000); alc.graphics.moveTo (10, 20); alc.graphics.lineTo (560, 20);
				alc.graphics.moveTo (10, 46); alc.graphics.lineTo (560, 46);
				alc.graphics.moveTo (10, 222); alc.graphics.lineTo (560, 222);
				alc.graphics.moveTo (10, 20); alc.graphics.lineTo (10, 222);
				alc.graphics.moveTo (560, 20); alc.graphics.lineTo (560, 222);

				for (i=1; i<=col; i++)
				{
					txt=new TextField();
					txt.selectable=false;
					txt.autoSize="left";
					txt.text=Timpuri[tabel[i-1]];
					txt.y=20; txt.x=(Xcol+(i-1)*Wdcol+Xcol+i*Wdcol)/2-txt.width/2;
					txt.setTextFormat(ftip);
					txt.name="Tlt"+(i-1);
					rut.addChild (txt);
					if (i!=col)
					{
						alc.graphics.moveTo (Xcol+i*Wdcol, 20);
						alc.graphics.lineTo (Xcol+i*Wdcol, 222);
					}
				}
				alc.x = 10;
				rut.addChild (alc);
				trace ("da");
			}
		}
		
		private function go_evaluare (e:MouseEvent):void
		{
			var ny:MovieClip;
			var cate:Number=0;
			var nrvf:Number=0;
			var gogo:Number=1;
			var ind:Number=0;
			var verf:MovieClip;
			var Xcol:Number=10;
			var col:Number=tabel.length;
			var Wdcol:Number=550/col;
			var st_pt:Number=48;
			var pzx, pzy:Number;
			var str:String;
			for (i=0; i<nr_inpt; i++)
			{
				ny=MovieClip (rut.getChildByName ("Input"+i));
				if (ny.x==Xp[i] && ny.y==Yp[i])
				{
					gogo=0;
					break;
				}
			}
			if (!gogo)
			{
				str = "Incomplet!";
				incarc_fdb(str);
			}
			else
			{
				pune_fdb.fdb_bara_sus.removeChild (pune_fdb.fdb_bara_sus.Inchide);
				Scena.fr.bara_sus.addChild (Scena.fr.bara_sus.Gresit);
				sa_facut_evaluare=1;
				Sorisor.removeEventListener (MouseEvent.CLICK, go_evaluare);
				Frosie.removeEventListener(MouseEvent.CLICK, go_hint);
				Falbastra.removeEventListener(MouseEvent.CLICK, go_hint);
				Forange.removeEventListener(MouseEvent.CLICK, go_hint);
				Fmov.removeEventListener(MouseEvent.CLICK, go_hint);
				Fgalbena.removeEventListener(MouseEvent.CLICK, go_hint);
				ind=0;
				for (i=0; i<nr_inpt; i++)
				{
					ny=MovieClip (rut.getChildByName ("Input"+i));
					pzx=Math.ceil(((2*ny.x+ny.width-2*Xcol)/Wdcol-1)/2);
					pzy=(ny.y-st_pt)/20;
					if (pzx==sol[i])
					{
						cate++;
						verf=new Good();
					}
					else
					{
						verf=new Wrong();
					}
					verf.y=ny.y+4;
					verf.width=verf.width/1.3;
					verf.height=verf.height/1.3;
					verf.x=Xcol+pzx*Wdcol+17;
					verf.name="eval"+i;
					rut.addChild (verf);
				}
				if (cate >= 5)
				{
					str = "<p>Ai obţinut " + cate + " puncte din 10.\n";
					trece = 1;
					str = str + "Succes  în continuare.\n\n";
				}
				else
				{
					str = "<p>Ai obţinut doar " + cate + " puncte din 10.\n";
					trece = 0;
					str=str+"Roagă-l pe prietenul tău, care urmează la rând să încerce şi el.\n\n"
				}
				str = str + "Închide această fereastră pentru a continua!</p>";
				incarc_fdb(str);
			}

		}
		
		/*private function go_reluare (e:MouseEvent):void
		{
			
		}*/
		private function start_drag (e:MouseEvent):void
		{
			var Xcol:Number=10;
			var col:Number=tabel.length;
			var Wdcol:Number=550/col;
			var st_pt:Number=48;
			curent=MovieClip (rut.getChildByName (e.currentTarget.name))
			var ref:MovieClip=curent;
			var nrr:Number = Number (curent.name.substr (5));
			var pzx:Number=Math.ceil(((2*ref.x+ref.width-2*Xcol)/Wdcol-1)/2);
			var pzy:Number=(ref.y-st_pt)/20;
			if (curent!=null)
			{
				if (ref.x!=Xp[nrr] && ref.y!=Yp[nrr])
				{
					M[pzx][pzy]=-1;
					for (i=pzy+1; M[pzx][i]!=-1; i++)
					{
						M[pzx][i-1]=M[pzx][i];
						ref=MovieClip (rut.getChildByName ("Input"+M[pzx][i-1]));
						ref.y=st_pt+(i-1)*20;
					}
					M[pzx][i-1]=-1;
				}
				curent.startDrag();
			}
		}

		private function stop_drag (e:MouseEvent):void
		{
			var lim_sus:Number=15;
			var lim_jos:Number=225;
			var st_pt:Number=48;
			var col:Number=tabel.length;
			var Xcol:Number=10;
			var Wdcol:Number=550/col;
			var ref:MovieClip;
			var nrr:Number;
			if (curent!=null)
			{
				curent.stopDrag();
				ref=curent;
				nrr=Number (ref.name.substr (5));
				for (i=0; i<col; i++)
					if (rut.mouseY>=lim_sus && rut.mouseY<=lim_jos && rut.mouseX>=Xcol+i*Wdcol && rut.mouseX<=Xcol+(i+1)*Wdcol)
					{
						ref.x=(Xcol+i*Wdcol+Xcol+(i+1)*Wdcol)/2-ref.width/2;
						//cauta loc
						for (j=0; M[i][j]!=-1 && j<=7; j++);
						if (j!=8)
						{
							ref.y=st_pt+j*20;
							M[i][j]=nrr;
							break;
						}
					}
				if (i==col)
				{
					ref.x=Xp[nrr];
					ref.y=Yp[nrr];
				}
			}
			curent=null;
		}

		private function go_hint (e:MouseEvent):void
		{
			var ny:MovieClip=new MovieClip();
			var am_hint:Number=0;
			var cl:Number;
			var Xcol:Number=10;
			var Wdcol:Number=550/tabel.length;
			var st_pt:Number=48;
			var pzx, pzy:Number;
			var ref:MovieClip;
			rut.removeChild (MovieClip(e.currentTarget));
			for (i=0; i<nr_inpt; i++)
			{
				ny=MovieClip (rut.getChildByName ("Input"+i));
				if (ny.x==Xp[i] && ny.y==Yp[i])
				{
					cl=sol[i];
					for (j=0; j<=7 && M[cl][j]!=-1; j++);
					if (j!=8)
					{
						M[cl][j]=i;
						ny.x=(Xcol+cl*Wdcol+Xcol+(cl+1)*Wdcol)/2-ny.width/2;
						ny.y=st_pt+j*20;
						am_hint=1;
						break;
					}
				}
			}
			if (!am_hint)
			{
				for (i=0; i<nr_inpt; i++)
				{
					ny=MovieClip (rut.getChildByName ("Input"+i));
					if (ny.x!=Xp[i] && ny.y!=Yp[i])
					{
						pzx=Math.ceil(((2*ny.x+ny.width-2*Xcol)/Wdcol-1)/2);
						pzy=(ny.y-st_pt)/20;
						if (pzx!=sol[i])
						{
							M[pzx][pzy]=-1;
							ny.x=Xp[i]; ny.y=Yp[i];
							for (j=pzy+1; M[pzx][j]!=-1; j++)
							{
								M[pzx][j-1]=M[pzx][j];
								ref=MovieClip (rut.getChildByName ("Input"+M[pzx][j-1]));
								ref.y=st_pt+(j-1)*20;
							}
							break;
						}
					}
				}
			}
			
		}
		/*pen*/
		private function pornejte_pen(e:MouseEvent):void
		{
			fpen.startDrag();
		}

		private function oprejte_pen(e:MouseEvent):void
		{
			fpen.stopDrag();
		}

		private function scoate_pen(e:MouseEvent):void
		{
			rut.removeChild (fpen);
			o[fpen].pescena=0;
		}

		private function atas (e:MouseEvent):void
		{
			var i:Number=0;
			if(rut.mouseY>penc[1] && rut.mouseY<penc[1]+25)
				i=1;
			if(rut.mouseY>penc[2] && rut.mouseY<penc[2]+25)
				i=2;
			if (rut.mouseY>penc[3] && rut.mouseY<penc[3]+25)
				i=3;
			var adresa:String=autor[i];
			fpen.text_aut.htmlText=autor[i];
			fpen.text_aut.autoSize = "left";
			fpen.text_aut.wordWrap=true;
			fpen.x=rut.mouseX;
			fpen.y=rut.mouseY;
			rut.addChild(fpen);
			o[fpen].pescena=1;
		}
		/*pen*/
		
		
		/*CSS*/
		private function pun_css():void
		{
			var lcss:URLLoader=new URLLoader();
			lcss.load (new URLRequest ("../stil/stil.css"));
			lcss.addEventListener(Event.COMPLETE, incarc_css);
		}
		
		private function incarc_css(e:Event):void
		{
			st.parseCSS(e.currentTarget.data);
		}
		/*CSS*/
		
		/*Feed-Back*/
		private function pun_fdb():void
		{
			pune_fdb.x=699/2-pune_fdb.width/2;
			pune_fdb.y=599/2-pune_fdb.height/2;
			pune_fdb.fdb_bara_sus.buttonMode=true;
			pune_fdb.fdb_bara_sus.addEventListener (MouseEvent.MOUSE_DOWN, porneste_drag_fdb);
			pune_fdb.fdb_bara_sus.addEventListener (MouseEvent.MOUSE_UP, opreste_drag_fdb);
			pune_fdb.fdb_bara_sus.Inchide.addEventListener (MouseEvent.CLICK, inchide_fdb);
			pune_fdb.text_fdb.wordWrap=true;
		}
		private function porneste_drag_fdb(e:MouseEvent):void
		{
			pune_fdb.startDrag();
		}

		private function opreste_drag_fdb(e:MouseEvent):void
		{
			pune_fdb.stopDrag();
		}

		private function inchide_fdb(e:MouseEvent):void
		{
			este_fdb=0;
			rut.removeChild (pune_fdb);
		}

		private function incarc_fdb(fd:String):void
		{
			var lf_fr:Number = 0;
			rut.addChild (pune_fdb);
			este_fdb = 1;
			
			
			
			pune_fdb.text_fdb.htmlText=fd;
			lf_fr=pune_fdb.text_fdb.height;
			if (lf_fr>139)
			{
				pune_fdb.Spate.height=lf_fr;
				pune_fdb.Oaie.y=22+pune_fdb.Spate.height-9.2-pune_fdb.Oaie.height;
			}
			else
			{
				pune_fdb.Spate.height=150;
				pune_fdb.Oaie.y=30.1;
			}
			pune_fdb.x=699/2-pune_fdb.width/2;
			pune_fdb.y=599/2-pune_fdb.height/2;
		}
		/*Feed-Back*/

	}
}