Nice script Henco, I'm not sure if it is the script, but the nicks aren't that random

thanks so much!

I've edited it. The script will now exclude regular (mode-less) users.

thank you!:), and I know this is a lot to ask, but is there anyway to toggle if unvoiced people can or can't be chosen, if not, its great anyway, thank you!

Jethro, can you do the script so only ops can use it and it just says The Winner Is: (nick) leaving out the prize details, thanks :)

on *:text:$($iif(!winner = $strip($1),$1)):#:{
  if ((!%f) && ($nick isop #)) {
    inc -u2 %f
    :r
    var %x 1
    while $nick(#,$r(%x,$nick(#,0,a,r))) {
      if $v1 = $me { goto r }
      else {
        tokenize 32 $v1
        scon -r .msg $!chan Congratulations, the winner is $* $!+ !
      }
      inc %x
    }
  }
}

Syntax: !winner

Jethro, can you do the script so only ops can use it and it just says The Winner Is: (nick) leaving out the prize details, thanks :)

Henco Said:

It really doesn't matter tbh >.>

As long as the script works, it is fine how it is initially written.

well it does matter tbh why else post it here.

why keep going with bad scripting habits.
why not learn from peoples comments like Jethro_'s

It really doesn't matter tbh >.>

As long as the script works, it is fine how it is initially written. Any real bugs I welcome your comments on.

Jethro_ Said:

For those who don't have a clue about regex, they wind up seeing them as a "load of craps."

now that cracked me up.

edgy Said:

Yeah, that's horrible to read code. We just use the stuff we were taught.

well theres ur chance to learn something new.

nice version Jethro_ - thanks for the info, I may not be that experienced, but am always willing to learn :)

I don't know why you see them as symbols, but the point is, it works. Though I understand why you said that. I've seen and heard people say the same thing when they don't understand something, such as regular expressions for instance, which use achors, octal numbers, etc... The scripting language that can only be interpreted by a regex processor. For those who don't have a clue about regex, they wind up seeing them as a "load of craps."

It's just loads of symbols...

"Horrible" is such a rhetorical word per se. If you take out the pipes, you'll see the code is not "horrible" to read. That is, if you understand how each line, identifier and operator works.

Yeah, that's horrible to read code. We just use the stuff we were taught.

You only need one text event, and here is my take on your script:

on $*:text:/^!((cl)?prize|winner)/iS:#: {
  if (!%f) { set -u3 %f $true | goto $iif($replace($regml(1),winner,w,prize,p,clprize,clp),$ifmatch)
    :w | var %x = 1 | while ($nick(#,$r(%x,$nick(#,0)))) { if ($ifmatch = $me) { goto r }
      else { set -e %a $ifmatch | tokenize 32 %a | .msg # Congratulations, the winner is $str($*,1) , $&
      and you win the prize: $iif($($+(%,prize.,$network,.,#),2),$ifmatch,nothing) } | inc %x | halt } 
    :p | if ($nick isop #) { set $+(%,prize.,$network,.,#) $$2- | .msg # New prize set for $+(",$2,") | halt }
    :clp | if ($nick isop #) { unset $+(%,prize.,$network,.,#) | .msg # Prize Cleared! | halt }
    :r | .msg # Congratulations, the winner is %a , and you win the prize: $iif($($+(%,prize.,$network,.,#),2),$ifmatch,nothing) | halt
  }
}

A trigger flood control is needed in case people tamper with this script to flood out the client running the code. (can only be triggered every 3 seconds)

This works very well, it's on [^_^] in my channel!