//=====================================================================
// Overtime : Program Simulates Overtime in College Football, (c) 1996
// Author   : Chris Strickland
// Company  : New Horizons Software
//          : Links to the WEB page are welcomed 
//          : Any copying of the code on this page will be under the
//          : standard shareware license agreement.  Donations are
//          : appreciated and will encourage future development of WEB
//          : products.  
// Developed: Nov 24, 96
// Modified : Dec 13, 96
//          : May 31, 97
//          : Sep 27, 98 - Added some checks for the down so it wouldn't
//          :              output down 99.
//          :              Also started setting up for both offense and
//          :              defensive play calls.
//          : Nov  1, 98 - Changed the starting field position from
//          :              the 35 to the 25 yardline.
//          : Nov  6, 98 - Added Tight Pass play.
//          : Nov  8, 98 - Fixed a problem with 1st down further than
//          :              goaline, and TD's further than yardage.
//          : Dec  3, 98 - Added applet for java animation.
//          : Dec  5, 98 - Added new text
//=====================================================================

//---------------------------------------------------------
// Compute a Normally Distributed random number
//---------------------------------------------------------

function RndNorm(avg, std)
{
   var rWin=self.parent.Results;
   var su=0, i, u1, u2, dWin=self.parent.Results;

   u1=Math.random();
   u2=Math.random();

   var pi = 4.0 * Math.atan(1);
   var x=Math.sqrt(-2.0 * Math.log(u1));
   var y=Math.cos(2.0*pi*u2);
   su = x * y;

   var value=std*su + avg;
   
   if (DEBUG == 1) {
      rWin.document.write("RndNorm: x=",x," y=", y,"<BR>");
      rWin.document.write("RndNorm: su=",su," u1=",u1," u2=", u2, " pi=",pi,"<BR>");
      rWin.document.write("RndNorm: avg=",avg," std=",std,"<BR>");
      rWin.document.write("RndNorm: value=",value,"<BR>");
   }

   return value;
}     

//---------------------------------------------------------
function GetDefense()
{
   var first=getCookie("first");
   var rand=Math.random();

   var DefensivePlay=Math.floor(Math.random()*TotDefensePlays);

   if (first <= 3 ) {
      if (rand < .5 ) DefensivePlay = ShortYardage;
      else
         if (rand < .8) DefensivePlay = RunDefense;
   }
   if (first >=3 && first < 8 ) {
      if (rand < .4 ) DefensivePlay = Standard;
      else
         if (rand < .7 ) DefensivePlay = ShortPass;
   }
   if (first >=8 ) {
      if (rand < .2 ) DefensivePlay = Blitz;
      else
         if ( rand < .5 ) DefensivePlay = Prevent;
         else
            if ( rand < .8 ) DefensivePlay = Standard;
   }   

   return DefensivePlay;
}
//---------------------------------------------------------

function GetMessage(Offense, TotalYards, Scramble)
{
   Scramble=NO;
      if ( Offense == QBSneak) {
         MessagePtr=Scramble;     
      if (TotalYards < 5 && TotalYards >=2)
         MessagePtr=Dive;
      if (TotalYards < 2 && TotalYards > -1)
         MessagePtr=Stuff;
      if (TotalYards <= -1)
         MessagePtr=Crush;
   }

   if ( Offense == OffTackle) {
      MessagePtr=BreakHole;
      if (TotalYards < 3 && TotalYards > 0)
         MessagePtr=CloseHole;
      if (TotalYards <= 0)
         MessagePtr=PushBack;
   }

   if ( Offense == Draw) {
      MessagePtr=BreakHole;
      if (TotalYards < 5 && TotalYards > 0)
         MessagePtr=CloseHole;
      if (TotalYards <= 0)
         MessagePtr=BackField;
   }

   if ( Offense == Sweep) {
      MessagePtr=BreakHole;
      if (TotalYards < 5 && TotalYards > 1)
         MessagePtr=CBReadPlay;
      if (TotalYards <= 1)
         MessagePtr=NotFooled;
   }

   if ( Offense == Reverse) {
      MessagePtr=DefenseFooled;
      if (TotalYards < 7 && TotalYards > 2)
         MessagePtr=CBStayedZone;
      if (TotalYards <= 2)
         MessagePtr=DEReadPlay;
   }

   if ( Offense == Screen) {
      MessagePtr=DefenseFooled;
      if (TotalYards < 7 && TotalYards > 2)
         MessagePtr=CBStayedZone;
      if (TotalYards <= 2)
         MessagePtr=DEReadPlay;
      if ( TotalYards == -99) MessagePtr=Incomplete;
   }

   if ( Offense == TEPass) {
      MessagePtr=DefenseFooled;
      if (TotalYards < 7 && TotalYards > 2)
         MessagePtr=CBStayedZone;
      if (TotalYards <= 2)
         MessagePtr=DEReadPlay;
      if ( TotalYards == -99) MessagePtr=Incomplete;
   }

   if ( Offense == MedPass) {
      MessagePtr=DefenseFooled;
      if (TotalYards < 12)
         MessagePtr=CBStayedZone;
      if (TotalYards < 6) {
         MessagePtr=Scramble;
         Scramble=YES;
      }
      if (TotalYards <= 0)
         MessagePtr=Sack;
      if ( TotalYards == -99) MessagePtr=Incomplete;
   }

   if ( Offense == Fly) {
      MessagePtr=Awesome;
      if ( TotalYards < 15)
         MessagePtr=Dump;
      if ( TotalYards < 8) {
         MessagePtr=Scramble;
         Scramble=YES;
      }
      if ( TotalYards <= 0 ) MessagePtr=Sack; 
      if ( TotalYards == -99) MessagePtr=Incomplete;

   }
   return MessagePtr;
}

