;;; wasp-user-talents --- skills and perks and talents -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:

(require 'wasp-utils)
(require 'wasp-db)

;; talent:name -> hashmap from tids to names
;; talent:desc -> hashmap from tids to description
;; talent:icon -> hashmap from tids to image bytes
(defun w/talent-create (tid name desc iconpath)
  "Create a new talent TID called NAME with DESC and ICONPATH."
  (let ((icon (or (f-read-bytes iconpath) (error "Failed to open icon path: %s" iconpath))))
    (progn
      (w/db-hset "talent:name" tid name)
      (w/db-hset "talent:desc" tid desc)
      (w/db-hset "talent:icon" tid icon))))

;; (w/talent-create "bigjoel" "Bigger Joels" "Increase the size of Joels posted." (w/asset "talents/bigjoel.png"))
;; (w/talent-create "shaderopacity" "Opacity" "Make shaders more opaque." (w/asset "talents/shaderopacity.png"))
;; (w/talent-create "bonuscard" "Bonus Cards" "Gain a chance to draw extra cards." (w/asset "talents/bonuscard.png"))
;; (w/talent-create "rarityboost" "Rarity Boost" "Cards you draw have higher rarity." (w/asset "talents/rarityboost.png"))
;; (w/talent-create "beastmaster" "Beastmaster" "Friend likes you more." (w/asset "talents/beastmaster.png"))
;; (w/talent-create "multicast" "Multi-cast" "Hexes have a chance to cast on an additional target." (w/asset "talents/multicast.png"))

(provide 'wasp-user-talents)
;;; wasp-user-talents.el ends here