;'Formless Dust' item script

ItemID=GetItemID(GetUserMessage(#USERID))

If Floor(ItemID)=0
;If ItemID > 243
	;If ItemID < 256
		SendMessageToUser(#USERID,"Speak the name of the item you wish to create, and then use the dust to let it take form.",#MSG_SERVER)
		GoTo END
	;EndIf
;EndIf
Endif

If ItemID <> 0
	GiveItem(#USERID,ItemID)
	TakeItem(#USERID,200)
	SendMessageToUser(#USERID,"The dust swirls around and forms together to create a "+GetItemName(itemID)+".",#MSG_SERVER)
Else
	SendMessageToUser(#USERID,"Speak the name of the item you wish to create, and then use the dust to let it take form.",#MSG_SERVER)
EndIf

Label END

Continue = 1