MMORPG Tutorial Article 4 Server Side Melee Redux!

function ServerCmdAutoAttack(%client){
	
	if(%client.getClassName() !$="AIPlayer"){
		%tempObj = findObject(%client,$TypeMasks::PlayerObjectType,10,1,0);
		%targetObject = %client.getSelectedObject();
		
		%client.Player.AttackOn =1;
		echo("Aquiring target");
		
		if(!%client.getSelectedObject()){
				MessageClient(%client,'No target','You have no target to attack!');
				%client.Player.AttackOn = 0;
		}else{
			if(%tempObj && %tempObj.getId() == %targetObject.getId()){
				if(%targetObject.getDamageLevel() < 100 && %client.Player.getDamageLevel() < 100 && %client.Player.AttackOn == 1){
					echo("Recieved order for AutoAttack");
					%Msg = "You attack "@%targetObject.getShapeName();
					MessageClient(%client,'Attack',%Msg);
					echo("Rolling!");
					
					%clientRoll = getRandom(1,32) + %client.Player.Atk;
					echo(%client.Player.getShapeName()@": "@%clientRoll);
				
					%targetRoll = getRandom(1,32) + %targetObject.AC;
					echo(%targetObject.getShapeName()@": "@%targetRoll);
					Melee::Attack(%client.Player);
					
					if(%clientRoll >= %targetRoll){
						%BaseDamage = %client.Player.getMountedImage(0).BaseDamage;
						if(%BaseDamage < 1){
							%BaseDamage = 1;
						}
						%targetObject.applyDamage(%BaseDamage);
						%Msg = "You hit "@%targetObject.getShapeName()@" for "@%client.Player.getMountedImage(0).BaseDamage;
						MessageClient(%client,'Attack',%Msg);
					}else{
						%Msg = "You missed "@%targetObject.getShapeName();
						MessageClient(%client,'Missed',%Msg);
					}
				
				}
				if(%targetObject.getClassName() $="AIPlayer"){
					if( %targetObject.getAimObject() != %client.Player){
						echo("Target is AI, make sure to setup return of Damage");
						%targetObject.setAimObject(%client.Player);
						schedule(1000,%targetObject,ServerCmdAutoAttack,%targetObject);
					}
				}else{
					if(!%targetObject.getSelectedObject()){
						echo("Target is not AI and does not currently hold a target, setting target");
						%targetObject.setSelectedObject(%client);
						CommandToClient(%TargetObject,'UpdateTargetDialog','NewTarget',%Client.getshapeName());
					}
				}
				schedule(1000,%targetObject,ServerCmdAutoAttack,%Client);
				//%Msg = "You are at "@%client.player.getPosition()@" and your target is at "@%targetObject.getPosition(); 
				//MessageClient(%client,'Location',%Msg);
			}else{
				MessageClient(%client,'OutOfRange','You are too far away to strike your target');
			}
		}
	}else{
		//Functions for AI autoattack!
		%tempObj = findObject(%client,$TypeMasks::PlayerObjectType,10,1,1);
		%targetObject = %client.getAimObject();
		if(%tempObj && %tempObj.getId() == %targetObject.getId()){
			if(%targetObject.getDamageLevel() < 100 && %client.getDamageLevel() < 100){
				%Msg = %client.getShapeName()@' is attacking you!';
				MessageClient(%targetObject,'Attack',%Msg);
				
				Melee::Attack(%client);
				
				%clientRoll = getRandom(1,32) + %client.Atk;
				echo(%client.getShapeName()@" Rolled "@%clientRoll);
				
				%targetRoll = getRandom(1,32) + %targetObject.AC;
				echo(%targetObject.getShapeName()@" Rolled "@%targetRoll);
				
				
				if(%clientRoll >= %targetRoll){
					%BaseDamage = %client.getMountedImage(0).BaseDamage;
					if(%BaseDamage < 1){
						%BaseDamage = 1;
					}
					%targetObject.applyDamage(%BaseDamage);
					MessageClient(%targetObject,'Attack',%client.getShapeName()@' hits you for '@%client.getMountedImage(0).BaseDamage);
				}else{
					MessageClient(%targetObject,'Attack',%client.getShapeName()@' missed!');
				}
				schedule(2000,%targetObject,ServerCmdAutoAttack,%client);
			}
		}else{
			echo("Too far away from client, moving!");
			%client.setMoveDestination(%targetObject.getTransform());
			schedule(5000,%targetObject,ServerCmdAutoAttack,%client);
		}	
		
	}
	echo("Leaving AutoAttack");
}

function Melee::Attack(%obj){
	%actnum = getRandom(1,3);
	if(%actnum ==1){
		%action = "h1swing";
	}
	if(%actnum ==2){
		%action = "h1slice";
	}
	if(%actnum == 3){
		%action = "h1thrust";
	}
	if(%actnum < 1 || %actnum >3){
		%action = "h1swing";
	}
	 %obj.setActionThread(%action);
}
function WeaponImage::onFireHandToHand(%this, %obj, %slot)
{
	Melee::Attack(%obj);
}

BaseDamage = 5;

function mouseFire(%val)
{
   $mvTriggerCount0++;
   CommandToServer('AutoAttack');
}