Quote:
Originally Posted by uhlala2323
okay, then i missunderstood you.
please post the code here so i can have a look at it today. it will be easy and quick fix ;).
i will tell you what was the issue.
|
Kinda this. I just changed the waypoints and tried to get it right. But shes not even running to first waypoint.
Global $Outpost = 51 ;Outpost: Senji's Corner
Global $Area1 = 31 ;Area: Xaquang Skyway
While 1
If $boolrun = true Then
If $NumberRun = 0 Then ;first run
AdlibRegister("status", 1000)
$TimerTotal = TimerInit()
$SS_title_at_begining = GetAsuraTitle()
EndIf
If GetMapID() <> $Outpost Then
CurrentAction("Moving to Outpost")
TravelTo($Outpost)
WaitMapLoading($Outpost)
EndIf;
rndslp(500)
CurrentAction("Begin run number " & $NumberRun)
SwitchMode(0) ;Normal Mode
FastWayOut()
While (CountSlots() > 4)
$NumberRun = $NumberRun +1
GoOut()
VQ()
_PurgeHook()
clearmemory()
WEnd
EndIf
sleep(50)
WEnd
Func FastWayOut()
RndSleep(250)
CurrentAction("Set resign")
MoveTo(6746, -13445)
Move(6200, -12920)
WaitMapLoading($Area1)
sleep(500)
Move(6201, -12921)
WaitMapLoading($Outpost)
EndFunc
Func GoOut()
RndSleep(250)
CurrentAction("Going out")
MoveTo(6746, -13445)
Move(6200, -12920)
WaitMapLoading($Area1)
EndFunc
Func status()
$time = TimerDiff($TimerTotal)
$string = StringFormat("min: %03u sec: %02u ", $time/1000/60, Mod($time/1000,60))
GUICtrlSetData($label_stat, $string)
EndFunc ;==>status
Func CheckDeath()
If Death() = 1 Then
CurrentAction("We Are Dead")
EndIf
EndFunc ;==>CheckDeath
Func CheckPartyDead()
$DeadParty = 0
For $i =1 to GetHeroCount()
If GetIsDead(GetHeroID($i)) = True Then
$DeadParty +=1
EndIf
If $DeadParty >= 6 Then
$DeadOnTheRun = 1
CurrentAction("We Wipe, going back oupost to save time")
EndIf
Next
EndFunc
Func HeroBuff()
$mSkillBar = GetSkillbar(3)
$mHeroInfo = GetAgentByID(GetHeroID(3))
If GetIsTargetBuffed($GWA_CONST_UnyieldingAura, GetHeroID(3), 3) == 0 AND DllStructGetData($mSkillBar, 'Recharge1') == 0 AND GetIsDead($mHeroInfo) == False Then
UseHeroSkill(3, 1, GetHeroID(3))
EndIf
EndFunc
Func VQ()
CurrentAction("Waiting to really complete load")
; WaitMapLoading($Area1)
$DeadOnTheRun = 0
AdlibRegister("CheckPartyDead", 2000)
AdlibRegister("SSpoint", 5000)
AdlibRegister("HeroBuff", 5000)
CurrentAction("Farming.")
If $DeadOnTheRun = 0 Then AggroMoveToEx(1650, -9475)
If $DeadOnTheRun = 0 Then AggroMoveToEx(1316, -8396)
If $DeadOnTheRun = 0 Then AggroMoveToEx(-450, -8490)
If $DeadOnTheRun = 0 Then AggroMoveToEx(-2272, -7855)
If $DeadOnTheRun = 0 Then AggroMoveToEx(-2106, -4930)
If $DeadOnTheRun = 0 Then AggroMoveToEx(-3429, -4906)
If $DeadOnTheRun = 0 Then AggroMoveToEx(-3838, -5250)
If $DeadOnTheRun = 0 Then AggroMoveToEx(-6104, -5402)
If $DeadOnTheRun = 0 Then AggroMoveToEx(-5967, -7988)
If $DeadOnTheRun = 0 Then $RunSuccess = $RunSuccess + 1
Resign()
rndsleep(5000)
returntooutpost()
WaitMapLoading($Outpost)