Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Func PartyCallback($hwnd, $msg, $wparam, $lparam)
- $recvCDS = DllStructCreate("ULONG_PTR;DWORD;PTR", $lparam) ;COPYDATASTRUCT
- If DllStructGetData($recvCDS, 1) = 2 Then
- $partyInfo = DllStructCreate($tagPARTYINFO, DllStructGetData($recvCDS, 3)) ;See Struct definition in GWCAConstants.au3
- $ahHndl = _GWCAMemOpen (WinGetProcess($sGW))
- If DllStructGetData($partyInfo, "TeamId") = $myTeamID Then
- For $i = 0 To 3 Step 1
- $hp[$i] = DllStructGetData($partyInfo, "Agent" & $i + 1 & "HP")
- $id[$i] = DllStructGetData($partyInfo, "Agent" & $i + 1 & "Id")
- $Effects[$i] = DllStructGetData($partyInfo, "Agent" & $i + 1 & "Effects")
- $Name[$i] = _GWCAMemRead (DllStructGetData($partyInfo, "Agent" & $i + 1 & "Name"), $ahHndl, "wchar[24]")
- $posx[$i] = DllStructGetData($partyInfo, "Agent" & $i + 1 & "X")
- $posy[$i] = DllStructGetData($partyInfo, "Agent" & $i + 1 & "Y")
- $prof[$i] = DllStructGetData($partyInfo, "Agent" & $i + 1 & "Primary")
- Next
- Else
- For $i = 0 To 3 Step 1
- $eID[$i] = DllStructGetData($partyInfo, "Agent" & $i + 1 & "Id")
- $eTarget[$i] = DllStructGetData($partyInfo, "Agent" & $i + 1 & "Target")
- $eSkill[$i] = DllStructGetData($partyInfo, "Agent" & $i + 1 & "Skill")
- Next
- EndIf
- _GWCAMemClose ($ahHndl)
- $bGotInfo = True
- ElseIf DllStructGetData($recvCDS, 1) == 1 And $evade == 1 Then
- $skillStruct = DllStructCreate($tagSKILLLOGSTRUCT, DllStructGetData($recvCDS, 3))
- $sk = DllStructGetData($skillStruct, "SkillId")
- If DllStructGetData($skillStruct, "TargetId") == $myid Then
- If $sk == 1198 Or $sk == 229 Then
- out ("trying to evade skill: " & $sk)
- Dodge(DllStructGetData($skillStruct, "AgentId"))
- ElseIf isrupt ($sk) Then
- cmd ($CA_CancelAction)
- out ("interrupt avoided...")
- ElseIf isknockdown ($sk) Then
- cmdCB ($CA_SkillRecharge, 7)
- If $cbVar[0] == 0 Then
- ;cmdcb ($CA_GetMyMaxEnergy)
- ;If $cbVar[1] > 5 Then
- cmd ($CA_UseSkill, 7, -2)
- out ("knockdown avoided..")
- ;EndIf
- Else
- cmdcb ($CA_GetEffectDuration, $skill[7])
- If $cbVar[1] > 0 Then Return
- cmdCB ($CA_SkillAdrenaline, 8)
- If $cbVar[0] = 200 Then
- cmd ($CA_UseSkill, 8, -2)
- out ("knockdown alternative.. 75% chance to avoid")
- EndIf
- EndIf
- EndIf
- ElseIf isAoE ($sk) Then
- ElseIf $bShouldCast And $sk == $bIsCasting[1] And DllStructGetData($skillStruct, "AgentId") == $myid Then
- out("$bShouldCast = False")
- out("$bIsCasting = True")
- $bShouldCast = false
- $bIsCasting[0] = True
- EndIf
- Else
- out (DllStructGetData($recvCDS, 1) & "--")
- EndIf
- EndFunc ;==>PartyCallback
- Func SkillCancelCallback($hwnd, $msg, $wparam, $lparam)
- If Number($wparam) == $myid And Number($lparam) == $bIsCasting[1] and $bIsCasting[0] Then
- $bIsCasting[0] = False
- $aftercast = TimerInit()
- out("$bIsCasting = False")
- EndIf
- EndFunc ;==>SkillCancelCallback
- Func SkillCompletedCallback($hwnd, $msg, $wparam, $lparam)
- If Number($wparam) == $myid And Number($lparam) == $bIsCasting[1] and $bIsCasting[0] Then
- $bIsCasting[0] = False
- out("$bIsCasting = False")
- EndIf
- EndFunc ;==>SkillCompletedCallback
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement