highscore.erl

来自「OTP是开放电信平台的简称」· ERL 代码 · 共 93 行

%% ``The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved via the world wide web at http://www.erlang.org/.
%% 
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%% 
%% The Initial Developer of the Original Code is Ericsson Utvecklings AB.
%% Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings
%% AB. All Rights Reserved.''
%% 
%%     $Id$
%%
-module(highscore).

-export([run/2]).

run(NScore, File) ->
    Scores = read_scores(File),
    case find_pos(NScore, 1, Scores) of
	false ->
	    display(Scores);
	Pos ->
	    NewScores = new_highscore(Scores, Pos, NScore),
	    write_scores(NewScores,File),
	    display(NewScores)
    end.


new_highscore(Scores, Pos, NScore) ->
    Txt = io_lib:format("You entered position ~w", [Pos]),
    W = gs:create(window, gs:start(), [{width, 200},{height, 110},{map,true},
				      {title, "New Highscore!!!"}]),
    gs:create(label, W, [{label, {text, Txt}}, {x, 0}, {y,0}, {align, center},
			 {width, 190},{height, 30}]),
    Entry = gs:create(entry, W, [{x, 0}, {y, 40}, {height, 30}, {width, 200}]),
    Ok = gs:create(button, W, [{label, {text, "Ok"}}, {x, 40}, {y, 75}]),
    receive
	{gs, Ok, click, _,_} -> 
	    T = gs:read(Entry, text),
	    gs:destroy(W),
	    lists:sublist(lists:reverse(
                 lists:keysort(1, [{NScore, T} | Scores])), 1, 10)
    end.



read_scores(File) ->
    case file:read_file(File) of
	{ok, Bin} -> binary_to_term(Bin);
	{error, _Reason} ->
	    mk_empty_high(10)
    end.

mk_empty_high(0) -> [];
mk_empty_high(N) -> [{N,"Erlang"}|mk_empty_high(N-1)].

find_pos(_NScore, _N, []) -> false;
find_pos(NScore, N, [{Score, _Name} | Scores]) when Score > NScore ->
    find_pos(NScore, N+1, Scores);
find_pos(_NScore, N, _) -> N.

write_scores(Scores,File) ->
    file:write_file(File, term_to_binary(Scores)).

display(Scores) ->
    Win = gs:window(gs:start(), [{width, 300},{height, 250},{map,true},
				 {title, "Highscores"}]),
    {W,H} = gs:read(Win,{font_wh,{{screen,12},"aaaaaaa"}}),
    G = gs:grid(Win,[{rows,{1,11}},{columnwidths,[W,4*W]},{hscroll,false},
		     {width, 300},{height, 220},{vscroll,false},
		     {cellheight,H+2},{font,{screen,12}}]),
    insert_scores(G,2,Scores),
    Ok = gs:button(Win, [{label, {text, "OK"}}, {x, 100}, {y, 220}]),
    receive
	{gs, Ok, click, _,_} -> gs:destroy(Win),
				ok
    end.

insert_scores(Grid,_N,[]) ->
    gs:create(gridline,Grid,[{row,1},{font,{screen,bold,12}},
			     {text,{1,"SCORE"}},{text,{2,"NAME"}}]);

insert_scores(Grid,Row,[{Score,Name}|Ss]) ->
    gs:create(gridline,Grid,[{row,Row},{text,{1,io_lib:format("~w",[Score])}},
			    {text,{2,Name}}]),
    insert_scores(Grid,Row+1,Ss).