Macro help please. (1 Viewer)

eqsolo99 · Nov 20, 2005

Sorry i didnt know how to get it in that scroll window. Could someone help please? I editted that macro that goes from bazaar to SH doing merchant faction quest. Now its supposed to do the House of Stout faction quest. But when it gets to bazaar for turn in it rams wall could someone tell me how to fix it please i tried the very little i know.

| SH.mac
| Works on your Shadow Haven Faction for merchents.
| Version 1.0
| Date: August 18, 2004
|
| Be sure to check out my other macros at http://www.soc-music.com/mq2/index.htm
|
| You WILL need to in front of Gearo in the bazaar before you start it.
|
| Disclaimer:
| Code was used from other programers also from the MQ Forums.
|

Sub Main

/declare Location int inner

/call ReadINI goods.ini "Shadow Haven"
/if (!${Defined[SHArray]}) {
/echo No SH Array Created...
/endmacro
}

/call ReadINI goods.ini "The Bazaar"
/if (!${Defined[BazArray]}) {
/echo No Baz Array Created...
/endmacro
}
:start
/target Hardam
/face
/nomodkey /say ill take the goods
/delay 1s
/if (!${Window[InventoryWindow].Open}) /nomodkey /keypress inventory
/delay 2s
/autoinv
/delay 2s
/call GMCheck
/for Location 1 to ${Bazarray.Size}
:MoveLoopBaz
/if (${Zone.Name.Equal[Shadow Haven]}) /goto :SH
/face nolook loc ${BazArray[${Location}]}
/if (${Math.Distance[${BazArray[${Location}]}]}>4) {
/nomodkey /keypress forward hold
/face nolook loc ${BazArray[${Location}]}
/look
}
/if (${Math.Distance[${BazArray[${Location}]}]}<=4) {
/nomodkey /keypress forward
/goto :next
}
/goto :MoveLoopBaz
:next
/delay 1s
/next Location
:SH
/for Location 2 to ${SHArray.Size}
:MoveLoopSH
/face nolook loc ${SHArray[${Location}]}
/if (${Math.Distance[${SHArray[${Location}]}]}>4) {
/nomodkey /keypress forward hold
/face nolook loc ${SHArray[${Location}]}
/look
/if (${Location}==2) /keypress u
}
/if (${Math.Distance[${SHArray[${Location}]}]}<=4) {
/nomodkey /keypress forward
/goto :nexta
}
/goto :MoveLoopSH
:nexta
/delay 1s
/next Location
/target Hardam
/face
/delay 1s
/call OpenPacks
/delay 1s
/nomodkey /itemnotify ${FindItem[=Hardams box of goods].InvSlot} leftmouseup
/delay 2s
/click left target
/delay 2s
/notify GiveWnd GVW_Give_Button leftmouseup
/delay 1s
/call ClosePacks
/delay 1s
/say ill take the goods
/delay 2s
/autoinv
/delay 2s
/varset Location ${SHArray.Size}
:SHa
/if (${Location}>0) {
:MoveLoopSHa
/if (${Zone.Name.Equal[The Bazaar]}) /goto

oneSH
/face nolook loc ${SHArray[${Location}]}
/if (${Math.Distance[${SHArray[${Location}]}]}>4) {
/nomodkey /keypress forward hold
/face nolook loc ${SHArray[${Location}]}
/look
/if (${Location}==13) /keypress u
}
/if (${Math.Distance[${SHArray[${Location}]}]}<=4) {
/nomodkey /keypress forward
/goto :nextc
}
/goto :MoveLoopSHa
:nextc
/delay 1s
/varset Location ${Math.Calc[${Location}-1]}
/goto :SHa
}

oneSH
/varset Location ${Math.Calc[${BazArray.Size}-1]}
:Baza
/if (${Location}>0) {
:MoveLoopBaza
/face nolook loc ${BazArray[${Location}]}
/if (${Math.Distance[${BazArray[${Location}]}]}>4) {
/nomodkey /keypress forward hold
/face nolook loc ${BazArray[${Location}]}
/look
}
/if (${Math.Distance[${BazArray[${Location}]}]}<=4) {
/nomodkey /keypress forward
/goto :nextb
}
/goto :MoveLoopBaza
:nextb
/delay 1s
/varset Location ${Math.Calc[${Location}-1]}
/goto :Baza
}
/target Faeroi
/face
/delay 1s
/call OpenPacks
/delay 1s
/nomodkey /itemnotify ${FindItem[=Hardams box of goods].InvSlot} leftmouseup
/delay 2s
/click left target
/delay 2s
/notify GiveWnd GVW_Give_Button leftmouseup
/delay 1s
/call ClosePacks