//---------------------------------------------------------

function Yardage(Offense,Defense)
{
   var TotalYards=0;
   var rWin=self.parent.Results;
   var ptr=Offense+(Defense*TotOffensePlays);
  
   TotalYards = Math.ceil(RndNorm(AvgStats[Offense+
      (Defense*TotOffensePlays)], StdStats[ Offense+
      (Defense*TotOffensePlays)]));

   if (DEBUG==1) {
      rWin.document.write("Yardage: Before Comp TotalYards=",
         TotalYards,"<BR>");
      rWin.document.write("Yardage: Offense=",Offense," Defense=",Defense,"<BR>");
      rWin.document.write("Yardage: PTR=",TotOffensePlays*Defense,"<BR>");
      rWin.document.write("Yardage: AvgStats=",AvgStats[ptr],"<BR>");
      rWin.document.write("Yardage: StdStats=",StdStats[ptr],"<BR>");
      rWin.document.write("Yardage: CompPass=",CompPass[ptr],"<BR>");
   }
 
   if (CompPass[ptr] < Math.random())
      TotalYards = -99;

   if (DEBUG==1)
      rWin.document.write("Yardage: After Comp TotalYards=",
         TotalYards,"<BR>");

   return TotalYards;
}

//-----------------------------------------------------------

function CheckTurnOver(OffensePlay, DefensePlay,
   TurnOverOdds, Scramble, TotalYards)
{
   var MessagePtr=NoTurnOver;
   var x=getCookie("player");
   var Rand=Math.random(); 

   if (DEBUG==1) {
      self.parent.Results.document.write("CheckTurnOver: Rand=",Rand,
         "Turnover=", TurnOverOdds,"<BR>");
      self.parent.Results.document.write("CheckTurnOver: player=",x,"<BR>");
   }

   if (Rand < TurnOverOdds) {
      MessagePtr=Fumble;
      if (OffensePlay>=PassPlay && TotalYards != -99 && Scramble==NO)
         MessagePtr=Interception;

      if (x==0) x=1;
      else x=0;

      Reset(1);
   } else
      setCookie("player",x,toExpire,null,null,false);

   return MessagePtr;
}

//----------------------------------------------------------------

function ComputeDown()
{
   var down = getCookie("down");
   var rWin=self.parent.Results;

   if ( eval(down) < 4)
   {
      down=eval(down) + 1;
      setCookie("down",down,toExpire,null,null,false);
   } else {
      Reset(1);
      down=Lost;
   }
      
   if (DEBUG==1)
      rWin.document.write("ComputeDown: After down=",down,"<BR>");

   return down;
}

//----------------------------------------------------------------

function ComputeFirst(yards)
{

   var rWin=self.parent.Results;
   var first=getCookie("first");

   if (DEBUG==1 ) rWin.document.write("ComputeFirst: Before first=",first,"<BR>");

   first = eval(first) - yards;

   if (DEBUG == 1) rWin.document.write("ComputeFirst: toExpire=",toExpire,"<BR>");

   if ( eval(first) <= 0 ) {
        setCookie("down","0",toExpire,null,null,false);
        setCookie("first","10",toExpire,null,null,false);
      first=10;
   }

   if (DEBUG==1 ) rWin.document.write("ComputeFirst: After first=",first,"<BR>");

   setCookie("first",first,toExpire,null,null,false);
   return first;

}

//---------------------------------------------------------------

function ComputeYardLine(yards)
{
   var yardline=getCookie("yard");
   var rWin=self.parent.Results;

   yardline=eval(yardline)-yards;
   
   setCookie("yard",yardline,toExpire,null,null,false);

   return yardline;
} 

