alias gh1 { return $+($chr(2),$chr(3),$g1,$1-,$chr(3),$chr(15)) }
alias gh2 { return $+($chr(2),$chr(3),$g2,$1-,$chr(3),$chr(15)) }
alias gh3 { return $+($chr(2),$chr(3),$g3,$1-,$chr(3),$chr(15)) }
alias gh4 { return $+($chr(2),$chr(3),$g4,$1-,$chr(3),$chr(15)) }
alias gh5 { return $+($chr(2),$chr(3),$g5,$1-,$chr(3),$chr(15)) }

alias g1 { return 07 }
alias g2 { return 04 }
alias g3 { return 13 }
alias g4 { return 06 }
alias g5 { return 09 }

on *:TEXT:!GuitarHero*:#: {
  if ($readini(Access.ini,$address($nick,4),Access) > 4999) || ($nick isop $chan) {
    if ($2 == on) {
      /writeini song.ini $chan Status Clear
      /msg $chan 10Guitar 7Hero14 is now on for $chan $+ !
    }
    if ($2 == off) {
      /writeini song.ini $chan Status Off
      /msg $chan 10Guitar 7Hero14 is now off for $chan $+ !
      /remini turns.ini $chan
      /remini score.ini $chan
      /unset %ready [ $+ [ $chan ] ]
      /unset %correctcords [ $+ [ $chan ] ]
    }
  }
}

on *:TEXT:!stop*:#: {
  if ($readini(song.ini,$chan,Status) = Clear) || ($readini(Song.ini,$chan,Status) = Off) { /notice $nick No song has been started | halt }
  if ($readini(Access.ini,$address($nick,4),Access)) > 4999) || ($nick isop $chan) {
    /writeini song.ini $chan Status Clear
    /msg $chan 14The game was stopped by7 $nick
    /remini turns.ini $chan
    /remini score.ini $chan
    /unset %ready [ $+ [ $chan ] ]
    /unset %correctcords [ $+ [ $chan ] ]
  }
}
on *:TEXT:!record*:#: {
  /set %rec.msg [ $+ [ %dd ] ] $iif($left($1,1) == @,.msg $chan,.notice $nick)
  if (!$2) { %rec.msg 14Records for7 $nick 14-10 $calc($readini(Wins.ini,$nick,wins)+0) Wins14, and10 $calc($readini(Losses.ini,$nick,Losses)+0) Losses14. }
  else { %rec.msg 14Records for7 $2 14-10 $calc($readini(Wins.ini,$2,wins)+0) Wins14, and $calc($readini(Losses.ini,$2,Losses)+0) Losses14. }
}

on *:TEXT:!play*:#: {
  if ($readini(song.ini,$chan,Status) = Clear) {
    /msg $chan 10Guitar 7Hero 14activated by7 $nick $+ , 14type 10!play to verse them. 15(30 seconds to play)
    /writeini song.ini $chan Status One
    /writeini song.ini $chan Player1 $nick
    .timer 1 30 msg #  14No one has challanged7 $readini(song.ini,$chan,player1) $+ 14. The game has been cancelled.
    .timer 1 30 /writeini song.ini $chan Status Clear

  HALT }
  if ($readini(Song.ini,$chan,Status) = One) {
    if ($nick == $readini(song.ini,$chan,player1)) { /notice $nick You are already playing GuitarHero | halt }
    /set %ready [ $+ [ $chan ] ] current
    /msg $chan 7Guitar 10Hero6!14 switched on!
    /msg $chan 14The rules are easy7: 14Each time a colored number appears, put a one (1), for each black cord put a -.
    /msg $chan 14Here is an 10example14: 071 2 133 4 095 14would be entered as7 1-1-114. Be careful, the bolds are all over the shop to mess you up!
    /writeini song.ini $chan Status Full
    /writeini song.ini $chan Player2 $nick
    /msg $chan 14When you have read the rules and are ready, type 7!ready14.
    /writeini score.ini $chan $nick 0
    /writeini turns.ini $chan number 1
  HALT }
  if ($readini(Song.ini,$chan,Status) = Off) {
    /msg $chan 14Sorry, Guitar Hero is currently off in $chan  
  }
  if ($readini(Song.ini,$chan,Status) = Full) {
    /notice $nick 14A game is in progress, please wait until it is over.
  }
}

