on *:text:!coin-toss*:#: {
  set %wins1 0
  set %wins2 0
  if ($nick == %player1) { 
    .msg $chan 3Pfft? 4Are you An Idiot3 $nick ,4 You Cant Play Yourself
    /halt 
  } 
  if (%coin1 == active) { 
    msg $chan a duel is already active please wait for it to end.
    /halt 
  } 
  if (%toss1 == active) { 
    set %player2 $nick 
    msg $chan 4The Match Has Been Decided,3 %player1 4VS3 %player2
    set %coin1 active  
    /set %turn $rand(1,2)
    if (%turn == 1) {
      .msg $chan 4Randomly Selected: %player1 Will Call The Toss
    } 
    if (%turn == 2) {
      .msg $chan 4Randomly Selected: %player2 Will Call The Toss
    } 
  } 
  else { 
    set %toss1 active 
    set %player1 $nick 
    msg $chan 3 $nick 4Wants To Play The Game:3 Coin Toss!4 To Play Type3 !coin-toss
  } 
}
on *:text:!heads*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) {  
      set %head $rand(1,2) 
      msg $chan 3 %player1 4Has Called:3 Heads!
      if (%head == 1) { 
        .msg $chan 4The Result Is:3 Heads!3 %player1 4Wins!!!!
        if (%wins1 == 0) {
          set %wins1 1
          set %wincount %player1 -> %wins1 [] %wins2 <- %player2
        .msg $chan 3 %player1 Wins Score: %wincount -3 %player2 4Turn To Toss }
        set %turn 2
      /halt }
      if (%wins1 == 1) {
        set %wins1 2
        set %wincount %player1 -> %wins1 [] %wins2 <- %player2
      .msg $chan 3 %player1 Wins Score: %wincount -3 %player2 4Turn To Toss }
      set %turn 2
    /halt }
    if (%wins1 == 2) {
      set %wins1 3
      .msg $chan 3 %player1 4WINS THE GAME!!! WOOT
      unset %wins1
      unset %wins2
      unset %toss1 
      unset %player1 
      unset %player2 
      unset %coin1 
      unset %turn
      unset %head
      unset %tails 
    }
    if (%head == 2) {
      .msg $chan 4OMG!!3 %player1 4Has Called The Toss: 3WRONG!!
      if (%wins2 == 0) {
        set %wins2 1
        set %wincount %player2 -> %wins1 [] %wins2 <- %player1
      .msg $chan 3 %player2 Wins Score: %wincount -3 %player1 4Turn To Toss }
      set %turn 2
    /halt }
    if (%wins2 == 1) {
      set %wins2 2
      set %wincount %player2 -> %wins1 [] %wins2 <- %player1
    .msg $chan 3 %player2 Wins Score: %wincount -3 %player1 4Turn To Toss }
    set %turn 2
  /halt }
  if (%wins2 == 2) {
    set %wins2 3
    .msg $chan 3 %player2 4WINS THE GAME!!! WOOT
    unset %wins1
    unset %wins2 
    unset %toss1 
    unset %player1 
    unset %player2 
    unset %coin1 
    unset %turn
    unset %head
    unset %tails 
  }
  else { 
  }  
  if (%turn == 2) { 
    if ($nick == %player2) {  
      set %head $rand(1,2) 
      msg $chan 3 %player2 4Has Called:3 Heads!
      if (%head == 1) { 
        .msg $chan 4The Result Is:3 Heads!3 %player2 4Wins!!!!
        if (%wins2 == 0) {
          set %wins2 1
          set %wincount %player2 -> %wins1 [] %wins2 <- %player1
        .msg $chan 3 %player2 Wins Score: %wincount -3 %player1 4Turn To Toss }
        set %turn 1
      /halt }
      if (%wins2 == 1) {
        set %wins2 2
        set %wincount %player2 -> %wins1 [] %wins2 <- %player1
      .msg $chan 3 %player2 Wins Score: %wincount -3 %player1 4Turn To Toss }
      set %turn 1
    /halt }
    if (%wins2 == 2) {
      set %wins2 3
      .msg $chan 3 %player1 4WINS THE GAME!!! WOOT
      unset %wins1
      unset %wins2 
      unset %toss1 
      unset %player1 
      unset %player2 
      unset %coin1 
      unset %turn
      unset %head
      unset %tails 
    }
    if (%head == 2) {
      .msg $chan 4OMG!!3 %player2 4Has Called The Toss: 3WRONG!!
      if (%wins1 == 0) {
        set %wins1 1
        set %wincount %player1 -> %wins1 [] %wins2 <- %player2
      .msg $chan 3 %player1 Wins Score: %wincount -3 %player2 4Turn To Toss }
      set %turn 1
    /halt }
    if (%wins1 == 1) {
      set %wins1 2
      set %wincount %player1 -> %wins1 [] %wins2 <- %player2
    .msg $chan 3 %player1 Wins Score: %wincount -3 %player2 4Turn To Toss }
    set %turn 1
  /halt }
  if (%wins1 == 2) {
    set %wins1 3
    .msg $chan 3 %player1 4WINS THE GAME!!! WOOT
    unset %wins1
    unset %wins2
    unset %toss1
    unset %player1 
    unset %player2 
    unset %coin1
    unset %turn
    unset %head
    unset %tails 
  }
  else { 
  }
} 
on *:text:!tails*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) {  
      set %tails $rand(1,2) 
      msg $chan 3 %player1 4Has Called:3 Tails!
      if (%tails == 1) { 
        .msg $chan 4The Result Is:3 Tails!3 %player1 4Wins!!!!
        if (%wins1 == 0) {
          set %wins1 1
          set %wincount %player1 -> %wins1 [] %wins2 <- %player2
        .msg $chan 3 %player1 Wins Score: %wincount -3 %player2 4Turn To Toss }
        set %turn 2
      /halt }
      if (%wins1 == 1) {
        set %wins1 2
        set %wincount %player1 -> %wins1 [] %wins2 <- %player2
      .msg $chan 3 %player1 Wins Score: %wincount -3 %player2 4Turn To Toss }
      set %turn 2
    /halt }
    if (%wins1 == 2) {
      set %wins1 3
      .msg $chan 3 %player1 4WINS THE GAME!!! WOOT
      unset %wins1
      unset %wins2
      unset %toss 
      unset %player1 
      unset %player2 
      unset %coin1 
      unset %turn
      unset %head
      unset %tails 
    }
    if (%tails == 2) {
      .msg $chan 4OMG!!3 %player1 4Has Called The Toss: 3WRONG!!
      if (%wins2 == 0) {
        set %wins2 1
        set %wincount %player2 -> %wins1 [] %wins2 <- %player1
      .msg $chan 3 %player2 Wins Score: %wincount -3 %player1 4Turn To Toss }
      set %turn 2
    /halt }
    if (%wins2 == 1) {
      set %wins2 2
      set %wincount %player2 -> %wins1 [] %wins2 <- %player1
    .msg $chan 3 %player2 Wins Score: %wincount -3 %player1 4Turn To Toss }
    set %turn 2
  /halt }
  if (%wins2 == 2) {
    set %wins2 3
    .msg $chan 3 %player2 4WINS THE GAME!!! WOOT
    unset %wins1
    unset %wins2  
    unset %toss1 
    unset %player1 
    unset %player2 
    unset %coin1 
    unset %turn
    unset %head
    unset %tails 
  }
  else { 
  }  
  if (%turn == 2) { 
    if ($nick == %player2) {  
      set %tails $rand(1,2) 
      msg $chan 3 %player2 4Has Called:3 Tails!
      if (%tails == 1) { 
        .msg $chan 4The Result Is:3 Heads!3 %player2 4Wins!!!!
        if (%wins2 == 0) {
          set %wins2 1
          set %wincount %player2 -> %wins1 [] %wins2 <- %player1
        .msg $chan 3 %player2 Wins Score: %wincount -3 %player1 4Turn To Toss }
        set %turn 1
      /halt }
      if (%wins2 == 1) {
        set %wins2 2
        set %wincount %player2 -> %wins1 [] %wins2 <- %player1
      .msg $chan 3 %player2 Wins Score: %wincount -3 %player1 4Turn To Toss }
      set %turn 1
    /halt }
    if (%wins1 == 2) {
      set %wins1 3
      .msg $chan 3 %player1 4WINS THE GAME!!! WOOT
      unset %wins1
      unset %wins2
      unset %toss1 
      unset %player1 
      unset %player2 
      unset %coin1 
      unset %turn
      unset %head
      unset %tails 
    }
    if (%tails == 2) {
      .msg $chan 4OMG!!3 %player2 4Has Called The Toss: 3WRONG!!
      if (%wins1 == 0) {
        set %wins1 1
        set %wincount %player1 -> %wins1 [] %wins2 <- %player2
      .msg $chan 3 %player1 Wins Score: %wincount -3 %player2 4Turn To Toss }
      set %turn 1
    /halt }
    if (%wins1 == 1) {
      set %wins1 2
      set %wincount %player1 -> %wins1 [] %wins2 <- %player2
    .msg $chan 3 %player1 Wins Score: %wincount -3 %player2 4Turn To Toss }
    set %turn 1
  /halt }
  if (%wins1 == 2) {
    set %wins1 3
    .msg $chan 3 %player1 4WINS THE GAME!!! WOOT
    unset %wins1
    unset %wins2
    unset %toss1 
    unset %player1 
    unset %player2 
    unset %coin1 
    unset %turn
    unset %head
    unset %tails 
  }
  else { 
  }
} 
on *:text:!stop-toss*:#: {
  if ($nick isop $chan || $nick ishop $chan) {
    .msg $chan 4Coin Toss Stop By:3 $nick 
    unset %toss 
    unset %player1 
    unset %player2 
    unset %coin1 
    unset %turn
    unset %toss1
    unset %tails
    unset %head
  }
}