need help please with a DOD Script

Runes of Magic/Radiant Arcana (http://www.runesofmagic.com)
Post Reply
Message
Author
User avatar
nightclaw
Posts: 123
Joined: Sun Sep 02, 2012 4:39 am

need help please with a DOD Script

#1 Post by nightclaw » Mon Sep 17, 2012 6:53 am

ok i need bit help here i way new at this and when i try editing to what i need it never seams to work
i using the dod 1st boss leader script posted by Alkaiser but it missing few things i need ...

need it to turn dod to easy --it keeps going norm and i just under whats needed do on norm
need it to do solo with just a party invite and uninvite i have the addon that let u do that ..so can some 1 help me out here please i am such a noob but really badly need this script
Attachments
DoD_Leader.xml
this is what i have that i need edited to auto set instance to easy and break and redo party please
(8.14 KiB) Downloaded 129 times
Top
User avatar
nightclaw
Posts: 123
Joined: Sun Sep 02, 2012 4:39 am

Re: need help please with a DOD Script

#2 Post by nightclaw » Mon Sep 17, 2012 7:45 am

ok i got a working party and a working easy mode but do there was other stuff it keep asking 4 i had edit so i could just party up go easy mode and jump in and kill boss get out and repeat but 1s i get in the portal i get
scripts\rom\bot.lue:824 failed to compile and run Lua code for waypoint # 6

but i did not miss with the waypots just toke out the
applypots and useGoodies do i dont need them to do on easy

here what i got please help fix please thax..

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints>
<onLoad><![CDATA[
	DOD_SOLO = true
	DOD_PARTY_MEMBERS = {"Char1","Char2","Char3"}
	
	if not DOD_SOLO then
		SlashCommand("ILG on")
	end
	
	changeProfileOption("AUTO_ELITE_FACTOR",1000)
	changeProfileOption("LOOT_IN_COMBAT",false)
	
	if DOD_SOLO then
		if player.Name == "My chars name here" then
			joinname = "My other chars name here"
		elName == "Char3" then
			joinname = "Char4"
		else
			error("No party match!",0)
		end
	end
	
	function autoInvite()
		if DOD_SOLO then
			while ( RoMScript("GetNumPartyMembers()") > 1 ) do
				RoMScript("LeaveParty()")
				yrest(2000)
			end
			for i = 1, 3 do
				if( RoMScript("GetNumPartyMembers()") < 2 ) then
					RoMScript("InviteByName('"..joinname.."')")
					printf("Waiting for party join...\n")
				end
				yrest(2000)
				if RoMScript("GetNumPartyMembers()") > 1 then
					break
				end
				if i == 3 then
					error("Party join failed!",0)
				end
			end
		else
			while RoMScript("GetNumPartyMembers()") > 1 do
				SlashCommand("ILG destroy")
				cprintf(cli.yellow,"ILG destroy\n")
				yrest(2000)
			end
			SlashCommand("ILG inv")
			cprintf(cli.yellow,"ILG inv\n")
			yrest(2000)
			if RoMScript("GetNumPartyMembers()") <= #DOD_PARTY_MEMBERS then
				for i = 1, #DOD_PARTY_MEMBERS do
					cprintf(cli.yellow,"Inviting "..DOD_PARTY_MEMBERS[i].."\n")
					RoMScript("InviteByName('"..DOD_PARTY_MEMBERS[i].."')")
					yrest(2000)
				end
			end
		end
		RoMScript("SetInstanceLevel('easy')")
	end
	
	function waitForParty()
		repeat
			local we_ready = true
			player:update()
			for i = 1, #DOD_PARTY_MEMBERS do
				local _partymember = player:findNearestNameOrId(DOD_PARTY_MEMBERS[i])
				if not _partymember or (_partymember and distance(player.X,player.Z,player.Y,_partymember.X,_partymember.Z,_partymember.Y) > 150) then
					we_ready = false
					cprintf(cli.lightred,"Waiting for "..DOD_PARTY_MEMBERS[i].."\n")
				end
			end
			yrest(2000)
		until we_ready
		cprintf(cli.lightgreen,"Party is ready!\n")
	end
	
	function CountObjectsNearPoint(_nameorid, _point, inrange, printnames)
		if type(_point) ~= "table" then _point = {player.X,player.Z,player.Y} end
		local objectList = CObjectList();
		local detected = {}
	
		objectList:update()
		for i = 0,objectList:size() do
			local obj = objectList:getObject(i)
			if obj ~= nil and (obj.Id == _nameorid or obj.Name == _nameorid) and obj.Address ~= player.Address and obj.Name ~= "<UNKNOWN>" and (inrange == nil or inrange >= distance(_point.X,_point.Z,_point.Y,obj.X,obj.Z,obj.Y) ) then
				if printnames then
					table.insert(detected,obj.Name)
				end
			end
		end
		if #detected > 0 then
			cprintf(cli.yellow,"Objects in range:\n")
			for i = 1, #detected do
				cprintf(cli.pink,detected[i].."\t")
			end
			printf("\n")
		end
		return #detected
	end
	
	npcName = GetIdName(115536) -- Isaac Haden
	function visitmerchant()
		if inventory:getMainHandDurability() < 95 or inventory:itemTotalCount(0) < 12 then
			return true
		else
			return false
		end
	end
	mentos = 0
]]></onLoad>
	<!-- #  1 --><waypoint x="1645" z="-4908" y="752">
		__WPL:setDirection(WPT_FORWARD)
		if visitmerchant() then
			__WPL:setWaypointIndex(11)
		end
	</waypoint>
	<!-- #  2 --><waypoint x="1662" z="-4970" y="760">	</waypoint>
	<!-- #  3 --><waypoint x="1660" z="-5072" y="760">	</waypoint>
	<!-- #  4 --><waypoint x="1667" z="-5124" y="761" tag="entrance">
		if not DOD_SOLO then waitForParty() end
		__WPL:setForcedWaypointType("RUN")
		autoInvite()
		if not DOD_SOLO then sendPartyChat("enter") end
		GoThroughPortal(200)
		__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
	</waypoint>
	<!-- #  5 --><waypoint x="1793" z="2880" y="433" tag="exit">
		if __WPL.Direction == WPT_BACKWARD then
			__WPL:setForcedWaypointType("RUN")
			GoThroughPortal(200)
			player:update()
			if getZoneId() ~= 209 then
				if RoMScript("GetNumPartyMembers()") > 1 then
					RoMScript("LeaveParty()")
					waitForLoadingScreen(15)
				else
					RoMScript("SendWedgePointReport()")
					waitForLoadingScreen(75)
				end
				__WPL:setDirection(WPT_FORWARD)
			end
	</waypoint>
	<!-- #  6 --><waypoint x="1892" z="2887" y="433">	</waypoint>
	<!-- #  7 --><waypoint x="2043" z="2699" y="433">	</waypoint>
	<!-- #  8 --><waypoint x="2124" z="2602" y="432">
		if __WPL.Direction == WPT_FORWARD then
			mentos = inventory:itemTotalCount("Ancient Memento")
			if not DOD_SOLO then
				waitForParty()
				sendPartyChat("okander")
			end
		end
	</waypoint>
	<!-- #  9 --><waypoint x="2153" z="2569" y="421">	</waypoint>
	<!-- # 10 --><waypoint x="2331" z="2361" y="401" tag="okander">
		if CountObjectsNearPoint("Okander") > 0 then
			if not player.Battling then
				yrest(250)
			end
			__WPL:setWaypointIndex(10)
		else
			__WPL:setDirection(WPT_BACKWARD)
			repeat
				yrest(500*math.random(4))
				local okander = player:findNearestNameOrId("Okander")
				if not okander then break end
				player:target(okander)
				player:update()
				player:loot()
			until inventory:itemTotalCount("Ancient Memento") > mentos
		end
	</waypoint>
	
	<!-- # 11 --><waypoint x="1704" z="-4756" y="752" tag="merchant">
		player:merchant(npcName)
		RoMScript("CloseAllWindows()")
		__WPL:setWaypointIndex(2)
	</waypoint>
	
	<!-- To the Sewers -->
	<!-- #  1 --><waypoint x="-3813" z="5117" y="19" tag="res">
		__WPL:setForcedWaypointType("RUN")
		player:mount()
	</waypoint>
	<!-- #  2 --><waypoint x="-3722" z="5220" y="12">	</waypoint>
	<!-- #  3 --><waypoint x="-3664" z="5311" y="11">	</waypoint>
	<!-- #  4 --><waypoint x="-3564" z="5362" y="11">	</waypoint>
	<!-- #  5 --><waypoint x="-3458" z="5434" y="9">	</waypoint>
	<!-- #  6 --><waypoint x="-3356" z="5530" y="10">	</waypoint>
	<!-- #  7 --><waypoint x="-3252" z="5629" y="3">	</waypoint>
	<!-- #  8 --><waypoint x="-3164" z="5736" y="4">	</waypoint>
	<!-- #  9 --><waypoint x="-3025" z="5864" y="2">	</waypoint>
	<!-- # 10 --><waypoint x="-2903" z="5980" y="10">	</waypoint>
	<!-- # 11 --><waypoint x="-2842" z="6059" y="9">	</waypoint>
	<!-- # 12 --><waypoint x="-2782" z="6170" y="10">	</waypoint>
	<!-- # 13 --><waypoint x="-2712" z="6284" y="4">	</waypoint>
	<!-- # 14 --><waypoint x="-2622" z="6353" y="6">	</waypoint>
	<!-- # 15 --><waypoint x="-2524" z="6397" y="15">	</waypoint>
	<!-- # 16 --><waypoint x="-2469" z="6465" y="19">	</waypoint>
	<!-- # 17 --><waypoint x="-2472" z="6526" y="30">	</waypoint>
	<!-- # 18 --><waypoint x="-2517" z="6567" y="38">	</waypoint>
	<!-- # 19 --><waypoint x="-2595" z="6612" y="49">	</waypoint>
	<!-- # 20 --><waypoint x="-2726" z="6687" y="32">	</waypoint>
	<!-- # 21 --><waypoint x="-2786" z="6721" y="42">	</waypoint>
	<!-- # 22 --><waypoint x="-2847" z="6764" y="40">	</waypoint>
	<!-- # 23 --><waypoint x="-2865" z="6824" y="40">	</waypoint>
	<!-- # 24 --><waypoint x="-2826" z="6956" y="40">	</waypoint>
	<!-- # 25 --><waypoint x="-2851" z="7047" y="15">	</waypoint>
	<!-- # 26 --><waypoint x="-2838" z="7121" y="-24">	</waypoint>
	<!-- # 27 --><waypoint x="-2912" z="7231" y="-96">
		GoThroughPortal(200)
		__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
	</waypoint>
	<!-- # 28 --><waypoint x="43" z="-882" y="857">
		local jake = GetIdName(115572)
		NPCTeleport(jake,"Please transport me.")
		__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
	</waypoint>
	
</waypoints>
Top
User avatar
nightclaw
Posts: 123
Joined: Sun Sep 02, 2012 4:39 am

Re: need help please with a DOD Script

#3 Post by nightclaw » Mon Sep 17, 2012 8:22 am

i know this bit off topic but i also have a warden is there way to add a macro to the skills ?? i made a macro to send out pet to attack 1st then i start attacking kinda like he my pull that way he takes the damg and not me if there is please be detailed on what do add it in my profile thax...also the dod i been asking about is 4 a champ/Rogue i dont know if that matter and i have it party up with me warden so it can reset the instance and same time i can do other stuff with warden like farming mats or leveling ...and again sooooo sorry i such a noob at this :(
Top
User avatar
rock5
Posts: 12173
Joined: Tue Jan 05, 2010 3:30 am
Location: Australia

Re: need help please with a DOD Script

#4 Post by rock5 » Mon Sep 17, 2012 8:36 am

I don't really want to look at the script but I can tell you, when doing normal bot attacks, wardens will command their pet to attack at the start of a fight. So if you are melee you should both run in together. If you have a ranged attack and use ranged pull then the pet should run in while you start attacking from a distance. There is no inbuilt bot method to wait for the pet to attack. Although you could add a onpreskillcast event that if it is your first attack skill then wait a bit to give your pet time to engage first.
  • Please consider making a small donation to me to support my continued contributions to the bot and this forum. Thank you. Donate
  • I check all posts before reading PMs. So if you want a fast reply, don't PM me but post a topic instead. PM me for private or personal topics only.
  • How to: copy and paste in micromacro
    ________________________
    Quote:
    • “They say hard work never hurt anybody, but I figure, why take the chance.”
          • Ronald Reagan
Top
User avatar
nightclaw
Posts: 123
Joined: Sun Sep 02, 2012 4:39 am

Re: need help please with a DOD Script

#5 Post by nightclaw » Tue Sep 18, 2012 8:14 am

thax that helped alot 1 worry down ...but still cant get script to work full 4 some reason :(
Top
User avatar
nightclaw
Posts: 123
Joined: Sun Sep 02, 2012 4:39 am

Re: need help please with a DOD Script

#6 Post by nightclaw » Sat Sep 22, 2012 8:04 pm

i still need help fixing dod script
please help
Top
User avatar
lisa
Posts: 8332
Joined: Tue Nov 09, 2010 11:46 pm
Location: Australia

Re: need help please with a DOD Script

#7 Post by lisa » Sat Sep 22, 2012 8:53 pm

nightclaw wrote:i still need help fixing dod script
please help
if you got the script from a topic then it is usually a good idea to post issues in that topic so that the creator can help to fix it.

--=== Moved out of userfunction section ===--
Remember no matter you do in life to always have a little fun while you are at it ;)

wiki here http://www.solarstrike.net/wiki/index.php?title=Manual
Top
User avatar
nightclaw
Posts: 123
Joined: Sun Sep 02, 2012 4:39 am

Re: need help please with a DOD Script

#8 Post by nightclaw » Tue Sep 25, 2012 9:51 pm

i did but this is a edited V of it do to i dont have some the thing needed to run it way it was ...like gn detect or goodys and few others it works 4 most part it just stops after entering portal and gives error :( not sure what i did wrong
Top
kuripot
Posts: 493
Joined: Mon Nov 07, 2011 9:14 pm

Re: need help please with a DOD Script

#9 Post by kuripot » Tue Sep 25, 2012 11:07 pm

then post your error so we can help you.. the solution is base in the error appear in MM
Top
User avatar
nightclaw
Posts: 123
Joined: Sun Sep 02, 2012 4:39 am

Re: need help please with a DOD Script

#10 Post by nightclaw » Tue Sep 25, 2012 11:48 pm

i did post it on my 2nd post
Top
User avatar
rock5
Posts: 12173
Joined: Tue Jan 05, 2010 3:30 am
Location: Australia

Re: need help please with a DOD Script

#11 Post by rock5 » Wed Sep 26, 2012 1:35 am

You are missing the last 'end' in waypoint 5.
  • Please consider making a small donation to me to support my continued contributions to the bot and this forum. Thank you. Donate
  • I check all posts before reading PMs. So if you want a fast reply, don't PM me but post a topic instead. PM me for private or personal topics only.
  • How to: copy and paste in micromacro
    ________________________
    Quote:
    • “They say hard work never hurt anybody, but I figure, why take the chance.”
          • Ronald Reagan
Top
kuripot
Posts: 493
Joined: Mon Nov 07, 2011 9:14 pm

Re: need help please with a DOD Script

#12 Post by kuripot » Wed Sep 26, 2012 3:16 am

like this>>??

Code: Select all

   <!-- #  5 --><waypoint x="1793" z="2880" y="433" tag="exit">
      if __WPL.Direction == WPT_BACKWARD then
         __WPL:setForcedWaypointType("RUN")
         GoThroughPortal(200)
         player:update()
         if getZoneId() ~= 209 then
            if RoMScript("GetNumPartyMembers()") > 1 then
               RoMScript("LeaveParty()")
               waitForLoadingScreen(15)
            else
               RoMScript("SendWedgePointReport()")
               waitForLoadingScreen(75)
            end
            __WPL:setDirection(WPT_FORWARD)
         end
    end
   </waypoint>
Top
User avatar
rock5
Posts: 12173
Joined: Tue Jan 05, 2010 3:30 am
Location: Australia

Re: need help please with a DOD Script

#13 Post by rock5 » Wed Sep 26, 2012 4:04 am

Do you really need me to say "yes, like that"? Besides the fact that the tabbing makes it obvious that the first "if" statement doesn't have a corresponding "end", you could just run it to see if it works.
  • Please consider making a small donation to me to support my continued contributions to the bot and this forum. Thank you. Donate
  • I check all posts before reading PMs. So if you want a fast reply, don't PM me but post a topic instead. PM me for private or personal topics only.
  • How to: copy and paste in micromacro
    ________________________
    Quote:
    • “They say hard work never hurt anybody, but I figure, why take the chance.”
          • Ronald Reagan
Top
User avatar
nightclaw
Posts: 123
Joined: Sun Sep 02, 2012 4:39 am

Re: need help please with a DOD Script

#14 Post by nightclaw » Thu Sep 27, 2012 4:01 am

thax 4 the help all ok it works far as partying up entering and starts the attks all way to the 1st boss attkes him but when he jumps i start to runaway but then my char turns back and run right back under him and dies :( i have that mad man addon not sure whats going on any ideas?

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints>
<onLoad><![CDATA[
	DOD_SOLO = true
	DOD_PARTY_MEMBERS = {"Char1","Char2","Char3"}
	
	if not DOD_SOLO then
		SlashCommand("ILG on")
	end
	
	changeProfileOption("AUTO_ELITE_FACTOR",1000)
	changeProfileOption("LOOT_IN_COMBAT",false)
	
	if DOD_SOLO then
		if player.Name == "my alt here" then
			joinname = "may alt here"
		elseif player.Name == "Char3" then
			joinname = "Char4"
		else
			error("No party match!",0)
		end
	end
	
	function autoInvite()
		if DOD_SOLO then
			while ( RoMScript("GetNumPartyMembers()") > 1 ) do
				RoMScript("LeaveParty()")
				yrest(2000)
			end
			for i = 1, 3 do
				if( RoMScript("GetNumPartyMembers()") < 2 ) then
					RoMScript("InviteByName('"..joinname.."')")
					printf("Waiting for party join...\n")
				end
				yrest(2000)
				if RoMScript("GetNumPartyMembers()") > 1 then
					break
				end
				if i == 3 then
					error("Party join failed!",0)
				end
			end
		else
			while RoMScript("GetNumPartyMembers()") > 1 do
				SlashCommand("ILG destroy")
				cprintf(cli.yellow,"ILG destroy\n")
				yrest(2000)
			end
			SlashCommand("ILG inv")
			cprintf(cli.yellow,"ILG inv\n")
			yrest(2000)
			if RoMScript("GetNumPartyMembers()") <= #DOD_PARTY_MEMBERS then
				for i = 1, #DOD_PARTY_MEMBERS do
					cprintf(cli.yellow,"Inviting "..DOD_PARTY_MEMBERS[i].."\n")
					RoMScript("InviteByName('"..DOD_PARTY_MEMBERS[i].."')")
					yrest(2000)
				end
			end
		end
		RoMScript("SetInstanceLevel('easy')")
	end
	
	function waitForParty()
		repeat
			local we_ready = true
			player:update()
			for i = 1, #DOD_PARTY_MEMBERS do
				local _partymember = player:findNearestNameOrId(DOD_PARTY_MEMBERS[i])
				if not _partymember or (_partymember and distance(player.X,player.Z,player.Y,_partymember.X,_partymember.Z,_partymember.Y) > 150) then
					we_ready = false
					cprintf(cli.lightred,"Waiting for "..DOD_PARTY_MEMBERS[i].."\n")
				end
			end
			yrest(2000)
		until we_ready
		cprintf(cli.lightgreen,"Party is ready!\n")
	end
	
	function CountObjectsNearPoint(_nameorid, _point, inrange, printnames)
		if type(_point) ~= "table" then _point = {player.X,player.Z,player.Y} end
		local objectList = CObjectList();
		local detected = {}
	
		objectList:update()
		for i = 0,objectList:size() do
			local obj = objectList:getObject(i)
			if obj ~= nil and (obj.Id == _nameorid or obj.Name == _nameorid) and obj.Address ~= player.Address and obj.Name ~= "<UNKNOWN>" and (inrange == nil or inrange >= distance(_point.X,_point.Z,_point.Y,obj.X,obj.Z,obj.Y) ) then
				if printnames then
					table.insert(detected,obj.Name)
				end
			end
		end
		if #detected > 0 then
			cprintf(cli.yellow,"Objects in range:\n")
			for i = 1, #detected do
				cprintf(cli.pink,detected[i].."\t")
			end
			printf("\n")
		end
		return #detected
	end
	
	npcName = GetIdName(115536) -- Isaac Haden
	function visitmerchant()
		if inventory:getMainHandDurability() < 95 or inventory:itemTotalCount(0) < 12 then
			return true
		else
			return false
		end
	end
	mentos = 0
]]></onLoad>
	<!-- #  1 --><waypoint x="1645" z="-4908" y="752">
		__WPL:setDirection(WPT_FORWARD)
		if visitmerchant() then
			__WPL:setWaypointIndex(11)
		end
	</waypoint>
	<!-- #  2 --><waypoint x="1662" z="-4970" y="760">	</waypoint>
	<!-- #  3 --><waypoint x="1660" z="-5072" y="760">	</waypoint>
	<!-- #  4 --><waypoint x="1667" z="-5124" y="761" tag="entrance">
		if not DOD_SOLO then waitForParty() end
		__WPL:setForcedWaypointType("RUN")
		autoInvite()
		if not DOD_SOLO then sendPartyChat("enter") end
		GoThroughPortal(200)
		__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
	</waypoint>
	<!-- #  5 --><waypoint x="1793" z="2880" y="433" tag="exit">
      if __WPL.Direction == WPT_BACKWARD then
         __WPL:setForcedWaypointType("RUN")
         GoThroughPortal(200)
         player:update()
         if getZoneId() ~= 209 then
            if RoMScript("GetNumPartyMembers()") > 1 then
               RoMScript("LeaveParty()")
               waitForLoadingScreen(15)
            else
               RoMScript("SendWedgePointReport()")
               waitForLoadingScreen(75)
            end
            __WPL:setDirection(WPT_FORWARD)
         end
    end
   </waypoint>
	<!-- #  6 --><waypoint x="1892" z="2887" y="433">	</waypoint>
	<!-- #  7 --><waypoint x="2043" z="2699" y="433">	</waypoint>
	<!-- #  8 --><waypoint x="2124" z="2602" y="432">
		if __WPL.Direction == WPT_FORWARD then
			mentos = inventory:itemTotalCount("Ancient Memento")
			if not DOD_SOLO then
				waitForParty()
				sendPartyChat("okander")
			end
		end
	</waypoint>
	<!-- #  9 --><waypoint x="2153" z="2569" y="421">	</waypoint>
	<!-- # 10 --><waypoint x="2331" z="2361" y="401" tag="okander">
		if CountObjectsNearPoint("Okander") > 0 then
			if not player.Battling then
				yrest(250)
			end
			__WPL:setWaypointIndex(10)
		else
			__WPL:setDirection(WPT_BACKWARD)
			repeat
				yrest(500*math.random(4))
				local okander = player:findNearestNameOrId("Okander")
				if not okander then break end
				player:target(okander)
				player:update()
				player:loot()
			until inventory:itemTotalCount("Ancient Memento") > mentos
		end
	</waypoint>
	
	<!-- # 11 --><waypoint x="1704" z="-4756" y="752" tag="merchant">
		player:merchant(npcName)
		RoMScript("CloseAllWindows()")
		__WPL:setWaypointIndex(2)
	</waypoint>
	
	<!-- To the Sewers -->
	<!-- #  1 --><waypoint x="-3813" z="5117" y="19" tag="res">
		__WPL:setForcedWaypointType("RUN")
		player:mount()
	</waypoint>
	<!-- #  2 --><waypoint x="-3722" z="5220" y="12">	</waypoint>
	<!-- #  3 --><waypoint x="-3664" z="5311" y="11">	</waypoint>
	<!-- #  4 --><waypoint x="-3564" z="5362" y="11">	</waypoint>
	<!-- #  5 --><waypoint x="-3458" z="5434" y="9">	</waypoint>
	<!-- #  6 --><waypoint x="-3356" z="5530" y="10">	</waypoint>
	<!-- #  7 --><waypoint x="-3252" z="5629" y="3">	</waypoint>
	<!-- #  8 --><waypoint x="-3164" z="5736" y="4">	</waypoint>
	<!-- #  9 --><waypoint x="-3025" z="5864" y="2">	</waypoint>
	<!-- # 10 --><waypoint x="-2903" z="5980" y="10">	</waypoint>
	<!-- # 11 --><waypoint x="-2842" z="6059" y="9">	</waypoint>
	<!-- # 12 --><waypoint x="-2782" z="6170" y="10">	</waypoint>
	<!-- # 13 --><waypoint x="-2712" z="6284" y="4">	</waypoint>
	<!-- # 14 --><waypoint x="-2622" z="6353" y="6">	</waypoint>
	<!-- # 15 --><waypoint x="-2524" z="6397" y="15">	</waypoint>
	<!-- # 16 --><waypoint x="-2469" z="6465" y="19">	</waypoint>
	<!-- # 17 --><waypoint x="-2472" z="6526" y="30">	</waypoint>
	<!-- # 18 --><waypoint x="-2517" z="6567" y="38">	</waypoint>
	<!-- # 19 --><waypoint x="-2595" z="6612" y="49">	</waypoint>
	<!-- # 20 --><waypoint x="-2726" z="6687" y="32">	</waypoint>
	<!-- # 21 --><waypoint x="-2786" z="6721" y="42">	</waypoint>
	<!-- # 22 --><waypoint x="-2847" z="6764" y="40">	</waypoint>
	<!-- # 23 --><waypoint x="-2865" z="6824" y="40">	</waypoint>
	<!-- # 24 --><waypoint x="-2826" z="6956" y="40">	</waypoint>
	<!-- # 25 --><waypoint x="-2851" z="7047" y="15">	</waypoint>
	<!-- # 26 --><waypoint x="-2838" z="7121" y="-24">	</waypoint>
	<!-- # 27 --><waypoint x="-2912" z="7231" y="-96">
		GoThroughPortal(200)
		__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
	</waypoint>
	<!-- # 28 --><waypoint x="43" z="-882" y="857">
		local jake = GetIdName(115572)
		NPCTeleport(jake,"Please transport me.")
		__WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
	</waypoint>
	
</waypoints>
Top
User avatar
nightclaw
Posts: 123
Joined: Sun Sep 02, 2012 4:39 am

Re: need help please with a DOD Script

#15 Post by nightclaw » Thu Oct 04, 2012 4:29 am

ok i got it working but after just 1 run it reparty and go in instance and then just run right back out over and over so i only get 1 good run what did i do now :I

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints>
<onLoad><![CDATA[
   DOD_SOLO = true
   DOD_PARTY_MEMBERS = {"Char1","Char2","Char3"}
   
   if not DOD_SOLO then
      SlashCommand("ILG on")
   end
   
   changeProfileOption("AUTO_ELITE_FACTOR",1000)
   changeProfileOption("LOOT_IN_COMBAT",false)
   
   if DOD_SOLO then
      if player.Name == "main char name here" then
         joinname = "Alts name here"
      elseif player.Name == "Char3" then
         joinname = "Char4"
      else
         error("No party match!",0)
      end
   end
   
   function autoInvite()
      if DOD_SOLO then
         while ( RoMScript("GetNumPartyMembers()") > 1 ) do
            RoMScript("LeaveParty()")
            yrest(2000)
         end
         for i = 1, 3 do
            if( RoMScript("GetNumPartyMembers()") < 2 ) then
               RoMScript("InviteByName('"..joinname.."')")
               printf("Waiting for party join...\n")
            end
            yrest(2000)
            if RoMScript("GetNumPartyMembers()") > 1 then
               break
            end
            if i == 3 then
               error("Party join failed!",0)
            end
         end
      else
         while RoMScript("GetNumPartyMembers()") > 1 do
            SlashCommand("ILG destroy")
            cprintf(cli.yellow,"ILG destroy\n")
            yrest(2000)
         end
         SlashCommand("ILG inv")
         cprintf(cli.yellow,"ILG inv\n")
         yrest(2000)
         if RoMScript("GetNumPartyMembers()") <= #DOD_PARTY_MEMBERS then
            for i = 1, #DOD_PARTY_MEMBERS do
               cprintf(cli.yellow,"Inviting "..DOD_PARTY_MEMBERS[i].."\n")
               RoMScript("InviteByName('"..DOD_PARTY_MEMBERS[i].."')")
               yrest(2000)
            end
         end
      end
      RoMScript("SetInstanceLevel('easy')")
   end
   
   function waitForParty()
      repeat
         local we_ready = true
         player:update()
         for i = 1, #DOD_PARTY_MEMBERS do
            local _partymember = player:findNearestNameOrId(DOD_PARTY_MEMBERS[i])
            if not _partymember or (_partymember and distance(player.X,player.Z,player.Y,_partymember.X,_partymember.Z,_partymember.Y) > 150) then
               we_ready = false
               cprintf(cli.lightred,"Waiting for "..DOD_PARTY_MEMBERS[i].."\n")
            end
         end
         yrest(2000)
      until we_ready
      cprintf(cli.lightgreen,"Party is ready!\n")
   end
   
   function CountObjectsNearPoint(_nameorid, _point, inrange, printnames)
      if type(_point) ~= "table" then _point = {player.X,player.Z,player.Y} end
      local objectList = CObjectList();
      local detected = {}
   
      objectList:update()
      for i = 0,objectList:size() do
         local obj = objectList:getObject(i)
         if obj ~= nil and (obj.Id == _nameorid or obj.Name == _nameorid) and obj.Address ~= player.Address and obj.Name ~= "<UNKNOWN>" and (inrange == nil or inrange >= distance(_point.X,_point.Z,_point.Y,obj.X,obj.Z,obj.Y) ) then
            if printnames then
               table.insert(detected,obj.Name)
            end
         end
      end
      if #detected > 0 then
         cprintf(cli.yellow,"Objects in range:\n")
         for i = 1, #detected do
            cprintf(cli.pink,detected[i].."\t")
         end
         printf("\n")
      end
      return #detected
   end
   
   npcName = GetIdName(115536) -- Isaac Haden
   function visitmerchant()
      if inventory:getMainHandDurability() < 95 or inventory:itemTotalCount(0) < 12 then
         return true
      else
         return false
      end
   end
   mentos = 0
]]></onLoad>
   <!-- #  1 --><waypoint x="1645" z="-4908" y="752">
      __WPL:setDirection(WPT_FORWARD)
      if visitmerchant() then
         __WPL:setWaypointIndex(11)
      end
   </waypoint>
   <!-- #  2 --><waypoint x="1662" z="-4970" y="760">   </waypoint>
   <!-- #  3 --><waypoint x="1660" z="-5072" y="760">   </waypoint>
   <!-- #  4 --><waypoint x="1667" z="-5124" y="761" tag="entrance">
      if not DOD_SOLO then waitForParty() end
      __WPL:setForcedWaypointType("RUN")
      autoInvite()
      if not DOD_SOLO then sendPartyChat("enter") end
      GoThroughPortal(200)
      __WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
   </waypoint>
   <!-- #  5 --><waypoint x="1793" z="2880" y="433" tag="exit">
      if __WPL.Direction == WPT_BACKWARD then
         __WPL:setForcedWaypointType("RUN")
         GoThroughPortal(200)
         player:update()
         if getZoneId() ~= 209 then
            if RoMScript("GetNumPartyMembers()") > 1 then
               RoMScript("LeaveParty()")
               waitForLoadingScreen(15)
            else
               RoMScript("SendWedgePointReport()")
               waitForLoadingScreen(75)
            end
            __WPL:setDirection(WPT_FORWARD)
         end
    end
   </waypoint>
   <!-- #  6 --><waypoint x="1892" z="2887" y="433">   </waypoint>
   <!-- #  7 --><waypoint x="2043" z="2699" y="433">   </waypoint>
   <!-- #  8 --><waypoint x="2124" z="2602" y="432">
      if __WPL.Direction == WPT_FORWARD then
         mentos = inventory:itemTotalCount("Ancient Memento")
         if not DOD_SOLO then
            waitForParty()
            sendPartyChat("okander")
         end
      end
   </waypoint>
   <!-- #  9 --><waypoint x="2153" z="2569" y="421">   </waypoint>
   <!-- # 10 --><waypoint x="2331" z="2361" y="401" tag="okander">
      if CountObjectsNearPoint("Okander") > 0 then
         if not player.Battling then
            yrest(250)
         end
         __WPL:setWaypointIndex(10)
      else
         __WPL:setDirection(WPT_BACKWARD)
         repeat
            yrest(500*math.random(4))
            local okander = player:findNearestNameOrId("Okander")
            if not okander then break end
            player:target(okander)
            player:update()
            player:loot()
         until inventory:itemTotalCount("Ancient Memento") > mentos
      end
   </waypoint>
   
   <!-- # 11 --><waypoint x="1704" z="-4756" y="752" tag="merchant">
      player:merchant(npcName)
      RoMScript("CloseAllWindows()")
      __WPL:setWaypointIndex(2)
   </waypoint>
   
   <!-- To the Sewers -->
   <!-- #  1 --><waypoint x="-3813" z="5117" y="19" tag="res">
      __WPL:setForcedWaypointType("RUN")
      player:mount()
   </waypoint>
   <!-- #  2 --><waypoint x="-3722" z="5220" y="12">   </waypoint>
   <!-- #  3 --><waypoint x="-3664" z="5311" y="11">   </waypoint>
   <!-- #  4 --><waypoint x="-3564" z="5362" y="11">   </waypoint>
   <!-- #  5 --><waypoint x="-3458" z="5434" y="9">   </waypoint>
   <!-- #  6 --><waypoint x="-3356" z="5530" y="10">   </waypoint>
   <!-- #  7 --><waypoint x="-3252" z="5629" y="3">   </waypoint>
   <!-- #  8 --><waypoint x="-3164" z="5736" y="4">   </waypoint>
   <!-- #  9 --><waypoint x="-3025" z="5864" y="2">   </waypoint>
   <!-- # 10 --><waypoint x="-2903" z="5980" y="10">   </waypoint>
   <!-- # 11 --><waypoint x="-2842" z="6059" y="9">   </waypoint>
   <!-- # 12 --><waypoint x="-2782" z="6170" y="10">   </waypoint>
   <!-- # 13 --><waypoint x="-2712" z="6284" y="4">   </waypoint>
   <!-- # 14 --><waypoint x="-2622" z="6353" y="6">   </waypoint>
   <!-- # 15 --><waypoint x="-2524" z="6397" y="15">   </waypoint>
   <!-- # 16 --><waypoint x="-2469" z="6465" y="19">   </waypoint>
   <!-- # 17 --><waypoint x="-2472" z="6526" y="30">   </waypoint>
   <!-- # 18 --><waypoint x="-2517" z="6567" y="38">   </waypoint>
   <!-- # 19 --><waypoint x="-2595" z="6612" y="49">   </waypoint>
   <!-- # 20 --><waypoint x="-2726" z="6687" y="32">   </waypoint>
   <!-- # 21 --><waypoint x="-2786" z="6721" y="42">   </waypoint>
   <!-- # 22 --><waypoint x="-2847" z="6764" y="40">   </waypoint>
   <!-- # 23 --><waypoint x="-2865" z="6824" y="40">   </waypoint>
   <!-- # 24 --><waypoint x="-2826" z="6956" y="40">   </waypoint>
   <!-- # 25 --><waypoint x="-2851" z="7047" y="15">   </waypoint>
   <!-- # 26 --><waypoint x="-2838" z="7121" y="-24">   </waypoint>
   <!-- # 27 --><waypoint x="-2912" z="7231" y="-96">
      GoThroughPortal(200)
      __WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
   </waypoint>
   <!-- # 28 --><waypoint x="43" z="-882" y="857">
      local jake = GetIdName(115572)
      NPCTeleport(jake,"Please transport me.")
      __WPL:setWaypointIndex(__WPL:getNearestWaypoint(player.X,player.Z,player.Y))
   </waypoint>
   
</waypoints>

pleassssss help me its so close to working fully and simply
Top
brujilla
Posts: 46
Joined: Fri Jun 17, 2011 4:56 am

Re: need help please with a DOD Script

#16 Post by brujilla » Thu Oct 04, 2012 5:53 am

I have a problem, i use one script that post here but when i follow only write
Waiting for leader..
waiting for leader...
but do nothing
what happend? something that not haver , userfunction?
my leader its santurron, see waipoint
Attachments
DoD_Follower.xml
(6.84 KiB) Downloaded 114 times
Top
User avatar
nightclaw
Posts: 123
Joined: Sun Sep 02, 2012 4:39 am

Re: need help please with a DOD Script

#17 Post by nightclaw » Thu Oct 04, 2012 6:22 am

sorry thats not my script i do leader only scripte u need the other post that has a leader and follower scripts mine is just a single char with alt party in home so u farm if i get help fix + my script simple as i can get at lest i trying to do that :/

this is post u want
http://solarstrike.net/phpBB3/viewtopic.php?f=27&t=4070
Top
User avatar
nightclaw
Posts: 123
Joined: Sun Sep 02, 2012 4:39 am

Re: need help please with a DOD Script

#18 Post by nightclaw » Sat Oct 06, 2012 2:28 am

come on can someone please help with this issue got it working up to 1 run then stops and just goes in out instances please help u great gods of coding
Top
kuripot
Posts: 493
Joined: Mon Nov 07, 2011 9:14 pm

Re: need help please with a DOD Script

#19 Post by kuripot » Sat Oct 06, 2012 7:39 am

before nothing else,,, can i ask the question?... what your class combi? and you run dod solo and the other is only in other place just to reset the party?? or the party member together in dod


if you do dod with party member inside.. you need dodleader.xml for your main and dodfollower.xml for the alt and indicate the name of party member to dodleader and indicate the name of your main in dodfollower
Top
User avatar
nightclaw
Posts: 123
Joined: Sun Sep 02, 2012 4:39 am

Re: need help please with a DOD Script

#20 Post by nightclaw » Sun Oct 07, 2012 1:07 am

i run a champ/rogue and i have alt i use to just to reset the instance ...he runs fine 1st go go in portal kills boss goes out and unparty and then reparty gos back in but on this time it go right back out and then resets party goes back in and out........so it works just 4 some reason starts going in out out blue on 2nd run :(
Top
Post Reply

Return to “Runes of Magic”



Who is online

Users browsing this forum: No registered users and 143 guests