Item que usa magia

Seguinte,queria que alguém me desse uma base de como fazer um item que lance uma magia(só que o player não tem a magia).Por exemplo,um pergaminho que lance uma magia de fogo,e que é consumido depois de usado.Minha engine já tem sistema de ScriptedItem,queria só uma noção de como montar o código.

Usar a Sub CastSpell não seria efetivo,visto que ela usa como argumento,o slot em que a magia está,logo o player precisaria ter a magia para usá-la.Pra corrigir isso,talvez seria possível fazer com que o player aprendesse a magia,usasse e depois esquecesse dela.Esse é só um modo,se alguém puder me ajudar a fazer ou bolar um melhor,fico grato.

Não estou com o código aqui mas visto que voce conhece um pouco de programação vai saber o que fazer, acho que é mais ou menos assim:
Abre um script pro item e nele adiciona:

Código:

Dim i as long
'Isso adiciona a magia ao player
i = FindOpenSpellSlot(Index)
Player(index).Spell(i) = Numerodamagia
'Isso conjura (Não sei exatamente como funciona essa sub mas você sabe usar ela pelo visto)
Call CastSpell(Index, i)
'Esquece a magia
Player(index).Spell(i) = 0

Valeu boasfesta ,ainda não tá usando a magia,mas me deu a base que eu precisava.Vou usar um "For" pra achar o slot,e aprender e esquecer com esse código que tu me mandou.