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]).
connect() ->
%{ok,Socket} = gen_tcp:connect("ggs.jeena.net", 9000,[{active, false}]),
{ok,Socket} = gen_tcp:connect("localhost", 9000,[{active, false}]),
Socket.

42
games/pong_bot_e/pong_bot.erl
View file

@ -68,14 +68,15 @@ ggsNetworkReceivedCommandWithArgs(Command, Args, Ref) ->
end.
welcome(Who_am_I, Ref) ->
case Who_am_I of
"1" ->
Me = gen_server:call({global, {pong_bot, Ref}}, player1),
gen_server:cast({global, {pong_bot, Ref}}, {me, Me});
"2" ->
Me = gen_server:call({global, {pong_bot, Ref}}, player2),
gen_server:cast({global, {pong_bot, Ref}}, {me, Me})
end.
gen_server:cast({global, {pong_bot, Ref}}, {me, Who_am_I}).
%case Who_am_I of
% "1" ->
% Me = gen_server:call({global, {pong_bot, Ref}}, player1),
% gen_server:cast({global, {pong_bot, Ref}}, {me, Me});
% "2" ->
% Me = gen_server:call({global, {pong_bot, Ref}}, player2),
% 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),
{_, BallY} = Ball,
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,
{_, MeY} = PlayerMe,
case BallY < (MeY - 5) of
case ((BallY - MeY) < 0) of
true ->
ggs_network:send_command("up", "", Ref);
_ -> case BallY > ( MeY - 5) of
ggs_network:send_command("up", "", Ref),
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 ->
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
end
end
@ -126,10 +140,12 @@ ball(Pos_s, Ref) ->
player1_y(YStr, Ref) ->
Y = list_to_integer(YStr),
io:format("Player1_y~n~n~n~n"),
gen_server:cast({global, {pong_bot, Ref}}, {player1_y, Y}).
player2_y(YStr, Ref) ->
Y = list_to_integer(YStr),
io:format("Player2_y~n~n~n~n"),
gen_server:cast({global, {pong_bot, Ref}}, {player2_y, Y}).
game(WaitOrStart, Ref) ->