Etwas

menu nicklist {
  $iif($snick($active,0) > 0,Kekse klauen):/keks klau
  $iif($snick($active,0) > 0,Kekse geben):/keks gib
}

alias keks {
  var %keks = $rand(2,20)
  if ($1 == gib) {
    if (%keks > %keksdose) %keks = %keksdose
    describe $chan gibt $snick($active,1) %keks Kekse
    %keks = - $+ %keks
  }
  elseif ($1 == klau) describe $active klaut $snick($active,1) %keks Kekse
  set %keksdose $calc(%keksdose + %keks)
  describe $active hat %keksdose Kekse in seiner Keksdose :D
}

menu nicklist {

  Kekse Essen { essen }
}
alias /essen {
  set %keks $?="Wieviele Kekse willst du essen?:"
  set %keksdose $calc(%keksdose - %keks) 
  describe # isst %keks seiner Kekse auf *mampf*
  describe # hat %keksdose Kekse in seiner Keksdose :D
}


on *:action:gibt*Kekse:#: {
  if ( $me isin $2- ) {
    set %keksdose $calc(%keksdose + $3-)
    describe $chan hat nun %keksdose Kekse in seiner Keksdose =)
  }
} 
on *:action:klaut*Kekse:#: {
  if ( $me isin $2- ) {
    set %keksdose $calc(%keksdose - $3-)
  describe $chan hat nurnoch %keksdose Kekse in seiner Keksdose ;_;    }
} 
}