SolarStrike Software

Code: Select all

		<![CDATA[
			benice   = true		-- Be nice to other players
			maxdist  = 150    	-- Max dist to take an element on
			slowdown = 1000		-- Pause after taking an element
			white 	 = true
			
			-- To go 'rape mode' set maxdist to 200 and slowdown to 0, 
			-- perhaps reduce yrest(200) in loop
			
			brel = {}
			brel[121055]={Id=103013,color="Red"}
			brel[121057]={Id=103015,color="Blue"}
			brel[121056]={Id=103014,color="Yellow"}
			
			-- Wait until NPC can be talked to "Let me help you out!"
			_npc = GetIdName(120888)
			cprintf(cli.lightblue, "Waiting for event registration with %s!\n", _npc)
			repeat 
				-- Target NPC
				repeat				
					if not player:target_NPC(_npc) then
						error("Can't find NPC ".._npc)
					end
					yrest(1000)
				until RoMScript("SpeakFrame:IsVisible()")
				yrest(500)

				-- Start event
				ChoiceOptionByName("Lasst mich")
				yrest(500)
				if not player:hasBuff(623044) then
					yrest(60000)
				end
			until player:hasBuff(623044)
			cprintf(cli.lightblue, "Waiting for event to start!\n")
			repeat yrest(1000) until player:hasBuff(623041)
			cprintf(cli.lightblue, "Event started!\n")
			
			-- Setup event
			color = nil
			helped = 0
			hname = GetIdName(623045)
			npc = player:findNearestNameOrId({120888})
			
			-- Do event
			repeat
				bobj = player:findNearestNameOrId({121055, 121056, 121057})
				if bobj then
					if color ~= brel[bobj.Id].color then
						color = brel[bobj.Id].color
						cprintf(cli.lightblue, "Bubble changed to %s\n", color)
					end
					
					-- Wait until element is a little closer, looks bad killing at spawn
					obj=player:findNearestNameOrId({103013, 103014, 103015, 106548})					
					if obj and distance(npc.X, npc.Z, npc.Y, obj.X, obj.Z, obj.Y) < maxdist then
						player:target(obj)
						if obj.Id == brel[bobj.Id].Id then
							RoMScript("UseExtraAction(1)")
						else
							RoMScript("UseExtraAction(2)")
						end
						
						-- Keep track of number of times helped
						if player.Buffs[hname] then
							helped = player.Buffs[hname].Level
						end
						
						-- Stop when60 Points is reached
						if helped > 59 then
							repeat
							yrest(5000)
							player:updateBuffs()
							until not player:hasBuff(623041)	
						end

						-- If other players in circle, slow down
						if CountPlayers(200) > 0 then
							yrest(slowdown) 
						else 
							yrest(200) 
						end
					end
				end
				
				yrest(200)
				player:updateBuffs()
			until not player:hasBuff(623041)

			-- And were done
			cprintf(cli.lightblue, "You got %d points\n", helped)
   			error("Finished")
		]]>

Code: Select all

                  -- Keep track of number of times helped
                  if player.Buffs[hname] then
                     helped = player.Buffs[hname].Level
                  end

Code: Select all

-- Keep track of number of times helped
local  hasBuff, count = player:hasBuff(hname)
if hasBuff then
    helped = count
end

Code: Select all

                  -- Stop when60 Points is reached
                  if player:hasBuff(hname,60) then
                     repeat
                     yrest(5000)
                     player:updateBuffs()
                     until not player:hasBuff(623041)   
                  end

Code: Select all

						if player:hasBuff(623045) then
							buff = player:getBuff(623045);
							if buff.Level >= 60 then
							repeat
							yrest(5000)
							player:updateBuffs()
							until not player:hasBuff(623041)
							end
						end  

Code: Select all

if buff.Level >= 60 then

Code: Select all

if buff and buff.Level >= 60 then

Code: Select all

		function isCowFree(cow)
				return not player:PlayerInRange(75, cow._X, cow._Z)
			end

Code: Select all

