#
#	NetHack 3.2.2 のスコアファイルの
#	特定の uid の、ユーザー名を置換するスクリプト
#
#	uid とユーザー名は BEGIN の中の物を書き換えてね。
#

BEGIN {
	check = 0;
	
	check_uid[0]   = 127;
	replace_nam[0] = "G-HAL";
	replace_uid[0] = 127;
	
	check_uid[1]   = 42;
	replace_nam[1] = "G-HAL";
	replace_uid[1] = 127;
	
	check_uid[2]   = 10025;
	replace_nam[2] = "G-HAL";
	replace_uid[2] = 127;
	
	check_uid[3]   = 9001;
	replace_nam[3] = "G-HAL";
	replace_uid[3] = 127;
	
	check_uid[4]   = 100;
	replace_nam[4] = "lannet";
	replace_uid[4] = 100;
	
	check_uid[5]   = 149;
	replace_nam[5] = "壱丸零弐";
	replace_uid[5] = 149;
	
	check_uid[6]   = 0;
}

function comma(p) {
	tmp_len = jlength(p);
	for(tmp_i=0; tmp_i<tmp_len; tmp_i++){
		if( jsubstr(p,tmp_i,1) == "," ){
			return tmp_i;
		}
	}
	return 0;
}

/^3.2.2/ {
	check = 1;
	
	ver = $1;
	scr = $2;
	map = $3;
	lv  = $4;
	mlv = $5;
	hp  = $6;
	mhp = $7;
	flg = $8;
	dy1 = $9;
	dy2 = $10;
	uid = $11;
	chr = $12;
	
	str = $13;
	ptr = comma(str);
	if( ptr == 0 ){
		nam = "";
		msg = str;
	}else{
		nam = jsubstr(str,1,ptr-1);
		msg = jsubstr(str,ptr+1);
	}
}


/$/ {
	if( check == 1 ){
		for( i=0; ; i++){
			if( check_uid[i] == 0 )
				break;
			if( uid == check_uid[i] ){
				uid = replace_uid[i];
				nam = replace_nam[i];
			}
		}
		
		printf("%s %d %d %d %d %d %d %d %s %s %d %s %s,%s\n",\
			ver, scr, map, lv, mlv, hp, mhp, flg, \
			dy1, dy2, uid, chr, nam,msg);
	}
	check = 0;
	next
}


END {
}