SolarStrike Software

Code: Select all

<?xml version="1.0" encoding="utf-8"?>
<waypoints>
<onload>

function castit(what)
	print("Go to ".. what)
	local todo = player:findNearestNameOrId(what)
	if todo then
		teleport(todo.X,todo.Z,todo.Y+15)
		yrest(50)
		player:target_NPC(todo.Name)
		yrest(50)
		RoMScript("UseExtraAction(1)")
		player:clearTarget();
		yrest(50)
		teleport(lylx,lylz,lyly+15)
	else
		print("not found!")
	end
end

	fly()
	local lyliya = player:findNearestNameOrId("Lyliya")
	lylx = lyliya.X 
    lyly = lyliya.Y 
	lylz = lyliya.Z
	teleport(lylx,lylz,lyly+15)
	yrest(500)
	print("Start game")
	player:sleep()

	
    while true do
		print("Memorize room")
		player:sleep()
		
		local tablesize = 0
		local furniture = {}
		local objectList = CObjectList();
		objectList:update();
		local objSize = objectList:size()
		for i = 0,objSize do
			local obj = objectList:getObject(i);
			obj:update()
			if obj.Name and obj.Name ~= "" and obj.Name ~= "" and obj.Type ~= PT_PLAYER and obj.Name ~= "Lyliya" then
				print(obj.Name .. " " .. obj.X .. " " .. obj.Z .. " " .. obj.Y)
				table.insert(furniture, table.copy(obj))
				tablesize = tablesize + 1
			end
			player:update();
		end
		
		print("compare room")
		player:sleep()
		
		local tablesize2 = 0
		local furniture2 = {}
		objectList:update();
		objSize = objectList:size()
		for i = 0,objSize do
			local obj = objectList:getObject(i);
			obj:update()
			if obj.Name and obj.Name ~= "" and obj.Name ~= "" and obj.Type ~= PT_PLAYER and obj.Name ~= "Lyliya" then
				print(obj.Name .. " " .. obj.X .. " " .. obj.Z .. " " .. obj.Y)
				table.insert(furniture2, table.copy(obj))
				tablesize2 = tablesize2 + 1
			end
			player:update();
		end
		
		print("Action")
		
		for ka,va in ipairs(furniture2) do
			local cc = 0
			for kb,vb in ipairs(furniture) do
				cc=cc+1
				if va.Name == vb.Name then
					-- object was here and is here again
					print(va.Name)
					if va.X == vb.X and va.Z == vb.Z then
						-- it is on same position as before
					else
						castit(va.Name)
						break
					end
				else
					if cc == tablesize then
						castit(va.Name)
						break
					end
				end
			end
		end
		
	end
</onload>
</waypoints>

Code: Select all

 for ka,va in ipairs(furniture2) do
         local cc = 0
         for kb,vb in ipairs(furniture) do
            cc=cc+1
            if va.Name == vb.Name then
               -- object was here and is here again
               print(va.Name)
               if va.X == vb.X and va.Z == vb.Z then
                  -- it is on same position as before
               else
                  castit(va.Name)
                  break
               end
            else
               if cc == tablesize then
                  castit(va.Name)
                  break
               end
            end
         end
      end

Code: Select all

 if cc == tablesize then
            castit(va.Name)
             break
  end

Code: Select all

if 10 > distance(va.X, va.Z, vb.X, vb.Z) then
     -- it is on same position as before
else
     castit(va.Name)
     break
end

Code: Select all

if(math.abs(x1-x2) >1) then

end

Code: Select all

if (1 > math.abs(x1-x2)) and (1 > math.abs(z1-z2)) then