SolarStrike Software

Code: Select all

{Name = "Improve Crafting Speed",ID = 507016},
{Name = "Improve Crafting XP",ID = 507017},

Code: Select all

function getCD(ID)
	local offset = memoryReadRepeat("int", getProc(), GetItemAddress(ID) + addresses.skillRemainingCooldown_offset)
		return (memoryReadRepeat("int", getProc(), addresses.staticCooldownsBase + (offset+1)*4))/10
end

Code: Select all

	for num = 1, 5 do -- 5 possible enabled item set skills
		local id = memoryReadInt(getProc(), addresses.itemSetSkillsBase + (num - 1)*4)
	end

Code: Select all

1.) All files now integrated to a single file.

2.) User is asked to input which skill to level upon starting the script. This is turned on by default, you can turn this off and set which skill you like to level in the user options.

3.) You can now set in the user options what level you'd like the bot to stop at and set what you want the bot to do after reaching that level. 

4.) Script now checks first if you are near the Event NPCs and will give an error if you're not. It will also go to where the tools are at automatically if it detects you are pretty far from it.

5.) Added support for item-set skills (still in Beta as I do not have these skills and could not fully test it, so testers are needed). Once again, credits go to lisa for the functions needed to add support for these skills. 

6.) Added support for production speed potion - 1 day. The bot will auto-use it at the start of the script if user option is set to do that. If anyone has the 7 and 30 day potions, just post the Buff ids here so I can add support for them.

7.) Added a user option yrestadjustment for you to tweak the timing of the prints and the getting of info. Generally, this helps the bot to calculate some needed values better.

Code: Select all

function raiseMaxSkillLevel()
	print("Raising Max Level of Blacksmithing Skill.")
	repeat
		yrest(500)
	until player:target_NPC(112944)
	yrest(1000)
	ChoiceOptionByName(getTEXT("SKILLCRAFT_SKILLPROVE"))
	yrest(1000)
	ChoiceOptionByName("Blacksmithing")
	yrest(1000)
end

Code: Select all

[1] = {name = "Alchemy", text = "",
[2] = {name = "Armorcrafting", text = "",

Code: Select all

[1] = {name = "Alchemy", text = "Alchemie",

Code: Select all

Skill ID 495776 Found. usespeedskill Is Set To True.
Skill ID 495777 Found. usexpskill Is Set To True.

Code: Select all

function useCraftingSkills()
	local speedskill = GetIdName(495776)	-- Crafting Speed skill
	local expskill = GetIdName(495777)	-- Crafting Exp skill
	if usespeedskill then
		rest(1000)
		local speedremaining = getCooldown(495776)
		if speedremaining == 0 then
			repeat
				sendMacro("CastSpellByName(\""..speedskill.."\")")
				rest(500)
				player:updateBuffs()
				rest(500)
			until player:hasBuff(507016)
		end
	end
	if usexpskill then
		rest(1000)
		local expremaining = getCooldown(495777)
		if expremaining == 0 then
			repeat
				sendMacro("CastSpellByName(\""..expskill.."\")")
				rest(500)
				player:updateBuffs()
				rest(500)
			until player:hasBuff(507017)
		end		
	end
end

Code: Select all

skill = "Blacksmithing"


printf("This is the text you can see for skill: %s", skill)

Code: Select all

function charHasItemSetSkill(skillid)	
	for num = 1, 5 do
      local id = memoryReadInt(getProc(), addresses.itemSetSkillsBase + (num - 1)*4)
		if id == skillid then
			return true
		end
      return false
   end
end

Code: Select all

function charHasItemSetSkill(skillid)	
	for num = 1, 5 do
      local id = memoryReadInt(getProc(), addresses.itemSetSkillsBase + (num - 1)*4)
		if id == skillid then
			return true
		end
   end
   return false	
end