SolarStrike Software

Code: Select all

	function KillMobs()
		yrest(10)
		player:update()
		if player:findEnemy(nil,nil,evalTargetDefault) then
			enemy = player:findEnemy(nil,nil,evalTargetDefault)
			printf(""..enemy.Name.."");
			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" then
				useGoodie("critp");
				RogueBoss(true);
				printf("Boss settings updated");
			end
			while enemy do
				player:target(enemy)
				player:fight()
				enemy = player:findEnemy(nil,nil,evalTargetDefault)
			end
			RogueBoss();
		end
		player:updateBattling()
		if (not player.Battling) then
			if player:findEnemy(nil, nil, evalTargetLootable) then
				local Lootable = player:findEnemy(nil, nil, evalTargetLootable)
				while Lootable do
					player:target(Lootable)
					if player.TargetPtr ~= 0 then
						player:lootAll()
					end
					Lootable = player:findEnemy(nil, nil, evalTargetLootable)
				end
			end
		else
			KillMobs();
		end
		prevcoords = {X=player.X, Z=player.Z, Y=player.Y}
		repeat
			yrest(2000);
			printf("Waiting for next area to appear")
			player:update();
		until distance(player,prevcoords) >= 100 or (not isInGame())
		yrest(3000);
		cprintf(cli.yellow,"\nArea changed\n")
		player:update()
		if isInGame() and distance(player,prevcoords) >= 200 then
			DLApplyPots()
			yrest(2000);
			__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
		elseif not distance(player,prevcoords) >= 200 then
			player:update();
			yrest(1000);
			DLApplyPots()
			__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
		end
	end

Code: Select all

		function settings.profile.events.onSkillCast(arg1)					-- add ID = 104924	
			local target = player:getTarget()
			if target.Name == "Hlethfir Deliriumscribe" then
				local ghostadd = player:findEnemy(nil, 104924, evalTargetDefault);
				if ghostadd and target.Id ~= 104924 then
					player:breakFight()
					while ghostadd do
						player:target(ghostadd)
						player:fight()
						ghostadd = player:findEnemy(nil, 104924, evalTargetDefault);
					end
				end
				player:target(target)
			end
		end

Code: Select all

if (not player.Battling) then
			if player:findEnemy(nil, nil, evalTargetLootable) then
				local canLoot = player:findEnemy(nil, nil, evalTargetLootable)
				repeat
					player:target(canLoot)
					player:loot(canLoot)
					player:lootAll();
					player:update();
					local canLoot = player:findEnemy(nil, nil, evalTargetLootable)
				until not player:findEnemy(nil, nil, evalTargetLootable)
			end
		end

Code: Select all

Main hand durability:97.150943396226
We didn't move to the loot!? Root buff? Missing 'click to move' option?
We didn't move to the loot!? Root buff? Missing 'click to move' option?
Clearing target.
Waiting for next area to appear

Code: Select all

Main hand durability:96.207547169811
We didn't move to the loot!? Root buff? Missing 'click to move' option?
Clearing target.
Waiting for next area to appear

Code: Select all

<!-- Loot settings -->
		<option name="LOOT"               	value="false" />
		<option name="LOOT_ALL"			  	value="false" />  		<!-- Loot all nearby dead mobs after combat -->
		<option name="LOOT_IN_COMBAT"     	value="false" />
		<option name="LOOT_DISTANCE"      	value="200" />
		<option name="LOOT_PAUSE_AFTER"   	value="0" />			<!-- probability in % for a short rest -->
		<option name="LOOT_SIGILS"			value="false" />				<!-- Loot sigils or not. If ommitted, will depend on "LOOT" value -->
		<option name="SIGILS_IGNORE_LIST"	value="" />				<!-- List of any sigils you wish to ignore, in language of client -->
		<option name="LOOT_JUMPING"			value="false" />		<!-- Jumps while looting to avoid crouching -->
		<option name="LOOT_AGAIN"			value="2000" />			<!-- Second chance try if first loot failed. -->
		<option name="LOOT_TIME"			value="1500" />			<!-- Amount of time allowed for looting. -->

