; l2j/gameserver/clientpackets/RequestSocialAction.java
(module system racket/base
	(require
		"../../../library/extension.scm"
		"../../packet.scm"
		"../gesture.scm"
	)
	(provide game-client-packet/social-action)

	(define (game-client-packet/social-action action)
		(let ((s (open-output-bytes)))
			(let ((id (cdr (assoc action (alist-flip actions)))))
				(begin
					(write-byte #x1b s)
					(write-int32 id #f s)
					(get-output-bytes s)
				)
			)
		)
	)
)