/goto :start
/return

Sub GMCheck
:gmcheck
/if (${Spawn[gm].ID}>0) {
/echo "Waiting on GM to leave zone."
/delay 10
/goto :gmcheck
}
/return

Sub ReadINI(FileName,SectionName)
/echo Attempting to Read Section "${SectionName}" Zone Information from ${FileName}...
/delay 1s

/if (${Ini[${FileName},${SectionName},-1,NO].Equal[NO]}) {
/echo "${SectionName}" is not a Valid Section for FILE:${FileName}, ending macro...
/delay 1s
/return
}
/declare nValues int local 1
/declare nArray int local 0
/declare KeySet string local ${Ini[${FileName},${SectionName}]}

| ****************** Locs ****************************
:CounterLooplo
/if (${String[${Ini[${FileName},${SectionName},Loc${nValues}]}].Equal[null]}) {
/varcalc nValues ${nValues}-1
/goto :MakeArraylo
}
/varcalc nValues ${nValues}+1
/goto :CounterLooplo
:MakeArraylo
/if (!${nValues}) /return
/if (${nValues}>0) {
/echo Declaring Loc Array...
/if (${SectionName.Equal[Shadow Haven]}) /declare SHArray[${nValues}] string outer
/if (${SectionName.Equal[The Bazaar]}) /declare BazArray[${nValues}] string outer
}
/for nArray 1 to ${nValues}
/if (${SectionName.Equal[Shadow Haven]}) /varset SHArray[${nArray}] ${Ini[${FileName},${SectionName},Loc${nArray}]}
/if (${SectionName.Equal[The Bazaar]}) /varset BazArray[${nArray}] ${Ini[${FileName},${SectionName},Loc${nArray}]}
/next nArray

/echo "${SectionName}" Zone Information Read Successfully from ${FileName}...
/delay 1s
/return

Sub OpenPacks
/declare bag int local 0
/declare check int local 0
/newif (!${Window[InventoryWindow].Open}) /nomodkey /keypress inventory
/delay 1s
/for bag 1 to 8 step 1
/newif (${Window[Pack${bag}].Open}==FALSE) /nomodkey /itemnotify pack${bag} rightmouseup
/next bag
/delay 1s
/for check 1 to 9 step 1
/if (${Window[TradeskillWnd].Open}) {
/nomodkey /notify TradeskillWnd ExperimentButton leftmousehold
/nomodkey /notify TradeskillWnd ExperimentButton leftmouseup
}
/next check
/delay 1s
/return

Sub ClosePacks
/declare bag int local 0
/newif (!${Window[InventoryWindow].Open}) /nomodkey /keypress inventory
/delay 1s
/for bag 1 to 8 step 1
/newif (${Window[Pack${bag}].Open}==TRUE) /nomodkey /itemnotify pack${bag} rightmouseup
/next bag
/delay 1s
/newif (${Window[InventoryWindow].Open}) /nomodkey /keypress inventory
/delay 1s
/return

and ini

[Shadow Haven]
Loc1=-616.42, 1468.97
Loc2=-314.24, 1491.12
Loc3=-334.69, 1521.64
Loc4=-290.73, 1537.36
Loc5=-284.45, 1564.40
Loc6=-258.86, 1568.06
Loc7=-255.96, 1489.43
Loc8=-159.05, 1501.36
Loc9=-109.66, 1544.52
Loc10=61.46, 1563.47
Loc11=99.19, 1138.61
Loc12=162.11, 1084.03
Loc13=138.48, 965.24
Loc14=60.08, 848.48
Loc15=68.94, 637.63
Loc16=88.96, 648.79
Loc17=96.58, 707.85
Loc18=295.44, 740.89
Loc19=350.00, 900.00

[The Bazaar]
Loc1=-183.12, -353.19
Loc2=-153.12, -353.19
Loc3=-155.03, -305.91
Loc4=-110.32, -272.13
Loc5=-0.29, -270.36
Loc6=-1.42, -100.09
Loc7=15.08, -29.04
Loc8=20.13, -11.58

codecaster · Nov 20, 2005

1. The most likely cause of the issue is that this macro was designed for the old bazaar. Since the layout changed, you'll have to record a new advpath to the quest NPCs.

2.

Rich (BB code):

 is the tag that will allow you to put your code in a code box.

3. Questions go in the questions forum.

