#! /usr/local/bin/perl # -*- mode: Perl; -*- require 'jcode.pl'; ($SEC, $MIN, $HOUR, $MDAY, $MON, $YEAR, $WDAY, $YDAY, $ISDST) = localtime(time); $YEAR += 1900; $COLOR1 = "lightgreen"; # 名前の色 $COLOR2 = "yellow"; # 順位の色 $RANKS = 50; # 何位まで出力するか ($PROGRAM = $0) =~ s@.*/@@; $VERSION = "1.5"; # ################################## print< RogueLike\@lab3: Scores of jNetHack 1.0.5 $PROGRAM ver.$VERSION (by K)

- Scores of jNetHack 1.0.5 -

Top $RANKS
\n 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/jnethack-1.0.5/lib/record"); $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; 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/ || $DIE =~ /昇天した/){ # 昇天 $ADD .= "昇天し"; if($SEX =~ /F/){ $ADD .= "女"; } # $ADD .= "神となった．"; $ADD .= "神となった"; }else{ # 死 # 場所「ーの」 if($PLACE == 0){ $ADD .= "運命の大迷宮の"; }elsif($PLACE == 1){ $ADD .= "ゲヘナの"; }elsif($PLACE == 2){ $ADD .= "ノームの鉱山の"; }elsif($PLACE == 3){ $ADD .= "クエストの"; }elsif($PLACE == 4){ $ADD .= "フォートローディオスの"; }elsif($PLACE == 5){ $ADD .= "ヴラド候の塔の"; }elsif($PLACE == 6){ $ADD .= "最終試練の"; } # 階「ーで」 if($LEVEL < 0){ if($LEVEL == -5){ $ADD .= "命"; }elsif($LEVEL == -4){ $ADD .= "水"; }elsif($LEVEL == -3){ $ADD .= "火"; }elsif($LEVEL == -2){ $ADD .= "風"; }elsif($LEVEL == -1){ $ADD .= "地"; } $ADD .= "の精霊界にて"; }else{ $ADD .= "地下" . $LEVEL . "階にて"; if($LEVEL != $LMAX){ $ADD .= "[最大地下" . $LMAX . "階]"; } } # 死に方 if($DIE =~ /quit/){ $ADD .= "抜けた"; }else{ $ADD .= $DIE; } } $WAY .= $ADD . "．"; $LEN = length($WAY); if(length($WAY) > 80 && $WAY =~ /にて/){ if($WAY =~ /\]/){ @WAY2 = split(/\]/, $WAY); $WAY2[0] .= "]"; }else{ @WAY2 = split(/にて/, $WAY); $WAY2[0] .= "にて"; } 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 to know who's who.
roguelike-admin@lab3.kuis.kyoto-u.ac.jp
EofPage