\n"; ################### # show the mobiles ################### $mob = $aym->mobiles_available($loc); $mobcount = $#{@$mob}+1; if ($mobcount) { $out .= $db->loc('ADJ_HERE').' '; $out .= $db->loc( ($mobcount == 1 and @{$mob->[0]}[4] == 1) ? 'PREP_IS_SG' : 'PREP_IS_PL' ); $out .= ($mobcount > 1) ? ":\n
" : ' '; foreach $i (0..$mobcount-1) { my ($oid,$otype,$oown,$oado,$ocnt,$ostat,$omove) = @{$mob->[$i]}; # check for MOVE_WITH next if $omove; $out .= $aym->mobile_to_html( $loc,$own,$occ,$temple,$ter, @{$mob->[$i]}); my $transports = 0; foreach $j (0..$mobcount-1) { ($xid,$xtype,$xown,$xado,$xcnt,$xstat,$xmove) = @{$mob->[$j]}; if ($xmove == $oid) { if (!$transports) { $out .= ', '.$db->loc('MSG_TRANSPORTS').":
"; } } # end foreach $mobcount } ################################## # general commands for this field: ################################## if ($aym->is_earthling($user)) { $out .= "\n
". $db->loc('CMD_DIE_ORDER').''; } if ($aym->is_god($user)) { if ($aym->is_arrival($loc)) { $out .= "\n
". $db->loc('CMD_INCARNATE').''; } if($aym->is_coast($loc)){ $out .= "\n
". $db->loc('CMD_BUILD_ARK').''; if($ter ne 'CITY'){ $out .= "\n
". $db->loc('CMD_FLOOD').''; } } $out .= "\n
". $db->loc('CMD_PLAGUE').''; $out .= "\n
".$db->loc('CMD_CH_LUCK').''; } ############################# # show events for this field ############################# $events = $aym->field_events($loc); #use Data::Dumper; #print OUT Dumper $events; $out .= "\n
".$db->loc('PLAYER_EVENTS')."
\n" if %$events; for my $ev ( keys %$events) { $out .= $aym->show_event($ev, 0) .'
'; } ############################ # show unavailable units ############################ # mobile info: #$mob = $aym->mobiles_available($loc,-1); #$mobcount = $#{@$mob}+1; #if ($mobcount) { # $out .= '
'; # $out .= ' '.$db->loc('UNAVAILABLE_UNITS').":
"; # foreach $i (0..$mobcount-1) { # ($oid,$otype,$oown,$oado,$ocnt,$ostat) = @{$mob->[$i]}; # $out .= $ocnt.' '; # if ($oown == $user) { # $out .= $db->loc('PREP_OWN_PL').' '.$aym->mobile_string($otype,2); # if ($otype eq 'PRIEST' or $otype eq 'PROPHET') { # $out .= $db->loc('ADJ_ADORING').' '.$aym->charname($oado); # } elsif ($otype eq 'HERO') { # $out .= $db->loc('ADJ_ADORING'); # $out .= $aym->charname($oado).''; # } elsif ($otype eq 'AVATAR') { # $out .= $aym->mobile_string($ostat,1); # } # } else { # $out .= $aym->mobile_string($otype, $ocnt); # if ($otype ne 'ARK') { # $out .= ' '.$db->loc('PREP_OWN_SG').' '; # $out .= $db->loc('ART_DAT_PL').' ' if $aym->gender($oown) eq 'PLURAL'; # $out .= $aym->charname($oown); # } # if ($otype eq 'PRIEST' or $otype eq 'PROPHET'or $otype eq 'HERO') { # $out .= $db->loc('ADJ_ADORING').' '; # if ($oado == $user) { # $out .= $db->loc( ($aym->gender($user) eq 'PLURAL') ? # 'PPRO_DAT3_PL' : 'PPRO_DAT3_SG'); # } else { # $out .= $aym->charname($oado); # } # } # } # $out .= ($i < $mobcount-1) ? ',' : '.'; # $out .= "\n
"; # } # end foreach $mobcount #} print OUT $out; } # unless sight -] [$ else $] To view an Aymargeddon field, you must first login, because we need to know which game to display and for whom. [$ endif $]