SolarStrike Software

Code: Select all

Moving to waypoint #4, (6715, 2935)
Checking for Loot
Looting Dreamland Float
Looting Dreamland Float
[DEBUG] don't loot reason: target not lootable.
Looting Dreamland Float
[DEBUG] don't loot reason: target not lootable.
Looting Dreamland Float
[DEBUG] don't loot reason: target not lootable.
Looting
[DEBUG] don't loot reason: self.TargetPtr == 0

Code: Select all

			if player:findNearestNameOrId("", nil, evalTargetLootable) then
				local canLoot = player:findNearestNameOrId("", nil, evalTargetLootable)
				repeat
					lootIgnoreList[1] = nil
					player:target(canLoot)
					print("Looting "..canLoot.Name.."");
					player:loot(canLoot)
					yrest(500);
					canLoot:update();
					local canLoot = player:findNearestNameOrId("", nil, evalTargetLootable)
				until not player:findNearestNameOrId("", nil, evalTargetLootable)
			end

Code: Select all

lootIgnoreList[1] = 0

Code: Select all

	function KillMobs()
		keyboardPress(settings.hotkeys.JUMP.key);
		yrest(10)
		player:update()
		if player:findEnemy(nil,nil,evalTargetDefault) then
			enemy = player:findEnemy(nil,nil,evalTargetDefault)
			if (enemy.Name == "Hlethfir Deliriumscribe"
			 or enemy.Name == "Kaleks Nightmareclaw"
			 or enemy.Name == "Herugrim Dreamlava"
			 or enemy.Name == "Mayvel Nightmaremuse"
			 or enemy.Name == "Nightmare Beast Atollop"
			 or enemy.Name == "Infected Dreamland Guardian") then
				useGoodie("critp");
				if player.Class1 == 3 and player.Class2 == 4 then
					RogueBoss(true);
				end
				print("Boss settings updated")
			end
		player:updateBattling()
		if (not player.Battling) then
			print("Checking for Loot");
			if player:findNearestNameOrId("", nil, evalTargetLootable) then
				local canLoot = player:findNearestNameOrId("", nil, evalTargetLootable)
				repeat
					lootIgnoreList[1] = 0
					player:target(canLoot)
					print("Looting "..canLoot.Name.."");
					player:loot(canLoot)
					yrest(500);
					canLoot:update();
					canLoot = player:findNearestNameOrId("", nil, evalTargetLootable)
				until not player:findNearestNameOrId("", nil, evalTargetLootable)
			end
		end
		clearSlots()
		prevcoords = {X=player.X, Z=player.Z, Y=player.Y}
		print("Waiting for next area to appear")
		repeat
			yrest(2000);
			player:update();
		until distance(player,prevcoords) >= 100
		yrest(1000);
		cprintf(cli.yellow,"\nArea changed\n")
		player:update()
		if isInGame() then
			DLApplyDpsPots()
			yrest(1000);
			__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
		end
	end

Code: Select all

	changeProfileOption("LOOT_ALL", true)
	changeProfileOption("LOOT", true)
	changeProfileOption("LOOT_JUMPING", false)
	changeProfileOption("LOOT_AGAIN", 2000)
	changeProfileOption("LOOT_TIME", 1000)
	changeProfileOption("LOOT_DISTANCE", 500)
	changeProfileOption("LOOT_IGNORE_LIST_SIZE", 0	)

Code: Select all

if lootIgnoreList[1] then
    lootIgnoreList[1] = 0
end

Code: Select all

	function checkloot(_count,_dist)
		_dist = _dist or 200
		_count = _count or 5
		local loottable = {}
		local count = 0
		local objectList = CObjectList();
		objectList:update();
		local objSize = objectList:size()
		for i = 0,objSize do 
			obj = objectList:getObject(i)
			obj:update()
			if obj.Type == 2 then
				local pawn = CPawn(obj.Address)
				if pawn.Lootable and _dist >= distance(player,pawn) then
					table.insert(loottable,pawn)
					count = count + 1
				end
			end
		end
		
		--print("Count: "..count) -- for testing, works fine
		if count >= _count and inventory:itemTotalCount(0) ~= 0 then
			local loot = 3
			if _count ~= 5 then loot = _count end
			for i = 1,loot do
				loottable[i]:updateLootable()
				if loottable[i].Lootable then
					teleport(loottable[i].X,loottable[i].Z)
					player:target(loottable[i])
					yrest(500)
					Attack()
					yrest(2000)
				end
			end
			
			local tmp = CWaypoint(__WPL.Waypoints[__WPL.CurrentWaypoint])
			teleport(tmp.X,tmp.Z)
			return false
		else
			return true
		end
	end

Code: Select all

	repeat
		yrest(1000)
	until checkloot(3,100)