!5050! I need help again... - 10/10/05 01:58 PM
EDIT: LOOK AT LAST POST PLEASE
on *:TEXT:*:#: { if ($1 == !Shoot) { %shot. $+ $nick = 1 if ($read(5050.txt,n) == Shoot) { msg $chan $nick You have been shot! inc %shot. $+ $nick } else { msg $chan $nick Missed! You $nick } if (%shot.nick $+ $nick == 5) { ban -u300 $address($nick,3) kick # $nick Presto! Your dead! } }
on *:text:!5050:[color:red]#yourchan[/color]: { [color:green]; Create the table for scores and set it to load/save automatically so no data loss will occur.[/color] if ($hget(Game) == $null) { hmake Game 50 hload Game 5050.txt .timerGame -o 0 10 hsave Game 5050.txt } [color:green]; Check the random number 1 or 2. If it's a 1, kick or kick/ban them.[/color] if ($rand(1,2) == 1) { [color:green]; Count the number of kicks and add them to the hash table.[/color] hadd Game $+($nick,.kicks) $calc($hget(Game,$+($nick,.kicks)) + 1) [color:green]; If the number of kicks is divisible by 5, ban and kick the person for 5 minutes.[/color] if ($calc($hget(Game,$+($nick,.kicks)) % 5) == 0) { ban -ku300 $chan $nick You have lost the 50/50 and suffer a 5 minute ban. } [color:green]; If the number of kicks isn't divisible by 5, just kick the person.[/color] else { kick $chan $nick You lost the 50/50. } } [color:green]; If the random number is 2, give points.[/color] else { [color:green]; Add points to the hash table.[/color] hadd Game $+($nick,.points) $calc($hget(Game,$+($nick,.points)) + 1) msg $chan You have won the 50/50 and received 1 point for a total of $hget(Game,$+($nick,.points)) points. } } [color:green]; Allow viewing scores with !won (to see your own) or !won nick (to see a nick's points).[/color] on *:text:!won*:[color:red]#yourchan[/color]: { if ($2 != $null) { if ($hget(Game,$+($2,.points)) != $null) { msg $chan $2 has won $hget(Game,$+($2,.points)) points in the 50/50. } else { msg $chan $2 has not won any points in the 50/50. } } else { if ($hget(Game,$+($nick,.points)) != $null) { msg $chan You have won $hget(Game,$+($nick,.points)) points in the 50/50. } else { msg $chan You have not won any points in the 50/50. } } }
on *:text:!5050:[color:red]#yourchan[/color]: { [color:green]; Create the table for scores and set it to load/save automatically so no data loss will occur.[/color] if ($hget(Game) == $null) { hmake Game 50 hload Game 5050.txt .timerGame -o 0 10 hsave Game 5050.txt } [color:green]; Check the random number 1 or 2. If it's a 1, devoice or devoice/kick them.[/color] if ($rand(1,2) == 1) { [color:green]; Count the number of devoices and add them to the hash table.[/color] hadd Game $+($nick,.devoices) $calc($hget(Game,$+($nick,.devoices)) + 1) [color:green]; If the number of devoices is divisible by 5, kick the person.[/color] if ($calc($hget(Game,$+($nick,.devoices)) % 5) == 0 && $me isop $chan) { kick $chan $nick You have lost the 50/50 and suffer a kick. } [color:green]; If the number of devoices isn't divisible by 5, just devoice the person for 30 seconds.[/color] else { msg You have lost the 50/50. if ($me isop $chan) { mode $chan -v $nick .timer $+ $+($nick,.devoice) 1 30 mode $chan +v $nick } } } [color:green]; If the random number is 2, give points.[/color] else { [color:green]; Add points to the hash table.[/color] hadd Game $+($nick,.points) $calc($hget(Game,$+($nick,.points)) + 1) msg $chan You have won the 50/50 and received 1 point for a total of $hget(Game,$+($nick,.points)) points. } } [color:green]; Allow viewing scores with !won (to see your own) or !won nick (to see a nick's points).[/color] on *:text:!won*:[color:red]#yourchan[/color]: { if ($2 != $null) { if ($hget(Game,$+($2,.points)) != $null) { msg $chan $2 has won $hget(Game,$+($2,.points)) points in the 50/50. } else { msg $chan $2 has not won any points in the 50/50. } } else { if ($hget(Game,$+($nick,.points)) != $null) { msg $chan You have won $hget(Game,$+($nick,.points)) points in the 50/50. } else { msg $chan You have not won any points in the 50/50. } } }
on *:text:!5050:[color:red]#yourchan[/color]: { [color:green]; Create the table for scores and set it to load/save automatically so no data loss will occur.[/color] if ($hget(Game) == $null) { hmake Game 50 hload Game 5050.txt .timerGame -o 0 10 hsave Game 5050.txt } [color:green]; Check the random number 1 or 2. If it's a 1, kick or kick/ban them.[/color] if ($rand(1,2) == 1) { [color:green]; Count the number of kicks and add them to the hash table.[/color] hadd Game $+($nick,.kicks) $calc($hget(Game,$+($nick,.kicks)) + 1) [color:green]; If the number of kicks is divisible by 5, ban and kick the person for 5 minutes.[/color] if ($calc($hget(Game,$+($nick,.kicks)) % 5) == 0) { if ($me isop $chan) { ban -ku300 $chan $nick You have lost the 50/50 and suffer a 5 minute ban. } else { msg $chan You have lost the 50/50 and would have suffered a 5 minute ban if I was an op. } } [color:green]; If the number of kicks isn't divisible by 5, just kick the person.[/color] elseif ($me isop $chan) { kick $chan $nick You lost the 50/50. } else { msg $chan You lost the 50/50 and would have been kicked if I was an op. } } [color:green]; If the random number is 2, give points.[/color] else { [color:green]; Add points to the hash table.[/color] hadd Game $+($nick,.points) $calc($hget(Game,$+($nick,.points)) + 1) msg $chan You have won the 50/50 and received 1 point for a total of $hget(Game,$+($nick,.points)) points. } } [color:green]; Allow viewing scores with !won (to see your own) or !won nick (to see a nick's points).[/color] on *:text:!won*:[color:red]#yourchan[/color]: { if ($2 != $null) { if ($hget(Game,$+($2,.points)) != $null) { msg $chan $2 has won $hget(Game,$+($2,.points)) points in the 50/50. } else { msg $chan $2 has not won any points in the 50/50. } } else { if ($hget(Game,$+($nick,.points)) != $null) { msg $chan You have won $hget(Game,$+($nick,.points)) points in the 50/50. } else { msg $chan You have not won any points in the 50/50. } } }
on *:text:!comp5050:[color:red]#yourchan[/color]: { if ($hget(Game) == $null) { hmake Game 50 hload Game 5050.txt .timerGame -o 0 10 hsave Game 5050.txt } if (%5050comp != $null) { msg $chan 50/50 Competition already started. To join, type !join5050 | return } set %5050comp 1 msg $chan 50/50 Competition started. To join, type !join5050. [color:red]2[/color] player minimum required to play. Competition will start in [color:red]30[/color] seconds. You must be joined by then to play. .timer5050compstart 1 [color:red]30[/color] 5050compstart } on *:text:!join5050:[color:red]#yourchan[/color]: { if (%5050comp == 1) { .notice $nick You have joined the 50/50 Competition. hinc Game Competition.players hadd Game Competition.nicks $hget(Game,Competition.nicks) $nick hadd Game $+(Competition.,$nick) 20 0 } elseif (%5050comp == $null) { .notice $nick No competition has been started. To start a competition, type !comp5050. } else { .notice $nick The 50/50 Competition has already started. You cannot join a competition that has already started. } } on *:text:!leave:[color:red]#yourchan[/color]: { if (%5050comp != null) { if ($hget(Game,$+(Competition.,$nick)) != $null) { .notice $nick You have left the 50/50 Competition before finishing. hdec Game Competition.players hdel Game $+(Competition.,$nick) hadd Game Competition.nicks $remtok($hget(Game,Competition.nicks),$nick,32) if ($hget(Competition.players) == 0 && %5050comp == 2) { Complete5050Comp } } else { .notice $nick You aren't in the competition. } } else { .notice $nick No competition has been started, so you cannot leave one. To start a competition, type !comp5050. } } alias 5050compstart { if ($hget(Game,Competition.players) >= [color:red]2[/color]) { msg $chan 50/50 Competition has begun. Type !5050 to guess. set %5050comp 2 .timer5050comp 1 [color:red]120[/color] 5050CompTimeOut } else { msg $chan Not enough players for the competition -- Competition closed. unset %5050comp hdel -w Game Competition* } } on *:text:!5050:[color:red]#yourchan[/color]: { [color:green]; Create the table for scores and set it to load/save automatically so no data loss will occur.[/color] if ($hget(Game) == $null) { hmake Game 50 hload Game 5050.txt .timerGame -o 0 10 hsave Game 5050.txt } [color:green]; If competition isn't started, proceed normally. Else, go to the Else and run the competition part.[/color] if (%5050comp != 2) { [color:green]; Check the random number 1 or 2. If it's a 1, kick or kick/ban them.[/color] if ($rand(1,2) == 1) { [color:green]; Count the number of kicks and add them to the hash table.[/color] hadd Game $+($nick,.kicks) $calc($hget(Game,$+($nick,.kicks)) + 1) [color:green]; If the number of kicks is divisible by 5, ban and kick the person for 5 minutes.[/color] if ($calc($hget(Game,$+($nick,.kicks)) % 5) == 0) { if ($me isop $chan) { ban -ku300 $chan $nick You have lost the 50/50 and suffer a 5 minute ban. } else { msg $chan You have lost the 50/50 and would have suffered a 5 minute ban if I was an op. } } [color:green]; If the number of kicks isn't divisible by 5, just kick the person.[/color] elseif ($me isop $chan) { kick $chan $nick You lost the 50/50. } else { msg $chan You lost the 50/50 and would have been kicked if I was an op. } } [color:green]; If the random number is 2, give points.[/color] else { [color:green]; Add points to the hash table.[/color] hinc Game $+($nick,.points) msg $chan You have won the 50/50 and received 1 point for a total of $hget(Game,$+($nick,.points)) points. } } [color:green]; Competition section[/color] else { [color:red]if (%compdelay. $+ $nick != $null) { return } set -u5 %compdelay. $+ $nick 1[/color] if ($istok($hget(Game,Competition.nicks),$nick,32) { if ($gettok($hget(Game,$+(Competition.,$nick)),1,32) > 0) { if ($rand(1,2) == 1) { msg $chan $nick lost a life -- $gettok($hget(Game,$+(Competition.,$nick)),1,32) lives remaining. hadd Game $+(Competition.,$nick) $calc($gettok($hget(Game,$+(Competition.,$nick)),1,32) - 1) $gettok($hget(Game,$+(Competition.,$nick)),2,32) if ($gettok($hget(Game,$+(Competition.,$nick)),1,32) == 0) { msg $chan $nick has no more lives. hdec Game Competition.players } if ($hget(Game,Competition.players) == 0) { Complete5050Comp } } else { hadd Game $+(Competition.,$nick) $gettok($hget(Game,$+(Competition.,$nick)),1,32) $calc($gettok($hget(Game,$+(Competition.,$nick)),1,32) + 1) msg $chan $nick has won a point for a total of $gettok($hget(Game,$+(Competition.,$nick)),2,32) points. } else { .notice $nick You don't have any more lives. Wait until the competition finishes. } } else { .notice $nick You aren't in the competition. Try again after the competition is over. } } } [color:green]; Allow viewing scores with !won (to see your own) or !won nick (to see a nick's points).[/color] on *:text:!won*:[color:red]#yourchan[/color]: { if ($2 != $null) { if ($hget(Game,$+($2,.points)) != $null) { msg $chan $2 has won $hget(Game,$+($2,.points)) points in the 50/50. } else { msg $chan $2 has not won any points in the 50/50. } } else { if ($hget(Game,$+($nick,.points)) != $null) { msg $chan You have won $hget(Game,$+($nick,.points)) points in the 50/50. } else { msg $chan You have not won any points in the 50/50. } } } alias Complete5050Comp { var %winner.nick = None var %winner.points = 0 var %c = 1 var %i = $gettok($hget(Game,Competition.nicks),0,32) while (%c <= %i) { if ($gettok($hget(Game,$+(Competition.,$gettok($hget(Game,Competition.nicks),%c,32))),2,32) > %winner.points) { var %winner.points = $gettok($hget(Game,$+(Competition.,$gettok($hget(Game,Competition.nicks),%c,32))),2,32) var %winner.nick = $gettok($hget(Game,Competition.nicks),%c,32) } inc %c } msg $chan 50/50 Competition Ended. msg $chan 50/50 Competition Winner: %winner.nick with %winner.points points! if (%winner.nick != None) { hinc Game $+(%winner.nick,.points) 20 } unset %5050comp hdel -w Game Competition.* .timer5050comp off } alias 5050CompTimeOut { msg $chan Time's Up! Complete5050Comp }
alias 5050compstart { [color:red]echo -a Start[/color] if ($hget(Game,Competition.players) >= 2) { [color:red]echo -a Enough players.[/color] msg $chan 50/50 Competition has begun. Type !5050 to guess. set %5050comp 2 .timer5050comp 1 120 5050CompTimeOut } else { [color:red]echo -a Not enough players.[/color] msg $chan Not enough players for the competition -- Competition closed. unset %5050comp hdel -w Game Competition* } }
on *:text:!comp5050:[color:red]#yourchan[/color]: { if ($hget(Game) == $null) { hmake Game 50 hload Game 5050.txt .timerGame -o 0 10 hsave Game 5050.txt } if (%5050comp != $null) { msg $chan 50/50 Competition already started. To join, type !join5050 | return } set %5050comp 1 msg $chan 50/50 Competition started. To join, type !join5050. [color:red]2[/color] player minimum required to play. Competition will start in [color:red]30[/color] seconds. You must be joined by then to play. .timer5050compstart 1 [color:red]30[/color] 5050compstart } on *:text:!join5050:[color:red]#yourchan[/color]: { if (%5050comp == 1) { .notice $nick You have joined the 50/50 Competition. hinc Game Competition.players hadd Game Competition.nicks $hget(Game,Competition.nicks) $nick hadd Game $+(Competition.,$nick) 20 0 } elseif (%5050comp == $null) { .notice $nick No competition has been started. To start a competition, type !comp5050. } else { .notice $nick The 50/50 Competition has already started. You cannot join a competition that has already started. } } on *:text:!leave:[color:red]#yourchan[/color]: { if (%5050comp != null) { if ($hget(Game,$+(Competition.,$nick)) != $null) { .notice $nick You have left the 50/50 Competition before finishing. hdec Game Competition.players hdel Game $+(Competition.,$nick) hadd Game Competition.nicks $remtok($hget(Game,Competition.nicks),$nick,32) if ($hget(Competition.players) == 0 && %5050comp == 2) { Complete5050Comp } } else { .notice $nick You aren't in the competition. } } else { .notice $nick No competition has been started, so you cannot leave one. To start a competition, type !comp5050. } } alias 5050compstart { if ($hget(Game,Competition.players) >= [color:red]2[/color]) { msg $chan 50/50 Competition has begun. Type !5050 to guess. set %5050comp 2 .timer5050comp 1 [color:red]120[/color] 5050CompTimeOut } else { msg $chan Not enough players for the competition -- Competition closed. unset %5050comp hdel -w Game Competition* } } on *:text:!5050:[color:red]#yourchan[/color]: { [color:green]; Create the table for scores and set it to load/save automatically so no data loss will occur.[/color] if ($hget(Game) == $null) { hmake Game 50 hload Game 5050.txt .timerGame -o 0 10 hsave Game 5050.txt } [color:green]; If competition isn't started, proceed normally. Else, go to the Else and run the competition part.[/color] if (%5050comp != 2) { [color:green]; Check the random number 1 or 2. If it's a 1, kick or kick/ban them.[/color] if ($rand(1,2) == 1) { [color:green]; Count the number of kicks and add them to the hash table.[/color] hadd Game $+($nick,.kicks) $calc($hget(Game,$+($nick,.kicks)) + 1) [color:green]; If the number of kicks is divisible by 5, ban and kick the person for 5 minutes.[/color] if ($calc($hget(Game,$+($nick,.kicks)) % 5) == 0) { if ($me isop $chan) { ban -ku300 $chan $nick You have lost the 50/50 and suffer a 5 minute ban. } else { msg $chan You have lost the 50/50 and would have suffered a 5 minute ban if I was an op. } } [color:green]; If the number of kicks isn't divisible by 5, just kick the person.[/color] elseif ($me isop $chan) { kick $chan $nick You lost the 50/50. } else { msg $chan You lost the 50/50 and would have been kicked if I was an op. } } [color:green]; If the random number is 2, give points.[/color] else { [color:green]; Add points to the hash table.[/color] hinc Game $+($nick,.points) msg $chan You have won the 50/50 and received 1 point for a total of $hget(Game,$+($nick,.points)) points. } } [color:green]; Competition section[/color] else { [color:red]if (%compdelay. $+ $nick != $null) { return } set -u5 %compdelay. $+ $nick 1[/color] if ($istok($hget(Game,Competition.nicks),$nick,32) { if ($gettok($hget(Game,$+(Competition.,$nick)),1,32) > 0) { if ($rand(1,2) == 1) { msg $chan $nick lost a life -- $gettok($hget(Game,$+(Competition.,$nick)),1,32) lives remaining. hadd Game $+(Competition.,$nick) $calc($gettok($hget(Game,$+(Competition.,$nick)),1,32) - 1) $gettok($hget(Game,$+(Competition.,$nick)),2,32) if ($gettok($hget(Game,$+(Competition.,$nick)),1,32) == 0) { msg $chan $nick has no more lives. hdec Game Competition.players } if ($hget(Game,Competition.players) == 0) { Complete5050Comp } } else { hadd Game $+(Competition.,$nick) $gettok($hget(Game,$+(Competition.,$nick)),1,32) $calc($gettok($hget(Game,$+(Competition.,$nick)),1,32) + 1) msg $chan $nick has won a point for a total of $gettok($hget(Game,$+(Competition.,$nick)),2,32) points. } [color:red]}[/color] else { .notice $nick You don't have any more lives. Wait until the competition finishes. } } else { .notice $nick You aren't in the competition. Try again after the competition is over. } } } [color:green]; Allow viewing scores with !won (to see your own) or !won nick (to see a nick's points).[/color] on *:text:!won*:[color:red]#yourchan[/color]: { if ($2 != $null) { if ($hget(Game,$+($2,.points)) != $null) { msg $chan $2 has won $hget(Game,$+($2,.points)) points in the 50/50. } else { msg $chan $2 has not won any points in the 50/50. } } else { if ($hget(Game,$+($nick,.points)) != $null) { msg $chan You have won $hget(Game,$+($nick,.points)) points in the 50/50. } else { msg $chan You have not won any points in the 50/50. } } } alias Complete5050Comp { var %winner.nick = None var %winner.points = 0 var %c = 1 var %i = $gettok($hget(Game,Competition.nicks),0,32) while (%c <= %i) { if ($gettok($hget(Game,$+(Competition.,$gettok($hget(Game,Competition.nicks),%c,32))),2,32) > %winner.points) { var %winner.points = $gettok($hget(Game,$+(Competition.,$gettok($hget(Game,Competition.nicks),%c,32))),2,32) var %winner.nick = $gettok($hget(Game,Competition.nicks),%c,32) } inc %c } msg $chan 50/50 Competition Ended. msg $chan 50/50 Competition Winner: %winner.nick with %winner.points points! if (%winner.nick != None) { hinc Game $+(%winner.nick,.points) 20 } unset %5050comp hdel -w Game Competition.* .timer5050comp off } alias 5050CompTimeOut { msg $chan Time's Up! Complete5050Comp }