RogueLike\@lab3: Scores of NetHack 3.2

#! /usr/local/bin/perl # -*- mode: Perl; -*- ($SEC, $MIN, $HOUR, $MDAY, $MON, $YEAR, $WDAY, $YDAY, $ISDST) = localtime(time); $YEAR += 1900; # Config ############################################# $COLOR1 = "lightgreen"; # 名前の色 $COLOR2 = "yellow"; # 順位の色 $RANKS = 50; # 何位まで出力するか $TEXT = "#FFFFFF"; $LINK = "#00EEEE"; $VLINK = "#00BBBB"; $BGCOLOR = "#000000"; ($PROGRAM = $0) =~ s@.*/@@; $VERSION = "1.3"; # Header ################################## print<RogueLike\@lab3: Scores of NetHack 3.2 $PROGRAM ver.$VERSION (by K)

- Scores of NetHack 3.2 -

Top $RANKS As of EofHeader printf "$YEAR / %d / $MDAY ( %02d:%02d )", $MON+1, $HOUR, $MIN; print " localtime
\n

\n"; print< No.PointsNameHpMax EofTableHead # Get ################################################ open(RANK, "/usr/local/pkgs/Games/nethack-3.2.2/lib/record"); $ALL = ""; $i = 0; while(){ $TEMP = $_; # &jcode'convert($TEMP,'euc'); $TEMP =~ /^[0-9\.]+\s(\d+)\s(\d)\s([-]?\d+)\s(\d+)\s([-]?\d+)\s([-]?\d+)\s\d\s\d+\s\d+\s(\d+)\s([A-Z])([MF])\s(.*),(.*)$/; if($i >= $RANKS){ # 出力終了 last; }else{ $i++; } $SCORE = $1; $PLACE = $2; $LEVEL = $3; $LMAX = $4; $HP = $5; $MAX = $6; $UID = $7; $CLASS = $8; $SEX = $9; $NAME = $10; $DIE = $11; # uid から login名の獲得 if( $USER[$UID] ne "" ){ $USERN = $USER[$UID]; }else{ open(U, "/usr/bin/ypmatch $UID passwd.byuid |"); @PASSWD = ; close(U); $PASSWD[0] =~ /^([^:]+):.*/; $USERN = $1; $USER[$UID] = $USERN; } if($HP <= 0){ $HP = "-"; } if($USERN ne ""){ $WAY = "" . $NAME . "-" . $CLASS . " "; }else{ $WAY = "" . $NAME . "-" . $CLASS . " "; } $ADD = ""; if($DIE =~ /ascended/){ # 昇天 $ADD .= "ascended to demigod"; if($SEX =~ /F/){ $ADD .= "dess"; } $ADD .= "-hood"; }else{ # 死 if($DIE =~ /killed/ || $DIE =~ /drowned/){ $ADD .= "died "; }elsif($DIE =~ /poisoned/){ $ADD .= "poisoned "; }elsif($DIE =~ /petrified/){ $ADD .= "turned to stone "; }elsif($DIE =~ /choked/){ $ADD .= "choked on "; if($SEX =~ /F/){ $ADD .= "her "; }else{ $ADD .= "his "; } $ADD .= "food "; } if($PLACE == 0){ $ADD .= "in The Dungeons of Doom "; }elsif($PLACE == 1){ $ADD .= "in Gehennom "; }elsif($PLACE == 2){ $ADD .= "in The Gnomish Mines "; }elsif($PLACE == 3){ $ADD .= "in The Quest "; }elsif($PLACE == 4){ $ADD .= "in The Fort Lordius "; }elsif($PLACE == 5){ $ADD .= "in The Vlad's Tower "; }elsif($PLACE == 6){ $ADD .= "in The Astral Plane "; } # 階「ーで」 if($LEVEL < 0){ $ADD .= "の精霊界にて"; if($LEVEL == -5){ $ADD .= "命"; }elsif($LEVEL == -4){ $ADD .= "水"; }elsif($LEVEL == -3){ $ADD .= "火"; }elsif($LEVEL == -2){ $ADD .= "風"; }elsif($LEVEL == -1){ $ADD .= "地"; } }else{ $ADD .= "on level " . $LEVEL; if($LEVEL != $LMAX){ $ADD .= " [max " . $LMAX . "]"; } $ADD .= ". "; } # 死に方 if($DIE =~ /quit/){ $ADD .= "escaped."; }else{ $DIE =~ /^\s*([a-z])(.*)$/; $ONE = $1 ; $ONE =~ tr/a-z/A-Z/; $DIE = $ONE . $2; $ADD .= $DIE; } } $WAY .= $ADD . "."; $LEN = length($WAY); if(length($WAY) > 30 && $WAY =~ /level/){ if($WAY =~ /\]/){ @WAY2 = split(/\]\./, $WAY); $WAY2[0] .= "]."; }else{ # @WAY2 = split(/([0-9]+\.)/, $WAY); $WAY =~ /(.* on level \d+\.)(.*)/; $WAY2[0] = $1; $WAY2[1] = $2; # $WAY2[0] .= $1; } print "$i"; print "$SCORE\n"; print "$WAY2[0]$HP[$MAX]\n"; print "$WAY2[1]\n"; }else{ print "$i"; print "$SCORE\n"; print "$WAY$HP[$MAX]\n"; } } close(RANK); # Table ############################################## print<

See the page of members-list

roguelike-admin@lab3.kuis.kyoto-u.ac.jp

EofPage