yet another over 9000 script

By tra_orex on Aug 13, 2009

lol, just decided to put a quick spin on viper's script....

on *:text:*:#: { 
  if (!%vcr) {
    var %a 1
    while (%a <= $numtok($1-,32)) { 
      if ($gettok($1-,%a,32) isnum) && ($gettok($1-,%a,32) > 9000) { msg $chan its... ITS... ITS OVER 9000!!!!!!! | set -eu180 %vcr 1 | halt }
      /inc %a 1
    }
  }
  halt 
}

Like Page Follow Author

Comments

gooshie - Dec 05, 2009

slacker thanks i was looking for that \d

on $*:text:/\b(\d+)\b/gS:#:{
  var %i 1
  while !%vcr && $regml(%i) {
    if $v1 > 9000 { msg # its... ITS... ITS OVER 9000!!!!!!! | inc -eu180 %vcr }
    inc %i
  }
}

I used the loop so it dont stop on first number in string.

Respond

slacker - Dec 05, 2009

on $*:text:/^(\d+)$/S:#:{ if (!%vcr && $regml(1) > 9000) { msg # its... ITS... ITS OVER 9000!!!!!!! | inc -eu180 %vcr } }

Respond

gooshie - Dec 05, 2009

on $*:text:/(\b[0-9]{4,999}\b)/gS:#:{
  var %i 1
  while !%vcr && $regml(%i) {
    if $v1 isnum 9001- { msg # its... ITS... ITS OVER 9000!!!!!!! | inc -eu180 %vcr }
    inc %i
  }
}

Respond

Korvin - Aug 13, 2009

i didnt see that second part of the if... its been a long day haha

Respond

tra_orex - Aug 13, 2009

a number over 9000 that isn't formatted and not appended to anything. ie, not 9,001 or 9001.

Respond

Korvin - Aug 13, 2009

originated from 4chan who got it from dbz. copycats.

does this seriously do that every time someone says a number?.....

Respond