on *:TEXT:!ready:#: {
  if ($readini(Song.ini,$chan,Status) = Full) && ($nick == $readini(song.ini,$chan,Player1)) && (%ready [ $+ [ $chan ] ] == current) {
    /msg $chan 7 $+ $readini(song.ini,$chan,Player1) 14 is ready.  Are you10 $readini(song.ini,$chan,Player2) $+ 14?
    /set %ready [ $+ [ $chan ] ] One
  }
  elseif ($readini(Song.ini,$chan,Status) = Full) && ($nick == $readini(song.ini,$chan,Player2)) && (%ready [ $+ [ $chan ] ] == current) {
    /msg $chan 7 $+ $readini(song.ini,$chan,Player2) 14 is ready.  Are you10 $readini(song.ini,$chan,Player1) $+ ?
    /set %ready [ $+ [ $chan ] ] One
  }
  elseif ($readini(Song.ini,$chan,Status) = Full) && ($nick == $readini(song.ini,$chan,Player1)) && (%ready [ $+ [ $chan ] ] == One) {
    /msg $chan 14Both players 10ready14.7 $readini(song.ini,$chan,Player1) 14vs.7 $readini(song.ini,$chan,Player2)
    /set %ready [ $+ [ $chan ] ] Full
    /writeini turns.ini $chan Number 1
    var %rand1 = $rand(1,2)
    var %rand2 = $rand(1,2)
    var %rand3 = $rand(1,2)
    var %rand4 = $rand(1,2)
    var %rand5 = $rand(1,2)
    /set %correctcords [ $+ [ $chan ] ] $iif(%rand1 == 1,1,-) $+ $iif(%rand2 == 1,1,-) $+ $iif(%rand3 == 1,1,-) $+ $iif(%rand4 == 1,1,-) $+ $iif(%rand5 == 1,1,-)
    /msg $chan $iif(%rand1 == 1,$gh1(1),1) $iif(%rand2 == 1,$gh2(2),2) $iif(%rand3 == 1,$gh3(3),3) $iif(%rand4 == 1,$gh4(4),4) $iif(%rand5 == 1,$gh5(5),5)
  }
  elseif ($readini(Song.ini,$chan,Status) = Full) && ($nick == $readini(song.ini,$chan,Player2)) && (%ready [ $+ [ $chan ] ] == One) {
    /msg $chan 14Both players 10ready14.7 $readini(song.ini,$chan,Player1) 14vs.7 $readini(song.ini,$chan,Player2)
    /set %ready [ $+ [ $chan ] ] Full
    var %rand1 = $rand(1,2)
    var %rand2 = $rand(1,2)
    var %rand3 = $rand(1,2)
    var %rand4 = $rand(1,2)
    var %rand5 = $rand(1,2)
    /set %correctcords [ $+ [ $chan ] ] $iif(%rand1 == 1,1,-) $+ $iif(%rand2 == 1,1,-) $+ $iif(%rand3 == 1,1,-) $+ $iif(%rand4 == 1,1,-) $+ $iif(%rand5 == 1,1,-)
    /msg $chan $$iif(%rand1 == 1,$gh1(1),1) $iif(%rand2 == 1,$gh2(2),2) $iif(%rand3 == 1,$gh3(3),3) $iif(%rand4 == 1,$gh4(4),4) $iif(%rand5 == 1,$gh5(5),5)
  }
}

