procedure OnWarriorEquipped(aUnitID : Integer; aGroupID : Integer);
    var tempX : Integer;
    var tempY : Integer;
    var temporary : Integer;
    var typeU : Integer;
    begin
    typeU := States.UnitType(aUnitID);
      if (typeU = 16) and (States.UnitOwner(aUnitID) = 1) then begin
		  tempX := States.UnitPositionX(aUnitID);
		  tempY := States.UnitPositionY(aUnitID);
	 	  Actions.UnitKill(aUnitID, 1);
		  if typeU = 16 then//unit is a sword fighter
      end;
		    begin
			    typeU := 23;
			    temporary := Actions.GiveGroup(1, 23, tempX, tempY, 4, 1, 1);
		    end;

end;

procedure OnTick;
begin
    if States.GameTime = 10 then
    Actions.ShowMsg(0,'<$0>');
      if States.GameTime = 1300 then
    Actions.ShowMsg(0,'<$1>');
end;