//--------------------------------------------------------------------
  
function Reset(status)
{
   var rWin=self.parent.Results;

   if (DEBUG == 1 ) rWin.document.write("Enter Results<BR>");

   deleteCookie("play");
   deleteCookie("down");
   deleteCookie("first");
   deleteCookie("yard");
   deleteCookie("player");

   if (DEBUG==1) 
      rWin.document.write("ComputeFirst: toExpire=",toExpire,"<BR>");

   setCookie("play","0",toExpire,null,null,false);
   setCookie("down","1",toExpire,null,null,false);
   setCookie("first","10",toExpire,null,null,false);
   setCookie("yard","25",toExpire,null,null,false);
   setCookie("player","0",toExpire,null,null,false);

   if (eval(status) ==  0) {
      rWin.document.open();
      rWin.document.bgColor="gold";
      rWin.document.write("<Center><H1><BR>");
      rWin.document.write("Let's Play a New Game<BR>");
      rWin.document.write("Florida just scored a TD<BR>");
      rWin.document.write("FSU blocked the extra point<BR>");
      rWin.document.write("FSU has to score a TD to win!!!<BR>");
      rWin.document.write("</H1></CENTER>");
      rWin.document.close();
   }
}

function PlayBall()
{

// Initialize All variables.

   var xstr="";
   var rWin=self.parent.Results;
   var pWin=self.parent.PlaySel;
   var Player=0;
   var TurnOverOdds=0;

   rWin.document.open();
   rWin.document.bgColor="gold";
   
   var player=getCookie("player");

   initOffensivePlays();
   initDefensivePlays();
   initVars();
   initTeams();
   initMessages();
   storeStats();
   storePlayNames();

   Scramble=NO;

//--------------------------------------------------------
// Get the play slection
//--------------------------------------------------------

   if ( player == 0 ) {
      var OffensePlay=parent.PlaySel.document.Offense.Call.value;
   } else {
      var OffensePlay=parent.DefenseSel.document.Defense.Call.value;
   }
//--------------------------------------------------------
// Double check to see if a play was selected.
//--------------------------------------------------------

   if (OffensePlay  == null || OffensePlay == "" )
      alert("Please Select Play (or finishing loading).");
   else {

      var OffensePlay=OffensePlay-1;

//--------------------------------------------------------
//    Generate a defensive play call.  Purely random for now.
//--------------------------------------------------------

      DefensePlay=GetDefense();

//--------------------------------------------------------
//    Get the total yards gained.
//--------------------------------------------------------

      var TotalYards=Yardage(OffensePlay, DefensePlay);

      if (DEBUG==1) rWin.document.write("TotalYards=",TotalYards);

//--------------------------------------------------------
//    Find out the message that goes with the play.
//--------------------------------------------------------

      MessagePtr = GetMessage(OffensePlay,TotalYards,Scramble);

      if (DEBUG==1) rWin.document.write(MessagePtr,"<BR>");

      if (TotalYards == -99) TotalYards = 0;  //Fix Incomplete Pass

//--------------------------------------------------------
//    Get the yardline, then see if it's a TD.
//--------------------------------------------------------

      OldYardLine=eval(getCookie("yard"));

      YardLine=ComputeYardLine(TotalYards);

      if ( eval(YardLine) <= 0 ) {
         Reset(1);
         MessagePtr=TD;
      } else {       
         ToFirst=ComputeFirst(TotalYards);
         Down=ComputeDown();
      }

//--------------------------------------------------------
//    Look to see if a turnover occurred.
//--------------------------------------------------------
    
      if ( MessagePtr != Incomplete && MessagePtr != TD) { 
         TurnOverOdds=TurnOver[OffensePlay+(DefensePlay*TotOffensePlays)];
         var hldPtr=MessagePtr;

         MessagePtr=CheckTurnOver(OffensePlay, DefensePlay, 
            TurnOverOdds, Scramble, TotalYards);
         if (MessagePtr == NoTurnOver) MessagePtr=hldPtr;
      }

      player=getCookie("player");
      
//--------------------------------------------
//    Write out the results of the play.
//--------------------------------------------

      rWin.document.write("<CENTER><TABLE width=400 border=0>");
      rWin.document.write("<TR><TD colspan=2 align=center><H2>And the ball is snapped.</H2>");

      rWin.document.write("<TR><TD rowspan=5 width=120>");

      if (MessagePtr==Sack) 
         rWin.document.write("<img src=./pictures/thesack1.gif height=87 width=120>");
      if (MessagePtr==BreakHole || MessagePtr==Dive || MessagePtr==BigRun) 
         rWin.document.write("<img src=./pictures/run.gif height=87 width=120>");
      if (MessagePtr==Awesome) 
         rWin.document.write("<img src=./pictures/compass.gif height=87 width=120>");
      if (MessagePtr==Incomplete) 
         rWin.document.write("<img src=./pictures/incomp.gif height=87 width=120>");
      if (MessagePtr==Scramble) 
         rWin.document.write("<img src=./pictures/scramble.gif height=87 width=120>");
      if (MessagePtr==TD)
         rWin.document.write("<img src=./pictures/touchdown1.gif  height=87 width=120>"); 

      if (MessagePtr==Fumble) 
         rWin.document.write("<img src=./pictures/fumb.gif height=87 width=120>");
      if (MessagePtr==Interception) 
         rWin.document.write("<img src=./pictures/intercept.gif height=87 width=120>");

//--------------------------------------------
//    Write out information in right column.
//--------------------------------------------

      rWin.document.write("<TD width=280>");

//--------------------------------------------------------
//    Write out the play calls.
//--------------------------------------------------------

      rWin.document.write(OffensePlayName[OffensePlay]," vs ",
         DefensePlayName[DefensePlay],"<BR>");

//--------------------------------------------------------
//    Set the text color for positive or negative gain.
//--------------------------------------------------------
      
      txtclr="black";
      if (TotalYards < 0 ) txtclr="red";

      if ( MessagePtr == TD ) TotalYards = OldYardLine;
            
      rWin.document.write(Message[MessagePtr].fontcolor(txtclr),
         ":  ", TotalYards," Yards".fontcolor(txtclr),"<BR>");

      if (MessagePtr != Fumble && MessagePtr != TD && MessagePtr != Interception ) {
         if ( Down != 99) rWin.document.write("Down: ", Down,"<BR>");
         if (YardLine < ToFirst) ToFirst=YardLine;
         rWin.document.write("Yards For First: ",ToFirst,"<BR>");
         rWin.document.write("Ball on the: ",YardLine, "<BR>");
      }
      
      if ( Down == Lost || MessagePtr==Fumble || MessagePtr==Interception ) player=player*-1 + 1;
      rWin.document.write(PlayerName[player], " Has the Ball<BR>");
      rWin.document.write("</TABLE>");

      if ( Down == Lost || MessagePtr==Interception || MessagePtr==Fumble ) {
         rWin.document.write("<CENTER><H1>");
         rWin.document.write("You Just Lost in Overtime<BR>");
         rWin.document.write("</CENTER></H1>");
      }

      rWin.document.close();

   }

//    if (TotalYards !=0 ) {
 
       var dialog = window.open("","dialogBox","height=375,width=425");
       dialog.document.open("text/html");
       dialog.document.writeln("<HEAD><TITLE>College Football Overtime</TITLE></HEAD>");
       dialog.document.writeln("<BODY>");
       dialog.document.writeln("<center><B>Go Seminoles Go!!!</B></CENTER><BR>");
       dialog.document.writeln("<APPLET");
       dialog.document.writeln('CODEBASE = "."');
       dialog.document.writeln('ARCHIVE  = "football.jar"');
       dialog.document.writeln('CODE     = "football.football.class"');
//       dialog.document.writeln('NAME     = "TestApplet"');
       dialog.document.writeln('NAME     = "College Football Overtime"');
       dialog.document.writeln('WIDTH    = 400');
       dialog.document.writeln('HEIGHT   = 300');
       dialog.document.writeln('HSPACE   = 0');
       dialog.document.writeln('VSPACE   = 0');
       dialog.document.writeln('ALIGN    = middle');
       dialog.document.writeln('>');
       dialog.document.writeln('<PARAM NAME=playcall VALUE="'+OffensePlayName[OffensePlay]+
          " vs "+DefensePlayName[DefensePlay]+'">');
       dialog.document.writeln('<PARAM NAME=description VALUE="'+Message[MessagePtr]+'">');
       dialog.document.writeln('<PARAM NAME=yardline VALUE="'+YardLine+'">');
       dialog.document.writeln('<PARAM NAME=oldyardline VALUE="'+OldYardLine+'">');
       dialog.document.writeln('<PARAM NAME=tofirst VALUE="'+ToFirst+'">');
       dialog.document.writeln('<PARAM NAME=yards VALUE="'+TotalYards+'">');
       dialog.document.writeln('<PARAM NAME=offense VALUE="'+OffensePlay+'">');
       dialog.document.writeln('<PARAM NAME=MessagePtr VALUE="'+MessagePtr+'">');
       dialog.document.writeln('</APPLET>');
       dialog.document.writeln('</BODY>');
       dialog.document.close();
       dialog.focus();
//    }
//    dialog.close();

}