SolarStrike Software

Code: Select all

function charges()
    ...
end

Code: Select all

charges()

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints type="TRAVEL">
<onLoad>
		--=== can add code here to deal with different accounts with different passes ===--
		--=== trying not to have a global variable with your password ===--
		
		function buycharges()
			BuyFromItemShop(896, "seconday password")
		end

		questEndNpcID1 = 112794
		questName1 = "Helping Them Grow" 
		function relog()
			SetCharList({
				{account=2 , chars= {2,3,4,5,6,7,8}},
				{account=54 , chars= {1,2,3,4,5,7,8}},
				{account=55 , chars= {1,2,3,4,5,6,7,8}},
				})
			LoginNextChar()
			yrest(3000)
			player:update()
			loadProfile()
			loadPaths("Daily.xml");
		end
</onLoad>
<!-- # 1 --><waypoint x="31847" z="4592" tag ="Main">
		local queststate = getQuestStatus(questName1);
		if queststate == "complete" then
			player:target_NPC(questEndNpcID1);
			CompleteQuestByName(questName1);
			yrest(300);
		end
      
		local dqCount, dqPerDay = RoMScript("Daily_count()");
		if dqPerDay == dqCount then      
			phirCoins = inventory:itemTotalCount(203038)
			print("We have "..phirCoins.." phirius coins")
			amountToBuy = phirCoins / 100
			print("trying to buy "..amountToBuy.." 10x arcane transmutor charges packs")
			repeat 
				buycharges()
				yrest(1000);
				amountToBuy = amountToBuy - 1
				inventory:useItem(202928);
				yrest(10);
				print("Using 10x arcane transmutor pack")
			until 1 > amountToBuy
			relog()
		else
			player:target_NPC(questEndNpcID1);
			AcceptQuestByName(questName1,questEndNpcID1);
			yrest(300);
		end
   </waypoint>
   <!-- #  3 --><waypoint x="31860" z="4646" y="9">   </waypoint>
   <!-- #  2 --><waypoint x="31742" z="5070" y="-11">   </waypoint>
   <!-- #  1 --><waypoint x="31416" z="5715" y="-33" tag = "Item1">   
		queststate = getQuestStatus(questName1)
		if queststate == "incomplete" then
			player:target_Object(112976,300);
			yrest(2500);
			__WPL:setWaypointIndex(__WPL:findWaypointTag("Item1"));
		end
    </waypoint>
   <!-- #  1 --><waypoint x="31416" z="5715" y="-33">   </waypoint>
   <!-- #  2 --><waypoint x="31742" z="5070" y="-11">   </waypoint>
   <!-- #  3 --><waypoint x="31860" z="4646" y="9">   </waypoint>
   <!-- #  4 --><waypoint x="31847" z="4583" y="9">   </waypoint>
</waypoints>

Code: Select all

		repeat
			yrest(1000)
			msg, recipient = checkeventparty("belts", "ready");
		until msg

Code: Select all

eventParty("start")

Code: Select all

msg,name = checkeventparty()

Code: Select all

eventParty()

Code: Select all

msg,name = checkEventParty()

Code: Select all

eventParty("stop")

Code: Select all

function checkeventparty(_name, _msg)
	repeat
		local time, moreToCome, name, msg = EventMonitorCheck(_name, "4,1")
		if type(_msg) == "string" then
			if msg and name ~= player.Name then
				if string.find(string.lower(msg),string.lower(_msg)) then
					return true
				end
			end
		elseif type(_msg) == "table" then
			for k,v in pairs(_msg) do
				if msg and name ~= player.Name then
					if string.find(string.lower(msg),string.lower(v)) then
						return v
					end
				end		
			end
		else
			print("Incorrect message usage")
		end
	until msg == nil
end

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints>
<onLoad>
-- Buy Belts script - V1.0 - written by Jandrana
-- Edited by Eggman1414

recipient = SetCharList({
            {account=2 , chars= {2,3,4,5,6,7,8}},
            {account=54 , chars= {1,2,3,4,5,7,8}},
            {account=55 , chars= {1,2,3,4,5,6,7,8}},
            });  
			-- the char that should receiver the belts.
itemName = "Excellent Belt"; 

function buyBelts()
	player:openStore("Nebular Grey-Eye")
	store:buyItem(itemName, 10);
	yrest(1000)
end

function sendBelts()
	local armor=MGbuildItemTableOfType("Armor");
	armor=selectItemsByName(armor, itemName);
	UMM_SendAdvanced(recipient,getIdsFrom(armor), nil, nil, nil, nil, nil, nil, nil, nil, nil);
end
</onLoad>
	<!-- #  1 --><waypoint x="2467" z="48296" y="136">	
		buyBelts();
	</waypoint>
	<!-- #  2 --><waypoint x="2603" z="48202" y="136">	</waypoint>
	<!-- #  3 --><waypoint x="2812" z="48230" y="136">		
		sendBelts();
	</waypoint>
	<!-- #  5 --><waypoint x="2576" z="48212" y="136">	</waypoint>
	<!-- #  6 --><waypoint x="2471" z="48302" y="136">	
	</waypoint>
</waypoints>

Code: Select all

recipient = SetCharList({
            {account=2 , chars= {2,3,4,5,6,7,8}},
            {account=54 , chars= {1,2,3,4,5,7,8}},
            {account=55 , chars= {1,2,3,4,5,6,7,8}},
            });  

Code: Select all

UMM_SendAdvanced(recipient,getIdsFrom(armor), nil, nil, nil, nil, nil, nil, nil, nil, nil);

Code: Select all

<onLoad>
nameTable =
{
"Char1","Char2",etc etc
}
 counter = 1
</onLoad>
   <!-- #  1 --><waypoint x="31761" z="3614" y="-17">     
         if nameTable[counter] == "lastchar" then
            print("Done mailing.")
            player:sleep()
      else
      UMM_SendMoney(nameTable[counter], 240000)
      yrest(500);
      sendMacro("CloseAllWindows()");
            counter = counter + 1;    
         end
   </waypoint>
</waypoints>

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints>
<onLoad>
-- Buy Belts script - V1.0 - written by Jandrana
-- Edited by Eggman1414

nameTable =
{
--characters name goes here ("Example")
}
 counter = 1

 itemName = "Excellent Belt"; 

function buyBelts()
	player:openStore("Nebular Grey-Eye")
	store:buyItem(itemName, 10);
	yrest(1000)
end

function sendBelts()
	local armor=MGbuildItemTableOfType("Armor");
	armor=selectItemsByName(armor, itemName);
	UMM_SendAdvanced(nameTable[counter],getIdsFrom(armor), nil, nil, nil, nil, nil, nil, 10, nil, nil);
	yrest(500);
	sendMacro("CloseAllWindows()");
		counter = counter  + 1;
end
</onLoad>
	<!-- #  1 --><waypoint x="2467" z="48296" y="136">	
		buyBelts();
	</waypoint>
	<!-- #  2 --><waypoint x="2603" z="48202" y="136">	</waypoint>
	<!-- #  3 --><waypoint x="2812" z="48230" y="136">
         if nameTable[counter] == "Last characters Name Goes Here" then
            print("Done mailing.")
            player:sleep()
		else
		sendBelts();
end
	</waypoint>
	<!-- #  4 --><waypoint x="2576" z="48212" y="136">	</waypoint>
	<!-- #  5 --><waypoint x="2471" z="48302" y="136">	
	</waypoint>
</waypoints>