All pastes #393261 Raw Edit

Something

public text v1 · immutable
·published 2007-03-13 12:20 UTC
rendered paste body
alias -l slot_isgood {
  tokenize 32 $remove($strip($1-),[,])
  var %combo = $1-3 , %good = 7 * *,7 7 *,7 7 7,~ ~ ~,BAR BAR BAR,$ $ $ $+ ,X X X,! ! !,& & &
  if ($istok(%good,%combo,44)) { return $true }
}
on *:text:*:#scrable-game:{

  if ($nick == Harrythebot && $regex($1-,/^\[ . \]\[ . \]\[ . \]/S)) {
    if ($slot_isgood($1-)) { inc %slots.good }
    inc %slots.total
  }
}