Kthx.  ;) 

-CodeCaster

ss44 · Nov 20, 2005

Rich (BB code):

| SH.mac
| Works on your Shadow Haven Faction for merchents.
| Version 1.0
| Date: August 18, 2004
|
| Be sure to check out my other macros at http://www.soc-music.com/mq2/index.htm
|
| You WILL need to in front of Gearo in the bazaar before you start it.
|
| Disclaimer:
| Code was used from other programers also from the MQ Forums.
|

Sub Main

/declare Location int inner

/call ReadINI goods.ini "Shadow Haven"
/if (!${Defined[SHArray]}) {
/echo No SH Array Created...
/endmacro
}

/call ReadINI goods.ini "The Bazaar"
/if (!${Defined[BazArray]}) {
/echo No Baz Array Created...
/endmacro
}
:start
/target Hardam
/face
/nomodkey /say ill take the goods
/delay 1s
/if (!${Window[InventoryWindow].Open}) /nomodkey /keypress inventory
/delay 2s
/autoinv
/delay 2s
/call GMCheck
/for Location 1 to ${Bazarray.Size}
:MoveLoopBaz
/if (${Zone.Name.Equal[Shadow Haven]}) /goto :SH
/face nolook loc ${BazArray[${Location}]}
/if (${Math.Distance[${BazArray[${Location}]}]}>4) {
/nomodkey /keypress forward hold
/face nolook loc ${BazArray[${Location}]}
/look
}
/if (${Math.Distance[${BazArray[${Location}]}]}<=4) {
/nomodkey /keypress forward
/goto :next
}
/goto :MoveLoopBaz
:next
/delay 1s
/next Location
:SH
/for Location 2 to ${SHArray.Size}
:MoveLoopSH
/face nolook loc ${SHArray[${Location}]}
/if (${Math.Distance[${SHArray[${Location}]}]}>4) {
/nomodkey /keypress forward hold
/face nolook loc ${SHArray[${Location}]}
/look
/if (${Location}==2) /keypress u
}
/if (${Math.Distance[${SHArray[${Location}]}]}<=4) {
/nomodkey /keypress forward
/goto :nexta
}
/goto :MoveLoopSH
:nexta
/delay 1s
/next Location
/target Hardam
/face
/delay 1s
/call OpenPacks
/delay 1s
/nomodkey /itemnotify ${FindItem[=Hardams box of goods].InvSlot} leftmouseup
/delay 2s
/click left target
/delay 2s
/notify GiveWnd GVW_Give_Button leftmouseup
/delay 1s
/call ClosePacks
/delay 1s
/say ill take the goods
/delay 2s
/autoinv
/delay 2s
/varset Location ${SHArray.Size}
:SHa
/if (${Location}>0) { 
:MoveLoopSHa
/if (${Zone.Name.Equal[The Bazaar]}) /goto oneSH
/face nolook loc ${SHArray[${Location}]}
/if (${Math.Distance[${SHArray[${Location}]}]}>4) {
/nomodkey /keypress forward hold
/face nolook loc ${SHArray[${Location}]}
/look
/if (${Location}==13) /keypress u
}
/if (${Math.Distance[${SHArray[${Location}]}]}<=4) {
/nomodkey /keypress forward
/goto :nextc
}
/goto :MoveLoopSHa
:nextc
/delay 1s
/varset Location ${Math.Calc[${Location}-1]}
/goto :SHa
}
oneSH
/varset Location ${Math.Calc[${BazArray.Size}-1]}
:Baza
/if (${Location}>0) { 
:MoveLoopBaza
/face nolook loc ${BazArray[${Location}]}
/if (${Math.Distance[${BazArray[${Location}]}]}>4) {
/nomodkey /keypress forward hold
/face nolook loc ${BazArray[${Location}]}
/look
}
/if (${Math.Distance[${BazArray[${Location}]}]}<=4) {
/nomodkey /keypress forward
/goto :nextb
}
/goto :MoveLoopBaza
:nextb
/delay 1s
/varset Location ${Math.Calc[${Location}-1]}
/goto :Baza
}
/target Faeroi
/face
/delay 1s
/call OpenPacks
/delay 1s
/nomodkey /itemnotify ${FindItem[=Hardams box of goods].InvSlot} leftmouseup
/delay 2s
/click left target
/delay 2s
/notify GiveWnd GVW_Give_Button leftmouseup
/delay 1s
/call ClosePacks

/goto :start
/return

