BuyPoisons.lua

 --Version
 BUYPOISONS_VERSION							= "4.4";

 local ThePlayer = UnitName("player");
 local TheServer = GetCVar("realmName");
 
 function bp_print(msg)
	 DEFAULT_CHAT_FRAME:AddMessage(msg,1,1,1);
 end
 
 function BuyPoisons_OnLoad()
	 --Load Poison List
	 getglobal("BUYPOISONS_LOADPOISONS")();
	 
	 this:RegisterForDrag("LeftButton");
	 this.page = 1;
	 -- Register for Merchant Open events.
	 this:RegisterEvent("MERCHANT_SHOW");
	 this:RegisterEvent("MERCHANT_CLOSED");
	 --MERCHANT_SHOW
	 --MERCHANT_CLOSED
 
	 -- add our very first chat command!
	 SlashCmdList["BUYPOISONS"] = function(msg)
		 BuyPoisons_command(msg);
	 end
	 
	 BuyPoisons_Verify_Saved_Data();
	 
	 bp_print("BuyPoisons Remixed and loaded");
 end
	 
 function BuyPoisons_OnEvent(event)
	 BuyPoisons_Verify_Saved_Data();
	 if ((event=="MERCHANT_SHOW") and (UnitClass("player")==BUYPOISONS_CLASS)) then
		 local is_a_poison_vendor = Index_merchant(BUYPOISONS_COMPONENT_DEATHWEED);
		 if (is_a_poison_vendor) then	
			 if ( BuyPoisonsData[TheServer][ThePlayer]["Restock"]["FlashPowder"] > 0 ) then
				 BuyPoisons_RestockItem(BUYPOISONS_COMPONENT_FLASH_POWDER, BuyPoisonsData[TheServer][ThePlayer]["Restock"]["FlashPowder"] );
			 end
			 if (BuyPoisonsData[TheServer][ThePlayer]["Use_UI"] == 1) then
				 BuyPoisons_ShowUI();
			 end	
		 end
	 end
	 
	 if ((event=="MERCHANT_CLOSED") and (UnitClass("player")==BUYPOISONS_CLASS)) then
		 BuyPoisonsFrame:Hide();
	 end
 end
 
 function BuyPoisons_command(msg)
 -- this function handles our chat command
	 local poisontype, poisonamount
	 bp_print("BuyPoisons "..msg)
	 if msg=="test" then
		 BuyPoisons_Test();
	 elseif (msg=="ver" or msg=="-v" or msg=="version" or msg=="Version") then
		 DEFAULT_CHAT_FRAME:AddMessage("BuyPoisons Version:"..BUYPOISONS_VERSION,1,1,1);
	 elseif (not msg or msg=="help" or msg=="") and (GetMerchantNumItems()<=1) then
		 for i = 1, table.getn(BUYPOISONS_HELP_MESSAGE), 1 do
			 bp_print(BUYPOISONS_HELP_MESSAGE[i]);
		 end
	 else
		 poisontype = string.sub(msg, 1, 3)
		 if string.sub(poisontype, 3) == ' ' then
			 poisontype = string.sub(poisontype, 1,2)..'1'
			  poisonamount = tonumber(string.sub(msg, 4))
		  else
			  poisonamount = tonumber(string.sub(msg, 5))		
		  end
		 if not poisonamount then
			 poisonamount = 10
		 end
		 if poisontype then
			 if poisontype=="rfp" and poisonamount then
				 BuyPoisonsData[TheServer][ThePlayer]["Restock"]["FlashPowder"] = poisonamount;
				 bp_print("BuyPoisons stocking " .. poisonamount .. " FlashPowder")
			 end
		 end	
	 end
	 if (GetMerchantNumItems() > 1) then
		 if poisontype then
			 for i = 1 , 22, 1 do
				 if poisontype==BuyPoisonsItemInfo[i]["shortkey"] then
					 BuyPoisons_BuyQuantity(i , poisonamount);
				 end
			 end
		 else
			 BuyPoisons_ShowUI();
		 end
	 end
	 if msg=="force" then
		 is_a_poison_vendor = Index_merchant(BUYPOISONS_COMPONENT_FLASH_POWDER)
		 if is_a_poison_vendor == nil then
			 bp_print("Flash powder index: nil")
		 else
			 bp_print("Flash powder index: "..is_a_poison_vendor)
		 end
		 BuyPoisons_ShowUI();
	 end
 end 
 
 function BuyPoisons_Verify_Saved_Data()
	 if ( not BuyPoisonsData) then
		 BuyPoisonsData = {};
	 end
	 if ( not BuyPoisonsData[TheServer]) then
		 BuyPoisonsData[TheServer] = {};
	 end
	 if ( not BuyPoisonsData[TheServer][ThePlayer]) then
		 BuyPoisonsData[TheServer][ThePlayer] = {};
		 BuyPoisonsData[TheServer][ThePlayer]["Use_UI"] = 1;
		 BuyPoisonsData[TheServer][ThePlayer]["Restock"] = {};
		 BuyPoisonsData[TheServer][ThePlayer]["Lang"] = "EN";
		 if ( GetLocale() == "frFR" ) then
			 BuyPoisonsData[TheServer][ThePlayer]["Lang"] = "FR";
		 elseif ( GetLocale() == "deDE" ) then
			 BuyPoisonsData[TheServer][ThePlayer]["Lang"] = "DE";
		 end
	 end
	 
	 if (BuyPoisonsData[TheServer][ThePlayer]["Restock"]== nil or BuyPoisonsData[TheServer][ThePlayer]["Restock"]=={}) then
		 BuyPoisonsData[TheServer][ThePlayer]["Restock"] = {};
		 BuyPoisonsData[TheServer][ThePlayer]["Restock"]["FlashPowder"] = 0;
	 end
	 if (BuyPoisonsData[TheServer][ThePlayer]["Restock"]["FlashPowder"] == nil) then
		 BuyPoisonsData[TheServer][ThePlayer]["Restock"]["FlashPowder"] = 0;
	 end
 end
 
 
 function BuyPoisons_BuyQuantity(i , BuyPoisons_Purchase_Quantity)
	 for j=1, 2,1 do	
		 if (BuyPoisonsItemInfo[i]["Components"][j]["Quantity"]) then 
			 
			 local BuyPoisons_NumberToBuy = BuyPoisonsItemInfo[i]["Components"][j]["Quantity"] * BuyPoisons_Purchase_Quantity;
			 for k = 1, 10, 1 do
				 if (BuyPoisons_NumberToBuy > 0) then
					 if (BuyPoisons_NumberToBuy > 20) then
						 Buy_Item(BuyPoisonsItemInfo[i]["Components"][j]["Item"], 20 );
						 BuyPoisons_NumberToBuy = BuyPoisons_NumberToBuy - 20;
					 else
						 Buy_Item(BuyPoisonsItemInfo[i]["Components"][j]["Item"], BuyPoisons_NumberToBuy );
						 BuyPoisons_NumberToBuy = 0 ;
					 end
				 end
			 end
			 
		 end
	 end
	 local BuyPoisons_VialsOnHand = 0;
	 --BuyPoisons_VialsOnHand = BuyPoisons_CountMy(BuyPoisonsItemInfo[i]["Vial_Type"])
	 
	 local BuyPoisons_VialCount = ((BuyPoisons_Purchase_Quantity- BuyPoisons_VialsOnHand)/5);
	 if (BuyPoisons_VialCount > 0) then
		 Buy_Item(BuyPoisonsItemInfo[i]["Vial_Type"],BuyPoisons_VialCount);
	 end
		 
 end
 
 function Buy_Item(poison, quantity)
	 local item_index = Index_merchant(poison);
	 if (item_index) then
		 BuyMerchantItem(item_index, quantity);
	 end
 end
 
 function Index_merchant(item_name)
 --GetMerchantNumItems()
 --name, texture, price, quantity, numAvailable, isUsable = GetMerchantItemInfo(index);
	 local item_index=nil;
	 local name, texture, price, quantity, numAvailable, isUsable
	 for i = 1, GetMerchantNumItems() do
		 name, texture, price, quantity, numAvailable, isUsable = GetMerchantItemInfo(i);
		 if (name==item_name) then
			 item_index = i;
		 end
	 end
	 if (not item_index and  not item_name==BUYPOISONS_COMPONENT_FLASH_POWDER) then
		 DEFAULT_CHAT_FRAME:AddMessage("Can't find: "..item_name,1,1,1);
	 end
	 return item_index;
 end
 
 function BuyPoisons_RestockItem(item, BuyPoisons_RestockQuantity)
	 local item_index = Index_merchant(item);	
	 if (item_index) then
		 DEFAULT_CHAT_FRAME:AddMessage("Vendor Sells:"..item.."["..item_index.."]",1,1,1);
		 local BuyPoisons_ItemsOnHand = BuyPoisons_CountMy(item);
		 DEFAULT_CHAT_FRAME:AddMessage("You Currently Have "..BuyPoisons_ItemsOnHand.." "..item,1,1,1);
		 for k = 1, 22 do
			 if (BuyPoisons_RestockQuantity - BuyPoisons_ItemsOnHand > 20) then
				 Buy_Item(item, 20);
				 BuyPoisons_ItemsOnHand = BuyPoisons_ItemsOnHand + 20; 
			 elseif ( BuyPoisons_RestockQuantity - BuyPoisons_ItemsOnHand > 0 ) then
				 Buy_Item(item, (BuyPoisons_RestockQuantity - BuyPoisons_ItemsOnHand) );
				 BuyPoisons_ItemsOnHand = BuyPoisons_ItemsOnHand + (BuyPoisons_RestockQuantity - BuyPoisons_ItemsOnHand);
			 else
				 k = 22;
			 end
		 end
		 
	 end
 end
 
 function BuyPoisons_CountMy(item)
	 local texture,itemCount;
	 local total_itemCount = 0;
	 
	 for i = 0,4 do
		 for j = 1, GetContainerNumSlots(i) do
			 if (BuyPoisons_GetContainerItemName(i,j) == item)  then
				 _, itemCount = GetContainerItemInfo(i,j);
				 if (itemCount) then
					 total_itemCount = total_itemCount + itemCount;
				 end
			 end
		 end
	 end
 
	 return total_itemCount;
 end
 
 function BuyPoisons_GetContainerItemName(bag, slot)
 -- This is pulled from the AutoPotions AddOn
 -- AutoPotion by Jooky.
 -- Download the latest version at:
 -- http://www.curse-gaming.com/mod.php?addid=9
 
   local linktext = nil;
   
   if (bag == -1) then
	   linktext = GetInventoryItemLink("player", slot);
   else
	   linktext = GetContainerItemLink(bag, slot);
   end
 
   if linktext then
	 local _,_,name = string.find(linktext, "^.*%[(.*)%].*$");
	 return name;
   else
	 return "";
   end
 end
 
 function BuyPoisons_GetPrice(i, BuyPoisons_PurchaseQuantity)
	 -- bp_print(" "..i.." "..BuyPoisonsItemInfo[i]["Components"][1]["Item"])
	 local name, texture, price, quantity, numAvailable, isUsable, BuyPoisons_Item_price
	 name, texture, price, quantity, numAvailable, isUsable = GetMerchantItemInfo(Index_merchant(BuyPoisonsItemInfo[i]["Components"][1]["Item"]));
	 BuyPoisons_Item_price = price * (BuyPoisonsItemInfo[i]["Components"][1]["Quantity"]) * BuyPoisons_PurchaseQuantity;
	 if (BuyPoisonsItemInfo[i]["Components"][2]["Item"]) then
		 name, texture, price, quantity, numAvailable, isUsable = GetMerchantItemInfo(Index_merchant(BuyPoisonsItemInfo[i]["Components"][2]["Item"] ));
		 BuyPoisons_Item_price = BuyPoisons_Item_price + (price * BuyPoisonsItemInfo[i]["Components"][2]["Quantity"]*BuyPoisons_PurchaseQuantity);
	 end
	 if ( i < 22 ) then
		 name, texture, price, quantity, numAvailable, isUsable = GetMerchantItemInfo(Index_merchant(BuyPoisonsItemInfo[i]["Vial_Type"] ));
		 BuyPoisons_Item_price  = BuyPoisons_Item_price + (price * ((BuyPoisons_PurchaseQuantity/ 5 )));
	 end
	 return BuyPoisons_Item_price;
 end
 
 function BuyPoisons_Test()
	 
	 local name, texture, price, quantity, numAvailable, isUsable = GetMerchantItemInfo( 1 );
 
	 bp_print(GetCVar("realmName"));
	 
	 bp_print(name);
 end