rendered paste bodyalias 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 ] ]
}
}
}