From 33cc15c4349d1027e2b26e050ae2977e8ba38718 Mon Sep 17 00:00:00 2001 From: Protocol Date: Wed, 7 Nov 2012 22:16:38 +0000 Subject: [PATCH] Update MediaWiki page '135 Protocol' --- 135-Protocol.mediawiki | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/135-Protocol.mediawiki b/135-Protocol.mediawiki index d617485..dba2b69 100644 --- a/135-Protocol.mediawiki +++ b/135-Protocol.mediawiki @@ -62,12 +62,27 @@ This page refers to the RSC #135 client revision. (.put-int64 l5) (.end-packet)))) +;; Opcode: 26 +(defn add-friend [stream name] ; name is string represenation of username + (doto stream + (.begin-packet 26) + (.put-int64 (Util/long-for-name name) + (.end-packet))) + ;; Opcode: 27 -(defn remove-from-friends-list [stream name] ; name is long represenation of username (i.e Util/long-for-name username) +(defn remove-friend [stream name] ; name is long represenation of username (i.e Util/long-for-name username) (doto stream (.begin-packet 27) (.put-int64 name) (.end-packet))) + +;; Opcode: 29 +(defn add-ignore [stream username] ; username is string representation of username + (let [name (Util/name-for-long username)] + (doto stream + (.begin-packet 29) + (.put-int64 name) + (.end-packet))))