jeena/GGS
Archived
1
0
Fork 0
Code Issues Pull requests Projects Packages Wiki Activity Actions

players are actually doing something

Browse source
This commit is contained in:
Kallfaktorn 2011-04-26 16:13:56 +02:00
parent 492ec949a3
commit f8b383232b
2 changed files with 30 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

1
games/pong_bot_e/ggs_network.erl
View file

@ -3,6 +3,7 @@
-export([read/2, send_command/3]). -export([read/2, send_command/3]).
connect() -> connect() ->
%{ok,Socket} = gen_tcp:connect("ggs.jeena.net", 9000,[{active, false}]),
{ok,Socket} = gen_tcp:connect("localhost", 9000,[{active, false}]), {ok,Socket} = gen_tcp:connect("localhost", 9000,[{active, false}]),
Socket. Socket.

42
games/pong_bot_e/pong_bot.erl
View file

@ -68,14 +68,15 @@ ggsNetworkReceivedCommandWithArgs(Command, Args, Ref) ->
end. end.
welcome(Who_am_I, Ref) -> welcome(Who_am_I, Ref) ->
case Who_am_I of gen_server:cast({global, {pong_bot, Ref}}, {me, Who_am_I}).
"1" -> %case Who_am_I of
Me = gen_server:call({global, {pong_bot, Ref}}, player1), % "1" ->
gen_server:cast({global, {pong_bot, Ref}}, {me, Me}); % Me = gen_server:call({global, {pong_bot, Ref}}, player1),
"2" -> % gen_server:cast({global, {pong_bot, Ref}}, {me, Me});
Me = gen_server:call({global, {pong_bot, Ref}}, player2), % "2" ->
gen_server:cast({global, {pong_bot, Ref}}, {me, Me}) % Me = gen_server:call({global, {pong_bot, Ref}}, player2),
end. % gen_server:cast({global, {pong_bot, Ref}}, {me, Me})
%end.
@ -101,14 +102,27 @@ gameTick(Ref) ->
Ball = gen_server:call({global, {pong_bot, Ref}}, ball), Ball = gen_server:call({global, {pong_bot, Ref}}, ball),
{_, BallY} = Ball, {_, BallY} = Ball,
Me = gen_server:call({global, {pong_bot, Ref}}, me), Me = gen_server:call({global, {pong_bot, Ref}}, me),
{_, MeY} = Me, case Me of
"1" ->
PlayerMe = gen_server:call({global, {pong_bot, Ref}}, player1);
"2" ->
PlayerMe = gen_server:call({global, {pong_bot, Ref}}, player2)
end,
case BallY < (MeY - 5) of {_, MeY} = PlayerMe,
case ((BallY - MeY) < 0) of
true -> true ->
ggs_network:send_command("up", "", Ref); ggs_network:send_command("up", "", Ref),
_ -> case BallY > ( MeY - 5) of io:format("Player down sent to server~n"),
io:format("Ball: ~B~n", [BallY]),
io:format("Player: ~B~n", [MeY]);
_ -> case ((BallY - MeY) > 0) of
true -> true ->
ggs_network:send_command("down", "", Ref); ggs_network:send_command("down", "", Ref),
io:format("Player up sent to server~n"),
io:format("Ball: ~B~n", [BallY]),
io:format("Player: ~B~n", [MeY]);
_ -> ok _ -> ok
end end
end end
@ -126,10 +140,12 @@ ball(Pos_s, Ref) ->
player1_y(YStr, Ref) -> player1_y(YStr, Ref) ->
Y = list_to_integer(YStr), Y = list_to_integer(YStr),
io:format("Player1_y~n~n~n~n"),
gen_server:cast({global, {pong_bot, Ref}}, {player1_y, Y}). gen_server:cast({global, {pong_bot, Ref}}, {player1_y, Y}).
player2_y(YStr, Ref) -> player2_y(YStr, Ref) ->
Y = list_to_integer(YStr), Y = list_to_integer(YStr),
io:format("Player2_y~n~n~n~n"),
gen_server:cast({global, {pong_bot, Ref}}, {player2_y, Y}). gen_server:cast({global, {pong_bot, Ref}}, {player2_y, Y}).
game(WaitOrStart, Ref) -> game(WaitOrStart, Ref) ->