"Looktype" Doll

[arturhaddad]

I would like to make a Creature Doll, very similar to the Addon Doll but wich sets you a Creature Looktype.
For example:
you have the creature doll in your backpack, then
"!doll Dog"
Your turns into a dog
I think that the script must be kinda the addon doll:

function onSay(cid, words, param)
    local femaleOutfits = { ["citizen"]={136}, ["hunter"]={137}, ["mage"]={138}, ["knight"]={139}, ["noblewoman"]={140}, ["summoner"]={141}, ["warrior"]={142}, ["barbarian"]={147}, ["druid"]={148}, ["wizard"]={149}, ["oriental"]={150}, ["pirate"]={155}, ["assassin"]={156}, ["beggar"]={157}, ["shaman"]={158}, ["norsewoman"]={252}, ["nightmare"]={269}, ["jester"]={270}, ["brotherhood"]={279}, ["demonhunter"]={288}, ["yalaharian"]={324}, ["Warmaster"]={336} }
    local maleOutfits = { ["citizen"]={128}, ["hunter"]={129}, ["mage"]={130}, ["knight"]={131}, ["nobleman"]={132},["summoner"]={133}, ["warrior"]={134}, ["barbarian"]={143}, ["druid"]={144}, ["wizard"]={145}, ["oriental"]={146}, ["pirate"]={151}, ["assassin"]={152}, ["beggar"]={153}, ["shaman"]={154}, ["norsewoman"]={251}, ["nightmare"]={268}, ["jester"]={273}, ["brotherhood"]={278}, ["demonhunter"]={289}, ["yalaharian"]={325}, ["Warmaster"]={335} }
    local msg = {"Command requires GOOD param!", "You dont have Addon Doll!", "Bad param!", "Full Addon Set sucesfully added!"}
    local param = string.lower(param)

    if(getPlayerItemCount(cid, 11390) > 0) then
        if(param ~= "" and maleOutfits[param] and femaleOutfits[param]) then
            doPlayerRemoveItem(cid, 11390, 1)
            doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg[4])
                doSendMagicEffect(getCreaturePosition(cid), CONST_ME_GIFT_WRAPS)
            if(getPlayerSex(cid) == 0)then
              doPlayerAddOutfit(cid, femaleOutfits[param][1], 3)
            else
              doPlayerAddOutfit(cid, maleOutfits[param][1], 3)
            end
        else
          doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg[1])
        end
    else
      doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg[2])
    end
end

Would appreciate some help.
Thanks