-module(client). -export([start/2]). start(ServerName,Node) -> {ServerName,Node} ! {connect, self()}, receive {ok,ServerPid} -> connected(ServerPid) after 5000 -> io:format("Server busy or unavailable.~n",[]), exit(normal) end. connected(ServerPid) -> ServerPid ! {hello, self()}, receive {hello, ServerPid} -> sleep(2000), ServerPid ! {bye, self()}, receive {bye, ServerPid} -> exit(normal) end end. sleep(Time) -> receive after Time -> true end.