SolarStrike Software

Code: Select all

<!-- #  1 --><waypoint x="-613" z="-5812" y="24">
	local dailyQuestCount, dailyQuestsPerDay= RoMScript("Daily_count()");
		if 10 == dailyQuestCount  then
      			printf("Daily Count"..dailyQuestCount.." out of " .. dailyQuestsPerDay ..    " All Done. STOP."); 
				printf("CharacterName = "..player.Name.."\n");
		<!--sendMacro("}LoginNextToon=true;a={")
        sendMacro("Logout();");
        waitForLoadingScreen();
        loadPaths("token"); -->
		
		if numChars > CHARACTER_SELECT.selectedIndex then 
		sendMacro("}LoginNextToon=true;a={")
		sendMacro("Logout();");
		waitForLoadingScreen();
	else 
		if player.Name = "putnamehere" then
		nextAccount = 7
		end
		if player.Name ="whatname" then
		nextAccount = 4
		end
		ChangeChar(1,nextAccount)
		waitForLoadingScreen();
		sendMacro("}fastLoginRelog=false;a={")
		end
	yrest (4000)
	loadPaths("token"); 
	
		else
			printf("Daily Count "..dailyQuestCount.." out of " .. dailyQuestsPerDay ..    "");
      	end
		

Code: Select all

if player.Name == "putnamehere" then

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints>
<!-- #  1 --><waypoint x="4556" z="-2185" y="103">

sendMacro("}LoginNextToon=true;a={")
sendMacro("Logout();");
waitForLoadingScreen();
ChangeChar(2);
waitForLoadingScreen();
sendMacro("}fastLoginRelog=false;a={")
</waypoint>

</waypoints>

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints>
<!-- #  1 --><waypoint x="4556" z="-2185" y="103">

sendMacro("}LoginNextToon=true;a={")
sendMacro("Logout();");
waitForLoadingScreen();
sendMacro("}fastLoginRelog=false;a={")
</waypoint>

</waypoints>

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints>
<OnLoad>
<!-- Invetory update. Are you full bags
		player:update()
		inventory:update();
		if(1 > inventory:itemTotalCount(0) ) then
			printf("Error. Not enough BagSpase. Clean Bag and Start again.");
			nextplease()
		end-->

-- Settings
	local goldeggs = inventory:itemTotalCount(204792)
	local bearclaw = inventory:itemTotalCount(200609)
	local boartusk = inventory:itemTotalCount(200624)
	local goodcake = inventory:itemTotalCount(204791)
<!--	local nobearclaw = "0"
	local noboartusk = "0"-->
	changeProfileOption("COMBAT_DISTANCE", 50)
	changeProfileOption("COMBAT_RANGED_PULL", false)
	
-- Are you Prob not in zone
	if player.Level > 50 then
	printf("This character probably Is Not in zone going to next!\n");
	sendMacro("}LoginNextToon=true;a={")
        sendMacro("Logout();");
        waitForLoadingScreen();
        loadPaths("token");
	end
	
<!-- Were you just a Farmer, do you have golden eggs to mail -->
 function eggchecks()
	<!--if goldeggs ~= 0 then
	 printf("I have Golden Eggs to Dump!\n");
	 loadPaths("maildump");
	end-->
 end
 		
<!-- Are you out of daily items -->
function dailyitemz()
		if 5>bearclaw then
		 nobearclaw = "1"
			printf("Not enough Sharp Bear Claw!\n");
		end
		if 5>boartusk then
		noboartusk = "1"
			printf("Not enough Boar Tusks!\n");
		end
		if 5>bearclaw and 5>boartusk then 
			printf("CharacterName = "..player.Name.. " Needs more Daily Items.. Im all out\n");
			nextplease()
		<!--Single accout logout
		sendMacro("}LoginNextToon=true;a={")
        sendMacro("Logout();");
        waitForLoadingScreen();
        loadPaths("token"); -->
		end
end	
		
function checkDQCount()
local dailyQuestCount, dailyQuestsPerDay = RoMScript("Daily_count()");
	-- Use a daily ticket
	<!--if dailyQuestsPerDay - dailyQuestCount == 0 then
	local reset = inventory:findItem(202434)
		if reset then
			reset:use()
		end
	end-->
	if 10 == dailyQuestCount  then
    		printf ("You did "..dailyQuestCount.." of " .. dailyQuestsPerDay ..    " All Done Stop\n"); 
			printf("CharacterName = "..player.Name.."\n");
				
		else
			printf("Your done "..dailyQuestCount.." of " .. dailyQuestsPerDay ..    "\n");
     end
end


<!-- Multi accout code -->
function nextplease()
	local numChars = RoMScript("fastLoginNumChars")
	local selectIndex = RoMScript("CHARACTER_SELECT.selectedIndex")
	if numChars > selectIndex then 
		print("Loading next character on this account")
		sendMacro("}LoginNextToon=true a={")
		sendMacro("Logout()")
		waitForLoadingScreen()
	else
    local nextAccount
    if LogID == 1 then
        nextAccount = 5
		print("Loading Account 5")
    elseif LogID == 2 then
        nextAccount = 4
        print("Loading Account 4")
    end
		printf("Switching now")
		RoMScript("ChangeChar(1,nextAccount)")
		waitForLoadingScreen();
		sendMacro("}fastLoginRelog=false;a={")
	end
	yrest (4000)
	loadPaths("token");
end
</OnLoad>
	
	<!-- #  1 --><waypoint x="-613" z="-5812" y="24">
		checkDQCount();
		yrest(1000);
		dailyitemz();	
		yrest(1000);
		
		<!--Get quests -->
		player:target_Object(110584); yrest(1000);
		AcceptQuestByName("Collect Boar Tusks")
		player:target_Object(110584); yrest(1000);
		AcceptQuestByName("Sharp Bear Claw")
	</waypoint>
	<!-- #  6 --><waypoint x="-604" z="-5884" y="25">	
		if noboartusk == 1 then
		__WPL:setWaypointIndex(__WPL:findWaypointTag("noboarskipit"))
		end
	</waypoint>
	<!-- #  7 --><waypoint x="-627" z="-5957" y="26" >	</waypoint>
	<!-- #  8 --><waypoint x="-654" z="-6022" y="28">	
		player:target_NPC("Del"); yrest(1000);
		CompleteQuestByName("Collect Boar Tusks"); yrest(1000);
		<!--checkDQCount();
		dailyitemz();
		player:update(); -->
		if nobearclaw == "1" then
		__WPL:setWaypointIndex(__WPL:findWaypointTag("nobearskipit"))
		end
	</waypoint>
	<!-- # 11 --><waypoint x="-657" z="-6089" y="21">	</waypoint>
	<!-- # 12 --><waypoint x="-575" z="-6101" y="19" tag="noboarskipit">		
		player:target_NPC("Cid");
		sendMacro("OnClick_QuestListButton(3, 1)"); yrest(1000);
		sendMacro("CompleteQuest()"); yrest(1000); 
		 <!--CompleteQuestByName("Sharp Bear Claw") -->
		</waypoint>
	<!-- # 15 --><waypoint x="-517" z="-6058" y="22" tag="nobearskipit">	</waypoint>
	<!-- # 16 --><waypoint x="-550" z="-5949" y="24">	
	 <!-- eggchecks()-->
	if( math.random(100) > 60 ) then -- jump 40% of the time
		keyboardPress(key.VK_UP);
		keyboardPress(key.VK_SPACE);
		keyboardPress(key.VK_UP);
	end
	</waypoint>
</waypoints>