SolarStrike Software

Code: Select all

item = inventory:findItem(123456)

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints type="TRAVEL">
<onLoad>
<!-- NoobBotter's Mana Stone Production Script      -->
<!-- This is the script that bots will run to check mail, create dirty tier stones, and forward those stones to another character   -->
<!-- bots need to be near a mailbox when this script is run -->
<!-- I use a separate script for both the bot that sends belts and fusion stones to the bots, -->
<!-- and for the bot that receives Tier 7 and 8 stones and combines them into T9 and T10 stones. -->


	<!--      User Variables         -->
	ISPassword = "yourISpassword" 	--This needs to be the secondary password so your bot can purchase charges from IS.
	beltstouse = 228996 			--this is the cheapest "Holy Belt" belt in Jungle of Hortek near snoop
	receiveFrom = "Charname1" 		-- This is the name of the character that sends belts and fusion stones to the bots.
									-- Purpose of this is so if for some reason there are leftovers, those leftovers will be sent back to sender.
	sendTo = "Charname2" 			--This is the character to send mana stones to after fusing them.
	
	When_Finished         = "charlist"
		-- "end" to end script, "relog" to log next character, "charlist" to use the charlist and "waypointfilename" to load that waypointfile.
	
	<!--If you want to run multiple characters through making tier stones, set character list below -->
	CharList = {}
		-- Character list to use when using the "charlist" option above. Requires my "userfunction_LoginNextChar" userfunction.
		-- Find it here. http://www.solarstrike.net/phpBB3/viewtopic.php?p=10350
		--		eg.
		--		CharList = {
		--			{account=4,chars={}},
		--			{account=8,chars={1}},
		--			{account=7,chars={1,2,5}},
		--		}

	--====================--

	<!--       Functions       -->
	function checkRelog()
		if When_Finished == "relog" then
			sendMacro("}LoginNextToon=true;a={")
			sendMacro("Logout();");
			waitForLoadingScreen();
			loadPaths(__WPL.FileName);
		elseif When_Finished == "charlist" then
			SetCharList(CharList)
			LoginNextChar()
			loadPaths(__WPL.FileName);
		elseif When_Finished == "end" then
			error("Ending script",2)
		else
			loadPaths(When_Finished)
		end
	end
	
	<!-- This function will check number of belts and fusion stones and determine how many charges are needed. It will then purchase enough charges -->
	
	function CheckCharges()
		local belts = inventory:itemTotalCount(beltstouse)
		local fusionstones = inventory:itemTotalCount("Random Fusion Stone")
		local stonestomake = 0
		if belts > fusionstones then
			stonestomake = fusionstones
		else
			stonestomake = belts
		end
		
		local charges = RoMScript("GetMagicBoxEnergy()")	
		local phirCoins = inventory:itemTotalCount(203038)
		print("We have "..phirCoins.." phirius coins")
		if stonestomake + 3 > charges then
			local chargestobuy = stonestomake + 3 - charges
			local rounds = 0
			if chargestobuy > 20 then 
				rounds = 3
			elseif chargestobuy > 10 then 
				rounds = 2
			elseif chargestobuy > 0 then 
				rounds = 1
			end
			if rounds > 0 then
				for i = 1, rounds do
					printf("Running low on charges... buying 10 more.\n")
					guid = FindItemShopGUID(202928,"coin")
					if phirCoins > 99 then	
						BuyFromItemShop(guid, ISPassword)
					end
					yrest(1000);
				end
				while inventory:itemTotalCount(202928) > 0 do
					inventory:useItem(202928)
					print("Using 10x arcane transmutor pack")
					yrest(100);
				end				
			end
		end
	end
	
	<!-- this function will send any T7 or T8 stones to your "sendTo" Character. -->
	<!-- If you want to send T6 also, just uncomment the commented line in this function. and add "Mana Stone Tier 6", in the UMM_SendByNameOrId line-->
	function SendStones()
		local TierStones = { 
			-- "Mana Stone Tier 6", --uncomment this line to send T6 stones.
			"Mana Stone Tier 7",
			"Mana Stone Tier 8"
		}
		
		local havestones = false
		for k,v in pairs(TierStones) do
			if inventory:itemTotalCount(v) > 0 then
				havestones = true
				logInfo("Stonesto"..sendTo, "\t"..player.Name.."\t is sending "..inventory:itemTotalCount(v).." "..v.."'s.",true)
			end
		end
		if havestones == true then
			UMM_SendByNameOrId(sendTo,{"Mana Stone Tier 7","Mana Stone Tier 8"}); --to send T6, add "Mana Stone Tier 6" in this line
			yrest(1000);
			RoMScript("UMMFrame:Hide()");
		end
	end
	
	<!-- This function will send any leftover stones or belts to the character specified in the receiveFrom variable. -->
	function SendSpareEquip()
		local spareitems = { 
			"Random Fusion Stone",
			"Holy Belt",
			"Recall Belt"
		}
		local havespares = false
		for k,v in pairs(spareitems) do
			if inventory:itemTotalCount(v) > 0 then
				havespares = true
				break
			end
		end
		if havespares == true then
			UMM_SendByNameOrId(receiveFrom,{"Random Fusion Stone","Holy Belt","Recall Belt"});
			yrest(1000);
			RoMScript("UMMFrame:Hide()");
		end
	end
	
	<!-- Bot actions -->
	
	UMM_TakeMail();
	yrest(1000);
	RoMScript("UMMFrame:Hide()");
	UMM_DeleteEmptyMail()
	RoMScript("UMMFrame:Hide()");
	CheckCharges()
	Fusion_MakeMaxManaStones()
	yrest(1000)
	SendStones()
	yrest(1000)
	SendSpareEquip() -- if you don't want to return unused stones or belts, just uncomment this line.
	loadPaths("NextFileToLoad");
</onLoad>
</waypoints>