SolarStrike Software

Code: Select all

changeProfileOption("INV_AUTOSELL_ENABLE", true);
changeProfileOption("INV_AUTOSELL_FROMSLOT", 31);
changeProfileOption("INV_AUTOSELL_TOSLOT", 170)
changeProfileOption("INV_AUTOSELL_QUALITY", "white,green,blue,purple");	
player:merchant("Pancer");
keyboardPress(key.VK_B);	
loadPaths("ks-pancer-to-ks");

Code: Select all

if ( self.Id >= 770000 and self.Id <= 772000 ) then

Code: Select all

if ( self.Id >= 770000 and  772000 >= self.Id ) then

Code: Select all

	while(true) do
		repeat
			interrupted = false
			if _donotignore == false then
				obj = self:findNearestNameOrId(_objname, self.LastTargetPtr, evalFunc)
			else
				obj = self:findNearestNameOrId(_objname, nil, evalFunc)
			end

			if obj and ( distance(self.X, self.Z, self.Y, obj.X, obj.Z, obj.Y ) < settings.profile.options.HARVEST_DISTANCE ) then -- object found, target
				if self.LastTargetPtr ~= obj.Address then
					cprintf(cli.yellow, language[95], obj.Name); -- We found object and will harvest it
					self.LastTargetPtr = obj.Address;		-- remember target address to avoid msg spam
				end
				objFound = true
				self:target(obj.Address);
				if( distance(self.X, self.Z, obj.X, obj.Z) > 39 ) then
					self:moveInRange(CWaypoint(obj.X, obj.Z), 39, true);
				end
				yrest(100)
				RoMScript("UseSkill(1,1)"); yrest(50);
				local timeStart = getTime()

				--Wait minimum time
				repeat
					yrest(100)
					self:update()
					if self.Casting or self.Battling then break end
				until deltaTime(getTime(),timeStart) >= minWaitTime

				if self.Casting == false and _waittime > 0 then -- Was expecting castingbar so try again, 2nd try.
					RoMScript("UseSkill(1,1)"); yrest(50);
					timeStart = getTime()
				end

				repeat
					yrest(100);
					self:update();
					while( self.Battling ) do
						self:target(self:findEnemy(true, nil, evalTargetDefault, self.IgnoreTarget));
						self:update();
						if( self:haveTarget() ) then
							self:fight();
							interrupted = true
						end
					end
				until deltaTime(getTime(),timeStart) > _waittime and self.Casting == false
			else                                                                      --           <-----------------
				obj = nil --prevent harvesting objects they are not in HARVEST_DISTANCE          <-----------------
			end
		until interrupted == false

		if obj then -- harvest again
			if _donotignore ~= true then
				self.LastTargetPtr = obj.Address -- Default ignore this address in next search
			end
			if _harvestall == false then -- No more harvesting
				return objFound
			end

Code: Select all

if obj and ( distance(self.X, self.Z, self.Y, obj.X, obj.Z, obj.Y ) < settings.profile.options.HARVEST_DISTANCE ) then -- object found, target

else -- object to far away
obj = nil --prevent harvesting objects they are not in HARVEST_DISTANCE 
end

Code: Select all

		local dailycomplete_ptr = 0x9CB190
		local dailycomplete_offset = 0xACF4
		function getDailyComplete()
			return memoryReadBytePtr(getProc(),dailycomplete_ptr,dailycomplete_offset)
		end
		function checkDQCount()
			local _tmpQC = getDailyComplete()
			cprintf(cli.lightblue,"%s quests completed.\n",tostring(_tmpQC))
			if (_tmpQC == 10) then
            player:sleep()        				
			end
		end

Code: Select all

			if _donotignore == false then
				obj = self:findNearestNameOrId(_objname, self.LastTargetPtr, evalFunc)
			else
				obj = self:findNearestNameOrId(_objname, nil, evalFunc)
			end
			
			if obj and ( distance(self.X, self.Z, self.Y, obj.X, obj.Z, obj.Y ) > settings.profile.options.HARVEST_DISTANCE ) then -- too far away
				obj == nil
			end

			if obj then -- object found, target