moveToLoc - accurate, object avoidance

[beatnik007]

After spending 4 hours running behind a tree, I decided to write my own moveToLoc function.

Credits to Mckorr for the object avoidance. It remains the same, but the logic to call it differs.

Please post improvements.

Code: Select all

#turbo 100

Sub Main
    /zapvars
    /declare distanceTimer timer

    /call moveToLoc 2410 7074
    /call moveToLoc 2697 7295
/endmacro

Code: Select all

Sub moveToLoc
    /echo Moving to @Param1, @Param0.

    /declare running local
    /declare distanceNow local
    /declare distanceBefore local
    /declare distanceModifier local
    /varset running 0
    /varset distanceTimer 15
    /varset distanceBefore $distance(@Param1,@Param0)
    /varset distanceModifier 1
    
    :moveToLocation

    /face fast loc @Param1,@Param0

    /if n $distance(@Param1,@Param0)<2 {
        /sendkey up up
        /return
    }
    
    /if n @distanceTimer==0 {
        /if $char(sneaking)==TRUE {
            /varset distanceModifier 2
        } else {
            /varset distanceModifier 1
        }

        /varset distanceNow $distance(@Param1,@Param0)
        /if n $calc(@distanceBefore-@distanceNow)<$calc(10/@distanceModifier) {
            /call strafePastObstacle
        }
        /varset distanceBefore $distance(@Param1,@Param0)
        /varset distanceTimer 15
    }

    /if n @running==0 {
        /press up
        /if n $distance(@Param1,@Param0)>30 {
            /varset running 1
            /sendkey down up
        }
    } else {
        /if n $distance(@Param1,@Param0)<31 {
            /varset running 0
            /sendkey up up
        }
    }
    /goto :moveToLocation
/return

sub strafePastObstacle
    /sendkey up up
    /sendkey down down
    /delay 2
    /sendkey up down
    /sendkey down ctrl
    /if n $rand(99)>50 {
        /sendkey down right
    } else {
        /sendkey down left
    }
    /delay 3
    /sendkey up right
    /sendkey up left
    /sendkey up ctrl
    /sendkey down up
/return

[OldNecro]

where is distancetimer being incremented/decrimented?

[Preocts]

Change Turbo to 20 or just remove it. Turbo only goes to 40 for a max now.

[wassup]

where is distancetimer being incremented/decrimented?

timers decrement themselves...

This needs to be changed to MQ2Data anyway, which doesn't look like ti would take much work.

[Guest]

Yes, but DistanceTimer isn't a timer... He didn't even declare it... (however I think this *is* the only problem with it...)

I went ahead and converted this to MQ2Data, but I prolly shouldn't post it here because I customized the hell out of it and it really wouldn't operate independently anyway...

[dedw8]

I'm confused, is this MQ2 compatible or not? Sorry, I'm new here.
D

[Cr4zyb4rd]

No, this won't work as-posted. If you look around a bit, you should be able to find move-to and avoidance routines of all shapes and sizes inside of other macros, many probably based on some variation of the above code.

[ChrisCim]

..