Looking For Func

[alusion76]

Hi guys !
I'm restarting in script after 2 years of break.
I update them so, but I miss some function.
I started several bot to finish the different stories and I use mainly GwBible for it.
So I have a function to "wait" at a given location ( Useful to wait mobs and kill them)
But this function calls on another that I do not.
It is really useful because it allows me to follow a NPC or camp at coord.
If anyone among you got it?


I send you the part of the script for camp:

 Spoiler

; Will camp location for given amount of time, or until map loading / end of mission if no time given
Func CampCoords($cX, $cY, $Time = 0)
Local $MyMap = GetMapID(), $MyOldMap, $lMapLoading = GetMapLoading(), $lMapLoadingOld, $timer = 0
If $Time <> 0 Then
$timer = TimerInit()
EndIf

Do
SmartCast()
MoveTo($cX, $cY)
Sleep(5000)
$lMapLoadingOld = $lMapLoading
$lMapLoading = GetMapLoading()
$MyOldMap = $MyMap
$MyMap = GetMapID()
If $timer > $Time Then ExitLoop
If $MyOldMap <> $MyMap Then ExitLoop
If XLocation() == 0 Then ExitLoop
If $lMapLoading <> $lMapLoadingOld Then ExitLoop
Until IsPartyAlive() == False
EndFunc ;==>CampCoords

And for follow npc:

 Spoiler

; Will Camp or follow NPC of given ID for given amount of time, or until map loading / end of mission if no time given
Func CampNPC($NPCID, $Time = 0)
Local $MyMap = GetMapID(), $MyOldMap, $lMapLoading = GetMapLoading(), $lMapLoadingOld, $timer = 0
If $Time <> 0 Then
$timer = TimerInit()
EndIf
Do
SmartCast()
GoToNPC($NPCID)
Sleep(5000)
$lMapLoadingOld = $lMapLoading
$lMapLoading = GetMapLoading()
$MyOldMap = $MyMap
$MyMap = GetMapID()
If $timer > $Time Then ExitLoop
If $MyOldMap <> $MyMap Then ExitLoop
If XLocation() == 0 Then ExitLoop
If $lMapLoading <> $lMapLoadingOld Then ExitLoop
Until IsPartyAlive() == False
EndFunc ;==>CampNPC

And my problem is that, the bot crash because I do not have this function :
IsPartyAlive()

I think that it allows to continue the action, to follow or to wait, until change of map or the team dies.

If someone got it or use a different function ?

I can send you the complete script but there is a lot of work to be done.

And if someone wants to work with me to finish it quickly, it'll be really cool

[phat34]

towards top of code in gwbible...

GLOBAL $MPARTYARRAY[13]
$MPARTYARRAY=MEMORYREADAGENTPTRSTRUCT(2,219,1)

with pointer functions in gwbible...

FUNC MEMORYREADAGENTPTRSTRUCT($AMODE=0,$ATYPE=219,$AALLEGIANCE=3,$ADEAD=FALSE )
LOCAL $LMAXAGENTS=GETMAXAGENTS()
LOCAL $LAGENTPTRSTRUCT=DLLSTRUCTCREATE("PTR["&$LMAXAGENTS&"]")
DLLCALL($MKERNELHANDLE,"BOOL","ReadProcessMemory","HANDLE",$MGWPROCHANDLE,"PTR",MEMORYREAD($MAGENTBASE),"STRUCT*",$LAGENTPTRSTRUCT,"ULONG_PTR",$LMAXAGENTS*4,"ULONG_PTR*",0)
LOCAL $LTEMP
LOCAL $LAGENTARRAY[$LMAXAGENTS+1]
SWITCH $AMODE
CASE 0
FOR $I=1 TO $LMAXAGENTS
$LTEMP=DLLSTRUCTGETDATA($LAGENTPTRSTRUCT,1,$I)
IF $LTEMP=0 THEN CONTINUELOOP
$LAGENTARRAY[0]+=1
$LAGENTARRAY[$LAGENTARRAY[0]]=$LTEMP
NEXT
CASE 1
FOR $I=1 TO $LMAXAGENTS
$LTEMP=DLLSTRUCTGETDATA($LAGENTPTRSTRUCT,1,$I)
IF $LTEMP=0 THEN CONTINUELOOP
IF MEMORYREAD($LTEMP+156,"long")<>$ATYPE THEN CONTINUELOOP
$LAGENTARRAY[0]+=1
$LAGENTARRAY[$LAGENTARRAY[0]]=$LTEMP
NEXT
CASE 2
FOR $I=1 TO $LMAXAGENTS
$LTEMP=DLLSTRUCTGETDATA($LAGENTPTRSTRUCT,1,$I)
IF $LTEMP=0 THEN CONTINUELOOP
IF MEMORYREAD($LTEMP+156,"long")<>$ATYPE THEN CONTINUELOOP
IF MEMORYREAD($LTEMP+433,"byte")<>$AALLEGIANCE THEN CONTINUELOOP
$LAGENTARRAY[0]+=1
$LAGENTARRAY[$LAGENTARRAY[0]]=$LTEMP
NEXT
CASE 3
FOR $I=1 TO $LMAXAGENTS
$LTEMP=DLLSTRUCTGETDATA($LAGENTPTRSTRUCT,1,$I)
IF $LTEMP=0 THEN CONTINUELOOP
IF MEMORYREAD($LTEMP+156,"long")<>$ATYPE THEN CONTINUELOOP
IF MEMORYREAD($LTEMP+433,"byte")<>$AALLEGIANCE THEN CONTINUELOOP
IF MEMORYREAD($LTEMP+304,"float")<=0 THEN CONTINUELOOP
$LAGENTARRAY[0]+=1
$LAGENTARRAY[$LAGENTARRAY[0]]=$LTEMP
NEXT
ENDSWITCH
REDIM $LAGENTARRAY[$LAGENTARRAY[0]+1]
RETURN $LAGENTARRAY
ENDFUNC
#EndRegion AgentPtrArray

In your script ...

FUNC ISPARTYALIVE()
FOR $I=1 TO $MPARTYARRAY[0]
LOCAL $LANIMATION=MEMORYREAD($MPARTYARRAY[$I]+220,"byte")
IF $LANIMATION<>61 AND $LANIMATION<>62 THEN RETURN TRUE
NEXT
RETURN FALSE
ENDFUNC