From d3ba85a8c314139b5ddb71befdac9fd9e95694fc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@dev-extend.eu>
Date: Sat, 31 Jul 2010 18:04:39 +0200
Subject: [PATCH] psu_game: Handle the list of universes properly.

---
 p/unicube.bin        | Bin 160 -> 0 bytes
 src/psu/psu_game.erl |  18 ++++++++++++++----
 2 files changed, 14 insertions(+), 4 deletions(-)
 delete mode 100644 p/unicube.bin

diff --git a/p/unicube.bin b/p/unicube.bin
deleted file mode 100644
index c0e187e25b3f589ad9c88ccdbf24bcdc9be6f739..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 160
zcmZXMyAD855JZnFe1}TSH{6IGjZ#7(Avf_TXni<CqG2Z4$IQ<9z$vIv<5-!9C^R`n
zX_kSFj$NvyXVDgs;@trbQ^*^1+t5DBuOz(0Jmz6Ca!P%vl%4hQiy*!k#!7Ml<Utcn

diff --git a/src/psu/psu_game.erl b/src/psu/psu_game.erl
index 2907220..520130a 100644
--- a/src/psu/psu_game.erl
+++ b/src/psu/psu_game.erl
@@ -1191,12 +1191,22 @@ send_021b() ->
 
 %% @doc Send the list of available universes.
 send_021e() ->
-	{ok, << File:1184/bits, _/bits >>} = file:read_file("p/unicube.bin"),
 	{ok, Count} = egs_user_model:count(),
 	[StrCount] = io_lib:format("~b", [Count]),
-	UCS2Count = << << X:8, 0:8 >> || X <- StrCount >>,
-	PaddingSize = (12 - byte_size(UCS2Count)) * 8,
-	send(<< 16#021e0300:32, 0:288, File/binary, UCS2Count/binary, 0:PaddingSize >>).
+	Unis = [{16#ffffffff, center, "Your Room", ""}, {1, justify, "Reload", "     "}, {2, justify, "EGS Test", StrCount}],
+	NbUnis = length(Unis),
+	Bin = send_021e_build(Unis, []),
+	send(<< 16#021e0300:32, 0:288, NbUnis:32/little-unsigned-integer, Bin/binary >>).
+
+send_021e_build([], Acc) ->
+	iolist_to_binary(lists:reverse(Acc));
+send_021e_build([{ID, Align, Name, Pop}|Tail], Acc) ->
+	UCS2Name = << << X:8, 0:8 >> || X <- Name >>,
+	UCS2Pop = << << X:8, 0:8 >> || X <- Pop >>,
+	NamePadding = 8 * (32 - byte_size(UCS2Name)),
+	PopPadding = 8 * (12 - byte_size(UCS2Pop)),
+	IntAlign = case Align of justify -> 643; center -> 0 end,
+	send_021e_build(Tail, [<< ID:32/little-unsigned-integer, 0:16, IntAlign:16/little-unsigned-integer, UCS2Name/binary, 0:NamePadding, UCS2Pop/binary, 0:PopPadding >>|Acc]).
 
 %% @doc Send the current universe name and number.
 %% @todo Currently only have universe number 2, named EGS Test.