SolarStrike Software

Code: Select all

function tort()
	local proc = getProc()
	local function bitvalues()
		filename = getExecutionPath() .. "/logs/tortlog.txt";
		file, err = io.open(filename, "a+");
		if( not file ) then
			error(err, 0);
		end
		
		local objectList = CObjectList();
		objectList:update();
		local objSize = objectList:size()
		for i = 0,objSize do 
			obj = objectList:getObject(i)
			if obj.Id == 106881 then
				local flags = memoryReadRepeat("int", proc, obj.Address + 0x388) or 0;
				local bitnum=0x80000000
				local bitstring=""
				if bitAnd(flags,0x80000000) then
					file:write("Bits,1,")
				else
					file:write("Bits,0,")
				end
		
				repeat
					bitnum = bitnum / 2
					if bitAnd(flags,bitnum) then
						bitstring = bitstring .. "1,"
					else
						bitstring = bitstring .. "0,"
					end
				until bitnum == 1
				file:write(bitstring.."\n")
			end
		end
		file:close()
	end
	
	local function one(ID)
		if ID == 106881 then bitvalues() end
		local objectList = CObjectList();
		objectList:update();
		local objSize = objectList:size()
		for i = 0,objSize do 
			obj = objectList:getObject(i)
			if obj.Id == ID or ID == 106885 then
				print(obj.Name)
				player:target(obj)
				RoMScript("UseExtraAction(1)")
				yrest(10)
				player:target(obj)
				RoMScript("UseExtraAction(1)")
				if ID == 106883 then
					yrest(10)
					player:target(obj)
					RoMScript("UseExtraAction(1)")	
				end
				yrest(20)
			end
		end
	end
	one(106882)
	one(106882)	
	one(106881)
	one(106883)
	one(106884)	
end

Code: Select all

        Name:   Points
        Id:     622402
        Level:  4122
        TimeLeft:       619.54425048828
        Count:  1

Code: Select all

        Name:   Allowed targets that crossed the line
        Id:     622576
        Level:  4
        TimeLeft:       562.76159667969
        Count:  1

Code: Select all

        Name:   Remaining shots of Blasting Fireball
        Id:     622646
        Level:  7
        TimeLeft:       565.95989990234
        Count:  1

Code: Select all

function tort(score)
	local proc = getProc()
	
	local function checkclicked(address)
		local tmp = memoryReadRepeat("int", getProc(), address + addresses.pawnAttackable_offset) or 0;
		if bitAnd(tmp,0x8) then
			return true
		else
			return false
		end
	end

	local function one(ID)
		local objectList = CObjectList();
		objectList:update();
		local objSize = objectList:size()
		for i = 0,objSize do 
			obj = objectList:getObject(i)

			if (obj.Id == ID or ID == 106885) and checkclicked(obj.Address) then
				print(obj.Name)
				player:target(obj)
				RoMScript("UseExtraAction(1)")
				yrest(10)
				player:target(obj)
				RoMScript("UseExtraAction(1)")
				if ID == 106883 then
					yrest(10)
					player:target(obj)
					RoMScript("UseExtraAction(1)")	
				end
				yrest(20)
			end
		end
	end
	if score then
		one(106882)
		one(106882)
		one(106884)		
		one(106881)
		one(106883)
	else
		one(106882)
		one(106882)
		one(106881)
		one(106883)
		one(106884)	
	end
end

Code: Select all

repeat
yrest(1000);
until "Go!" shows in the middle of a the screen
and then 
tort()

Code: Select all

			function tort()
				local proc = getProc()
				
				local function checkclicked(address)
					local tmp = memoryReadRepeat("int", proc, address + addresses.pawnAttackable_offset) or 0;
					if bitAnd(tmp,0x8) then
						return true
					else
						return false
					end
				end

				local function one(ID)
					print("targeting: "..ID)
					local objectList = CObjectList();
					objectList:update();
					local objSize = objectList:size()
					for i = 0,objSize do 
						obj = objectList:getObject(i)

						if (obj.Id == ID or ID == 106885) and checkclicked(obj.Address) then
							player:target(obj)
							RoMScript("UseExtraAction(1)")
							yrest(10)
							player:target(obj)
							RoMScript("UseExtraAction(1)")
							if ID == 106883 then
								yrest(10)
								player:target(obj)
								RoMScript("UseExtraAction(1)")	
							end
							yrest(100)
						end
					end
				end
				if player:findNearestNameOrId(106881) then
					local countt = 12
					print("resting a little before attacking, countdown starts now.")
					repeat
						print(countt)
						yrest(1000)
						countt = countt -1
					until countt == 0
					for i = 1,6 do
						one(106882)
						one(106882)
						one(106881)
						one(106883)
						one(106884)	
					end
				end
			end
			
			repeat
				yrest(100)
			until  player:findNearestNameOrId(106881)
			print("OK event has started")
			repeat
				tort()
				player:update()
				buffed = player:getBuff(622402)
				yrest(100)
			until buffed.Level >= 2800 or not player:hasBuff(622402)
			print("Event finished, end score was "..buffed.Level)