From f4e8300fb1b0f3a90f991ec6c806397b8ca5916a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@dev-extend.eu>
Date: Thu, 1 Jul 2010 22:47:02 +0200
Subject: [PATCH] game: Initial EXP support.

---
 src/egs_game.erl | 34 +++++++++++++++++++++++++++++++---
 1 file changed, 31 insertions(+), 3 deletions(-)

diff --git a/src/egs_game.erl b/src/egs_game.erl
index be5d496..4477540 100644
--- a/src/egs_game.erl
+++ b/src/egs_game.erl
@@ -925,6 +925,8 @@ handle(Command, _) ->
 
 %% @doc Handle all hits received.
 %% @todo Finish the work on it.
+%% @todo Type EXP.
+%% @todo Boxes give EXP too but it doesn't show up on the screen.
 
 %~ log_hits(Data) ->
 	%~ <<	A:32/unsigned-integer, B:32/unsigned-integer, C:32/unsigned-integer, D:32/unsigned-integer,
@@ -938,15 +940,33 @@ handle_hits(<< >>) ->
 	ok;
 handle_hits(Data) ->
 	%~ log_hits(GID, Data),
-	<< A:224/bits, B:128/bits, _:288/bits, Rest/bits >> = Data,
+	% parse
+	<< A:224/bits, B:128/bits, _:288, Rest/bits >> = Data,
+	<< _:128, TargetID:32/little-unsigned-integer, _/bits >> = A,
+	% retrieve
 	GID = get(gid),
-	PlayerHP = 4401,
+	User = egs_db:users_select(GID),
+	Character = User#users.character,
+	Level = Character#characters.mainlevel,
+	% inflict damage
+	PlayerHP = Character#characters.currenthp,
 	TargetHP = 0,
-	Damage = 58008,
+	Damage = 1,
 	send(<< 16#0e070300:32, 0:160, 16#00011300:32, GID:32/little-unsigned-integer, 0:64,
 		1:32/little-unsigned-integer, 16#01050000:32, Damage:32/little-unsigned-integer,
 		A/binary, 0:64, PlayerHP:32/little-unsigned-integer, 0:32, 16#01000200:32,
 		0:32, TargetHP:32, 0:32, B/binary, 16#04320000:32, 16#80000000:32, 16#26030000:32, 16#89068d00:32, 16#0c1c0105:32 >>),
+	% enemy is dead, give exp
+	LV = 1,
+	EXP = Level#level.exp + 1,
+	Money = 1000,
+	send_0115(GID, TargetID, LV, EXP, Money),
+	% save
+	NewLevel = #level{number=LV, exp=EXP},
+	NewCharacter = Character#characters{mainlevel=NewLevel},
+	NewUser = User#users{character=NewCharacter},
+	egs_db:users_insert(NewUser),
+	% next
 	handle_hits(Rest).
 
 %% @doc Build the packet header.
@@ -975,6 +995,14 @@ send_0113() ->
 	GID = get(gid),
 	send(<< 16#01130300:32, 0:64, GID:32/little-unsigned-integer, 0:64, 16#00011300:32, GID:32/little-unsigned-integer, 0:64, GID:32/little-unsigned-integer, File/binary >>).
 
+%% @doc Update the character's EXP.
+
+send_0115(GID, TargetID, LV, EXP, Money) ->
+	send(<< 16#01150300:32, 0:64, GID:32/little-unsigned-integer, 0:64, 16#00011300:32, GID:32/little-unsigned-integer, 0:64, GID:32/little-unsigned-integer,
+		0:32, TargetID:32/little-unsigned-integer, LV:32/little-unsigned-integer, 0:32, 0:32, EXP:32/little-unsigned-integer, 0:32, Money:32/little-unsigned-integer, 16#f5470500:32, 0:96, 0:64,
+		16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32,
+		16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32, 16#01000000:32 >>).
+
 %% @doc Send the zone initialization notification.
 
 send_0200(ZoneType) ->