on *:TEXT:*:#: {
  if ($readini(song.ini,$chan,Status) == Full) {
    if (%ready [ $+ [ $chan ] ] == Full) && ($readini(Song.ini,$chan,Status) = Full) {
      if ($1- == %correctcords [ $+ [ $chan ] ]) {
        if ($nick == $readini(song.ini,$chan,Player1)) || ($nick == $readini(song.ini,$chan,Player2)) {
          if ($readini(turns.ini,$chan,Number) < 10) {
            var %rand1 = $rand(1,2)
            var %rand2 = $rand(1,2)
            var %rand3 = $rand(1,2)
            var %rand4 = $rand(1,2)
            var %rand5 = $rand(1,2)
            /set %correctcords [ $+ [ $chan ] ] $iif(%rand1 == 1,1,-) $+ $iif(%rand2 == 1,1,-) $+ $iif(%rand3 == 1,1,-) $+ $iif(%rand4 == 1,1,-) $+ $iif(%rand5 == 1,1,-)
            /msg $chan $iif(%rand1 == 1,$gh1(1),1) $iif(%rand2 == 1,$gh2(2),2) $iif(%rand3 == 1,$gh3(3),3) $iif(%rand4 == 1,$gh4(4),4) $iif(%rand5 == 1,$gh5(5),5)
            /writeini score.ini $chan $nick $calc($readini(Score.ini,$chan,$nick) + 1)
            /writeini turns.ini $chan number $calc($readini(turns.ini,$chan,Number) + 1)
          }
          elseif ($readini(turns.ini,$chan,Number) = 10) {
            if ($readini(score.ini,$chan,$readini(song.ini,$chan,Player1)) > $readini(score.ini,$chan,$readini(song.ini,$chan,Player2))) {
              /set %wins $readini(wins.ini,$readini(song.ini,$chan,player1),Wins)
              /msg $chan 7 $+ $readini(song.ini,$chan,Player1) 14 has beaten 10 $+ $readini(song.ini,$chan,Player2) $+ .
              /writeini wins.ini $readini(song.ini,$chan,Player1) Wins $calc(%wins + 1)
              /writeini losses.ini $readini(song.ini,$chan,Player2) Losses $calc($readini(losses.ini,$readini(song.ini,$chan,Player2),Losses) + 1)
              /msg $chan 7 $+ $readini(song.ini,$chan,Player1) 14 $+ has10 $readini(wins.ini, $+ $readini(song.ini,$chan,Player1) $+ ,wins) 14 $+ wins.
              /writeini song.ini $chan Status Clear
              /remini song.ini $chan Player1
              /remini song.ini $chan Player2
              /remini score.ini $chan
              /remini turns.ini $chan
              /unset %wins
            }
            elseif ($readini(score.ini,$chan,$readini(song.ini,$chan,Player1)) == $null) {
              /set %wins $readini(wins.ini,$readini(song.ini,$chan,player2),Wins)
              /msg $chan 7 $+ $readini(song.ini,$chan,Player2) 14 $+ has beaten 10 $+ $readini(song.ini,$chan,Player1) $+ .
              /writeini wins.ini $readini(song.ini,$chan,Player2) Wins $calc(%wins + 1)
              /writeini losses.ini $readini(song.ini,$chan,Player1) Losses $calc($readini(losses.ini,$readini(song.ini,$chan,Player1),Losses) + 1)
              /msg $chan 7 $+ $readini(song.ini,$chan,Player2) 14 $+  has10 $readini(wins.ini, $+ $readini(song.ini,$chan,Player2) $+ ,wins) 14 $+ wins.
              /writeini song.ini $chan Status Clear
              /remini song.ini $chan Player1
              /remini song.ini $chan Player2
              /remini score.ini $chan
              /remini turns.ini $chan
              /unset %wins
            }
            elseif ($readini(score.ini,$chan,$readini(song.ini,$chan,Player2)) == $null) {
              /set %wins $readini(wins.ini,$readini(song.ini,$chan,player1),Wins)
              /msg $chan 7 $+ $readini(song.ini,$chan,Player1) 14 $+ has beated 10 $+ $readini(song.ini,$chan,Player2)
              /writeini wins.ini $readini(song.ini,$chan,Player1) Wins $calc(%wins + 1)
              /writeini losses.ini $readini(song.ini,$chan,Player2) Losses $calc($readini(losses.ini,$readini(song.ini,$chan,Player2),Losses) + 1)
              /msg $chan 7 $+ $readini(song.ini,$chan,Player1) 14 $+ has10 $readini(wins.ini, $+ $readini(song.ini,$chan,Player1) $+ ,wins) 14 $+ wins.
              /writeini song.ini $chan Status Clear
              /remini song.ini $chan Player1
              /remini song.ini $chan Player2
              /remini score.ini $chan
              /remini turns.ini $chan
              /unset %wins
            }
            elseif ($readini(score.ini,$chan,$readini(song.ini,$chan,Player2)) > $readini(score.ini,$chan,$readini(song.ini,$chan,Player1))) {
              /set %wins $readini(wins.ini,$readini(song.ini,$chan,player2),Wins)
              /msg $chan 7 $+ $readini(song.ini,$chan,Player2) 14 $+ has beated 10 $+ $readini(song.ini,$chan,Player1)
              /writeini wins.ini $readini(song.ini,$chan,Player2) Wins $calc(%wins + 1)
              /writeini losses.ini $readini(song.ini,$chan,Player1) Losses $calc($readini(losses.ini,$readini(song.ini,$chan,Player1),Losses) + 1)
              /msg $chan 7 $+ $readini(song.ini,$chan,Player2) 14 $+ has10  $readini(wins.ini, $+ $readini(song.ini,$chan,player2) $+ ,wins) 14 $+ wins.
              /writeini song.ini $chan Status Clear
              /remini song.ini $chan Player1
              /remini song.ini $chan Player2
              /remini score.ini $chan
              /remini turns.ini $chan
              /unset %wins
            }
            elseif ($readini(score.ini,$chan,$readini(song.ini,$chan,Player2)) == $readini(score.ini,$chan,$readini(song.ini,$chan,Player1))) {
              /set %wins1 $readini(wins.ini,$readini(song.ini,$chan,player1),Wins)
              /set %wins2 $readini(wins.ini,$readini(song.ini,$chan,player2),Wins)
              /msg $chan 10What! 14The game was 7tied14.
              /writeini wins.ini $readini(song.ini,$chan,Player1) Wins $calc(%wins1 + 1)
              /writeini wins.ini $readini(song.ini,$chan,Player2) Wins $calc(%wins2 + 1)
              /msg $chan 7 $+ $readini(song.ini,$chan,Player2) 14 $+ has10  $readini(wins.ini,$+ $readini(Song.ini,$chan,Player2) $+ ,wins) 14 $+ wins.
              /msg $chan 7 $+ $readini(song.ini,$chan,Player1) 14 $+ has10  $readini(wins.ini,$+ $readini(Song.ini,$chan,Player1) $+ ,wins) 14 $+ wins.
              /writeini song.ini $chan Status Clear
              /remini song.ini $chan Player1
              /remini song.ini $chan Player2
              /remini score.ini $chan
              /remini turns.ini $chan
              /unset %wins1
              /unset %wins2
            }
          }
        }
      }
    }
  }
}

