; l2j/gameserver/serverpackets/MagicSkillUse.java
(module system racket/base
	(require "../../packet.scm")
	(provide game-server-packet/skill-started)

	(define (game-server-packet/skill-started buffer)
		(let ((s (open-input-bytes buffer)))
			(list
				(cons 'id (read-byte s))
				(cons 'object-id (read-int32 #f s))
				(cons 'target-id (read-int32 #f s))
				(cons 'skill-id (read-int32 #f s))
				(cons 'level (read-int32 #f s))
				(cons 'cast-origin (read-int32 #f s)) ; TODO clarify
				(cons 'reuse-delay (/ (read-int32 #f s) 1000))
				(cons 'position (read-point s))
				(cons 'critical? (read-int32 #f s))
			)
		)
	)
)
