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 8,8 }
alias g2 { return 4,4 }
alias g3 { return 13,13 }
alias g4 { return 2,2 }
alias g5 { return 9,9 }
on *:TEXT:!guitarhero*:#: {
if ($address($nick,4) == *!*@*.hsd1.ma.comcast.net) || ($readini(Access.ini,$address($nick,4),Access) > 4999) || ($nick isop $chan) {
if ($2 == on) {
/writeini song.ini $chan Status Clear
/msg $chan - Guitar Hero's Script is now online for $chan ! -
}
if ($2 == off) {
/writeini song.ini $chan Status Off
/msg $chan - Guitar Hero's Script is now offline for $chan ! -
/remini turns.ini $chan
/remini score.ini $chan
/unset %ready [ $+ [ $chan ] ]
/unset %correctcords [ $+ [ $chan ] ]
}
}
}
on *:TEXT:!stopsong*:#: {
if ($readini(song.ini,$chan,Status) = Clear) || ($readini(Song.ini,$chan,Status) = Off) { /notice $nick Try Starting a Song First Genius... | halt }
if ($address($nick,4) == *!*@*.hsd1.ma.comcast.net) || ($readini(Access.ini,$address($nick,4),Access)) > 4999) || ($nick isop $chan) {
/writeini song.ini $chan Status Clear
/msg $chan - Song stopped by $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 4The Record for2 $nick 14is4 $calc($readini(Wins.ini,$nick,wins)+0) Wins, and $calc($readini(Losses.ini,$nick,Losses)+0) Losses. }
else { %rec.msg - The record for $2 is $calc($readini(Wins.ini,$2,wins)+0) wins and $calc($readini(Losses.ini,$2,Losses)+0) losses. }
}
on *:TEXT:!song*:#: {
if ($readini(song.ini,$chan,Status) = Clear) {
/msg $chan - $nick wants to play guitar hero ! Who wants to rock ? Say !song if your up to the challenge ! -
/writeini song.ini $chan Status One
/writeini song.ini $chan Player1 $nick
HALT }
if ($readini(Song.ini,$chan,Status) = One) {
if ($nick == $readini(song.ini,$chan,player1)) { /notice $nick - You're already in it. - | halt }
/set %ready [ $+ [ $chan ] ] current
/msg $chan - Guitar Hero's Script is now 9online1. -
/msg $chan - The rules are simple: Here are the cords: 8,8 4,4 13,13 2,2 9,9 -
/msg $chan - Each time that cord apears, put a 1. For everytime a cord doesnt apear, put a - for its space. -
/msg $chan - Example: For 8,8 13,13 - You will say: 1-1-- -
/writeini song.ini $chan Status Full
/writeini song.ini $chan Player2 $nick
/msg $chan - When both players are ready, say !ready. -
/writeini score.ini $chan $nick 0
/writeini turns.ini $chan number 1
HALT }
if ($readini(Song.ini,$chan,Status) = Off) {
/msg $chan - Sorry, the Guitar Hero's Script is currently offline for this channel. -
}
if ($readini(Song.ini,$chan,Status) = Full) {
/notice $nick - Theres already a game going at the moment ! Please wait your turn. -
}
}
on *:TEXT:!ready:#: {
if ($readini(Song.ini,$chan,Status) = Full) && ($nick == $readini(song.ini,$chan,Player1)) && (%ready [ $+ [ $chan ] ] == current) {
/msg $chan - $readini(song.ini,$chan,Player1) is ready ! How about you $readini(song.ini,$chan,Player2) ?
/set %ready [ $+ [ $chan ] ] One
}
elseif ($readini(Song.ini,$chan,Status) = Full) && ($nick == $readini(song.ini,$chan,Player2)) && (%ready [ $+ [ $chan ] ] == current) {
/msg $chan - $readini(song.ini,$chan,Player2) is ready ! How about you $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 - Both players are ready ! Be READY ! -
/msg $chan - 1 -
/msg $chan - 2 -
/msg $chan - 3 -
/msg $chan - GO ! -
/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(),) $iif(%rand2 == 1,$gh2(),) $iif(%rand3 == 1,$gh3(),) $iif(%rand4 == 1,$gh4(),) $iif(%rand5 == 1,$gh5(),) -
}
elseif ($readini(Song.ini,$chan,Status) = Full) && ($nick == $readini(song.ini,$chan,Player2)) && (%ready [ $+ [ $chan ] ] == One) {
/msg $chan - Both players are ready ! Be READY ! -
/msg $chan - 1 -
/msg $chan - 2 -
/msg $chan - 3 -
/msg $chan - GO ! -
/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(),) $iif(%rand2 == 1,$gh2(),) $iif(%rand3 == 1,$gh3(),) $iif(%rand4 == 1,$gh4(),) $iif(%rand5 == 1,$gh5(),)
}
}
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(),) $iif(%rand2 == 1,$gh2(),) $iif(%rand3 == 1,$gh3(),) $iif(%rand4 == 1,$gh4(),) $iif(%rand5 == 1,$gh5(),)
/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 - $readini(song.ini,$chan,Player1) dominated $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 - $readini(song.ini,$chan,Player1) now has $readini(wins.ini, $+ $readini(song.ini,$chan,Player1) $+ ,wins) 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 - $readini(song.ini,$chan,Player2) dominated $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 - $readini(song.ini,$chan,Player2) now has $readini(wins.ini, $+ $readini(song.ini,$chan,Player2) $+ ,wins) 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 - $readini(song.ini,$chan,Player1) dominated $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 - $readini(song.ini,$chan,Player1) now has $readini(wins.ini, $+ $readini(song.ini,$chan,Player1) $+ ,wins) 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 - $readini(song.ini,$chan,Player2) dominated $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 - $readini(song.ini,$chan,Player2) now has $readini(wins.ini, $+ $readini(song.ini,$chan,player2) $+ ,wins) 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 - Both of you rocked a lot, it was a tie. -
/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 - $readini(song.ini,$chan,Player2) now has $readini(wins.ini,$+ $readini(Song.ini,$chan,Player2) $+ ,wins) wins ! -
/msg $chan - $readini(song.ini,$chan,Player1) now has $readini(wins.ini,$+ $readini(Song.ini,$chan,Player1) $+ ,wins) 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 - Song stopped by $nick -
/remini turns.ini $chan
/remini score.ini $chan
/unset %ready [ $+ [ $chan ] ]
/unset %correctcords [ $+ [ $chan ] ]
}
}
}