on *:PART:#: {
  if ($readini(song.ini,$chan,Status) = Clear) || ($readini(Song.ini,$chan,Status) = Off) { halt }
  if ($readini(Song.ini,$chan,Status) = Full) {
    if ($nick == $readini(song.ini,$chan,Player1) || ($nick == $readini(song.ini,$chan,Player2) || ($nick == $me) {
      /writeini song.ini $chan Status Clear
      /msg $chan 14The game was stopped by10 $nick
      /remini turns.ini $chan
      /remini score.ini $chan
      /unset %ready [ $+ [ $chan ] ]
      /unset %correctcords [ $+ [ $chan ] ]
    }
  }
}

on *:KICK:#: {
  if ($readini(song.ini,$chan,Status) = Clear) || ($readini(Song.ini,$chan,Status) = Off) { halt }
  if ($readini(Song.ini,$chan,Status) = Full) {
    if ($knick == $readini(song.ini,$chan,Player1) || ($knick == $readini(song.ini,$chan,Player2) || ($knick == $me) {
      /writeini song.ini $chan Status Clear
      /msg $chan 14The game was stopped by10 $nick
      /remini turns.ini $chan
      /remini score.ini $chan
      /unset %ready [ $+ [ $chan ] ]
      /unset %correctcords [ $+ [ $chan ] ]
    }
  }
}