SolarStrike Software

noobbotter wrote:Each time I run Fusion_MakeMaxStones(227502, 4); (to use excellent belts and random fusion stones) it runs through and turns all available, finishes by checking all upper levels, then it restarts and does the whole thing over again, checking for any more belts, fusion stones, and all the way up through the tiers to see if it can find anything. Is that by design? ... to run though the process twice? Thanks.

Fusion_Config("Use Item Whitelist", true)
Fusion_Config("Set Whitelist", "Excellent Belt")
-- You can also set what types of fusion stones to use.
MakeMaxManaStones()

minhtien86 wrote:how do i clean bag without token coins for all level.

rock5 wrote:1. inventory:storeBuyItem(Random Fusion Stone, 5 - fscount)
Random Fusion Stone is seen as 3 variables separated by spaces, which is a syntax error. Should be a string.
inventory:storeBuyItem("Random Fusion Stone", 5 - fscount)

2. until false
Until is the second part of repeat loops. I see no repeats.

3. if fscount >= 5 then break end
This wont cause an error but it does nothing unless there is a loop in the waypoint. 'break' breaks from loops. The whole waypoint is treated as a function so if you want to exit the waypoint, to continue to the next waypoint, you can use 'return'.

Next time please copy and paste the text, don't take a picture of the text. It saves me from having to retype your code.

local fscount = inventory:getItemCount(202999) -- number of Random Fusion Stones you already have
         if inventory:getItemCount(202999) >= 5 then return
         player:merchant(110576); -- Odeley Prole
         inventory:storeBuyItem("Random Fusion Stone", 5 - fscount)
         yrest(10000)
		Fusion_MakeMaxManaStones()

rock5 wrote:It's missing an end for the if statement. Let me see if I can figure out what it's supposed to do.

Code: Select all

         local fscount = inventory:getItemCount(202999) -- number of Random Fusion Stones you already have
         if 5 > fscount then
             player:merchant(110576); -- Odeley Prole
             inventory:storeBuyItem("Random Fusion Stone", 5 - fscount)
         end
         yrest(10000)
         Fusion_MakeMaxManaStones()

That will buy fusion stones if you don't have 5 then make maximum mana stones. Is that all you wanted it to do?

player:target_NPC(110576);
			 sendMacro("ChoiceOption(1);");

rock5 wrote:Probably because player:merchant() closes the store after it finishes what it does. Basically, player:merchant buys and sells according to your profile settings.

To open the store for buying with your own code you can use

Code: Select all

player:openStore("npcname")

Which basically does exactly what you used but it does add a safety feature in that it returns true if the store opens. So you can do something like

Code: Select all

if player:openStore("npcname") then
    -- your code to buy or sell stuff
end

When using your own custom selling script this is vital but it's not so important when buying as buying is fairly safe.

sdude13 wrote:@task: I do the same, i buy 27 stones, go to the mailbox get T4 items and do then exaclty one T7, doing this 3 times, then create T8 and send
it to another char.

Buy 27 Stones:

Code: Select all

      local tobuy = 27
      local npcname = RoMScript("TEXT('Sys111392_name')") -- Leskar Prole
      local stonename = RoMScript("TEXT('Sys202999_name')") -- Random Fusion Stone
      repeat
         local fscount = inventory:getItemCount(202999) -- number of Random Fusion Stones you already have
         if fscount >= tobuy then break end
         player:target_NPC(npcname); yrest(2000);
         sendMacro("ChoiceOption(1);"); yrest(2000); -- open store
         BuyItemByName(stonename, tobuy - fscount)
         yrest(10000)
      until false

Make one T7/T8 Stone:

Code: Select all

function Fusion_MS()
------------------------------------------------
-- Creates exactly one fusion stone T7 and one T8 if 3xT77 are avaible
-- using 27 mana stones
-- using 27 grade 4 items 
-- 
------------------------------------------------
		-- Open dialogs
		if RoMScript("AdvancedMagicBoxFrame ~= nil") then
			sendMacro("AdvancedMagicBoxFrame:Show()"); yrest(2000)
		else
			sendMacro("MagicBoxFrame:Show()"); yrest(2000)
		end
		sendMacro("FusionFrame:Show()"); yrest(2000)
		-- Set number to make

		sendMacro("FusionFrameFusionNumberEditBox3:SetText('0')"); yrest(1000)
		sendMacro("FusionFrameFusionNumberEditBoxFusionAndItem:SetText('27')"); yrest(1000)
		sendMacro("FusionFrameFusionNumberEditBox5:SetText('9')"); yrest(1000)
		sendMacro("FusionFrameFusionNumberEditBox6:SetText('3')"); yrest(1000)
		sendMacro("FusionFrameFusionNumberEditBox7:SetText('1')"); yrest(1000)
		sendMacro("FusionFrameFusionNumberEditBox8:SetText('1')"); yrest(1000)
		-- Do
		sendMacro("Fusion_QueueManastones(FusionFrame_Do)");
		repeat yrest(2000) until RoMScript("Fusion.LastGrad")==0
		-- close
		yrest(15000)
		if RoMScript("AdvancedMagicBoxFrame ~= nil") then
			sendMacro("AdvancedMagicBoxFrame:Hide()"); yrest(1500)
		else
			sendMacro("MagicBoxFrame:Hide()"); yrest(1500)
		end
end

What i do is check if fusion stones are 27 if not go to waypoint to buy stones.
if 27 are present set waypoint to go to postbox. This way, you can run it endlessly
with the standard 60 bag slots, because at the postbox you can get as many items
until the bag is full. 27 fusion 33 T4, after fusion its 6 t4 items and one t7 so still place to do another two round
to get 3 T7, doing then a T8 send it and restart from scratch.

because ultimate mail takes automaticly all mails, and if it aborts because of the bag is full
there are empty mail in your box.

so before using take all mail i delete the empty mails:

Code: Select all

	player:target_Object("Postfach",1000)	-- need to translate to english if you need	  
	 		  -- clean up empty mail
	 		  RoMScript("UMMFrameTab1Tools:ButtonClick('tagempty');"); yrest(2000)
	 		  RoMScript("UMMFrameTab1Tools:ButtonClick('delete');"); yrest(10000)
	 		  sendMacro("CloseWindows()") yrest(1000)
				-- get new mail
		 			local occupiedSlots, totalSlots = sendMacro("GetBagCount()") --if bag is full
                                 if 60>occupiedSlots then 
			 			player:target_Object("Postfach",1000)		-- need to translate to english if you need  
	 				 	UMM_TakeM()
	 					yrest(2000)
	 					sendMacro("CloseWindows()") yrest(1000)		
				end	 			

Waypoint #5 is closer then #1. Hence we start with waypoint #5.
Moving to waypoint #5, (-23434, 4091)
We found Mailbox and will harvest it.
No mail to take.
Use MACRO: Executing RoMScript "CloseWindows()".
Use MACRO: Executing RoMScript "GetBagCount()".
Use MACRO: Executing RoMScript "MagicBoxFrame:Show()".
Use MACRO: Executing RoMScript "FusionFrame:Show()".
The game client did not crash.
12:19am - IGF:\FusionFrame:Show()\ [string "local a={FusionFrame:Show()} return
a"]:1: attempt to index global 'FusionFrame' (a nil value)


AL lib: FreeContext: (02102EC0) Deleting 1 Source(s)
Please enter the script name to run.
Type in 'exit' (without quotes) to exit.
Script>