(define-public (ai-get-material-integer-array mat color-type max)
(let ((pmat (unwrap-ai-material mat))
(pkey (string->pointer (car color-type)))
(type (cadr color-type))
(index (caddr color-type))
(define-public (ai-get-material-integer-array mat color-type max)
(let ((pmat (unwrap-ai-material mat))
(pkey (string->pointer (car color-type)))
(type (cadr color-type))
(index (caddr color-type))