// LED Button Blink Program
#include <avr/io.h>
#define F_CPU 2e6
#include <avr/delay.h>

#define TRUE 1
#define FALSE 0

#define output(directions,pin) (directions |= pin) // set port direction for output
#define set(port,pin) (port |= pin) // set port pin
#define clear(port,pin) (port &= (~pin)) // clear port pin
#define pin_test(pins,pin) (pins & pin) // test for port pin
#define bit_test(byte,bit) (byte & (1 << bit)) // test for bit set
#define led_delay() _delay_ms(1000) // LED delay


#define led_R PA7
#define led_P PB2
#define led_S PA3
#define but_R PA1
#define but_P PA2
#define but_S PA0

void main()
{  output(DDRB, (1<<PB2));
  output(DDRA, (1<<PA3));
  output(DDRA, (1<<PA7));
  int move = 2; // for now, it always starts with scissors
  int moven = 1; // moven randomly cycles based on the time the person hits the button
  int pmove = 1; // initialize the person's move
  while(1) {
    if (!((PINA & _BV(PA0))||(PINA & _BV(PA2))||(PINA & _BV(PA1)))) {

    // countdown to start
      set(PORTB,  (1<<PB2));
      set(PORTA,  (1<<PA3));
      set(PORTA,  (1<<PA7));
    int y = 0;
  for (y = 0; y<3; y++) {
    _delay_ms(500);
      set(PORTB,  (1<<PB2));
      set(PORTA,  (1<<PA3));
      set(PORTA,  (1<<PA7));
      _delay_ms(500);
      clear(PORTB,(1<<PB2));
      clear(PORTA,(1<<PA3));
      clear(PORTA, (1<<PA7));
      }



  // cycle through moven 
  int wait = 1;
  int delay = 0; 
  while(wait == 1) {
    moven = moven +1; 
    if (moven == 3) {
      moven = 0;}
    _delay_ms(1);
  // check what the person clicked 
  if (!(PINA & _BV(but_R))) {
    pmove = 0; 
    wait = 0; 
    }
  else {
  if (!(PINA & _BV(but_P))) {
    pmove = 1; 
    wait = 0; 
    }
  else {
  if (!(PINA & _BV(but_S))) {
    pmove = 2; 
    wait = 0; 
    }
  }
  }
  delay = delay+1; 
  if (delay >650) {
    pmove = 4; 
    wait = 0; 
  }
  if ((delay == 500)||wait == 0) {
  // set leds to reflect move
  if (move == 0) {
    set(PORTA, (1<<led_R));}
  if (move == 1) {
    set(PORTB, (1<<led_P));}
  if (move == 2) {
    set(PORTA, (1<<led_S));}
  }

  }
  
  _delay_ms(1500);
  // check who won
  int pwon = 0; 
  if ((pmove == move+1)||((pmove==0)&&(move==2))) {//person wins
    pwon = 1; 
  }
  if ((move == pmove+1)||((move==0)&&(pmove==2))) {//chip wins
    pwon = 0; 
  }
  if (move == pmove) {//tie
    pwon = 2; 
  }

  if (pwon == 1) { // person wins
  for (y = 0; y<10; y++) {
      set(PORTB,  (1<<PB2));
      set(PORTA,  (1<<PA3));
      set(PORTA,  (1<<PA7));
      _delay_ms(100);
      clear(PORTB,(1<<PB2));
      clear(PORTA,(1<<PA3));
      clear(PORTA, (1<<PA7));
      _delay_ms(100);} 
  }
  if (pwon == 0) { // chip wins
  for (y = 0; y<1; y++) {
      set(PORTB,  (1<<PB2));
      set(PORTA,  (1<<PA3));
      set(PORTA,  (1<<PA7));
      _delay_ms(100);
      clear(PORTB,(1<<PB2));
      clear(PORTA,(1<<PA3));
      clear(PORTA, (1<<PA7));
      _delay_ms(100);} 
  }
  if (pwon == 2) { // tie
  for (y = 0; y<1; y++) {
      set(PORTB,  (1<<PB2));
      set(PORTA,  (1<<PA3));
      set(PORTA,  (1<<PA7));
      _delay_ms(2000);
      clear(PORTB,(1<<PB2));
      clear(PORTA,(1<<PA3));
      clear(PORTA, (1<<PA7));
      _delay_ms(100);} 
  }
  if (pmove == 4) {//person was too slow
  for (y = 0; y<1; y++) {
      set(PORTB,  (1<<PB2));
      set(PORTA,  (1<<PA3));
      set(PORTA,  (1<<PA7));
      _delay_ms(5000);
      clear(PORTB,(1<<PB2));
      clear(PORTA,(1<<PA3));
      clear(PORTA, (1<<PA7));
      _delay_ms(100);} }




    }
    move = moven;
  }
}