Sub GMCheck
:gmcheck
/if (${Spawn[gm].ID}>0) {
/echo "Waiting on GM to leave zone."
/delay 10
/goto :gmcheck
}
/return



Sub ReadINI(FileName,SectionName)
/echo Attempting to Read Section "${SectionName}" Zone Information from ${FileName}...
/delay 1s

/if (${Ini[${FileName},${SectionName},-1,NO].Equal[NO]}) {
/echo "${SectionName}" is not a Valid Section for FILE:${FileName}, ending macro...
/delay 1s
/return
}
/declare nValues int local 1
/declare nArray int local 0
/declare KeySet string local ${Ini[${FileName},${SectionName}]}

| ****************** Locs ****************************
:CounterLooplo
/if (${String[${Ini[${FileName},${SectionName},Loc${nValues}]}].Equal[null]}) {
/varcalc nValues ${nValues}-1
/goto :MakeArraylo
}
/varcalc nValues ${nValues}+1
/goto :CounterLooplo
:MakeArraylo
/if (!${nValues}) /return
/if (${nValues}>0) {
/echo Declaring Loc Array...
/if (${SectionName.Equal[Shadow Haven]}) /declare SHArray[${nValues}] string outer
/if (${SectionName.Equal[The Bazaar]}) /declare BazArray[${nValues}] string outer
}
/for nArray 1 to ${nValues}
/if (${SectionName.Equal[Shadow Haven]}) /varset SHArray[${nArray}] ${Ini[${FileName},${SectionName},Loc${nArray}]}
/if (${SectionName.Equal[The Bazaar]}) /varset BazArray[${nArray}] ${Ini[${FileName},${SectionName},Loc${nArray}]}
/next nArray



/echo "${SectionName}" Zone Information Read Successfully from ${FileName}...
/delay 1s
/return

Sub OpenPacks
/declare bag int local 0
/declare check int local 0
/newif (!${Window[InventoryWindow].Open}) /nomodkey /keypress inventory
/delay 1s
/for bag 1 to 8 step 1
/newif (${Window[Pack${bag}].Open}==FALSE) /nomodkey /itemnotify pack${bag} rightmouseup
/next bag
/delay 1s
/for check 1 to 9 step 1
/if (${Window[TradeskillWnd].Open}) {
/nomodkey /notify TradeskillWnd ExperimentButton leftmousehold
/nomodkey /notify TradeskillWnd ExperimentButton leftmouseup
}
/next check
/delay 1s
/return

Sub ClosePacks
/declare bag int local 0
/newif (!${Window[InventoryWindow].Open}) /nomodkey /keypress inventory
/delay 1s
/for bag 1 to 8 step 1
/newif (${Window[Pack${bag}].Open}==TRUE) /nomodkey /itemnotify pack${bag} rightmouseup
/next bag
/delay 1s
/newif (${Window[InventoryWindow].Open}) /nomodkey /keypress inventory
/delay 1s
/return 



and ini


[Shadow Haven]
Loc1=-616.42, 1468.97
Loc2=-314.24, 1491.12
Loc3=-334.69, 1521.64
Loc4=-290.73, 1537.36
Loc5=-284.45, 1564.40
Loc6=-258.86, 1568.06
Loc7=-255.96, 1489.43
Loc8=-159.05, 1501.36
Loc9=-109.66, 1544.52
Loc10=61.46, 1563.47
Loc11=99.19, 1138.61
Loc12=162.11, 1084.03
Loc13=138.48, 965.24
Loc14=60.08, 848.48
Loc15=68.94, 637.63
Loc16=88.96, 648.79
Loc17=96.58, 707.85
Loc18=295.44, 740.89
Loc19=350.00, 900.00


[The Bazaar]
Loc1=-183.12, -353.19
Loc2=-153.12, -353.19
Loc3=-155.03, -305.91
Loc4=-110.32, -272.13
Loc5=-0.29, -270.36
Loc6=-1.42, -100.09
Loc7=15.08, -29.04
Loc8=20.13, -11.58

To get it to look like the code above, just type (CODE) at beginning of code, and (/CODE) at the end. Take out the (-) and put in [-], i tried to do the real /CODE, but it showed up as.....code lol.

Mochila · Nov 20, 2005

Or just highlight what you want coded and click the "#" button on every post? Thats crazy I know.
Whats crazier is...
You can do it for quotes and html and php too!

<( ' ' <)
(> ' ' )>

Macro help please. (1 Viewer)

eqsolo99

New member

codecaster

Well-known member

ss44

Active member

Mochila

Users who are viewing this thread