|
|
|
|
| Four Queens |
 |
|
|
|
|
|
Address:
202 Fremont Street.
Las Vegas 89101
(800) 634-6045
Rating:  
Price: 
Region:
Downtown |
| 
More Photos |
|
|
|
|
|
| Full Editorial Review |
The Four Queens started off in 1966 as a 120-room hotel and casino named for the owner's four daughters. Now it fills a city block with two 19-story towers. However, during the course of the casino's growth and modernization, it never lost that "Old Vegas" ambiance. Tiny white lights, mirrors, and chandeliers decorate the small but uncluttered lobby. Supposedly there is a New Orleans theme throughout the casino, but perhaps this is better recognized under close scrutiny. Regardless, the Four Queens is still elegantly decorated compared to the other establishments in downtown Vegas.
Generally, the clientele at the Four Queens tends to be over 50, and if not middle aged, than either financially restricted or a die-hard gambler. The modest atmosphere and lack of garish design inside, as well as the numerous craps, blackjack, and slot tournaments are what most likely attracts such austere patrons. Additionally, the casino runs a big poker tournament every January and September. If you like big slots, you'll love the Four Queens. They have the biggest slot machine in the world. It's over nine feet tall and almost 20 feet wide. Apparently bigger is better at the Four Queens because they also have the largest blackjack table in the world, seating 12 people.
The rooms at the Four Queens are nice and comfortable but, not unlike the casino floor, are decorated in a fairly generic style. Try to get a room in the North Tower, it might offer a better view of the Fremont Street Experience. The mini suites have a living room, dining area, dressing area, and double sink bathrooms.
|
|
|
Main
Four Queens Page
|
|
|
|
|
|
|
|
|
|
<%init>
my $expire_cache_now=0;
use Data::Dumper;
use Date::Manip;
my $citydata=$m->comp ("/lib/data/city_standard.mas",city_standard_id=>17848);
my $events_by_year_month= $m->comp ("/lib/data/event_functions.mas",
%ARGS,
### look_ahead_window =>'2 months',
having_performances =>1,
city_standard_id =>17848,
method =>'eventMonthListing',
#### category=>12, ###### loading hot picks only
look_ahead_window_full_month =>'2 months',
exclude_event_category=>'{19}', ######## exclude poker events #########
event_category=> '{3}', ######## loading headliners events #########
exclude_ongoing=>1, ######## exclude ongoing events #########
order_by =>'min_date,name',
# DBG =>1,
expire_cache_now=>$expire_cache_now,
);
## behold the power of perl...
sub by_date{
my $date1 = ParseDate($a->{date_to_compare});
my $date2 = ParseDate($b->{date_to_compare});
my $flag=Date_Cmp($date1,$date2);
return $flag
} ##end by_date
my $combined_events_by_month_year;
for my $year_month(@{$events_by_year_month}){
my @event_performances_combined;
for my $event(@{$year_month->{event_list} }){
## when a sporting event, map all data from structs(event and performance refs) onto one struct(a pseudo-event)
if ($event->{type_name}=~/sports/i){
my $performances= $m->comp ("/lib/data/event_functions.mas",
event_id=>$event->{id},
min_date=>$event->{min_date},
max_date=>$event->{max_date},
city_standard_id =>17848,
method =>'performanceListing',
);
for my $performance(@{$performances}){
my $struct;
$struct->{date_to_compare}=$performance->{fmt_date};
map {$struct->{$_}=$performance->{$_}} keys %{$performance};
map {$struct->{$_}=$event->{$_}} keys %{$event};
push @event_performances_combined,$struct;
} ##end for
} ##end if
else{
## non sporting event
my $performances= $m->comp ("/lib/data/event_functions.mas",
event_id=>$event->{id},
date=>$event->{min_date},
method =>'performanceListing',
city_standard_id =>17848,
limit =>1,
# DBG =>1,
);
$performances=$performances->[0];
$event->{date_to_compare}=$event->{min_date};
$event->{venue_id}=$performances->{venue_id};
$event->{venue_name}=$performances->{venue_name};
push @event_performances_combined,$event;
} ##end else
} ##end for
## at this point we have all the data, now lets sort it by either min_date or fmt_date
@event_performances_combined=sort by_date @event_performances_combined;
my $combined_year_month;
map {$combined_year_month->{$_}=$year_month->{$_} } keys %{$year_month};
$combined_year_month->{event_list}=\@event_performances_combined;
push @{$combined_events_by_month_year},$combined_year_month;
} ##end for
## ******************* rule of thumb for this page *******************
## use the documentations returned variables is this way:
## any sports will have the event AND performance variables available
## not sports will have only the event variables
|
|
|
