• IS THIS SITE UGLY? Click "RG3" at the very bottom-left of this page to change it. To dismiss this notice, click the X --->
Resource icon

Unmaintained POKSell.mac 1.0

Download now: Join us with Level 2 access
or earn your way in with RedCents.
Software Requirements
[Plugins]
MQ2MoveUtils
Server Type
Live, Test Server
Not much to look at and could probably use some tweaks but I put this together to help with toons porting into PoK and selling their wares. Would druid or wizard port into PoK and got tired of manually running each toon to a vendor to sell. This picks randomly to go north or east to outside vendors, picks one and starts the sellstuff.mac with them. If it does you any good, then all the better and if you don't like it or have something better to share, please do so. :)

Rich (BB code):
| POKSell.mac 1.0 by Rustycat
|
| Simple macro that takes you from druid or wizard porting into PoKnowledge and
| randomly goes to one of 5 different vendors both north and east of the port in.
| Once at the vendor it will launch the sellstuff macro for you.
|__________________________________________________________________________________

#turbo

Sub Main

    /declare MoveToX int outer
    /declare MoveToY int outer

    /call ZoneCheck
  
    /target ${Me}
  
    /moveto distance 5
  
    /if (${Math.Rand[10]}<6) {
  
        /echo Going to vendors north of us.
        /call MovingNorth
  
        /return
    } else {
  
        /echo Going to vendors east of us.
        /call MovingEast
  
        /return
    }
  
    /endmacro
  
/return

Sub    MovingNorth

    /varcalc MoveToY ${Math.Rand[30]}-266
    /varcalc MoveToX ${Math.Rand[30]}+1353

    /moveto loc ${MoveToY}, ${MoveToX}
    :ncheckpoint1
    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :ncheckpoint1
  
    /varset MoveToY -175
    /varset MoveToX 1516
  
    /moveto loc ${MoveToY}, ${MoveToX}
    :ncheckpoint2
    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :ncheckpoint2
  
    /varcalc MoveToY (${Math.Rand[30]}-62)
    /varcalc MoveToX (${Math.Rand[10]}+1509)
  
    /moveto loc ${MoveToY}, ${MoveToX}
    :ncheckpoint3
    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :ncheckpoint3
  
    /if (${Math.Rand[10]}<6) {
  
        /face Peras Glickon
        /target Peras Glickon
        /moveto Peras Glickon
      
        /call SellStuff
  
    } else {
  
        /varcalc MoveToY (${Math.Rand[30]}-39)
        /varcalc MoveToX (${Math.Rand[10]}+1511)  
  
        /moveto loc ${MoveToY}, ${MoveToX}
        :ncheckpoint4
        /if (${MoveTo.Moving} || ${Me.Moving}) /goto :ncheckpoint4
      
        /face Darius Gandril
        /target Darius Gandril
        /moveto Darius Gandril
      
        /call SellStuff
  
    }
  
/return

Sub    MovingEast
  
    /varcalc MoveToY ${Math.Rand[30]}-359
    /varcalc MoveToX ${Math.Rand[30]}+1167

    /moveto loc ${MoveToY}, ${MoveToX}
    /echo moving to ${MoveToY} ${MoveToX}
    :echeckpoint1
    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :echeckpoint1

    /if (${Math.Rand[10]}<6) {
  
        /moveto loc -319, 992
        :echeckpointberina
        /if (${MoveTo.Moving} || ${Me.Moving}) /goto :echeckpointberina
      
        /target Brewmaster Berina
        /call SellStuff
  
    } else {
  
        /moveto loc -384, 986
        :echeckpoint2
        /if (${MoveTo.Moving} || ${Me.Moving}) /goto :echeckpoint2

        /moveto loc -339, 847
        :echeckpoint3
        /if (${MoveTo.Moving} || ${Me.Moving}) /goto :echeckpoint3
      
        /varcalc MoveToY ${Math.Rand[10]}-332
        /varcalc MoveToX ${Math.Rand[10]}+838

        /moveto loc ${MoveToY}, ${MoveToX}
        /echo moving to ${MoveToY} ${MoveToX}
        :echeckpoint4
        /if (${MoveTo.Moving} || ${Me.Moving}) /goto :echeckpoint4

        /declare SelectedVendor int
        /varcalc SelectedVendor ${Math.Rand[12]}
        /if (${SelectedVendor}<4) {
      
            /face Fletcher Lenvale
            /target Fletcher Lenvale
            /call SellStuff
          
        }
      
        /if (${SelectedVendor}<8) {
      
            /face Alchemist Redsa
            /target Alchemist Redsa
            /call SellStuff
          
        } else {

            /face Amile Pitt
            /target Amile Pitt
            /call SellStuff
          
        }      
  
    }


/endmacro

/return

Sub ZoneCheck

    /echo POKSell.mac 1.0 by Rustycat

    /if (${Zone.Name.Equal[The Plane of Knowledge]}) {
        /echo We're in PoKnowledge, lets sell some stuff already.
        /return
    } else {
        /echo We are not in the right zone.
        /echo You must be in The Plane of Knowledge for this macro.
        /endmacro
    }
    /echo All done.

/return

Sub SellStuff

    /mac sellstuff
  
/return
Enjoy,

-Rustycat
Author
Rustycat
Downloads
1
Views
4
First release
Last update
Rating
0.00 star(s) 0 ratings

More resources from Rustycat

Top