Модератор: 4epT
The whole protocol is based on a message format, as described here: http://openkore.sourceforge.net/srcdoc/ ... sages.html
Note that we only use key-value pairs messages. Array messages are unused (they turned out to be useless) and I'll probably remove support for them in the future.
The bus is managed by a bus server (src/Bus/bus-server.pl).
- When a client connects to the bus server, the bus server sends a HELLO message to the client, which contains (among other things) the client ID that the bus server has assigned to this client. Each client on the bus is uniquely identified by an ID. (src/Bus/Sever/MainServer.pm, onClientNew).
- The client responds with a HELLO message (src/Bus/Client.pm, HANDSHAKE status).
The client is then logged in and connected to the bus.
- When you send a message to the bus server, that message is broadcasted to all other clients on the bus.
- It's also possible to send private messages, messages which are only delivered to one specific client. To do that, set your message's TO argument to the client ID of the target client.
- There is support for queries: messages for which a reply is expected. A query message contains a SEQ argument, which is a unique ID (generated by the client which sent the query) which uniquely identifies a query. If another client replies to that query then he must set its reply message's SEQ to the same value is the query message's SEQ, and set IRY ("Is Reply") to 1.
- You should not use message identifiers or argument names which are all uppercase. All uppercase names are reserved for the protocol.
- Bus dialogs are still very much work in progress. I don't know when I'll have the time to finish them, it may even take a year depending on my free time and motivation.
Подозреваю что это для Широковещательных сообщений...Код: Выделить всё
# Send the query.
# my $query = $Bus_Client->query("hello", { name => "Joe" },
# { timeout => 10, collectAll => 1 });
#
# # Wait until the query is done or has timed out.
# while ($query->getState() == Bus::Query::WAITING) {
# sleep 1;
# }
#
# if ($query->getState() == Bus::Query::DONE) {
# while (my ($messageID, $args) = $query->getReply()) {
# print "We have received a reply!\n";
# # Do something with $messageID and $args...
# }
#
# } else { # The stat is Bus::Query::TIMEOUT
# print "10 seconds passed and we still don't have a reply!\n";
# }
Сбацаем? 
. В боте есть файлик src\Bus\bus-server.pl - это выделенный Bus сервер...piroJOKE писал(а):Кстати о птичках. А этот самый БУС, как его через инет замутить?... Мля, я ваще про него ничего не знаю.
макросы на реакцию не беда, обрабатывать констольку мы же умеемpJ, bus конечно хорошо, но вместе с ним придется осваивать гору новых методов общения между ботами (например макрос реакции бота на bus-мессагу или макрос отправки этой массааги, кто-нить уже знает как это сделать? дайте мануал). Multiple callSign попроще будет. Картина : бегает пати ботов, прист сидит в 1 точке, бот решил отдохнуть и спрашивает у приста where в пати чат. Прист вежливо отвечает в пати чат"%$cmd_user move %$x %$y" и бот радостно бежит к присту (каллсигн бота = его ник). Но в таком случая мы теряем главную фишку каллсигна - массовость, т.е. нельзя будет одновременно приказать всем ботам в пати сменить локмап - для этого нужен второй callSign
Код: Выделить всё
пойдем на = move
/марк/ = iz_dun03
/поринг/ = prt_fild08