moparisthebest/rswiki-book
1
0
Fork 0
mirror of https://github.com/moparisthebest/rswiki-book synced 2024-11-26 02:52:18 -05:00
Code Issues Releases Wiki Activity

Update MediaWiki page '135 Protocol'

Browse Source
This commit is contained in:
Protocol 2012-11-08 15:51:40 +00:00 committed by moparisthebest
parent 33cc15c434
commit 0445fb790e
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
135-Protocol.mediawiki
View File

@ -56,7 +56,7 @@ This page refers to the RSC #135 client revision.
;; Opcode: 10 ;; Opcode: 10
(defn report-abuse [stream username] (defn report-abuse [stream username]
(let [name (.substring username 12) (let [name (.substring username 12)
l5 (Util/long-for-name name)] l5 (Util/long-for-name name)]
(doto stream (doto stream
(.begin-packet 10) (.begin-packet 10)
(.put-int64 l5) (.put-int64 l5)
@ -76,6 +76,15 @@ This page refers to the RSC #135 client revision.
(.put-int64 name) (.put-int64 name)
(.end-packet))) (.end-packet)))
;; Opcode: 28
;; name is long representation of username, message is byte representation of message (.getBytes message), length is length of message (maximum length is 200)
(defn send-message [stream name message length]
(doto stream
(.begin-packet 28)
(.put-int64 username)
(.read-bytes message 0 length)
(.end-packet)))
;; Opcode: 29 ;; Opcode: 29
(defn add-ignore [stream username] ; username is string representation of username (defn add-ignore [stream username] ; username is string representation of username
(let [name (Util/name-for-long username)] (let [name (Util/name-for-long username)]