function isCowFree(cow)
	player:updateXYZ()
	return distance (player,cow) > 75
end

Code: Select all

	if GetFailureTitle and not HaveFailureTitle then
		color = color + 1
		if color == 4 then color = 1 end
	end

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints>
<onLoad>
	--         Rock5's Element Converter
	--               Version 1.2
	--
	-- Thank's to Lisa for her original version

	-- User options ----------------------------

	local PauseBetweenCasts = 100			-- In ms
	local BallSizeToClick = 1.1 			-- Values between 0.5 and 2.5 (1.1 is optimal. Don't change)
	local GetFailureTitle = false			-- Set true to get title "There is nothing I cannot Break!" only if you don't have it.
	local ExchangeForCertificates = true	-- Auto exchanges Universal Components for Certificates.

	local When_Finished = "end"
		-- "end" to end script, "relog" to log next character, "charlist" to log next in 'charlist' and "waypointfilename" to load that waypointfile.

	local 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}},
		--		}

	--------------------------------------------

	local HaveFailureTitle = RoMScript("} for i = 0, GetTitleCount() do name, titleID, geted = GetTitleInfoByIndex(i) if titleID == 530897 then a = {geted} end end z= {")

	local Converters = {
		{
			Converter = {X = 3158, Z = -57},
			Balls = {{X = 3197, Z = 0}, {X = 3164, Z = 11}, {X = 3126, Z = 0}, {X = 3097, Z = -31}, {X = 3094, Z = -73}},
			CameraPos = {3084,203,60},
			Place = {{W = -0.333, H = 0.165}, {W = -0.226, H = 0.308}, {W = 0, H = 0.376}, {W = 0.255, H = 0.319},{W = 0.401, H = 0.157}},
		},
		{
			Converter = {X = 3002, Z = 123},
			Balls = {{X = 2982, Z = 60}, {X = 3015, Z = 66}, {X = 3048, Z = 86}, {X = 3062, Z = 116}, {X = 3061, Z = 149}},
			CameraPos = {3112,203,35},
			Place = {{W = -0.394, H = 0.157 }, {W = -0.248, H = 0.271}, {W = -0.023, H = 0.334}, {W = 0.172, H = 0.275}, {W = 0.308, H = 0.155}},
		},
		{
			Converter = {X = 3366, Z = 340},
			Balls = {{X = 3306, Z = 345}, {X = 3322, Z = 310}, {X = 3355, Z = 290}, {X = 3391, Z = 300}, {X = 3414, Z = 320}},
			CameraPos = {3340,203,204},
			Place = {{W = -0.364 , H = 0.077 }, {W = -0.243 , H = 0.230 }, {W = -0.027 , H = 0.296 }, {W = 0.161 , H = 0.195 }, {W = 0.259 , H = 0.077 }},
		},
		{
			Converter = {X = 3471, Z = 140},
			Balls = {{X = 3501, Z = 209}, {X = 3463, Z = 213}, {X = 3425, Z = 193}, {X = 3402, Z = 167}, {X = 3406, Z = 129}},
			CameraPos = {3365,203,259},
			Place = {{W = -0.405, H = 0.088 }, {W = -0.264, H = 0.236 }, {W = -0.018, H = 0.285 }, {W = 0.189, H = 0.265 }, {W = 0.306, H = 0.097 }},
		},
	}

	local settings

	function relog()
		if When_Finished == "relog" then
			ChangeChar()
			waitForLoadingScreen();
			yrest(3000)
			loadProfile()
			loadPaths(__WPL.FileName);
		elseif When_Finished == "charlist" then
			SetCharList(CharList)
			LoginNextChar()
			loadProfile()
			loadPaths(__WPL.FileName);
		elseif When_Finished == "end" then
			error("Ending script",2)
		else
			if not string.find(When_Finished,".", 1, true) then
				When_Finished = When_Finished .. ".xml"
			end
			local filename = getExecutionPath() .. "/waypoints/" .. When_Finished
			local file, err = io.open(filename, "r");
			if file then
				file:close();
				loadPaths(When_Finished)
			else
				error("'When_Finished' option is invalid",0)
			end
		end
	end

	function GetBalls()
		local objectList = CObjectList();
		objectList:update();
		local objSize = objectList:size()
		local obj
		local found = 0
		local Balls = {}
		for i = 0,objSize do
			obj = objectList:getObject(i);
			if (obj.Id == 120910 or obj.Id == 120911 or obj.Id == 120912) then
				local place
				if 5 > distance(obj.X, obj.Z, settings.Balls[1].X, settings.Balls[1].Z) then
					place = 1
				elseif 5 > distance(obj.X, obj.Z, settings.Balls[2].X, settings.Balls[2].Z) then
					place = 2
				elseif 5 > distance(obj.X, obj.Z, settings.Balls[3].X, settings.Balls[3].Z) then
					place = 3
				elseif 5 > distance(obj.X, obj.Z, settings.Balls[4].X, settings.Balls[4].Z) then
					place = 4
				elseif 5 > distance(obj.X, obj.Z, settings.Balls[5].X, settings.Balls[5].Z) then
					place = 5
				end

				if place then
					local tmpsize = memoryReadFloat(getProc(),obj.Address +0x74)
					local tmpcast = bitAnd(memoryReadByte(getProc(),obj.Address + 0xC8),0x8)
					if tmpsize >= BallSizeToClick and tmpcast == false then
						local tmpdata = {
							X = obj.X,
							Z = obj.Z,
							Id = obj.Id,
							Size = tmpsize,
							Place = place
							}
						table.insert(Balls,tmpdata)
					end
					found = found + 1
					if found > 4 then break end
				end
			end
		end
		table.sort(Balls,function (a,b) return a.Size > b.Size end)
		return Balls, found
	end

	function FindNearestConverterNotInUse()
		if distance(player.X,player.Z,3239,141) > 300 then
			return nil
		end
		local closest
		for i = 1,4 do
			settings = table.copy(Converters[i])
			local balls, found = GetBalls()
			if found == 0 then -- Available
				if closest == nil then
					closest = i
				else
					local last = Converters[closest].Converter
					local new  = Converters[i].Converter
					if distance(player.X,player.Z,last.X,last.Z) > distance(player.X,player.Z,new.X,new.Z) then
						closest = i
					end
				end
			end
		end
		return closest
	end

	function nomouse()
		-- x axis
		local addressX1 = addresses.functionMousePatchAddr
		local addressX2 = addresses.functionMousePatchAddr + addresses.mousePatchX2_offset
		local addressX3 = addresses.functionMousePatchAddr + addresses.mousePatchX3_offset
		memoryWriteString(getProc(), addressX1, string.rep(string.char(0x90),#addresses.functionMouseX1Bytes)); -- left of window
		memoryWriteString(getProc(), addressX2, string.rep(string.char(0x90),#addresses.functionMouseX2Bytes)); -- right of window
		memoryWriteString(getProc(), addressX3, string.rep(string.char(0x90),#addresses.functionMouseX3Bytes)); -- over window

		-- y axis
		local addressY1 = addresses.functionMousePatchAddr + addresses.mousePatchY1_offset
		local addressY2 = addresses.functionMousePatchAddr + addresses.mousePatchY2_offset
		local addressY3 = addresses.functionMousePatchAddr + addresses.mousePatchY3_offset
		memoryWriteString(getProc(), addressY1, string.rep(string.char(0x90),#addresses.functionMouseY1Bytes)); -- above window
		memoryWriteString(getProc(), addressY2, string.rep(string.char(0x90),#addresses.functionMouseY2Bytes)); -- below window
		memoryWriteString(getProc(), addressY3, string.rep(string.char(0x90),#addresses.functionMouseY3Bytes)); -- over window
	end

	-- Unfreeze mouse function
	function unnomouse()
		-- x axis
		local addressX1 = addresses.functionMousePatchAddr
		local addressX2 = addresses.functionMousePatchAddr + addresses.mousePatchX2_offset
		local addressX3 = addresses.functionMousePatchAddr + addresses.mousePatchX3_offset
		memoryWriteString(getProc(), addressX1, string.char(unpack(addresses.functionMouseX1Bytes)));
		memoryWriteString(getProc(), addressX2, string.char(unpack(addresses.functionMouseX2Bytes)));
		memoryWriteString(getProc(), addressX3, string.char(unpack(addresses.functionMouseX3Bytes)));

		-- y axis
		local addressY1 = addresses.functionMousePatchAddr + addresses.mousePatchY1_offset
		local addressY2 = addresses.functionMousePatchAddr + addresses.mousePatchY2_offset
		local addressY3 = addresses.functionMousePatchAddr + addresses.mousePatchY3_offset
		memoryWriteString(getProc(), addressY1, string.char(unpack(addresses.functionMouseY1Bytes)));
		memoryWriteString(getProc(), addressY2, string.char(unpack(addresses.functionMouseY2Bytes)));
		memoryWriteString(getProc(), addressY3, string.char(unpack(addresses.functionMouseY3Bytes)));
	end

	function useskill(target)
		local color = target.Id - 120909
		SlashCommand("/script UseExtraAction("..color..")")

		local wwidth = settings.Place[target.Place].W
		local wheight = settings.Place[target.Place].H

		local www = memoryReadIntPtr(getProc(),addresses.staticbase_char,addresses.windowSizeX_offset)
		local wwh = memoryReadIntPtr(getProc(),addresses.staticbase_char,addresses.windowSizeY_offset)
		local clickXw = math.ceil(www/2 + wwh*wwidth)
		local clickYw = math.ceil(wwh*wheight)
		memoryWriteIntPtr(getProc(),addresses.staticbase_char,addresses.mouseX_offset,clickXw)
		memoryWriteIntPtr(getProc(),addresses.staticbase_char,addresses.mouseY_offset,clickYw)
		yrest(50)
		SlashCommand("/script SpellTargetUnit()")
	end

	--Start Converter
	repeat
		local conv = FindNearestConverterNotInUse()

		if not conv then
			print("You're not near any Element Converters or none are available. Go to one, then continue.")
			player:sleep()
		else
			settings = table.copy(Converters[conv])
			player:moveInRange(CWaypoint(settings.Converter.X,settings.Converter.Z),50,true)
			player:target_NPC(120905) yrest(2000) -- Element Converter
			break
		end
	until false
	RoMScript("ChoiceOption(1)") -- Activates Element Converter.

	-- set camera distance
	camera:update()
	local oDist = camera.Distance
	camera:setDistance(150)

	-- Wait for balls to appear
	repeat
		yrest(1000)
		local balls ,found = GetBalls()
	until found > 0

	player:update()

	-- Set camera angle
	RoMScript(string.format("SetCameraPosition(%d, %d, %d)",settings.CameraPos[1],settings.CameraPos[2],settings.CameraPos[3]))

	local StartTime = os.clock()
	nomouse()
	while true do
		local Balls, Found = GetBalls()
		if Found == 0 or (os.clock() - StartTime) > 100 then -- finished
			break
		end

		-- Cast to all needed balls
		if #Balls > 0 then
			for k,v in pairs(Balls) do
				useskill(v)
				yrest(PauseBetweenCasts)
			end
		else
			yrest(PauseBetweenCasts)
		end
	end

	camera:setDistance(oDist)
	unnomouse()
	if ExchangeForCertificates and inventory:itemTotalCount(241606) > 0 then
		player:moveTo(CWaypoint(3280,287),true)
		player:target_NPC(120924) yrest(1500) -- Myden Neil
		RoMScript("ChoiceOption(2)") yrest(500)
	end

	relog()
</onLoad>
</waypoints>

Code: Select all

   local PauseBetweenCasts = 100         -- In ms
   local BallSizeToClick = 1.1          -- Values between 0.5 and 2.5 (1.1 is optimal. Don't change)