on *:text:*Mastol:#סטלנים: { 
  if ($1 == !Mastol) {
    if (!$ismastol($nick)) {
      Mastol $nick 
      $+(timer,mastol,$nick) 1 $calc(60*60) demastol $nick 
      msg # $nick מסטול עכשיו
    }
    else {
      msg # אתה כבר מסטול
    }
  } 
  elseif ($1 == !DeMastol) { 
    if ($ismastol($nick)) {
      demastol $nick
      $+(timer,mastol,$nick) off
    }
    else {
      msg # $nick , אתה בכלל לא מסטול!
    }
  }
  elseif ($1 == !ListMastol) {
    msg # רשימת המסטולים:
    var %x 1
    while (%x <= $gettok(%Mastolim,0,32)) {
      msg # $gettok(%Mastolim,%x,32)
      inc %x
    }
  }
}
alias ismastol {
  if ($istok(%Mastolim,$nick,32)) { return $true }
  else { return $false }
}
alias Mastol {
  set %Mastolim $addtok(%Mastolim,$1,32)
}
alias DeMastol {
  set %Mastolim $remtok(%Mastolim,$1,32)
  msg #&#1505;&#1496;&#1500;&#1504;&#1497;&#1501; $1 &#1499;&#1489;&#1512; &#1500;&#1488; &#1502;&#1505;&#1496;&#1493;&#1500;
}