SolarStrike Software

Code: Select all

GuildDonate(nil,8)

Code: Select all

GuildDonate("all",8)

Code: Select all

...
---=== User Options ===--
    ExchangeForBackback    = true   -- If you want to exchange Team Medals for backpack tickets 
...

	function checkRelog()
		-- Log result
		local filename = getExecutionPath() .. "/logs/at.log";
		local file, err = io.open(filename, "a+");
		if file then
			file:write("Account: "..RoMScript("GetAccountName()").."\tName: " ..string.format("%-10s",player.Name ).." \tDate: " .. os.date() ..
			"\tCoins:"..inventory:itemTotalCount(203038).." \tShells gained/total: "..inventory:getItemCount(240181) - numshells.."/".. inventory:getItemCount(240181).. "\t" ..logentry .. "\n")
			file:close();
		end
		if When_Finished == "relog" then
			ChangeChar()
			waitForLoadingScreen();
			yrest(3000)
			loadProfile()
			loadPaths("at");
		elseif When_Finished == "charlist" then
			SetCharList(CharList)
			LoginNextChar()
			loadProfile()
			loadPaths("at");
		elseif When_Finished == "end" then
			error("Ending script",2)
		else
			player:update()

			-- Leave before loading next waypoint file.
			if ExitBeforeNextFile == true then
				if player:target_Object(tran) then
					RoMScript("StaticPopup_OnClick(StaticPopup1, 1);")
					waitForLoadingScreen();
					yrest(3000)
				end
			end

			if ExchangeFragments and player.Level > 20 then
				player:target_NPC(ange)
				while inventory:itemTotalCount(frag) > 4 do
					AcceptQuestByName(fragquest)
					CompleteQuestByName(fragquest)
					yrest(500)
				end
			end
			if ExchangeForBackback and inventory:itemTotalCount(GetIdName(206423)) > 4 then 
				player:target_NPC(ange)
				sendMacro("ChoiceOption(2);");   
				yrest(800);
				sendMacro("ChoiceOption(7);");
			end

			if not string.find(When_Finished,".", 1, true) then
				When_Finished = When_Finished .. ".xml"
			end
			loadProfile() -- Because we messed with the skills

			local filename = getExecutionPath() .. "/waypoints/" .. When_Finished
			local file, err = io.open(filename, "r");
			if file then
				file:close();
				loadPaths(When_Finished)
			else
				error("'When_Finished' option is invalid",0)
			end
		end
	end