alias -l pwr2kck if $iif($pos(~&@%,$left($nick($1,$me).pnick,1),1),$v1,9) < $iif($pos(~&@%,$left($nick($1,$2).pnick,1),1),$v1,9) { return $true }
on $*:TEXT:/^(!BOMB.*|Red|Blue|Yellow|Green|Pink)$/iS:#:{
tokenize 32 $regml(1)
if !$timer(bomb) && $1 == !bomb {
if $2 == $me { .msg # Nice try $nick $+ , but I $iif($r(0,1),wasn't scripted,didn't fall off the script truck) yesterday! | halt }
set %bomb.chan #
set %bomb.time $r(15,40)
set %bomb.nick $iif($2,$2,$nick)
set %bomb.color $gettok(Red|Blue|Yellow|Green|Pink,$r(1,5),124)
if %bomb.nick !ison # { .msg # $2 is not on # $+ . | halt }
.msg # %bomb.nick has just had a bomb placed in front of them. They have %bomb.time seconds to defuse it! Colors are: Red, Blue, Yellow, Green, Pink.
.timerbomb 1 %bomb.time $!iif($pwr2kck(%bomb.chan,%bomb.nick),kick,msg) # %bomb.nick ~~~~BOOOOOOOM YOU DIED~~~~
}
elseif $timer(bomb) && $nick == %bomb.nick {
if $1 == %bomb.color {
.msg # Congrats %bomb.nick $+ , you defused the bomb!
.timerbomb off
}
else { .msg # Too bad... | .timerbomb -e }
}
}
____________________________________________________________________________________________________________________________________________________________