function doevent(_arg)
	local function aquaevent(machineID)
		local ignoreOldObj, mytarget
		local creatures={120386,120385,120384}
		repeat	
		player:target(player:findNearestNameOrId(machineID))
		Attack()
			yrest(200)
		until RoMScript("ExtraActionBarFrame:IsVisible()")
		
		while RoMScript("ExtraActionBarFrame:IsVisible()") do
			for k,id in pairs(creatures) do
				if ignoreOldObj==nil then
					mytarget=player:findNearestNameOrId(id)
				else
					mytarget=player:findNearestNameOrId(id,ignoreOldObj)
				end
				if mytarget~=nil then
					player:target(mytarget)
					RoMScript("UseExtraAction(1)");
					ignoreOldObj = mytarget.Address;
					break;
				end
				yrest(1)
			end
			repeat
				yrest(500)
				player:updateCasting()
			until player.Casting == false
		end
	end
	for k,v in pairs(settings.profile.skills) do
		v.AutoUse = false
	end
	player:moveTo(CWaypoint(3080,161))
	player:target_NPC(120380);
	yrest(500);
	sendMacro("ChoiceOption(2);");
	yrest(500);
	sendMacro("ChoiceOption(1);");
	yrest(500);
	if _arg == 1 then
		player:moveTo(CWaypoint(3044,117))
		aquaevent(120392)	
	elseif _arg == 2 then
		player:moveTo(CWaypoint(3041,61))
		aquaevent(120392)
	else
		player:moveTo(CWaypoint(3038,11))
		aquaevent(120393)
	end
	player:moveTo(CWaypoint(3080,161))
	
	player:target_NPC(120380);
	yrest(500);
	sendMacro("ChoiceOption(2);");
end