CrystallizeItem(int ObjectID);
DeleteItem(int ObjectID,int Amount);

function getItemByName(name)
	invList = GetInventory();
	for item in invList.list do
		if item.Name == name then
			return item.objectId;
		end;
	end;
end;
 
weapon = getItemByName("Adena");
DeleteItem(weapon,100);

CraftItem(int recipeID) //RecipeID u can get from recipe-c.dat (use l2fileedit)

function getItemByName(name)
	invList = GetInventory();
	for item in invList.list do
		if item.Name == name then
			return item.ItemNum
		end
	end
return 1;
end
 
while (getItemByName('Varnish') > 4) and (getItemByName('Iron Ore') > 4)  do
CraftItem(30); --steel recipe id / recipe mast exist!!
Sleep(400);    --anty-kick
end;