Code: Select all

	changeProfileOption("LOOT_ALL", true)
	changeProfileOption("LOOT", true)
	changeProfileOption("ANTI_KS", false)
	changeProfileOption("PARTY", true)
	changeProfileOption("PARTY_INSTANCE", true)
	changeProfileOption("MAX_TARGET_DIST", 500)
	changeProfileOption("USE_PHIRIUS_POTION", true)
	changeProfileOption("LOOT_JUMPING", true)
	changeProfileOption("LOOT_AGAIN", 0)
	changeProfileOption("LOOT_TIME", 0)
	changeProfileOption("LOOT_DISTANCE", 500)
	changeProfileOption("INV_AUTOSELL_ENABLE", false)
	changeProfileOption("LOOT_IGNORE_LIST_SIZE", 0)

Code: Select all

local boss = player:findNearestNameOrId("Boss name",nil,evalTargetLootable)
if boss then
    player:target(boss)
    repeat
        Attack()
        yrest(1000)
        player:updateBattling()
    until player.Battling or not boss:exists() or not evalTargetLootable(boss.Address)
end

Code: Select all

Fight finished. Killed 4 Dream Energy Stinger. (fight #10 / runtime 1 minutes)
Main hand durability:99.047169811321
We didn't move to the loot!? Root buff? Missing 'click to move' option?
Not Battling
Inventory cleaned out
Waiting for next area to appear

Code: Select all

if (not player.Battling) then
			print("Not Battling");
			if player:findEnemy(nil, nil, evalTargetLootable) then
				print("Found Lootable")
				local canLoot = player:findEnemy(nil, nil, evalTargetLootable)
				while canLoot do
					player:target(canLoot)
					repeat
						Attack()
						print("Attacking to loot")
						player:updateBattling()
					until not canLoot:exists()
					local canLoot = player:findEnemy(nil, nil, evalTargetLootable)
				end
			end
		end
      clearSlots() -- returns 'Inventory cleaned out' upon completion
		prevcoords = {X=player.X, Z=player.Z, Y=player.Y}
		print("Waiting for next area to appear")

Code: Select all

if player:findNearestNameOrId("", nil, evalTargetLootable) then

Code: Select all

Main hand durability:96.216981132075
We didn't move to the loot!? Root buff? Missing 'click to move' option?
Clearing target.
Inventory cleaned out
Waiting for next area to appear

Code: Select all

player:updateBattling()
		if (not player.Battling) then
          print("Checking for Loot")
			if player:findNearestNameOrId("", nil, evalTargetLootable) then
				print("Found Lootable")
				local canLoot = player:findNearestNameOrId("", nil, evalTargetLootable)
				while canLoot do
					player:target(canLoot)
						player:target(canLoot)
						player:lootAll();
						--Attack()
					local canLoot = player:findNearestNameOrId("", nil, evalTargetLootable)
				end
			end
		end

Code: Select all

Moving to waypoint #7, (2778, 950)
Checking for Loot
Found Lootable
We didn't move to the loot!? Root buff? Missing 'click to move' option?
The game client did not crash.

Code: Select all

if (not player.Battling) then
    local boss = player:findNearestNameOrId("BossName")
    if boss then
        boss = CPawn(boss.Address)
        while boss:exists() and boss.Lootable do
            player:target(boss)
            player:loot()
            yrest(500)
            boss:update()
        end
    end
end

Code: Select all

local canLoot = player:findNearestNameOrId("")
				repeat
					canLoot = CPawn(canLoot.Address)
					if canLoot:exists() and canLoot.Lootable and canLoot.Type == PT_MONSTER then
						print("Looting "..canLoot.Name.."");
						while canLoot:exists() and canLoot.Lootable and canLoot.Type == PT_MONSTER do
							player:target(canLoot)
							player:loot(canLoot)
							--Attack()
							yrest(500)
							canLoot:update()
						end
						local canLoot = player:findNearestNameOrId("")
					end
				until not canLoot:exists() or canLoot.Lootable

Code: Select all

				-- Add to ignore list
				lootIgnoreListPos = lootIgnoreListPos + 1
				if lootIgnoreListPos > settings.profile.options.LOOT_IGNORE_LIST_SIZE then lootIgnoreListPos = 1 end
				lootIgnoreList[lootIgnoreListPos] = target.Address

Code: Select all

lootIgnoreList[1] = 0