need help with strafe i think

[Ogre_Luvr]

I want to use this code on my war so he gets on the opposite side of the mob as my shammy pet... @partner is the ID of the shammy pet


this is the old code .. which worked

Code: Select all

Sub Do-turn
	/varset RangeMax 25 
	/varset RangeMin 10 
	/varset FastRange 14
:turnLoop
/call MoveToMob @MyTarget
/if $spawn(@MyTarget,type)==corpse /return
	/declare newHeading local
	/if n $spawn(@partner,heading)>=180 {
		/varset newHeading $calc($spawn(@partner,heading)-180)
	} else {
		/varset newHeading $calc($spawn(@partner,heading)+180)
	}
	/face nolook
	/if n $char(heading)>$calc(@newHeading+20) {
		/sendkey down ctrl
		/press left
		/face nolook
		/press left
		/sendkey up ctrl
	}
	
	/if n $char(heading)<$calc(@newHeading-20) {
		/sendkey down ctrl
		/press right
		/face nolook
		/press right
		/sendkey up ctrl
	}
	
/if n $char(heading)<$calc(@newHeading+20) /return
/if n $char(heading)<$calc(@newHeading-20) /return
	
/goto :turnLoop
/return

new jacked up code ... doesn't work

Code: Select all

Sub Do-turn
:turnLoop
	/if (${Target.Distance}>10) { 
		/face fast nolook
		/keypress forward 
		/keypress forward hold 
	} else /if (${Target.Distance}<5) {
		/face fast nolook    
		/keypress forward 
		/keypress back 
		/keypress back hold 
	} else { 
		/keypress back 
	} 
    
	/declare newHeading local
	/if (${Spawn[@partner].Heading.Degrees}>=180) {
		/varset newHeading ${Math.Calc[${Spawn[@partner].Heading.Degrees}-180]}
	} else {
		/varset newHeading ${Math.Calc[${Spawn[@partner].Heading.Degrees}+180]}
	}

	/face fast nolook
	/if (${Me.Heading.Degrees}>${Math.Calc[@newHeading+20]}) {
		/keypress strafe_left hold
		/delay 1
		/keypress strafe_left
		/face fast nolook
	} else {
		/echo /keypress strafe_left
		|/keypress strafe_left
	}
	
	/if (${Me.Heading.Degrees}<${Math.Calc[@newHeading-20]}) {
		/keypress strafe_right hold
		/delay 1
		/face fast nolook
	} else {
		/echo /keypress strafe_right	
		|/keypress strafe_right	
	}
    
/if (${Me.Heading.Degrees}>${Math.Calc[@newHeading-20]} || ${Me.Heading.Degrees}<${Math.Calc[@newHeading+20]}) {
	|/keypress strafe_left
	|/keypress strafe_right
	/return
}
/goto :turnLoop
/return

any help would be great

[Lax]

The old heading stuff was all counterclockwise. Change all your .Degrees to .DegreesCCW

[Ogre_Luvr]

Works like a charm .. is anyone has a better way of doing this let me know =)

Code: Select all

Sub Do-turn
:turnLoop
	/if (${Target.Distance}>15) { 
		/face fast nolook
		/keypress forward 
		/keypress forward hold 
	} else /if (${Target.Distance}<9) {
		/face fast nolook    
		/keypress forward 
		/keypress back 
		/keypress back hold 
	} else { 
		/keypress back 
	} 
    
	/declare newHeading local
	/if (${Spawn[@partner].Heading.DegreesCCW}>=180) {
		/varset newHeading ${Math.Calc[${Spawn[@partner].Heading.DegreesCCW}-180]}
	} else {
		/varset newHeading ${Math.Calc[${Spawn[@partner].Heading.DegreesCCW}+180]}
	}

	/face fast nolook
	/if (${Me.Heading.DegreesCCW}>${Math.Calc[@newHeading+20]}) {
		/keypress strafe_left hold
		/delay 1
		/keypress strafe_left
		/face fast nolook
	}
	
	/if (${Me.Heading.DegreesCCW}<${Math.Calc[@newHeading-20]}) {
		/keypress strafe_right hold
		/delay 1
		/keypress strafe_right
		/face fast nolook
	}
    
/if (${Me.Heading.DegreesCCW}>${Math.Calc[@newHeading-20]} || ${Me.Heading.DegreesCCW}<${Math.Calc[@newHeading+20]}) /return
/goto :turnLoop
/return