Moderator: MacroQuest Developers


Code: Select all
Sub Main
:start
/declare stupidnewbID global
/declare mymerchant global
/varset mymerchant "Guntak Mulehead"
/call NewbCheck
/delay 4
/goto :start
/return
Sub NewbCheck
:init
/if n $searchspawn(pc,loc:$spawn($searchspawn("@mymerchant"),x):$spawn($searchspawn("@mymerchant"),y),radius:101)!=0 {
/varset stupidnewbID $searchspawn(pc,loc:$spawn($searchspawn("@mymerchant"),x):$spawn($searchspawn("@mymerchant"),y),radius:101)
/echo waiting for $spawn(@stupidnewbID,name) to clear out... $spawn(@stupidnewbID,distance)
/delay 1s
/goto :init
}
/return
donations for this month's patches.Code: Select all
/echo $searchspawn(npc,loc:$target(x):$target(y),radius:40)
donations for this month's patches.


Code: Select all
Sub Count
|Usage -- /call Count <npc|pc> <radius>
/declare mobcounter local
/varset mobcounter 0
/alert clear 1
/alert add 1 id -1 |This line circumvents some bugginess with alerts.
/if $target()=="TRUE" /press esc
:CountLoop
/target @Param0 radius @Param1 noalert 1
/delay 3 |Tweakable.
/if $target()=="TRUE" {
/alert add 1 id $target(id)
/varadd mobcounter 1
/press esc
/goto :CountLoop
}
/echo @mobcounter mobs within @Param1 radius.
/return


Code: Select all
/alert add 1 id -1 |This line circumvents some bugginess with alerts.
donations for this month's patches.
Sigh... I give up... I just tried to use CVS to DL the latest MQ2 source but cannot find the connect string anywhere, seems the devs want us to use the zip file with MQ2.$searchspawn was bugged, and I fixed it, but then it became bugged again, so I fixed it again (today)... I tested it today with latest dev cvs and it works, I dont have time to update the zip, so you have to wait for one of the other devs to do it